Gracias Jose Luis, colegas que le dieron un vistazo a mi problema
Adapte el ejemplo de Jose Luis a mi function y quedo asi:
FUNCTION EDITAFILE(oWnd)
LOCAL oBrow,oFntArial,oFntArial2,oCol
LOCAL AliasCmp
LOCAL cFilCompra:=cImpLoc+"WI"+SUBSTR(TIME(),1,2)+SUBSTR(TIME(),4,2)+SUBSTR(TIME(),7,2)+".DBF"
LOCAL aStru:={ {"FILIAL","C",3,0},{"CODIGO","C",3,0},{"ALMACEN","C",2,0},{"CANTIDAD","N",12,2} }
DbCreate(cFilCompra,aStru)
USE &cFilCompra NEW SHARED Alias FTAlmacenes
* Dialogo
DEFINE FONT oFntArial NAME "Arial" SIZE 0, -14
DEFINE FONT oFntArial2 NAME "Arial" SIZE 0, -14 BOLD
DEFINE BRUSH oBrush NAME "BMP_TECLAS2"
DEFINE DIALOG oDlgTraslado RESOURCE "CONS_TABLA" BRUSH oBrush OF oWnd TITLE "Stock en Almacenes"
DBSELECTAREA("FTAlmacenes") // MAESTRO DE ALUMNOS
*FTAlmacenes->( OrdSetFocus(2) )
FTAlmacenes->( DBGOTOP() )
DATABASE oDbfALUM // LECTURA Y CLONACION DE DBF ORIGINAL
oDbfALUM:GOTOP()
*REDEFINE XBROWSE oBrow ID 112 OF oDlgTraslado
*oBrow:=TxBrowse():Redefine(112,oDlgTraslado) ESTE NO FUNCIONA !!!!!
oBrow:=TxBrowse():New( oDlgTraslado )
WITH OBJECT oBrow
:bClrStd := { || If( ( oBrow:nArrayAt % 2 ) == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) }
:bClrSel := { || If( ( oBrow:nArrayAt % 2 ) == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) }
:nMarqueeStyle := 4
:bRClicked := { || msginfo(cvaltochar(recno())) } // LLAMA MENU-POPUP CON BOTON DERECHO
:nLeft := 203 // DISTANCIA DESDE EL BORDER IZQ.
:nMarqueeStyle := 2 // MARQSTYLE_HIGHLROW
:nColDividerStyle := 2 //LINESTYLE_BLACK
:nStretchCol := STRETCHCOL_LAST
:lColDividerComplete := .T.
:nHeaderHeight := 30
:l2007 := .T.
:lFooter := .F.
:lRecordSelector := .T.
END WITH
//COMIENZAN LAS COLUMNAS
*** COL.1
oCol := oBrow:AddCol()
oCol:bStrData := {|| IIF( LastRec() > 0 ,;
STRZERO( FTAlmacenes->FILIAL, 7 ), SPACE(10) ) }
oCol:cHeader := "Filial"
oCol:nWidth := 70
oCol:nHeadStrAlign := AL_CENTER
oCol:nDataStrAlign := AL_LEFT
*** COL.2
oCol := oBrow:AddCol()
oCol:bStrData := {|| IIF( LastRec() > 0, FTAlmacenes->CODIGO, SPACE(250) ) }
oCol:cHeader := "Codigo"
oCol:nWidth := 250
oCol:nHeadStrAlign := AL_CENTER
oCol:nDataStrAlign := AL_LEFT
*** COL.3
oCol := oBrow:AddCol()
oCol:bStrData := {|| IIF( LastRec() > 0, FTAlmacenes->ALMACEN, SPACE(250) ) }
oCol:cHeader := "Almacen"
oCol:nWidth := 250
oCol:nHeadStrAlign := AL_CENTER
oCol:nDataStrAlign := AL_LEFT
*** COL.4
oCol := oBrow:AddCol()
oCol:bStrData := {|| IIF( LastRec() > 0 ,;
STRZERO( FTAlmacenes->CANTIDAD, 8 ), SPACE(10) ) }
oCol:cHeader := "Cantidad"
oCol:nWidth := 70
oCol:nHeadStrAlign := AL_CENTER
oCol:nDataStrAlign := AL_LEFT
// TERMINAN LAS COLUMNAS
oBrow:cAlias := "FTAlmacenes"
oBrow:SetRDD()
oBrow:Refresh( .T. )
oBrow:CreateFromCode()
REDEFINE BTNBMP ID 117 OF oDlgTraslado NAME "BMP_ACEPTAR" ACTION (lAceptar:=.T.,oDlgTraslado:End())
REDEFINE BTNBMP ID 118 OF oDlgTraslado NAME "BMP_SALIR" ACTION (lAceptar:=.F.,oDlgTraslado:End())
ACTIVATE DIALOG oDlgTraslado CENTERED
Select("FTAlmacenes")
IF lAceptar
* ACCIONES
ENDIF
FTAlmacenes->(DbCloseArea())
*oFntArial:End()
*oFntArial2:End()
*oLbxCompra:UpStable()
*oLbxCompra:Refresh()
RETURN Nil
Compilo !!!!! me emocioné, me dio problemas en :nMarqueeStyle := MARQSTYLE_HIGHLROW, :nColDividerStyle := LINESTYLE_BLACK, :nStretchCol := STRETCHCOL_LAST.... cambié los valores y me dio el error :
Error description: Error BASE/1003 Variable does not exist: STRETCHCOL_LAST
Stack Calls
===========
Called from: VT20100.prg => EDITAFILE(11072)
Called from: FW-VT2.prg => (b)BUILDMENU(796)
Called from: MENU.PRG => TMENU:COMMAND(0)
Quité esa linea y ahora se cuelga al parecer sin retorno... luego salio error en AL_CENTER
oCol:nDataStrAlign := AL_LEFT
quité todos los AL_CENTER y AL_LEFT y que creen... ahora me da este mensaje:
Time from start: 0 hours 0 mins 27 secs
Error occurred at: 11/01/2013, 01:12:16
Error description: Error FiveWin/1 Non defined Id: No: 123
Stack Calls
===========
Called from: CONTROL.PRG => TCONTROL:INITIATE(0)
Called from: XBROWSE.PRG => TXBROWSE:INITIATE(0)
Called from: => __OBJSENDMSG(0)
Called from: HARBOUR.PRG => OSEND(0)
Called from: HARBOUR.PRG => ASEND(0)
Called from: DIALOG.PRG => TDIALOG:INITIATE(0)
Called from: DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOX(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: VT20100.prg => EDITAFILE(11128)
Called from: FW-VT2.prg => (b)BUILDMENU(796)
Called from: MENU.PRG => TMENU:COMMAND(0)
Todos sabemos que este error se refiere a que en la funcion se hace referencia a un recurso IDentificado con el numero "123"...
en toda la funcion no veo un ID con ese numero, si alguien lo ve por favor aviseme!!!
el xbrowse.ch que utilizo tiene fecha 04/02/2008 08:01 p.m. 3,559 .... es el correcto ?
Gracias
