157 lines
7.5 KiB
Plaintext
157 lines
7.5 KiB
Plaintext
{
|
|
--------------------------------------------------------------------------
|
|
FORMULARIO : VEFMMT001
|
|
OBJETIVO : Este programa captura la factura comercial (VEPRMT001)
|
|
REALIZADO POR : Ing. Juan Fco. Soto.
|
|
FECHA : Enero 12,1993.
|
|
MODIFICADO POR: Victor Gomez C.
|
|
FECHA : Saturday, 07 July, 2001
|
|
OBJETIVO : Registrar el descuento por cada producto a facturar.
|
|
Se utilizaran los campos cantidad_2 y bonificacion de la tabla
|
|
formonly
|
|
--------------------------------------------------------------------------
|
|
}
|
|
ACTION DEFAULTS
|
|
ACTION bncf (IMAGE="about")
|
|
ACTION anular (IMAGE="delete")
|
|
|
|
END
|
|
TOOLBAR
|
|
ITEM nuevo (TEXT="Factura", IMAGE="new", COMMENT="Nueva Factura")
|
|
ITEM buscar (TEXT="Buscar Factura", IMAGE="find", COMMENT="Criterio de busqueda")
|
|
SEPARATOR
|
|
ITEM salir (TEXT="Salir", IMAGE="quit")
|
|
END
|
|
|
|
LAYOUT (TEXT="CREACION FACTURAS VENTAS", STYLE="basic")
|
|
GRID
|
|
{
|
|
<G "Encabezado" > <G Parametros >
|
|
Compania:[p1][p2 ] ITBIS [r1 ]
|
|
Ventas :[t ] Membrete [r2 ]
|
|
Servicios[r3 ]
|
|
|
|
<G "Documentos" >
|
|
Cotizacion[ct ]Fecha :[fecot ]
|
|
CONDUCE [co01 ]Fecha Conduce:[feco ]Factura : [f1 ][an1 ]
|
|
Orden [or1 ]Fecha Orden :[feo ]Fecha Factura: [fef ]
|
|
Documento [ref ]Fecha Vence[fechv ]
|
|
[bt30 ]NCF[pncf ][ndesc ]
|
|
[knc ]
|
|
|
|
<G "Cliente" > <G >
|
|
Cliente :[c1]-[c2 ][n1 ] Sub-total :[f10 ]
|
|
Direccion :[d1 ] Descuento :[po1 ][f11 ]
|
|
Ubicac. :[c01 ][l ][g1 ] ITBIS :[f16 ][f12 ]
|
|
Balance :[fk1 ] Total :[f13 ]
|
|
Vendedor :[ve1 ][n2 ] Prima US :[pri ]
|
|
Condicion :[co ]
|
|
Transportista :[tr][tr1 ][nom3 ]
|
|
Tarifa :[f ][dt ][dt1 ]
|
|
Fecha Embarque:[fe ] Placa :[pl1 ] Factura Exp.[ft1 ]
|
|
|
|
<G "Detalle" >
|
|
<t t1 >
|
|
[a1 ][a |b |c |d ][des ] [und] [ca ] [pr ] [por ] [mo ]
|
|
[a1 ][a |b |c |d ][des ] [und] [ca ] [pr ] [por ] [mo ]
|
|
[a1 ][a |b |c |d ][des ] [und] [ca ] [pr ] [por ] [mo ]
|
|
[a1 ][a |b |c |d ][des ] [und] [ca ] [pr ] [por ] [mo ]
|
|
[a1 ][a |b |c |d ][des ] [und] [ca ] [pr ] [por ] [mo ]
|
|
[a1 ][a |b |c |d ][des ] [und] [ca ] [pr ] [por ] [mo ]
|
|
[a1 ][a |b |c |d ][des ] [und] [ca ] [pr ] [por ] [mo ]
|
|
|
|
}
|
|
END
|
|
end
|
|
|
|
|
|
attributes
|
|
CHECKBOX r1 = formonly.ch_itbi type char,NOT NULL,VALUECHECKED="S",VALUEUNCHECKED="N",default="N";
|
|
CHECKBOX r2 = formonly.ch_encabeza type char,NOT NULL, VALUECHECKED="S",VALUEUNCHECKED="N",default="S";
|
|
CHECKBOX r3 = formonly.ch_servicios type char, NOT NULL,VALUECHECKED="S",VALUEUNCHECKED="N",default="N";
|
|
LABEL fechv = formonly.p_fecha_ven type date,format="dd/mm/yyyy";
|
|
|
|
BUTTON bt30: BNCF;
|
|
BUTTON an1: ANULAR;
|
|
|
|
ct = formonly.pcotizacion;
|
|
fecot = formonly.fecha_cotizacion,FORMAT="dd/mm/yyyy";
|
|
|
|
pncf = formonly.codigodgii;
|
|
ndesc = formonly.descripcion_ncf;
|
|
knc = formonly.kncf;
|
|
|
|
ref = formonly.documento_ref;
|
|
g1 = formonly.descrip1,noentry;
|
|
p1 = formonly.cod_cia,autonext;
|
|
p2 = formonly.compania,noentry;
|
|
ft1 = formonly.factura_e;
|
|
COMBOBOX t = formonly.ventas;
|
|
l = formonly.zona,autonext,picture="###",
|
|
comments = "Entre Zona o Pais del Cliente o Presione Ctrl-W";
|
|
f1 = formonly.factura,noentry,required;
|
|
EDIT fef = formonly.fecha_factura ;
|
|
c1 = formonly.tipo_cliente,autonext,
|
|
comments = "Digite Codigo Cliente o Presione Ctrl-E Para Crear y/o Buscar";
|
|
c2 = formonly.sec_cliente,autonext,
|
|
comments = "Digite Codigo Cliente o Presione Ctrl-E Para Crear y/o Buscar";
|
|
n1 = formonly.nombre,noentry;
|
|
d1 = formonly.direccion,noentry;
|
|
c01 = formonly.ciudad,noentry;
|
|
COMBOBOX co = formonly.cond_pago;
|
|
po1 = formonly.porc_desc,noentry;
|
|
|
|
|
|
pri = formonly.prima_us,noentry;
|
|
or1 = formonly.orden;
|
|
feo = formonly.fecha_orden,format = "dd/mm/yyyy",
|
|
comments = "Digite La Fecha de La Orden";
|
|
co01= formonly.conduce,autonext,required;
|
|
feco = formonly.fecha_conduce,format = "dd/mm/yyyy",
|
|
comments = "Digite La Fecha del Conduce";
|
|
f16 = formonly.porc_itbi,noentry;
|
|
ve1 = formonly.sec_vend,autonext,
|
|
comments = "Digite Codigo Vendedor o Presione Ctrl-W Para Ayuda";
|
|
n2 = formonly.nombre_vend,noentry;
|
|
tr = formonly.cod_transp,autonext,
|
|
comments = "Digite el Codigo del transportista o Presione Ctrl-W Para Ayuda";
|
|
tr1 = formonly.sec_transp,autonext,
|
|
comments = "Digite el Codigo del transportista o Presione Ctrl-W Para Ayuda";
|
|
nom3 = formonly.nombre_tran,noentry;
|
|
fe = formonly.fecha_embarque,format = "dd/mm/yyyy";
|
|
pl1 = formonly.placa_transp,autonext,upshift;
|
|
f = formonly.cod_tarifa,autonext,comments =
|
|
"Digite Codigo Tarifa apagar al transportista";
|
|
dt = formonly.descrip5,noentry;
|
|
dt1 = formonly.descrip6,noentry;
|
|
|
|
f10 = formonly.sub_total,noentry;
|
|
f11 = formonly.desc_valor,noentry;
|
|
f12 = formonly.itbi,noentry;
|
|
f13 = formonly.total_fact,NOENTRY;
|
|
|
|
a1 = formonly.area,TITLE="AREA";
|
|
a = formonly.cod_n,autonext,title ="CLASE",
|
|
comments =
|
|
"Digite Codigo del Producto o Ctrl-W Para Ayuda";
|
|
b = formonly.cod_grupo,autonext,TITLE="GRUPO",
|
|
comments = "Digite Codigo del Producto o Ctrl-W Para Ayuda";
|
|
c = formonly.cod_tipo,autonext,TITLE="TIPO",
|
|
comments = "Digite Codigo del Producto o Ctrl-W Para Ayuda";
|
|
d = formonly.cod_sec,autonext,TITLE="MEDIDA",
|
|
comments = "Digite Codigo del Producto o Ctrl-W Para Ayuda";
|
|
des = formonly.descrip_esp,noentry;
|
|
und = formonly.unidad_med,noentry;
|
|
ca = formonly.cantidad,autonext,TITLE="CANTIDAD",comments=
|
|
"Digite Cantidad a Facturar a ARTICULO";
|
|
pr = formonly.precio,TITLE="PRECIO";
|
|
por = formonly.cantidad_2, TITLE="DESCUENTO",comments =
|
|
"Digite el porciento a descontar a este ARTICULO";
|
|
mo = formonly.monto_fact,TITLE="MONTO FACTURA",noentry;
|
|
fk1 = formonly.ch_balance,noentry;
|
|
instructions
|
|
delimiters " "
|
|
screen record s_fact[7](area,cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp,unidad_med,
|
|
cantidad,precio,cantidad_2,monto_fact)
|
|
end
|