FiveTech Support Forums

 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())