Jump to content

dev botao

Ajuste no Campo tpDep Conforme Tabela 7


Joceandro Perin
Go to solution Solved by Joceandro Perin,
  • Este tópico foi criado há 2419 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa tarde galera..

Conforme a Tabela 07 - Tipos de Dependente temos as seguintes opções no layout 2.4.01..


01 - Cônjuge
02 - Companheiro(a) com o(a) qual tenha filho ou viva há mais de 5 (cinco) anos ou possua Declaração de União Estável
03 - Filho(a) ou enteado(a)
04 - Filho(a) ou enteado(a), universitário(a) ou cursando escola técnica de 2º grau
06 - Irmão(ã), neto(a) ou bisneto(a) sem arrimo dos pais, do(a) qual detenha a guarda judicial
07 - Irmão(ã), neto(a) ou bisneto(a) sem arrimo dos pais, universitário(a) ou cursando escola técnica de 2° grau, do(a) qual detenha a guarda judicial
09 - Pais, avós e bisavós
10 - Menor pobre do qual detenha a guarda judicial
11 - A pessoa absolutamente incapaz, da qual seja tutor ou curador
12 - Ex-cônjuge
99 - Agregado/Outros

 

Verifiquei no fonte pcesConversaoeSocial.pas que o tpTpDep está divergente com está tabela..

tpTpDep = (tdConjuge, 
                     tdCompanheiroComFilhoOuVivaMais5Anos, 
                     tdFilhoOuEnteadoAte21Anos,
                     tdFilhoOuEnteadoUniverOuCursandoEscolaTecAte24Anos, 
                     tdFilhoOuEnteadoEmQualquerIdadeIncapFisicaOuMentalmente,
                     tdIrmaoNetoBisnetoGuardaJudicialAte21Anos, 
                     tdIrmaoNetoBisnetoAte24anosCursandoNivelSupOuEscolaTec,
                     tdIrmaoNetoBisnetoGuardaJudicialQualquerIdadeIncapFisOuMental, 
                     tdPaisAvosBisavos,
                     tdMenorPobreAte21AnosQueCrieEduqueComGuardaJudicial, 
                     tdPessoaAbsolutamenteIncapaz,
                     tdExConjugeQueRecebaPensaoAlimentos, 
                     tdAgregadoOutros);

Funções..

function eStpDepToStr(const t: tpTpDep): string;
begin
  result := EnumeradoToStr2(t,TGenericosString01_12  );
end;

function eSStrToTpDep(var ok: Boolean; const s: string): tpTpDep;
begin
  result := tpTpDep( StrToEnumerado2(ok , s, TGenericosString01_12 ));
end;


Ajustei para...

tpTpDep = (tdConjuge,  
                     tdCompanheiroComFilhoOuVivaMais5Anos, 
                     tdFilhoOuEnteado, 
                     tdFilhoOuEnteadoUniverOuEscolaTec, 
                     tdIrmaoNetoBisnetoGuardaJudicial, 
                     tdIrmaoNetoBisnetoUniverOuEscolaTecGuardaJudicial, 
                     tdPaisAvosBisavos, 
                     tdMenorPobreGuardaJudicial, 
                     tdPessoaIncapazTutorOuCurador, 
                     tdExConjuge, 
                     tdAgregadoOutros);

Funções..

function eStpDepToStr(const t: tpTpDep): string;
begin
  result := EnumeradoToStr2(t,['01', '02', '03', '04', '06', '07', '09', '10', '11', '12', '99']  );
end;

function eSStrToTpDep(var ok: Boolean; const s: string): tpTpDep;
begin
  result := tpTpDep( StrToEnumerado2(ok , s, ['01', '02', '03', '04', '06', '07', '09', '10', '11', '12', '99'] ));
end;

 

@Rafael Dias, @Juliomar Marchetti, @Italo Jurisato Junior Se puderem avaliar essa alteração.. Obrigado..

Edited by Joceandro Perin
Link to comment
Share on other sites

Olá.
Eu atualizei o ACBr hoje (20/02/2018) e continua dando erro no tdFilhoOuEnteadoAte21Anos.

with EvtAdmissao.Trabalhador.Dependente.Add do
    begin
      tpDep := tdFilhoOuEnteadoAte21Anos;
      nmDep := 'Dependente 2';
      DtNascto := date;
      cpfDep := '12345678901';
      depIRRF := tpSim;
      depSF := tpNao;
      incTrab := tpNao;
    end;
 

Link to comment
Share on other sites

4 minutos atrás, anderson.mendonca disse:

Olá.
Eu atualizei o ACBr hoje (20/02/2018) e continua dando erro no tdFilhoOuEnteadoAte21Anos.

with EvtAdmissao.Trabalhador.Dependente.Add do
    begin
      tpDep := tdFilhoOuEnteadoAte21Anos;
      nmDep := 'Dependente 2';
      DtNascto := date;
      cpfDep := '12345678901';
      depIRRF := tpSim;
      depSF := tpNao;
      incTrab := tpNao;
    end;
 

Alterei meu fonte e tá funcionando.
Valeu.

 

Link to comment
Share on other sites

  • Este tópico foi criado há 2419 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

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...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

The popup will be closed in 10 seconds...