Tabela
B4Q CABECALHO PRORROGACAO INTERNA
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
B4Q_FILIAL C 2 0 Filial S
B4Q_OPEMOV C 4 0 Operadora @! If(Empty(M->B4Q_OPEMOV),.T.,BA0->(ExistCpo("BA0",M->B4Q_OPEMOV,1))) B89PLS R INCLUI S
B4Q_NOMUSR C 70 0 Nome @! R S
B4Q_STATUS C 1 0 Status @! R #PLSSTATUS("B4Q") S
B4Q_AUDITO C 1 0 Auditoria? @! R 1=Sim;0=Nao S
B4Q_CANCEL C 1 0 Cancelada? @! R 1=Sim;0=Nao S
B4Q_NUMLIB C 18 0 Nro Autori @R !!!!.!!!!.!!.!!!!!!!! V S
B4Q_ANOAUT C 4 0 Ano Autori @! R S
B4Q_MESAUT C 2 0 Mes Autori @! R S
B4Q_NUMAUT C 8 0 Mes Autori @! R S
B4Q_REGANS C 8 0 Reg Ans @! V S
B4Q_GUIREF C 18 0 Nro.Gui.Ref @R !!!!.!!!!.!!-!!!!!!!! If(Empty(M->B4Q_GUIREF),.T.,PLA09PLIB(M->B4Q_GUIREF)) PLSB4Q R INCLUI S
B4Q_DATPRO D 8 0 Data Aut. R S
B4Q_SENHA C 20 0 Senha @R! R S
B4Q_GUIOPE C 20 0 Nr.Guia Oper @! R INCLUI S
B4Q_USUARI C 17 0 Matricula @R !!!!.!!!!.!!!!!!.!!-! PLA09PUSU() BY2PLS V S
B4Q_MATANT C 17 0 Mat. Antiga @! R S
B4Q_OPEUSR C 4 0 Operadora @! R S
B4Q_CODEMP C 4 0 Empresa @! R S
B4Q_CONEMP C 12 0 Contrato @! R S
B4Q_SUBCON C 9 0 Subcontrato @! R S
B4Q_VERCON C 3 0 Versao Cont. @! R S
B4Q_VERSUB C 3 0 Ver.Sub.Con. @! R S
B4Q_MATRIC C 6 0 Matricula @! R S
B4Q_TIPREG C 2 0 Tipo Reg. @! R S
B4Q_DIGITO C 1 0 Digito @! R S
B4Q_CODRDA C 6 0 Cd Cred/Coop @! R INCLUI S
B4Q_NOMRDA C 40 0 Nm.Cred/Coop @! R S
B4Q_ALTURA N 6 2 Altura @E 999.99 R S
B4Q_SUPCOR N 5 2 Sup.Corp. @E 99.99 R S
B4Q_IDADE N 3 0 Idade @E 999 PLB4QValid() R PLB4QWhen() S
B4Q_SEXO C 1 0 Sexo @! PLSA09Pprt(.t.)[2] PLSB4E R S
B4Q_OPESOL C 4 0 Operad. Sol. @R !.!!! If(Empty(M->B4Q_OPESOL),.T.,BA0->(ExistCpo("BA0",M->B4Q_OPESOL,1))) B89PLS R INCLUI S
B4Q_CDPFSO C 6 0 Cd.Prf.Solic @! R S
B4Q_SIGLA C 7 0 Sigla C.R. @! If(Empty(M->B4Q_SIGLA),.T.,ExistCpo("BAH",M->B4Q_SIGLA)) B53PLS R INCLUI S
B4Q_REGSOL C 15 0 C.R Solic. @R !!!!!!!!!!!!!!! If(Empty(M->B4Q_REGSOL),.T.,PLSA090SOL()) BTYPLS R INCLUI S
B4Q_ESTSOL C 2 0 UF Solic. @! If(Empty(M->B4Q_ESTSOL),.T.,SX5->(ExistCpo("SX5","12"+M->B4Q_ESTSOL,1))) R INCLUI S
B4Q_NOMSOL C 30 0 Nome Solic. @! R S
B4Q_QTDADD N 3 0 Diarias Adic @E 999 R S
B4Q_TIPACO C 2 0 Tipo Acomod. ExistCpo("BI4",M->B4Q_TIPACO,1) B45PLS R INCLUI S
B4Q_QTDADA N 3 0 Dia. Autoriz @E 999 R INCLUI S
B4Q_TIPACA C 2 0 Tip. Acom. A R S
B4Q_DATSOL D 8 0 Data Sol. R INCLUI S
B4Q_INDCLI M 10 0 Ind. Clinica @! R S
B4Q_JUSOPE M 10 0 Just. operad @! R S
B4Q_GUIPRE C 18 0 Nro.Gui.Ref @R !!!!.!!!!.!!-!!!!!!!! If(Empty(M->B4Q_GUIREF),.T.,PLA09ALIB(M->B4Q_GUIREF)) R S
B4Q_JUSOBS M 10 0 Just. / Obs. @! R S
B4Q_CANTIS C 15 0 Canc. TISS @! R S
B4Q_COMUNI C 1 0 On-Line? @! R 1=Sim;0=Nao S
B4Q_NRAOPE C 20 0 Nr Aut Oper. @! R S
B4Q_PESO N 6 2 Peso @E 999.99 R S
B4Q_TELSOL C 13 0 Tel. Solic. @! R S
B4Q_EMASOL C 60 0 Email Solic. @! R S
B4Q_PROATE C 20 0 Protocolo @! R S
B4Q_STTISS C 1 0 Stat. Tiss R #PLSGUTISS() S
B4Q_NRAEMP C 20 0 Nr Aut Empr. @! R S
B4Q_ESPSOL C 3 0 Esp. solicit VAZIO() .OR. ExistCPO("BQ1", M->B4Q_CDPFSO + M->B4Q_ESPSOL) R S
B4Q_DESESP C 50 0 Des Esp Sol @! V S
B4Q_CANEDI C 250 0 Descr. Cance @! R S
B4Q_DESOPE C 25 0 Oper. Movto. @! R S