forzamos que no se trabaje con vencimiento de productos en el main y se saca la variable que pide por pantalla... se /* */ Y FIND FIRST sielparam EXCLUSIVE-LOCK
WHERE sielparam.empres = empres_
AND sielparam.nropar = 6 NO-ERROR.
IF AVAILABLE sielparam
THEN sielparam.logico[7] = TRUE.