{
==============================================================================
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  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
cgtb00033,cgtb00031,cgtb00012
attributes
f000 = cgtb00033.cheque_no;
f001 = cgtb00033.banco, comments = 
"Digite Cuenta del Banco o Ctrl-O Para Buscar Bancos";
f002 = cgtb00033.cod_cro,upshift,picture = "X-###-##",autonext,
comments = "Digite Codigo Cronologico o Presione Ctrl-W Para Consultar";
k1   = cgtb00033.fecha,format = "dd/mm/yy";
f003 = cgtb00033.recibido_por[1,30],upshift;
f004 = cgtb00033.recibido_por[31,60],upshift;
f005 = cgtb00033.cedula,upshift;
f006 = cgtb00033.fecha_ent,format="dd/mm/yy";
f007 = cgtb00033.hora_ent;
f008 = cgtb00033.us_crea,noentry;
f009 = cgtb00033.fech_crea,noentry;
f010 = cgtb00033.us_mod,noentry;
f011 = cgtb00033.fech_mod,noentry;
f20 = cgtb00033.monto;
a    = cgtb00033.status_t,noentry;
b    = cgtb00031.beneficiario[1,30],noentry;
d    = cgtb00012.nombre_bco,noentry;
e    = cgtb00033.portador,upshift;
f    = cgtb00033.direccion, comments =
"Digite La Direccion De La Persona Que Retira El Cheque";
instructions
delimiters " "
end