Jump to content

dev botao

Erro nas funções de conversão tpDependenteToStr e StrToTpDependente


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

Recommended Posts

Bom dia,
Acho que há um erro nas funções de conversão tpDependenteToStr e StrToTpDependente da unit pcnConversaoReinf.
O elemento "8" não existe no tipo TtpDependente:

  TtpDependente           = (
                            ttdConjuge,          // 1 - Cônjuge
                            ttdUniaoEstavel,     // 2 - 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;
                            ttdFilhoOuEnteado,   // 3 - Filho(a) ou enteado(a);
                            ttdIrmaoNetoBisneto, // 6 - Irmão(ã), neto(a) ou bisneto(a) sem arrimo dos pais, do(a) qual detenha a guarda judicial do(a) qual detenha a guarda judicial;
                            ttdPaisAvoBisavo,    // 9 - Pais, avós e bisavós;
                            ttdMenorComGuarda,   // 10 - Menor pobre do qual detenha a guarda judicial;
                            ttdIncapaz,          // 11 - A pessoa absolutamente incapaz, da qual seja tutor ou curador;
                            ttdExConjuge,        // 12 - Ex-cônjuge;
                            ttdAgregadoOutros    // 99 - Agregado/Outros
                            );

O correto seria:

function tpDependenteToStr(const t: TtpDependente): string;
begin
  result := EnumeradoToStr2(t, ['1', '2', '3', '6', '9',
                                '10', '11', '12', '99']);
end;

function StrToTpDependente(var ok: boolean; const s: string): TtpDependente;
begin
  result := TtpDependente(StrToEnumerado2(ok , s, ['1', '2', '3', '6', '9',
                                                   '10', '11', '12', '99']));
end;

 

  • Thanks 1
Link to comment
Share on other sites

  • Consultores

Bom dia,

Poderia anexar as units alteradas no tópico por favor?

Obrigado

Consultor SAC ACBr

Alexandre de Paula
Ajude o Projeto ACBr crescer - Assine o SAC                    

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  ícone Discórdia Discord   

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

 

Link to comment
Share on other sites

  • Consultores

Criada a TK-4504 para avaliação.

Obrigado pela contribuição

  • Like 2
Consultor SAC ACBr

Alexandre de Paula
Ajude o Projeto ACBr crescer - Assine o SAC                    

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  ícone Discórdia Discord   

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

 

Link to comment
Share on other sites

  • Este tópico foi criado há 402 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...