NACE/DECOMARMOL
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

primer commit subida

Browse Source
This commit is contained in:
Luis
2026-09-22 20:38:51 -04:00
commit 07649704b1
10247 changed files with 3271751 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTOS/irdir/irfmcs031.per
+63
View File
@@ -0,0 +1,63 @@
database marmotech
{
----------------------------------------------------------------------------
AUTOR: JUAN FCO SOTO
FECHA: Marzo 1, 1993.
DECRIPCION: FORMATO DE PANTALLA PARA movimientos (Repuestos)
----------------------------------------------------------------------------
}
screen size 24 by 80
{
\gp---------------------------------------------------------------------------q\g
\g|\g Tipo Movimiento [t ] [t1 ] \g|\g
\g|\g Documento Numero [f000 ] Orden [ord ] \g|\g
\g|\g Fecha [f001 ] \g|\g
\g|\g Localidad [s] [a1 ] \g|\g
\g|\g Transferida a [r] [a2 ] \g|\g
\gb---------------------------------------------------------------------------d\g
CANTIDAD
Codigo Entregada Unidad D e s c r i p c i o n Maquina
\g-----------------------------------------------------------------------------\g
[a ] [f02 ] [p ] [k ] [m1 ]
[a ] [f02 ] [p ] [k ] [m1 ]
[a ] [f02 ] [p ] [k ] [m1 ]
[a ] [f02 ] [p ] [k ] [m1 ]
[a ] [f02 ] [p ] [k ] [m1 ]
[a ] [f02 ] [p ] [k ] [m1 ]
\g-----------------------------------------------------------------------------\g
Descripcion Maquina: [n1 ]
}
end
tables
irtb00002,
irtb00002,
irtb00006
attributes
ord = irtb00006.orden_compra,autonext,comments =
"Digite Orden Compras para devolver ";
f000 = irtb00006.num_doc,autonext,
comments = "Digite Numero Documento";
f001 = irtb00006.fecha, format = "dd/mm/yy",autonext,
comments = "Digite Fecha Documento";
r = formonly.secc_a , autonext,
comments = "Digite Codigo de la Localidad";
s = formonly.secc_de,autonext,
comments = "Digite Codigo Localidad";
a1 = formonly.nom_seccion type char, noentry;
a2 = formonly.nom,noentry;
a = formonly.codigo;
f02 = irtb00006.cantidad_2,autonext,
comments = "Digite La Cantidad Entregada";
k = irtb00002.descrip_esp,noentry,autonext;
p = irtb00002.unidad_med,noentry;
t = formonly.cod_mov type smallint,autonext,include = (3 to 99),
comments = "Digite Codigo Del Movimiento Correspondiente";
t1 = formonly.descrip_mov,noentry;
m1 = irtb00006.maquina,autonext, comments =
"Digite El Codigo de La Maquina Que Corresponde a este Repuesto";
n1 = formonly.nombre,noentry;
INSTRUCTIONS
SCREEN RECORD s_movi1[6] (codigo,cantidad_2,unidad_med,descrip_esp,maquina)
end