FiveTech Software tech support forums

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()

Cesar

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

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

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..