Jump to content
Notícias do ACBr

click.png

click.png

click.png

logos

Texto.png

p200

click.png

click.png

click.png

click.png

click.png

click.png

logos

Texto.png

p200

Erro no evento S1280 Valor de tpIndSubstPatrOpPort


Recommended Posts

  • Usuários SAC

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

 

Att,

Renato

 

http://www.edsonbill.com

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...