- Code: Select all Expand view
DEFINE DIALOG oDlg resource "dlgverdb9" of oVentprinc title "Llamadas" font oFont1g
redefine say prompt"Lista de llamadas realizadas, selecciona la llamada a consultar" ID 1 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. //HEADERS Y FOOTERS
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 = { || market->idmarket }
oCol:nDataStrAlign := 0
oCol:cHeader = "ID de llamada"
oCol:nWidth = 110
oCol:bLClickHeader:= {|| DbSetorder(1),oBrw:Gotop(),letbus:="ID de llamada",odlg:update(),nord:=1}
oCol:oHeaderFont := oFont1
oCol:bClrHeader := { || { 65535, nRGB(47, 79, 79) } }
..... (Ms columnas)
oBrw:SetRDD()
oBrw:CreatefromResource(0)
REDEFINE say oSay1 prompt "Buscar en "+letbus ID 5 OF oDlg UpDate
Redefine get Oget1 VAR cBusca ID 4 OF oDlg PICTURE "@!"
redefine button oBtn1 ID 6 of oDlg action (busyfil()) update
redefine button oBtn2 ID 7 of oDlg action sinfil()
REDEFINE Button oBtn3 ID 2 OF oDlg prompt "Revisar tareas" ACTION ( revmar:=idmarket,revtar(), oDlg:end() )
REDEFINE Button oBtn4 ID 3 OF oDlg prompt "Registrar ventas" ACTION ( revmar:=idmarket,regven(), oDlg:end() )
redefine button oBtn5 ID 4 of oDlg action (oDlg:end(), ciccc:="N")
ACTIVATE DIALOG oDlg CENTERED
enddo
oFont1:end()
RETURN NIL
Como decía, necesito desplegar información en el diálogo, dependiendo del registro seleccionado, misma que cambiara a cada cambio en el No. de registro.
Muchas gracias