Setscope
Publicado: Sab Abr 22, 2006 10:33 pm
Tengo unos folder en los que se ven:
En el Uno Fras del Cliente cuyo codigo es ::oMatri (oDbfDataSet2)
En el Dos Albaranes del cliente cuyo codigo es ::oMatri(oDbfDataSet3)
Hago lo siguiente para establecer los scopes
METHOD MUESTRA1( oSender ) CLASS CLIDA10
::oDBBrowse1:lvisible := .t.
::oDbfDataSet3:OrdSetFocus( 2 )
::ODBFDATASET2:SETSCOPE(::OMATRI:VALUE(), ::OMATRI:VALUE())
::oDbfDataSet3:OrdSetFocus( 2 )
::ODBFDATASET3:SETSCOPE(::OMATRI:VALUE(), ::OMATRI:VALUE())
::oDbfDataSet3:AddCalcField( "numero", {||
::oDbfDataSet3:cSeral+"/"+::oDbfDataSet3:cnumal } )
RETURN Nil
Pues cuando pongo la linea 6 casca. Si no, funciona bien excepto que,
logicamente, me muestra los albaranes de todos los clientes.
Este el ERROR.LOG
***************************** Registro de errores
*****************************
Fecha: 22-04-06
Hora: 22:26:03
Memoria libre: 485192
Area actual: 4
------------------------- Información del
compilador --------------------------
Versión Xailer: Xailer 0.99.7 Pre-release 7a
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Información detallada del
error -----------------------
Subsistema: BASE
Código de error: 1132
Estado: .F.
Descripción: Error de rango
Operación: acceso al array
Argumentos: [ 1] = Tipo: A Valor: [ 2] = Tipo: N Valor: 1
Fichero:
Código error SO: 0
Pila de llamadas:
(b)XBROWSE:XBROWSE (187)
TDBBROWSE:COLATPOS (0)
TDBBROWSE:DRAWLINE (225)
TDBFDATASET:CHANGEPOS (417)
TDBFDATASET:GOTOP (328)
TDBFDATASET:SETSCOPE (1108)
CLIDA10:MUESTRA1 (352)
TDBBROWSE:ONCREATE (0)
TCONTROL:CREATE (258)
TSTDCONTROL:CREATE (67)
TWINCONTROL:CREATE (86)
TBROWSE:CREATE (345)
TDBBROWSE:CREATE (82)
CLIDA10:CREATEFORM (1242)
CLIDA10:NEW (179)
CLIBRW10:EDIT (207)
(b)CLIBRW10:FORMINITIALIZE (152)
TTOOLBUTTON:ONCLICK (0)
(b)XTOOLBUTTON:XTOOLBUTTON (54)
TTOOLBUTTON:CLICK (0)
TTOOLBAR:COMMAND (173)
TREBAR:WMCOMMAND (254)
RUNFORM (0)
TAPPLICATION:RUN (189)
MAIN (24)
------------------ Información detallada de áreas de
trabajo ------------------
Area: 1
Alias: CLIEN
Registro: 2
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
Area: 2
Alias: CLIEN0
Registro: 1
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
Area: 3
Alias: FACTU
Registro: 23583
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
Area: 4
Alias: ALBAR
Registro: 424
Filtro:
Relación:
Orden del índice: 2
Clave activa: 2
En el Uno Fras del Cliente cuyo codigo es ::oMatri (oDbfDataSet2)
En el Dos Albaranes del cliente cuyo codigo es ::oMatri(oDbfDataSet3)
Hago lo siguiente para establecer los scopes
METHOD MUESTRA1( oSender ) CLASS CLIDA10
::oDBBrowse1:lvisible := .t.
::oDbfDataSet3:OrdSetFocus( 2 )
::ODBFDATASET2:SETSCOPE(::OMATRI:VALUE(), ::OMATRI:VALUE())
::oDbfDataSet3:OrdSetFocus( 2 )
::ODBFDATASET3:SETSCOPE(::OMATRI:VALUE(), ::OMATRI:VALUE())
::oDbfDataSet3:AddCalcField( "numero", {||
::oDbfDataSet3:cSeral+"/"+::oDbfDataSet3:cnumal } )
RETURN Nil
Pues cuando pongo la linea 6 casca. Si no, funciona bien excepto que,
logicamente, me muestra los albaranes de todos los clientes.
Este el ERROR.LOG
***************************** Registro de errores
*****************************
Fecha: 22-04-06
Hora: 22:26:03
Memoria libre: 485192
Area actual: 4
------------------------- Información del
compilador --------------------------
Versión Xailer: Xailer 0.99.7 Pre-release 7a
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Información detallada del
error -----------------------
Subsistema: BASE
Código de error: 1132
Estado: .F.
Descripción: Error de rango
Operación: acceso al array
Argumentos: [ 1] = Tipo: A Valor: [ 2] = Tipo: N Valor: 1
Fichero:
Código error SO: 0
Pila de llamadas:
(b)XBROWSE:XBROWSE (187)
TDBBROWSE:COLATPOS (0)
TDBBROWSE:DRAWLINE (225)
TDBFDATASET:CHANGEPOS (417)
TDBFDATASET:GOTOP (328)
TDBFDATASET:SETSCOPE (1108)
CLIDA10:MUESTRA1 (352)
TDBBROWSE:ONCREATE (0)
TCONTROL:CREATE (258)
TSTDCONTROL:CREATE (67)
TWINCONTROL:CREATE (86)
TBROWSE:CREATE (345)
TDBBROWSE:CREATE (82)
CLIDA10:CREATEFORM (1242)
CLIDA10:NEW (179)
CLIBRW10:EDIT (207)
(b)CLIBRW10:FORMINITIALIZE (152)
TTOOLBUTTON:ONCLICK (0)
(b)XTOOLBUTTON:XTOOLBUTTON (54)
TTOOLBUTTON:CLICK (0)
TTOOLBAR:COMMAND (173)
TREBAR:WMCOMMAND (254)
RUNFORM (0)
TAPPLICATION:RUN (189)
MAIN (24)
------------------ Información detallada de áreas de
trabajo ------------------
Area: 1
Alias: CLIEN
Registro: 2
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
Area: 2
Alias: CLIEN0
Registro: 1
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
Area: 3
Alias: FACTU
Registro: 23583
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
Area: 4
Alias: ALBAR
Registro: 424
Filtro:
Relación:
Orden del índice: 2
Clave activa: 2