Registro D3 no ACBrPAF.PAF_D

[Andre Rosa]

Olá,

Eu estou fazendo o seguinte:

   with ACBrPAF.PAF_D do

    begin

      RegistroD1.UF          := RegEmpresa.Estado;

      RegistroD1.CNPJ        := RegEmpresa.CGC;

      RegistroD1.IE          := RegEmpresa.InscEstadual;

      RegistroD1.IM          := InscMuni;

      RegistroD1.RAZAOSOCIAL := RegEmpresa.Nm_Empresa;


      while not Query.Eof do

      begin

        with RegistroD2.New do

        begin

          CPF_CNPJ    := '17337047000148';

          NUM_FAB     := '12345'; //CompletaEspacos(FieldByName('ECF_NUMERO_FABRICACAO').AsString, 20);

          MF_ADICIONAL:= 'a'; //FieldByName('MF_ADICIONAL').AsString;

          TIPO_ECF    := 'xxxx';//FieldByName('').AsString;

          MARCA_ECF   := 'xxxx';//FieldByName('').AsString;

          MODELO_ECF  := 'xxxx';//FieldByName('MODELO_ECF').AsString;

          COO         := '000365';//FieldByName('COO').AsString;

          NUM_DAV     := 'xxxx';//FieldByName('NUM_DAV').AsString;

          DT_DAV      := StrToDateTime('10/10/10');//FieldByName('DATAHORA').AsDateTime;

          TIT_DAV     := 'Orçamento';//FieldByName('PED_ORC_VENDA').AsString;

          VLT_DAV     := StrToCurr('123,45');//FieldByName('').AsCurrency;

          COO_DFV     := '000365';//FieldByName('').AsString;

          NUMERO_ECF  := '321';//FieldByName('NUM_DAV').AsString;;

          NOME_CLIENTE:= 'ANDRE';//FieldByName('NM_CLIENTE').AsString;

          Next;

        end;

      end;


      with RegistroD2.New.RegistroD3.New do

      begin

        DT_INCLUSAO:= StrToDateTime('10/10/2010');//FieldByName('DATAHORA').AsDateTime;

        NUM_ITEM :=  321;

        COD_ITEM :=  'xx';

        DESC_ITEM:=  'xx';

        QTDE_ITEM:=  1234567;

        UNI_ITEM :=  '123';

        VL_UNIT  :=  12345678;

        VL_ACRES :=  12345678;

        VL_TOTAL :=  StrToCurr('123,45');

        IND_CANC :=  'S';

        VL_DESCTO:=  StrToCurr('123,45');

      end;


      with RegistroD9 do

      begin

        TOT_REG_D2:= 0;

        TOT_REG_D3:= 0;

      end;

    end;

E estou recebendo um erro do validador que diz o seguinte:

Validando Arquivo...

ERRO 001: LIN 2 [Comprimento de Linha inválido] | Esperado 212 | Encontrado: 204

O arquivo é esse:

D10078052400014284494542 1545245 EMPRESA TESTE

D200780524000142 000000

00000000000000000

00000000000000

D20078052400014212345 axxxx xxxx xxxx 000365xxxx

20101010Orçamento 00012345000365321ANDRE

17337047000148

D3000000000000020101010321xx xx

123456712312345678000123451234567800000000012345 S

D90078052400014284494542 000002000001

ALLguém poderia me ajudar, por favor?

Obrigado!

Ah, e não há nenhum DAV em meu banco da dados.

[Andre Rosa]

segui à risca o exemplo do ACBr, e consegui validar.