FiveTech Software tech support forums

... FUENTES\COMUNES\logrdd.prg(407) Error E0059 Invalid SWITCH Constant 'RECALL'. FUENTES\COMUNES\logrdd.prg(410) Error E0059 Invalid SWITCH Constant 'PUTVALUE'. FUENTES\COMUNES\logrdd.prg(414) Error E0059 Invalid SWITCH Constant 'ZAP'.

casi en forma similar, tengo la funcion que pasa a tabla, usando el api de harbour, ya me crea la tabla con las respectivas columnas, y agrego los registos, pero igual que el caso anterior deseo saber como pasar los datos segun su tipo a un PHB_ITEM para poder usar la funcion SELF_PUTVALUE( pArea, u...

Prueba a hacer: MsgInfo( Obr->ob_fecini ) MsgInfo( Date() ) Obr->ob_fecini:= Date() PRUEBA --------- MsgInfo( Obr->ob_fecini ) -->>>>> 0d19890215 MsgInfo( Date() ) --->>>>>>>>> 0d20160510 Obr->ob_fecini:= Date() ---->>>>> error.lo...

Gracias por tu respuesta Armando, pero no va tampoco, por refrescar el problema. he hecho varias pruebas pero lo resumo en dos: 1ª PRUEBA sin tocar el código inicial Columna implicada Obr->ob_fecini:=cob_fecini static FUNCTION Grabar()            If cOpcion="A"         APPEND BL...

Bueno ya he terminado con el cambio de equipo, que me ha tenido liado Revisando mensaje por ahí no veo como hacer la conversión de la fecha que me viene en formato 0dYYYMMDD a YYYY-MM-DD que es como me funcione en mYSQL si hago esta update a "pelo" ---Mysql UPDATE EMPRE01.APUNTES SET `AP_F...

Puedes copiar aqui el código que hay en adordd.prg function ADO_PUTVALUE( 1944 ) ?

New build adordd ver 1.0 at https://github.com/AHFERREIRA/adordd.git Corrected new Bugs due to changes previous build: 1) ADO_SQLSTRU with firebird numeric fields precision fieldlen was wrong 2) ADO_FIELDSTRUCT integers doesnt take any extra position. 3) ADO_PUTVALUE trim spaces to check data width ...

New build adordd ver 1.0 at https://github.com/AHFERREIRA/adordd.git Corrected new Bugs due to changes previous build: 1) ADO_SQLSTRU with firebird numeric fields precision fieldlen was wrong 2) ADO_FIELDSTRUCT integers doesnt take any extra position. 3) ADO_PUTVALUE trim spaces to check data width ...

Gunther,

I see it now.
The app I m using does not accept single quotes in fields because of some xml extraction.

Try with this in ado_putvalue

xValue := '"'+xValue+'"'

Instead of xValue := "'"+xValue+"'"

(1) REPLACE FIRST WITH "Test''Pieter" //gives Test'Pieter (2) //I think this ' is the same as my previous post. (I copied your code to my testapp) REPLACE FIRST WITH "Test'Pieter" Gives: Application =========== Path and name: C:\Pieter\LeerOmgevingXharbour\learn-database.exe (32 ...

Hello Antonio F, I am making progress with my main program with ADORDD. But I got a problem with ' (apostrof) Do you think there is still a way to use ' (apostrof) in a program? Example testprogram USE CUSTOMER APPEND BLANK REPLACE FIRST WITH "Test'Pieter" Errorlog: Application ===========...

Pieter, adordd its coded at usr rdd level so there isn't any translation into ado code. It is the default rdd that is replaced by adordd like ads rdd, dbfcdx rdd or any other rdd. All rdd table and index functions will work exactly the same. Nothing changes in your code. In adordd.prg for ex the REP...

Antonio F, What do you mean by "memory and/or time"? Maybe I should have said RAM and timing. In the past I have had programs crash when they ran out of RAM. And also, the OS sometimes lags and the program is expecting something to be done that isn't so you get a error that isn't trapped i...

James, Antonio F, You asked previously about: SET ADO FORCE LOCK ON I had a comment in my code that it was required, and you asked why. Well, I found that if you try to do an APPEND FROM with lots of records it will crash without the above statement. I had it crash once at 500 something records...

Lucas, DO_PUTVALUE( 1503 ) -> oRecordSet:Update() oRecordSet:Fields( nField - 1 ):Value := xValue oRecordSet:Update() This is my code: REPLACE FACTURAS->NOMBRE WITH CLIENTES->NOMBRE .... and so one The real cause: Field lengh for FACTURAS nombre is 34, but in CLIENTES is 50. This works here...