{
==============================================================================
FORMULARIO:     CGFMCS003
OBJETIVO  :     DESPLEGAR INFORMACIONES DE LAS FACTURAS AFECTADAS POR CHEQUES
DISENADO  :     JUAN F. SOTO
FECHA     :     FEBRERO 28, 1996.
==============================================================================
}
database marmotech
screen size 24 by 80
{
Factura(s) : [k1      ]
==============================================================================
                                        Numero   Fecha    Cuenta      Monto
Suplidor(es)                            Cheque   Cheque   Bancaria    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,cgtb00021
attributes
k1  = formonly.p_factura,upshift,comments = "Digite Numero(s) de Factura(s)";
f3  = cgtb00032.cheque_no;
p4  = cgtb00032.cod_cro;
a1  = cgtb00031.beneficiario;
f6  = cgtb00005.fecha,format = "dd/mm/yy";
f7  = cgtb00032.banco;
f8  = formonly.monto;   
instructions
delimiters  " "
screen record scr_ent[8](cod_cro,beneficiario,cheque_no,fecha,banco,monto)
end