TOTVS DMS (Linha Protheus) - Oficina (SIGAOFI)
| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | TOTVS DMS (Linha Protheus) - Oficina (SIGAOFI) |
| Função: | Não se aplica |
| País: | Brasil |
| Ticket: | Não há |
| Requisito/Story/Issue (informe o requisito relacionado) : | DVARMIL-11284 |
Localização: Painel de Orçamento
Em que ponto? Este Ponto de Entrada será executado na abertura da rotina do Painel de Orçamento do DMS.
| Parâmetro | Tipo do retorno | Descrição |
|---|---|---|
| 0 | caracter | Título da coluna da legenda |
| 1 | caracter | cor da legenda, exemplo: "BR_VERDE" |
| 2 | objeto | variável objeto pública representando a cor da legenda |
| 3 | nil | Não há |
Exemplo de utilização Advpl:
user function OX018LPD
local nParam := iif( type("paramIXB") == "U", 3, paramIXB[1] )
local xLegenda
local aLegenda := {}
local cAux
local nPosXsts
default nParam := 3
if type( "oLegCst" ) == "U"
public oLegCst := LoadBitmap( GetResources(), "BR_BRANCO" )
public oLegCst0 := LoadBitmap( GetResources(), "BR_VERDE" )
public oLegCst1 := LoadBitmap( GetResources(), "BR_LARANJA" )
endif
if nParam == 0
xLegenda := "LPed"
elseif nParam == 1
do case
case VS1->VS1_XSTAT == "0"
xLegenda := "BR_VERDE"
case VS1->VS1_XSTAT == "1"
xLegenda := "BR_LARANJA"
otherwise
xLegenda := "BR_BRANCO"
end case
elseif nParam == 2
nPosXsts := aScan( aLbCampos , { |x| Alltrim(x[1]) == "VS1_XSTAT" } )
cAux := aLbPedi[oLbPedi:nAt, nPosXsts]
do case
case cAux == "0"
xLegenda := oLegCst0
case cAux == "1"
xLegenda := oLegCst1
otherwise
xLegenda := oLegCst
end case
else
aadd(aLegenda, {'BR_VERDE' , "Digitado" })
aadd(aLegenda, {'BR_LARANJA' , "Alterado" })
aadd(aLegenda, {'BR_BRANCO' , "Indefinido"})
BrwLegenda( "Orçamento","Legenda Customizada", aLegenda )
endif
return xLegenda |