Tabela
BMJ Agrupamento de Procedimentos
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
BMJ_FILIAL C 2 0 Filial S
BMJ_CODINT C 4 0 Operadora @R !.!!! PlsSeek("BA0",1,M->BMJ_CODINT,"M->BMJ_DESINT","BA0_NOMINT") .AND. PlsVldInt(M->BMJ_CODINT) B89PLS S
BMJ_DESINT C 30 0 Desc.Oper. V S
BMJ_CODIGO C 3 0 Codigo @! ExistChav("BMJ",M->BMJ_CODINT+M->BMJ_CODIGO) S
BMJ_DESCRI C 40 0 Descricao @! S
BMJ_QTD N 4 0 Qtd 9999 S