Histórico da Página

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