{
 ==============================================================================
  FORMULARIO      : CGFMMT016
  SISTEMA         : Sistema de Seguro Medico
  OBJETIVO        : Pantalla para captura de datos referentes a un pago 
                    por medio a un cheque del seguro medico      
  PROGRAMA Q. USA : SMPRMT013
  PROGRAMADOR     : Ing. Juan F. Soto
=============================================================================
}
database marmotech   
screen size 24 by 80
{
Cheque No.[a1       ] Cuenta Del Banco [f010    ][a                            ]
No. Solicitud  [s1   ]
Portador  [f003][b                                            ]
Fecha    [f005    ]           Monto Cheque[ck           ]
Codigo Partida [p4  ][bc                            ]
\g-----------------------------------------------------------------------------\g
 Numero de            Valor De La
 Reclamacion(es)      Reclamacion            
 [f006     ]         [f009         ]        
 [f006     ]         [f009         ]        
\g-----------------------------------------------------------------------------\g
}
end
tables
cgtb00005,
tetb00003,
smtb00013,
smtb00014,
cgtb00001

attributes
s1 = smtb00013.num_sol,comments =
"Digite Numero de Solicitud a Pagar";
a1 = formonly.numero,noentry;
f010 = formonly.cuenta_p type char,default="1106",include = ("1106"),
comments = 
"Digite El numero de la cuenta del banco que esta en catalogo";
a = cgtb00001.descripcion ;
f003 = formonly.beneficia,noentry;
b    = formonly.nombre,color=yellow,upshift;
f005 = smtb00013.fecha,format = "dd/mm/yy",required;
ck   = formonly.monto,noentry;

f006 = smtb00014.num_serv;
f009 = formonly.valor,noentry;

p4   = tetb00003.codigo,autonext;
bc = formonly.p_descrip;
instructions
 screen record s_cheque[2] (num_serv,valor)

end