Board index FiveWin para Harbour/xHarbour Error BASE/1081 Argument error: +from Errorsys, line: 0

Posts: 2

Joined: Sun Oct 11, 2009 10:37 PM

Error BASE/1081 Argument error: +from Errorsys, line: 0
Posted: Tue Oct 13, 2009 08:52 AM

Hola a todos,

Estoy iniciándome con Fivewin/Harbour, y he estado probando los ejemplos existentes después de haber instalado los paquetes correspondientes según el manual de instalación, pero me encuentro con el siguiente error, en este pequeño programa de pruebas, que consiste en insertar un registro en una tabla que tiene un índice cdx.
El erro es el siguiente: Error BASE/1081 Argument error: +from Errorsys, line: 0

Este error también me da en alguno de los ejemplos estándard de fivewin. He estado mirando en el foro y vi que para el ejemplo "fwbrow", que también daba el mismo error había que descargar una nueva librería, la he aplicado también para mi prueba pero me sigue dando el mismo error.
De hecho he ido probando diferentes combinaciones y casi siempre me salta este error.
Lo único raro que puede tener el índice de esta tabla es que tiene un oden compuesto por: CREF+DESCEND(DTOS(DFECSTOCK))
También he verificado que la tabla y el índice estén bien, lo abro perfectamente con la aplicación PROMETHEUS2000 y los puedo reindexar correctamente.
Estoy trabajando con windows xp en desarrollo y la aplicación tiene que ejecutarse en un servidor windows 2003 server.
Agradecería vuestra ayuda sobre este tema.
Saludos cordiales.

PROGRAMA:

// Typical Welcome message, from Windows!

// FWVERSION, FWCOPYRIGHT and FWDESCRIPTION are just
// some defines placed at FiveWin.ch to support four versions:
// Clipper, Xbase++, Harbour/xHarbour and C3!

include "FiveWin.ch"

include "Dbf01.ch"

extern DbfCdx

static oWnd
//----------------------------------------------------------------------------//

function Main()
REQUEST DBFCDX
RddSetDefault("DBFCDX")

SET DATE TO BRITISH
SET EXCLUSIVE OFF

USE ALBCLIL.DBF VIA "DBFCDX"

SET INDEX TO ALBCLIL.CDX

APPEND BLANK
REPLACE NNUMALB WITH 999993
REPLACE CREF WITH "171"
REPLACE DFECSTOCK WITH CTOD("12/10/09")

CLOSE DATABASES
CLOSE INDEX

MsgInfo( FWVERSION + Chr( 13 ) + FWCOPYRIGHT, FWDESCRIPTION )

return nil

procedure AppSys // XBase++ requirement

return

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Error BASE/1081 Argument error: +from Errorsys, line: 0
Posted: Tue Oct 13, 2009 11:08 AM

Ianvico,

Prueba el código asi, y verás como funciona bien:

Code (fw): Select all Collapse

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   REQUEST DBFCDX

   // ErrorBlock( { | o | MsgInfo( o:Description ) } )

   RddSetDefault("DBFCDX")

   SET DATE TO BRITISH
   SET EXCLUSIVE OFF

   if ! File( "albclil.dbf" )
      DbCreate( "albclil", { { "NNUMALB", "N", 8, 0 },;
                             { "CREF", "C", 20, 0 },;
                             { "DFECSTOCK", "D", 8, 0 } }, "DBFCDX" )
   endif                           
                       
   USE ALBCLIL.DBF VIA "DBFCDX"
   MsgInfo( Alias() )

   if ! File( "ALBCLIL.cdx" )
      INDEX ON "NNUMALB" TO "ALBCLIL"
   endif   

   SET INDEX TO ALBCLIL.CDX

   APPEND BLANK
   REPLACE NNUMALB WITH 999993
   REPLACE CREF WITH "171"
   REPLACE DFECSTOCK WITH CTOD("12/10/09")

   CLOSE DATABASES
   // CLOSE INDEX

   MsgInfo( FWVERSION + Chr( 13 ) + FWCOPYRIGHT, FWDESCRIPTION )
   
return nil

//----------------------------------------------------------------------------//

Si vuelve a aparecerte el error 1081, descomenta esta línea en el PRG:

Code (fw): Select all Collapse

// ErrorBlock( { | o | MsgInfo( o:Description ) } )

Para que veas cual es el error verdadero que se está produciendo.

Esos fallos estan corregidos en versiones posteriores de FWH, y sinceramente desconociamos que ese bug estuviese en la versión 6.12

En versiones posteriores de FWH aparece el error correcto:

Code (fw): Select all Collapse

   Error description: Error DBCMD/2001  Workarea not in use: ORDLISTCLEAR

ya que no es necesario llamar a "CLOSE INDEX" una vez has llamado a "CLOSE DATABASES"

regards, saludos

Antonio Linares
www.fivetechsoft.com

ianvico

Posts: 2

Joined: Sun Oct 11, 2009 10:37 PM

Re: Error BASE/1081 Argument error: +from Errorsys, line: 0
Posted: Mon Oct 19, 2009 08:16 AM

Gracias Antonio,

Finalmente al poder ver exactamente el error que me daba, he añadido en la cabecera la llamada a la función Descend y ya me ha funcionado correctamente.

Saludos cordiales.

FiveTech Support Forums

PROGRAMA:

include "FiveWin.ch"

include "Dbf01.ch"

Continue the discussion