Files
MBS/PROYECTO/cgdir/cgfmmt007.per
T

59 lines
2.6 KiB
Plaintext

{
==============================================================================
FORMULARIO : CGFMMT007
OBJETIVO : MANTENIMIENTO DE ENTREGA DE LOS CHEQUES
DISENADO POR : JUAN F. SOTO
FECHA : DICIEMBRE 4, 1995.
==============================================================================
}
database marmotech
screen size 24 by 80
{
\g|\g Numero Cheque [f000 ] Fecha Del Cheque [k1 ] \g|\g
\g|\g Cta. del Banco [f001 ] [d ]\g|\g
\g|\g Valor Del Cheque [f20 ] \g|\g
\g|\g A La Orden De: [e ] \g|\g
\g|----------------------------------------------------------------------|\g
\g|\g Codigo Cronol. [f002 ][b ] \g|\g
\g|\g [c ] \g|\g
\g|\g Recibido_por [f003 ] \g|\g
\g|\g [f004 ] \g|\g
\g|\g Cedula [f005 ] [a] \g|\g
\g|\g Direccion [f ] \g|\g
\g|\g fecha_ent [f006 ] \g|\g
\g|\g hora_ent [f007 ] \g|\g
\g|\g Usuario Creador [f008 ] Ususario Modi. [f010 ] \g|\g
\g|\g Fecha Creacion [f009 ]Fecha Modifica [f011 ]\g|\g
}
end
tables
cgtb00032,cgtb00031,cgtb00012,cgtb00005
attributes
f000 = cgtb00032.cheque_no;
f001 = cgtb00032.banco,comments =
"Digite Cuenta Del Banco O Presione Ctrl-O Para Buscar Bancos";
f002 = cgtb00032.cod_cro,upshift,picture = "X-###-##",autonext,
comments = "Digite Codigo Cronologico o Presione Ctrl-W Para Consultar";
k1 = cgtb00032.fecha,noentry,format = "dd/mm/yy";
f003 = cgtb00032.recibido_por[1,30],upshift;
f004 = cgtb00032.recibido_por[31,60],upshift;
f005 = cgtb00032.cedula,upshift;
f006 = cgtb00032.fecha_ent,format="dd/mm/yy";
f007 = cgtb00032.hora_ent;
f008 = cgtb00032.us_crea,noentry;
f009 = cgtb00032.fech_crea,noentry;
f010 = cgtb00032.us_mod,noentry;
f011 = cgtb00032.fech_mod,noentry;
f20 = cgtb00005.monto,noentry;
a = cgtb00032.status_t,noentry;
b = cgtb00031.beneficiario[1,30],noentry;
c = cgtb00031.beneficiario[31,60] ,noentry;
d = cgtb00012.nombre_bco,noentry;
e = cgtb00005.portador,noentry;
f = cgtb00032.direccion,comments =
"Entre Direccion De La Persona Que Retira El Cheque";
instructions
delimiters " "
end