Tabela
BGL Produtos Municipio Atendimento
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
BGL_FILIAL C 2 0 Filial S
BGL_CODINT C 4 0 Cd Operadora @! B41PLS S
BGL_CODIGO C 4 0 Grp/Empresa @! S
BGL_NUMCON C 12 0 Num.Contrato S
BGL_VERCON C 3 0 Versao Cont. S
BGL_SUBCON C 9 0 Sub-contrato S
BGL_VERSUB C 3 0 Versao Sub. S
BGL_CODPRO C 4 0 Produto S
BGL_VERPRO C 3 0 Versao S
BGL_CODMUN C 7 0 Municipio @! S
BGL_TIPO C 1 0 Reg Atendto @! 1=Internacao;2=Ambulatorial;3=Ambos S
BGL_QTD N 6 0 Qtd. Ate 999999 S
BGL_VALCOP N 16 2 Vlr.Co-Part. @E 9,999,999,999,999.99 M->BGL_PERCOP = 0 S
BGL_PERCOP N 16 2 % Co-Part. @E 9,999,999,999,999.99 M->BGL_VALCOP = 0 S
BGL_CODTAB C 7 0 Tab.CoPar. @R !!!!.!!! Vazio() .or. ExistCpo("BF8",M->BGL_CODTAB,1) B68PLS S
BGL_TXADM N 16 2 Taxa Admin. @E 9,999,999,999,999.99 S
BGL_LIMFRA N 16 2 Vlr.Franq. @E 9,999,999,999,999.99 S
BGL_SOMCOM C 1 0 Som.p/Compra @! 1=Sim;0=Nao S
BGL_PAGATO C 1 0 Pagto no Ato @! 1=Sim;0=Nao S
BGL_VALUS N 16 4 Valor U.S @E 99,999,999,999.9999 M->BGL_PERCOP>0 S
BGL_CODPAD C 2 0 Cd.Tp.Tabela @! ExistCpo("BR4",M->BGL_CODPAD,1) B41PLS S
BGL_CDPROC C 16 0 Cod.Proced. @! ExistCpo("BR8",M->BGL_CODPAD+M->BGL_CDPROC,1) BR3PLS S
BGL_DESCRI C 40 0 Descricao @! V S
BGL_ANOMES C 6 0 Ano/Mes Reaj @R !!!!/!! N
BGL_VLRANT N 16 2 Valor Ant. @E 9,999,999,999,999.99 N
BGL_TIPUSR C 1 0 Tipo Benef. @! If(Empty(M->BGL_TIPUSR),.T.,ExistCpo("BIH",M->BGL_TIPUSR,1)) B47PLS S
BGL_DESTIP C 30 0 Descricao @! V S
BGL_GRAUPA C 2 0 Grau Parent. @! IF(Empty(M->BGL_GRAUPA),.T.,ExistCpo("BRP",M->BGL_GRAUPA,1)) B37PLS S
BGL_DESGRA C 30 0 Descricao @! V S
BGL_IDAINI N 3 0 Idade Minima 999 Positivo() .AND. M->BGL_IDAINI <= M->BGL_IDAFIN S
BGL_IDAFIN N 3 0 Idade Maxima 999 Positivo() .AND. If(!Empty(M->BGL_IDAINI),M->BGL_IDAFIN >= M->BGL_IDAINI,.T.) S
BGL_FAISAL C 1 0 Fxa Salarial @! Pertence(" 12345") R 1=Nivel 1;2=Nivel 2;3=Nivel 3;4=Nivel 4;5=Nivel 5 S
BGL_RDACRE C 1 0 Rede Credenc @! Pertence("12") R 1=Sim;2=Nao S
BGL_RDAPRE C 1 0 Rede Prefere @! Pertence("12") R 1=Sim;2=Nao M->BGL_RDACRE = "1" S
BGL_PERCO2 N 16 2 % Co-Part2 @E 9,999,999,999,999.99 R S
BGL_VLRCO2 N 16 2 Vlr.Co-Par2 @E 9,999,999,999,999.99 R S
BGL_VLRMIN N 16 2 Valor Minimo @E 9,999,999,999,999.99 R S
BGL_ACUMUL C 1 0 Cons. p/Acum @! Pertence("12") R 1=Inclusao do Contrato;2=Inclusao do Usuario S
BGL_VIGINI D 8 0 Vig. Inicial @D PlsVldBGL() R S
BGL_VIGFIN D 8 0 Vig. Final @D PlsVldBGL() R S
BGL_FINATE C 2 0 Finalidade @! Vazio() .or. BGY->(ExistCpo("BGY",M->BQC_CODINT+M->BGL_FINATE,1)) BGYPLS R S
BGL_DESFIN C 70 0 Ds Finalidad @! V S