lsoto

2026-10-19 10:11:40 -04:00
parent e0722b2e2a
commit a67f97271a
79 changed files with 19279 additions and 0 deletions
@@ -0,0 +1,35 @@
+{
+-----------------------------------------------------------------------------
+ FORMULARIO        : IRFMWD068
+ OBJETIVO          : Desplegar las maquinas 
+ PROGRAMADOR       : Lic. Abner Montalvo 
+ FECHA REALIZACION : Julio 14, 1998.
+-----------------------------------------------------------------------------
+}
+DATABASE smarmotech   
+SCREEN SIZE 24 by 80
+{
+        Busqueda De Maquinarias  
+\g-----------------------------------------\g
+ Codigo          Descripcion
+\g-----------------------------------------\g
+[f1       ] [f2                             ]
+[f1       ] [f2                             ]
+[f1       ] [f2                             ]
+[f1       ] [f2                             ]
+[f1       ] [f2                             ]
+[f1       ] [f2                             ]
+}
+end
+tables
+ irtb00009
+attributes
+f1  = formonly.maquina,noentry,
+    comments = "Elegir Este Registro Con La Tecla <Esc>";
+f2  = irtb00009.nombre,upshift, 
+    comments = "<Esc> Busca Todos Las Maquinas";
+instructions
+   screen record s_desp1[6] (maquina,nombre)
+ delimiters " "
+end
+