Tabela
BGS GrEmpr x TpPres x Co-Part
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
BGS_FILIAL C 2 0 Filial S
BGS_CODINT C 4 0 Cd Operadora @! B41PLS S
BGS_CODIGO C 4 0 Grp/Empresa @! S
BGS_NUMCON C 12 0 Num.Contrato S
BGS_VERCON C 3 0 Versao Cont. S
BGS_SUBCON C 9 0 Sub-contrato S
BGS_VERSUB C 3 0 Versao Sub. S
BGS_CODPRO C 4 0 Produto S
BGS_VERPRO C 3 0 Versao S
BGS_TIPPRE C 3 0 Tp Prestador @! S
BGS_TIPO C 1 0 Reg Atendto @! 1=Internacao;2=Ambulatorial;3=Ambos S
BGS_QTD N 6 0 Qtd. Ate 999999 S
BGS_PERCOP N 16 2 % Co-Part. @E 9,999,999,999,999.99 PLSA660WHE("14") S
BGS_VLRCOP N 16 2 Vlr.CoPar. @E 9,999,999,999,999.99 PLSA660WHE("15") S
BGS_TABREM C 7 0 Tb Reembolso @! ExistCpo("BF8") B68PLS S
BGS_VALUS N 16 4 Valor U.S @E 99,999,999,999.9999 PLSA660WHE("16") S
BGS_TXADM N 16 2 Taxa Admin. @E 9,999,999,999,999.99 S
BGS_LIMFRA N 16 2 Vlr.Franq. @E 9,999,999,999,999.99 S
BGS_CODTAB C 7 0 Tab.CoPar. @R !!!!.!!! ExistCpo("BF8",M->BGS_CODTAB,1) B68PLS M->BGS_PERCOP > 0 S
BGS_SOMCOM C 1 0 Som.p/Compra @! 1=Sim;0=Nao M->BGS_PAGATO$"0, " S
BGS_PAGATO C 1 0 Pagto no Ato @! 1=Sim;0=Nao M->BGS_SOMCOM$"0, " S
BGS_ANOMES C 6 0 Ano/Mes Reaj @R !!!!/!! N
BGS_VLRANT N 16 2 Valor Ant. @E 9,999,999,999,999.99 N
BGS_TIPUSR C 1 0 Tipo Benef. @! If(Empty(M->BGS_TIPUSR),.T.,ExistCpo("BIH",M->BGS_TIPUSR,1)) B47PLS N
BGS_DESTIP C 30 0 Descricao @! V N
BGS_GRAUPA C 2 0 Grau Parent. @! IF(Empty(M->BGS_GRAUPA),.T.,ExistCpo("BRP",M->BGS_GRAUPA,1)) B37PLS N
BGS_DESGRA C 30 0 Descricao @! V N
BGS_IDAINI N 3 0 Idade Minima 999 Positivo() .AND. M->BGS_IDAINI <= M->BGS_IDAFIN N
BGS_IDAFIN N 3 0 Idade Maxima 999 Positivo() .AND. If(!Empty(M->BGS_IDAINI),M->BGS_IDAFIN >= M->BGS_IDAINI,.T.) N
BGS_FAISAL C 1 0 Fxa Salarial @! Pertence(" 12345") R 1=Nivel 1;2=Nivel 2;3=Nivel 3;4=Nivel 4;5=Nivel 5 N
BGS_RDACRE C 1 0 Rede Credenc @! Pertence("12") R 1=Sim;2=Nao N
BGS_RDAPRE C 1 0 Rede Prefere @! Pertence("12") R 1=Sim;2=Nao M->BGS_RDACRE = "1" N
BGS_PERCO2 N 16 2 % Co-Part2 @E 9,999,999,999,999.99 R N
BGS_VLRCO2 N 16 2 Vlr.Co-Par2 @E 9,999,999,999,999.99 R N
BGS_VLRMIN N 16 2 Valor Minimo @E 9,999,999,999,999.99 R N
BGS_ACUMUL C 1 0 Cons. p/Acum @! Pertence("12") R 1=Inclusao do Contrato;2=Inclusao do Usuario N
BGS_VIGINI D 8 0 Vig. Inicial PlsVldBGS() R S
BGS_VIGFIN D 8 0 Vig. Final PlsVldBGS() R S
BGS_FINATE C 2 0 Finalidade @! Vazio() .or. BGY->(ExistCpo("BGY",M->BQC_CODINT+M->BGS_FINATE,1)) BGYPLS R S
BGS_DESFIN C 70 0 Ds Finalidad @! V S