samuelxingu

Olá assim que postei, consegui matar a charada, não tinha prestado atenção que tinha sido escolhido a opção : Ide.tpEmit := teTransportadora; nesse caso so permite CT-e, a escolha correta é: Ide.tpEmit := teTranspCargaPropria; case FLancMDFe.CbTipoEmitente.ItemIndex of 0: Ide.tpEmit := teTransportadora; 1: Ide.tpEmit := teTranspCargaPropria; end; Pode fechar o topico.

Olá amigos, Hoje um cliente preciosou emitir um MDF-e, poré retornou a mensagem do título, fiz o teste e percebi que as chaves de NF-e não estavam sendo implementadas como naturalmente acontece, peguei o componente atualizado e depois de fazer alguns teste percebi que CT-e gera normalmente, mas nfe não, fiz algumas pequisas porém sem sucesso, não sei se para nfe não precisa mais emitir mdfe, alguém poderia me dar uma ajuda, vou postar a parte do codigo para que alguem possa ver se mudou a forma de identificar nfe: with infNFe.New do begin chNFe := '35220522595344000123550010000027261709160129'; // Informações das Unidades de Transporte (Carreta/Reboque/Vagão) with infUnidTransp.New do begin //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros ); tpUnidTransp := utRodoTracao; idUnidTransp := 'ABC1234'; // informar a placa se rodoviário with lacUnidTransp.New do begin nLacre := '123'; end; // Informações das Unidades de carga (Containeres/ULD/Outros) with infUnidCarga.New do begin // TpcnUnidCarga = ( ucContainer, ucULD, ucPallet, ucOutros ); tpUnidCarga := ucOutros; idUnidCarga := 'AB45'; // informar o numero da unidade da carga with lacUnidCarga.New do begin nLacre := '123'; end; qtdRat := 1.0; end; qtdRat := 1.0; end; end; // fim do with with infCTe.New do begin chCTe := '35110803911545000148570010000001021000001023'; // Informações das Unidades de Transporte (Carreta/Reboque/Vagão) with infUnidTransp.New do begin //TpcnUnidTransp = ( utRodoTracao, utRodoReboque, utNavio, utBalsa, utAeronave, utVagao, utOutros ); tpUnidTransp := utRodoReboque; idUnidTransp := 'XYZ5678'; with lacUnidTransp.New do begin nLacre := '321'; end; // Informações das Unidades de carga (Containeres/ULD/Outros) with infUnidCarga.New do begin // TpcnUnidCarga = ( ucContainer, ucULD, ucPallet, ucOutros ); tpUnidCarga := ucOutros; idUnidCarga := 'DD98'; with lacUnidCarga.New do begin nLacre := '321'; end; qtdRat := 1.0; end; qtdRat := 1.0; end; end; // fim do with end;

Muito obrigado Juliomar Marchetti Debuguei o codigo, e percebi que em alguns casos estava incrementando o numero da nota duas vezes. Resolvido

Olá amigos, estou efrentando um problema pois de um tempo para car vez ou outra ao enviar uma uma nfce apresenta esse erro: DigestValue do documento (xave da nata) não confere estou usando o componente dessa forma: ACBrNFe1.Enviar(vNumLote,True,Sincrono); Não sei se por algum motivo não esta gravando o arquivo e quando envio novamente o sistema não encontra o arquivo gerado para consultar, não é senpre que acontece é de vez em quando, alguem poderia me dar uma luz para uma solução.

Resolvido! Muito obrigado Juliomar Marchetti pela ajuda, resolvi, limpando e recontruindo o projeto. Aí compilou normalmente.

Resolvi, comentando o end anterior e ai comilou, porém aparece o seguinte erro ao executar o ACBrMonitor: Alguém pode me ajudar?

Olá amigos, estou compilando o ACBrMonitosPlus no Lazarus, porém aparece uma falha no ACBrLibSocialResporta, alguém poderia me dar uma dica de como resolver.

Olá amigos, estou tentado mais não consegui, por isso estou recorrendo a comunidade: quando uso o camando: ACBrNFe1.DistribuicaoDFePorNSU(StrToInt(cUFAutor), CNPJ, ANSU); ou ACBrNFe1.DistribuicaoDFePorUltNSU(StrToInt(cUFAutor), CNPJ, AultNSU); - passando o NSU = 0, retorna o seguinte comando: Atenção...: Não existem mais registros disponíveis. Atenção...: Aguarde 1 hora para a próxima consulta. Qtde Documentos Retornados: 0 Status....: 137 Motivo....: Nenhum documento localizado Último NSU: 000000000000000 Máximo NSU: 000000000000000 Documentos Retornados: - passando o NSU = 1, retorna: Inicio TDistribuicaoDFe Versão Layout: 1.01 Ambiente: 1 Versão Aplicativo: 1.6.2 Status Código: 589 Status Descrição: Rejeicao: Numero do NSU informado superior ao maior NSU da base de dados do Ambiente Nacional Resposta: 15/06/2023 11:07:54 Último NSU: 000000000000000 Máximo NSU: 000000000000000 - se algum colega puder me dar uma dica de como proceder, ficarei muito grato. Desde já muito obrigado.

Para resolver esse problema basta não mais limpar a as instancias do componente como abaixo, caso tenha alguma linha dessas em seu algoritmo, basta desabilitar // ACBrNFe1.CleanupInstance; // ACBrNFeDANFCeFortes1.CleanupInstance; // ACBrNFeDANFeESCPOS1.CleanupInstance; // ACBrPosPrinter1.CleanupInstance;

Para resolver esse problema basta não mais limpara as instancias do componente como abaixo, caso tenha alguma linha dessas em seu algoritmo, basta desabilitar // ACBrNFe1.CleanupInstance; // ACBrNFeDANFCeFortes1.CleanupInstance; // ACBrNFeDANFeESCPOS1.CleanupInstance; // ACBrPosPrinter1.CleanupInstance;

A solução que encontrei foi utilizar o componente ACBrNFeDANFeESCPOS com o ACBrPosPrinter, o cupom fica um pouco maior porém funciona sem problemas.

Sempre que envio uma impressão NFCe utilizado o componente ACBrNFeDANFCeFortes em uma impreesora MP-4200 abre a gaveta, porem após abrir a gaveta só consigo abrir a gaveta quando um cupom é impresso, outros comendo de abertura de gaveta que não seja através de impressão não funcionam, usei o recurso de DLL, o componente ACBrGaveta, só funcionam até o primeiro cupom ser impresso, após isso só se desligar a impressora e religar novamente. Como faço para limpar o buffer da impressora apósa impressão para que os demais comando de abertura de gaveta possa continuar funcionando. Agradeço a todos que puder me ajudar.

Oi, eu tenho interesse em adquirir o seu produto, só me diga como faço.

Boa tarde! Eu tenho interesse, como faço.