Alterei ordem do Tipo TpcnCstPis que estava errada.

[Mario Inacio]

Boa tarde.

O tipo TpcnCstPis estava desordenado, conforme print abaixo.

Então modifiquei a Unit pcnConversao.

Corrigido:

  TpcnCstPis = (pis01, pis02, pis03, pis04, pis05, pis06, pis07, pis08, pis09, pis49, pis50, pis51, pis52, pis53,

function CSTIPIToStr(const t: TpcnCstIpi): string;
begin
  result := EnumeradoToStr(t, ['00', '01', '02', '03', '04', '05', '49', '50', '51', '52', '53', '54', '55', '99'],
    [ipi00, ipi01, ipi02, ipi03, ipi04, ipi05, ipi49, ipi50, ipi51, ipi52, ipi53, ipi54, ipi55, ipi99]);
end;

function StrToCSTIPI(out ok: boolean; const s: string): TpcnCstIpi;
begin
  result := StrToEnumerado(ok, s, ['00', '01', '02', '03', '04', '05', '49', '50', '51', '52', '53', '54', '55', '99'],
    [ipi00, ipi01, ipi02, ipi03, ipi04, ipi05, ipi49, ipi50, ipi51, ipi52, ipi53, ipi54, ipi55, ipi99]);
end;

 

 

pcnConversao.pas

[Diego Foliene]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn #TK-3510

[Victor H. Gonzales - Panda]

Em 18/01/2023 at 16:38, Mario Inacio disse:

Boa tarde.

O tipo TpcnCstPis estava desordenado, conforme print abaixo.

Então modifiquei a Unit pcnConversao.

Corrigido:

  TpcnCstPis = (pis01, pis02, pis03, pis04, pis05, pis06, pis07, pis08, pis09, pis49, pis50, pis51, pis52, pis53,

function CSTIPIToStr(const t: TpcnCstIpi): string;
begin
  result := EnumeradoToStr(t, ['00', '01', '02', '03', '04', '05', '49', '50', '51', '52', '53', '54', '55', '99'],
    [ipi00, ipi01, ipi02, ipi03, ipi04, ipi05, ipi49, ipi50, ipi51, ipi52, ipi53, ipi54, ipi55, ipi99]);
end;

function StrToCSTIPI(out ok: boolean; const s: string): TpcnCstIpi;
begin
  result := StrToEnumerado(ok, s, ['00', '01', '02', '03', '04', '05', '49', '50', '51', '52', '53', '54', '55', '99'],
    [ipi00, ipi01, ipi02, ipi03, ipi04, ipi05, ipi49, ipi50, ipi51, ipi52, ipi53, ipi54, ipi55, ipi99]);
end;

 

 

pcnConversao.pas 92.61 kB · 0 downloads

Bom dia,

Obrigado pela contribuição, infelizmente não poderemos acatar pelo motivo que o Index sofrerá mudanças e poderá haver efeitos colaterais indesejáveis em produção, por exemplo se alguém salvar o Index ipi49 que atualmente é 1 ele ficaria sendo 9, mas se a pessoa não se atentar a essa mudança ela estaria utilizando o ipi02 por engano...

Abraços