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 
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Cantidad variable de parámetros
Page: 1 2 (30 posts)
Muchas gracias por la información, Antonio
Un saludo
Fernando González Diez
ALSIS Sistemas Informáticos
Fernando González Diez
ALSIS Sistemas Informáticos
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...
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
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
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:
Esto nos permite escribir texto literal, que incluya incluso saltos de línea, como en:
o bien, XML combinado con la funcioncita de Expand
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.
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:
#xcommand TEXT INTO <v> => #pragma __cstream|<v>:=%s
#xcommand TEXT INTO <v> ADDITIVE => #pragma __cstream|<v>+=%sEsto nos permite escribir texto literal, que incluya incluso saltos de línea, como en:
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
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.
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
Carlos,
Muy bueno
Muchas gracias por compartirlo
Carlos --> Bravo, bonissimo para mi, no lo conocia.... 
(Copy/paste cagando leches....)
Gracias !!!
Salutacions, saludos, regards
"...programar es fácil, hacer programas es difícil..."
UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
"...programar es fácil, hacer programas es difícil..."
UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
Cada día de aprende algo nuevo!
Gracias tocayo, muy bueno, me serán de bastante utilidad tus ejemplos.
Saludos.
Carlos.
Carlos,
muchísimas gracias por compartir la información y los ejemplos.
Saludos
Carlos
Gracias, es muy bueno
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Uau, uau, uau .. esos #pragma son la repera !! 
Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
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.
Un saludo
Fernando González Diez
ALSIS Sistemas Informáticos
Fernando González Diez
ALSIS Sistemas Informáticos
Si os parece incluimos esos pragmas en FiveWin.ch
Controlando que sea Harbour, porque imagino que no funcionan en xHarbour
#ifndef __XHARBOUR__
#xcommand TEXT INTO <v> => #pragma __cstream|<v>:=%s
#xcommand TEXT INTO <v> ADDITIVE => #pragma __cstream|<v>+=%s
#endif
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.
Salu2
Carlos Vargas
Desde Managua, Nicaragua (CA)
Carlos Vargas
Desde Managua, Nicaragua (CA)
Page: 1 2 (30 posts)