Painel de líderes

Tive um problema na última atualização de NFC-e em contigência (Off-line). O erro é que está tentando validar antes de assinar, sendo que o XML é gerado somente na assinatura pelo que parece. ACBrECFVirtualNFCe.pas

Bom dia @Juliomar Marchetti Imagina, eu é que agradeço a vcs por sempre estarem a disposição, é bom poder contribuir para o projeto ACBR... Abraços @Fábio Eduardo de Souza

Bom dia estarei me adiantando a ele para já estar ok no svn! obrigado pela colaboração já está no svn

@magnosystem, Que tenha internet ou não, SEMPRE terá que ser coletado essas informações MANUALMENTE, tendo em vista que o RETORNO do VerificaStatusValidor NÃO TRAS essas informações. Estou certo?

Boa tarde. A fonte das informações pode ser a qual ele considerar mais adequada. Vc pode mandar o comprovante pra ser impresso pelo POS, vc preenche esse campo qdo quiser que o POS imprima, senão vc manda em branco. Caso ainda restem dúvidas a serem esclarecidas, o ideal é criar um novo tópico com os detalhes da mesma. Att.

Bom dia, É possível apenas incluir um novo motorista no manifesto que está em aberto: ACBrMDFe1.EventoMDFe.Evento.Clear; ACBrMDFe1.EventoMDFe.idLote := XNumeroLote; with ACBrMDFe1.EventoMDFe.Evento.Add do begin InfEvento.chMDFe := xChaveAcesso; infEvento.CNPJ := xCNPJ; infEvento.dhEvento := Now; infEvento.tpEvento := teInclusaoCondutor; infEvento.nSeqEvento := nSeqEvento; infEvento.detEvento.nProt := xProtocolo; infEvento.detEvento.xNome := xNomeMotoristaAIncluir; infEvento.detEvento.CPF := xCPFMotorista; end; // Enviar o evento inclusao de condutor if ACBrMDFe1.EnviarEvento(xNumeroLote) then begin

Veja qual versão do Lazarus você instalou... se for a versão 64 bits ela vem com o FPC 64 bits, e portanto o seu .EXE dependerá de DLLs de 64 bits https://www.lazarus-ide.org/index.php?page=downloads Se você instalou o "Cross Compiling", pode selecionar o tipo de binário em: http://wiki.lazarus.freepascal.org/Cross_compiling#From_win32_to_win64

consegui resolver o meu problema fazendo a seguinte mudança alterei a ACBrNFeDANFEFRDM.pas na procedure CarregaPagamento if vTroco > 0 then begin Last; Edit; FieldByName('vPag').AsFloat := FieldByName('vPag').AsFloat + vTroco; Post; Append; FieldByName('tPag').AsString := 'Troco R$'; FieldByName('vPag').AsFloat := vTroco; Post; end;