77 lines
3.8 KiB
Plaintext
77 lines
3.8 KiB
Plaintext
|
|
{
|
|
------------------------------------------------------------------
|
|
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
|
|
|