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,22 @@
+#-----------------------------------------------------------------------------
+# irpantalla.4gl
+# Encabezado de pantalla del Sistema Inventario de Repuestos.
+# Copia de pantalla() de PROYECTOS/irdir/irmn00000.4gl (menu 3.20), para los
+# programas de irdir que la llaman sin enlazar el menu (ej. irprrp002).
+#-----------------------------------------------------------------------------
+GLOBALS "irprgb000.4gl"
+
+FUNCTION pantalla()
+   DEFINE fecha CHAR(8),
+          hora char(5)
+   LET fecha = today USING "dd/mm/yy"
+   LET hora = time
+   LET lj = (80 - LENGTH(p_companias.nombre CLIPPED))/2
+    DISPLAY p_companias.nombre CLIPPED AT 4,lj ATTRIBUTE (REVERSE,blue)
+    DISPLAY fecha AT 4,70 ATTRIBUTE (blue)
+    DISPLAY "Sistema Inventario de Repuestos" AT 5,26
+    DISPLAY hora AT 6,73 ATTRIBUTE(blue)
+
+    CALL fgl_drawbox(5,79,3,1)
+    CALL fgl_drawbox(1,79,22,1)
+END FUNCTION