96 lines
3.6 KiB
Plaintext
96 lines
3.6 KiB
Plaintext
schema smarmotech
|
|
ACTION defaults
|
|
ACTION suplidor (TEXT="Busca Suplidor", IMAGE="find")
|
|
END
|
|
|
|
|
|
TOOLBAR
|
|
ITEM nuevo (TEXT="Orden de Compras", IMAGE="new", COMMENT="Nueva Orden")
|
|
ITEM buscar (TEXT="Buscar Ordenes de Compras", IMAGE="find", COMMENT="Criterio de busqueda")
|
|
SEPARATOR
|
|
ITEM salir (TEXT="Salir", IMAGE="quit")
|
|
END
|
|
LAYOUT (TEXT="ORDENES DE COMPRAS",STYLE="basic")
|
|
GRID
|
|
{
|
|
<G generales >
|
|
Orden No. [f000 ] Tipo Orden[a0 ] Fecha[f001 ]
|
|
Chequeo No. Orden[f0002 ] No. Proforma[f005 ]
|
|
Codigo Suplidor[f2][f003][sh ][a1 ]
|
|
Codigo de Pago [f4 ] Via [a2 ]
|
|
Enviada [l] Fecha[f008 ] Pago [m] Fecha Pago [f009 ]Cierre [n]
|
|
Puerto [p1 ][p2 ] Codigo Moneda [cm ][dem ]
|
|
|
|
<G detalles >
|
|
Requis. Codigo Cantidad ESB Number Precio Valor
|
|
[re ][a ][g ][t ][se ][f3 ][f6 ][f7 ]
|
|
[re ][a ][g ][t ][se ][f3 ][f6 ][f7 ]
|
|
[re ][a ][g ][t ][se ][f3 ][f6 ][f7 ]
|
|
[re ][a ][g ][t ][se ][f3 ][f6 ][f7 ]
|
|
Descripcion [des ] Unidad [f8 ]
|
|
N.A.B. [F9 ] Nomenclatura [k ]
|
|
}
|
|
end
|
|
tables
|
|
cotb00005, cotb00006,
|
|
intb00001, cotb00008,
|
|
cotb00014, cotb00024,
|
|
cotb00001, cotb00015
|
|
attributes
|
|
f0002 = formonly.cknum_oc,required,reverse;
|
|
re = formonly.num_req,autonext,comments =
|
|
"Digite Numero de Requisicion o Presione Ctrl-w Para Busqueda";
|
|
a = intb00001.cod_n;
|
|
g = intb00001.cod_grupo;
|
|
t = intb00001.cod_tipo;
|
|
se = intb00001.cod_sec;
|
|
des = intb00001.descrip_esp,noentry;
|
|
f8 = intb00001.unidad_med,noentry;
|
|
k = formonly.descrip1,noentry;
|
|
f3 = cotb00008.cantidad;
|
|
f9 = cotb00005.cod_nab,noentry;
|
|
f6 = cotb00008.precio,noentry;
|
|
f7 = formonly.valor,noentry;
|
|
f000 = formonly.num_oc,noentry;
|
|
COMBOBOX a0 = formonly.tipo;
|
|
|
|
f001 = cotb00014.fech_oc,autonext,format = "dd/mm/yyyy",
|
|
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;
|
|
COMBOBOX f4 = cotb00014.term_sp,
|
|
comments =
|
|
"Digite el termino de pago o Presione Ctrl-W para busqueda";
|
|
|
|
COMBOBOX a2 = cotb00014.via,
|
|
comments ="Digite 01 = Maritima, 02 = Aerea, 03 = Terrestre";
|
|
|
|
l = cotb00014.enviada,autonext,upshift,comments = "Digite S o N",
|
|
include = ("S","N");
|
|
f008 = cotb00014.fech_enviada, format = "dd/mm/yyyy";
|
|
m = cotb00014.pago,autonext,upshift,comments = "Digite S o N",
|
|
include = ("S","N");
|
|
f009 = cotb00014.fech_pago, format = "dd/mm/yyyy";
|
|
n = cotb00014.cierre,noentry,include = ("S","N");
|
|
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;
|
|
|
|
|
|
BUTTON sh:suplidor;
|
|
|
|
instructions
|
|
screen record consart[4] (num_req,cod_n,cod_grupo,cod_tipo,cod_sec,
|
|
cantidad,precio,valor)
|
|
end
|