Boa tarde pessoal, estou com a mesma dúvida como fazer o código para montar o registro 74 ?
fiz assim :
while not qrREG74.Eof do
begin
if qrREG74.fieldbyname('Quantidade').asfloat>0 then
begin
FreeAndNil(wregistro74);
wregistro74:=TRegistro74.Create;
wregistro74.Data:=dtInventario.Date;
wregistro74.Codigo:=Copy (qrREG74.FieldByName('Codigo').AsString + StringOfChar(' ',14 ), 1, 14);
wregistro74.Quantidade:= qrREG74.fieldbyname('Quantidade').asfloat;
wregistro74.ValorProduto:=qrREG74.fieldbyname('valor_produto_total').asfloat;
wregistro74.CodigoPosse:='1';
{
wregistro74.CNPJPossuidor
wregistro74.InscricaoPossuidor
wregistro74.UFPossuidor
}
//wregistro74.UFPossuidor:=Copy (qrAux.FieldByName('UF_EMPRESA').AsString + StringOfChar(' ',2 ), 1, 2);
Registros74.Add(wregistro74);
end;
// reg 75 PRODUTO =======================================================
qrREG74.Next;
end;
end;
ACBrSintegra1.GeraArquivo;
Ele gira a query de estoque, porém gera o arquivo com a repetição do último registro de estoque.
Alguém teria um exemplo claro de como fazer o loop para montar o registro 74 e o 75 ?
Resolvido, apenas removi o freeandnil(). Obrigado EMBarbosa!