Novos campos Bloco E310

[Otimizy]

Boa tarde pessoal?

 

Implementada as tags para novo layout do Sped referente a BlocoE310 para 2017!

ACBrEFDBloco_E.pas

ACBrEFDBloco_E_Class.pas

[Juliomar Marchetti]

Boa tarde

perguntas :

deixou compatível para quem precisa gerar arquivos anteriores a isso? para passar no validador?

 

[Otimizy]

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.

[Juliomar Marchetti]

Bom dia!

subi no svn as alterações sugeridas!

Obrigado pela contribuição

 

[Paulo Tenório]

Existe um problema: Estou gerando em 2017 um SPED Fiscal referente ao mês de Dezembro de 2016 e ele está utilizando o leiaute 2017. A data verificadora deve ser a inicial do período de apuração, correto? Não está acontecendo isso.

[Paulo Tenório]

Não seria melhor se basear na versão do leiaute no lugar de validar por data?

 

[Juliomar Marchetti]

Não pelo seguinte, lembro-me de um tempo atrás que tinha situações que era a mesma versão mas no caso do período mudava.