Jump to content

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

Recommended Posts

Posted

Ao Informar ao Componente que deverá gerar um arquivo zerado IND_MOV = imSemDados o componente sempre preenche com 1 não respeitando o parametro informado

 

Como esta atualmente não respeitando o parametro

procedure TBloco_0.WriteRegistro0001 ;
begin
  if Assigned(FRegistro0001) then
  begin
     with FRegistro0001 do
     begin
        Add( LFill( '0001' ) +
             LFill( Integer(IND_MOV), 0 ) ) ;

        WriteRegistro0005(FRegistro0001) ;
        WriteRegistro0015(FRegistro0001) ;
        WriteRegistro0100(FRegistro0001) ;
        if IND_MOV = imComDados then
        begin
          WriteRegistro0150(FRegistro0001) ;
          WriteRegistro0190(FRegistro0001) ;
          WriteRegistro0200(FRegistro0001) ;
          WriteRegistro0300(FRegistro0001) ;
          WriteRegistro0400(FRegistro0001) ;
          WriteRegistro0450(FRegistro0001) ;
          WriteRegistro0460(FRegistro0001) ;
          WriteRegistro0500(FRegistro0001) ;
          WriteRegistro0600(FRegistro0001) ;
        end;
     end;

     Registro0990.QTD_LIN_0 := Registro0990.QTD_LIN_0 + 1;
  end;
end;

 

sugestão de alteração para o funcionamento

procedure TBloco_0.WriteRegistro0001 ;
begin
  if Assigned(FRegistro0001) then
  begin
    with FRegistro0001 do
    begin

      if IND_MOV = imSemDados then
        Add( LFill( '0001' ) + LFill( Integer(0), 0 ) )
      else
        Add( LFill( '0001' ) + LFill( Integer(1), 0 ) );

      WriteRegistro0005(FRegistro0001) ;
      WriteRegistro0015(FRegistro0001) ;
      WriteRegistro0100(FRegistro0001) ;

      if IND_MOV = imComDados then
      begin
        WriteRegistro0150(FRegistro0001) ;
        WriteRegistro0190(FRegistro0001) ;
        WriteRegistro0200(FRegistro0001) ;
        WriteRegistro0300(FRegistro0001) ;
        WriteRegistro0400(FRegistro0001) ;
        WriteRegistro0450(FRegistro0001) ;
        WriteRegistro0460(FRegistro0001) ;
        WriteRegistro0500(FRegistro0001) ;
        WriteRegistro0600(FRegistro0001) ;
      end;

    end;

 

Jefferson Lupinacci
Analista Desenvolvedor Java Sr. em Zara.com - Inditex - Departamento de Logística e Transporte Global - A Coruña / Espanha

[email protected] / [email protected]
Linkedin; https://www.linkedin.com/in/jeffersonlupinacci/

 

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.