Sugestão de ajuste no arquivo ACBrEPCBloco_D_Class

[LeoSlander]

procedure TBloco_D.WriteRegistroD200(RegD010: TRegistroD010) ;

.......

case COD_SIT of
            sdfRegular         : strCOD_SIT := '00';
            sdfExtRegular      : strCOD_SIT := '01';
            sdfCancelado       : strCOD_SIT := '02';
            sdfExtCancelado    : strCOD_SIT := '03';
            sdfDenegado        : strCOD_SIT := '04';
            sdfInutilizado     : strCOD_SIT := '05';
            sdfComplementar    : strCOD_SIT := '06';
            sdfExtComplementar : strCOD_SIT := '07';
            sdfEspecial        : strCOD_SIT := '08';
          end;

[juliomar.marchetti]

Favor anexar a unit modifica/sugerida

[LeoSlander]

Segue em anexo a UnitACBrEPCBloco_D_Class.pasACBrEPCBloco_D_Class.dcu