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
