Ajuste no Campo tpDep Conforme Tabela 7

[Joceandro Perin]

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 February 16, 2018 by Joceandro Perin

[Rafael Dias]

Favor posta a unit alterada para facilitar a comparação e o merge.

[Joceandro Perin]

Ahh sim, desculpe.. segue...

pcesConversaoeSocial.pas

[Italo Giurizzato Junior]

Boa tarde Joceandro,

Muito obrigado pela colaboração, já enviei para o repositório.

[Joceandro Perin]

23 minutos atrás, Italo Jurisato Junior disse:

Boa tarde Joceandro,

Muito obrigado pela colaboração, já enviei para o repositório.

Eu que agradeço..

[anderson.mendonca]

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;
 

[anderson.mendonca]

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.