Erro Na Geração Dos Registros D

[Rafa2012]

Boa tarde pessoal

Quando vou gerar os registros do bloco D, ele não gera corretamente o numero do dav no D3, repetindo todos igualmente. Também quando não á registro mesmo assim ele gera um D2 vazio.

Segue como esta ficando.

Vejam que ele esta repetindo o numero do DAV. O que faço de errado?

 

Agradeço

Rafa

 

 

registro.txt

[Elton Mamede]

Bom dia Rafa, pelo que vi o no seu registro, o Dav3 nao esta de acordo com o seu Dav2, ele esta utilizando somente o primeiro do Dav2.

 

eu fiz assim no meu:

 

         QrDavD2.Open;

         while not QrDavD2.Eof do
            begin
            with PAF_D.RegistroD2.New do
                begin
                Try
                   NUM_FAB        := QrDavD2NumFab.AsString;
                   MF_ADICIONAL   := QrDavD2MFAdicional.AsString;
                   TIPO_ECF       := QrDavD2TipoECF.AsString;
                   MARCA_ECF      := QrDavD2MarcaECF.AsString;
                   COO            := QrDavD2COOImp.AsString;
                   NUM_DAV        := QrDavD2NumDAV.AsString;
                   DT_DAV         := QrDavD2DtLcto.AsDateTime;
                   TIT_DAV        := QrDavD2TituloDAV.AsString;
                   VLT_DAV        := QrDavD2VlrTotal.AsFloat;
                   COO            := QrDavD2COO.AsString;
                   NUMERO_ECF     := QrDavD2NumSequencial.AsString;
                   NOME_CLIENTE   := QrDavD2NomeCliente.AsString;
                   CPF_CNPJ       := QrDavD2CNPJCPFCliente.AsString;
                   RegistroValido := True;
                except
                   raise;
                end;

 

                // Registro D3 - Item do DAV
                QrDavD3.Close;
                QrDavD3.ParamByName('NumDAV').AsInteger := QrDavD2NumDAV.AsInteger;
                QrDavD3.Open;
    
                while not QrDavD3.Eof do
                   begin
                     with RegistroD3.New  do
                          begin
                          NUM_ITEM       := QrDavD3NumDAV.AsInteger;
                          COD_ITEM       := QrDavD3CodigoItem.AsString;
                          DESC_ITEM      := QrDavD3DescricaoItem.AsString;
                          QTDE_ITEM      := QrDavD3Quantidade.AsFloat;
                          UNI_ITEM       := QrDavD3Unidade.AsString;
                          VL_UNIT        := QrDavD3VlrUnitario.AsFloat;
                          VL_DESCTO      := QrDavD3DescontoItem.AsFloat;
                          VL_ACRES       := QrDavD3AcrescimoItem.AsFloat;
                          VL_TOTAL       := QrDavD3VlrTotal.AsFloat;
                          SIT_TRIB       := QrDavD3CodigoTrib.AsString;
                          ALIQ           := QrDavD3Aliquota.AsFloat
                          IND_CANC       := QrDavD3Cancelado.AsString;
                          DEC_QTDE_ITEM  := QrDavD3CasaDecimalQtde.AsInteger;
                          DEC_VL_UNIT    := QrDavD3CasaDecimalVlrUnitario.AsInteger;
                          RegistroValido := True;
                          end;
       QrDavD3.Next;
       end;
      
   QrDavD2.Next;  
   end;

[Rafa2012]

Bom dia pessoal. A geração esta ok agora.

Porém continua retronando um registro D2 mesmo sem ter dados.

O que pode ser?

 

Agradeço

[Elton Mamede]

Bom dia, posta como esta o seu codigo do Dav2

[Rafa2012]

Achei o problema, eu estava dando um .new novamente. Estou testando os registros, qualquer coisa posto aqui novamente, obrigado Novato pela ajuda.

Rafa