Sugestão WriteRegistro A170 unit ACBrEPCBloco_A_Class

flavio.boel · 14 Agosto, 2018

A procedure TBloco_A.WriteRegistroA170 possui dois blocos de case.

Sugiro colocar um else em cada, pois caso não seja alimentado a propriedade, ele está usando o valor do registro anterior.

        case IND_ORIG_CRED of
            opcVazio          : strIND_ORIG_CRED := '';
            opcMercadoInterno : strIND_ORIG_CRED := '0';
            opcImportacao     : strIND_ORIG_CRED := '1';
        else
            strIND_ORIG_CRED := '';
        end;

        case NAT_BC_CRED of
          bccVazio                         : strNAT_BC_CRED := '';
          bccAqBensRevenda                 : strNAT_BC_CRED := '01';
          bccAqBensUtiComoInsumo           : strNAT_BC_CRED := '02';
          bccAqServUtiComoInsumo           : strNAT_BC_CRED := '03';
          bccEnergiaEletricaTermica        : strNAT_BC_CRED := '04';
          bccAluguelPredios                : strNAT_BC_CRED := '05';
          bccAluguelMaqEquipamentos        : strNAT_BC_CRED := '06';
          bccArmazenagemMercadoria         : strNAT_BC_CRED := '07';
          bccConArrendamentoMercantil      : strNAT_BC_CRED := '08';
          bccMaqCredDepreciacao            : strNAT_BC_CRED := '09';
          bccMaqCredAquisicao              : strNAT_BC_CRED := '10';
          bccAmortizacaoDepreciacaoImoveis : strNAT_BC_CRED := '11';
          bccDevolucaoSujeita              : strNAT_BC_CRED := '12';
          bccOutrasOpeComDirCredito        : strNAT_BC_CRED := '13';
          bccAtTransporteSubcontratacao    : strNAT_BC_CRED := '14';
          bccAtImobCustoIncorrido          : strNAT_BC_CRED := '15';
          bccAtImobCustoOrcado             : strNAT_BC_CRED := '16';
          bccAtPresServ                    : strNAT_BC_CRED := '17';
          bccEstoqueAberturaBens           : strNAT_BC_CRED := '18';
        else
          strNAT_BC_CRED := '';
        end;