Saludos.
- Code: Select all Expand view
function resulrep
Public oDlg, oBrw
Public oBtn1, oBtn2, oBtn3
ciccc="S"
do while ciccc="S"
close all
USE &dbtmp1 shared new alias repos
DEFINE DIALOG oDlg resource "dlgverdb3" of oVentprinc title "Consulta de incidencias de recursos humanos" font oFont1g
redefine say prompt"Lista de incidencias existentes, elige el criterio de consulta" ID 0 of oDlg
define font oFont1 name "TIMES NEW ROMAN" size 0,-12 bold
oBrw := TXBrowse():New( oDlg )
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW //barra selectora
oBrw:nColDividerStyle := LINESTYLE_INSET
oBrw:nRowDividerStyle := LINESTYLE_INSET
oBrw:lColDividerComplete := .t. //completa pintado hasta el footer cuando lineas no llenan todo el browse
oBrw:nHeaderHeight := 22 //Altura cabeceras de col
oBrw:lRecordSelector := .t. //poner o no, COL de la flechita de la izq
oBrw:bClrHeader := {|| { nRGB(152, 251, 152), nRGB(47, 79, 79) } }//{|| { nRGB(140, 0, 0), nRGB(229,0,0) } } // VERDECITO
oBrw:bClrFooter := oBrw:bClrHeader
oBrw:bClrStd := {|| { nRGB( 0, 0, 0), nRGB(255,248,220) } } // colores para lineas normales
oBrw:bClrSel := {|| { nRGB( 0, 0,255), nRGB(241,222,088) } } // para barra de linea selecc cuando el control no tiene el foco
oBrw:bClrSelFocus := {|| { nRGB( 0, 0, 0), nRGB(248,195, 34) } } // para barra de linea selecc cuando el control tiene el foco
oBrw:nRowHeight := 19
oCol = oBrw:AddCol()
oCol:bStrData = { || (repos->codigo) }
oCol:nDataStrAlign := 0
oCol:cHeader = "Código"
oCol:nWidth = 100
oCol:oHeaderFont := oFont1
oCol:bClrHeader := { || { 65535, nRGB(47, 79, 79) } }
oCol = oBrw:AddCol()
oCol:bStrData = { || repos->descrip }
oCol:nDataStrAlign := 0
oCol:cHeader = "Descripción"
oCol:nWidth = 220
oCol:oHeaderFont := oFont1
oCol:bClrHeader := { || { 65535, nRGB(47, 79, 79) } }
oCol = oBrw:AddCol()
oCol:bStrData = { || transform(repos->solicita,"###,###.##") }
oCol:nDataStrAlign := 0
oCol:cHeader = "Solicitados"
oCol:nWidth = 90
oCol:bEditValue = { || repos->solicita }
oCol:cEditPicture := "@Z 999,999.99"
oCol:nEditType := EDIT_GET
oCol:bOnPostEdit = { | oCol, xVal, nKey | If( nKey == VK_RETURN, (DBRLOCK(), (repos->solicita := xVal), DBUNLOCK()) ,) }
oCol:bLClickHeader:= {|| oBrw:Gotop() }
oBrw:SetRDD()
oBrw:CreatefromResource(2)
redefine button oBtn1 ID 3 of oDlg action msgalert("Boton 1","1")
redefine button oBtn2 ID 4 of oDlg action msgalert("Boton 2","2")
REDEFINE Button oBtn3 ID 5 OF oDlg action (ciccc:="N",oDlg:end())
activate dialog oDlg centered
enddo
return