75 lines
3.3 KiB
Plaintext
75 lines
3.3 KiB
Plaintext
database marmotech
|
|
screen size 24 by 80
|
|
{
|
|
Orden No.[f000 ] Tipo Orden [a0] Fecha [f001 ] No. Proforma [f005 ]
|
|
Codigo Suplidor [f2][f003] [a1 ]
|
|
Codigo de Pago [f4][a8 ] Via [a2][h ]
|
|
Enviada [l] Fecha[f008 ] Pago [m] Fecha Pago [f009 ] Cierre [n]
|
|
Puerto [p1 ][p2 ] Codigo Moneda [cm ][dem ]
|
|
\g-------------------------------------------------------------------------
|
|
Requisicion Codigo Cantidad ESB Number Precio Valor
|
|
\g-------------------------------------------------------------------------
|
|
[re ][a ][f3 ][f5 ][f6 ][f7 ]
|
|
[re ][a ][f3 ][f5 ][f6 ][f7 ]
|
|
[re ][a ][f3 ][f5 ][f6 ][f7 ]
|
|
Descripcion [des ] Unidad [f8 ]
|
|
N.A.B. [F9 ] Nomenclatura [k ]
|
|
}
|
|
end
|
|
tables
|
|
cotb00005, cotb00006,
|
|
intb00001, cotb00008,
|
|
cotb00014, cotb00024,
|
|
cotb00001, cotb00015
|
|
attributes
|
|
re = cotb00006.num_req,autonext,comments =
|
|
"Digite Numero de Requisicion o Presione Ctrl-w Para Busqueda";
|
|
a = formonly.codigo,noentry;
|
|
des = intb00001.descrip_esp,noentry;
|
|
f8 = intb00001.unidad_med,noentry;
|
|
k = formonly.descrip1,noentry;
|
|
f3 = cotb00008.cantidad,noentry;
|
|
f5 = cotb00015.num_parte,upshift,comments =
|
|
"Presione Ctrl-w Para Busqueda de Entregas Parciales";
|
|
f9 = cotb00005.cod_nab,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";
|
|
f005 = cotb00014.num_pr,autonext,
|
|
comments ="Digite el numero de la proforma o cotizacion";
|
|
f2 = cotb00014.cod_sp,autonext,
|
|
comments =
|
|
"Digite el codigo del suplidor o Presione Ctrl-W para busqueda";
|
|
f003 = cotb00014.cod_sp_sec,autonext,
|
|
comments =
|
|
"Digite la secuencia del suplidor o Presione Ctrl-W para busqueda";
|
|
a1 = cotb00001.nom_sp,noentry;
|
|
f4 = cotb00014.term_sp,autonext,
|
|
comments =
|
|
"Digite el termino de pago o Presione Ctrl-W para busqueda";
|
|
a8 = cotb00024.descrip_term,noentry;
|
|
a2 = cotb00014.via,autonext,include = ("01","02","03"),
|
|
comments ="Digite 01 = Martitima, 02 = Aerea, 03 = Terrestre";
|
|
h = formonly.nom_via,noentry;
|
|
l = cotb00014.enviada,autonext,upshift,
|
|
comments = "Digite S o N";
|
|
f008 = cotb00014.fech_enviada, format = "dd/mm/yy";
|
|
m = cotb00014.pago,autonext,upshift,
|
|
comments = "Digite S o N";
|
|
f009 = cotb00014.fech_pago, format = "dd/mm/yy";
|
|
n = cotb00014.cierre,autonext,upshift;
|
|
p1 = formonly.cod_pt,autonext, comments =
|
|
"Digite el puerto de embarque o Presione Ctrl-W para busqueda";
|
|
p2 = formonly.nombre_p,noentry;
|
|
cm = formonly.cod_mon,autonext, comments =
|
|
"Digite el Codigo de la moneda o Presione Ctrl-W para busqueda";
|
|
dem = formonly.nombre_mon,noentry;
|
|
instructions
|
|
screen record consart[3] (num_req,codigo,cantidad,num_parte,precio,valor)
|
|
end
|