57 lines
2.5 KiB
Plaintext
57 lines
2.5 KiB
Plaintext
{
|
|
==============================================================================
|
|
FORMULARIO : CPFMMT002
|
|
SISTEMA : Sistema de Cuentas Por Pagar
|
|
OBJETIVO : Pantalla para captura de datos referentes a un pago o
|
|
prepago aplicado a una orden y/o una factura
|
|
PROGRAMA Q. USA : CPPRMT002
|
|
PROGRAMADOR : Tadeo A. Ferreras
|
|
Fecha : Junio 27, 1993
|
|
=============================================================================
|
|
}
|
|
database smarmotech
|
|
screen size 24 by 80
|
|
{
|
|
|
|
Tipo [a0][t1 ] Numero de Documento [f001 ]
|
|
Cuenta Contable [ct ] [nct ]
|
|
Suplidor [f2]-[f003] [b ]
|
|
Fecha [f005 ] Concepto [dt ]
|
|
Monto [f10 ]
|
|
\g-----------------------------------------------------------------------------\g
|
|
Aplicacion Valor Pendiente Valor Pagado
|
|
\g-----------------------------------------------------------------------------\g
|
|
[f006 ] [f009 ] [f002 ]
|
|
[f006 ] [f009 ] [f002 ]
|
|
[f006 ] [f009 ] [f002 ]
|
|
[f006 ] [f009 ] [f002 ]
|
|
}
|
|
end
|
|
tables
|
|
cptb00001
|
|
attributes
|
|
a0 = cptb00001.tipo_doc,autonext,upshift,include = ("CK","ND","NC"),
|
|
comments =
|
|
" ND- Nota Debito NC- Nota Credito",reverse;
|
|
t1 = formonly.nom_tipo,noentry,color=yellow;
|
|
f001 = cptb00001.num_doc,reverse,picture = "######";
|
|
ct = cptb00001.cta_ctble;
|
|
nct = formonly.nom_cuenta,noentry,upshift,color=yellow;
|
|
f2 = cptb00001.cod_sp,reverse,autonext,comments=
|
|
"Digite 21=Intercompany, 22=Internaciones, 23=Locales, 24- Supl. Euro Ctrl-W=consultar";
|
|
f003 = cptb00001.cod_sp_sec,reverse,autonext,comments=
|
|
"Digite el codigo del suplidor, o Digite Ctrl-W para consultar Suplidor";
|
|
b = formonly.nom_sup,noentry,color=yellow;
|
|
f005 = formonly.fecha_orig,format = "dd/mm/yyyy";
|
|
dt = cptb00001.detalle,upshift,reverse;
|
|
f10 = formonly.monto type decimal(12,2),reverse;
|
|
f006 = cptb00001.aplica_a,reverse,
|
|
comments = "Presione Ctrl-W Para Buscar Documentos Pendientes";
|
|
f009 = formonly.valor_pen,noentry;
|
|
f002 = formonly.valor_pag,reverse;
|
|
instructions
|
|
screen record s_recibo[4] (aplica_a,valor_pen,valor_pag)
|
|
|
|
delimiters " "
|
|
end
|