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
PROYECTOS/indir/infmmt014.per
+76
View File
@@ -0,0 +1,76 @@
{
------------------------------------------------------------------
Formulario : infmmt020
OBJETIVO : Capturar, Modificar, Eliminar registros de la
Tabla de la maestra de FIANZAS.
Modulos q. lo usan: inprmt020
PROGRAMADOR : Tadeo A. Ferreas
FECHA REALIZACION : Julio 22, 1993.
------------------------------------------------------------------
}
database exterior
screen
{
No. de Fianza [nf ] No. de Resolucion [nr ] Fecha Fianza [ff ]
Nombre Buque [nb ] Fecha Entrada[fen ]
Suplidor[cs][cs1 ][nomb ]Pais[cp ][nomb1 ]
Cantidad Bulto[cb ]Orden Numero[numo ]-[e]Valor Merc.[merc ]
Aseguradora[cas ][nomb3 ]Poliza[poli ]Prima [prima ]
Porc.%[porc ][prim1 ]Desmonte [vd ]Valor Garantizado [gar ]
\g-----------------------------------------------------------------------------\g
Material Cant. Internar Cant. Cancelar
\g-------------------------------------------------------------------------------\g
[n][g][t ][s ][uni][nomb4 ][cant ][cant1 ]
[n][g][t ][s ][uni][nomb4 ][cant ][cant1 ]
[n][g][t ][s ][uni][nomb4 ][cant ][cant1 ]
}
end
tables
intb00020
attributes
nf = intb00020.num_fianza,comments = "Digite el numero de solicitud";
nr = intb00020.num_res,comments = "Digite el numero de resolucion";
ff = intb00020.fecha,format = "dd/mm/yy",comments =
"Digite fecha de solicitud";
nb = intb00020.nom_buque,upshift,
comments="Digite el nombre del buque transportista";
fen = intb00020.fecha_ent,format = "dd/mm/yy",comments =
"Digite fecha de entrada de material";
cs = intb00020.cod_sp,autonext,
comments="Presione CTRL-W Para Buscar Codigo del Suplidor";
cs1 = intb00020.cod_sp_sec,autonext,comments="Digite el codigo del suplidor";
nomb = formonly.nombre type char,noentry,color=yellow;
cp = intb00020.cod_pais,autonext,comments =
"Presione CTRL-W Para Buscar Codigo del Pais Exportador";
nomb1 = formonly.nombre1 type char,noentry,color=yellow;
cb = intb00020.cant_bulto,upshift,comments=
"Digite la cantidad y tipo de bulto";
numo = intb00020.num_oc,comments = "Digite el numero de la orden de compra";
e = intb00020.num_emb,comments=
"Digite el numero del embarque para la orden";
merc = intb00020.valor_merc,comments = "Digite valor de la mercancia en US$";
cas = intb00020.cod_ca,autonext,
comments="Presione CTRL-W Para Buscar Codigo de Compania Aseguradora";
nomb3 = formonly.nombre3 type char,noentry,color=yellow;
poli = intb00020.poliza,comments="Digite el numero de poliza de seguro";
prima = intb00020.prima,comments = "Digite valor de la prima en RD$";
porc = intb00020.porc_prima,comments="Digite el porciento de la prima";
prim1 = formonly.total_prima,noentry;
vd = intb00020.valor_desm,comments = "Digite el valor del desmonte";
gar = intb00020.valor_gar,noentry;
n = intb00020.cod_n,autonext,comments = "Digite el codigo del material";
g = intb00020.cod_grupo,autonext,comments = "Digite el codigo del material";
t = intb00020.cod_tipo,autonext,comments = "Digite el codigo del material";
s = intb00020.cod_sec,autonext,comments = "Digite el codigo del material";
nomb4 = formonly.descrip type char,noentry,color=yellow;
uni = formonly.unidad type char,noentry,color=yellow;
cant = intb00020.cantidad,
comments="Digite la cantidad de material a internar";
cant1 = intb00020.cantidad_c,comments =
"Digite la cantidad de material con que se cancelara la orden ";
instructions delimiters " "
screen record fianza2[3](cod_n,cod_grupo,cod_tipo,cod_sec,unidad,descrip,
cantidad,cantidad_c)
end