PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → Curso Acbr com Windev - Nfe/Nfce/Sat/Tef/muito mais..
Curso Acbr com Windev - Nfe/Nfce/Sat/Tef/muito mais..
Iniciado por amarildo, nov., 28 2017 5:45 PM - 15 respostas
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em novembro, 28 2017 - 5:45 PM
Estou Desenvolvendo Esse Curso de integração
Entre Windev e Acbr
Tem muitos Recurso, Já esta na Aula 7 - Consulta Cadastro Contribuinte

Para quem For na Devcon 2018
Será disponibilizado esse Aplicativo de Integração que estou fazendo.


http://www.geswin.com.br/DEVCON_CURITIBA





http://windevdesenvolvimento.blogspot.com.br/2017/11/aula-1297-windev-acbr-007-consulta.html
Mensagem modificada, novembro, 28 2017 - 5:51 PM
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em novembro, 29 2017 - 8:19 AM
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em novembro, 30 2017 - 12:15 PM
// CONSULTAR NCM
VERIFICA_ARQUIVO_SAIDA(EDT_diretorio_arquivo_saida)

_arquivo_acbr is string=[
NCM.DescricaoNCM("#NCM#")
]

_arquivo_acbr=Replace(_arquivo_acbr,"#NCM#",EDT_NCM)
EDT_XML=_arquivo_acbr

EDT_retorno=VERIFICA_ARQUIVO_RETORNO(EDT_diretorio_arquivo_entrada,EDT_XML,EDT_diretorio_arquivo_saida)
EDT_NCM_DESCRICAO=EDT_retorno


Procedure VERIFICA_ARQUIVO_RETORNO(s_DIRETORIO_ARQUIVO_ENTRADA is string="",s_XML is string="", ...
s_DIRETORIO_ARQUIVO_SAIDA is string="")

s_RETORNO is string=""
fSaveText(s_DIRETORIO_ARQUIVO_ENTRADA,s_XML)
Message("AGUARDE...")
Wait(30)
Message()
s_RETORNO=""
b_existe is boolean=False
LOOP
IF fFileExist(s_DIRETORIO_ARQUIVO_SAIDA) THEN
b_existe=True
BREAK
END
Multitask(-1)
IF KeyPressed(VK_SPACE) = True THEN
BREAK
END
END
//Info("PARE")
IF b_existe=True THEN
Message(s_DIRETORIO_ARQUIVO_SAIDA)
s_RETORNO=fLoadText(s_DIRETORIO_ARQUIVO_SAIDA)
END

RESULT s_RETORNO


Procedure VERIFICA_ARQUIVO_SAIDA(s_ARQUIVO_SAIDA is string="")


IF fFileExist(s_ARQUIVO_SAIDA) THEN
fDelete(s_ARQUIVO_SAIDA)
END


AULA 1299 WINDEV ACBR - 009 - NCM DESCRICAO



http://windevdesenvolvimento.blogspot.com.br/2017/11/aula-1299-windev-acbr-009-ncm-descricao.html
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em dezembro, 02 2017 - 10:55 AM
AULA 1300 WINDEV ACBR 010 NFE CriarNFe



http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1300-windev-acbr-010-nfecriarnfe.html

MODELO:

NFE.CriarNFe(
[infNFe]
versao=3.10
[Identificacao]
cNF=15516
natOp=5.101 Venda de producao do estabelecimento
indPag=1
mod=55
serie=1
nNF=3879
dhEmi=29/11/2017 06:05:00
dhSaiEnt=
tpNF=1
idDest=1
tpImp=1
tpEmis=1
finNFe=1
indFinal=0
indPres=1
procEmi=0
verProc=3.1.0
dhCont=
xJust=
[Emitente]
CNPJCPF=03850874000126
xNome=NH_MATOS INFORMATICA-SIMPLES
xFant=JAIRO B. RIBEIRO 03850874000126
IE=0860299430
IEST=
IM=1
CNAE=4789099
CRT=1
xLgr=RUA PINHEIRO MACHADO
nro=545
xCpl=
xBairro=INDUSTRIAL
cMun=4313409
xMun=NOVO HAMBURGO
UF=RS
CEP=93320490
cPais=1058
xPais=BRASIL
Fone=35821451
cUF=43
cMunFG=
[Destinatario]
idEstrangeiro=
CNPJCPF=89184238000128
xNome=NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL
indIEDest=1
IE=0420036873
ISUF=
email=matosi@terra.com.br
xLgr=RUA PRESIDENTE LUCENA
nro=4
xCpl=
xBairro=DAS ROSAS
cMun=4307609
xMun=ESTANCIA VELHA
UF=RS
cep=93600000
cPais=1058
xPais=BRASIL
Fone=5132111932
[Produto001]
cProd=1
cEAN=7898599090068
xProd=ALMOCO LIVRE
ncm=84425000
CEST=1708400
EXTIPI=
CFOP=5101
uCom=RL
qCom=1.0000
vUnCom=1.0000
vProd=1.0000
cEANTrib=
uTrib=RL
qTrib=1.00000000
vUnTrib=1.0000
vFrete=
   vSeg=
    vDesc=
    vOutro=
    indTot=1
    xPed=
    nItemPed=
    nFCI=
    nRECOPI=
    pDevol=
    vIPIDevol=
    vTotTrib=0.14
    infAdProd=
    indEscala=
    CNPJFab=
    cBenef=
[ICMS001]
orig=0
CST=
CSOSN=400
modBC=
pRedBC=
vBC=
pICMS=
vICMS=
modBCST=
pMVAST=
pRedBCST=
vBCST=
pICMSST=
vICMSST=
UFST=
pBCOp=
vBCSTRet=
vICMSSTRet=
motDesICMS=
pCredSN=
vCredICMSSN=
vBCSTDest=
vICMSSTDest=
vICMSDeson=
vICMSOp=
pDif=
vICMSDif=
pST=
vBCFCP=
pFCP=
vFCP=
vBCFCPST=
pFCPST=
vFCPST=
vBCFCPSTRet=
pFCPSTRet=
vFCPSTRet=
[PIS001]
CST=01
vBC=1.00
pPIS=0.65
qBCProd=
vAliqProd=
vPIS=0.01
[COFINS001]
CST=01
vBC=1.00
pCOFINS=2.00
qBCProd=
vAliqProd=
vCOFINS=0.02
[Total]
vBC=0
vICMS=0
vICMSDeson=0
vBCST=0
vST=0
vProd=1
vFrete=0
vSeg=0
vDesc=0
vII=0
vIPI=0
vPIS=0
vCOFINS=0
vOutro=0
vNF=1
vTotTrib=0
vFCP=0
vFCPST=0
vFCPSTRet=0
vIPIDevol=0
[DadosAdicionais]
infAdFisco=
infCpl=DOCUMENTO ICM CODIGO 1 - empresa SIMPLES NACIONA


)
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em dezembro, 04 2017 - 8:50 AM
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em dezembro, 05 2017 - 5:47 PM
AULA 1302 WINDEV ACBR - 012 - NFE.CriarNFe 3A PARTE AJUSTE CODIGO
http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1302-windev-acbr-012-nfecriarnfe.html

Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em dezembro, 06 2017 - 9:48 AM
AULA 1303 WINDEV ACBR - 013 - NFE.EnviarNfe Enviar Para Sefaz 1A Parte

http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1303-windev-acbr-013-nfeenviarnfe.html

Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em dezembro, 07 2017 - 8:58 AM
Procedure _510_010_ENVIAR_NFE()
EDT_xml_assinado = fExtractPath(EDT_retorno,fFileName+fExtension)
EDT_diretorio_arquivo_xml_assinado=EDT_localizacao_diretorio_xml+EDT_xml_assinado
_arquivo_acbr is string=[
NFE.EnviarNFe("#cArqXML#,#nLote#,#bAssina#,#nImprime#,#cImpressora#,#bSincrono#")
]
s_cArqXML is string=EDT_diretorio_arquivo_xml_assinado // Caminho do arquivo XML a ser enviado.
s_nLote is string="" // Número do Lote
s_bAssina is string="0" // Coloque 0 se não quiser que o componente assine o arquivo. - Parâmetro Opcional
s_nImprime is string="" // Coloque 1 se quiser que o DANFe seja impresso logo após a autorização - Parâmetro Opcional
s_cImpressora is string="" // Informe o nome da impressora - Parâmetro Opcional
s_bSincrono is string="1" // Coloque 1 para indicar modo síncrono e 0 para modo assíncrono.

_arquivo_acbr=Replace(_arquivo_acbr,"#cArqXML#",s_cArqXML)
_arquivo_acbr=Replace(_arquivo_acbr,"#nLote#",s_nLote)
_arquivo_acbr=Replace(_arquivo_acbr,"#bAssina#",s_bAssina)
_arquivo_acbr=Replace(_arquivo_acbr,"#nImprime#",s_nImprime)
_arquivo_acbr=Replace(_arquivo_acbr,"#cImpressora#",s_cImpressora)
_arquivo_acbr=Replace(_arquivo_acbr,"#bSincrono#",s_bSincrono)

EDT_XML=_arquivo_acbr



AULA 1304 WINDEV ACBR - 014 - NFE.EnviarNfe Enviar Para Sefaz 2A Parte

http://windevdesenvolvimento.blogspot.com/2017/12/aula-1304-windev-acbr-014-nfeenviarnfe.html

Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em dezembro, 08 2017 - 12:44 PM
AULA 1306 WINDEV ACBR - 015 - NFE.EnviarNfe Enviar Para Sefaz 3A Parte

http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1306-windev-acbr-015-nfeenviarnfe.html

Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em dezembro, 16 2017 - 10:07 PM
Procedure _510_010_ENVIAR_NFE()
_arquivo_acbr is string=[
NFE.EnviarNFe("#cArqXML#",#nLote#,#bAssina#,#nImprime#,#cImpressora#,#bSincrono#)
]
s_cArqXML is string=EDT_diretorio_arquivo_xml_assinado // Caminho do arquivo XML a ser enviado.
s_nLote is string="" // Número do Lote
s_bAssina is string="0" // Coloque 0 se não quiser que o componente assine o arquivo. - Parâmetro Opcional
s_nImprime is string="" // Coloque 1 se quiser que o DANFe seja impresso logo após a autorização - Parâmetro Opcional
s_cImpressora is string="" // Informe o nome da impressora - Parâmetro Opcional
s_bSincrono is string="1" // Coloque 1 para indicar modo síncrono e 0 para modo assíncrono.
_arquivo_acbr=Replace(_arquivo_acbr,"#cArqXML#",s_cArqXML)
_arquivo_acbr=Replace(_arquivo_acbr,"#nLote#",s_nLote)
_arquivo_acbr=Replace(_arquivo_acbr,"#bAssina#",s_bAssina)
_arquivo_acbr=Replace(_arquivo_acbr,"#nImprime#",s_nImprime)
_arquivo_acbr=Replace(_arquivo_acbr,"#cImpressora#",s_cImpressora)
_arquivo_acbr=Replace(_arquivo_acbr,"#bSincrono#",s_bSincrono)
EDT_TXT_ENVIADO=_arquivo_acbr
VERIFICA_ARQUIVO_SAIDA(EDT_diretorio_arquivo_saida)
EDT_RETORNO_ENVIO_NFE=VERIFICA_ARQUIVO_RETORNO(EDT_diretorio_arquivo_entrada,EDT_TXT_ENVIADO,EDT_diretorio_arquivo_saida)


Procedure _520_010_GRAVANDO_RETORNO()
EDT_AUDITORIA+=CR+"Lendo Arquivo Transmitido["+EDT_diretorio_arquivo_xml_assinado+"]"
EDT_xml_assinado_retorno=fLoadText(EDT_diretorio_arquivo_xml_assinado)
XMLDocument("XML1",EDT_xml_assinado_retorno)
EDT_chNFe=XMLRead("XML1","/nfeProc/protNFe/infProt/chNFe")
EDT_nProt=XMLRead("XML1","/nfeProc/protNFe/infProt/nProt")
EDT_cStat=XMLRead("XML1","/nfeProc/protNFe/infProt/cStat")
EDT_xMotivo=XMLRead("XML1","/nfeProc/protNFe/infProt/xMotivo")
EDT_nNF=XMLRead("XML1","/nfeProc/NFe/infNFe/ide/nNF")+CR
EDT_tpAmb=XMLRead("XML1","/nfeProc/protNFe/infProt/tpAmb")
EDT_dhRecbto=XMLRead("XML1","/nfeProc/protNFe/infProt/dhRecbto")
EDT_digVal=XMLRead("XML1","/nfeProc/protNFe/infProt/digVal")
XMLClose("XML1")



AULA 1308 WINDEV ACBR - 016 - NFE.EnviarNfe Enviar Para Sefaz 4A Parte

http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1308-windev-acbr-016-nfeenviarnfe.html

Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em dezembro, 18 2017 - 9:24 AM
AULA 1309 WINDEV ACBR - 017 - NFE.CancelarNFe

Procedure gera_000_00_cancelamento_Acbr()

IF YesNo("Deseja Realmente Cancelar a Nota Fiscal") THEN
gera_000_01_configura_Acbr()
gera_150_01_gerar_txt_acbr()
IF EDT_xml_retorno_assinado<>"" THEN
gera_160_01_retorno_txt_acbr()
gs_auditoria+="Cancelamento Deu Certo"
ExecuteProcess(BTN_Imprimir_Cancelamento,trtClick)
Info("Cancelamento Pronto - Vai Entrar no Site e confirme se Foi Realmente Cancelada")

ShellExecute("http://www.sefaz.rs.gov.br/NFE/NFE-COM.aspx?chaveNFe="+EDT_ChaveNFE)

Close(WIN_NFE_Cancelamento)

ELSE
gs_auditoria+="Cancelamento Nao Foi Feito Verificar"
Info("NAO FEZ CANCELAMENTO")
END
END

Procedure gera_150_01_gerar_txt_acbr()
VERIFICA_ARQUIVO_SAIDA(EDT_diretorio_arquivo_saida)
_arquivo_acbr is string=[
NFE.CANCELARNFE("#chave_nfe#",#justificativa#,#cnpj_emissor#,#evento#)
]
_arquivo_acbr=Replace(_arquivo_acbr,"#chave_nfe#",EDT_ChaveNFE)
_arquivo_acbr=Replace(_arquivo_acbr,"#justificativa#",EDT_Justificativa)
_arquivo_acbr=Replace(_arquivo_acbr,"#cnpj_emissor#",empresa.cnpj)
_arquivo_acbr=Replace(_arquivo_acbr,"#evento#",EDT_TipoEvento)
EDT_xml=_arquivo_acbr
gs_auditoria+=_arquivo_acbr
EDT_xml_retorno_assinado=VERIFICA_ARQUIVO_RETORNO(EDT_diretorio_arquivo_entrada,EDT_xml,EDT_diretorio_arquivo_saida)

Procedure gera_160_01_retorno_txt_acbr()
s_texto_cstat is string=""
EDT_ProtocoloCancelamento=""
_sequencia is int=0
_tipo_evento is string=""
s_xml_retornado is string=""
EDT_xml_autorizado=""
_cabecalho_xml is string=[
<?xml version="1.0" encoding="UTF-8"?>
]
FOR EACH STRING s_linha OF EDT_xml_retorno_assinado SEPARATED by ["XML="]
s_xml_retornado=s_linha
END
EDT_xml_autorizado=_cabecalho_xml+s_xml_retornado
FOR EACH STRING s_linha OF EDT_xml_retorno_assinado SEPARATED by CR
IF s_linha[[1 TO 6]]="CStat=" THEN
s_texto_cstat=s_linha
END
IF s_linha[[1 TO 6]]="NProt=" THEN
EDT_ProtocoloCancelamento=s_linha[[7 TO 21]]
END
IF s_linha[[1 TO 11]]="nSeqEvento=" THEN
_sequencia=s_linha[[12 TO 13]]
END
IF s_linha[[1 TO 9]]="tpEvento=" THEN
_tipo_evento=s_linha[[10 TO 15]]
END
END
EDT_xml_autorizado=Replace(EDT_xml_autorizado,"XML=","")
IF s_texto_cstat="CStat=135" THEN
gera_200_01_grava_nota_xml()
END


=================================================================

NFE.CANCELARNFE("43171203850874000126550010000038991000038998",CANCELAMENTO TESTE
,03850874000126,110111)

=================================================================

RETORNO

OK: Lote de Evento Processado
[CANCELAMENTO]
Versao=RS201710241716
TpAmb=2
VerAplic=RS201710241716
CStat=135
XMotivo=Evento registrado e vinculado a NF-e
CUF=43
ChNFe=43171203850874000126550010000038991000038998
DhRecbto=17/12/2017 16:15:03
NProt=143170001511870
tpEvento=110111
xEvento=
nSeqEvento=1
CNPJDest=89184238000128
emailDest=
Arquivo=C:\amarildo\jairo\xml_acbr\Arqs\03850874000126\NFe\201712\Evento\Cancelamento\1101114317120385087400012655001000003899100003899801-procEventoNFe.xml
XML=

=================================================================

http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1309-windev-acbr-017-nfecancelarnfe.html
Mensagem modificada, dezembro, 18 2017 - 9:26 AM
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em dezembro, 19 2017 - 11:55 AM
Procedure _000_00_INUTILIZAR_ACBR_UNINFE()

Procedure _000_00_INUTILIZAR_ACBR_UNINFE()

s_retorno is string=verificar_notas_antes_inutilizar()
IF s_retorno="" THEN
HReadSeekFirst(parametros,codigo_parametro,1)
IF parametros.acbr_nfe=True THEN
_300_inutilizar_acbr()
ELSE
_000_inutilizar_inicio()
END
ELSE
Info("Verificar os Numero de Inutilização"+CR+s_retorno)
EDT_LOC_NumeroInicial=""
EDT_LOC_NumeroFinal=""
ReturnToCapture(EDT_LOC_NumeroInicial)
END

Procedure _300_inutilizar_acbr()

IF YesNo("Deseja Realmente Inutilizar ?") THEN
_310_020_configuracao_acbr()
_350_001_gerar_txt_acbr()

IF EDT_xml_retorno<>"" THEN
_400_01_retorno_txt_Acbr()
ELSE
EDT_Auditoria+="Cancelamento Nao Foi Feito Verificar"
Info("NAO FEZ CANCELAMENTO")
END
END

Procedure _310_020_configuracao_acbr()

EDT_Auditoria=""
EDT_Diretorio="C:\amarildo\jairo\xml_acbr\PASTA\"
EDT_arquivo_entrada="ent.txt"
EDT_arquivo_saida="sai.txt"
EDT_diretorio_arquivo_entrada=EDT_Diretorio+EDT_arquivo_entrada
EDT_diretorio_arquivo_saida=EDT_Diretorio+EDT_arquivo_saida
// aula
_data is Date=nota_fiscal.data_emissao
_ano_mes is string=_data..Year+NumToString(_data..Month,"02d")
EDT_localizacao_diretorio_xml="C:\amarildo\jairo\xml_acbr\ARQS\"+empresa.cnpj+"\NFe\"+_ano_mes+"\Evento\Inutilizacao\"
EDT_xml_arquivo_assinado=""
EDT_diretorio_arquivo_xml_assinado=""

Procedure _350_001_gerar_txt_acbr()

VERIFICA_ARQUIVO_SAIDA(EDT_diretorio_arquivo_saida)
_arquivo_acbr is string=[
NFE.InutilizarNFe("#cCNPJ#","#cJustificativa#",#nAno#,#nModelo#,#nSerie#,#nNumInicial#,#nNumFinal#)
]
_arquivo_acbr=Replace(_arquivo_acbr,"#cCNPJ#",empresa.cnpj)
_arquivo_acbr=Replace(_arquivo_acbr,"#cJustificativa#",EDT_Justificativa)
_arquivo_acbr=Replace(_arquivo_acbr,"#nAno#",EDT_LOC_ANO)
_arquivo_acbr=Replace(_arquivo_acbr,"#nModelo#",EDT_Modelo)
_arquivo_acbr=Replace(_arquivo_acbr,"#nSerie#",EDT_Serie)
_arquivo_acbr=Replace(_arquivo_acbr,"#nNumInicial#",EDT_LOC_NumeroInicial)
_arquivo_acbr=Replace(_arquivo_acbr,"#nNumFinal#",EDT_LOC_NumeroFinal)


EDT_xml=_arquivo_acbr
EDT_Auditoria+=_arquivo_acbr

EDT_xml_retorno=VERIFICA_ARQUIVO_RETORNO(EDT_diretorio_arquivo_entrada,EDT_xml,EDT_diretorio_arquivo_saida)

//http://acbr.sourceforge.net/ACBrMonitor/NFEInutilizarNFe.html

//NFE.InutilizarNFe( cCNPJ, cJustificativa, nAno, nModelo, nSerie, nNumInicial, nNumFinal)
//cCNPJ - CNPJ do contribuinte
//cJustificativa - Justificativa para inutilização
//nAno - Ano que foi inutilizado a numeração
//nModelo - Modelo da Nota Fiscal
//nSerie - Série da Nota Fiscal
//nNumInicial - Número Inicial a ser inutilizado
//nNumFinal - Número Final a ser inutilizado
//
//NFE.INUTILIZARNFE( "XXXXXXXXXXXXX", "Teste de inutilizacao", 08, 55, 1, 1, 4)

Procedure _400_01_retorno_txt_Acbr()

EDT_xml_Autorizado=""
FOR EACH STRING s_linha OF EDT_xml_retorno SEPARATED by ["XML="]
EDT_xml_Autorizado=s_linha
END
EDT_autorizado_dhRecbto=""
EDT_autorizado_nProt=""
EDT_autorizado_tpAmb=""
EDT_autorizado_xMotivo=""
EDT_autorizado_cUF=""
FOR EACH STRING s_linha OF EDT_xml_retorno SEPARATED by CR
IF s_linha[[1 TO 6]]="CStat=" THEN
EDT_autorizado_cStat=s_linha
EDT_autorizado_cStat=Replace(EDT_autorizado_cStat,"CStat=","")
END
IF s_linha[[1 TO 6]]="NProt=" THEN
EDT_autorizado_nProt=s_linha[[7 TO 21]]
END
IF s_linha[[1 TO 9]]="DhRecbto=" THEN
EDT_autorizado_dhRecbto=s_linha[[10 TO 28]]
END
IF s_linha[[1 TO 6]]="TpAmb=" THEN
EDT_autorizado_tpAmb=s_linha[[7 TO 7]]
END
IF s_linha[[1 TO 8]]="XMotivo=" THEN
EDT_autorizado_xMotivo=s_linha
EDT_autorizado_xMotivo=Replace(EDT_autorizado_xMotivo,"XMotivo=","")
END
IF s_linha[[1 TO 4]]="CUF=" THEN
EDT_autorizado_cUF=s_linha[[5 TO 6]]
END
END
EDT_autorizado_ano=EDT_LOC_ANO
EDT_autorizado_nNFIni=EDT_LOC_NumeroInicial
EDT_autorizado_nNFFin=EDT_LOC_NumeroFinal
EDT_autorizado_CNPJ=empresa.cnpj
EDT_autorizado_mod=EDT_Modelo
EDT_autorizado_serie=EDT_Serie

IF EDT_autorizado_cStat="102" THEN
_060_Grava_Inutilizacao()
_070_Grava_notas()
_071_grava_conhecimento()
_200_imprime_inutilizacao("")
_210_Email_Inutilizacao()
_100_fecha()


END


http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1310-windev-acbr-018.html

Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em dezembro, 21 2017 - 12:44 PM
Exemplo:

 NFe.EnviarEvento(
 [EVENTO]
 idLote=
 [EVENTO001]
 chNFe=43171203850874000126550010000039201000039205
 cOrgao=43
 CNPJ=03850874000126
 dhEvento=20/12/2017 21:39:00
 tpEvento=110110
 nSeqEvento=1
 versaoEvento=3.10
 descEvento=Carta de Correcao
 xCorrecao=teste de CARTA de CORRECAO matos informatica
 )

Procedure _000_000_015_acbr_uninfe()

HReadSeekFirst(parametros,codigo_parametro,1)
IF parametros.acbr_nfe=True THEN
_100_010_INICIO_CORRECAO_ACBR()
ELSE
_000_000_Inicio_Carta_Correcao()
END

Procedure _350_001_gerar_txt_acbr()

VERIFICA_ARQUIVO_SAIDA(EDT_diretorio_arquivo_saida)
_arquivo_acbr is string=[
NFe.EnviarEvento(
[EVENTO]
idLote=
[EVENTO001]
chNFe=#chNFe#
cOrgao=#cOrgao#
CNPJ=#CNPJ#
dhEvento=#dhEvento#
tpEvento=#tpEvento#
nSeqEvento=#nSeqEvento#
versaoEvento=3.10
descEvento=Carta de Correcao
xCorrecao=#xCorrecao#
)
]

d_data_hoje is Date=DateSys()
t_hora_hoje is Time=TimeSys()
EDT_dhEvento=NumToString(d_data_hoje..Day,"02d")+"/"
EDT_dhEvento+=NumToString(d_data_hoje..Month,"02d")+"/"
EDT_dhEvento+=NumToString(d_data_hoje..Year,"04d")+" "
EDT_dhEvento+=NumToString(t_hora_hoje..Hour,"02d")+":"
EDT_dhEvento+=NumToString(t_hora_hoje..Minute,"02d")+":"
EDT_dhEvento+=NumToString(t_hora_hoje..Second,"02d")

_arquivo_acbr=Replace(_arquivo_acbr,"#chNFe#",EDT_ChaveNFE)
_arquivo_acbr=Replace(_arquivo_acbr,"#cOrgao#",EDT_orgao)
_arquivo_acbr=Replace(_arquivo_acbr,"#CNPJ#",EDT_cnpj_empresa)
_arquivo_acbr=Replace(_arquivo_acbr,"#dhEvento#",EDT_dhEvento)
_arquivo_acbr=Replace(_arquivo_acbr,"#tpEvento#",EDT_tpEvento)
_arquivo_acbr=Replace(_arquivo_acbr,"#nSeqEvento#",EDT_SEQUENCIA)
_arquivo_acbr=Replace(_arquivo_acbr,"#xCorrecao#",EDT_xCorrecao)

// Txt Enviado = EDT_xml_criado
EDT_xml_criado=_arquivo_acbr
EDT_Auditoria+=_arquivo_acbr
//Sai Txt - EDT_xml_retorno
EDT_xml_retorno=VERIFICA_ARQUIVO_RETORNO(EDT_diretorio_arquivo_entrada,EDT_xml_criado,EDT_diretorio_arquivo_saida)

Procedure _400_01_retorno_txt_Acbr()
_cabecalho_xml is string=[
<?xml version="1.0" encoding="UTF-8"?>
]
EDT_Xml_retorno_autorizado=""
FOR EACH STRING s_linha OF EDT_xml_retorno SEPARATED by ["XML="]
EDT_Xml_retorno_autorizado=s_linha
END
EDT_Xml_retorno_autorizado=_cabecalho_xml+Replace(EDT_Xml_retorno_autorizado,"XML=","")
EDT_Retorno_cStat=""
EDT_Retorno_nProt=""
EDT_Retorno_dhRegEvento=""
EDT_Retorno_tpAmb=""
EDT_Retorno_xMotivo=""
EDT_Retorno_chNFe=""
EDT_Retorno_cOrgao=""
EDT_Retorno_verAplic=""
EDT_Retorno_tpEvento=""
EDT_Retorno_CNPJDest=""
EDT_Retorno_emailDest=""
EDT_sequencia_carta_correcao=""
EDT_Retorno_nSeqEvento=""

b_COMECA_AQUI is boolean=False

FOR EACH STRING s_linha OF EDT_xml_retorno SEPARATED by CR
IF s_linha[[1 TO 11]]="[EVENTO001]" THEN
b_COMECA_AQUI=True
Info("CHEGOU EVENTO")
END
IF b_COMECA_AQUI=True THEN
IF s_linha[[1 TO 6]]="cStat=" THEN
EDT_Retorno_cStat=Replace(s_linha,"cStat=","")
END
IF s_linha[[1 TO 6]]="nProt=" THEN
EDT_Retorno_nProt=Replace(s_linha,"nProt=","")
END
IF s_linha[[1 TO 12]]="dhRegEvento=" THEN
EDT_Retorno_dhRegEvento=Replace(s_linha,"dhRegEvento=","")
END
IF s_linha[[1 TO 6]]="tpAmb=" THEN
EDT_Retorno_tpAmb=Replace(s_linha,"tpAmb=","")
END
IF s_linha[[1 TO 8]]="xMotivo=" THEN
EDT_Retorno_xMotivo=Replace(s_linha,"xMotivo=","")
END
IF s_linha[[1 TO 6]]="chNFe=" THEN
EDT_Retorno_chNFe=Replace(s_linha,"chNFe=","")
END
IF s_linha[[1 TO 7]]="cOrgao=" THEN
EDT_Retorno_cOrgao=Replace(s_linha,"cOrgao=","")
END
IF s_linha[[1 TO 9]]="verAplic=" THEN
EDT_Retorno_verAplic=Replace(s_linha,"verAplic=","")
END
IF s_linha[[1 TO 9]]="tpEvento=" THEN
EDT_Retorno_tpEvento=Replace(s_linha,"tpEvento=","")
END
IF s_linha[[1 TO 11]]="nSeqEvento=" THEN
EDT_Retorno_nSeqEvento=Replace(s_linha,"nSeqEvento=","")
END
IF s_linha[[1 TO 8]]="CNPJDest=" THEN
EDT_Retorno_CNPJDest=Replace(s_linha,"CNPJDest=","")
END
IF s_linha[[1 TO 10]]="emailDest=" THEN
EDT_Retorno_emailDest=Replace(s_linha,"emailDest=","")
END

END
END

EDT_Retorno_cStat_ret=EDT_Retorno_cStat
EDT_Retorno_xMotivo_ret=EDT_Retorno_xMotivo
EDT_sequencia_carta_correcao=EDT_Retorno_nSeqEvento


http://windevdesenvolvimento.blogspot.com/2017/12/aula-1311-windev-acbr-019.html

1311 WINDEV ACBR - 019 - NFe.EnviarEvento - Carta de Correção

Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em dezembro, 24 2017 - 3:33 AM
Procedure ACBR_TROCA_CERTIFICADO()
HReadSeekFirst(parametros,codigo_parametro,1)
IF HFound(parametros) THEN
IF parametros.acbr_nfe=True THEN
HReadSeekFirst(empresa_certificado,Id_empresa,gnEmpresaCodigo)
IF HFound(empresa_certificado) THEN
s_NUMERO_SERIE is string = INIRead("Certificado","NumeroSerie","","C:\ACBrMonitorPLUS\ACBrMonitor.ini")
s_NUMERO_SERIAL is string=Replace(empresa_certificado.serial_numero," ","")
IF s_NUMERO_SERIAL=s_NUMERO_SERIE THEN
ELSE
INIWrite("Certificado","NumeroSerie",s_NUMERO_SERIAL,"C:\ACBrMonitorPLUS\ACBrMonitor.ini")
INIWrite("Certificado","Senha",empresa_certificado.senha,"C:\ACBrMonitorPLUS\ACBrMonitor.ini")
Info("ARRUMAR DIRETORIO WIN_SELECIONAEMPRESA")
s_diretorio is string="C:\amarildo\jairo\xml_acbr\PASTA\"
s_arquivo_entrada is string=s_diretorio+"ent.txt"
s_arquivo_Saida is string=s_diretorio+"sai.txt"
IF fFileExist(s_arquivo_Saida) THEN
fDelete(s_arquivo_Saida)
END
s_arquivo_acbr is string=[
ACBr.lerini()
]
fSaveText(s_arquivo_entrada,s_arquivo_acbr)
END
END
END
END

AULA 1313 WINDEV ACBR 020 - ACBR.LERINI



http://acbr.sourceforge.net/ACBrMonitor/ACBrlerini.html

http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1313-windev-acbr-020-acbrlerini.html

Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em dezembro, 26 2017 - 11:09 AM
Procedure ACBR_SET_TROCA_CERTIFICADO()
s_EDT_xml_retorno is string=""
s_EDT_localizacao_arquivo_retorno_carta is string=""
s_EDT_xml_criado is string=""
s_vem_onde is string=""
s_titulo is string=""
n_numero_nota is int=0
s_EDT_diretorio is string=""
s_EDT_diretorio_arquivo_entrada is string=""
s_EDT_diretorio_arquivo_saida is string=""
s_arquivo_acbr is string=""
HReadSeekFirst(parametros,codigo_parametro,1)
IF HFound(parametros) THEN
IF parametros.acbr_nfe=True THEN
HReadSeekFirst(empresa_certificado,Id_empresa,gnEmpresaCodigo)
IF HFound(empresa_certificado) THEN

s_EDT_diretorio="C:\amarildo\jairo\xml_acbr\PASTA\"
s_EDT_diretorio_arquivo_entrada=s_EDT_diretorio+"ent.txt"
s_EDT_diretorio_arquivo_saida=s_EDT_diretorio+"sai.txt"
// http://acbr.sourceforge.net/ACBrMonitor/NFECNPJCertificado.html
VERIFICA_ARQUIVO_SAIDA_ERPMATOS(s_EDT_diretorio_arquivo_saida)
s_arquivo_acbr=[
NFE.CNPJCertificado
]
s_EDT_xml_criado=s_arquivo_acbr
(s_EDT_xml_retorno,s_EDT_localizacao_arquivo_retorno_carta)=VERIFICA_ARQUIVO_RETORNO_ERPMATOS( ...
s_EDT_diretorio_arquivo_entrada,s_EDT_xml_criado, ...
s_EDT_diretorio_arquivo_saida,s_vem_onde, ...
n_numero_nota,s_titulo,s_EDT_diretorio)
s_EDT_xml_retorno=Replace(s_EDT_xml_retorno,"OK: ","")
s_EDT_xml_retorno=Replace(s_EDT_xml_retorno,CR,"")
s_cnpj_numero is string=s_EDT_xml_retorno
IF empresa.cnpj=s_cnpj_numero THEN
ELSE

*** PROXIMA AULA TROCAR CERTIFICADO


AULA 1314 WINDEV ACBR 021 - NFE.CNPJCertificado


http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1314-windev-acbr-021.html

Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em dezembro, 27 2017 - 10:25 AM
Procedure ACBR_SET_TROCA_CERTIFICADO()
s_EDT_xml_retorno is string=""
s_EDT_localizacao_arquivo_retorno_carta is string=""
s_EDT_xml_criado is string=""
s_vem_onde is string=""
s_titulo is string=""
n_numero_nota is int=0
s_EDT_diretorio is string=""
s_EDT_diretorio_arquivo_entrada is string=""
s_EDT_diretorio_arquivo_saida is string=""
s_arquivo_acbr is string=""
HReadSeekFirst(parametros,codigo_parametro,1)
IF HFound(parametros) THEN
IF parametros.acbr_nfe=True THEN
HReadSeekFirst(empresa_certificado,Id_empresa,gnEmpresaCodigo)
IF HFound(empresa_certificado) THEN

s_EDT_diretorio="C:\amarildo\jairo\xml_acbr\PASTA\"
s_EDT_diretorio_arquivo_entrada=s_EDT_diretorio+"ent.txt"
s_EDT_diretorio_arquivo_saida=s_EDT_diretorio+"sai.txt"
// http://acbr.sourceforge.net/ACBrMonitor/NFECNPJCertificado.html
VERIFICA_ARQUIVO_SAIDA_ERPMATOS(s_EDT_diretorio_arquivo_saida)
s_arquivo_acbr=[
NFE.CNPJCertificado
]
s_EDT_xml_criado=s_arquivo_acbr
(s_EDT_xml_retorno,s_EDT_localizacao_arquivo_retorno_carta)=VERIFICA_ARQUIVO_RETORNO_ERPMATOS( ...
s_EDT_diretorio_arquivo_entrada,s_EDT_xml_criado, ...
s_EDT_diretorio_arquivo_saida,s_vem_onde, ...
n_numero_nota,s_titulo,s_EDT_diretorio)
s_EDT_xml_retorno=Replace(s_EDT_xml_retorno,"OK: ","")
s_EDT_xml_retorno=Replace(s_EDT_xml_retorno,CR,"")
s_cnpj_numero is string=s_EDT_xml_retorno
IF empresa.cnpj=s_cnpj_numero THEN
ELSE
VERIFICA_ARQUIVO_SAIDA_ERPMATOS(s_EDT_diretorio_arquivo_saida)

s_arquivo_acbr=[
NFe.SetCertificado(#cCertificado#)
]
s_arquivo_acbr=Replace(s_arquivo_acbr,"#cCertificado#",empresa_certificado.serial_numero)
s_EDT_xml_criado=s_arquivo_acbr

(s_EDT_xml_retorno,s_EDT_localizacao_arquivo_retorno_carta)=VERIFICA_ARQUIVO_RETORNO_ERPMATOS( ...
s_EDT_diretorio_arquivo_entrada,s_EDT_xml_criado, ...
s_EDT_diretorio_arquivo_saida,s_vem_onde, ...
n_numero_nota,s_titulo,s_EDT_diretorio)

END

END
END
END

AULA 1315 WINDEV ACBR 022 - NFE.SetCertificado




http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1315-windev-acbr-022.html