Tabela
BQM Tabela Dinamica Operadora Rda
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
BQM_FILIAL C 2 0 Filial S
BQM_CODRDA C 6 0 Codigo S
BQM_CODINT C 4 0 Operadora @R !.!!! S
BQM_CODPRO C 16 0 Proc.Princip @! S
BQM_CODPAC C 6 0 Cod. Pacote @! S
BQM_CODTAB C 3 0 Cod. Tabela @! PlsSeek("BF8",1,cCodInt+M->BQM_CODTAB+"01","BQM_DESTAB","BF8_DESCM") .And. PLSVLDCOL({"BQM_CODTAB","BQM_CODOPC"}) BQLPLS S
BQM_DESTAB C 30 0 Descr Tabela @! V S
BQM_CODOPC C 16 0 Cod. Proced. @! PlsSeek("BA8",4,M->BQM_CODOPC+cCodInt+M->BQM_CODTAB,"BQM_DESOPC","BA8_DESCRI") .And. PLSVLDCOL({"BQM_CODTAB","BQM_CODOPC"}) BQNPLS S
BQM_DESOPC C 30 0 Procedimento @! V S
BQM_VALCH N 17 2 U.S. @E 9,999.99 S
BQM_FORMUL C 1 0 Formula @! (If(M->BQM_FORMUL=="1",M->BQM_EXPRES:=Space(Len(M->BQM_EXPRES)),.T.),.T.) 1=Fixa;2=Expressao S
BQM_EXPRES C 100 0 Expressao Eval({|aRetorno| aRetorno:=PLSPARANA(M->BQM_EXPRES),If(Empty(aRetorno[1]),.T.,.F.)}) M->BQM_FORMUL=="2" S
BQM_AUTORI C 1 0 Autorizacao @! 1=Dispensa Autorizacao;2=Meio Magnetico;3=Guia;4=Auditoria S
BQM_PERDES N 17 2 % Desconto @E 999,999,999.99 S