----------------------------------------
--- ARCHIVO DE ALTERS A MODELOS SGE  ---
--- A PARTIR DEL 10 DE ENERO DE 2008 ---
----------------------------------------

   Insert Into GenPrefsCla(Modulo, Objeto, Clave, Descripcion)
                    Values('POS', 'PTOVENTAS', 'FAC.CLASENORES', 'Cuales clases de pedido no reservan inventario.');

   --##Solo para llobet

   Insert Into GenPrefsVal(Cia, Modulo, Objeto, Clave, Instancia, Valor)
                    Values('001', 'POS', 'PTOVENTAS', 'FAC.CLASENORES', 'PTOVENTAS', 'B');
   
   COMMIT;

start compra\comutil;

--XXX Quedamos en que se hiciera recuperando el valor verdadero por cia
UPDATE COM_CONSECUTIVO Cc
   SET CONSEC_RECNAC =(Select Nvl(Max(Documento), 0) + 1 From Com_Enc_Recibo Er
                       Where Er.Cod_Cia  = Cc.Cod_Cia
                         And Er.Sucursal = Cc.Sucursal);

COMMIT;

create or replace view  v_invmov as
select  b.cod_cia,b.sucursal,b.tip_movto,b.cod_movto,b.num_docto,b.fec_movto, 
        b.cod_proveedor,b.ind_externo, b.num_asiento, b.ano_fiscal, b.per_proceso,         
        a.doc_referen, a.cod_lote,a.cod_bodega,a.cod_articulo,
        decode(a.tip_movto,'E',a.can_articulo,-a.can_articulo) cantidad,
        decode(a.tip_movto,'E',a.sub_total,-a.sub_total) monto,
        decode(a.tip_movto,'E',a.impuesto_vtas,-impuesto_vtas) impuesto
from inv_detmovimiento a,inv_encabmovimiento b
where a.cod_cia=b.cod_cia
and   a.sucursal=b.sucursal
and   a.tip_movto=b.tip_movto
and   a.cod_movto=b.cod_movto
and   a.num_docto=b.num_docto
and   b.estado in ('C', 'D');


##CR 29 Enero 2008
##Elimina genimpbarras y modifica gen_imp_barras

alter table gen_imp_barras add (categoria char(1) default 'A' not null);
alter table gen_imp_barras add (canmts   number(5,2));
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, CATEGORIA);

--no se si hay que rescatar algo de aqui?
drop table genimpbarras;

##CR 01 Feb 2008
DROP TABLE PENSIONADO;

/*==============================================================*/
/* Table: CXCPENSIONADO                                         */
/*==============================================================*/
CREATE TABLE CXCPENSIONADO  (
   COD_CIA              CHAR(3)                         NOT NULL,
   COD_CLIENTE          VARCHAR2(25)                    NOT NULL,
   CONSTRAINT CXCPENSIONADO_PK PRIMARY KEY (COD_CIA, COD_CLIENTE)
)
INITRANS 1
STORAGE
(
  INITIAL 10K
  NEXT 10K
);

/*==============================================================*/
/* Table: VENNIVVENTA                                           */
/*==============================================================*/
CREATE TABLE VENNIVVENTA  (
   CIA                  CHAR(3)                         NOT NULL,
   CLASIFICACION        CHAR(3)                         NOT NULL,
   MONTO                NUMBER(14,2)                    NOT NULL
);


##CR 04 Feb 08
start estutl;
start estadisticas\estpivote;

#Cambios de nombres en tablas de precios
start precios\precios
start util2
#Ejecutar pasos en PreTraslado
alter table preenccambio modify(origen null);

##GUV 04 Feb 08
--Exclusivo para proyectos
--Envio y recibo de reportes de labor y sats

CREATE TABLE PRYREPORTELABOREXP(
   INFORME              NUMBER(10)                      NOT NULL,
   COLABORADOR          VARCHAR2(10)                    NOT NULL,
   FECHAINI             DATE                            NOT NULL,
   FECHAFIN             DATE                            NOT NULL,
   OBSERVACIONES        VARCHAR2(200)                   NOT NULL,
   ESTADO               CHAR(1)                         NOT NULL
      CONSTRAINT PRYREPORTELABOREXP_ESTADO_CK CHECK (ESTADO IN ('P','E','F')),
   CONSTRAINT PRYREPORTELABOREXP_PK PRIMARY KEY (INFORME)
)
INITRANS 1
STORAGE
(
    INITIAL 10K
    NEXT 10K
);

CREATE TABLE PRYDETALLELABOREXP(
   INFORME              NUMBER(10)                      NOT NULL,
   FECHA                DATE                            NOT NULL,
   LABOR                NUMBER(2)                       NOT NULL,
   PROYECTO             VARCHAR2(10)                    NOT NULL,
   MODULO               VARCHAR2(4),
   REFERENCIA           VARCHAR2(20),
   TAREA                VARCHAR2(200)                   NOT NULL,
   HORASPLAN            NUMBER(4,2)                     NOT NULL
      CONSTRAINT PRYDETLABOREXP_HORASPLAN_CK CHECK (HORASPLAN >= 0),
   HORASREAL            NUMBER(4,2)                     NOT NULL
      CONSTRAINT PRYDETLABOREXP_HORASREAL_CK CHECK (HORASREAL >= 0),
   LABORCOBROREF        NUMBER(2),
   CONSTRAINT PRYDETALLELABOREXP_PK PRIMARY KEY (INFORME, FECHA, LABOR)
)
INITRANS 1
STORAGE
(
    INITIAL 10K
    NEXT 10K
);

CREATE TABLE PRYLABORCOBRABLEEXP  (
   INFORME              NUMBER(10)                      NOT NULL,
   FECHA                DATE                            NOT NULL,
   LABOR                NUMBER(2)                       NOT NULL,
   PROYECTO             VARCHAR2(10)                    NOT NULL,
   TIPOLABOR            VARCHAR2(4)                     NOT NULL,
   SOLICITANTE          VARCHAR2(30),
   TAREA                VARCHAR2(200)                   NOT NULL,
   HORAS                NUMBER(4,2)                     NOT NULL,
   INTERNO              CHAR(1)                         NOT NULL
      CONSTRAINT PRYLABORCOBRABLEEXP_INTERNO_CK CHECK (INTERNO IN ('S','N')),
   COBRO                NUMBER(10),
   CONTROL              VARCHAR2(1)                    DEFAULT 'S' NOT NULL,
   CONSTRAINT PRYLABORCOBRABLEEXP_PK PRIMARY KEY (INFORME, FECHA, LABOR)
)
INITRANS 1
STORAGE
(
    INITIAL 10K
    NEXT 10K
);

CREATE TABLE PRYTAREXP  (
   NUMERO               NUMBER(6)                       NOT NULL,
   PROYECTO             VARCHAR2(10),
   MODULO               VARCHAR2(4),
   FECHA                DATE                            NOT NULL,
   FECSAT               DATE                            NOT NULL,
   CLIENTE              VARCHAR2(25)                    NOT NULL,
   CONTACTO             VARCHAR2(25)                    NOT NULL,
   OPCION               VARCHAR2(60)                    NOT NULL,
   PROGRAMA             VARCHAR2(40)                    NOT NULL,
   DETALLE              VARCHAR2(60)                    NOT NULL,
   DESCRIPCION          VARCHAR2(400)                   NOT NULL,
   ESTADO               CHAR(1)                         NOT NULL
      CONSTRAINT PRYTAREXP_ESTADO_CK CHECK (ESTADO IN ('P','A','R')),
   CONSTRAINT PRYTAREXP_PK PRIMARY KEY (NUMERO)
)
INITRANS 1
STORAGE
(
    INITIAL 10K
    NEXT 10K
);

CREATE TABLE PRYTAREVENTOSEXP  (
   NUMERO               NUMBER(6)                       NOT NULL,
   FECHA                DATE                            NOT NULL,
   COLABORADOR          VARCHAR2(10),
   OBSERVACIONES        VARCHAR2(200)                   NOT NULL,
   ESTADO               CHAR(1)                         NOT NULL
      CONSTRAINT PRYTAREVENTOSEXP_ESTADO_CK CHECK (ESTADO IN ('R','P')),
   CONSTRAINT PRYTAREVENTOSEXP_PK PRIMARY KEY (NUMERO, FECHA)
)
INITRANS 1
STORAGE
(
    INITIAL 10K
    NEXT 10K
);


##GUV 13 Febrero

alter table inv_encabmovimiento add (dummy number(14, 4));
update inv_encabmovimiento set dummy = tip_cambio;
alter table inv_encabmovimiento drop column tip_cambio;
alter table inv_encabmovimiento add (tip_cambio number(14, 4));
update inv_encabmovimiento set tip_cambio = dummy;
alter table inv_encabmovimiento modify tip_cambio not null;
alter table inv_encabmovimiento drop column dummy;

##MT 19 Febrero
Insert Into GenPrefsCla(Modulo, Objeto, Clave, Descripcion)
                    Values('POS', 'INICIO', 'BLOQUEOAGE', 'Bloquea agente de venta (N): No, Factura, Pedido, Ambos.');

--Solo para carazo
--Insert Into GenPrefsVal(Cia, Modulo, Objeto, Clave, Instancia, Valor)
                    Values('001', 'POS', 'INICIO', 'BLOQUEOAGE', 'INICIO', 'A');
COMMIT;

##CR 20 Feb 08
## estos alters faltaban en DESA y en los modelos
alter table pladeducciones drop  CONSTRAINT PLADEDUCCIONES_TIPOVALOR_CK;
alter table pladeducciones add  CONSTRAINT PLADEDUCCIONES_TIPOVALOR_CK CHECK (TIPOVALOR IN ('M','P','C'));

alter table plamovded drop  CONSTRAINT PLAMOVDED_TIPOVALOR_CK;
alter table plamovded add CONSTRAINT PLAMOVDED_TIPOVALOR_CK CHECK (TIPOVALOR IN ('M','P','C'));

##MT 25 FEB
start estadisticas\estpivote

alter table gen_persona modify (direccion varchar2(200));

##GUV 06-03-2008

Insert Into GenPrefsCla(Modulo, Objeto, Clave, Descripcion)
                 Values('SGE', 'COMPRAS', 'ESTORDDESP', 
                        'Estado de Orden de Compra: Despachado');

--Ojo en llobet hay que configurar bien este valor
Insert Into GenPrefsVal(Cia, Modulo, Objeto, Clave, Instancia, Valor)
                 Values('001', 'SGE', 'COMPRAS', 'ESTORDDESP', 
                        'COMPRAS', '005');

alter table com_det_orden add (CantRecepcion number(14, 4) default 0 not null);

@compra\comutil

---Opción 2 con cant recepción--
Create or replace view ComInventarioTransito as
Select O.Cod_Cia Cia, O.Sucursal, O.Num_Orden Orden, O.Cod_Proveedor Proveedor, O.Cod_Bodega Bodega, 
       O.Fecha, O.Fecha_Estima_Arribo FechaArribo, ComUtil.FechaDespachoOc(O.Cod_Cia, O.Sucursal, O.Num_Orden) FechaDespacho,
       Decode(D.Cantidad-Least(D.Cant_Recibida, D.Cantidad), 0, 'R', Decode(ComUtil.FechaDespachoOc(O.Cod_Cia, O.Sucursal, O.Num_Orden), Null, 'P', 'T')) Estado, 
       D.Cod_Articulo Articulo, ConvMedida.Convertir(1, D.Medida, ConvMedida.MedidaArt(O.Cod_Cia, D.Cod_Articulo)) Factor, 
       D.Cantidad Cantidad, D.Cant_Recibida Recibida, D.Cantidad-Least(D.Cant_Recibida, D.Cantidad) BackOrder, D.CantRecepcion Recepcion
From Com_Enc_Orden O, Com_Det_Orden D
Where O.Estado        = 'D'
  And D.Cod_Cia       = O.Cod_Cia
  And D.Sucursal      = O.Sucursal
  And D.Num_Orden     = O.Num_Orden
  And (D.Cant_Recibida < D.Cantidad
       Or D.CantRecepcion > 0);

--##GUV 17-03-08 Hacia falta esta columna
ALTER TABLE PRDDETORDEN ADD(FECHA DATE);
UPDATE PRDDETORDEN SET FECHA = SYSDATE;
ALTER TABLE PRDDETORDEN MODIFY FECHA NOT NULL;

#CR 25/03/08 
# crea tablas de act

/*==============================================================*/
/* Table: PRYACT                                                */
/*==============================================================*/
CREATE TABLE PRYACT  (
   ACTUALIZACION        NUMBER(10)                      NOT NULL,
   FECHA                DATE                            NOT NULL,
   COLABORADOR          VARCHAR2(10)                    NOT NULL,
   SISTEMA              VARCHAR2(10)                    NOT NULL,
   MODULO               VARCHAR2(4)                     NOT NULL,
   PROPOSITO            VARCHAR2(512)                   NOT NULL,
   RESTRICCIONES        VARCHAR2(512),
   COMENTARIOS          VARCHAR2(512),
   CONSTRAINT PRYACT_PK PRIMARY KEY (ACTUALIZACION)
);

/*==============================================================*/
/* Table: PRYACTCLIENTE                                         */
/*==============================================================*/
CREATE TABLE PRYACTCLIENTE  (
   SISTEMA              VARCHAR2(10)                    NOT NULL,
   ACTUALIZACION        NUMBER(10)                      NOT NULL,
   LINEA                NUMBER(10)                      NOT NULL,
   CONSTRAINT PRYACTCLIENTE_PK PRIMARY KEY (SISTEMA)
);

/*==============================================================*/
/* Table: PRYACTDET                                             */
/*==============================================================*/
CREATE TABLE PRYACTDET  (
   ACTUALIZACION        NUMBER(10)                      NOT NULL,
   LINEA                NUMBER(10)                      NOT NULL,
   INSTRUCCION          VARCHAR2(4000)                  NOT NULL,
   COMENTARIO           VARCHAR2(512),
   CONDICION            VARCHAR2(100),
   ERROR                VARCHAR2(1000),
   CONSTRAINT PRYACTDET_PK PRIMARY KEY (ACTUALIZACION, LINEA)
);

start paqeje;

alter table vendetpedido add(caducidad number(2) default 0 not null);

--Guv: Hacia falta
CREATE OR REPLACE VIEW GEN_CLIENTE_CLASIFV 
(COD_CIA, CLASIFICACION, COD_CLIENTE, FECHA, OBSERVACIONES, 
NOM_CLIENTE, COD_ZONA, COD_CLASE, USUARIO)
AS 
select a.cod_cia,a.clasificacion,a.cod_cliente,a.fecha,a.observaciones,
b.nom_cliente,b.cod_zona,b.cod_clase,a.usuario
from gen_cliente_clasif a,gen_cliente b
where a.cod_cia = b.cod_cia
and a.cod_cliente = b.cod_cliente
/

Create Global Temporary Table GenSalida(
  archivo        varchar2(30)       not null,
  linea          number(10)         not null, 
  texto          varchar2(2048)     not null,
  constraint GenSalida_Pk primary key (archivo, linea)
);

--Redondeo libro de precios
alter table preparmoneda add(tipo varchar2(1) default 'F' not null,
                             constraint PreParMoneda_Tipo_Ck check (tipo in ('P', 'F'))); 

alter table preparmoneda drop constraint preparmoneda_pk;

alter table preparmoneda add constraint preparmoneda_pk primary key (moneda, tipo, cod_cia);


##############################################
##############################################
  OJO NO USAR MAS !!
  DEBE REGISTRAR LAS ACTUALIZACIONES
  EN EL MODULO DE PROYECTOS

##############################################
##############################################

alter table com_parametro  add(RECPRECIOORIGEN char(1) default 'N' not null);

alter table venconceptoval add(valor number(8,2) default null);
alter table venconceptoval add(millas number(8,2) default null);
alter table venpagovalores add(millas number(14,2) default null);

start facmillas

alter table gen_cliente modify (nom_cliente varchar2(50));
alter table venpedido modify (nombre varchar2(50));
alter table venfactura modify (nombre varchar2(50));
alter table vendevolucion modify (nombre varchar2(50));
alter table vennota modify (nombre varchar2(50));

13/10/2008 MV

ALTER TABLE INV_ARTICULO
ADD REFERENCIA VARCHAR2(25);

alter table com_det_orden
add bodega char(3);


create or replace view venpedidopendiente as
    select cia, sucursal, documento
    from venpedido p
    where p.vencimiento>=trunc(sysdate)
      and p.clase not in ('V','P')
      and p.estado='A'
    minus
    select cia, sucursal, referencia
    from venalisto a
    where a.estado='A';

insert into genprefsobj
values('SGE','COMPRAS','COMPRAS');

-- Alters pendientes 
alter table vencatalogo
add fecharige date;

alter table vencatalogo
add tipo char(1) default 'C' not null;

-- Incluye codigo de barras PARA LANCO PANAMA  -- 

   Insert Into GenPrefsCla(Modulo, Objeto, Clave, Descripcion)
                    Values('POS', 'INICIO', 'CODIGOBARRAS', 'El cliente requiere imprimir codigo de barras en Factura.');


 Insert Into GenPrefsVal(Cia, Modulo, Objeto, Clave, Instancia, Valor)
              Values('001', 'POS', 'INICIO', 'CODIGOBARRAS', 'INICIO', 'BAR');
   
   COMMIT;

-- Manejar longitud de asignacion de codigo de cliente.
11-03-2009

 Insert Into GenPrefsCla(Modulo, Objeto, Clave, Descripcion)
                    Values('SGE', 'INICIO', 'LARGOCLIENTE', 'Longitud del codigo de cliente para asignacion de consecutivo automatico');


 Insert Into GenPrefsVal(Cia, Modulo, Objeto, Clave, Instancia, Valor)
              Values('001', 'SGE', 'INICIO', 'LARGOCLIENTE', 'INICIO', 5);
   
   COMMIT;


-- Manejar longitud de asignacion de codigo de articulo.


 Insert Into GenPrefsCla(Modulo, Objeto, Clave, Descripcion)
                    Values('SGE', 'INICIO', 'LARGOARTICULO', 'Longitud del codigo de articulo para asignacion de consecutivo automatico');


 Insert Into GenPrefsVal(Cia, Modulo, Objeto, Clave, Instancia, Valor)
              Values('001', 'SGE', 'INICIO', 'LARGOARTICULO', 'INICIO', 6);
   
   COMMIT;



-- Ubicacion de convertidor a Excel


 Insert Into GenPrefsCla(Modulo, Objeto, Clave, Descripcion)
                    Values('SGE', 'EXCEL', 'REP2EXCEL', 'Convertidor de Archivos de Html a Excel');


 Insert Into GenPrefsVal(Cia, Modulo, Objeto, Clave, Instancia, Valor)
              Values('001', 'SGE', 'EXCEL', 'REP2EXCEL', 'INICIO', 'rep2excel');
   
   COMMIT;


 Insert Into GenPrefsCla(Modulo, Objeto, Clave, Descripcion)
                    Values('POS', 'INICIO', 'CLAVEDIREXCEL', 'Directorio de Archivos para Convertidor de Html a Excel');


 Insert Into GenPrefsVal(Cia, Modulo, Objeto, Clave, Instancia, Valor)
              Values('001', 'POS', 'INICIO', 'CLAVEDIREXCEL', 'INICIO', 'd:\');
   
   COMMIT;