ALTER TABLE Trn_ProdEntrega ADD CodConcepto VARCHAR(4),TipCom VARCHAR(3),Comprobante INT DEFAULT(0) NOT NULL,IdCiaCom CHAR(2),NumDev INT DEFAULT(0) NOT NULL
GO
INSERT INTO Sys_TiposDocCue (IdDoc,IdClase,ClaseCuenta,TipoMov)
 VALUES ('OEP',2,'CUENTA POR PAGAR','C')
INSERT INTO Sys_TiposDocCue (IdDoc,IdClase,ClaseCuenta,TipoMov)
 VALUES ('OEP',1,'COSTOS','D')
INSERT INTO Sys_TiposDocCue (IdDoc,IdClase,ClaseCuenta,TipoMov)
 VALUES ('OEP',10,'DESCUENTOS','C')
GO
INSERT INTO Sys_ObjetosApp (IdObj,IdGrupo,SubModulo,IndObj,Nombre,Formulario,Permisos,NivelMinimo,NomArchivo)
 VALUES ('FRMDDEP','MAIDOC','PRO',4,'Devolución de Entregas','FRMDDEP','SNNNNNNNNNNNN',0,'')
GO
INSERT INTO Sys_Roles (IdObj,IdRole,Funcion)
 VALUES ('FRMDDEP','FEC','Habilitar Fecha Abierta')
INSERT INTO Sys_Roles (IdObj,IdRole,Funcion)
 VALUES ('FRMDDEP','CIA','Cambiar de Compañía')
GO
CREATE TABLE Trn_ProdEntregaDev ( 
TipDev VARCHAR(3) DEFAULT ('DEP') NOT NULL,
Devolucion INT DEFAULT ((0)) NOT NULL,
IdCia CHAR(2) DEFAULT ('01') NOT NULL,
Fecha SMALLDATETIME NOT NULL,
TipDocEnt VARCHAR(3) DEFAULT ('OEP') NOT NULL,
NumEntrega INT DEFAULT ((0)) NOT NULL,
IdCiaEnt CHAR(2) NOT NULL,
CostoTotal MONEY DEFAULT ((0)) NOT NULL,
Descuento MONEY DEFAULT ((0)) NOT NULL,
CantTotal DECIMAL(14,4) DEFAULT ((0)) NOT NULL,
NitTercero VARCHAR(16),
CodConcepto VARCHAR(4),
TipCom VARCHAR(3),
Comprobante INT DEFAULT ((0)) NOT NULL,
IdCiaCom CHAR(2),
Observacion VARCHAR(2000),
OrigenAdd VARCHAR(10) NOT NULL,
TimeSys SMALLDATETIME NOT NULL,
FecUpdate SMALLDATETIME,
IdCiaCrea CHAR(2) DEFAULT ('01') NOT NULL,
IdUsuario VARCHAR(11) NOT NULL
 CONSTRAINT PK_Trn_ProdEntregaDev PRIMARY KEY CLUSTERED (TipDev,Devolucion,IdCia),
 CONSTRAINT CK_Trn_ProdEntregaDevIdCia CHECK ((len([IdCia])>(0))),
 CONSTRAINT CK_Trn_ProdEntregaDevIdCiaCrea CHECK ((len([IdCiaCrea])>(0))),
 CONSTRAINT CK_Trn_ProdEntregaDevIdCiaEnt CHECK ((len([IdCiaEnt])>(0))),
 CONSTRAINT CK_Trn_ProdEntregaDevIdUsuario CHECK ((len([IdUsuario])>(0))),
 CONSTRAINT CK_Trn_ProdEntregaDevOrigenAdd CHECK ((len([OrigenAdd])>(0))),
 CONSTRAINT CK_Trn_ProdEntregaDevTipDev CHECK ((len([TipDev])>(0))),
 CONSTRAINT CK_Trn_ProdEntregaDevTipDocEnt CHECK ((len([TipDocEnt])>(0))))
GO
CREATE TABLE Trn_ProdEntregaDtl ( 
TipDev VARCHAR(3) DEFAULT ('DEP') NOT NULL,
Devolucion INT DEFAULT ((0)) NOT NULL,
IdCia CHAR(2) DEFAULT ('01') NOT NULL,
Item INT DEFAULT ((0)) NOT NULL,
ItemDet INT DEFAULT ((0)) NOT NULL,
NumTalla VARCHAR(30) NOT NULL,
Cantidad DECIMAL(14,4) DEFAULT ((0)) NOT NULL
 CONSTRAINT PK_Trn_ProdEntregaDtl PRIMARY KEY CLUSTERED (TipDev,Devolucion,IdCia,Item),
 CONSTRAINT CK_Trn_ProdEntregaDtlIdCia CHECK ((len([IdCia])>(0))),
 CONSTRAINT CK_Trn_ProdEntregaDtlNumTalla CHECK ((len([NumTalla])>(0))),
 CONSTRAINT CK_Trn_ProdEntregaDtlTipDev CHECK ((len([TipDev])>(0))))
GO
CREATE TABLE Trn_ProdEntregaDei ( 
TipDev VARCHAR(3) DEFAULT ('DEP') NOT NULL,
Devolucion INT DEFAULT ((0)) NOT NULL,
IdCia CHAR(2) DEFAULT ('01') NOT NULL,
Item INT DEFAULT ((0)) NOT NULL,
ItemEnt INT DEFAULT ((0)) NOT NULL,
Cantidad DECIMAL(14,4) DEFAULT ((0)) NOT NULL,
CostoUnit MONEY DEFAULT ((0)) NOT NULL,
VrDcto MONEY DEFAULT ((0)) NOT NULL,
Tallas BIT DEFAULT ((0)) NOT NULL,
Observacion VARCHAR(500)
 CONSTRAINT PK_Trn_ProdEntregaDei PRIMARY KEY CLUSTERED (TipDev,Devolucion,IdCia,Item),
 CONSTRAINT CK_Trn_ProdEntregaDeiIdCia CHECK ((len([IdCia])>(0))),
 CONSTRAINT CK_Trn_ProdEntregaDeiTipDev CHECK ((len([TipDev])>(0))))
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paUpProdEntrega]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paUpProdEntrega]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryProdEntrega]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paQryProdEntrega]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryProdEntrega_Cr]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paQryProdEntrega_Cr]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInsProdEntrega]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInsProdEntrega]
GO

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paQryProdEntrega_Cr] @pmTipDoc VARCHAR(3),@pmNumEntregaIni INT,@pmNumEntregaFin INT,@pmIdCia CHAR(2)
 AS 
 SELECT E.TipDoc,TipoDoc,E.NumEntrega,E.IdCia,Compania,E.Fecha,E.FecEntrega,E.TipOrden,E.NumOrden,E.IdCiaOrden,E.CostoTotal,E.Descuento,E.CantTotal
,E.TipoEntrega,E.NitTercero,RazonSocial,E.NomContacto,E.TelContacto,E.EdoOrden AS EdoEntrega
,O.Fecha AS FecOrden,O.TipCons,O.NumCons,O.IdCiaCons,O.Modalidad,O.IdTipProc,TP.TipoProceso,TP.IndOrden,O.IdTaller,TL.NomTaller,TL.Direccion,TL.IdLocal,LC.Localidad,TL.Telefono,TL.TelCelular,TL.TipoTaller 
,O.ConPago,O.ProcFinal,O.Observacion AS ObservOrden,O.EdoOrden
,E.Anulado,E.FecDev,E.NumDev,E.Observacion,E.CodConcepto,E.TipCom,E.Comprobante,E.IdCiaCom,E.IdEstado,Estado,E.OrigenAdd,E.TimeSys AS FecCrea,E.FecUpdate AS FecActualiza,E.IdCiaCrea,E.IdUsuario,Usuario
--detalles
,D.Item,D.ItemOrden,D.CantOrden,D.Cantidad,D.Defectuoso,D.Rechazado,D.CostoUnit,D.VrDcto,D.TipPed,D.Pedido,D.IdCiaPed,D.ItemPed,D.IdProducto,P.DescripProd,D.Descripcion
,D.CdTipProc AS DetCdProc,PS.TipoProceso AS DetProceso,D.Tallas,D.ProcFinal AS DetProcFinal,D.Observacion AS MotivoRechz
,P.CodBarras,P.Referencia,P.TipoRef,G.IdLinea AS CdLinea,Linea,S.IdGrupo AS CdGrupo,Grupo,P.IdSubgrupo AS CdSubgpo,Subgrupo
,P.IdMarca,Marca,P.IdUnd,UD.Unidad,P.Color,P.Tamano,P.Tallaje,P.Seriales,P.Lotes,P.Combo,P.Inactivo AS ProdInactivo,P.DescripLong
FROM Trn_ProdEntrega AS E INNER JOIN Trn_ProdEntregaDet AS D ON E.TipDoc=D.TipDoc AND E.NumEntrega=D.NumEntrega AND E.IdCia=D.IdCia
INNER JOIN Companias AS CN ON E.IdCia=CN.IdCia INNER JOIN EstadoDoc AS ED ON E.IdEstado=ED.IdEstado
INNER JOIN adm_Usuarios AS U ON E.IdUsuario=U.IdUsuario INNER JOIN Sys_TiposDoc AS TD ON E.TipDoc=TD.IdDoc
INNER JOIN Trn_ProdOrden AS O ON E.TipOrden=O.TipDoc AND E.NumOrden=O.NumOrden AND E.IdCiaOrden=O.IdCia
INNER JOIN TiposProceso AS TP ON O.IdTipProc=TP.IdTipProc
INNER JOIN Talleres AS TL ON O.IdTaller=TL.IdTaller INNER JOIN Localidades AS LC ON TL.IdLocal=LC.IdLocal
INNER JOIN ProdMcias AS P ON D.IdProducto=P.IdProducto INNER JOIN SubGrupos AS S ON P.IdSubgrupo=S.IdSubgrupo
INNER JOIN Grupos AS G ON S.IdGrupo=G.IdGrupo INNER JOIN Lineas AS L ON G.IdLinea=L.IdLinea
INNER JOIN Marcas AS M ON P.IdMarca=M.IdMarca INNER JOIN UndMed AS UD ON P.IdUnd=UD.IdUnd
LEFT JOIN TiposProceso AS PS ON D.CdTipProc=PS.IdTipProc 
LEFT JOIN Terceros AS T ON E.NitTercero=T.IdTercero
WHERE E.TipDoc=@pmTipDoc AND E.NumEntrega BETWEEN @pmNumEntregaIni AND @pmNumEntregaFin AND E.IdCia=@pmIdCia
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paUpProdEntrega] @pmTipDoc VARCHAR(3),@pmNumEntrega INT,@pmIdCia CHAR(2),@pmFecha SMALLDATETIME,@pmTipOrden VARCHAR(3),@pmNumOrden INT,@pmIdCiaOrden CHAR(2),@pmFecEntrega SMALLDATETIME,@pmCostoTotal MONEY,@pmDescuento MONEY,@pmCantTotal DECIMAL(14,4),@pmTipoEntrega VARCHAR(10),@pmNitTercero VARCHAR(16)
,@pmNomContacto VARCHAR(150),@pmTelContacto VARCHAR(30),@pmEdoOrden INT,@pmAnulado BIT,@pmFecDev SMALLDATETIME,@pmObservacion VARCHAR(2000),@pmIdEstado VARCHAR(4),@pmCodConcepto VARCHAR(4),@pmTipCom VARCHAR(3),@pmComprobante INT,@pmIdCiaCom CHAR(2),@pmNumDev INT,@pmFecUpdate SMALLDATETIME
 AS 
 UPDATE Trn_ProdEntrega SET Fecha=@pmFecha,TipOrden=@pmTipOrden,NumOrden=@pmNumOrden,IdCiaOrden=@pmIdCiaOrden,FecEntrega=@pmFecEntrega,CostoTotal=@pmCostoTotal,Descuento=@pmDescuento,CantTotal=@pmCantTotal,TipoEntrega=@pmTipoEntrega,NitTercero=@pmNitTercero,NomContacto=@pmNomContacto,TelContacto=@pmTelContacto,EdoOrden=@pmEdoOrden
,Anulado=@pmAnulado,FecDev=@pmFecDev,Observacion=@pmObservacion,IdEstado=@pmIdEstado,CodConcepto=@pmCodConcepto,TipCom=@pmTipCom,Comprobante=@pmComprobante,IdCiaCom=@pmIdCiaCom,NumDev=@pmNumDev,FecUpdate=@pmFecUpdate
 WHERE TipDoc=@pmTipDoc AND NumEntrega=@pmNumEntrega AND IdCia=@pmIdCia
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paQryProdEntrega] @pmTipDoc VARCHAR(3),@pmNumEntrega INT,@pmIdCia CHAR(2)
 AS 
 SELECT TipDoc,NumEntrega,IdCia,Fecha,TipOrden,NumOrden,IdCiaOrden,FecEntrega,CostoTotal,Descuento,CantTotal,TipoEntrega,NitTercero,NomContacto,TelContacto,EdoOrden,Anulado,FecDev,Observacion,IdEstado
,CodConcepto,TipCom,Comprobante,IdCiaCom,NumDev,OrigenAdd,TimeSys,FecUpdate,IdCiaCrea,IdUsuario
 FROM Trn_ProdEntrega
 WHERE TipDoc=@pmTipDoc AND NumEntrega=@pmNumEntrega AND IdCia=@pmIdCia
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paInsProdEntrega] @pmTipDoc VARCHAR(3),@pmNumEntrega INT,@pmIdCia CHAR(2),@pmFecha SMALLDATETIME,@pmTipOrden VARCHAR(3),@pmNumOrden INT,@pmIdCiaOrden CHAR(2),@pmFecEntrega SMALLDATETIME,@pmCostoTotal MONEY,@pmDescuento MONEY,@pmCantTotal DECIMAL(14,4),@pmTipoEntrega VARCHAR(10),@pmNitTercero VARCHAR(16)
,@pmNomContacto VARCHAR(150),@pmTelContacto VARCHAR(30),@pmEdoOrden INT,@pmAnulado BIT,@pmFecDev SMALLDATETIME,@pmObservacion VARCHAR(2000),@pmIdEstado VARCHAR(4),@pmCodConcepto VARCHAR(4),@pmTipCom VARCHAR(3),@pmComprobante INT,@pmIdCiaCom CHAR(2),@pmNumDev INT,@pmOrigenAdd VARCHAR(10),@pmTimeSys SMALLDATETIME,@pmIdCiaCrea CHAR(2),@pmIdUsuario VARCHAR(11)
 AS 
 INSERT INTO Trn_ProdEntrega (TipDoc,NumEntrega,IdCia,Fecha,TipOrden,NumOrden,IdCiaOrden,FecEntrega,CostoTotal,Descuento,CantTotal,TipoEntrega,NitTercero,NomContacto,TelContacto,EdoOrden,Anulado,FecDev,Observacion,IdEstado,OrigenAdd,TimeSys,IdCiaCrea,IdUsuario,CodConcepto,TipCom,Comprobante,IdCiaCom,NumDev)
 VALUES (@pmTipDoc,@pmNumEntrega,@pmIdCia,@pmFecha,@pmTipOrden,@pmNumOrden,@pmIdCiaOrden,@pmFecEntrega,@pmCostoTotal,@pmDescuento,@pmCantTotal,@pmTipoEntrega,@pmNitTercero,@pmNomContacto,@pmTelContacto,@pmEdoOrden,@pmAnulado,@pmFecDev,@pmObservacion,@pmIdEstado,@pmOrigenAdd,@pmTimeSys,@pmIdCiaCrea,@pmIdUsuario,@pmCodConcepto,@pmTipCom,@pmComprobante,@pmIdCiaCom,@pmNumDev)
GO

ALTER TABLE Trn_ProdEntregaDev ADD 
 CONSTRAINT FK_Trn_ProdEntregaDev_adm_Usuarios FOREIGN KEY (IdUsuario) REFERENCES [dbo].[adm_Usuarios] (IdUsuario),
 CONSTRAINT FK_Trn_ProdEntregaDev_Companias FOREIGN KEY (IdCia) REFERENCES [dbo].[Companias] (IdCia),
 CONSTRAINT FK_Trn_ProdEntregaDev_Companias1 FOREIGN KEY (IdCiaCrea) REFERENCES [dbo].[Companias] (IdCia),
 CONSTRAINT FK_Trn_ProdEntregaDev_Sys_TiposDoc FOREIGN KEY (TipDev) REFERENCES [dbo].[Sys_TiposDoc] (IdDoc),
 CONSTRAINT FK_Trn_ProdEntregaDev_Trn_ProdEntrega FOREIGN KEY (TipDocEnt,NumEntrega,IdCiaEnt) REFERENCES [dbo].[Trn_ProdEntrega] (TipDoc,NumEntrega,IdCia)

 CREATE NONCLUSTERED INDEX IX_Trn_ProdEntregaDevFecha ON Trn_ProdEntregaDev(Fecha)
 CREATE NONCLUSTERED INDEX IX_Trn_ProdEntregaDevNumEntrega ON Trn_ProdEntregaDev(TipDocEnt,NumEntrega,IdCiaEnt)

ALTER TABLE Trn_ProdEntregaDei ADD 
 CONSTRAINT FK_Trn_ProdEntregaDei_Trn_ProdEntregaDev FOREIGN KEY (TipDev,Devolucion,IdCia) REFERENCES [dbo].[Trn_ProdEntregaDev] (TipDev,Devolucion,IdCia)

ALTER TABLE Trn_ProdEntregaDtl ADD 
 CONSTRAINT FK_Trn_ProdEntregaDtl_Trn_ProdEntregaDev FOREIGN KEY (TipDev,Devolucion,IdCia) REFERENCES [dbo].[Trn_ProdEntregaDev] (TipDev,Devolucion,IdCia)