Files
2026-09-22 20:38:51 -04:00

85 lines
3.3 KiB
Plaintext

{
----------------------------------------------------------------------------
FORMULARIO : IRFMMT036
OBJETIVO : Pantalla para la captura de otros movimientos
MODULOS Q. UTILIZAN : irprmt036
PROGRAMADOR : Juan F. Soto
FECHA REALIZACION : Marzo 1, 1993
----------------------------------------------------------------------------
}
schema decomarmol
TOOLBAR
ITEM nuevo (TEXT="Documento", IMAGE="new", COMMENT="Nuevo Documento Transaccional")
ITEM buscar (TEXT="Buscar Documentos", IMAGE="find", COMMENT="Criterio de busqueda")
SEPARATOR
ITEM salir (TEXT="Salir", IMAGE="quit")
LAYOUT (TEXT="TRANSACCIONES INVENTARIOS", STYLE="basic")
GRID
{
<G Encabezado >
Tipo Movimiento [t ] [t1 ]
Documento Numero [f000 ]Orden [ti][ord ]
Suplidor [sp][sp1 ] [n ]
Fecha [f001 ] Conduce No. [cn ]
Departamento [s ][a1 ]
<G Detalle >
CANTIDAD
Codigo Entregada Unidad D e s c r i p c i o n Maquina
[a][b ][c ][d ][f02 ][p ][k ][m1 ]
[a][b ][c ][d ][f02 ][p ][k ][m1 ]
[a][b ][c ][d ][f02 ][p ][k ][m1 ]
[a][b ][c ][d ][f02 ][p ][k ][m1 ]
[a][b ][c ][d ][f02 ][p ][k ][m1 ]
[a][b ][c ][d ][f02 ][p ][k ][m1 ]
Descripcion Maquina[n1 ]
}
end
tables
irtb00002,
irtb00002,
irtb00006,
adtb00002
attributes
ord = irtb00006.orden_compra,autonext,comments =
"Digite Orden Compras para devolver ";
ti = formonly.tipo,autonext;
cn = formonly.conduce_no;
sp= formonly.cod_sp;
sp1= formonly.cod_sp_sec;
n = formonly.nom_sp,noentry;
f000 = formonly.num_doc;
f001 = irtb00006.fecha, format = "dd/mm/yyyy",autonext,
comments = "Digite Fecha Documento";
s = formonly.secc_a,autonext,
comments = "Digite Codigo Localidad";
a1 = formonly.nombre_d, noentry;
a = irtb00006.cod_n,autonext,
comments = "Digite Codigo Articulo CONTROL-E Busqueda";
b = irtb00006.cod_grupo,autonext,
comments = "Digite Codigo Articulo CONTROL-E Busqueda";
c = irtb00006.cod_tipo,autonext,
comments = "Digite Codigo Articulo CONTROL-E Busqueda";
d = irtb00006.cod_sec,autonext,
comments = "Digite Codigo Articulo CONTROL-E Busqueda";
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,
comments = "Digite Codigo Del Movimiento Correspondiente";
t1 = formonly.descrip_mov,noentry;
m1 = formonly.codigo,autonext, comments =
"Digite El Codigo de La Maquina Que Corresponde a este Repuesto";
n1 = formonly.nombre,noentry;
INSTRUCTIONS
SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,
cantidad_2,unidad_med,descrip_esp,codigo)
end