mBrowse c/ legenda e filtro
Thiago Copacheski Santos
#INCLUDE "protheus.ch"
User Function ExMBrow3
Private cCadastro := "Cadastro de Pessoas"
Private aRotina := { ;
{"Pesquisar","AxPesqui",0,1} ,;
{"Visualizar","AxVisual",0,2} ,;
{"Incluir","AxInclui",0,3} ,;
{"Alterar","AxAltera",0,4} ,;
{"Excluir","U_ALTDEL",0,5} , ;
{"Som. Ativos","U_FILTRA",0,5} , ;
{"Todos","U_TODOS",0,5} , ;
{"Legenda","u_MostraLeg",0,5};
}
private aCores := {}
aAdd(aCores, {"ZB_SIT == 'A'", "BR_VERDE"})
aAdd(aCores, {"ZB_SIT == 'I'", "BR_VERMELHO"})
Private aIndexSZB := {}
Private cFiltro := "ZB_SIT == 'A'"
Private bFiltraBrw := {|| FilBrowse(cAlias, @aIndexSZB, @cFiltro) }
Private cAlias := "SZB"
dbSelectArea(cAlias)
dbSetOrder(1)
dbGotop()
mBrowse(,,,,cAlias,,,,,,aCores)
Return
user function filtra
EndFilBrw(cAlias,@aIndexSZB)
eval(bFiltraBrw, aIndexSZB)
return
//*********************//
user function todos
EndFilBrw(cAlias,@aIndexSZB)
return
user function MostraLeg
local aLegenda := {}
aAdd(aLegenda, {"BR_VERMELHO", "Inativo"})
aAdd(aLegenda, {"BR_VERDE", "Ativo"})
BrwLegenda(cCadastro, "Legenda", aLegenda)
return
user function alTDel(cAlias, nReg, nOpc)
if MsgYesNo("Confirma a inativação do registro???")
RecLock(cAlias, .F.)
(cAlias)->ZB_SIT := "I"
MsUnLock()
endif
RETURN
user function altCust(cAlias, nReg, nOpc)
Local oButton1
Local oGet1
Local cCodigo := (cAlias)->ZB_CODIGO
Local oGet2
Local cNome := (cAlias)->ZB_NOME
Local oSay1
Local oSay2
Local lGravar := .F.
local oDlg
DEFINE MSDIALOG oDlg TITLE "New Dialog" FROM 000, 000 TO 200, 500 PIXEL
@ 014, 033 MSGET oGet1 VAR cCodigo SIZE 061, 010 OF oDlg PIXEL when .f.
@ 031, 017 SAY oSay2 PROMPT "Nome" SIZE 025, 007 OF oDlg PIXEL
@ 030, 034 MSGET oGet2 VAR cNome SIZE 106, 010 OF oDlg PIXEL
@ 052, 044 BUTTON oButton1 PROMPT "Gravar" SIZE 037, 012 OF oDlg ACTION (lGravar := .T., oDlg:End()) PIXEL
ACTIVATE MSDIALOG oDlg CENTERED
if lGravar
RecLock(cAlias, .F.)
(cAlias)->ZB_NOME := cNome
MsUnLock()
endif
return
Thiago Copacheski Santos
FSW - Fábrica de Software
Unidade Curitiba
(55 (41) 3360-6200
