Dicho codigo Funciona con FWH 8.03 , pero con la 10.7 y xharbour BCC582 - 1.2.1 Rev.6714 no funciona , Uso base de datos Mysql
El Browse Correcto con la version 8.03
Si defino el codigo de esta manera con la 10.7, si funciona, pero se pierde el HScroll Vertical y orisontal a pesar que esta definido.
EjeQueri(0,@oDbfxls,cSelect)
if oDbfxls:RecordCount() =0
MsgInfo("No Hay Datos ","Informacion")
Return (.t.)
endif
nLinea := 1 ; nHasta := oDbfxls:RecordCount()
oDbfxls:MoveFirst()
REDEFINE XBROWSE oLbx ;
COLUMNS "Planta","Nom_Proceso","codmez","nombre_mez","codmat","Nom_material","por_1","status";
HEADERS "Planta","Proceso","Cod.Fom","Nombre.Formulacion","Material","Nombre Material","Porc%","Status";
PICTURES nil, nil, nil, nil, nil, nil, nil, nil ;
COLSIZES 50,120,60,280,60,280,40,40 ;
JUSTIFY .F., .F., .F., .F., .F., .F., .T., .T. ;
OF oDlgbrow ID 4001 ;
RECORDSET oDbfxls
oLbx:nFreeze:=1 // para congelar la 1ª
oLbx:lAllowColSwapping := .F.
oLbx:lAllowRowSizing := .F.
AEval( oLbx:aCols, { |o| o:lAllowSizing := .f. } )El Browse Correcto con la version 8.03
Si defino el codigo de esta manera con la 10.7, si funciona, pero se pierde el HScroll Vertical y orisontal a pesar que esta definido.
EjeQueri(0,@oDbfxls,cSelect)
if oDbfxls:RecordCount() =0
MsgInfo("No Hay Datos ","Informacion")
Return (.t.)
endif
nLinea := 1 ; nHasta := oDbfxls:RecordCount()
oDbfxls:MoveFirst()
oLbx := TXBrowse():New( oDlgbrow )
oLbx:CreateFromResource( 4001 )
oCol := oLbx:AddCol()
oCol:bStrData := { || ::oDbfxls:Fields("planta"):value }
oCol:cHeader := "Planta"
oCol:cFooter := " "
oCol:nWidth := 50
oCol:nHeadStrAlign := AL_LEFT //AL_RIGHT AL_CENTER
oCol:nDataStrAlign := AL_LEFT
oCol := oLbx:AddCol()
oCol:bStrData := { || ::oDbfxls:Fields("nom_proceso"):value }
oCol:cHeader := "Proceso"
oCol:cFooter := " "
oCol:nWidth := 160
oCol:nHeadStrAlign := AL_LEFT //AL_RIGHT AL_CENTER
oCol:nDataStrAlign := AL_LEFT
oCol := oLbx:AddCol()
oCol:bStrData := { || ::oDbfxls:Fields("codmez"):value }
oCol:cHeader := "Cod.Form"
oCol:cFooter := " "
oCol:nWidth := 60
oCol:nHeadStrAlign := AL_LEFT //AL_RIGHT AL_CENTER
oCol:nDataStrAlign := AL_LEFT
oCol := oLbx:AddCol()
oCol:bStrData := { || ::oDbfxls:Fields("nombre_mez"):value }
oCol:cHeader := "Nombre.Formulacion"
oCol:cFooter := " "
oCol:nWidth := 280
oCol:nHeadStrAlign := AL_LEFT //AL_RIGHT AL_CENTER
oCol:nDataStrAlign := AL_LEFT
oCol := oLbx:AddCol()
oCol:bStrData := { || ::oDbfxls:Fields("codmat"):value }
oCol:cHeader := "Material"
oCol:cFooter := " "
oCol:nWidth := 60
oCol:nHeadStrAlign := AL_LEFT //AL_RIGHT AL_CENTER
oCol:nDataStrAlign := AL_LEFT
oCol := oLbx:AddCol()
oCol:bStrData := { || ::oDbfxls:Fields("Nom_material"):value }
oCol:cHeader := "Nombre Material"
oCol:cFooter := " "
oCol:nWidth := 280
oCol:nHeadStrAlign := AL_LEFT //AL_RIGHT AL_CENTER
oCol:nDataStrAlign := AL_LEFT
oCol := oLbx:AddCol()
oCol:bStrData := { || ::oDbfxls:Fields("por_1"):value }
oCol:cHeader := "Porc%"
oCol:cFooter := " "
oCol:nWidth := 40
oCol:nHeadStrAlign := AL_LEFT //AL_RIGHT AL_CENTER
oCol:nDataStrAlign := AL_RIGHT
oCol := oLbx:AddCol()
oCol:AddResource("CHECK_SI")
oCol:AddResource("CHECK_NO")
oCol:bBmpData := { || iif(::oDbfxls:Fields("status"):value=1, 1, 2) }
oCol:bStrData := { || IIF(::oDbfxls:Fields("status"):value=1, "Si","No") }
oCol:cHeader := "Status"
oCol:cFooter := "Married"
oCol:nWidth := 60
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oLbx:oFont := ::oBrwFont //oBrw:SetFont( oBrwFont )
i := 1
FOR i := 1 TO LEN( oLbx:aCols )
WITH OBJECT oLbx:aCols[i]
oLbx:aCols[i]:oHeaderFont := ::oHeadFont
oLbx:aCols[i]:oFooterFont := ::oFootFont
END
NEXT
Endif
oLbx:lHScroll := .T.
oLbx:lVScroll := .T.
oLbx:lFooter := .T.
oLbx:SetAdo(::oDbfxls) //oBrw:SetRDD()
oLbx:refresh()