Mandar el control al TxBrowse
Posted: Mon Apr 06, 2009 10:32 pm
Hola a todos
No se que hacer para mandar el control al TxBrowse, les mando el proceso para que me puedan ayudar
Cuando le doy al boton del ID 106 le pasa el control, pero no agarra el Click ni en doble click sobre las lineas. tampoco se actualiza. Tambien me pide ID del recurso que no existen. He tenido que inventarlo con texto.
Como se coloca el oBrw1:bChange en TxBrowse
Gracias distinguidos
Saludos
Adhemar
No se que hacer para mandar el control al TxBrowse, les mando el proceso para que me puedan ayudar
Code: Select all
DEFINE DIALOG oDlg1 RESOURCE "MUE_TRAB" OF oWnd Title 'Muestra Trabajos'
REDEFINE RADIO nTodCen ID 101,102 OF oDlg1 UPDATE
REDEFINE SAY oSector VAR cSector ID 201 OF oDlg1 UPDATE
REDEFINE RADIO nPenProEje ID 103,104,105 OF oDlg1 UPDATE
REDEFINE BUTTON oBtn ID 106 OF oDlg1 ACTION ( Cambia(),oBrw1:Refresh(),,oBrw1:Update(),oBrw1:SetFocus() )
oBrw1 := TXBrowse():New( oDlg1 )
oBrw1:nMarqueeStyle:=MARQSTYLE_HIGHLROW
oBrw1:lHScroll:= .f.
oBrw1:nColDividerStyle:= LINESTYLE_INSET
oBrw1:nRowDividerStyle:= LINESTYLE_BLACK
oBrw1:bLDblClick:={ || PideDatos( .F.,6,"CONSULTA") }
oCol := oBrw1:AddCol()
oCol:bStrData := { || TRAB->FECHA}
oCol:nDataStrAlign := AL_CENTER
oCol:cHeader := "FECHA"
oCol:nWidth:=65
oCol := oBrw1:AddCol()
oCol:bStrData := { || OEMTOANSI(TRAB->SOLICITANT)}
oCol:cHeader := "SOLICITANTE"
oCol:nHeadStrAlign := AL_CENTER
oCol:nWidth:=250
oCol := oBrw1:AddCol()
oCol:bStrData := { || TRAB->PARASECTOR}
oCol:cHeader := "PARA SECTOR"
oCol:nWidth:=200
oCol:nHeadStrAlign := AL_CENTER
iF nPenProEje>1
oCol := oBrw1:AddCol()
oCol:bStrData := { || OEMTOANSI(TRAB->RESPONSABL)}
oCol:cHeader := "LO REALIZA"
oCol:nWidth:=250
oCol:nHeadStrAlign := AL_CENTER
Else
oCol := oBrw1:AddCol()
oCol:bStrData := { || Str(DATE()-TRAB->FECHA,3)+" DIAS"}
oCol:cHeader := "ANTIGUEDAD"
oCol:nWidth:=250
oCol:nHeadStrAlign := AL_CENTER
Endi
oBrw1:CreateFromCode()
*oBrw1:bChange:={|| (oTrab:Refresh())} //como se colca el bchange
REDEFINE SAY oSector VAR TRAB->TRABAJO ID 107 OF oDlg1 UPDATE
ACTIVATE DIALOG oDlg1 CENTERED ON INIT ( Botones(),oDlg1:Update(),oBrw1:Move(80,0,oDlg1:nWidth()-26,oDlg1:nHeight()-195),oBrw1:GoBottom(),oBrw1:SetFocus())
Como se coloca el oBrw1:bChange en TxBrowse
Gracias distinguidos
Saludos
Adhemar
