80 lines
3.4 KiB
Plaintext
80 lines
3.4 KiB
Plaintext
{
|
|
==============================================================================
|
|
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
|