Ir para conteúdo
  • Cadastre-se

dev botao

Comprovante Evento de Excesso de Bagagem


Ver Solução Respondido por Italo Giurizzato Junior,
  • Este tópico foi criado há 1536 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro
Postado

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

  • Membros Pro
Postado
13 horas atrás, Italo Jurisato Junior disse:

Boa noite Luiz,

Após o envio do evento, você executou o método ImprimirEvento?

Bom dia Ítalo,

Retorna "Componente DABPE não associado" ao executar  FDMBPe.ACBrBPeSub.ImprimirEvento;

 

  • Este tópico foi criado há 1536 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.