Xailer & OZ Software

***************************** Registro de errores *****************************
Fecha: 11-04-2007
Hora: 11:16:52
Memoria libre: 124980
Area actual: 16
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 1.3.3 Version 1.3c
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: 1004
Estado: .F.
Descripción: Class: 'NIL' has no exported method
Operación: LONEDIT
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TDBBRWCOLUMN:EDIT (745)
TBROWSE:EDIT (2992)
TDBBROWSE:EDIT (1124)
TBROWSE:APPEND (3051)
TDBBROWSE:APPEND (1136)
(b)TFORMEDITUSUARIOS:CREATEFORM (637)
TBTNBMP:ONCLICK (0)
TBTNBMP:CLICK (99)
(b)XCONTROL:XCONTROL (138)
TBTNBMP:COMMAND (0)
TFOLDERPAGE:WMCOMMAND (256)
TFORMEDITUSUARIOS:SHOWMODAL (0)
TFORMUSUARIOS:EDIT (58)
TDBBROWSE:ONDBLCLICK (0)
TDBBROWSE:WMLBUTTONDBLCLK (2033)
RUNFORM (0)
TAPPLICATION:RUN (208)
MAIN (15)
------------------ Información detallada de áreas de trabajo ------------------
Area: 1
Alias: USUARIOS
Registro: 1
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
Area: 2
Alias: USUARIOS0
Registro: 1
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
Area: 3
Alias: PAISES
Registro: 1
Filtro:
Relación:
Orden del índice: 0
Clave activa: 0
Area: 4
Alias: CEE
Registro: 1
Filtro:
Relación:
Orden del índice: 0
Clave activa: 0
Area: 5
Alias: USUARIOSFO
Registro: 1
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
Area: 6
Alias: USUARIOSF0
Registro: 261
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
Area: 7
Alias: USUARIOSCA
Registro: 109
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
Area: 8
Alias: TITULACION
Registro: 36
Filtro:
Relación:
Orden del índice: 3
Clave activa: 3
Area: 9
Alias: PERMISOSCO
Registro: 1
Filtro:
Relación:
Orden del índice: 0
Clave activa: 0
Area: 10
Alias: USUARIOSIN
Registro: 108
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
Area: 11
Alias: USUARIOSID
Registro: 123
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
Area: 12
Alias: PERMISOSTR
Registro: 1
Filtro:
Relación:
Orden del índice: 0
Clave activa: 0
Area: 13
Alias: USUARIOSTR
Registro: 76
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
Area: 14
Alias: USUARIOSEX
Registro: 2
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
Area: 15
Alias: USUARIOSBE
Registro: 2
Filtro:
Relación:
Orden del índice: 0
Clave activa: 0
Area: 16
Alias: IDIOMAS
Registro: 1
Filtro:
Relación:
Orden del índice: 0
Clave activa: 0
--

Bingen,
lOnEdit es un metodo de TDataset y efectivamente parece que no está asignado
TBrowse:oDataSet. Esto ocurre cuando el oDataField asignado no es correcto.
Por favor compruebalo. Si te sigue fallando, dime como reproducir el error
con samplesdatacontrolsMemdataset ya que incluso ahí hay un botón de
'Append' que hace lo mismo y parece que funciona correctamente.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:[email=461ca7e6@ozsrv2.ozlan.local...]461ca7e6@ozsrv2.ozlan.local...[/email]
> Buenas compañeros del foro.
>
> En una aplicación que ya tenía en marcha la cual tiene un form con
> varios folder en los cuales tengo un buen número de DBBrowses que
> trabajan sobre MemDataSets y cada uno tiene un botón para añadir líneas
> con este codeblock {|| ::oDbBrowseX:Append() }
>
> Hasta ahora me añadía una línea y entraba en edición directamente ya que
> las columnas son de tipo beGET y el browse es lAllowEdit:=.t. y
> lFastEdit:=.t.
>
> Ahora al volver a compilar con la nueva versión y pulsar sobre este
> botón de añadir me lanza este error ???
>
> Una ayudita por favor, muchas gracias.
>
------------------------------------------------------------ --------------------
> ***************************** Registro de errores
> *****************************
>
> Fecha: 11-04-2007
> Hora: 11:16:52
> Memoria libre: 124980
> Area actual: 16
>
> ------------------------- Información del
> compilador --------------------------
>
> Versión Xailer: Xailer 1.3.3 Version 1.3c
> 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: 1004
> Estado: .F.
> Descripción: Class: 'NIL' has no exported method
> Operación: LONEDIT
> Argumentos:
> Fichero:
> Código error SO: 0
>
> Pila de llamadas:
> TDBBRWCOLUMN:EDIT (745)
> TBROWSE:EDIT (2992)
> TDBBROWSE:EDIT (1124)
> TBROWSE:APPEND (3051)
> TDBBROWSE:APPEND (1136)
> (b)TFORMEDITUSUARIOS:CREATEFORM (637)
> TBTNBMP:ONCLICK (0)
> TBTNBMP:CLICK (99)
> (b)XCONTROL:XCONTROL (138)
> TBTNBMP:COMMAND (0)
> TFOLDERPAGE:WMCOMMAND (256)
> TFORMEDITUSUARIOS:SHOWMODAL (0)
> TFORMUSUARIOS:EDIT (58)
> TDBBROWSE:ONDBLCLICK (0)
> TDBBROWSE:WMLBUTTONDBLCLK (2033)
> RUNFORM (0)
> TAPPLICATION:RUN (208)
> MAIN (15)
>
> ------------------ Información detallada de áreas de
> trabajo ------------------
>
> Area: 1
> Alias: USUARIOS
> Registro: 1
> Filtro:
> Relación:
> Orden del índice: 1
> Clave activa: 1
>
> Area: 2
> Alias: USUARIOS0
> Registro: 1
> Filtro:
> Relación:
> Orden del índice: 1
> Clave activa: 1
>
> Area: 3
> Alias: PAISES
> Registro: 1
> Filtro:
> Relación:
> Orden del índice: 0
> Clave activa: 0
>
> Area: 4
> Alias: CEE
> Registro: 1
> Filtro:
> Relación:
> Orden del índice: 0
> Clave activa: 0
>
> Area: 5
> Alias: USUARIOSFO
> Registro: 1
> Filtro:
> Relación:
> Orden del índice: 1
> Clave activa: 1
>
> Area: 6
> Alias: USUARIOSF0
> Registro: 261
> Filtro:
> Relación:
> Orden del índice: 1
> Clave activa: 1
>
> Area: 7
> Alias: USUARIOSCA
> Registro: 109
> Filtro:
> Relación:
> Orden del índice: 1
> Clave activa: 1
>
> Area: 8
> Alias: TITULACION
> Registro: 36
> Filtro:
> Relación:
> Orden del índice: 3
> Clave activa: 3
>
> Area: 9
> Alias: PERMISOSCO
> Registro: 1
> Filtro:
> Relación:
> Orden del índice: 0
> Clave activa: 0
>
> Area: 10
> Alias: USUARIOSIN
> Registro: 108
> Filtro:
> Relación:
> Orden del índice: 1
> Clave activa: 1
>
> Area: 11
> Alias: USUARIOSID
> Registro: 123
> Filtro:
> Relación:
> Orden del índice: 1
> Clave activa: 1
>
> Area: 12
> Alias: PERMISOSTR
> Registro: 1
> Filtro:
> Relación:
> Orden del índice: 0
> Clave activa: 0
>
> Area: 13
> Alias: USUARIOSTR
> Registro: 76
> Filtro:
> Relación:
> Orden del índice: 1
> Clave activa: 1
>
> Area: 14
> Alias: USUARIOSEX
> Registro: 2
> Filtro:
> Relación:
> Orden del índice: 1
> Clave activa: 1
>
> Area: 15
> Alias: USUARIOSBE
> Registro: 2
> Filtro:
> Relación:
> Orden del índice: 0
> Clave activa: 0
>
> Area: 16
> Alias: IDIOMAS
> Registro: 1
> Filtro:
> Relación:
> Orden del índice: 0
> Clave activa: 0
>

Perdón mea culpa mea culpa ya me estoy dando de tortas, un campo con í‘
en el nombre era el problema aunque jurarí­a que antes me anduvo pero.....
Salu2.
Ignacio Ortiz de Zúñiga escribió:
> Bingen,
>
> lOnEdit es un metodo de TDataset y efectivamente parece que no está asignado
> TBrowse:oDataSet. Esto ocurre cuando el oDataField asignado no es correcto.
> Por favor compruebalo. Si te sigue fallando, dime como reproducir el error
> con samplesdatacontrolsMemdataset ya que incluso ahí­ hay un botón de
> 'Append' que hace lo mismo y parece que funciona correctamente.
>
> Un saludo
>

Siento seguir molestando pero no era la í‘ la que daba problemas me he
liado haciendo pruebas y pensaba haberlo resuelto pero no.
El error lo da Xailer cuando tras haber construido el array a introducir
en el MemDataSet de la siguiente manera
// Cargar browse de estudios de idiomas
METHOD MemIdiomasCreate( oSender ) CLASS TFormEditUsuarios
::oDbfIdiomas:SetScope(::oDbfUsuarios:Nif,,.T.)
oSender:Open(::oDbfIdiomas:SaveToArray({"Anio","Curso","Nivel "}),{"Anio","Curso","Nivel"})
RETURN Nil
y si el Scope no ha encontrado ningún registro y por lo tanto el
savetoarray nos da un array de longitud cero es decir vacio y por lo
tanto el DBBrowse sale vacio.
Si en ese momento le doy añadir es cuando se produce el error.
Lo mismo pasa con vuestro ejemplo samplesdatacontrolsMemdataset si
cambias la linea
:Open( Directory( "*.kk", "D" ), {"NAME", "LENGTH", "DATE", "TIME",
"TYPE" } )
Salu2.
Bingen Ugaldebere escribió:
> Perdón mea culpa mea culpa ya me estoy dando de tortas, un campo con í‘
> en el nombre era el problema aunque jurarí­a que antes me anduvo pero.....
>
> Salu2.
>
>
> Ignacio Ortiz de Zúñiga escribió:
>> Bingen,
>>
>> lOnEdit es un metodo de TDataset y efectivamente parece que no está
>> asignado TBrowse:oDataSet. Esto ocurre cuando el oDataField asignado
>> no es correcto. Por favor compruebalo. Si te sigue fallando, dime como
>> reproducir el error con samplesdatacontrolsMemdataset ya que
>> incluso ahí­ hay un botón de 'Append' que hace lo mismo y parece que
>> funciona correctamente.
>>
>> Un saludo
>>

Bingen,
Si le pasas al método Open() una matriz vacia es imposible que el MemDataSet
recupera la información de cada tipo de columna. Si quieres empezar con un
dataset vacío necesitas indicarle al dataset los campos que va a tener y el
tipo de cada uno de ellos. Lo más sencillo es utilizar el método
GetStructFrom(). Algo así:
METHOD FormInitialize( oSender ) CLASS TForm1
SET EPOCH TO 1950
WITH OBJECT ::oMemDataSet1
:GetStructFrom( {{"NAME","C",200,0}, {"LENGTH","N",10,0},
{"DATE","D",8,0}, {"TIME","C",10,0}, {"TYPE","C", 5, 0}} )
:Open( Directory( "kk.*", "D" ) )
END WITH
RETURN Nil
No obstante voy a modificar la clase para que de un mensaje de error en el
método Open.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:[email=461e401c@ozsrv2.ozlan.local...]461e401c@ozsrv2.ozlan.local...[/email]
> Siento seguir molestando pero no era la Ñ la que daba problemas me he
> liado haciendo pruebas y pensaba haberlo resuelto pero no.
>
> El error lo da Xailer cuando tras haber construido el array a introducir
> en el MemDataSet de la siguiente manera
>
> // Cargar browse de estudios de idiomas
> METHOD MemIdiomasCreate( oSender ) CLASS TFormEditUsuarios
> ::oDbfIdiomas:SetScope(::oDbfUsuarios:Nif,,.T.)
> oSender:Open(::oDbfIdiomas:SaveToArray({"Anio","Curso","Nivel "}),{"Anio","Curso","Nivel"})
> RETURN Nil
>
> y si el Scope no ha encontrado ningún registro y por lo tanto el
> savetoarray nos da un array de longitud cero es decir vacio y por lo tanto
> el DBBrowse sale vacio.
>
> Si en ese momento le doy añadir es cuando se produce el error.
>
> Lo mismo pasa con vuestro ejemplo samplesdatacontrolsMemdataset si
> cambias la linea
>
> :Open( Directory( "*.kk", "D" ), {"NAME", "LENGTH", "DATE", "TIME",
> "TYPE" } )
>
>
> Salu2.
>
>
> Bingen Ugaldebere escribió:
>> Perdón mea culpa mea culpa ya me estoy dando de tortas, un campo con Ñ en
>> el nombre era el problema aunque juraría que antes me anduvo pero.....
>>
>> Salu2.
>>
>>
>> Ignacio Ortiz de Zúñiga escribió:
>>> Bingen,
>>>
>>> lOnEdit es un metodo de TDataset y efectivamente parece que no está
>>> asignado TBrowse:oDataSet. Esto ocurre cuando el oDataField asignado no
>>> es correcto. Por favor compruebalo. Si te sigue fallando, dime como
>>> reproducir el error con samplesdatacontrolsMemdataset ya que incluso
>>> ahí hay un botón de 'Append' que hace lo mismo y parece que funciona
>>> correctamente.
>>>
>>> Un saludo
>>>

Muy bien con un oSender:GetStructFrom (::oDbfIdiomas) ya tengo la
estructura del oMemDataSet pero con todos los campos y en el orden en
que estan en el Dataset.
Si luego hago
oSender:Open(::oDbfIdiomas:SaveToArray({"Anio","Curso","Nivel "}))
con solo algunos campos del dataset como hacia antes, claro no coincide
y casca, y si son 42 campos es una paliza.
Pregunto
Hay alguna manera de que SaveToArray cargue todos los campos del
Dataset, lo cual luego también dará un problema al grabar ya que al
asignar elementos del array al DBF de destino ya que se asignan por el
nº del elemento
::oDbfIdiomas:Anio :=::oMemIdiomas:aData[nItem,1]
::oDbfIdiomas:Curso :=::oMemIdiomas:aData[nItem,2]
::oDbfIdiomas:Nivel :=::oMemIdiomas:aData[nItem,3]
y se te ocurre cambiar la estructura del Dataset, problema al canto.
Propongo (No se si será posible pero si mas lógico)
oSender:GetStructFrom no podrí­a recibir un array sin tener que
especificar nombre, tipo, tamaño, decimales algo asi como :Open
oSender:GetStructFrom (::oDbfIdiomas:SaveToArray({"Anio","Curso","Nivel"}))
y que los calcule el, mas que nada por si un dí­a cambian los tamaños etc.
Supongo que es mucho pedir pero así­ serí­a tan simple como
METHOD MemIdiomasCreate( oSender ) CLASS TFormEditUsuarios
oSender:GetStructFrom
(::oDbfIdiomas:SaveToArray({"Anio","Curso","Nivel"}))
::oDbfIdiomas:SetScope(::oDbfUsuarios:Nif,,.T.)
oSender:Open(::oDbfIdiomas:SaveToArray({"Anio","Curso","Nivel "}))
RETURN Nil
Muchas gracias por vuestro tiempo y atención.
Salu2.
Ignacio Ortiz de Zúñiga escribió:
> Bingen,
>
> Si le pasas al método Open() una matriz vacia es imposible que el MemDataSet
> recupera la información de cada tipo de columna. Si quieres empezar con un
> dataset vací­o necesitas indicarle al dataset los campos que va a tener y el
> tipo de cada uno de ellos. Lo más sencillo es utilizar el método
> GetStructFrom(). Algo así­:
>
> METHOD FormInitialize( oSender ) CLASS TForm1
>
> SET EPOCH TO 1950
>
> WITH OBJECT ::oMemDataSet1
> :GetStructFrom( {{"NAME","C",200,0}, {"LENGTH","N",10,0},
> {"DATE","D",8,0}, {"TIME","C",10,0}, {"TYPE","C", 5, 0}} )
> :Open( Directory( "kk.*", "D" ) )
> END WITH
>
> RETURN Nil
>
>
> No obstante voy a modificar la clase para que de un mensaje de error en el
> método Open.
>
> Un saludo
>

Bingen,
> oSender:Open(::oDbfIdiomas:SaveToArray({"Anio","Curso","Nivel "}))
>
> con solo algunos campos del dataset como hacia antes, claro no coincide y
> casca, y si son 42 campos es una paliza.
¿?¿?¿?¿?¿?¿?¿
¿Por qué tiene que coincidir? Si son dos datasets distintos
> Hay alguna manera de que SaveToArray cargue todos los campos del Dataset
Para eso tienes directamente la matriz TMemdataset:aData.
> y se te ocurre cambiar la estructura del Dataset, problema al canto.
¿?¿?¿?¿?¿?¿?¿
> oSender:GetStructFrom no podría recibir un array sin tener que
Precisamente, puede recibir un array con la misma estructura que DBCreate().
Mirate la documentación.
A lo mejor te es más sencillo abrir el Dataset con una única fila y luego
borrarla. En cualqueir caso al Dataset SOLO HAY QUE DARLE UNA UNICA VEZ la
estructura de sus columnas y luego se puede abrir y cerrar todas las veces
que quieras.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:[email=461e7854@ozsrv2.ozlan.local...]461e7854@ozsrv2.ozlan.local...[/email]
> Muy bien con un oSender:GetStructFrom (::oDbfIdiomas) ya tengo la
> estructura del oMemDataSet pero con todos los campos y en el orden en
> que estan en el Dataset.
>
> Si luego hago
>
> oSender:Open(::oDbfIdiomas:SaveToArray({"Anio","Curso","Nivel "}))
>
> con solo algunos campos del dataset como hacia antes, claro no coincide y
> casca, y si son 42 campos es una paliza.
>
> Pregunto
>
> Hay alguna manera de que SaveToArray cargue todos los campos del Dataset,
> lo cual luego también dará un problema al grabar ya que al asignar
> elementos del array al DBF de destino ya que se asignan por el nº del
> elemento
>
> ::oDbfIdiomas:Anio :=::oMemIdiomas:aData[nItem,1]
> ::oDbfIdiomas:Curso :=::oMemIdiomas:aData[nItem,2]
> ::oDbfIdiomas:Nivel :=::oMemIdiomas:aData[nItem,3]
>
> y se te ocurre cambiar la estructura del Dataset, problema al canto.
>
> Propongo (No se si será posible pero si mas lógico)
>
> oSender:GetStructFrom no podría recibir un array sin tener que
> especificar nombre, tipo, tamaño, decimales algo asi como :Open
> oSender:GetStructFrom
> (::oDbfIdiomas:SaveToArray({"Anio","Curso","Nivel"}))
>
> y que los calcule el, mas que nada por si un día cambian los tamaños etc.
>
> Supongo que es mucho pedir pero así sería tan simple como
>
> METHOD MemIdiomasCreate( oSender ) CLASS TFormEditUsuarios
> oSender:GetStructFrom
> (::oDbfIdiomas:SaveToArray({"Anio","Curso","Nivel"}))
> ::oDbfIdiomas:SetScope(::oDbfUsuarios:Nif,,.T.)
> oSender:Open(::oDbfIdiomas:SaveToArray({"Anio","Curso","Nivel "}))
> RETURN Nil
>
>
> Muchas gracias por vuestro tiempo y atención.
>
> Salu2.
>
>
>
> Ignacio Ortiz de Zúñiga escribió:
>> Bingen,
>>
>> Si le pasas al método Open() una matriz vacia es imposible que el
>> MemDataSet recupera la información de cada tipo de columna. Si quieres
>> empezar con un dataset vacío necesitas indicarle al dataset los campos
>> que va a tener y el tipo de cada uno de ellos. Lo más sencillo es
>> utilizar el método GetStructFrom(). Algo así:
>>
>> METHOD FormInitialize( oSender ) CLASS TForm1
>>
>> SET EPOCH TO 1950
>>
>> WITH OBJECT ::oMemDataSet1
>> :GetStructFrom( {{"NAME","C",200,0}, {"LENGTH","N",10,0},
>> {"DATE","D",8,0}, {"TIME","C",10,0}, {"TYPE","C", 5, 0}} )
>> :Open( Directory( "kk.*", "D" ) )
>> END WITH
>>
>> RETURN Nil
>>
>>
>> No obstante voy a modificar la clase para que de un mensaje de error en
>> el método Open.
>>
>> Un saludo
>>

Perdona parece que me he embrollado con mi pregunta, la simplifico:
Ya vi en la documentación que oSender:GetStructFrom puede recibir un
array con la misma estructura que DBCreate y lo he probado, lo que
querí­a decir es que si hubiera alguna forma de no tener que indicarle
Tipo, Tamaño y Decimales de los campos ya que son los del Dataset y así­
si algún dí­a cambias un campo de tamaño por ejemplo no tengas que
modificar el fuente que seguro que ni te acuerdas.
Gracias.

Bingen,
Lo siento, pero no te entiendo. El dataset necesita esa información. No se
la puede inventar.
A continuación te dejo el código de GetStructFrom() por si quieres hacerte
tu propio método modificado con sólo las columnas que desees.
Un saludo
//---------------------------------------------------------- --------------//
METHOD GetStructFrom( xData ) CLASS XMemDataSet
LOCAL oItem
IF Valtype( xData ) == "O"
FOR EACH oItem IN xData:aFields
WITH OBJECT ::AddField( oItem:cName )
:cType := oItem:cType
:nLen := oItem:nLen
:nDec := oItem:nDec
END WITH
NEXT
ELSE
FOR EACH oItem IN xData
WITH OBJECT ::AddField( oItem[ DBS_NAME ] )
:cType := oItem[ DBS_TYPE ]
:nLen := oItem[ DBS_LEN ]
:nDec := oItem[ DBS_DEC ]
END WITH
NEXT
ENDIF
RETURN NIL
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:[email=461f3e1c@ozsrv2.ozlan.local...]461f3e1c@ozsrv2.ozlan.local...[/email]
> Perdona parece que me he embrollado con mi pregunta, la simplifico:
>
> Ya vi en la documentación que oSender:GetStructFrom puede recibir un
> array con la misma estructura que DBCreate y lo he probado, lo que quería
> decir es que si hubiera alguna forma de no tener que indicarle Tipo,
> Tamaño y Decimales de los campos ya que son los del Dataset y así si algún
> día cambias un campo de tamaño por ejemplo no tengas que modificar el
> fuente que seguro que ni te acuerdas.
>
> Gracias.

Perdona el embrollo y siento haber abusado de tu tiempo.
Con esto me arreglo perfectamente, muchas gracias.