Correção na função CSTIPIToStrTagPosText

[Clayton Alves]

A função estava retornando valor errado devido a ordem das informações estar incorreta.

Anexo o patch e também o arquivo com as modificações.

 

pcnConversao.pas

correcao.patch

[hleorj]

Poderia postar o antes da alteração é depois da alteração , se possível.

Grato

[Clayton Alves]

Olá Henrique, o patch já contém estas informações (um diff) do que foi alterado. E se vc colar este arquivo em cima do seu na sua pasta de trabalho com SVN poderá ver as alterações.

Em todo o caso, segue anexo as versões antes e depois.

pcnConversao - antes.pas

pcnConversao - depois.pas

[hleorj]

@Clayton Alves, 

O que solicitei foi :

De :

function CSTIPIToStrTagPosText(const t: TpcnCstIpi): string;
begin
     result := EnumeradoToStr(t,
          ['00 - Entrada com Recuperação de Crédito',
          '01 - Entrada Tributável com Alíquota Zero',
          '02 - Entrada Isenta',
          '03 - Entrada Não-Tributada',
          '04 - Entrada Imune',
          '05 - Entrada com Suspensão',
          '49 - Outras Entradas',
          '50 - Saída Tributada',
          '51 - Saída Tributável com Alíquota Zero',
          '52 - Saída Isenta',
          '53 - Saída Não-Tributada',
          '54 - Saída Imune',
          '55 - Saída com Suspensão',
          '99 - Outras Saídas'],
          [ipi00, ipi49, ipi50, ipi99, ipi01, ipi02, ipi03, ipi04, ipi05, ipi51, ipi52, ipi53, ipi54, ipi55]);
end;

Para :

function CSTIPIToStrTagPosText(const t: TpcnCstIpi): string;
begin
     result := EnumeradoToStr(t,
          ['00 - Entrada com Recuperação de Crédito',
          '01 - Entrada Tributável com Alíquota Zero',
          '02 - Entrada Isenta',
          '03 - Entrada Não-Tributada',
          '04 - Entrada Imune',
          '05 - Entrada com Suspensão',
          '49 - Outras Entradas',
          '50 - Saída Tributada',
          '51 - Saída Tributável com Alíquota Zero',
          '52 - Saída Isenta',
          '53 - Saída Não-Tributada',
          '54 - Saída Imune',
          '55 - Saída com Suspensão',
          '99 - Outras Saídas'],
          [ipi00, ipi01, ipi02, ipi03, ipi04, ipi05, ipi49, ipi50, ipi51, ipi52, ipi53, ipi54, ipi55, ipi99]);
end;

Existem muitas diferenças no código disponibilizado com o SVN.

[hleorj]

Ajustei para ficar :

function CSTIPIToStrTagPosText(const t: TpcnCstIpi): string;
begin
  case t of
    ipi00 : Result := '00 - Entrada com Recuperação de Crédito';
    ipi01 : Result := '01 - Entrada Tributável com Alíquota Zero';
    ipi02 : Result := '02 - Entrada Isenta';
    ipi03 : Result := '03 - Entrada Não-Tributada';
    ipi04 : Result := '04 - Entrada Imune';
    ipi05 : Result := '05 - Entrada com Suspensão';
    ipi49 : Result := '49 - Outras Entradas';
    ipi50 : Result := '50 - Saída Tributada';
    ipi51 : Result := '51 - Saída Tributável com Alíquota Zero';
    ipi52 : Result := '52 - Saída Isenta';
    ipi53 : Result := '53 - Saída Não-Tributada';
    ipi54 : Result := '54 - Saída Imune';
    ipi55 : Result := '55 - Saída com Suspensão';
    ipi99 : Result := '99 - Outras Saídas';
  end;
end;

 

[Clayton Alves]

Ok, melhor ainda. Menos propício a erros.