{ -------------------------------------------------------------------------- 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 { Compania:[p1][p2 ] ITBIS [r1 ] Ventas :[t ] Membrete [r2 ] Servicios[r3 ] 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 ] 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 ] [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