{
==============================================================================
FORMULARIO:     CGFMCS003
OBJETIVO  :     DESPLEGAR INFORMACIONES DE LOS CHEQUES ENTREGADOS
DISENADO  :     JUAN F. SOTO
FECHA     :     DICIEMBRE 8, 1995.
==============================================================================
}
database marmotech
screen size 24 by 80
{
Digite Rango Fecha Entrega: [f1      ] [f2      ]
Codigo Cronologico        : [k1      ][a2                                    ]
==============================================================================
Cuenta                                  Numero   Fecha    Fecha       Monto
Bancaria                                Cheque   Cheque   Entrega     Cheque
==============================================================================
[p4      ][a1                          ][f3    ][f6      ][f7      ][f8        ]
[p4      ][a1                          ][f3    ][f6      ][f7      ][f8        ]
[p4      ][a1                          ][f3    ][f6      ][f7      ][f8        ]
[p4      ][a1                          ][f3    ][f6      ][f7      ][f8        ]
[p4      ][a1                          ][f3    ][f6      ][f7      ][f8        ]
[p4      ][a1                          ][f3    ][f6      ][f7      ][f8        ]
[p4      ][a1                          ][f3    ][f6      ][f7      ][f8        ]
[p4      ][a1                          ][f3    ][f6      ][f7      ][f8        ]
}
tables   
cgtb00031,cgtb00032,cgtb00005
attributes
f1  = formonly.fecha1 type date,format = "dd/mm/yy",comments = 
"Fecha Inicial Del Rango";
f2  = formonly.fecha2 type date,format = "dd/mm/yy",comments = 
"Fecha Final Del Rango";
a2 = formonly.beneficiario;
k1  = cgtb00032.cod_cro,upshift,comments = 
"Digite Codigo de Cronologico O Deje en Blanco Para Todos";
f3  = cgtb00032.cheque_no;
p4  = cgtb00032.banco;
a1  = formonly.nombre_bco;
f6  = cgtb00005.fecha,format = "dd/mm/yy";
f7  = cgtb00032.fecha_ent,format = "dd/mm/yy";
f8  = formonly.monto;   
instructions
delimiters  " "
screen record scr_ent[8](banco,nombre_bco,cheque_no,fecha,fecha_ent,monto)   
end