Re: PROBLEMA CON TXBROWSE
Posted: Thu Jan 10, 2013 12:04 am
Gracias Jose Luis, ahi paso el codigo, pero....
Francisco, entonces estoy usando la siyntaxis de otra version???, ese debe ser el problema sin duda, en los ejemplos de \Samples de mi version testxbrw.prg y testxbr2.prg no hay algo parecido, asi que no cuento con un ejemplo desde recursos.
FUNCTION EDITAFILE()
LOCAL oLbxAlmacenes,oFntArial,oFntArial2
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 oDlg TITLE "Stock en Almacenes"
REDEFINE XBROWSE oLbxAlmacenes ID 112 OF oDlgTraslado ;
COLUMNS "FILIAL", "CODIGO", "ALMACEN","CANTIDAD" ;
HEADERS "FL","CO","Almacen","Cantidad";
SIZES 70,170,170,140 ;
ALIAS "FTAlmacenes" FOOTERS LINES CELL
AEval( oLbxAlmacenes:aCols, { |o| o:nEditType := 0 ,; //No editables
o:nHeadStrAlign := 2 } ) //texto encab/col centrado
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 ON INIT (oLbxAlmacenes:SetFocus(.T.))
Select("FTAlmacenes")
IF lAceptar
* ACCIONES
ENDIF
FTAlmacenes->(DbCloseArea())
oFntArial:End()
oFntArial2:End()
oLbxCompra:UpStable()
oLbxCompra:Refresh()
RETURN Nil
Error E0030 syntax error "Syntax error at 'XBROWSE' "
en mi epitafio pondre este mensaje de error.....
Error E0030 syntax error "Syntax error at 'XBROWSE' "
Francisco, entonces estoy usando la siyntaxis de otra version???, ese debe ser el problema sin duda, en los ejemplos de \Samples de mi version testxbrw.prg y testxbr2.prg no hay algo parecido, asi que no cuento con un ejemplo desde recursos.
FUNCTION EDITAFILE()
LOCAL oLbxAlmacenes,oFntArial,oFntArial2
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 oDlg TITLE "Stock en Almacenes"
REDEFINE XBROWSE oLbxAlmacenes ID 112 OF oDlgTraslado ;
COLUMNS "FILIAL", "CODIGO", "ALMACEN","CANTIDAD" ;
HEADERS "FL","CO","Almacen","Cantidad";
SIZES 70,170,170,140 ;
ALIAS "FTAlmacenes" FOOTERS LINES CELL
AEval( oLbxAlmacenes:aCols, { |o| o:nEditType := 0 ,; //No editables
o:nHeadStrAlign := 2 } ) //texto encab/col centrado
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 ON INIT (oLbxAlmacenes:SetFocus(.T.))
Select("FTAlmacenes")
IF lAceptar
* ACCIONES
ENDIF
FTAlmacenes->(DbCloseArea())
oFntArial:End()
oFntArial2:End()
oLbxCompra:UpStable()
oLbxCompra:Refresh()
RETURN Nil
Error E0030 syntax error "Syntax error at 'XBROWSE' "
en mi epitafio pondre este mensaje de error.....
![Sad :(](./images/smilies/icon_sad.gif)
Error E0030 syntax error "Syntax error at 'XBROWSE' "