89 lines
3.6 KiB
Plaintext
89 lines
3.6 KiB
Plaintext
{
|
|
----------------------------------------------------------------------------
|
|
FORMULARIO : IRFMMT006
|
|
OBJETIVO : Pantalla para la captura de reporte de entrada
|
|
MODULOS Q. UTILIZAN : irprmt006
|
|
PROGRAMADOR : Juan F. Soto
|
|
FECHA REALIZACION : Febrero 1, 1993
|
|
----------------------------------------------------------------------------
|
|
}
|
|
database smarmotech
|
|
TOOLBAR
|
|
ITEM nuevo (TEXT="Documento", IMAGE="new", COMMENT="Nuevo Reporte Entradan")
|
|
ITEM buscar (TEXT="Buscar Documentos", IMAGE="find", COMMENT="Criterio de busqueda")
|
|
SEPARATOR
|
|
ITEM salir (TEXT="Salir", IMAGE="quit")
|
|
|
|
LAYOUT (TEXT="REPORTES ENTRADA", STYLE="basic")
|
|
GRID
|
|
|
|
|
|
{
|
|
<G Encabezado >
|
|
Movimiento:[t ][t1 ] Doc. No. [f00 ]
|
|
Orden Compra:[ti][f02 ] Suplidor:[p1]-[f01 ][a ]
|
|
Conduce:[f03 ] Factura No.[f04 ] Fecha:[f05 ]Dep[d100]
|
|
|
|
<G Detalle >
|
|
C A N T I D A D
|
|
Codigo Ordenada Recibida Maquina
|
|
|
|
[b ][c ][d ][f ][g ][f08][f06 ][f07 ][f09]
|
|
[b ][c ][d ][f ][g ][f08][f06 ][f07 ][f09]
|
|
[b ][c ][d ][f ][g ][f08][f06 ][f07 ][f09]
|
|
[b ][c ][d ][f ][g ][f08][f06 ][f07 ][f09]
|
|
[b ][c ][d ][f ][g ][f08][f06 ][f07 ][f09]
|
|
[b ][c ][d ][f ][g ][f08][f06 ][f07 ][f09]
|
|
Descripcion Maquina :[h ]
|
|
|
|
}
|
|
end
|
|
tables
|
|
|
|
irtb00006,
|
|
cotb00001,
|
|
irtb00002,
|
|
irtb00005
|
|
attributes
|
|
f00 = irtb00006.num_doc,noentry;
|
|
p1 = irtb00006.cod_sp,noentry;
|
|
f01 = irtb00006.cod_sp_sec,noentry;
|
|
f02 = irtb00006.orden_compra, autonext,
|
|
comments = "Digite el Numero de la Orden de Compras";
|
|
f03 = irtb00006.conduce_no, autonext,
|
|
comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
|
|
f04 = irtb00006.fact_no, autonext,
|
|
comments = "Digite el Numero de la Factura del Suplidor";
|
|
f05 = formonly.fecha type date,format = "dd/mm/yyyy",default=today,
|
|
comments = "Digite la Fecha Correspondiente al Documento";
|
|
f06 = irtb00006.cantidad_1,
|
|
comments = "Digite la Cantidad Pedida ";
|
|
f07 = irtb00006.cantidad_2,
|
|
comments = "Digite la Cantidad Llegada desde el Suplidor";
|
|
f08 = irtb00002.unidad_med,noentry;
|
|
f09 = irtb00006.maquina,autonext,
|
|
comments = "Digite la maquina que pertence el repuesto";
|
|
h = formonly.nombre,noentry;
|
|
a = cotb00001.nom_sp,noentry;
|
|
b = irtb00006.cod_n,autonext,
|
|
comments = "Digite el Codigo De la herramienta";
|
|
c = irtb00006.cod_grupo,autonext,
|
|
comments = "Digite el Codigo De la herramienta";
|
|
d = irtb00006.cod_tipo,autonext,
|
|
comments = "Digite el Codigo De la herramienta";
|
|
f = irtb00006.cod_sec,autonext,
|
|
comments = "Digite el Codigo De la herramienta";
|
|
g = irtb00002.descrip_esp,noentry;
|
|
|
|
ti = formonly.tipo type char,autonext;
|
|
|
|
t = irtb00006.cod_mov,autonext;
|
|
|
|
d100 = formonly.sec_a,comments = "Digite Departamento Nomina";
|
|
t1 = irtb00005.descrip_mov,noentry;
|
|
INSTRUCTIONS
|
|
screen record s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp,
|
|
unidad_med,cantidad_1,cantidad_2,maquina)
|
|
|
|
end
|