{
-------------------------------------------------------------------------
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