GP590TAB - Carrega Tabelas Temporárias das Informações Complementares da DIRF -- 108709

Este Ponto de Entrada carrega as tabelas temporárias responsáveis por gerar os dados complementares do funcionário na tabela RCS - Informações Complemantares da DIRF, para a geração da DIRF e Informes de Rendimentos. 

GPEM590.PRX

GP590TAB - Carrega Tabelas Temporárias das Informações Complementares da DIRF ( [ ] )

(nulo)

Informações para preenchimento das tabelas temporárias:

Tabela TPSE - Tiular do Plano Privado de Assistência a saúde - Coletivo Empresarial
1 - CNPJ da operadora de plano de saúde (Apenas para fazer relacionamento com o registro "OPSE")
2 - CPF do titular
3 - Nome do titular
4 - Valor pago no ano.

Tabela OPSE - Operadora do Plano Privado de Assistência a Saúde - Coletivo Empresarial
1 - CNPJ da operadora de plano de saúde
2 - Nome empresarial
3 - Registro ANS

Tabela DTPSE - Registro de informação de Dependente do Plano Privado de Assistência a Saúde -  Coletivo Empresarial
1 - CNPJ da operadora de plano de saúde (Apenas para fazer relacionamento com os registros "OPSE" e "DTPSE")
2 - CPF do Titular (Apenas para relacionar o Dependente com o Titular)
3 - CPF do dependente
4 - Data de nascimento
5 - Nome do dependente
6 - Relação de dependência
7 - Valor pago no ano

User Function GP590TAB()//Tabela TPSE - Titular do Plano Privado de Assistência a saúde - Coletivo EmpresarialRecLock("T_TPSE",.T.)T_TPSE->CNPJOPER := "99999999999999"   T_TPSE->CPFTIT	 := "99999999999"   T_TPSE->NOMETIT	 := "NOME DO TITULAR"   T_TPSE->VLRTIT	 := 999.99T_TPSE->( MsUnlock() )//Tabela OPSE - Operadora do Plano Privado de Assistência a Saúde - Coletivo Empresarial RecLock("T_OPSE",.T.)T_OPSE->CNPJOPER := "99999999999999"T_OPSE->NOMEEMP	 := "EMPRESA ASSISTENCIA MEDICA"  T_OPSE->REGANS	 := "999"T_OPSE->( MsUnlock() )//Tabela DTPSE - Registro de informação de Dependente do Plano Privado de Assistência a Saúde - Coletivo EmpresarialRecLock("T_DTPSE",.T.)T_DTPSE->CNPJOPER := "99999999999999"T_DTPSE->CPFTIT	  := "99999999999"   T_DTPSE->CPFDEP	  := "99999999999"T_DTPSE->DTNASDEP := "99999999"T_DTPSE->NOMEDEP  := "Nome Dependente"T_DTPSE->RELADEP  := "X" T_DTPSE->VLRDEP	  := 99.99T_DTPSE->( MsUnlock() )Return()