Tabela
B23 Itens da tabela de preco
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
B23_FILIAL C 2 0 Filial N
B23_CODINT C 4 0 Operadora @! R N
B23_CODTAB C 3 0 Tabela @! R N
B23_CDPAD1 C 2 0 Cod Pad De @! ExistCpo("BR4",M->B23_CDPAD1,1) B41PLS R N
B23_CDPRRA C 16 0 Cd. Proc. @! R N
B23_OBSERV M 100 0 Observacoes @! R S
B23_CODPRO C 16 0 Cod Tab Padr @! ExistCpo("BR8",M->B23_CODPAD+M->B23_CODPRO,1) .And. PLSGATNIV(M->B23_CDPAD1,M->B23_CODPRO,"B23",.F.,.F.) BRHPLS R N
B23_CDPRO1 C 16 0 Cd Proc De @! ExistCpo("BR8",M->B23_CDPAD1+M->B23_CDPRO1,1) BRHPLS R N
B23_DSPRO1 C 230 0 Des Proc De @! V N
B23_TIPLAN C 1 0 Tp Lanc Acom @! Pertence("1;2") R 1=Aplicado a todas as acomodacoes;2=Especifico para uma unica acomodacao N
B23_CDPAD2 C 2 0 Cod Pad Ate @! ExistCpo("BR4",M->B23_CDPAD2,1) B41PLS R N
B23_DESCRI C 230 0 Descricao @! V N
B23_CODACO C 2 0 Acomodacao @! BI4->(ExistCpo("BI4",M->B23_CODACO,1)) R M->B23_TIPLAN=="2" N
B23_CDPRO2 C 16 0 Cd Proc Ate @! ExistCpo("BR8",M->B23_CDPAD2+M->B23_CDPRO2,1) BRMPLS R N
B23_DSPRO2 C 230 0 Des Proc Ate @! V N
B23_DESACO C 40 0 Ds Acomod. @! V M->B23_TIPLAN=="2" N
B23_UPSCO N 16 4 US CO Pagto @E 99,999,999,999.9999 M->B23_USPCO >= 0 R M->B23_VRPCO==0 N
B23_CODTDE C 3 0 Cod. TDE @R !!! Vazio() .or. ExistCpo("BF8",M->B23_CODINT+M->B23_CODTDE,1) BRQPLS R N
B23_VRPCO N 16 2 VL CO Pagto @E 9,999,999,999,999.99 M->B23_VRPCO >= 0 R N
B23_CDTBUS C 3 0 Tabela US @! Vazio() .or. ExistCpo("B27",M->B23_CODINT+M->B23_CDTBUS+"1",1) BRNPLS R Empty(M->B23_CODTDE) N
B23_USRCO N 16 4 US CO Recto @E 99,999,999,999.9999 M->B23_USRCO >= 0 R M->B23_VRRCO==0 N
B23_QTDUS N 3 0 Quant US @E 999 R Empty(M->B23_CODTDE) N
B23_VRRCO N 16 2 VL CO Recto @E 9,999,999,999,999.99 M->B23_VRRCO >= 0 R N
B23_BANDUS N 12 2 Banda US @E 999,999,999.99 R Empty(M->B23_CODTDE) N
B23_USPPP N 16 4 US PP Pagto @E 99,999,999,999.9999 M->B23_USPPP >= 0 R M->B23_VRPPP==0 N
B23_VRPPP N 16 2 VL PP Pagto @E 9,999,999,999,999.99 M->B23_VRPPP >= 0 R N
B23_CDTBFM C 3 0 Tabela Filme @! Vazio() .or. ExistCpo("B27",M->B23_CODINT+M->B23_CDTBFM+"2",1) BROPLS R Empty(M->B23_CODTDE) N
B23_QTDFM N 3 0 Quant Filme @E 999 R Empty(M->B23_CODTDE) N
B23_USRPP N 16 4 US PP Recto @E 99,999,999,999.9999 M->B23_USRPP >= 0 R M->B23_VRRPP==0 N
B23_VRRPP N 16 2 VL PP Recto @E 9,999,999,999,999.99 M->B23_VRRPP >= 0 R N
B23_BANDFM N 12 2 Banda Filme @E 999,999,999.99 R Empty(M->B23_CODTDE) N
B23_TPLAN C 1 0 Tp Lanc Ope. @! Pertence("1;2") R 1=Aplicado a todas as operadoras;2=Especifico para uma unica operadora N
B23_CDTBUC C 3 0 Tabela UCO @! Vazio() .or. ExistCpo("B27",M->B23_CODINT+M->B23_CDTBUC+"3",1) BRPPLS R Empty(M->B23_CODTDE) N
B23_QTDUC N 3 0 Quant UCO @E 999 R Empty(M->B23_CODTDE) N
B23_CODOPE C 4 0 Operadora @! PlsZero() .And. BA0->(ExistCpo("BA0",M->B23_CODOPE,1)) B89PLS R M->B23_TPLAN=="2" N
B23_DESOPE C 40 0 Descricao @! V M->B23_TPLAN=="2" N
B23_BANDUC N 12 2 Banca UCO @E 999,999,999.99 R Empty(M->B23_CODTDE) N
B23_TPLANP C 1 0 Tp Lanc Prd. @! Pertence("1;2") R 1=Aplicado a todos os produtos;2=Especifico para um unico Produto N
B23_PORTSL N 3 0 Porte Sala @E 999 R N
B23_PORTAN N 3 0 Porte Anest 999 R !empty(M->B23_CDPTAN) N
B23_CODPLA C 4 0 Cod Produto @! ExistCpo("BI3", B22->B22_CODINT+M->B23_CODPLA) BIUPLS R M->B23_TPLANP=="2" N
B23_DESPLA C 40 0 Ds Produto @! V N
B23_REGATE C 1 0 Reg Atendto @! R 1=Internacao;2=Ambulatorial;3=Ambos N
B23_FINATE C 2 0 Finalidade @! BGY->(ExistCpo("BGY",M->B23_CODINT+M->B23_FINATE,1)) BGYPLS R N
B23_CODPAD C 2 0 Cod. Padrao @! ExistCpo("BR4",M->B23_CODPAD,1) B41PLS R N
B23_VIGINI D 8 0 Vigencia Ini R N
B23_VIGFIM D 8 0 Vigencia Fim dtos(M->B23_VIGFIM) >= dtos(M->B23_VIGINI) R N
B23_CDNV01 C 6 0 Cd Niv 01 @! R N
B23_CDNV02 C 6 0 Cd Niv 02 @! R N
B23_CDNV03 C 6 0 Cd Niv 03 @! R N
B23_CDNV04 C 6 0 Cd Niv 04 @! R N
B23_NIVEL C 1 0 Nivel @! R N
B23_BANDAP N 16 2 Banda Pagto. @E 9,999,999,999,999.99 R !empty(M->B23_CODTDE) N
B23_BANDAR N 16 2 Banda Recto. @E 9,999,999,999,999.99 R !empty(M->B23_CODTDE) N
B23_PERDES N 16 2 % Desconto @E 9,999,999,999,999.99 R S
B23_PERACR N 16 2 % Acrescimo @E 9,999,999,999,999.99 R S
B23_UCO N 16 2 Uco @E 9,999,999,999,999.99 R S
B23_USPCO N 16 4 US CO Pagto @E 99,999,999,999.9999 M->B23_USPCO >= 0 R M->B23_VRPCO==0 S
B23_CDPTAN C 3 0 Tb Port Anes @! Vazio() .or. ExistCpo("B27",M->B23_CODINT+M->B23_CDPTAN+"4",1) BRRPLS R S
B23_BANPTA N 12 2 Banda Porte @E 999,999,999.99 R !empty(M->B23_CDPTAN) S