FoxPro/Visual FoxPro - Error al mandar llamar un PRG

estoy tratando de llamar a un programa llamado _Seg2Hor.prg desde mi form lo mando llamar asi set proc to _Seg2Hor.prg
guarda=_Seg2Hor(nSegundos)

este es el codigo que tengo en mi prg _Seg2Hor.prg
*--------------------------------------------------------------------------
* FUNCTION _Seg2Hor(nSegundos)
*--------------------------------------------------------------------------
* Transforma segundos a formato hhHH:MM:SS
* USO: _Seg2Hor(nSegundos)
* EJEMPLO: _Seg2Hor(35000)
* RETORNA: Caracter 'HH:MM:SS'
*--------------------------------------------------------------------------
FUNCTION _Seg2Hor(nSegundos)
lpara nSegundos
LOCAL lnHoras, lnMinutos, lnSegundos
lnHoras = INT(nSegundos/3600)
lnMinutos = INT(((nSegundos-(lnHoras*3600))/60))
lnSegundos = MOD(nSegundos,60)
RETURN IiF(lnHoras<100,TRANSFORM(lnHoras,"@L 99"),TRANSFORM(lnHoras,"@L 9999")) +":"+ ;
TRANSFORM(lnMinutos,"@L 99")+":"+ ;
TRANSFORM(lnSegundos,"@L 99")
ENDFUNC

pero en la linea lpara nSegundos me esta enviando un mensaje de error que dice "No se reconoce el verbo o comando"
cabe señalar que nsegundos es el argumento que viene con el valor de nsegundos en mi form. es decir en mi form tengo guarda=_Seg2Hor(nsegundos) en donde nSegundos es el valor numerico del total de horas trabajadas.

FUNCTION _Seg2Hor(nSegundos)
Parameters nSegundos

Suerte

ME SIGUE MARCANDO EL MISMO ERROR "NO SE RECONOCE EL VERBO DE COMANDO". ESTOY LLAMANDO A LA FUNCION DESDE MI FORM ASI
set procedure to calculahoras.prg
valor=_Seg2Hor(nsegundos)

en mi prg esta lo siguiente:

*--------------------------------------------------------------------------
* FUNCTION _Seg2Hor(nSegundos)
*--------------------------------------------------------------------------
* Transforma segundos a formato hhHH:MM:SS
* USO: _Seg2Hor(nSegundos)
* EJEMPLO: _Seg2Hor(35000)
* RETORNA: Caracter 'HH:MM:SS'
*--------------------------------------------------------------------------
FUNCTION _Seg2Hor(nSegundos)
PARAMETERS nSegundos
LOCAL lnHoras, lnMinutos, lnSegundos
lnHoras = INT(nSegundos/3600)
lnMinutos = INT(((nSegundos-(lnHoras*3600))/60))
lnSegundos = MOD(nSegundos,60)
RETURN IiF(lnHoras<100,TRANSFORM(lnHoras,"@L 99"),TRANSFORM(lnHoras,"@L 9999")) +":"+ ;
TRANSFORM(lnMinutos,"@L 99")+":"+ ;
TRANSFORM(lnSegundos,"@L 99")
ENDFUNC

y me sigue enviando el mismo error arriba señalado en la linea del prg PARAMETERS nSegundos

que estoy haciendo mal?

hola
oye, create un correo en hotmail, las ayudas online son mas efectivos
bueno, solo estas teniendo problemas de sintaxis
supongo que el programa calculahoras.prg
contiene a la funcion _seg2hora()
ok, lo que estas haciendo mal es que dentro de calculahoras.prg solo debes poner:
function _seg2hora
y no:
function _seg2hora(nSegundos)
eso esta mal, esa no es la regla, asi no es la sintaxis
al crear una funcion de usuario, debemos escribir siempre:
function <NombreDeLaFuncion>
los parentesis jamas
luego parameters y la lista de parametros
y luego todo lo demas
ahora bien lparameters o parameters no es el problema
ambos funcionan igual pero tienen distinto tratamiento
pero para que lo deseas hacer, basta con parameters
saludos.

ok lo voy a intentar gracias
tengo un correo en hotmail [email protected]
si me permites te voy a agregar a mi lista de contactos

saludos!!

En donde estas ejecutando calculahoras ??

ME SIGUE MARCANDO EL MISMO ERROR "NO SE RECONOCE EL VERBO DE COMANDO". ESTOY LLAMANDO A LA FUNCION DESDE MI FORM ASI

set procedure to calculahoras.prg
do calculahoras

valor=_Seg2Hor(nsegundos)

Suerrte

no hace falta la instruccion parameters!