Ir para conteúdo
  • Cadastre-se

dev botao

Arquivo gerado pelo acbrsintegra fora do layout


  • Este tópico foi criado há 4829 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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.

Link para o comentário
Compartilhar em outros sites

  • Consultores

No exemplo funciona?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

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?

Link para o comentário
Compartilhar em outros sites

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.

:(

Link para o comentário
Compartilhar em outros sites

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;

Link para o comentário
Compartilhar em outros sites

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?

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 4829 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.