Registro C111

[Heraclito B. Gonçalves]

Correção do método "procedure TBloco_C.WriteRegistroC111(RegC110: TRegistroC110)" no arquivo ACBrEFDBloco_C_Class.pas, o valor de opSecexRFB é 3 e não 9.

procedure TBloco_C.WriteRegistroC111(RegC110: TRegistroC110);
var
  intFor: integer;
  intIND_PROC: integer;
  strLinha: String;
begin
  if Assigned( RegC110.RegistroC111 ) then
  begin
     //-- Before
     strLinha := '';
     if Assigned(TACBrSPEDFiscal(FOwner).EventsBloco_C.OnBeforeWriteRegistroC111) then
     begin
        TACBrSPEDFiscal(FOwner).EventsBloco_C.OnBeforeWriteRegistroC111(strLinha);
        if strLinha <> EmptyStr then
           Add(strLinha);
     end;

     for intFor := 0 to RegC110.RegistroC111.Count - 1 do
     begin
        strLinha := '';
        with RegC110.RegistroC111.Items[intFor] do
        begin
          case IND_PROC of
           opSefaz:           intIND_PROC := 0;
           opJusticaFederal:  intIND_PROC := 1;
           opJusticaEstadual: intIND_PROC := 2;
           opSecexRFB:        intIND_PROC := 3;
           opOutros:          intIND_PROC := 9;
           else               intIND_PROC := 9;
          end;

          strLinha := LFill('C111') +
                      LFill( NUM_PROC ) +
                      LFill( intIND_PROC, 0 );
          //-- Write
          if Assigned(TACBrSPEDFiscal(FOwner).EventsBloco_C.OnWriteRegistroC111) then
             TACBrSPEDFiscal(FOwner).EventsBloco_C.OnWriteRegistroC111(strLinha);

          Add(strLinha);
        end;
        RegistroC990.QTD_LIN_C := RegistroC990.QTD_LIN_C + 1;
     end;
     //-- After
     strLinha := '';
     if Assigned(TACBrSPEDFiscal(FOwner).EventsBloco_C.OnAfterWriteRegistroC111) then
     begin
        TACBrSPEDFiscal(FOwner).EventsBloco_C.OnAfterWriteRegistroC111(strLinha);
        if strLinha <> EmptyStr then
           Add(strLinha);
     end;

     /// Variavél para armazenar a quantidade de registro do tipo.
     FRegistroC111Count := FRegistroC111Count + RegC110.RegistroC111.Count;
  end;
end;

[Juliomar Marchetti]

sugestões favor anexar o arquivo modificado

[Heraclito B. Gonçalves]

Bom dia, anexado.

ACBrEFDBloco_C_Class.pas