NACE/DECOMARMOL
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

primer commit subida

Browse Source
This commit is contained in:
Luis
2026-09-22 20:38:51 -04:00
commit 07649704b1
10247 changed files with 3271751 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTO/codir/cofmmt020.per
+74
View File
@@ -0,0 +1,74 @@
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