Histórico da Página

Este Ponto de Entrada criado para bloquear a porcentagem de despesaspermite a manutenção ao parambox de parâmetros da tela.

#include 'protheus.ch'

User function PEOC4701()
aPBox := ParamIxb[1]
aPBox[15][03] := 10.0 // seta o valor do percentual de despesa variavel em 10
APBox[16][03] := "Sim" // coloca o PMV como Sim
Return 10 //...
Return aPBox

Português(Brasil)

Todas

Todos

Todas

n/a\{ aParambox \}

Inteiro até 100Deve retornar um array de configuração de Parambox padrão Totvs

.
.
.
// Ponto de entrada criado para travar a porcentagem de despesas
if ExistBlock("PEOC4701")
nFixPerc := ExecBlock("PEOC4701",.f.,.f.)
AADD(aParamBox,\{1, STR0066, nFixPerc0, "@E 99.99", "MV_PAR15 >= 0 .AND. MV_PAR15 < 100", , ".FT.", 40, .F.\})
else
AADD(aParamBox,\{1, STR0066, 0, "@E 99.99", "MV_PAR15 >= 0 .AND. MV_PAR15 < 100", , ".T.", 40, .F.2, STR0068, STR0070, \{STR0069, STR0070\}, 30, '.T.', .F.\}) // str69 = ~sim e str70 = ~nao

// Ponto de entrada criado para travar a porcentagem de despesas
if ExistBlock("PEOC4701")
aParamBox := ExecBlock("PEOC4701",.f.,.f., \{aParamBox\})
EndIf

If ParamBox(aParamBox,STR0023,@aRet,,,,,,,,.f.) // Filtro
..
.

OFIOC470.PRW