Olá Turma Bom dia
Encontrei um erro na classe "ACBrEFDBloco_C_Class.pas" no método TBloco_C.WriteRegistroC181(RegC170: TRegistroC170) o qual estava como abaixo:
procedure TBloco_C.WriteRegistroC181(RegC170: TRegistroC170);
var
intFor: integer;
begin
if Assigned( RegC170.RegistroC181 ) then
begin
if RegC170.RegistroC181.Count > 0 then
begin
if FBloco_0.Registro0000.IND_PERFIL in [pfPerfilA] then
Check(False, 'O RegistroC181, não deve ser gerado em movimentações de saída, no %s, conforme ATO COTEPE 09/08', ['PerfilA']);
end;
for intFor := 0 to RegC170.RegistroC180.Count - 1 do
begin
with RegC170.RegistroC181.Items[intFor] do
begin
Add( LFill('C181') +
LFill( COD_MOT_REST_COMPL ) +
LFill( QUANT_CONV,0,6 ) +
LFill( UNID) +
LFill( COD_MOD_SAIDA) +
LFill( SERIE_SAIDA) +
LFill( ECF_FAB_SAIDA) +
LFill( NUM_DOC_SAIDA) +
LFill( CHV_DFE_SAIDA) +
LFill( DT_DOC_SAIDA, 'ddmmyyyy' ) +
LFill( NUM_ITEM_SAIDA) +
LFill( VL_UNIT_CONV_SAIDA,0,6 ) +
LFill( VL_UNIT_ICMS_OP_ESTOQUE_CONV_SAIDA,0,6 ) +
LFill( VL_UNIT_ICMS_ST_ESTOQUE_CONV_SAIDA,0,6 ) +
LFill( VL_UNIT_FCP_ICMS_ST_ESTOQUE_CONV_SAIDA,0,6 ) +
LFill( VL_UNIT_ICMS_NA_OPERACAO_CONV_SAIDA,0,6 ) +
LFill( VL_UNIT_ICMS_OP_CONV_SAIDA,0,6 ) +
LFill( VL_UNIT_ICMS_ST_CONV_REST,0,6 ) +
LFill( VL_UNIT_FCP_ST_CONV_REST,0,6 ) +
LFill( VL_UNIT_ICMS_ST_CONV_COMPL,0,6 ) +
LFill( VL_UNIT_FCP_ST_CONV_COMPL,0,6 ));
end;
RegistroC990.QTD_LIN_C := RegistroC990.QTD_LIN_C + 1;
end;
/// Variavél para armazenar a quantidade de registro do tipo.
FRegistroC181Count := FRegistroC181Count + RegC170.RegistroC181.Count;
end;
end;
Ja efetuei a correção no ponto marcado e estou enviando o arquivo para ser adicionado a versão.
ACBrEFDBloco_C_Class.pas