Como creo el archivo de rutinas

¿Cómo creo el archivo de rutinas?
Respuesta
1
El archivo de rutinas se crea con una serie de procedimientos, por ejemplo, el siguiente código lo guardo en un archivo llamado "MisRutinas.PRG"
FUNCTION D2Fecha
PARAMETERS m.dFecha
RETURN CDOW( m.dFecha ) + " " + N2C( DAY( m.dFecha ), 2 ) + " de " + CMONTH( m.dFecha )
ENDFUNC
FUNCTION N2C
PARAMETERS m.nNumero, m.nTamaño
RETURN PADL( ALLTRIM( STR( m.nNumero ) ), m.nTamaño, '0' )
Y en al ventana de comandos escribo la sentencia: "jueves
SET PROCEDURE TO MisRutinas
?D2Fecha( DATE() )
?N2C( 25 * 5, 4 )
Y VFP va a darme los resultados de las funciones, "Miércoles 25 de Mayo" para la primera y "0125" para la segunda.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas