Files
MBS/PROYECTOS/alprmt06/alfmmt006.per
T

83 lines
3.4 KiB
Plaintext

{
----------------------------------------------------------------------------
FORMULARIO : INFMMT006
OBJETIVO : Pantalla para la captura de reporte de entrada
inventario materia prima.
MODULOS Q. UTILIZAN : inprmt006
PROGRAMADOR : Juan F. Soto
FECHA REALIZACION : Agosto 1997
DIRECTOR PROYECTO : JOSE ALFREDO PAULINO ALEJO
----------------------------------------------------------------------------
}
schema 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
{
Doc. No. [f00 ]
<G Generales >
Orden Compra:[ti][f02 ]Suplidor:[p1]-[f01 ][a ]
Conduce:[f03 ] Factura No.[f04 ] Fecha:[f05 ]Bodega:[k ]
<G Detalles >
C A N T I D A D Cantidad
Codigo Ordenada Recibida Tipo Movimiento Pendiente
[b ][c ][d ][f ][f06 ] [f07 ] [t ] [p ] [f1 ]
[b ][c ][d ][f ][f06 ] [f07 ] [t ] [p ] [f1 ]
[b ][c ][d ][f ][f06 ] [f07 ] [t ] [p ] [f1 ]
[b ][c ][d ][f ][f06 ] [f07 ] [t ] [p ] [f1 ]
[b ][c ][d ][f ][f06 ] [f07 ] [t ] [p ] [f1 ]
Descripcion Articulo : [g ]
Descripcion Movimiento: [t1 ]
}
end
tables
iptb00006,
cotb00001,
intb00001,
intb00005
attributes
f00 = formonly.num_doc;
ti = iptb00006.tipo,autonext,include = ("01","02"),comments=
"Digite Tipo de Orden 02-Producto terminado 01- Materia Prima";
f02 = iptb00006.orden_compra, autonext,
comments = "Digite el Numero de la Orden de Compras";
p1 = iptb00006.cod_sp,picture = "##",autonext,noentry;
f01 = iptb00006.cod_sp_sec,picture = "####",autonext,noentry;
f03 = iptb00006.conduce_no, autonext,
comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
f04 = iptb00006.fact_no, autonext,
comments = "Digite el Numero de la Factura del Suplidor";
f05 = formonly.fecha type date,format = "dd/mm/yyyy",
comments = "Digite la Fecha Correspondiente al Documento";
f06 = iptb00006.cantidad_1,noentry;
f07 = formonly.cantidad_2 type integer,
comments = "Digite la Cantidad Llegada desde el Suplidor";
t = formonly.cod_mov type smallint,include=(10,34),
comments= "Codigo Movimiento Entrada ";
a = cotb00001.nom_sp,noentry;
b = iptb00006.cod_n,autonext,noentry;
c = iptb00006.cod_grupo,autonext,noentry;
d = iptb00006.cod_tipo,autonext,noentry;
f = iptb00006.cod_sec,autonext,noentry;
g = formonly.descripcion_f,noentry;
p = formonly.no_embarque,noentry;
t1 = intb00005.descrip_mov,noentry;
k = iptb00006.bodega,autonext;
f1 = formonly.pendiente,noentry;
INSTRUCTIONS
screen record s_movi1[5] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
cantidad_2,cod_mov,no_embarque,pendiente)
end