primer commit subida

2026-09-22 20:38:51 -04:00
commit 07649704b1
10247 changed files with 3271751 additions and 0 deletions
@@ -0,0 +1,47 @@
+ database decomarmol
+ screen
+{
+     Codigo Maquina [mq1][mq2                      ] [mq3         ]         
+     Fecha:     Inicial   [f1      ]             Final   [f2      ]
+
+     Repuesto       [a]-[b ]-[b1]-[b2 ] 
+\g-----------------------------------------------------------------------------\g
+ Repuesto                              Fecha     Docum.  Cantidad   Usa Acum.
+\g-----------------------------------------------------------------------------\g
+[co        ][r1                      ][f3      ][d     ][c1       ][c2        ]
+[co        ][r1                      ][f3      ][d     ][c1       ][c2        ]
+[co        ][r1                      ][f3      ][d     ][c1       ][c2        ]
+[co        ][r1                      ][f3      ][d     ][c1       ][c2        ]
+[co        ][r1                      ][f3      ][d     ][c1       ][c2        ]
+[co        ][r1                      ][f3      ][d     ][c1       ][c2        ]
+[co        ][r1                      ][f3      ][d     ][c1       ][c2        ]
+[co        ][r1                      ][f3      ][d     ][c1       ][c2        ]
+}
+end 
+tables
+irtb00006
+irtb00009
+irtb00002
+attributes
+mq1 = irtb00009.codigo,color=blue;
+mq2 = irtb00009.nombre,color=blue,noentry;
+mq3 = irtb00009.modelo,color=blue,noentry;
+co  = formonly.codigo_r;
+f1  = formonly.fecha_in type date,color=blue,format = "dd/mm/yy";
+f2  = formonly.fecha_fi type date,color=blue,format = "dd/mm/yy";
+a   = irtb00006.cod_n,color=blue,autonext,default = 7,noentry;
+b   = irtb00006.cod_grupo,color=blue,autonext;
+b1  = irtb00006.cod_tipo,color=blue,autonext;
+b2  = irtb00006.cod_sec,color=blue,autonext;
+
+r1  = formonly.descripcion type char,upshift,color=blue;
+f3  = irtb00006.fecha,color=blue,noentry,format = "dd/mm/yy";
+d   = irtb00006.num_doc,color=blue,noentry;
+c1  = irtb00006.cantidad_2,color=blue,noentry;
+c2  = formonly.balance1 type decimal,color=blue,noentry;
+instructions  
+  screen record p_pant[8](codigo_r,descripcion,fecha,
+                           num_doc,cantidad_2,
+                           balance1)
+delimiters" "
+end