Histórico da Página

Ponto de entrada utilizado para alterar o tipo de montagem do browse.

MNTA400

MNTA400H - Altera tipo de criação do browse ( )

()

#INCLUDE "FWBROWSE.CH"User Function MNTA400H()	SetVisual() 	oBrowse := FwMBrowse():New()	oBrowse:SetAlias( "STJ" )	oBrowse:SetDescription(cCADASTRO)	If lNovoBrw		oBrowse:setfilterdefault("TJ_FILIAL = '"+ xFilial("STJ")+"'"+" .And. TJ_LUBRIFI <> 'S' .And. TJ_TERMINO = 'N' .And. TJ_SITUACA = 'L' .And. TJ_ORDEPAI = '" +  Space(Len(STJ->TJ_ORDEPAI)) + "'")	EndIf	oBrowse:AddLegend( "NGSEMAFARO('!Empty(STJ->TJ_TIPORET) .And. STJ->TJ_DTMPFIM >= dDataBase')",	'BR_VERDE',		OemToAnsi( "Com Insumo" ) )	oBrowse:AddLegend( "NGSEMAFARO('Empty(STJ->TJ_TIPORET) .And. STJ->TJ_DTMPFIM >= dDataBase' )",	'BR_VERMELHO',	OemToAnsi( "Sem Insumo" ) )	oBrowse:AddLegend( "NGSEMAFARO('Empty(STJ->TJ_TIPORET) .And. STJ->TJ_DTMPFIM < dDataBase'  )",	'BR_AMARELO',	OemToAnsi( "Atrasada Sem Insumo" ) )	oBrowse:AddLegend( "NGSEMAFARO('!Empty(STJ->TJ_TIPORET) .And. STJ->TJ_DTMPFIM < dDataBase' )",	'BR_AZUL',		OemToAnsi( "Atrasada Com Insumo" ) )		ADD STATUSCOLUMN oColumn DATA { || If(AllTrim(TJ_PRIORID) $ "1",'BR_VERMELHO', If(AllTrim(TJ_PRIORID) $ "2",'BR_AMARELO','BR_VERDE') ) } DOUBLECLICK { |oBrowse| U_CBT400LEG() } OF oBrowse		oBrowse:Activate()Return .t./*/ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Fun‡„o    ³CBT400LEG ³ Autor ³Rafael Reinert         ³ Data ³31/01/2012³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡„o ³Definicao das cores da legenda                              ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³ Uso      ³MNTA420I                                                    ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/User Function CBT400LEG()Local aLegenda := {}aAdd(aLegenda,{"BR_VERMELHO","Alta"})aAdd(aLegenda,{"BR_AMARELO","Média"})aAdd(aLegenda,{"BR_VERDE","Baixa"})BrwLegenda(cCadastro,"Legenda - Prioridade",aLegenda)Return .t.