raosistemas

Com a finalidade de facilitar o serviço para uma contabilidade, ao dar entrada em minha nota eu altero o XML com os nossos códigos internos (campo cProd) dos itens. Quando eu salvo o PDF ok, fica certinho os meus códigos no arquivo pdf que envio para a contabilidade (gravo em uma pasta separada), porém o mesmo não ocorre quando salvo o XML, que mantem o codigo original. seguem os dois arquivos. 35191120786961000180550010000175721405535168-nfe.pdf 35191120786961000180550010000175721405535168-nfe.xml

Fiz tambem um downgrade para a revisão 18800... de janeiro... recompilei e meu sistema voltou a funcionar... vou criar uma maquina virtual para ir atualizando o componente somente nela e ir fazendo os testes.

bem, achei uma versão do meu sistema de janeiro que está funcionando... por enquanto vai resolver.

nossa... estou quebrando a cabeça com isso... na verdade no meu eu nao coloquei as configuracoes da ssllib, cryptolib, etc... já ta tudo definido no componente... no demo, carreguei para enviar o xml gerado pelo meu sistema e foi de boa... verifiquei se faltava declarar alguma unit... refiz tudo com base no demo... nada... se alguém puder me dar um suporte pago via teamviewer... favor entrar em contato... ainda estou quebrando a cuca aqui com esse access violation...

Oi daniel, no demo nao deu problema, gerou e perguntou a senha do certificado. o problema está quando vai ASSINAR. já fuçei em tudo aqui e nada... o executável que gerei em fevereiro funciona... só o novo que não.

na minha máquina funcionou como crycapicom httpindy libcapicomdelphisoap xsmsxmlcapicom pediu a senha do certificado...

beleza... já imaginava... mas o erro persiste... no enviar do demo tambem...

consulta do status do serviço normal... pede o pin, retorna, normal... acabei de atualizar todo o windows... sistema operacional 64bits e o meu sistema 32 bits... as dlls libxml2 nao funcionam com a versao 64 bits... só quando copio a 32 bits... é normal isso? ao copiar a versao 64 bits ao tentar transmitir dá o erro... ERRO ao inicializar a biblioteca libxml2

em um cliente dá esse erro ao tentar transmitir a nota. windows 10 como atualização 1909 (ultima) crywincrypt httpWinhttp libwincrypt xslibxml2 lts1_2 o problema ocorre só nesse cliente.

salvei o meu txt que eu estava carregando com no body no formato ANSI... tudo certinho... e fica pra quem estiver o mesmo problema...

coloquei essa codificacao no idecharset e no defaultcharset... aí o conteúdo que já existira no html bagunçou e o conteúdo que coloquei via codigo ficou correto.

todasobs:=''; ACBrMail1.Clear; acbrmail1.IsHTML:=true; ACBrMail1.Subject:=edtassuntolembrete.Text; ACBrMail1.Body.Clear; ACBrMail1.Body.LoadFromFile(ExtractFilePath(ParamStr(0))+'\imagens\emailboleto.html'); acbrmail1.AddAttachment(ExtractFilePath(ParamStr(0))+'\imagens\rao_exclamacao.png','LOGOALERTA'); acbrmail1.AddAttachment(ExtractFilePath(ParamStr(0))+'\imagens\rao_logoboleto.jpg','LOGOBOLETO'); acbrmail1.AddAttachment(ExtractFilePath(ParamStr(0))+'\imagens\rao_160x63.png','LOGOEMPRESA'); acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_TELEFONE',edtEmitFone.Text,[rfReplaceAll]); acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_CLIENTE','Rogério Alves de Oliveira',[rfReplaceAll]); acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_NF','000001',[rfReplaceAll]); acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_DOC','00001/1',[rfReplaceAll]); acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_VALOR','R$ 0,01',[rfReplaceAll]); acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_VCTO','00/00/0000',[rfReplaceAll]); acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_CODIGOBARRAS','32322 232233 32223.232323 1 33234334344333',[rfReplaceAll]); acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_MULTA','10',[rfReplaceAll]); acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_JUROSDIA','0,033',[rfReplaceAll]); acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_DIASPROTESTO','3',[rfReplaceAll]); acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_EMAIL',edtemail.Text,[rfReplaceAll]); acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_EMPRESA',edtEmitRazao.Text,[rfReplaceAll]); acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_DATAHORA',formatdatetime('dd/mm/yyyy - hh:nn',now),[rfReplaceAll]); acbrmail1.Body.Text := StringReplace(acbrmail1.Body.Text,'RAO_CODCLIENTE','567',[rfReplaceAll]); charset no html está UTF8, acbrmail configurado como UTF8... ao enviar o email recebo todos os caracteres que estão acentuados com caracteres tipo "japoneses".. só os que eu usei o string replace. para os que já existiam dentro do html que estou carregando estão todos ok.

e qual a forma correta que devo preencher Agencia / digito... com as alteracoes que fiz e que já consegui homologar preenchi dessa forma agencia 0040 / digito 0 ai no boleto sai 00400/numerodocumento. Obrigada!

na verdade, tambem nao funcionou, tive que fazer o seguinte... Padright(copy(Agencia,2,4), 4, '0')+'0' +

precisei alterar todos os... Padright(Agencia, 5, '0') para... Padleft(Agencia, 5, '0') só assim consegui autorização para emitir os boletos... configuracao da agencia: 0040 - digito 0 no boleto assim saia 00400/numero... ma na agencia saia 00040 e nao o 00400...

Obrigado Daniel, foi pura falta de atenção mesmo, estava em um computador com uma tela menor, só ele não aparecia...

Boa tarde galera, mudou algo no componente acbrcep? não vejo mais a seleção do webservice.

Oi @BigWings, pode me mostrar como fazer isso? existe um método para testar o schema ou faço pelo fim do nome do arquivo? e como salvo manualmente? Desculpe, já vi como testar, só preciso saber como salvar... muito obrigado.

Boa tarde, estou realizando a consulta através de um sistema de integração com fornecedores. Minha última consulta retornou um ultimonsu = 38670. porém informou existirem documentos posteriores. ao realizar uma nova consulta utilizando o ultimonsu acima retornou consumo indevido (primeira consulta com ultnsu = 0) as novas consultas apenas mostram consumo indevido, pedem pra aguardar uma hora e mostram o ultnsu 41540... como devo proceder? não consigo mais consultar a partir do meu último nsu gravado?

Galera, bom dia... estou usando um botão para consulta, gravando o ultimo nsu e consultando por ele. mesmo assim dá consumo indevido, é por consulta ou documentos retornados?

Consegui aqui, o esquema era o seguinte... na importacao de arquivos do proprio demo... ele tenta ler o txt e depois o xml... mas já contornei aqui, obrigado. no download automatico dos DFes tem como eu selecionar só arquivos de nota para baixar?

Voltando ao assunto @BigWings, a questão é que o meu sistema faz uma varredura na pasta downloads (documentos baixados automaticamente pelo acbnfe1) e quando não é nfe dá o erro acima. a procedure de leitura do arquivo é a seguinte: begin try ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.Add; NFeRTXT := TNFeRTXT.Create(ACBrNFe1.NotasFiscais.Items[0].NFe); NFeRTXT.CarregarArquivo(arquivo); if NFeRTXT.LerTxt then NFeRTXT.Free else begin NFeRTXT.Free; ACBrNFe1.NotasFiscais.Clear; try ACBrNFe1.NotasFiscais.LoadFromFile(arquivo); StatusBar1.Panels[2].text:='Arquivo NFe Carregado!!!'; except showmessage('1'); StatusBar1.Panels[2].text:='Arquivo NFe Inválido'; label_aviso.Caption:='Inválido'; exit; end; end; except StatusBar1.Panels[2].text:='Arquivo NFe Inválido'; label_aviso.Caption:='Inválido'; exit; end; erro ocorre na função carregar arquivo!

O erro e no nfetxt ao tentar carregar a nota. Isso quando o arquivo e um evento ou resumo nfe.

configurei o path do download no ACBRNFE, mas como vem tudo o sistema não distingue o tipo de xml, posso fazer alguma coisa antes de tentar carregar o xml, por ex, se eu tentar carregar um xml de evento dá "ARGUMENT OUT OF RANGE", mesmo dentro de um bloco try... except... quando carrego um xml vai normal. como consigo testar o xml antes?

Descobri o Pq, estava usando items[0] e não ... agora já estou tratando diferentemente itens Dfe e itens Evento. o que preciso agora @BigWings se puder me ajudar é como baixar esses documentos pra uma pasta específica.