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;
