Jump to content

dev botao

Comprovante Evento de Excesso de Bagagem


Go to solution Solved by Italo Giurizzato Junior,
  • Este tópico foi criado há 1488 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Boa tarde,

Ao enviar um evento de excesso de bagagem não esta sendo impresso o comprovante, estou fazendo algo errado ou não imprime mesmo?

    with DMBPe.ACBrBPeSub.EventoBPe.Evento.New do  // Deve ser posterior a data e hora do embarque
    begin
        InfEvento.CNPJ            := FDMBPe.ACBrBPe.Bilhetes.Items[0].BPe.Emit.CNPJ; // passa o CNPJ do emitente
        infEvento.chBPe           := FDMBPe.CDSComBilheteBPe.FieldByName('ChaveBPe_ComBilh_TrafegoR').AsString; // chave
        infEvento.dhEvento        := FDataHoraJust;
        infEvento.tpEvento        := teExcessoBagagem;
        InfEvento.detEvento.nProt := FDMBPe.CDSComBilheteBPe.FieldByName('Protoc_ComBilh_TrafegoR').AsString;
        infEvento.detEvento.qBagagem := VolumeBagagem;
        infEvento.detEvento.vTotBag  := ValorBagagem;
    end;

    OK  := FDMBPe.ACBrBPeSub.EnviarEvento(FDMBPe.ACBrBPeSub.EventoBPe.idLote);

Grato

Link to comment
Share on other sites

  • Consultores
  • Solution

Bom dia Luiz,

São utilizados dois componentes, o ACBrBPe e o ACBrBPeDABPeESCPOS.

É preciso informar na propriedade DABPE do ACBrBPe o componente ACBrBPeDABPeESCPOS.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

  • Este tópico foi criado há 1488 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.