59 lines
2.8 KiB
Plaintext
59 lines
2.8 KiB
Plaintext
|
|
{
|
|
------------------------------------------------------------------
|
|
Formulario : infmmt023
|
|
OBJETIVO : Capturar, Modificar, Eliminar registros de la
|
|
Tabla de la maestra de FIANZAS, aceptando el
|
|
numero de factura como numero de fianza.
|
|
Modulos q. lo usan: inprmt023
|
|
PROGRAMADOR : Tadeo A. Ferreas
|
|
FECHA REALIZACION : Julio 22, 1993.
|
|
------------------------------------------------------------------
|
|
}
|
|
database exterior
|
|
screen
|
|
{
|
|
Numero de Documento [nf ] Numero de Resolucion [nr ] Fecha [ff ]
|
|
Suplidor[cs]-[cs1 ] [nomb ]
|
|
Orden Numero[numo ]-[e] Valor Merc.[merc ]
|
|
\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 ]
|
|
[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 =
|
|
"En caso de estar atada una resolucion, digite el numero de la misma";
|
|
ff = intb00020.fecha,format = "dd/mm/yy",comments =
|
|
"Digite fecha de solicitud";
|
|
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;
|
|
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$";
|
|
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 fact2[4](cod_n,cod_grupo,cod_tipo,cod_sec,unidad,descrip,
|
|
cantidad,cantidad_c)
|
|
end
|
|
|