prismars

Bom Dia, Cenário: Delphi 10.3, acbr completamente atualizado Ao imprimir ou visualizar uma Danfe no WIndows 11 a mesma fica desconfigurada (pdf em anexo), mas em outras versões do windows continua perfeita. Alguma dica ou sugestão ? Grato, Moacir 43221248373354000108550020000000051000000068.pdf

Juliomar, Alguma dica de como resolver isto ?? Eu estou realmente perdido

Juliomar, Pior, deu uma pane no meu windows e perdeu o usuário.. Já reinstalei tudo aqui e ao testar ao compilar uma aplicação aparece este erro... Grato desde já.

Bom Dia, Após uma pane em minha máquina de trabalho e posterior reinstalação do ACBR no Delphi XE2 passei a ter este erro: "PFXDataToCertContextWinApi: Falha em "PFXImportCertStore" Erro: 80090024" Alguem tem alguma dica para me ajudar ? Grato!

Boa Tarde, Após analisar o problema com calma consegui soluciona-lo. SEMPRE que o seu MDFe tiver um único CTe basta informar mais dois campos a saber: if iQtdCte=1 then begin // Informações do Local de Carregamento // Informar somente quando MDF-e for de carga lotação (1 unico CTe) prodPred.infLocalCarrega.CEP := StrToInt(sCepOri) ; prodPred.infLocalDescarrega.CEP := StrToInt(sCepDes) ; end Alem dos campos obrigatórios em qualquer caso, prodPred.tpCarga e prodPred.xProd No meu caso uso o Cep da agência expedidora e da agência recebedora da carga. Espero ter colaborado de alguma forma.

Boa Noite, Estou aqui passando pelas mesmas dificuldades do colega Eduardo. Se houver somente um CTe no MDFe ele apresenta o erro reportado, quando existem mais CTe´s a emissão ocorre sem problemas. O que deveria ser alterado no caso de somente 1 CTe para que o mesmo seja aceito ? Anexo os dois XML´s, um com o erro citado e com somente um CTe e outro que emitiu corretamente com mais de 1 CTe. Grato desde já, MDFe_Erro.xml MDFe_OK.xml

Graça, Obrigado pelo retorno e desculpe pela demora em dar um retorno. Problema totalmente resolvido!

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

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!

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!

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á.

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

Obrigado ! Vou verificar. Gratidão

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.

Perfeito! Resolvido o problema. Meu muito obrigado. Forte abraço!

Bematech MP-4200 TH Fi II ecfBematech COM3 Grato pelo interesse !

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!

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.

Estou com o mesmo problema

Matou a charada ! Estava com este problema e com esta dica resolveu. Gratidão ! Moacir

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

Bom Dia, O componente esta gerando a tag dhValidade em duplicidade. O problema ocorre em C:\componentesXE2\ACBr_2\Fontes\ACBrDFe\ACBrBPe\PCNBPe\pcnBPeW.pas nas linhas 536 e 537. "536 Gerador.wCampo(tcStr, '#087', 'dhValidade', 25, 25, 1, DateTimeTodh(BPe.infPassagem.dhEmb) + GetUTC(CodigoParaUF(BPe.ide.cUF), BPe.infPassagem.dhValidade), DSC_DHVALIDADE); 537 Gerador.wCampo(tcStr, '#087', 'dhValidade ', 25, 25, 1, DateTimeTodh(BPe.infPassagem.dhValidade) + GetUTC(CodigoParaUF(BPe.ide.cUF), BPe.infPassagem.dhValidade), DSC_DHVALIDADE);" Comentei a linha 536 (tornando obrigatório informa a data de validade) e o problema se resolveu. Grato, Moacir pcnBPeW.pas

Boa Tarde, Atualize para a última versão do ACBr. O meu problema aqui resolveu com a atualização que fiz hoje pela manhã. Abraços, Moacir

Boa tarde, Não estou mais conseguindo consultar o cadastro de contribuintes com a função ConsultaCadastro da NFe. Testei a pouco com o exemplo disponibilizado e tambem ocorreu o mesmo erro. Retorna o retWS com o seguinte conteudo: "<?xml version="1.0" encoding="utf-8"?><soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><soap:Body><soap:Fault><soap:Code><soap:Value>soap:Sender</soap:Value></soap:Code><soap:Reason><soap:Text xml:lang="en">System.Web.Services.Protocols.SoapException: Unable to handle request without a valid action parameter. Please supply a valid soap action. at System.Web.Services.Protocols.Soap12ServerProtocolHelper.RouteRequest() at System.Web.Services.Protocols.SoapServerProtocol.Initialize() at System.Web.Services.Protocols.ServerProtocol.SetContext(Type type, HttpContext context, HttpRequest request, HttpResponse response) at System.Web.Services.Protocols.ServerProtocolFactory.Create(Type type, HttpContext context, HttpRequest request, HttpResponse response, Boolean&amp; abortProcessing)</soap:Text></soap:Reason><soap:Detail /></soap:Fault></soap:Body></soap:Envelope>" Qualquer ajuda é bem vinda. Grato, Moacir

Grato BigWings, Era exatamente isto, mas a pressão para terminar e a desatenção não ajudaram. Agradeço tua ajuda. Abraço!