Cómo llamar a subrutinas en VFP
Ejecutar sdl11 en abc
Y el procedimiento almacenado en abc.prg es así:
proce sdl11
*Nueva construcción de precio unitario de alquiler
*do sdl25
use .
copiar estructura a .
usar
usar .
eliminar todo para zldm=space(3)
paquete
usar
return
proce sdl12
*Adición de precios unitarios de arrendamiento
*Adición de precios unitarios de arrendamiento, la unidad de arrendamiento original ya existe en el precio de arrendamiento biblioteca,
*Pero si desea alquilar variedades recién agregadas en el medio, debe ejecutar este programa
Use .\docbf\kcwzcbj
copiar estructura a .
uso
devolución
proce sdl13
*Modificación precio unitario de alquiler
uso .
copiar estructura a .
usar
return
Si estamos llamando a un método o función, para pasar parámetros, en la llamada a un método, debería escribirse así:
hacer rzjjg en abc con 'P30120', 100
y abc.prg debería tener, rzjjg en él, y su primera declaración debe ser
para parámetro 1, parámetro 2,.
'El número de parámetros y la llamada deben corresponder entre sí'
func rzjjg amp; alquiler diario
para x3, x2 amp; x3: código de material devuelto, x2*djmj, 0) amp >return .cbjjs amp;calcular precio de pérdida
para x1, x2
selecciona 3
buscar x1
x4=iif (encontrado(), cbj*x2, 0)
selecciona 4
devolver x4
Lo anterior es para mi software comercial "Sistema de gestión de alquiler de equipos de construcción: una parte muy pequeña de la versión VFP".
Materiales de referencia:
Software de mi negocio "Sistema de gestión de alquiler de equipos de construcción-Versión VFP"