Dúvida sobre exemplo do ACBrECF

[Andre Rosa]

Pessoal,

Pra imprimir os DAVs emitidos, na ECF, segui esse exemplo de vocês:

     ACBrECF.Ativar;

      DAVs := TACBrECFDAVs.Create;

      try

        Active:= True;


        while not Eof do

        begin

          with DAVs.New do

          begin

            Numero := FieldByName('DAV').AsString;

            COO_Dav := FieldByName('COO').AsInteger;

            COO_Cupom := StrToInt(vCOO);

            if FieldByName('TIPO_DOCUMENTO').AsString = UpperCase('P') then

              Titulo := 'Pedido'

            else

              Titulo := 'Orçamento';

            DtEmissao := FieldByName('DATA_HORA').AsDateTime;

            Valor := FieldByName('PRECO').AsCurrency;

          end;

          Next;

        end;

        ACBrECF.PafMF_RelDAVEmitidos(DAVs,

        'REFERENCIA: ' + edtDe.Text +' À ' + edtAte.Text, 0);

      finally

        DAVs.Free;

        Informa('Davs Emitidos impressos na ECF.');

      end;

Então...

é só isso mesmo? O D2, D3... isso não tem?

A homologação é amanhã. =D

Obrigado!

[Juliomar Marchetti]

Você está imprimindo o relatório DAVs emitidos ou vai gerar o arquivo dos DAVs emitidos?

[Andre Rosa]

Você está imprimindo o relatório DAVs emitidos ou vai gerar o arquivo dos DAVs emitidos?

O arquivo (TXT) tá tudo certo, só falta botar pra imprimir no ECF. Fiz isso à partir do exemplo do ACBr, só que não tem o ditpo D1, D2 e D3 nele...

Obrigado.

[Régys Silveira]

D1, D2, D3 são registros do arquivo de DAVs emitidos, essa rotina ai que você postou e para a impressão dos DAVs emitidos.

[Andre Rosa]

D1, D2, D3 são registros do arquivo de DAVs emitidos, essa rotina ai que você postou e para a impressão dos DAVs emitidos.

Ah, entendi!

Valeu, Regys!