CURSO ACBR COM WINDEV

[Amarildo de Matos]

Estou Desenvolvendo Esse Curso de integração
Entre Windev e Acbr
Tem muitos Recurso, Já esta na Aula 7 - Consulta Cadastro Contribuinte

 

http://windevdesenvolvimento.blogspot.com.br/2017/11/aula-1291-windev-abcb-001-nfe-nfec.html

 

[Amarildo de Matos]

http://windevdesenvolvimento.blogspot.com.br/2017/11/aula-1292-windev-acbr-configuracao.html

http://windevdesenvolvimento.blogspot.com.br/2017/11/aula-1293-windev-acbr-003-status-servico.html

http://windevdesenvolvimento.blogspot.com.br/2017/11/aula-1294-windev-acbr-004-danf-parte-1.html

http://windevdesenvolvimento.blogspot.com.br/2017/11/aula-1295-windev-acbr-005-danf-em-pdf.html

http://windevdesenvolvimento.blogspot.com.br/2017/11/aula-1297-windev-acbr-006-consulta-nfe.html

http://windevdesenvolvimento.blogspot.com.br/2017/11/aula-1297-windev-acbr-007-consulta.html

http://windevdesenvolvimento.blogspot.com.br/2017/11/aula-1298-windev-acbr-008-ajustando.html

 

 

 

[Amarildo de Matos]

http://windevdesenvolvimento.blogspot.com.br/

 

 

[Amarildo de Matos]

AULA 1300 WINDEV ACBR 010 NFE CriarNFe

no Txt anexado, está o Modelo Txt.

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

 

 

 

 

 

MODELO_AMARILDO.txt

[Amarildo de Matos]

AULA 1301 WINDEV ACBR - 011 - NFE.CriarNFe 2A PARTE

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

 

[Amarildo de Matos]

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

 

 

[Amarildo de Matos]

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

 

[Amarildo de Matos]

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

 

Editado 7 Dezembro, 2017 por Amarildo de Matos

[Amarildo de Matos]

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

 

 

[Amarildo de Matos]

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

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")
 

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)
 

 

 

[Amarildo de Matos]

AULA 1309 WINDEV ACBR - 017 - NFE.CancelarNFe

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=

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

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)

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

ROCEDURE 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

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

http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1309-windev-acbr-017-nfecancelarnfe.html

 

 

[Amarildo de Matos]

AULA 1310 WINDEV ACBR - 018 - NFE.InutilizarNFe

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

 

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

 

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
)
 

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

 

 

[Amarildo de Matos]

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

s_arquivo_acbr is string=[
                    ACBr.lerini()
                ]

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
 

 

[Amarildo de Matos]

PEGAR O CNPJ DO CERTIFICADO

s_arquivo_acbr=[
NFE.CNPJCertificado
]

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

 

 

[Amarildo de Matos]

NFE.CNPJCertificado

como trocar o certificado

AULA 1315 WINDEV ACBR 022 - NFE.SetCertificado

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

https://www.youtube.com/watch?v=-GTwG0TVyp8