Windev21 Aulas,Estudos e Desenvolvimento: 12/21/17

VIDEO SOBRE CARTA CORRECAO ACBR WINDEV

VIDEOS AO VIVO ANTES DE FAZER A AULA DA CARTA DE CORREÇÃO
NAO ESQUEÇA DO JOINHA

ACBR INSTALAR - INICIO - ACBR 001 - AULA 1291
ACBR - COMO CONFIGURAR - ACBR 002 - AULA 1292
STATUS SERVICO - ACBR 003 AULA 1293
DANF ACBR PARTE 1 - ACBR 004 AULA 1294

DANF PDF ACBR - ACBR 005 AULA 1295

CONSULTA NFE - ACBR 006 AULA 1296

CADASTRO CONTRIBUINTE ACBR - ACBR 007 AULA 1297
ACBR AJUSTES PROCEDURES - ACBR 008 AULA 1298
NCM DESCRICAO - ACBR 009 AULA 1299
NFE.CRIANFE 1A PARTE ACBR 010 AULA 1300
NFE.CRIARNFE 2A PARTE ACBR 011 AULA 1301
NFE.CRIARNFE 3A PARTE CODE ACBR 012 AULA 1302
NFE.ENVIARNFE ACBR 1A PARTE ACBR 013 AULA 1303
NFE ENVIARNFE ACBR 2A PARTE ACBR 014 AULA 1304
NFE ENVIARNFE ACBR 3A PARTE ACBR 015 AULA 1306
NFE ENVIARNFE ACBR 4A PARTE ACBR 016 AULA 1308
NFE.CancelarNFE WINDEV ACBR 017 AULA 1309
INUTILIZAR ACBR 018 AULA 1310
CARTA CORRECAO - NFe.EnviarEvento - ACBR 019 AULA 1311
LERINI ACBR CONFIGURACAO 020 AULA 1313

TUTORIAL INSTALAÇÃO ACBR http://www.pctoledo.com.br/forum
ANDRE MORAES - http://anfm.blogspot.com.br/2009/09/campos-para-criar-uma-nfe-usando-o.html
PROJETO ACBR MONITOR - https://www.projetoacbr.com.br/acbrmonitor-3
COMO BAIXAR FONTE ACBR - http://www.pctoledo.com.br/forum
FORUM ACBR - https://www.projetoacbr.com.br/forum/files/
http://anfm.blogspot.com.br/
HELP ON-LINE

ACBR SITE

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

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

Páginas

quinta-feira, 21 de dezembro de 2017

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

VIDEO SOBRE CARTA CORRECAO ACBR WINDEV

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