Ir para conteúdo
  • Cadastre-se

marcelo.l

Membros
  • Total de ítens

    3
  • Registro em

  • Última visita

marcelo.l's Achievements

  1. 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;
  2. Estou tendo o mesmo problema com o provedor PRODATA de Rio Verde - GO. Alguém achou a solução para isto? O cliente diz que as notas são enviadas e registradas no site da prefeitura mas eu não consigo o retorno nem pelo programa de exemplo. Como fazer a consulta neste caso?
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.