TDOLPHIN INTERNAL ERROR

[sysctrl2]

Holas Daniel,
he compilado la libreria tdolphin y al compilar TESTFW3.PRG

Me tira el siguiente error en tiempo de ejcucion.

Application
===========
Path and name: C:\DOLPHIN2\samples\testfw3.exe (32 bits)
Size: 2,012,672 bytes
Time from start: 0 hours 0 mins 3 secs
Error occurred at: 17/03/2011, 14:32:00
Error description: Error TDOLPHIN/9026 Internal Error

Stack Calls
===========
Called from: .\source\prg\tdolpsrv.prg => DOLPHIN_DEFERROR(2431)
Called from: .\source\prg\tdolpsrv.prg => TDOLPHINSRV:CHECKERROR(685)
Called from: .\source\prg\tdolpqry.prg => TDOLPHINQRY:FIELDPUT(684)
Called from: .\source\prg\tdolpqry.prg => TDOLPHINQRY:_FECHA(1635)
Called from: testfw3.prg => SYSCTRL:ADDREG(187)
Called from: testfw3.prg => SYSCTRL:MAKEDIALOGO(146)
Called from: testfw3.prg => SYSCTRL:NEW(74)
Called from: testfw3.prg => MAIN(22)

la linea donde marca error es la siguiente.

Code: Select all  Expand view

::oQry:GetBlankRow( .F. )  
   ::oQry:no_folio      := '303030'
   ::oQry:no_suscriptor := "200"
   ::oQry:fecha         := date() //AQUI EL ERROR AL QUERER GRABAR UN CAMPO TIPO FECHA
   ::oQry:nombre        := "NOMBRE 1"
   ::oQry:save()

[Daniel Garcia-Gil]

Cesar

ese error significa que el tipo de campo es invalido...verifica que el campo fecha sea tipo DATE

[sysctrl2]

Daniel que rapidez, jeje,

mira en samples de tdolphin tenemos, el TESTFW3.PRG,

hay una funcion: METHOD CreaPrueba() en el cual se crea la tabla:
por favor instruyeme, si al crear el campo fecha, es incorrecto.

de hecho en las primeras versiones de tdolphin , funcionaba sin problemas.

saludos..

Code: Select all  Expand view

METHOD CreaPrueba() CLASS SysCtrl
   local cQry
   
   * -------------------------------------------- *
   * creamos la tabla PRUEBA                      *
   * -------------------------------------------- *

   cQry := "CREATE TABLE IF NOT EXISTS prueba ( "
   cQry += "cliente_id INT UNSIGNED NOT NULL AUTO_INCREMENT,"  
   cQry += "no_folio             varchar(10) default ' ', "  
   cQry += "no_suscriptor        varchar(10) default ' ', "
   cQry += "fecha        date NOT NULL, "
   cQry += "nombre     varchar(60) default ' ', "
   
   cQry += "PRIMARY KEY (cliente_id)"
   cQry += ") ENGINE = InnoDB"
   
   ::oCon:Execute( cQry )  
   
Return nil

[sysctrl2]

Daniel creo haber encontrado el error, pero creo no es normal:

elimine la tabla: de contenedor tdolphin_test, con la siguiente linea de codigo:

cQry := "DROP TABLE IF EXISTS prueba"
::oCon:execute( cQry )

y ya no me genera el error..

saludos..