function validar_acciones(accion_ , F1, F2, FA, FB, FI , FD,TESC,TENT )
Define accion_,F1,F2,FA,FB,FI,FD,TESC,TENT smallint #Esc 2016, 2000 Arriba, 2001 Abajo, Izq. 2002, Der.2003 F1=2014,F3=2005,F4=2006
#Copyright 1998 Ing. Luis Rivaldo Blanquicet
[email protected]
case accion_
when 2014 #F1 if F1 then return (1) else return (0) end if
when 2015 #F2 if F2 then return (1) else return (0) end if
when 2000 #FA if FA then return (1) else return (0) end if
when 2001 #FB if FB then return (1) else return (0) end if
when 2002 #FI if FI then return (1) else return (0) end if
when 2003 #FD if FD then return (1) else return (0) end if
when 2016 #TESC if TESC then return (1) else return (0) end if
when 13 #TENT if TENT then return (1) else return (0) end if
otherwise return (0)
end case
end function