FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Transform xHarbour
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM
Transform xHarbour
Posted: Tue Nov 13, 2007 05:07 PM

Mi intenci贸n es poder renombar la funci贸n Trasform() de xHarbour.

Renombrar por Transform2() y crear otra funci贸n con el Nombre Transform(), que se encargar谩 de llamar despues de realizar algunos ajustes en los variables numericas concretamente, a la funcion Transform2().

Saludos Cordiales
Mariano Gonz谩lez
ALSIS Gesti贸n de Empresa

Un saludo

Fernando Gonz谩lez Diez

ALSIS Sistemas Inform谩ticos
Posts: 364
Joined: Tue Oct 25, 2005 07:06 PM
Transform xHarbour
Posted: Tue Nov 13, 2007 05:58 PM

no veo el problema, la funcion transform() definida por ti en el prg tendra prioridad sobre la de la libreria, ya que queda la que se enlaza primero

Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM
Transform xHarbour
Posted: Tue Nov 13, 2007 06:21 PM

Como comprenderas eso ya lo habia probado, y sencillamente no es posible.
Gracias por la respuesta.

Un saludo

Fernando Gonz谩lez Diez

ALSIS Sistemas Inform谩ticos
Posts: 35
Joined: Wed Nov 15, 2006 04:04 PM
Transform xHarbour
Posted: Tue Nov 13, 2007 08:18 PM
fgondi wrote:Como comprenderas eso ya lo habia probado, y sencillamente no es posible.
Gracias por la respuesta.


Hola amigo como esta pues, prueba a crear la funcion Transfr2() de 8 caracteres, recuerda que Transform() contiene 9 caracteres y creo que FiveWin, solo reconoce 8 caracteres en las funciones propias.
espero haber sido de su gran ayuda amigo.

Su amiga Susy
susan_mx@hotmail.com
Posts: 364
Joined: Tue Oct 25, 2005 07:06 PM
Transform xHarbour
Posted: Tue Nov 13, 2007 08:46 PM

bueno claro, asi pierdes la transform original, lo que tiene que hacer no es renombrar la de xharbour, eso si es imposible, sino creo la transf2, entonces al numero tu le mandas asi por ejemplo transf2(numero, "999") en tu prg

y en tu funcion

function transf2(para1, para2)
tu decisiones sobre el numero, variables, etc
transform(para lo que lo uses despues, el de xharbour)
return algo

yo realmente no le veo el rollo, si quizas te explicaras mejor y no dices que has probado o no

Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Transform xHarbour
Posted: Tue Nov 13, 2007 08:48 PM

Susy,

FWH no impone ninguna restricci贸n sobre la longitud de los nombres.

Eso es algo que soporta directamente el compilador Harbour/xHarbour

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 35
Joined: Wed Nov 15, 2006 04:04 PM
Gracias Antonio...disculpa
Posted: Tue Nov 13, 2007 10:14 PM
Antonio Linares wrote:Susy,

FWH no impone ninguna restricci贸n sobre la longitud de los nombres.

Eso es algo que soporta directamente el compilador Harbour/xHarbour


Gracias Antonio Disculpa, fui muy torpe al explicarme, quise decir que probablemente reconozca los 8 caracteres Transform() en lugar de Transform2() de la funcion propia creada por el programador, pero gracias . :-)
Su amiga Susy
Susan_mx@hotmail.com
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM
Transform xHarbour
Posted: Wed Nov 14, 2007 12:13 PM
hola,

A ver si me explico correctamente:

Lo que necesito es que la funci贸n transform pase primero por una condiciones propias y posteriormente haga el transform normal.

Para ello tengo dos alternativas:

La primera:
Func Transform2( xValue, cPicture )
xValue := MiFunc( xValue )
return Transform( xValue, cPicture )

Esta es la que me comenta铆s que haga. El problema es que tanto xharbour como fivewin llaman a la funci贸n transform, por ejemplo al hacer cualquier get.
Con lo que tendr铆a que renombar todo el c贸digo fuente de xharbour y fivewin para que donde llama a transform llame a transform2

La segunda:
Func Transform( xValue, cPicture )
xValue := MiFunc( xValue )
return Transform2( xValue, cPicture )

Con esta s贸lo tendr铆a que renombrar la funci贸n transfom a transform2 y crea esta nueva funci贸n transform.
Me parece mas sencillo porque s贸lo tengo que renombrar una 煤nica funci贸n perteneciente a xharbour.

El problema es que no puedo sustituir al funci贸n transform de xharbour por la propia. El error que muestra es:
Transform: Redefinition of predefined function
Un saludo

Fernando Gonz谩lez Diez

ALSIS Sistemas Inform谩ticos
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Transform xHarbour
Posted: Wed Nov 14, 2007 12:58 PM

Creo, que TRANSFORM no sea una FUNCTION y si un COMANDO del CLIPPER.

Desde la v茅rsion AUTUMM 86 no se puede usar ningun NOMBRE de COMANDO, internamente en nuestros programas. Mas...

Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341

Continue the discussion