Arquivo gerado pelo acbrsintegra fora do layout

[[email protected]]

Boa tarde! Observei o exemplo e fiz um programa para gerar o sintegra. e coloquei assim:

 Registro10.xxxx := yyyyy;

 Registro11.xxxx := yyyyy;

  .

  .

  .

  While not qryCstreg60M eof do

   Begin

   with acbrSintegra do

   begin

   wregistro60M := TRegistro60M.Create;     

   wregistro60M.xxxx := yyyy;

    .

    .

    .

   Registros60M.Add(wregistro60M);

      While not qryCstRegistro60A eof do

      Begin

      gravo os 60m;

      end;


   Registros60I.Add(wregistro60I);

      While not qryCstRegistro60I eof do

      Begin

      gravo os 60I;

      end;


   qryCstreg60M.next;

   end;

daí eu gravo os 75

e colocquei o comando: ACBrSintegra.GeraArquivo;

O arquivo txt é gerado todos os 60M primeiro, todos os 60A segundo e todos os 60I terceiro e depois os 75. Isso dá inconsistencia no validador.

Como eu estou criando em cascata, pq ele não grava em cascata tb?

Obrigado.

[EMBarbosa]

No exemplo funciona?

[dpaulabh]

Também estou com o mesmo problema. Mesmo criando em cascata ele grava tudo separado.

No exemplo funciona pois tem apenas uma data. Quando você trabalha com um mes inteiro tem que ser separado por data.

Exemplo :

Dia 01 60M

60A

60D

Dia 2 60M

60A

60D

Alguem já conseguiu uma solução para esse problema?

[Cleiver]

eu utilizo a muito tempo o componente e não tenho problema.

é so fazer uma laço correto no while para que seja executado até o final do periodo informado.

[]'s

Cleiver

[dpaulabh]

Cleiver,

Tem algum comando especial que tem que executar? Estou fazendo os laços corretamente e mesmo assim vem separado.

Eu faço mais ou menos assim:

while not que60M.Eof do

begin

Reg60M := TRegistro60M.Create;

with ACBrSintegra do

begin

Reg60M.Emissao := XXX;

Reg60M.NumSerie := XXX;

... Continua

Registros60D.Add(Reg60D);

--> Abre a query que60A filtrando pela data de emissão do Reg60M

while not que60A.Eof do

begin

Reg60A := TRegistro60A.Create;

with ACBrSintegra do

begin

Reg60A.Emissao := XXX;

Reg60A.NumSerie := XXX;

... Continua

Registros60A.Add(Reg60A);

end;

que60A.Next;

end;

--> Abre a query que60D filtrando pela data de emissão do Reg60M

while not que60D.Eof do

begin

Reg60D := TRegistro60D.Create;

with ACBrSintegra do

begin

Reg60D.Emissao := XXX;

Reg60D.NumSerie := XXX;

... Continua

Registros60D.Add(Reg60D);

end;

que60D.Next;

end;

end;

que60M.Next;

end;

Quando mando gerar o arquivo gera tudo separado.

[Cleiver]

while not que60M.Eof do

begin

Reg60M := TRegistro60M.Create;

with ACBrSintegra do

begin

Reg60M.Emissao := XXX;

Reg60M.NumSerie := XXX;

... Continua

Registros60D.Add(Reg60D);

--> Abre a query que60A filtrando pela data de emissão do Reg60M

while not que60A.Eof do

begin

Reg60A := TRegistro60A.Create;

with ACBrSintegra do

begin

Reg60A.Emissao := XXX;

Reg60A.NumSerie := XXX;

... Continua

Registros60A.Add(Reg60A);

end;

que60A.Next;

aqui vc faz um select no banco filtrando pelo numero de serie do ecf q vc esta no registro 60M e a data--> Abre a query que60D filtrando pela data de emissão do Reg60M

while not que60D.Eof do

begin

Reg60D := TRegistro60D.Create;

with ACBrSintegra do

begin

Reg60D.Emissao := XXX;

Reg60D.NumSerie := XXX;

... Continua

Registros60D.Add(Reg60D);

end;

que60D.Next;

end;

end;

end;

que60M.Next;

end;

[dpaulabh]

Isso é feito. Conforme a mensagem que está na frente da vermelha

aqui vc faz um select no banco filtrando pelo numero de serie do ecf q vc esta no registro 60M e a data--> Abre a query que60D filtrando pela data de emissão do Reg60M

Para o 60A também é feito a mesma coisa.

Sempre vem tudo junto.

A forma como estou adicionando os registros esta correta?

[Cleiver]

vc vai dar um next 60M so depois que vc fizer o 60A e 60D

[Cleiver]

no meu caso o estado de goiás e dispensado o registro 60D ai e faço

60M

60A

....

Faço uma verifição se a empresa gera o 60D se sim

60D

....

next 60M

[dpaulabh]

Mas eu faço assim. O Loop do 60A e 60D estão dentro do 60M. Veja o codigo que mandei antes. O laço está correto. Mesmo assim somente gera tudo separado.

[dpaulabh]

Resolvido!!!

Era a propriedade Versao do Validador.

Se estiver vv523 ele gera tudo separado. Mudei para vv524 e funcionou corretamente.

Obrigado a todos pela Ajuda!