topic-21141

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

TDOLPHIN INTERNAL ERROR
Posted: Thu Mar 17, 2011 08:35 PM

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 (fw): Select all Collapse

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

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: TDOLPHIN INTERNAL ERROR
Posted: Thu Mar 17, 2011 08:55 PM

Cesar

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

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: TDOLPHIN INTERNAL ERROR
Posted: Thu Mar 17, 2011 09:00 PM

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 (fw): Select all Collapse

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

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: TDOLPHIN INTERNAL ERROR
Posted: Thu Mar 17, 2011 09:20 PM

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

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

FiveTech Support Forums

Continue the discussion