Erro no evento S1280 Valor de tpIndSubstPatrOpPort

[RenatoE]

Boa tarde, fiz a atualização porem encontrei um erro

ACBreSocial:

no evento 1280:

unit pcesS1280;
procedure TEvtInfoComplPer.GerarInfoSubstPatr;
    Gerador.wCampo(tcStr, '', 'indSubstPatr',   1, 1, 1, eSIndSubstPatrOpPortStr(InfoSubstPatr.indSubstPatr));

eSIndSubstPatrOpPortStr(InfoSubstPatr.indSubstPatr) ele recebe 3 valores      =   tpIndSubstPatrOpPort    = (spVazio, spIntegralmenteSubstituida, spParcialmenteSubstituida);

no momento que você envia spIntegralmenteSubstituida, ele estava colocando valor 2 sendo que o valor correto é 1

--------------------------------------------------------------------

O erro se encontra
na unit pcesConversaoeSocial;

na função com erro

function eSIndSubstPatrOpPortStr(const t: tpIndSubstPatrOpPort string;
begin
  result := EnumeradoToStr2(t,TGenericosString1_2 );
end;

Tem que alterar para Correção

function eSIndSubstPatrOpPortStr(const t: tpIndSubstPatrOpPort string;
begin
  result := EnumeradoToStr2(t,TGenericosString0_2 );
end;
 
Alterando aqui o valor passa a ser 1 como o correto, o motivo porque ele tem 3 valores  (spVazio, spIntegralmenteSubstituida, spParcialmenteSubstituida)

Quando tiver algum erro posso reportar no DISCORD?


pcesConversaoeSocial.pas

 

[antonio.carlos]

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

[Italo Giurizzato Junior]

Boa tarde Renato,

Já foi incluído na lista de tarefas.

[RenatoE]

@Italo Giurizzato Junior Muito Obrigado!

[EMBarbosa]

Em 10/02/2021 at 15:54, RenatoE disse:

Boa tarde, fiz a atualização porem encontrei um erro

ACBreSocial:

no evento 1280:

unit pcesS1280;
procedure TEvtInfoComplPer.GerarInfoSubstPatr;
    Gerador.wCampo(tcStr, '', 'indSubstPatr',   1, 1, 1, eSIndSubstPatrOpPortStr(InfoSubstPatr.indSubstPatr));

eSIndSubstPatrOpPortStr(InfoSubstPatr.indSubstPatr) ele recebe 3 valores      =   tpIndSubstPatrOpPort    = (spVazio, spIntegralmenteSubstituida, spParcialmenteSubstituida);

no momento que você envia spIntegralmenteSubstituida, ele estava colocando valor 2 sendo que o valor correto é 1

--------------------------------------------------------------------

O erro se encontra
na unit pcesConversaoeSocial;

na função com erro

function eSIndSubstPatrOpPortStr(const t: tpIndSubstPatrOpPort string;
begin
  result := EnumeradoToStr2(t,TGenericosString1_2 );
end;

Tem que alterar para Correção

function eSIndSubstPatrOpPortStr(const t: tpIndSubstPatrOpPort string;
begin
  result := EnumeradoToStr2(t,TGenericosString0_2 );
end;
 
Alterando aqui o valor passa a ser 1 como o correto, o motivo porque ele tem 3 valores  (spVazio, spIntegralmenteSubstituida, spParcialmenteSubstituida)

Quando tiver algum erro posso reportar no DISCORD?


pcesConversaoeSocial.pas

 

Acredito que isso já esteja correto no SVN atual devido as alterações para o Layout Simples.

Queira verificar e dar um retorno caso necessário.