65 lines
2.8 KiB
Plaintext
65 lines
2.8 KiB
Plaintext
{
|
|
-------------------------------------------------------------------------
|
|
NOMBRE : cgfmmt001
|
|
OBJETIVO : Capturar las informaciones del catalogo de cuentas
|
|
DISENO : Ing. Juan F.Soto
|
|
FECHA REALIZADO : Septiembre 27, 1993.
|
|
MODULO UTILIZA : cgprmt001
|
|
--------------------------------------------------------------------------
|
|
}
|
|
database marmotech
|
|
screen
|
|
{
|
|
Fecha del Volante: [fe ]No. Volante [f001 ]
|
|
Departamento Control: [de1 ] [nom ]
|
|
Departamento Requiere:[de2 ] [nom1 ]
|
|
Tipo Volante: [t][t1 ]
|
|
Monto : [mo ]
|
|
Preparado Por: [p ] Recibido Por:[p1 ]
|
|
Autorizado Por:[p2 ]
|
|
\g---------------------------------------------------------------------------\g
|
|
Requerimientos Valor
|
|
\g----------------------------------------------------------------------------\g
|
|
[a][b][c ][d ][f002 ][f01] [f004 ]
|
|
[a][b][c ][d ][f002 ][f01] [f004 ]
|
|
[a][b][c ][d ][f002 ][f01] [f004 ]
|
|
(( Digite el codigo 9-9-99-999 Para Requerimientos no codificables ))
|
|
}
|
|
end
|
|
tables
|
|
cgtb00007
|
|
attributes
|
|
fe = cgtb00007.fecha ,reverse,autonext,format = "dd/mm/yy";
|
|
f001=cgtb00007.numero,noentry;
|
|
de1= cgtb00007.departamento_ctrl,autonext,comments =
|
|
"Departamento donde se guarda la secuencia de los volantes o Press Ctrl-W Help";
|
|
nom = formonly.nombre_ctrl,noentry;
|
|
de2 = cgtb00007.departamento_req,reverse,comments =
|
|
"Departamento que requiere el volante de caja chica";
|
|
nom1 = formonly.nombre_req,noentry;
|
|
t = formonly.tipo type char,reverse,upshift,include = ("P","D"),comments =
|
|
"Digite el tipo de volante P- PROVISIONAL D- DEFINITIVO" ;
|
|
t1 = formonly.desc_volante,noentry;
|
|
mo = cgtb00007.monto,reverse,comments =
|
|
"Digite el monto total del volante";
|
|
p = cgtb00007.preparado_por,upshift;
|
|
p1 = cgtb00007.recibido_por,upshift,reverse;
|
|
p2 = cgtb00007.autorizado_por,upshift,reverse;
|
|
|
|
a = cgtb00007.cod_n,reverse,autonext,comments =
|
|
"Digite codigo de lo que se quiere o Ctrl-B Consulta Codigo";
|
|
b = cgtb00007.cod_grupo,reverse,autonext,comments =
|
|
"Digite codigo de lo que se quiere o Ctrl-B Consulta Codigo";
|
|
c = cgtb00007.cod_tipo,reverse,autonext,comments =
|
|
"Digite codigo de lo que se quiere o Ctrl-B Consulta Codigo";
|
|
d = cgtb00007.cod_sec,reverse,autonext,comments =
|
|
"Digite codigo de lo que se quiere o Ctrl-B Consulta Codigo";
|
|
|
|
f002 = formonly.descripcion;
|
|
f01 = formonly.unidad,noentry;
|
|
f004 = cgtb00007.valor,reverse;
|
|
instructions
|
|
screen record s_volante[3](cod_n,cod_grupo,cod_tipo,cod_sec,descripcion,unidad,
|
|
valor)
|
|
end
|