Erro no campo NIVEL do Registro L100, L300

[Fernando Leite Barreto]

O campo NIVEL esta sendo convertido no formato datetime, pra quem tiver o mesmo problema em exportar o SPED ECF, basta corrigir conforme o código abaixo:

 

procedure TBloco_L.WriteRegistroL100(RegL030: TRegistroL030);
var
  intFor: integer;
begin
  if Assigned(RegL030.RegistroL100) then
  begin
    for intFor := 0 to RegL030.RegistroL100.Count - 1 do
    begin
      with RegL030.RegistroL100.Items[intFor] do
      begin
        Add( LFill('L100')              +
             LFill(CODIGO)              +
             LFill(DESCRICAO)           +
             LFill(TIPO)                +
             LFill(IntToStr(NIVEL))     +
             LFill(COD_NAT,2)           +
             LFill(COD_CTA_SUP)         +
             VLFill(VAL_CTA_REF_INI,2)  +
             LFill(IND_VAL_CTA_REF_INI) +
             VLFill(VAL_CTA_REF_FIN,2)  +
             LFill(IND_VAL_CTA_REF_FIN) );
      end;
      FRegistroL990.QTD_LIN := FRegistroL990.QTD_LIN + 1;
    end;
    RegistroL100Count := RegistroL100Count + RegL030.RegistroL100.Count;
  end;
end;

 

[Juliomar Marchetti]

Se está querendo informar correções basta anexar aqui no fórum a unit que é feito o merge!

também tem um tópico grande sobre a construção do componente pode acompanhar lá e informar também