Tabela
B42 Itens das Classes de Pacotes
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
B42_FILIAL C 2 0 Filial S
B42_CODINT C 4 0 Cod. Operad. @! PlsSeek("BA0",1,M->B42_CODINT,"B42_DESINT","BA0_NOMINT") .And. PLSVLDINT(M->B42_CODINT) B89PLS R S
B42_TIPPRE C 3 0 Classe RDA @! PLsSeek("BAG",,,,"BAG_CODIGO",.T.) B42PLS R S
B42_CODPRO C 16 0 Cd. Pacote @! Pl588Valid() BWXPLS R S
B42_CODPAD C 2 0 Cod.Tab.Pad. @! Pl588Valid() B41PLS R S
B42_CODOPC C 16 0 Cd. Proced. @! PlsSeek("BR8",1,M->B42_CPADOC+M->B42_CODOPC,"B42_DESOPC","BR8_DESCRI") BM9PLS R S
B42_CPADOC C 2 0 Cod.Tab.Pad. @! Pl588Valid() B41PLS R S
B42_DESOPC C 40 0 Des. Proc. @! V S
B42_ATIVO C 1 0 Ativo? @! R 1=Sim;0=Nao S
B42_TIPO C 1 0 Tipo @! 0=Procedimento;1=Material;2=Medicamento;3=Taxas;4=Diarias;5=Ortese/Protese;6=Pacote;7=Gases Medicinais;8=Alugueis;9=Outros S
B42_VALCH N 17 4 Valor CH @E 999,999,999,999.9999 R M->B42_VALFIX==0 S
B42_VALFIX N 17 4 Valor Real @E 999,999,999,999.9999 R M->B42_VALCH==0 S
B42_PRINCI C 1 0 Principal? @! Pl588Valid() R 1=Sim;0=Nao S
B42_VIGDE D 8 0 Vigencia De @! Pl588Valid() R S
B42_VIGATE D 8 0 Vigencia Ate @! Pl588Valid() R S
B42_QTDPAC N 4 0 Qtd Pacote 9999 R IF(AllTrim(GETNEWPAR("MV_PLSUNI","1"))=="1",.T.,.F.) S