Como Gerar Arquivo 74 e 75 no Acbr Sintegra??

[laurovinicius]

Amigos, desculpem minha Ignorancia, queria uma ajuda nas linhas de programacao, pra mim poder gerar o registro do sintegra 74 e 75.Sei que pra muitos isso é facil de mais mas pra mim...

No exemplo DEMO do ACBR sintegra esta assim:

procedure TACBrSintegra.GerarRegistros74;

var

i: Integer;

wregistro: string;

begin

//Registros74.Sort(Sort74);

for i:=0 to Registros74.Count - 1 do

begin

with Registros74 do

begin

wregistro:='74';

wregistro:=wregistro+FormatDateTime('yyyymmdd',Data);

wregistro:=wregistro+Padl(Codigo,14);

wregistro:=wregistro+TBStrZero(TiraPontos(

FormatFloat('#,###0.000',Quantidade)),13);

wregistro:=wregistro+TBStrZero(TiraPontos(

FormatFloat('#,##0.00',ValorProduto)),13);

wregistro:=wregistro+CodigoPosse;

wregistro:=wregistro+TBStrZero(CNPJPossuidor,14);

wregistro:=wregistro+Padl(InscricaoPossuidor,14);

wregistro:=wregistro+Padl(UFPossuidor,2);

wregistro:=wregistro+Space(45); //brancos

WriteRecord(wregistro);

end;

end;

end;

Como eu faço pra mim pegar as informaçoes da minha tabela e gerar esses registros?

Alguem pode me ajudar?