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)

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

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

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

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

AULA 1301 WINDEV ACBR - 011 - NFE.CriarNFe 2A PARTE http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1301-windev-acbr-012-nfecriarnfe.html

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

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

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

Estou Desenvolvendo Esse Curso de integraçãoEntre Windev e AcbrTem 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