Jump to content

chamada diadoacbr

Assista tectoy.png

Ajuste no Campo tpDep Conforme Tabela 7


Joceandro Perin
Go to solution Solved by Joceandro Perin,
  • Este tópico foi criado há 1591 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á 1591 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.