alter table preparametro add (moneda_principal varchar2(3) default 'CL' not null); # En aventuras la moneda de precios es el dolar update preparametro set moneda_principal='CL'; -- Ojo : para aventuras debe ser DL alter table gen_imp_barras drop constraint gen_imp_barras_pk; alter table gen_imp_barras add constraint gen_imp_barras_pk primary key(cod_cia, sesion, cod_articulo); --Historicos de compras 22-06 alter table COM_HIST_ENCFAC add distribucion number(10); alter table COM_HIST_ENCFAC add nom_asiento varchar2(20); alter table COM_HIST_ENCNAC add distribucion number(10); alter table COM_HIST_ENCNAC add nom_asiento varchar2(20); alter table COM_HIST_ENCREC add distribucion number(10); alter table COM_HIST_ENCREC add nom_asiento varchar2(20); cxp_asiento tiene storage; cxc_asiento no esta en cobros.sql compra\comresfactura??? pedido -inicializar consinatario con dconsigna -en valida cliente nvl(consignatario, dconsigna) factura -traer consigna valida cliente. aplitras: correciones menores FCFACPED : nuevo reporte de arts. pedido (apag.rdf) Parametrizar estado invmoves. Inicializar la moneda en PRETRACP En el POS hay un tema pendiente con Moneda extranjera redondeo. insert into genprefsobj (MODULO,OBJETO,DESCRIPCION) values ('SGE','INVMOVES','Valores de movimientos de INV.'); # Crear la variable de preferencia 'SGE', 'INVMOVES', 'ESTADOINI' (P) endiente, Despachada # Crear la variable de preferencia 'POS', 'INICIO', 'CLASEINIPED' (P) roforma, nOrmal. #Borrar el contraint inv_bodega_ak1 alter table inv_bodega drop constraint inv_bodega_ak1; #13-07-2006 alter table INV_HIST_ENC_MOVTO add (Estado Char(1)); #03-08-2006 alter table concepto add(ordenimp number(3) default 0 not null); alter table conceptoventa add(tipo char(1) default 'V' not null); alter table conceptoventa add constraint conceptoventa_tipo_ck check (tipo in ('V','D')); update conceptoventa set tipo='D' where concepto like 'DEV%'; COMMIT; #08/08/2006 #Cambio venresfactura: agregar persona @ventas\views alter table movimientoventa modify tipocambio not null; alter table movimientoventa modify cambiobase not null; #agregar cuenta puente a asientocaja #Una vieja omision alter table asientocaja add(CUENTA_PUENTE varchar2(25)); alter table movimientocaja drop constraint movimientocaja_tipocambio_ck; alter table movimientocaja add constraint movimientocaja_tipocambio_ck check (tipocambio>=0); alter table movimientocaja drop constraint movimientocaja_cambiobase_ck; alter table movimientocaja add constraint movimientocaja_cambiobase_ck check (cambiobase>=0); drop table invetiqueta; create table invetiqueta ( cod_cia char(3) not null, etiqueta varchar2(15) not null, medida varchar2(12) not null, ancho number(5,2) not null, largo number(5,2) not null, columnas number(2) not null, fuente varchar2(50) not null, margen varchar2(50) not null, titulo varchar2(50) not null, impresora varchar2(50) not null, constraint invetiqueta_pk primary key(cod_cia, etiqueta) ); drop table invetiqcampo; create table invetiqcampo ( cod_cia char(3) not null, etiqueta varchar2(15) not null, secuencia number(2) not null, nombre varchar2(15) not null, alto number(5,2) not null, ancho number(5,2) not null, posx number(5,2) not null, posy number(5,2) not null, justificacion varchar2(10) not null, tipo varchar2(10), formato varchar2(16), fuente varchar2(50), valor varchar2(50), constraint invetiqcampo_pk primary key(cod_cia, etiqueta, secuencia) ); @convmonto @paquetes #29-08-2006 #Control de Despachos alter table INV_ENCMOVDESP drop constraint INV_ENCMOVDESP_ESTADO_CK; alter table INV_ENCMOVDESP add constraint INV_ENCMOVDESP_ESTADO_CK check (estado in ('P', 'D', 'A')); #30-08-2006 #Tranferencias Electronicas Consolidadas alter table cxp_credito add (cod_banco varchar2(12)); #Ingresar un banco por default para todos los proveedores Update cxp_credito set cod_banco=Banco; commit; alter table cxp_parametro add (tipo_mov_deb char(2)); alter table cxp_parametro add (ind_con_pel char(1) default 'N' not null); alter table cxp_parametro add constraint cxp_parametro_ind_conpel check (ind_con_pel in ('S','N')); #Hay que definir el movimiento de debito que utilizarán para anular pagos #por deposito electronico update cxp_parametro set tipo_mov_deb=MovDebito; llobet '03' commit; # 04 de Septiembre de 2006 # Cambio Planillas: provisiones por empleado create table plaMovProEmp (cia char(3) not null, Empleado varchar2(15) not null, Tipomov char(3) not null, Tipovalor char(1) not null constraint PLAMOVPROEMP_TIPOVALOR_CK check (tipoValor in ('M','P')), valor number(14,4) not null constraint PLAMOVPROEMP_VALOR_CK check (valor >= 0), constraint PLAMOVPROEMP_PK Primary key (cia, empleado, tipomov)); alter table plamovproemp add constraint PlaEmpleado_MovProEmp_FK foreign key (cia, empleado) references PlaEmpleado (cia, empleado); #22/09/2006 #Paquete para estadisticas, rotulo y descripcion pivotes @ESTADISTICAS\EstPivote start funciones drop table inv_penmovimiento; create table inv_penmovimiento ( COD_CIA CHAR(3) NOT NULL, SUCURSAL CHAR(3) NOT NULL, TIP_MOVTO CHAR(1) NOT NULL, COD_MOVTO CHAR(2) NOT NULL, NUM_DOCTO VARCHAR2(10) NOT NULL, SECUENCIA NUMBER(4) NOT NULL, COD_BODEGA CHAR(3) NOT NULL, COD_LOTE VARCHAR2(15), COD_ARTICULO VARCHAR2(25) NOT NULL, MEDIDA VARCHAR2(5) NOT NULL, DOC_REFEREN VARCHAR2(10), CAN_ARTICULO NUMBER(14,4) NOT NULL, CAN_BONIFICADA NUMBER(14,4) NOT NULL, CCOSTO VARCHAR2(7), constraint inv_penmovimiento_PK PRIMARY KEY(COD_CIA, SUCURSAL, TIP_MOVTO, COD_MOVTO, NUM_DOCTO, SECUENCIA) ); alter table inv_parametro add (facsinmer char(1) default 'N' not null); start paqgen start estadisticasesp start facvenesp #Crear tablas de Venpel create global temporary table esttmp ( CIA CHAR(3) NOT NULL, SUCURSAL CHAR(3) NOT NULL, BODEGA CHAR(3) NOT NULL, MONEDA VARCHAR2(3) NOT NULL, PERIODO NUMBER(8) NOT NULL, CLIENTE VARCHAR2(25) NOT NULL, AGENTE VARCHAR2(3) NOT NULL, ARTICULO VARCHAR2(25) NOT NULL, CANTIDADVEN NUMBER(12,4) NOT NULL, COSTOVEN NUMBER(14,2) NOT NULL, IMPTOVEN NUMBER(14,2) NOT NULL, MONTOVEN NUMBER(14,2) NOT NULL, CANTIDADDEV NUMBER(12,4) NOT NULL, COSTODEV NUMBER(14,2) NOT NULL, IMPTODEV NUMBER(14,2) NOT NULL, MONTODEV NUMBER(14,2) NOT NULL ) on commit preserve rows; #29/09/06 alter table inv_dettomafis add constraint INV_DETTOMAFIS_COSTO_CK check (costo>=0); start paqfac (antes facpaq?) #6/10/06 la tabla no estaba en modelos. create table pplexiste( cod_cia char(3) not null, cod_articulo varchar2(25) not null, existe number(14,4) not null, asignado number(14,4) not null); alter table pplexiste add constraint pplexiste_pk primary key (cod_cia, cod_articulo); alter table pplexiste add constraint asignado_ck check (asignado<=existe); alter table venconceptocobro add (linea char(3)); alter table venconceptocobro add (movcxcpag char(3)); alter table venpagodocumentos add (tipodoc varchar2(3)); update venconceptocobro c set linea=(select linea from ventipodoc d where d.cia=c.cia and d.concepto=c.concepto) where exists (select 1 from ventipodoc d where d.cia=c.cia and d.concepto=c.concepto); update venconceptocobro c set movcxcpag=(select movcxcpag from ventipodoc d where d.cia=c.cia and d.concepto=c.concepto) where exists (select 1 from ventipodoc d where d.cia=c.cia and d.concepto=c.concepto); update venpagodocumentos p set tipodoc='F' where exists (select 1 from ventipodoc d where d.cia=p.cia and d.concepto=p.concepto and d.linea is null); update venpagodocumentos p set tipodoc=(select movcxcfac from ventipodoc d where d.cia=p.cia and d.concepto=p.concepto and d.linea is not null) where exists (select 1 from ventipodoc d where d.cia=p.cia and d.concepto=p.concepto and d.linea is not null); @ventas\views drop table xx; create table xx as select * FROM genprefsval; DROP TABLE GENPREFSVAL; create table genprefsval ( CIA CHAR(3) NOT NULL, MODULO VARCHAR2(10) NOT NULL, OBJETO VARCHAR2(20) NOT NULL, CLAVE VARCHAR2(20) NOT NULL, INSTANCIA VARCHAR2(20) NOT NULL, VALOR VARCHAR2(256), CONSTRAINT GENPREFSVAL_PK PRIMARY KEY(CIA, MODULO, OBJETO, CLAVE, INSTANCIA) ); INSERT INTO GENPREFSVAL SELECT COD_CIA, MODULO, OBJETO, CLAVE, INSTANCIA, VALOR FROM XX, GEN_COMPANIA; START PAQGEN alter table venguia add (observaciones varchar2(240)); alter table inv_lote_artic_bodega drop constraint inv_lote_artic_bodega_costo_ck; alter table inv_lote_artic_bodega add constraint inv_lote_artic_bodega_costo_ck check ((can_existe>0 and cos_total>=0) or (abs(cos_total)<0.5 and can_existe=0)); alter table gen_proveedor modify(nom_responsable varchar2(40)); alter table gen_proveedor modify(des_razsocial varchar2(60)); alter table gen_proveedor modify (des_direccion varchar2(200)); alter table gen_proveedor modify (dir_despacho varchar2(200)); -- El mantenimiento debe ser revisado completo. alter table inv_articulo modify(embalaje varchar2(30)); create table venveralisto (cia char(3) not null, sucursal char(3) not null, documento number(10) not null, articulo varchar2(25) not null ); -- Corrige una vieja omision alter table gen_cliente modify (des_razsocial varchar2(50)); start inventar\invview alter table venbloques add(serie char(1)); alter table conceptoventa modify (sufijo varchar2(20) null); --Ojo: Solo para las configuraciones modernas update conceptoventa set sufijo=null where sufijo='0' and x='no'; --Ojo no ejecutar alter table cxc_enc_movimiento drop constraint cxc_enc_movimiento_docref_ak; alter table cxc_enc_movimiento add constraint cxc_enc_movimiento_docref_ak unique (COD_CIA, COD_CLIENTE, TIP_DOC, DOC_REF, ESTADO); ##30/03/2007 alter table com_det_solicitud modify(cant_autorizada null); update com_det_solicitud set cant_autorizada=null where cant_autorizada=0 and autorizado_por is null; commit; ##02/03/2007 alter table com_enc_solicitud add(cod_proveedor Varchar2(25)); ##09/03/2007 insert into genprefsobj(modulo, objeto, descripcion) values('SGE', 'COMPRAS', 'Variables de Compras'); insert into genprefscla(modulo, objeto, clave, descripcion) values('SGE', 'COMPRAS', 'REQUIERERECOC', 'Requiere Recepción de Oc(N): Si o NO'); insert into genprefsval(cia, modulo, objeto, clave, instancia, valor) values('001', 'SGE', 'COMPRAS', 'REQUIERERECOC', 'COMPRAS', 'N'); -- Solo para llobet insert into genprefsobj(modulo, objeto, descripcion) values('SGE', 'PRECIOS', 'Variables de Precios'); insert into genprefscla(modulo, objeto, clave, descripcion) values('SGE', 'PRECIOS', 'LISTAAUX', 'Lista de Precios Auxiliar'); # No hacer insert into genprefsval(cia, modulo, objeto, clave, instancia, valor) # values('001', 'SGE', 'PRECIOS', 'LISTAAUX', 'PRECIOS', '002'); alter table com_enc_orden add(usuarioautoriza Varchar2(30)); alter table VenClaseCli add (catalogo varchar2(25) default '0' not null); alter table VenClaseCli drop constraint VENCLASECLI_PK; alter table VenClaseCli add constraint VENCLASECLI_PK primary key (cia, clase, catalogo); start paqfac -- Crear preferencia en pos, inicio, pagautoimp para estilos insert into genprefscla(modulo, objeto, clave, descripcion) values('POS', 'INICIO', 'PAGAUTOIMP', 'Pago imprime automaticamente (SI): SI o NO.'); --insert into genprefsval(cia, modulo, objeto, clave, instancia, valor) -- values('001', 'POS', 'INICIO', 'PAGAUTOIMP', 'INICIO', 'SI'); insert into genprefscla(modulo, objeto, clave, descripcion) values('POS', 'PTOVENTAS', 'PRE.LISTAPRECIO', 'Lista de precio a ulilizar.'); --insert into genprefsval(cia, modulo, objeto, clave, instancia, valor) -- values('001', 'POS', 'PTOVENTAS', 'PRE.LISTAPRECIO', 'CAJAX', '002'); alter table fac_promocion add (COD_LISTA_PRECIO CHAR(3)); start descuentos; start paqgen; alter table vendetdevolucion add (motivo varchar2(3)); update vendetdevolucion d set motivo=(select motivo from vendevolucion e where e.cia=d.cia and e.sucursal=d.sucursal and e.documento=d.documento); alter table vendevolucion drop column motivo; #Ocultar columna preciosiv insert into genprefscla(modulo, objeto, clave, descripcion) values('POS', 'PTOVENTAS', 'PRE.OCULTARPSI', 'Ocultar el precio sin impuesto (SI): SI o NO.'); --insert into genprefsval(cia, modulo, objeto, clave, instancia, valor) -- values('001', 'POS', 'PTOVENTAS', 'PRE.OCULTARPSI', 'CAJAX', 'NO'); # Deshabilitar descuentos combinados en una caja insert into genprefscla(modulo, objeto, clave, descripcion) values('POS', 'PTOVENTAS', 'PRE.COMBINARDESC', 'Permitir combinar descuentos (N): S o N.'); --insert into genprefsval(modulo, objeto, clave, descripcion) -- values('001', 'POS', 'PTOVENTAS', 'PRE.COMBINARDESC', 'CAJAX','S'); # COnfigurar contado contra entrega en una caja insert into genprefscla(modulo, objeto, clave, descripcion) values('POS', 'PTOVENTAS', 'PRE.CONTADOENT', 'Contado contra entrega: Permitido, Obligatorio o No.'); --insert into genprefsval(modulo, objeto, clave, descripcion) -- values('001', 'POS', 'PTOVENTAS', 'PRE.CONTADOENT', 'CAJAX','P'); #19/04/07 Declare Cursor Clientes Is Select Cod_Cia, Cod_Cliente, Substr(Contacto, 1, 25) Contacto From Gen_Cliente Where Contacto Is Not Null; vDesCliente Gen_Cliente.Nom_Cliente%Type; vDir Gen_Cliente.Des_Direccion%Type; Begin For C in Clientes Loop Begin Select Substr(Nom_Cliente, 1, 40), Des_Direccion Into vDesCliente, vDir From Gen_Cliente Where Cod_Cia = C.Cod_Cia And Cod_Cliente = C.Contacto; Exception When No_Data_Found Then vDesCliente:=C.Contacto; vDir :=Null; End; Insert Into Gen_ContClie(cod_cia, cod_cliente, tipo, identificacion, nombre, direccion) values(C.Cod_Cia, C.Cod_Cliente, 'ASO', C.Contacto, vDesCliente, vDir); End Loop; Commit; End; / Create Index AsociadoPadre On gen_contclie(Identificacion, Tipo, cod_cia); alter table gen_cliente_clasif add(usuario varchar2(30) default user not null); insert into genprefscla(modulo, objeto, clave, descripcion) values('POS', 'INICIO', 'FACAUTOIMP', 'Factura imprime automaticamente (SI): SI o NO.'); --insert into genprefsval(cia, modulo, objeto, clave, instancia, valor) -- values('001', 'POS', 'INICIO', 'FACAUTOIMP', 'INICIO', 'SI'); start cajaopers; -- sinonimino y grant --faltaba el alter alter table vendetreserva add(habitacion varchar2(15)); alter table vendetreserva add(tipoobs varchar2(3)); alter table vendetreserva add(clasepax varchar2(3)); alter table vendetreserva add(transguia varchar2(10)); create table ventipobser(cod_cia varchar2(3) not null, tipo varchar2(3) not null, observacion varchar2(30) not null, constraint ventipoobser_pk primary key (cod_cia, tipo) ) initrans 1 storage ( initial 10K next 10K ); ##4 mayo 07 alter table inv_movgrupodet add(lote varchar2(15) null); alter table inv_movgrupodet drop constraint INVMOVGRUPO_MOVDET_FK; alter table inv_movgrupo drop constraint inv_movgrupo_pk; alter table inv_movgrupo add (consecutivo number(10) default '0' not null); update inv_movgrupo set consecutivo=rownum where tip_movto='E'; update inv_movgrupo set consecutivo=rownum where tip_movto='S'; alter table inv_movgrupo add constraint inv_movgrupo_pk primary key(cod_cia, sucursal, tip_movto, consecutivo); alter table inv_movgrupo modify(cod_movto char(2) null, num_docto varchar2(10) null); alter table inv_movgrupo modify(cod_movtogrp char(2) null, num_doctogrp varchar2(10) null); alter table inv_movgrupodet drop constraint inv_movgrupodet_pk; alter table inv_movgrupodet add (consecutivo number(10) default '0' not null); update inv_movgrupodet d set consecutivo=(select consecutivo from inv_movgrupo e where d.cod_cia=e.cod_cia and d.sucursal=e.sucursal and d.tip_movto=e.tip_movto and d.cod_movto=e.cod_movto and d.num_docto=e.num_docto); alter table inv_movgrupodet add constraint inv_movgrupodet_pk primary key(cod_cia, sucursal, tip_movto, consecutivo, grupo); alter table inv_movgrupodet drop column cod_movto; alter table inv_movgrupodet drop column num_docto; alter table inv_movgrupodet add constraint INVMOVGRUPO_MOVDET_FK foreign key(cod_cia, sucursal, tip_movto, consecutivo) references inv_movgrupo(cod_cia, sucursal, tip_movto, consecutivo); alter table prdparametro add (consentrada number(10) default 0 not null); alter table prdparametro add (conssalida number(10) default 0 not null); update prdparametro p set consentrada=(select count(*) from inv_movgrupo g where g.cod_cia=p.cia and tip_movto='E'); update prdparametro p set conssalida=(select count(*) from inv_movgrupo g where g.cod_cia=p.cia and tip_movto='S'); insert into genprefscla(modulo, objeto, clave, descripcion) values('POS', 'INICIO', 'LINEAAPR', 'Linea de apartados para creacion de clientes.'); --insert into genprefsval(cia, modulo, objeto, clave, instancia, valor) -- values('001', 'POS', 'INICIO', 'LINEAAPR', 'INICIO','001'); -- 02/05/2007 MV alter table gen_clasificacion add clase char(1) default 'O' not null; alter table gen_clasificacion add constraint GEN_CLASIFICACION_CLASE_CK check (clase in ('O','M','C','A')); -- 18/05/2007 MV -- Cambiar vista para imprimir reporte con descripcion para ver numero de placa Create or Replace View VenFactNot as select f.cia, f.sucursal, f.documento, f.tipo, f.caja, f.cajero, f.dia, f.linea, f.fecha, f.cliente, f.persona,f.descripcion, f.moneda, f.tipocambio, f.cambiobase, f.nombre, f.estado, f.consignatario, d.bodega, d.articulo, d.agenteventa,d.porcdescuento,d.cantidad, d.costo, d.precio, d.impuesto, d.impconsumo, d.totallinea, 'F' origen From VenFactura f, VenDetFactura d Where f.Cia = d.Cia And f.Sucursal = d.Sucursal And f.Documento= d.Documento Union All select n.cia, n.sucursal, n.documento, n.tipo, n.caja, n.cajero, n.dia,n.linea, n.fecha, n.cliente, Null persona,n.descripcion, n.moneda, n.tipocambio, n.cambiobase, n.nombre, n.estado, Null Consignatario, dn.bodega, dn.articulo, dn.agenteventa, 0, 0, 0, 0, dn.impuesto, dn.impconsumo, dn.totallinea, 'ND' origen From VenNota n, VenDetNota dn Where n.Cia = dn.Cia And n.Sucursal = dn.Sucursal And n.Documento= dn.Documento And n.efecto = 'D'; -- Manejo de cierre de combustible en Gasolineras. drop table venciesurtidor; drop table vensurtidor; // Como ya te habia dicho me parece mas claro crear los surtidores... create table vensurtidor ( cia char(3) not null, surtidor number(2) not null, descripcion varchar2(30), articulo varchar2(25) not null, lectura NUMBER(14,2) not null constraint VENSURTIDOR_LECTURA_CK check (LECTURA >= 0), caja CHAR(3) not null, constraint vensurtidor_pk primary key(cia, surtidor) ); --La tabla venciearticulo seria mas bien venciesurtidor asi: drop table venciesurtidor; create table VenCieSurtidor ( cia CHAR(3) not null, caja CHAR(3) not null, dia DATE not null, surtidor NUMBER(2) not null, articulo VARCHAR2(25) not null, lectura NUMBER(14,2) not null constraint VENCIESURTIDOR_LECTURA_CK check (LECTURA >= 0), lecturaant NUMBER(14,2) not null constraint VENCIESURTIDOR_LECTURaANT_CK check (LECTURAANT >= 0), constraint VENCIESURTIDOR_PK primary key (cia, caja, dia, surtidor) ) initrans 1 storage ( initial 10K next 10K ); alter table VenCieSurtidor add constraint Vencierre_cieSurtidor_FK foreign key (cia, caja, dia) references VenCierre (cia, caja, dia); alter table VenCieSurtidor add constraint Vencierre_Surtidor_FK foreign key (cia, surtidor) references VenSurtidor (cia, surtidor); alter table VenSurtidor add constraint Caja_VenSurtidor_FK foreign key (cia, caja) references Caja (cia, caja); CREATE PUBLIC SYNONYM VenCieSurtidor FOR &OWNER..VenCieSurtidor; GRANT ALL ON VenCieSurtidor TO &ROLE; CREATE PUBLIC SYNONYM VenSurtidor FOR &OWNER..VenSurtidor; GRANT ALL ON VenSurtidor TO &ROLE; -- Preferencia para Línea de artículos COMBUSTIBLE 20/05/2007 insert into genprefscla(modulo, objeto, clave, descripcion) values('POS', 'INICIO', 'LINEACOMBUS', 'Linea de Articulos para identificar Combustibles.'); insert into genprefsval(cia, modulo, objeto, clave, instancia, valor) values('001', 'POS', 'INICIO', 'LINEACOMBUS', 'INICIO','02'); insert into genprefscla(modulo, objeto, clave, descripcion) values('POS', 'INICIO', 'FACCONTADO', 'Tipo de factura contado para liquidacion surtidores.'); insert into genprefsval(cia, modulo, objeto, clave, instancia, valor) values('001', 'POS', 'INICIO', 'FACCONTADO', 'INICIO','FCO'); commit; --En cuanto a la rutina generafacturaliq habria que hacerla por el resart no por el detalle. --Es importante considerar que -- Actualizar surtidores CREATE OR REPLACE TRIGGER VENCIESURTIDOR AFTER INSERT ON VencieSurtidor FOR EACH ROW BEGIN update Vensurtidor set lectura = :New.lectura where cia = :New.cia and surtidor = :New.surtidor and articulo = :new.articulo; END; / -- 06/06/2007 para estilos drop table gentipobitacora; create table gentipobitacora ( cod_cia char(3) not null, tipo varchar2(5) not null, descripcion varchar2(30) not null, constraint gentipobitacora_pk primary key(cod_cia, tipo) ); insert into gentipobitacora values('001','001','GENERAL'); alter table gen_cliente_bitacora add tipo varchar(5); update gen_cliente_bitacora set tipo='001'; commit; alter table gen_cliente_bitacora modify tipo varchar(5) not null; CREATE PUBLIC SYNONYM gentipobitacora FOR &OWNER..Gentipobitacora; GRANT ALL ON GENTIPOBITACORA TO &ROLE; alter table gen_cliente_bitacora add constraint gentipobitacora_clientebita_FK foreign key (cod_cia, tipo) references gentipobitacora (cod_cia,tipo); ## 14/06/2007 alter table gen_cliente_bitacora add usuario varchar2(30); update gen_cliente_bitacora set usuario='MAYOR'; commit; alter table gen_cliente_bitacora modify usuario varchar2(30) not null; declare cursor xx is select usuario,cod_cliente,max(fecha) fecha from gen_cliente_clasif where cod_cia ='001' group by usuario,cod_cliente; begin for a in xx loop update gen_cliente_bitacora set usuario=a.usuario where cod_cia ='001' and cod_cliente=a.cod_cliente and usuario='MAYOR'; end loop; end; / ##18/06/2007 @inventar\invutil alter table inv_movgrupo modify (cod_movto not null, cod_movtogrp not null); alter table prydetallelabor modify (referencia varchar2(20) null); ##26/07/2007 -- Cambios especialmente para estilos -- alter table gen_clasificacion add (clase char(1) default 'O' not null); alter table gen_clasificacion drop constraint GEN_CLASIFICACION_CLASE_CK; alter table gen_clasificacion add constraint GEN_CLASIFICACION_CLASE_CK check (clase in ('O','M','C','A','T','V')); /*==============================================================*/ /* Table: gen_region */ /*==============================================================*/ create table gen_region ( cod_cia CHAR(3) not null, region VARCHAR2(2) not null, nombre VARCHAR2(30) not null, constraint GEN_REGION_PK primary key (cod_cia, region) ); insert into gen_region values('001','A','REGION A'); alter table gen_zona add region varchar2(2); update gen_zona set region='A'; commit; alter table gen_zona modify region varchar2(2) not null; alter table gen_zona add constraint genregion_zona_FK foreign key (cod_cia,region) references gen_region (cod_cia,region); alter table licencia modify(licencia VARCHAR2(50)); alter table licencia modify(nombre VARCHAR2(80)); alter table licencia modify(validez VARCHAR2(20)); start licencias10g.sql #OJO: Usar la forma licencia para convertir la licencia alter table gen_cliente add(clase_catalogo char(3)); ALTER TABLE INV_DETALLES MODIFY (VALOR VARCHAR2(250)); start paqpre create or replace view predetlistav as select d.cod_cia, l.cod_lista_precio, d.cod_moneda, d.cod_articulo, d.costo, d.precio_unitario*(1+PORCENTAJE/100) precio_unitario, case when l.porcentaje>0 then porcentaje else 0 end porc_utilidad, case when l.porcentaje<0 then -porcentaje else 0 end descuento, d.documento from predetlista d, prelista l where d.cod_cia=l.cod_cia and d.cod_lista_precio=l.lista_madre and l.porcentaje is not null and l.lista_madre is not null and not exists (select 1 from predetlista o where o.cod_cia=d.cod_cia and o.cod_lista_precio=l.cod_lista_precio and o.cod_articulo=d.cod_articulo and o.cod_moneda=d.cod_moneda) union select d.cod_cia, d.cod_lista_precio, d.cod_moneda, d.cod_articulo, d.costo, case when lista_madre is null then d.precio_unitario else nvl(Precios.PrecioBase(d.cod_cia, l.lista_madre, d.cod_articulo, d.cod_moneda),0)*(1+(porc_utilidad-descuento)/100) end precio_unitario, d.porc_utilidad, d.descuento, d.documento from predetlista d, prelista l where d.cod_cia=l.cod_cia and d.cod_lista_precio=l.cod_lista_precio; create table venbitfac ( registro number(10) not null, cia char(3) not null, caja char(3) not null, cajero varchar2(10) not null, maximo number(14,2) not null, final number(14,2) not null, borrado number(14,2) not null, usuario varchar2(30) not null, fecha date not null, factura number(10), estado char(1) not null, constraint venbitfac_pk primary key(registro) ); create sequence venbitfacq; -- Factvarios start paqfac /*==============================================================*/ /* Table: VenFacturaEntrega */ /*==============================================================*/ create table VenFacturaEntrega ( cia CHAR(3) not null, sucursal CHAR(3) not null, documento NUMBER(10) not null, fecha DATE not null, estado CHAR(1) not null constraint VENFACTURAENT_ESTADO_CK check (estado in ('O','C','N','L')), constraint VENFACTURAENTREGA_PK primary key (cia, sucursal, documento) ) initrans 1 storage ( initial 10K next 10K ); insert into genprefscla (MODULO,OBJETO,CLAVE,DESCRIPCION) values ('POS','INICIO','ESTADOINIPED','Estado inicial del pedido (P): Pendiente o Aplicado.'); insert into genprefscla (MODULO,OBJETO,CLAVE,DESCRIPCION) values ('POS','INICIO','FORMATOCANT','Formarto de la cantidad (99G990D0000).'); insert into genprefsval (CIA, MODULO,OBJETO,CLAVE,INSTANCIA,VALOR) values ('001', 'POS','INICIO','ESTADOINIPED','INICIO','A'); --insert into genprefsval (CIA, MODULO,OBJETO,CLAVE,INSTANCIA,VALOR) values ('001', 'POS','INICIO','FORMATOCANT','INICIO','99G990'); ## 20 Noviembre 2007 ## cambio planillas jornadas alter table pladetturno add (dia CHAR(1) default 0 not null); alter table pladetturno drop constraint pladetturno_pk; alter table pladetturno add constraint pladetturno_pk primary key (cia, turno, dia, ordinal); ------------------------------------------------------------------------------------------------------ ## 21 Noviembre 2007 Insert Into genprefscla(Modulo, Objeto, Clave, Descripcion) Values('POS', 'PTOVENTAS', 'FAC.BLOQIMP', 'El Impuesto se debe bloquear (SI, NO)'); Insert Into genprefsval(cia, Modulo, Objeto, Clave, Instancia, Valor) Values('001', 'POS', 'PTOVENTAS', 'FAC.BLOQIMP', 'PTOVENTAS', 'SI'); Insert Into GenPrefsObj(Modulo, Objeto, Descripcion) Values('SGE', 'COBROS', 'Preferencias del Módulo de Cobros'); Insert Into GenPrefsCla(Modulo, Objeto, Clave, Descripcion) Values('SGE', 'COBROS', 'TIPOBITLIMCRE', 'Tipo de Bitácora a Utilizar cuando se cambia el límite de crédito'); Insert Into GenPrefsVal(Cia, Modulo, Objeto, Clave, Instancia, Valor) Values('001', 'SGE', 'COBROS', 'TIPOBITLIMCRE', 'COBROS', '001'); Insert Into genprefscla(Modulo, Objeto, Clave, Descripcion) Values('POS', 'INICIO', 'CLAVEREIMP', 'Clave para reimpresión'); Insert Into GenPrefsVal(Cia, Modulo, Objeto, Clave, Instancia, Valor) Select Cia, Modulo, Objeto, 'CLAVEREIMP', Instancia, Valor From GenPrefsVal Where Modulo = 'POS' And Objeto = 'INICIO' And Clave = 'CLAVESUP' And Instancia = 'INICIO'; Commit; start ventas\venpedpkg :cargaex.programa:=Calcgen.Obtclave(:encabezado.cod_cia, 'SGE','EXCEL','PATH','EXCEL','excel.exe'); Insert Into GenPrefsObj(Modulo, Objeto, Descripcion) Values('SGE', 'EXCEL', 'Configuracion para invocar a Excel'); Insert Into GenPrefsCla(Modulo, Objeto, Clave, Descripcion) Values('SGE', 'EXCEL', 'COLUMN', 'Como se denomida una columna en excel (C).'); Insert Into GenPrefsCla(Modulo, Objeto, Clave, Descripcion) Values('SGE', 'EXCEL', 'ROW', 'Como se denomida una fila en excel (F).'); Insert Into GenPrefsCla(Modulo, Objeto, Clave, Descripcion) Values('SGE', 'EXCEL', 'PATH', 'Ruta de acceso a excel.'); Insert Into GenPrefsVal(Cia, Modulo, Objeto, Clave, Instancia, Valor) Values('001', 'SGE', 'EXCEL', 'COLUMN', 'EXCEL', 'C'); Insert Into GenPrefsVal(Cia, Modulo, Objeto, Clave, Instancia, Valor) Values('001', 'SGE', 'EXCEL', 'ROW', 'EXCEL', 'F'); Insert Into GenPrefsVal(Cia, Modulo, Objeto, Clave, Instancia, Valor) Values('001', 'SGE', 'EXCEL', 'PATH', 'EXCEL', 'Aqui va ruta ej: C:\EXCEL.EXE'); ## 07 Dic 07 alter table plaparametro add (diaspagovac number(3) default 1 not null);