esto es raro

[zeasoftware]

que estoy haciendo mal aqui?

With Object ::oDataSet
If ( ::lOnAppend ) //es una var. independiente al oDataSet
If ( :RecCount() == 0 )
:Clave := "00001" <----------- aqui marca error p1=Obj p2 =Str
igual da error si pongo:
:Clave(dsVAR) := "00001"
eso me lo da si la .dbf esta vacia y es el primer ADDNew
gracias de antemano.
--
Ramon Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
--

[zeasoftware]

este es el error exacto:
***************************** Registro de errores *****************************
Fecha: 10/28/06
Hora: 16:30:42
Memoria libre: 45364
Area actual: 2
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 1.1.1 Version 1.1a
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: 1070
Estado: .F.
Descripción: Argument error
Operación: ==
Argumentos: [ 1] = Tipo: C Valor: Comentario [ 2] = Tipo: O Valor:
Fichero:
Código error SO: 0
Pila de llamadas:
TDATAFIELD:VARPUT (113)
(b)XDATASET:XDATASET (140)
TDBFDATASET:VARPUT (0)
TDBFDATASET:_CLAVE (1198)
TCLIENTES:CLIENTENUEVO (108)
TCLIENTES:ONCATPOSTAPPEND (0)
ZCATMAINTENANCE:ADDNEW (319)
TCLIENTES:ADDNEW (64)
TOPTIONITEM:ONCLICK (0)
TOPTIONITEM:CLICK (273)
TOPTIONLIST:WMLBUTTONDOWN (0)
RUNFORM (0)
TAPPLICATION:RUN (209)
MAIN (28)
------------------ Información detallada de áreas de trabajo ------------------
Area: 1
Alias: CALENDAR
Registro: 1
Filtro:
Relación:
Orden del í­ndice: 1
Clave activa: 1
Area: 2
Alias: CLIENTES
Registro: 1
Filtro:
Relación:
Orden del í­ndice: 1
Clave activa: 1
--
Ramon Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
--

[zeasoftware]

otro mas.
METHOD BtnGrabarClick( oSender ) CLASS tFrmEditClie
Local aStatus := {"A", "B", "S"}
logdebug(aStatus[::oStatus:nIndex]) <<--------- devuelve "A"
::oParent:oDataSet:Status := aStatus[::oStatus:nIndex] <<---marca el mismo error aqui
RETURN Nil
--
Ramon Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje news:4543c31e$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
que estoy haciendo mal aqui?

With Object ::oDataSet
If ( ::lOnAppend ) //es una var. independiente al oDataSet
If ( :RecCount() == 0 )
:Clave := "00001" <----------- aqui marca error p1=Obj p2 =Str
igual da error si pongo:
:Clave(dsVAR) := "00001"
eso me lo da si la .dbf esta vacia y es el primer ADDNew
gracias de antemano.
--
Ramon Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
--

[zeasoftware]

Detecte el por que, pero podria el Xailer Team hacer una mejor referencia?
Me aboque mucho a ver los campos Status, data oStatus, por que ahi marcabe error, pero todo el error era que el campo COMENTARIO no existia, puede que yo lo haya borrado de la .dbf por error, pero nuna me indica que lo que sucede es que dicho campo no existe.
Saludos.
--
Ramon Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje news:4543c31e$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
que estoy haciendo mal aqui?

With Object ::oDataSet
If ( ::lOnAppend ) //es una var. independiente al oDataSet
If ( :RecCount() == 0 )
:Clave := "00001" <----------- aqui marca error p1=Obj p2 =Str
igual da error si pongo:
:Clave(dsVAR) := "00001"
eso me lo da si la .dbf esta vacia y es el primer ADDNew
gracias de antemano.
--
Ramon Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
--

[jfgimenez]

Ramón,
Detecte el por que, pero podria el Xailer Team hacer una mejor referencia?
Me aboque mucho a ver los campos Status, data oStatus, por que ahi marcabe error, pero todo el error era que el campo COMENTARIO no existia, puede que yo lo haya borrado de la .dbf por error, pero nuna me indica que lo que sucede es que dicho campo no existe.
Vamos a revisarlo. Gracias por la información.
--
Un saludo,
José F. Giménez
http://www.xailer.com
--

[ignacio]

Ramón,
Actualmente Xailer cuando se pone a un datacontrol un campo que no existe en el dataset muestra un logdebug indicandolo claramente.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje news:454459e8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Detecte el por que, pero podria el Xailer Team hacer una mejor referencia?
Me aboque mucho a ver los campos Status, data oStatus, por que ahi marcabe error, pero todo el error era que el campo COMENTARIO no existia, puede que yo lo haya borrado de la .dbf por error, pero nuna me indica que lo que sucede es que dicho campo no existe.
Saludos.
--
Ramon Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje news:4543c31e$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
que estoy haciendo mal aqui?

With Object ::oDataSet
If ( ::lOnAppend ) //es una var. independiente al oDataSet
If ( :RecCount() == 0 )
:Clave := "00001" <----------- aqui marca error p1=Obj p2 =Str
igual da error si pongo:
:Clave(dsVAR) := "00001"
eso me lo da si la .dbf esta vacia y es el primer ADDNew
gracias de antemano.
--
Ramon Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
--