PEOC4701 - Bloqueio da porcentagem de despesas na Consulta Gerencial de Peças

Este Ponto de Entrada permite 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 aPBox

Português(Brasil)

Todas

Todos

Todas

\{ aParambox \}

Deve retornar um array de configuração de Parambox padrão Totvs

...
AADD(aParamBox,\{1, STR0066, 0, "@E 99.99", "MV_PAR15 >= 0 .AND. MV_PAR15 < 100", , ".T.", 40, .F.\})
AADD(aParamBox,\{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