Jump to content

dev botao

Novos campos Bloco E310


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

Recommended Posts

Sim!

As tags Antigas foram mantidas e o novo formato é montado a partir de 01/01/2017, conforme codigo abaixo:

procedure TBloco_E.WriteRegistroE310(RegE300: TRegistroE300);
var
  intFor: integer;
begin
  if Assigned( RegE300.RegistroE310 ) then
  begin
     for intFor := 0 to RegE300.RegistroE310.Count - 1 do
     begin
        with RegE300.RegistroE310.Items[intFor] do
        begin
          if (Date <= EncodeDate(2016, 12, 31)) then begin
            Add( LFill('E310') +
                 LFill( Integer(IND_MOV_DIFAL), 0 ) +
                 LFill( VL_SLD_CRED_ANT_DIF,0 ) +
                 LFill( VL_TOT_DEBITOS_DIFAL, 0 ) +
                 LFill( VL_OUT_DEB_DIFAL, 0 ) +
                 LFill( VL_TOT_DEB_FCP, 0 ) +
                 LFill( VL_TOT_CREDITOS_DIFAL, 0 ) +
                 LFill( VL_TOT_CRED_FCP, 0 ) +
                 LFill( VL_OUT_CRED_DIFAL, 0 ) +
                 LFill( VL_SLD_DEV_ANT_DIFAL, 0 ) +
                 LFill( VL_DEDUCOES_DIFAL, 0 ) +
                 LFill( VL_RECOL, 0 ) +
                 LFill( VL_SLD_CRED_TRANSPORTAR, 0 ) +
                 LFill( DEB_ESP_DIFAL, 0 ));
          end
          else begin
            Add( LFill('E310') +
                LFill( Integer(IND_MOV_DIFAL), 0 ) +
                LFill(VL_SLD_CRED_ANT_DIF, 0 ) +
                LFill(VL_TOT_DEBITOS_DIFAL, 0 ) +
                LFill(VL_OUT_DEB_DIFAL, 0 ) +
                LFill(VL_TOT_CREDITOS_DIFAL, 0 ) +
                LFill(VL_OUT_CRED_DIFAL, 0 ) +
                LFill(VL_SLD_DEV_ANT_DIFAL, 0 ) +
                LFill(VL_DEDUCOES_DIFAL, 0 ) +
                LFill(VL_RECOL_DIFAL, 0 ) +
                LFill(VL_SLD_CRED_TRANSPORTAR_DIFAL, 0 ) +
                LFill(DEB_ESP_DIFAL, 0 ) +
                LFill(VL_SLD_CRED_ANT_FCP, 0 ) +
                LFill(VL_TOT_DEB_FCP, 0 ) +
                LFill(VL_OUT_DEB_FCP, 0 ) +
                LFill(VL_TOT_CRED_FCP, 0 ) +
                LFill(VL_OUT_CRED_FCP, 0 ) +
                LFill(VL_SLD_DEV_ANT_FCP, 0 ) +
                LFill(VL_DEDUCOES_FCP, 0 ) +
                LFill(VL_RECOL_FCP, 0 ) +
                LFill(VL_SLD_CRED_TRANSPORTAR_FCP, 0 ) +
                LFill(DEB_ESP_FCP, 0 ));

          end;
        end;
        /// Registros FILHOS
        WriteRegistroE311(RegE300.RegistroE310.Items[intFor]) ;
        WriteRegistroE316(RegE300.RegistroE310.Items[intFor]) ;
        ///
        RegistroE990.QTD_LIN_E := RegistroE990.QTD_LIN_E + 1;
     end;
     /// Variavél para armazenar a quantidade de registro do tipo.
     FRegistroE310Count := FRegistroE310Count + RegE300.RegistroE310.Count;
  end;
end;

 

O texto em Negrito é o bloco alterado.

Link to comment
Share on other sites

  • 2 months later...
  • Este tópico foi criado há 2800 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.