FiveTech Software tech support forums

Posted: **Thu Nov 27, 2014 8:29 am**

Cuando necesiteis llamar a una función y proporcionarle un número variable de parámetros podeis usar:

function MyFunc( ... )

y entonces llamar a hb_aparams() para obtener un array con todos ellos :-)

Posted: **Thu Nov 27, 2014 10:22 am**

Muchas gracias por la información, Antonio

Posted: **Thu Nov 27, 2014 5:36 pm**

Antonio,

En general no es imprescindible indicar ni siquiera que parámetros pasas, a menos que quieras ponerle un nombre

, pero si vas a usar hb_aparams, o HB_PValue(), ni siquiera hace falta indicarlo con '...' .

HB_PValue(i) devuelve el parámetro i-ésimo, y sabremos cuantos parámetros hay con PCount().

Por ejemplo:

? Expand( 'Select * from clientes where id = $1', 22 ) -> Select * from clientes where id = 22

FUNCTION Expand( cQuery ) // Aunque escribiendo (cQuery, ... ) hace más obvio que tiene parámetros variables
LOCAL i
i:= PCount()
WHILE i > 1
cQuery:= StrTran( cQuery, '$'+(LTrim(Str(i-1))), ClipValue2SQL( HB_PValue(i) ) )
i--
ENDDO

RETURN cQuery

Se pueden hacer cosas bastante majas...

Posted: **Thu Nov 27, 2014 5:59 pm**

Carlos,

gracias por la información :-)

Dudo que Przemek pasará por alto algo asi. Tal vez haya otro uso para "..." que desconocemos.

Si os parece importante lo podemos preguntar en la lista de desarrollo de Harbour

Posted: **Fri Nov 28, 2014 8:53 am**

Solo se me ocurre una cuestion de orden y elegancia, una forma de hacer explícito el hecho de que vas a usar parámetros.
Tal vez el pcode generado podría llegar a mostrar alguna diferencia, no se...

Pero en lo personal lo he usado bastante, como en el ejemplo, y como podrás adivinar, con uso intensivo (es en las querys) y va fenomenal.

Y para añadir más cosas a la colección de cositas guapas, por si alguno todavía no lo conoce, van los siguientes #pragmas:

Code: Select all Expand view: #xcommand TEXT INTO <v> => #pragma __cstream|<v>:=%s #xcommand TEXT INTO <v> ADDITIVE => #pragma __cstream|<v>+=%s

Esto nos permite escribir texto literal, que incluya incluso saltos de línea, como en:

Code: Select all Expand view: TEXT INTO cTexto CREATE TABLE IF NOT EXISTS `validalta` ( `id` int(11) NOT NULL AUTO_INCREMENT, `fechanaci` date, `nif` varchar(9) DEFAULT NULL, `mail` varchar(50) DEFAULT NULL, `cuenta` varchar(4) DEFAULT NULL, PRIMARY KEY (`id`), UNIQUE KEY `NIF` (`nif`) ); ENDTEXT oServer:Command( cTexto )

o bien, XML combinado con la funcioncita de Expand

Code: Select all Expand view: TEXT INTO cTransac <tns:importAbsenceFiles xmlns:tns="http://echange.service.open.server.com"> <tns:absenceFilesToImport> <tns:absenceFile> <tns:absenceTypeAbbreviation>VACAC</tns:absenceTypeAbbreviation> <tns:employeeIdentificationNumber>$1</tns:employeeIdentificationNumber> <tns:startDate>$2</tns:startDate> <tns:endDate>$3</tns:endDate> </tns:absenceFile> </tns:absenceFilesToImport> </tns:importAbsenceFiles> ENDTEXT cTransac:= Expand( cTransac, oQuery:dni, oQuery:FechaInicio, oQuery:FechaFin )

Como te decía, entre SQL, XML y web... lo uso de forma intensiva, y ayuda a hacer la programación muchísimo más clara.

Posted: **Fri Nov 28, 2014 2:40 pm**

Carlos,

Muy bueno :-)

Muchas gracias por compartirlo :-)

Posted: **Fri Nov 28, 2014 9:19 pm**

Carlos --> Bravo, bonissimo para mi, no lo conocia.... :lol:

(Copy/paste cagando leches....)

Gracias !!!

Posted: **Fri Nov 28, 2014 9:46 pm**

Cada día de aprende algo nuevo!
Gracias tocayo, muy bueno, me serán de bastante utilidad tus ejemplos.

Saludos.

Carlos.

Posted: **Sat Nov 29, 2014 8:37 am**

Carlos,

muchísimas gracias por compartir la información y los ejemplos.

Saludos

Posted: **Sat Nov 29, 2014 10:35 am**

Carlos
Gracias, es muy bueno

Posted: **Sat Nov 29, 2014 12:50 pm**

Uau, uau, uau .. esos #pragma son la repera !!

Posted: **Mon Dec 01, 2014 9:18 am**

Carlos, muy, pero que muy bueno

Fácil de leer en el código fuente, facil de copiar y pegar para probar la consulta sql.

Increíble.

Posted: **Mon Dec 01, 2014 9:34 am**

Si os parece incluimos esos pragmas en FiveWin.ch :-)

Controlando que sea Harbour, porque imagino que no funcionan en xHarbour

Posted: **Mon Dec 01, 2014 9:35 am**

Code: Select all Expand view: #ifndef __XHARBOUR__ #xcommand TEXT INTO <v> => #pragma __cstream|<v>:=%s #xcommand TEXT INTO <v> ADDITIVE => #pragma __cstream|<v>+=%s #endif

Posted: **Mon Dec 01, 2014 3:00 pm**

Antonio, no se como lo maneja xharbour internamente, pero segun la ayuda

Syntax
TEXT [TO PRINTER] [TO FILE <fileName>]
<text>
ENDTEXT

or

TEXT INTO <varName>
<text>
ENDTEXT

Arguments
TO PRINTER
The text is additionally output to the printer.
TO FILE <fileName>
The text is additionally output to the file <fileName>. It can be specified as a literal file name or as a character expression enclosed in parentheses. The default extension is TXT.
INTO <varName>
This is the symbolic name of the variable to assign <text> to.
<text>
This is a literal text block enclosed in TEXT and ENDTEXT. The text is output to the screen and displayed exactly as written in the PRG source code file. Description
The TEXT...ENDTEXT command outputs a block of literal text to the console. Output can be directed additionally to a printer or a file. When SET CONSOLE is set to OFF, the screen output is suppressed.
ALternatively, the text is assigned as character string to the variable <varName> when the INTO option is used.

FiveTech Software tech support forums

Cantidad variable de parámetros

Cantidad variable de parámetros

Re: Cantidad variable de parámetros

Re: Cantidad variable de parámetros

Re: Cantidad variable de parámetros

Re: Cantidad variable de parámetros

Re: Cantidad variable de parámetros

Re: Cantidad variable de parámetros

Re: Cantidad variable de parámetros

Re: Cantidad variable de parámetros

Re: Cantidad variable de parámetros

Re: Cantidad variable de parámetros

Re: Cantidad variable de parámetros

Re: Cantidad variable de parámetros

Re: Cantidad variable de parámetros

Re: Cantidad variable de parámetros