76 lines
3.0 KiB
Plaintext
76 lines
3.0 KiB
Plaintext
{
|
|
----------------------------------------------------------------------------
|
|
FORMULARIO : IRFMCS011
|
|
OBJETIVO : Consultar Los Embarques
|
|
DISENADO POR : JUAN F. SOTO
|
|
FECHA : MARZO 18, 1997.
|
|
----------------------------------------------------------------------------
|
|
}
|
|
database marmotech
|
|
screen size 24 by 80
|
|
{
|
|
Orden No. [f000 ] Tipo Orden[a0] Fecha[f001 ]Cierre [n]
|
|
Codigo Suplidor[f2][f003] [a1 ]
|
|
Puerto [p1 ][p2 ] Codigo Moneda [cm ][dem ]
|
|
\g------------------------------------------------------------------------------
|
|
Requis. Codigo Cantidad Precio Valor Recibido
|
|
\g------------------------------------------------------------------------------
|
|
[re ][a][g][t ][se ][f3 ][f6 ][f7 ][fr1 ]
|
|
[re ][a][g][t ][se ][f3 ][f6 ][f7 ][fr1 ]
|
|
[re ][a][g][t ][se ][f3 ][f6 ][f7 ][fr1 ]
|
|
Descripcion [des ] Unidad [f8 ]
|
|
No. Embarque[e4] Recibidos[e5]
|
|
EMBARQUE ------ ESTATUS EMB. ------- FECHA SALIDA
|
|
[f18 ] [f0][f67 ] [f77 ]
|
|
[f18 ] [f0][f67 ] [f77 ]
|
|
}
|
|
end
|
|
tables
|
|
cotb00005,
|
|
intb00001, cotb00008,
|
|
cotb00014, cotb00024,
|
|
cotb00001, cotb00015
|
|
attributes
|
|
f18 = formonly.cod_emb,noentry;
|
|
f0 = formonly.cod_st,comments =
|
|
" <Ctrl-N Informacion Sobre Este Embarque <Esc> Actualiza Informacion";
|
|
f67 = formonly.nomb_st,noentry;
|
|
f77 = formonly.fecha_salida type date,format="dd/mm/yy",noentry;
|
|
re = formonly.num_req,autonext,comments =
|
|
"<Ctrl-P> Busca Embarques De Este Codigo, <Ctrl-B> Busca Descr. Item";
|
|
a = intb00001.cod_n;
|
|
g = intb00001.cod_grupo,noentry;
|
|
t = intb00001.cod_tipo,noentry;
|
|
se = intb00001.cod_sec,noentry;
|
|
des = intb00001.descrip_esp,noentry;
|
|
f8 = intb00001.unidad_med,noentry;
|
|
f3 = cotb00008.cantidad,noentry;
|
|
f6 = cotb00008.precio,noentry;
|
|
f7 = formonly.valor,noentry;
|
|
f000 = cotb00014.num_oc,noentry;
|
|
a0 = cotb00014.tipo,upshift,autonext,
|
|
include = ("01","02","03","04"),
|
|
comments ="01=Generales, 02=Rov-Ltd, 03=Locales, 04=Miscelaneas";
|
|
f001 = cotb00014.fech_oc,autonext,format = "dd/mm/yy",
|
|
comments ="Digite la fecha de elaboracion de la orden";
|
|
f2 = cotb00014.cod_sp,autonext,
|
|
comments =
|
|
"Digite el codigo del suplidor ";
|
|
f003 = cotb00014.cod_sp_sec,autonext,
|
|
comments =
|
|
"Digite la secuencia del suplidor";
|
|
a1 = cotb00001.nom_sp,noentry;
|
|
n = cotb00014.cierre,noentry;
|
|
p1 = formonly.cod_pt,autonext;
|
|
p2 = formonly.nombre_p,noentry;
|
|
cm = formonly.cod_mon,autonext;
|
|
dem = formonly.nombre_mon,noentry;
|
|
fr1 = formonly.recibido,noentry;
|
|
e4 = formonly.emb_no;
|
|
e5 = formonly.emb_rec;
|
|
instructions
|
|
screen record consart[3] (num_req,cod_n,cod_grupo,cod_tipo,cod_sec,
|
|
cantidad,precio,valor,recibido)
|
|
screen record emb[2] (cod_emb,cod_st,nomb_st,fecha_salida)
|
|
end
|