{
 ==============================================================================
  FORMULARIO      : CGFMMT005
  SISTEMA         : Sistema de Contabilidad General
  OBJETIVO        : Pantalla para captura de datos referentes a un pago 
                    por medio a un cheque                        
  PROGRAMA Q. USA : CGPRMT005
  PROGRAMADOR     : Ing. Juan F. Soto
=============================================================================
}
database marmotech   
screen size 24 by 80
{
Cheque No.[a1       ] Cuenta Del Banco [f010    ]    Tipo   [a0][t1            ]
Portador  [f2]-[f003][b                                            ]
Fecha    [f005    ]Tasa[t20  ]Monto Cheque[ck           ]Remanente[re       ]
Codigo de Partida [p4  ][bc                            ]
\g-----------------------------------------------------------------------------\g
 Tipo      Orden      Factura(s)          Valor Pendiente         Valor Pagado
 [tp]     [ord     ]  [f006     ]         [f009         ]        [f002         ]
 [tp]     [ord     ]  [f006     ]         [f009         ]        [f002         ]
\g-----------------------------------------------------------------------------\g
Cuenta No. Depto. Catalo. Referencia    Descrip. Cta.   Debito      Credito
[ct      ][dp  ][d3][d4  ][d2          ][d1          ][br         ][cr         ]
[ct      ][dp  ][d3][d4  ][d2          ][d1          ][br         ][cr         ]
[ct      ][dp  ][d3][d4  ][d2          ][d1          ][br         ][cr         ]
Deto:[de                  ] Catalogo:[ca                              ]
}
end
tables
cgtb00004,cgtb00005,
cptb00001,tetb00003

attributes
de = formonly.nombre_dpto,noentry;
ca = formonly.nombre_cata,noentry;
a1 = formonly.numero;
f010 = formonly.cuenta_p type char,include = ("1108"),comments = 
"Digite El numero de la cuenta del banco que esta en catalogo",NOENTRY;

a0 = formonly.tipo_doc type char,autonext,upshift,include = ("CP","CK"),
     comments = 
"CK-CHEQUE   CP-CHEQUE POR PREPAGO"; 
t1   = formonly.nom_tipo,noentry,color=yellow;
f2   = cptb00001.cod_sp,autonext,comments=
     "Del 21 al 23 Cod. Supidor  01- Empleados o Deje en Blanco Para OTROS";
f003 = cptb00001.cod_sp_sec,autonext,comments=
      "Digite el codigo del suplidor o deje en blanco si no tiene";
b    = formonly.nom_sup,color=yellow,upshift;
f005 = cgtb00004.fecha,format = "dd/mm/yy";
t20  = cgtb00005.tasa;
re   = formonly.remanente,noentry;
ck   = formonly.monto type decimal,required;

tp   = cgtb00004.tipo,
  comments = "01 = Generales  02 = ROV-Ltd  03 = Locales  04 = Miscelaneas";
ord  = cptb00001.orden_no;
f006 = cptb00001.aplica_a,
  comments = "Presione Ctrl-W Para Buscar Documentos Pendientes";
f009 = formonly.valor_pen,noentry;
f002 = formonly.valor_pag;

ct   = cgtb00004.cuenta_no,comments = "Digite numero de la cuenta";
dp   = cgtb00004.departamento;
d1   = formonly.nom_cuenta,noentry,upshift,color=yellow;
d2   = formonly.num_doc;
d3   = formonly.cod_aux,comments =
"Del 21 al 23 Cod. Supidor  01- Empleados o Deje en Blanco Para OTROS";
d4   = formonly.cod_sec;
br   = cgtb00004.debito,comments = "Ctrl-P Retorna a # de Cuenta";    
cr   = cgtb00004.credito,comments = "Ctrl-P Retorna a # de Cuenta";
p4   = tetb00003.codigo,autonext;
bc   = formonly.p_descrip;
instructions
 screen record s_recibo[2] (tipo,orden_no,aplica_a,valor_pen,valor_pag)
 screen record s_cuenta[3] (cuenta_no,departamento,cod_aux,cod_sec,
                            num_doc,nom_cuenta,debito,credito)
 delimiters " "
end