Jump to content

prismars

Membros
  • Content Count

    91
  • Joined

  • Last visited

  • Days Won

    1

prismars last won the day on September 7

prismars had the most liked content!

Community Reputation

16 Good

About prismars

  • Rank
    Membro

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Graça, Obrigado pelo retorno e desculpe pela demora em dar um retorno. Problema totalmente resolvido!
  2. Boa Noite senhores, Ao gerar a Dacte do Cte de substituição observei pequenas distorções na largura de alguns campos. Em anexo o PDF gerado. Grato ! NIMEC_CTe_Substituicao58115.pdf
  3. Senhores, erro encontrado! Ao informar o CTe de anulação e o CTe a ser substituído eu INVERTI as chaves passando o CTe de anulação como o CTe a ser substituído !! Agradeço desde já atenção dispensada e acredito que podemos encerrar este post. Grato a todos que de uma forma ou de outra colaboraram!
  4. Italo, Fiz nova geração agora e realmente a tag esta lá no XML. Falha minha ao verificar um XML antigo, peço desculpas. Mas curiosamente o erro persiste... ("511-Rejeição: CNPJ/CPF do remetente do CT-e substituto deve ser igual ao informado no CT-e substituído"). Mais alguma dica ? Grato!
  5. Grato pelo retorno Italo! Mas como podes observar no xml que enviei anteriormente o ide.tcCTe é 3 (tcSubstituto), a versão é 3.00 e o indAlteraToma = tiSim (Acompanhei pelo debugger e a condição IF é executada). Ou deixei passar alguma coisa ? Grato desde já.
  6. Hoje estou fazendo o meu primeiro CTe de substituição e recebo a seguinte mensagem de rejeição: "511-Rejeição: CNPJ/CPF do remetente do CT-e substituto deve ser igual ao informado no CT-e substituído" Observei no XML gerado que a tag "indAlteraToma" não é gerada, embora eu a esteja marcando com tiSim ou tiNao, conforme o caso. " if DM.qryConsulta.FieldByname('A06CLI').AsString<>sCNPJToma then infCTeNorm.infCteSub.indAlteraToma := tiSim else infCTeNorm.infCteSub.indAlteraToma := tiNao; " Os demais campos em infCTeNorm.infCteSub são gerados normalmente. Anexo o XML gerado. Qualquer dica ou comentário é muito bem vindo. Grato. 43191088057146000114570010000582921808376442-cte.xml
  7. Obrigado ! Vou verificar. Gratidão
  8. Senhores, Estou usando o exemplo fornecido para tentar entender melhor as rotinas do TEF mas estou com um problema. Estão ocorrendo os seguintes erros ao retornar do Teclado Virtual que simula o Pin-Pad: Project TEFDemo.exe raised exception class Exception with message 'Campo "TotalPago" não encontrado.'. Project TEFDemo.exe raised exception class Exception with message 'Campo "TotalAPagar" não encontrado.'. E o teclado e mouse ficam desativados obrigando a reiniciar o micro. Alguma dica de como resolver ? Grato.
  9. Perfeito! Resolvido o problema. Meu muito obrigado. Forte abraço!
  10. Bematech MP-4200 TH Fi II ecfBematech COM3 Grato pelo interesse !
  11. Bom Dia, Preciso implementar o TEF na minha aplicação e ao estudar o exemplo fornecido não estou conseguindo ATIVAR o ECF, sendo que o mesmo funciona corretamente em outros aplicativos. O erro retornado é "Impressora Bematech não responde (ACK = 0)". Configurei exatamente como uso em outras aplicações mas sem sucesso. As DLL´s da bematech estão na mesma pasta do aplicativo. Alguma sugestão de solução ? Toda e qualquer contribuição será bem vinda . Grato!
  12. prismars

    Erro CTe

    Estou com o mesmo problema e a solução temporária encontrada foi fazer a "Recuperação do XML" e a atualização do mesmo na base de dados. Neste caso retorna com a autorização e ai podemos dar continuidade ao processo.
  13. prismars

    Erro CTe

    Estou com o mesmo problema
  14. Matou a charada ! Estava com este problema e com esta dica resolveu. Gratidão ! Moacir
  15. Boa Tarde senhores, Ao analisar o arquivo ACBrBPeDABPeESCPOS.pas verifiquei se os dados da Agência estão sendo preenchidos sempre com os dados do emitente. Procedi com a alteração abaixo para que na falta de informação da agencia seja usado os dados do emitente. procedure TACBrBPeDABPeESCPOS.GerarCabecalhoAgencia; begin FPosPrinter.Buffer.Add('</zera></ce></logo>'); if trim(FpBPe.agencia.xNome)<>'' then begin FPosPrinter.Buffer.Add('</ce><c>'+ FormatarCNPJ(FpBPe.agencia.CNPJ) + ' <n>' + FpBPe.agencia.xNome + '</n>'); FPosPrinter.Buffer.Add('<c>' + QuebraLinhas(Trim(FpBPe.agencia.EnderAgencia.xLgr) + ', ' + Trim(FpBPe.agencia.EnderAgencia.nro) + ' ' + Trim(FpBPe.agencia.EnderAgencia.xCpl) + ' ' + Trim(FpBPe.agencia.EnderAgencia.xBairro) + ' ' + Trim(FpBPe.agencia.EnderAgencia.xMun) + '-' + Trim(FpBPe.agencia.EnderAgencia.UF) , FPosPrinter.ColunasFonteCondensada) ); end else begin FPosPrinter.Buffer.Add('</ce><c>'+ FormatarCNPJ(FpBPe.Emit.CNPJ) + ' <n>' + FpBPe.Emit.xNome + '</n>'); FPosPrinter.Buffer.Add('<c>' + QuebraLinhas(Trim(FpBPe.Emit.EnderEmit.xLgr) + ', ' + Trim(FpBPe.Emit.EnderEmit.nro) + ' ' + Trim(FpBPe.Emit.EnderEmit.xCpl) + ' ' + Trim(FpBPe.Emit.EnderEmit.xBairro) + ' ' + Trim(FpBPe.Emit.EnderEmit.xMun) + '-' + Trim(FpBPe.Emit.EnderEmit.UF) , FPosPrinter.ColunasFonteCondensada) ); end; end; Testei e passou a preencher da maneira correta. Abraço, Moacir ACBrBPeDABPeESCPOS.pas
×
×
  • Create New...