*!* 31.08.2026
*!* subagent masuratoare argumente
*!* rutine de proba pentru masurarea comportamentului VFP la argumente in plus, apelate din alt fisier (IN)

PROCEDURE rutina_noparam_ext
lcVal = ''
IF PARAMETERS() >= 1
	lcVal = TRANSFORM(p1)
ENDIF
RETURN 'noparam_ext OK, PARAMETERS()=' + TRANSFORM(PARAMETERS())

PROCEDURE rutina_1p_ext
LPARAMETERS p1
RETURN '1p_ext OK, p1=' + TRANSFORM(p1) + ', PARAMETERS()=' + TRANSFORM(PARAMETERS())

FUNCTION rutina_2p_ext
LPARAMETERS p1, p2
lcP2 = IIF(VARTYPE(p2) = 'L' AND ISNULL(p2), 'NULL', IIF(VARTYPE(p2)='L', TRANSFORM(p2) + '(bool.F=lipsa)', TRANSFORM(p2)))
RETURN '2p_ext OK, p1=' + TRANSFORM(p1) + ', p2=' + lcP2 + ', VARTYPE(p2)=' + VARTYPE(p2) + ', PARAMETERS()=' + TRANSFORM(PARAMETERS())