Tengo este metodo para el uso de datalistview, con el siguiente problema, como defino el use() con un archivo auxiliar paso el method, no me puedo dar cuenta como es. ( lo defini de varias manera pero me larga error)
METHOD PostInit(oWindow,iCtlID,oServer,uExtra) CLASS OrdenVidrios
//Put your PostInit additions here
//Put your PostInit additions here
// archivos temporarios
LOCAL odbFactu AS Dbserver
LOCAL cBase AS STRING
cBase := "FACTU"+Trim(NroUsuarios)
DBUSEAREA(TRUE,"dbfntx",cbase,"auxiliar",FALSE)
//DataListView que visualiza la orden
SELF:oDCDLV_OrdenVidrios:AddColumn(ListViewColumn{10,Hyperlabel{#ARTI,"Codigo"}})
SELF:oDCDLV_OrdenVidrios:AddColumn(ListViewColumn{15,Hyperlabel{#DESC,"Codigo"}})
SELF:oDCDLV_OrdenVidrios:AddColumn(ListViewColumn{5,Hyperlabel{#CANT,"Codigo"}})
SELF:oDCDLV_OrdenVidrios:AddColumn(ListViewColumn{10,Hyperlabel{#PREC,"Codigo"}})
SELF:oDCDLV_OrdenVidrios:AddColumn(ListViewColumn{10,Hyperlabel{#LADO1,"Codigo"}})
SELF:oDCDLV_OrdenVidrios:AddColumn(ListViewColumn{10,Hyperlabel{#LADO2,"Codigo"}})
SELF:oDCDLV_OrdenVidrios:AddColumn(ListViewColumn{10,Hyperlabel{#LADOS,"Codigo"}})
SELF:oDCDLV_OrdenVidrios:AddColumn(ListViewColumn{10,Hyperlabel{#TOTAL,"Codigo"}})
LOCAL odbFactu AS Dbserver
LOCAL cBase AS STRING
cBase := "FACTU"+Trim(NroUsuarios)
DBUSEAREA(TRUE,"dbfntx",cbase,"auxiliar",FALSE)
//DataListView que visualiza la orden
SELF:oDCDLV_OrdenVidrios:AddColumn(ListViewColumn{10,Hyperlabel{#ARTI,"Codigo"}})
SELF:oDCDLV_OrdenVidrios:AddColumn(ListViewColumn{15,Hyperlabel{#DESC,"Codigo"}})
SELF:oDCDLV_OrdenVidrios:AddColumn(ListViewColumn{5,Hyperlabel{#CANT,"Codigo"}})
SELF:oDCDLV_OrdenVidrios:AddColumn(ListViewColumn{10,Hyperlabel{#PREC,"Codigo"}})
SELF:oDCDLV_OrdenVidrios:AddColumn(ListViewColumn{10,Hyperlabel{#LADO1,"Codigo"}})
SELF:oDCDLV_OrdenVidrios:AddColumn(ListViewColumn{10,Hyperlabel{#LADO2,"Codigo"}})
SELF:oDCDLV_OrdenVidrios:AddColumn(ListViewColumn{10,Hyperlabel{#LADOS,"Codigo"}})
SELF:oDCDLV_OrdenVidrios:AddColumn(ListViewColumn{10,Hyperlabel{#TOTAL,"Codigo"}})
SELF:oDCDLV_OrdenVidrios:Use( aca )
SELF:oDCDLV_OrdenVidrios:Refresh()
RETURN NIL
SELF:oDCDLV_OrdenVidrios:Refresh()
RETURN NIL
Muchas gracias
Luengo Sergio
General Pico
La Pampa
Analista de Sistemas
General Pico
La Pampa
Analista de Sistemas