Files
MBS/PROYECTO/ccdir/ccfmmt007.per
T

57 lines
2.5 KiB
Plaintext

{
-----------------------------------------------------------------------------
FORMULARIO : CCFMMT007
OBJETIVO : Captura los documentos de CXC
REALIZADO POR : Ing. JUAN F. SOTO
FECHA : SEPTIEMBRE 5, 1998.
-----------------------------------------------------------------------------
}SCHEMA smarmotech
LAYOUT (TEXT="Documentos Cuentas Por Cobrar",STYLE="basic")
GRID
{
Tipo [a0][t1 ] Numero de Documento [f001 ]
Vendedor [f004] [c ]
Fecha [f005 ] Valor Recibo [vr ]
Remanente [re ]
----------------------------------------------------------------------------
Cliente Aplicacion Valor Pendiente Descuento Valor Pagado
----------------------------------------------------------------------------
[f2][f003 ] [f006 ] [f009 ] [pk1 ] [f002 ]
[f2][f003 ] [f006 ] [f009 ] [pk1 ] [f002 ]
[f2][f003 ] [f006 ] [f009 ] [pk1 ] [f002 ]
Nombre: [b ] =============
Balance Documento [f012 ] Valor Recibo [f011 ]
}
end
tables
cctb00001
attributes
vr = formonly.valor_ctrl,comments = "Digite el Monto del Recibo o Dcto.";
a0 = cctb00001.tipo_doc,autonext,upshift,include = ("NC","PG","ND","OD","DV","OC"),
comments = "PG-Pago ND-Nota Dr. NC-Nota Cr. ";
f011 = formonly.p_total,noentry;
f012 = formonly.nc_pend,noentry;
t1 = formonly.nombre_tipo,noentry;
f001 = cctb00001.num_doc,comments = "Digite Numero de Docuemnto";
f2 = cctb00001.tipo_cliente,autonext,
comments = "Presione Ctrl-W o Digite el codigo del cliente";
f003 = cctb00001.sec_cliente,autonext,
comments = "Presione Ctrl-W o Digite el codigo del cliente";
b = formonly.nom_cli,noentry;
f004 = cctb00001.cod_emp_sec,autonext,
comments = "Presione Ctrl-W o Digite el codigo del vendedor";
c = formonly.nombre_emp,noentry;
f005 = cctb00001.fecha_orig,format = "dd/mm/yyyy";
pk1 = formonly.desc_p;
f006 = cctb00001.aplica_a, comments =
"Presione Ctrl-W Para Buscar Documentos Pendientes";
f009 = formonly.valor_pen,noentry;
f002 = formonly.valor_pag;
re = formonly.remanente;
instructions
screen record s_recibo[3] (tipo_cliente,sec_cliente,aplica_a,valor_pen,desc_p,valor_pag)
delimiters " "
end