Buenas noches compa帽eros del foro, espero puedan ayudarme, estoy usan un xbrowse y necesito usar la clausula "ON CHANGE" (o la que sea equivalente) para mostrar algunos datos dependiendo del registro seleccionado de la base de datos.
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
聽 聽 聽 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 NILComo 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
