Amarildo de Matos

AULA 1327 WINDEV ACBR 026 - CTE.CRIARCTE TOMADOR http://windevdesenvolvimento.blogspot.com.br/2018/01/aula-1327-windev-acbr-026-ctecriarcte.html https://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/2800-curso-acbr-com-windev-cte-2804/read.awp [infCte] versao=3.0 [ide] cCT=548 CFOP=5353 natOp=Prestacao de servico de transporte a estabelecimento comercial forPag=0 mod=57 serie=0 nCT=548 dhEmi=03/01/2018 tpImp=1 tpemis=1 procEmi=0 verProc=1.2.7 dhCont= xJust= tpCTe=0 refCTe= cMunEnv=4313409 xMunEnv=NOVO HAMBURGO UFEnv=RS modal=01 tpServ=0 cMunIni=4313409 xMunIni=RS UFIni=RS cMunFim=4307609 xMunFim=ESTANCIA VELHA UFFim=RS retira=1 xDetRetira=teste cUF=43 indGlobalizado= indIEToma=1 [toma3] toma=0 [toma4] toma=4 CNPJCPF=89184238000128 IE=0420036873 xNome=DIMAQX COMERCIO DE PECAS E MAQUINAS AGRICOLAS xFant=DIMEL MATERIAIS DE EMBALAGEM LTDA fone=5132111932 xLgr=RUA PRESIDENTE LUCENA nro=4 xCpl= xBairro=DAS ROSAS cMun=4307609 xMun=ESTANCIA VELHA cep=93600000 UF=RS cPais=1058 xPais=BRASIL [email protected]

Obrigado,, vou verificar, isso e se precisar vou mandar o log do AcbrMonitor..

https://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/2800-curso-acbr-com-windev-cte-2803/read.awp

http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1318-windev-acbr-024-ctecriarcte.html http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1320-windev-acbr-025-ctecriarcte.html

ok.. vou fazer isso Estou mandado dois compactado de log, a primeira nota, que demora mais, e a segunda que ja foi rapido. Obrigado Por Enquanto josé log_primeira_nota.rar log_segunda_nota.rar

Bom dia. A Todos. Estou com uma duvida. isso esta acontecendo a partir da ultima versao.. entao, quero ver o que eu possa estar esquecendo de fazer. Quando mando enviar nota para sefaz, na primeira vez, esta demorando um pouco. depois, voa, é algo que nao estou fazendo?. estou mandando um video mostrando isso. se precisar mandar os comandos, me avise, o que tenho de mandar Nas versoes anteriores, nao me acontecia isso. acbr_duvida.mp4 Minha Configuracao

Estou Iniciando a Fazer integracao Cte,com Acbr, Estou disponibilizando os estudos Hoje sera sobre CriarCte, AULA 1316 WINDEV ACBR 023 - CTE.CriarCTe http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1316-windev-acbr-023-ctecriarcte.html https://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/2800-curso-acbr-com-windev-cte/read.awp

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

Bom dia..Italo.. Realmente concordo contigo, uma padronização seria a saida.. Muito Obrigado Pela Resposta. Feliz Natal a todos.

Estou comecando a entender.. Atualmente é somente como componente.. Teriam ideia de tera tambem no MonitorPlus..? Obrigado ai as respostas

Abrindo o Monitor, nao consigo visular as funcoes da nota de Servico.. Ou Seria Outro Monitor..?

Bom dia.. Para Usar Nota de Serviço, como funciona, ?. voces ja tem desenvolvido para cidades: Novo Hamburgo,Sao Leopoldo,Esteio Rio Grande do Sul. se Tiver como funciona?.. Obrigado Amarildo

PEGAR O CNPJ DO CERTIFICADO s_arquivo_acbr=[NFE.CNPJCertificado] http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1314-windev-acbr-021.html

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

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=43171203850874000126550010000039201000039205cOrgao=43CNPJ=03850874000126dhEvento=20/12/2017 21:39:00tpEvento=110110nSeqEvento=1versaoEvento=3.10descEvento=Carta de CorrecaoxCorrecao=teste de CARTA de CORRECAO matos informatica) http://windevdesenvolvimento.blogspot.com.br/2017/12/aula-1311-windev-acbr-019.html

Finalmente Terminei a Carta de correcao: Vou deixar o Exemplo Abaixo e a aula que fiz sobre isso.: 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 ) 1311 WINDEV ACBR - 019 - NFe.EnviarEvento - Carta de Correção https://www.youtube.com/watch?v=FNqp_FWyAbM http://windevdesenvolvimento.blogspot.com/2017/12/aula-1311-windev-acbr-019.html

Esqueci de Dar um Bom Dia Tambem.. Bom Dia.. So para Avisar.. Atualizei . e Agora, funcionando Novamente Muito Obrigado Pela Atencao.

Muito Obrigado.. vou fazer isso..

Estou tendo um Problema.. Comecou ontem.. Estou mandando a nota 3911 e o retorno vem com o nome do arquivo com a chave da nota anterior.. estou a varios dias testando e somente a partir de ontem deu isso. Se puderem me ajudar. Agradeço. estou com a versão : 1.1.0.48 Amarildo Matos Informatica ent.txt sai.txt Na primeira imagen , eu mudei as configuracoes.. conforme acima

Sim.. Esse trecho é do help, que copiei apenas para mostrar.

Bom dia. Estive Procurando exemplos de fazer carta de correcao em txt. e nao encontrei. nem nos exemplos, que vem no instalador. Será que poderia me ajudar?.. Muito Obrigado NFE.EnviarEvento Viu que é esse comando. Obrigado Amarildo

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

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)

Muito Obrigado. Agradeço Amarildo

Bom dia.. Queria apenas uma opiniao. Na Nfe, estou usando o modeo sincrono. Para Nfc-e, me dizeram que o modo assincrono é melhor de usar, por causa das quantidades de itens. O que voces acham? Obrigado Amarildo - Matos Informatica