Novo Layout e Ambiente de Testes

Zottis · 22 Dezembro, 2017

Bom dia, estou tentando ler o XML convertendo dados para os tipos esperados, usando as funções de conversão, porém, da erro:

[dcc32 Error] uESocial.pas(791): E2033 Types of actual and formal var parameters must be identical

evtInfoEmpregador.InfoEmpregador.InfoCadastro.IndConstr := eSStrToIndConstrutora(vLeitor.rCampo(tcStr, 'indConstr'));

function eSStrToIndConstrutora(var ok: boolean; const s: string): TpIndConstr;
begin
result := TpIndConstr( StrToEnumerado2(ok , s, TGenericosString0_1 ) );
end;

pesquisando na internet, só deu certo se tiro a palavra reservada "var" da function e passo o parâmetro "true" na chamada da função:

function eSStrToIndConstrutora(ok: boolean; const s: string): TpIndConstr;
begin
result := TpIndConstr( StrToEnumerado2(ok , s, TGenericosString0_1 ) );
end;

evtInfoEmpregador.InfoEmpregador.InfoCadastro.IndConstr := eSStrToIndConstrutora(True,vLeitor.rCampo(tcStr, 'indConstr'));

alguém sabe como resolver sem mexer no código da classe ACBr?

Juliomar Marchetti · 26 Dezembro, 2017

Em 22/12/2017 at 11:28, Zottis disse:

Bom dia, estou tentando ler o XML convertendo dados para os tipos esperados, usando as funções de conversão, porém, da erro:

[dcc32 Error] uESocial.pas(791): E2033 Types of actual and formal var parameters must be identical

evtInfoEmpregador.InfoEmpregador.InfoCadastro.IndConstr := eSStrToIndConstrutora(vLeitor.rCampo(tcStr, 'indConstr'));

function eSStrToIndConstrutora(var ok: boolean; const s: string): TpIndConstr;
begin
result := TpIndConstr( StrToEnumerado2(ok , s, TGenericosString0_1 ) );
end;

pesquisando na internet, só deu certo se tiro a palavra reservada "var" da function e passo o parâmetro "true" na chamada da função:

function eSStrToIndConstrutora(ok: boolean; const s: string): TpIndConstr;
begin
result := TpIndConstr( StrToEnumerado2(ok , s, TGenericosString0_1 ) );
end;

evtInfoEmpregador.InfoEmpregador.InfoCadastro.IndConstr := eSStrToIndConstrutora(True,vLeitor.rCampo(tcStr, 'indConstr'));

alguém sabe como resolver sem mexer no código da classe ACBr?

Sim crie uma variável local booleana e passe ali.

Zottis · 26 Dezembro, 2017

Boa tarde.

Deu certo, obrigado

maryog · 19 Fevereiro, 2018

Boa tarde.

estou testando o esocial e tive um problema com o tpIndMatProc . Para acertar, precisei criar mais uma opção que se refere a contribuição sindical. no manual constam as seguintes alternativas

1 - Tributária; 2 - Autorização de trabalho de menor; 3 - Dispensa, ainda que parcial, de contratação de pessoa com deficiência (PCD); 4 - Dispensa, ainda que parcial, de contratação de aprendiz; 5 - Segurança e Saúde do Trabalho; 6 - Conversão de Licença Saúde em Acidente de Trabalho; 7 - FGTS; 8 - Contribuição sindical; 99 - Outros assuntos.

e na unit eSocial_Conversao uma opção a menos

impTributariaouRelativaFGTS, impAutorizacaoTrabalhadorMenor, impDispensaPCD, impDispensaAprendiz, impSegurancaoeSaudeTrabalhador, impConversaoLicencaSaudeAcidenteTrabalho, impOutros

grata

EdmarFrazao · 19 Fevereiro, 2018

21 minutos atrás, maryog disse:

Boa tarde.

estou testando o esocial e tive um problema com o tpIndMatProc . Para acertar, precisei criar mais uma opção que se refere a contribuição sindical. no manual constam as seguintes alternativas

1 - Tributária; 2 - Autorização de trabalho de menor; 3 - Dispensa, ainda que parcial, de contratação de pessoa com deficiência (PCD); 4 - Dispensa, ainda que parcial, de contratação de aprendiz; 5 - Segurança e Saúde do Trabalho; 6 - Conversão de Licença Saúde em Acidente de Trabalho; 7 - FGTS; 8 - Contribuição sindical; 99 - Outros assuntos.

e na unit eSocial_Conversao uma opção a menos

impTributariaouRelativaFGTS, impAutorizacaoTrabalhadorMenor, impDispensaPCD, impDispensaAprendiz, impSegurancaoeSaudeTrabalhador, impConversaoLicencaSaudeAcidenteTrabalho, impOutros

grata

Evite postar em topicos que não são sobre o assunto, deveria ser um tópico sobre S-1070

e Nos fontes atuais já estão contemplados os códigos veja unit pcesConversaoeSocial

tpIndMatProc            = (impTributaria, impAutorizacaoTrabalhadorMenor, impDispensaPCD,
                             impDispensaAprendiz, impSegurancaoeSaudeTrabalhador, impConversaoLicencaSaudeAcidenteTrabalho,
                             impFGTS,impContribuicaoSindical, impOutros);