INSERT INTO Sys_ObjetosApp (IdObj,IdGrupo,SubModulo,IndObj,Nombre,Formulario,Permisos,NivelMinimo,NomArchivo)
 VALUES ('FRMLTALL','MAIINF','INV',21,'Productos y Tallas','FRMLTALL','SNNNNNNNNNNNN',0,'')
INSERT INTO Sys_ObjetosApp (IdObj,IdGrupo,SubModulo,IndObj,Nombre,Formulario,Permisos,NivelMinimo,NomArchivo)
 VALUES ('FRMLOPP','MAIINF','PRO',1,'Ordenes de Proceso de Producción','FRMLOPP','SNNNNNNNNNNNN',0,'')
GO
INSERT INTO Sys_Report (TipoRep,IdRep,Descripcion,Formato,TipoPapel,Orientacion,VistaPrevia,VerSetup,NumCopias,sp_Nombre,Ind_Location,NomRep)
 VALUES ('TLL','01','Listado de tallas','CrTallas.rpt',1,1,1,0,1,'paQryTallajesLta','','Tallas')
INSERT INTO Sys_Report (TipoRep,IdRep,Descripcion,Formato,TipoPapel,Orientacion,VistaPrevia,VerSetup,NumCopias,sp_Nombre,Ind_Location,NomRep)
 VALUES ('TLL','11','Movimiento de tallas','CrTallMov.rpt',1,1,1,0,1,'paQryTallajesMov','','Tallas')
INSERT INTO Sys_Report (TipoRep,IdRep,Descripcion,Formato,TipoPapel,Orientacion,VistaPrevia,VerSetup,NumCopias,sp_Nombre,Ind_Location,NomRep)
 VALUES ('OPP','01','Predeterminado','CrLopp.rpt',1,1,1,0,1,'paQryProdOrdenLta','','Ordenes de proceso')
GO
CREATE TABLE AcuInvTallas ( 
Id BIGINT IDENTITY ( 1,1 ) NOT NULL,
nAnno INT DEFAULT ((0)) NOT NULL,
nMes INT DEFAULT ((0)) NOT NULL,
IdCia CHAR(2) DEFAULT ('01') NOT NULL,
IdProducto VARCHAR(16) NOT NULL,
IdBodega VARCHAR(4) NOT NULL,
IdUbic VARCHAR(10) NOT NULL,
NumTalla VARCHAR(30) NOT NULL,
SaldoAnt DECIMAL(14,4) DEFAULT ((0)) NOT NULL,
Entradas DECIMAL(14,4) DEFAULT ((0)) NOT NULL,
Salidas DECIMAL(14,4) DEFAULT ((0)) NOT NULL,
CostoAnt MONEY DEFAULT ((0)) NOT NULL,
CostoEnt MONEY DEFAULT ((0)) NOT NULL,
CostoSal MONEY DEFAULT ((0)) NOT NULL
 CONSTRAINT PK_AcuInvTallas PRIMARY KEY NONCLUSTERED (Id),
 CONSTRAINT CK_AcuInvTallasIdBodega CHECK ((len([IdBodega])>(0))),
 CONSTRAINT CK_AcuInvTallasIdCia CHECK ((len([IdCia])>(0))),
 CONSTRAINT CK_AcuInvTallasIdProducto CHECK ((len([IdProducto])>(0))),
 CONSTRAINT CK_AcuInvTallasIdUbic CHECK ((len([IdUbic])>(0))),
 CONSTRAINT CK_AcuInvTallasNumTalla CHECK ((len([NumTalla])>(0))))
GO
ALTER TABLE AcuInvTallas ADD 
 CONSTRAINT FK_AcuInvTallas_Bodegas FOREIGN KEY (IdBodega) REFERENCES [dbo].[Bodegas] (IdBodega),
 CONSTRAINT FK_AcuInvTallas_Companias FOREIGN KEY (IdCia) REFERENCES [dbo].[Companias] (IdCia),
 CONSTRAINT FK_AcuInvTallas_ProdMcias FOREIGN KEY (IdProducto) REFERENCES [dbo].[ProdMcias] (IdProducto)

CREATE CLUSTERED INDEX IX_AcuInvTallasNumTalla ON AcuInvTallas(nAnno,nMes,IdCia,IdProducto,IdBodega,NumTalla)

--sp
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FuncAcuInvTallasSan]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[FuncAcuInvTallasSan]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryProdEntregaLta]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paQryProdEntregaLta]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryProdOrdenLta]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paQryProdOrdenLta]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryProdOrdenTallasLta]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paQryProdOrdenTallasLta]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryTallajesLta]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paQryTallajesLta]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryTallajesMov]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paQryTallajesMov]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryTraManifiestoFmt]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paQryTraManifiestoFmt]
GO

SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE FUNCTION [dbo].[FuncAcuInvTallasSan] (@pmnAnno INT,@pmnMes INT,@pmIdCia CHAR(2),@pmIdProducto VARCHAR(16)
,@pmIdBodega VARCHAR(4),@pmIdUbic VARCHAR(10),@pmNumTalla VARCHAR(30))
RETURNS DECIMAL(14,4)
 AS  
BEGIN
 DECLARE @SaldoAnt DECIMAL(14,4)
 SET  @SaldoAnt=(SELECT SUM(SaldoAnt+Entradas-Salidas) FROM AcuInvTallas WHERE nAnno=@pmnAnno AND nMes=@pmnMes AND IdProducto=@pmIdProducto AND IdBodega=@pmIdBodega
 AND IdUbic=@pmIdUbic AND NumTalla=@pmNumTalla)
 RETURN @SaldoAnt
END
GO

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paQryTraManifiestoFmt] @pmTipDoc VARCHAR(3),@pmManifiestoIni INT,@pmManifiestoFin INT,@pmIdCia CHAR(2)
 AS 
 SELECT M.TipDoc AS CdTipDoc,TipoDoc,M.Manifiesto AS NumManif,M.IdCia AS CdCia,CN.Compania AS NomCompania,M.Fecha AS FechaMuc,M.FecDespacho,M.FecEntrega,M.IdOrigen AS CdOrigen,CO.Localidad AS CiuOrigen,CO.IdDep AS CodDepOrigen,DPO.Departamento AS DptoOrigen
,M.IdDestino AS CdDestino,CD.Localidad AS CiuDestino,CD.IdDep AS CodDepDestino,DPD.Departamento AS DptoDestino,M.IdRuta AS CdRuta,RT.Ruta AS DescRuta,IdRutaFle,RF.Ruta AS RutaFletes
,M.IdVehiculo AS PlacaVeh,M.IdConductor AS CedConductor,CDT.RazonSocial AS NomConductor,M.nRemolque,M.TipoAfiVehic,M.IdPropietario AS NitPropietario,NP.RazonSocial AS Propietario,M.IdPoseedor AS NitPoseedor,T.RazonSocial AS Poseedor
,M.VrFletes,VrRetencion,VrReteIca,VrDescuento,VrAnticipo,VrAntAdic,VrNeto,M.VrPagos,M.VrCargos,M.VrDctos,TarifaFlete,M.Cantidad AS CantTotal,M.PesoTotal,BaseRet,TarifaRet,TarifaIca
,M.IdLocFletes,CF.Localidad AS CiuLugarFletes,FechaPago,PagoCargue,PagoDescargue,NumMintrans,EdoMintrans,M.Cumplido AS NumCumplido,M.IdCiaCump AS CdCiaCump,M.FechaCump AS FecCumplido,M.EstCumplido
,M.TipOdp AS TipoOdp,M.OrdPago AS NumOrdPago,M.IdCiaOdp AS CdCiaOdp,FechaOdp,EstOrden,VrFleteNeto,TipInfVia,NumViaje,CiaInfViaje,CdCatPeaje,M.OrigenAdd,M.Anulado,M.FecDev,M.Observacion AS Observ,M.IdEstado AS CdEstado,Estado,M.TipCom,M.Comprobante,M.IdCiaCom
,M.TimeSys,M.FecUpdate,M.IdCiaCrea,M.IdUsuario AS CdUsuario,Usuario,Leyenda,kmsTotal,VrFleteTon,MA.TipoRuta AS MucTipoRuta,CdLocTrao,CdLocTrad,KmsTraOri,KmsTraDes,MA.IdMneda,MA.VrTasa,MA.NomRemite AS NomRmtente,MA.NomDestino AS NomDestnatario
,MA.LugarFletes AS Lugar_Fletes,NumAnticipo,NumCheque,MA.TipoMintrans AS TipoMucMintrans,MucMintrans,ContIntegral,VolumenCarga,MA.NumPoliza AS NumPolizaMuc,DescFirma,CodEmpresa,TomadorPoliza,PolizaSeguro,NitCiaPoliza,NomCiaPoliza,FecVencePol,MA.MvoAnulacion,MvoSuspension
,PuntosRuta,MA.CantViajes,Transbordo,NumMucAnu,CiaMucAnu,MA.AceptaFirma
--detalles
,MR.Item AS ItemMuc,TipRem,MR.Remesa AS NumRemesa,MR.IdCiaRem AS CdCiaRem,ItemRem,D.IdMercancia AS CdMercancia,DescripMcias,CodigoMcia,D.Cantidad AS Cant,PesoNeto,D.UndMed AS CdUmPeso,UMP.Unidad AS UmPeso,dmsAlto,dmsAncho,dmsLargo,Volumen,UndVol
,Cases,Cajas,Palets,NitRemite,Remitente,DirOrigen,D.IdOrigen AS RemCodOrigen,LO.Localidad AS RemCiudadOrigen,LO.IdDep AS RemCdepOrigen,DOR.Departamento AS RemDptoOrigen,NitDestntario,Destinatario,DirDestino
,D.IdDestino AS RemCodDestino,LD.Localidad AS RemCiudadDestino,LD.IdDep AS RemCdepDestino,DDN.Departamento AS RemDptoDestino,TarifClie,MR.TarifTabla AS TarifaTabla,MR.TarifPago AS TarifaPago,D.VrDeclarado AS DetVrDeclarado,D.VrSeguro AS DetVrSeguro
,TarifSeguro,UndTarifa,UndTarifPago,Remision,DocCliente,Referencia1,Referencia2,Referencia3,Contenedor1,Contenedor2,D.CdAgencia AS DetCdAgencia,DA.Agencia AS DetAgencia
,D.Cumplido AS RemCumplido,D.IdCiaCump AS RemCiaCump,D.FechaCump AS RemFechaCum,DetalleCump,CantidadCump,PesoCump,VolCump,CasesCump,CajasCump,PaletsCump,TarifCump,PagoCump,UndTarCump,UndTarPagoCump
,TipFac,Factura,IdCiaFac,FechaFac,TarifClieFac,D.TipOdp AS RemTipoOdp,D.NumeroOdp AS RemNumOdp,D.IdCiaOdp AS RemCiaOdp,TarifOdp,PesoCont,MR.RemMintrans AS RemMucMintrans,EdoRemMin
,D.IdUnd AS CdUnd,UM.Unidad AS UndMedida,D.IdEmp AS CdEmp,Empaque,D.IdNat AS CdNat,Natlzaprod,D.IdMnjo AS CdMnjo,ManejoMcia,D.IdTmcia AS CdTmcia,TipoMcia,CdRango,DescripRango,CodBodDtno,TipTraslado,CodigoUN
,HorasCargue,HorasDesc,FecInicioCargue,FecFinCargue,FecIniciodesc,FecFindesc,TiempoCargue,TiempoDesc,FecLlegCargue,FecSalidaCargue,FecLlegdesc,FecSalidadesc
,IdCliente,CL.RazonSocial AS RemNomCliente,R.IdClieFact AS RemIdPropMcia,PM.RazonSocial AS RemPropMcia
--Datos del poseedor
,T.TipoId AS TercTipId,T.Dv AS TercDv,T.Codigo AS TercCodigo,T.NomCial AS TercNomCial,T.Direccion AS TercDireccion,T.IdLocal AS TercCdCiudad,L.Localidad AS NomCiudad,T.Telefono AS TercTelefono,T.e_mail AS TercEmail
--Datos del vehiculo
,NumVeh,V.IdTipoVeh AS CdTipVeh,TipoVehiculo,V.IdMarca AS CdMarca,MV.Marca AS MarcaVeh,V.IdLinea AS CdLinVeh,LineaVeh,V.IdColor AS CdColor,NomColor,V.IdCrceria AS CdCarr,TipoCar,V.Modelo,V.Config
,V.PesoVacio,V.PesoMax,V.NumMotor,V.SerieChasis,V.NumSerie,V.CdRemque,NitEmpresa,NE.RazonSocial AS VehNomEmpresa,V.IdPpd AS CdTipProp,TipoProp,VehPropio,TipoAfil,NumSoat,FecSoat,VigSoat,NitEmpSoat,NS.RazonSocial AS CiaAsegurdora
,CertGases,FecCertGas,VigCertGas,V.Descripcion AS VehDescripcion,RQ.PesoKg AS PesoVacioRq
,CT.CertJudicial,CT.FecJudicial,CT.VigJudicial,CT.Licencia,CT.CatLicencia,CT.IdLugar AS CdLugar,EL.LugarLic,CT.FecLicencia,CT.VigLicencia,CDT.Direccion AS CdtDireccion,CDT.Telefono AS CdtTelefono,CDT.TelMovil AS CdtMovil,CDT.e_mail AS CdtEmail
,LC.Localidad AS CdtCiudad,DC.Departamento AS CdtDpto
,CdCondRelev,CRV.RazonSocial AS SegConductor,CTR.CertJudicial  AS CertJudicialRelev,CTR.FecJudicial AS FecJudicialRelev,CTR.VigJudicial AS VigJudicialRelev,CTR.Licencia AS LicenciaRelev,CTR.CatLicencia AS CatLicenciaRelev
,CTR.IdLugar AS CdLugarRelev,ELR.LugarLic AS LugarLicRelev,CTR.FecLicencia AS FecLicenciaRelev,CTR.VigLicencia AS VigLicenciaRelev,CRV.Direccion AS CdtDireccionRelev,CRV.Telefono AS CdtTelefonoRelev,CRV.e_mail AS CdtEmailRelev
,CRV.TelMovil AS CdtMovilRelev,LCR.Localidad AS CdtCiudadRelev, DCR.Departamento AS CdtDptoRelev
 FROM Trn_TraManifiesto AS M INNER JOIN  Trn_TraManifAnexo AS MA ON M.TipDoc=MA.TipDoc AND  M.Manifiesto=MA.Manifiesto AND  M.IdCia=MA.IdCia
 INNER JOIN Trn_TraManifRem AS MR ON M.TipDoc=MR.TipDoc AND  M.Manifiesto=MR.Manifiesto AND  M.IdCia=MR.IdCia
 INNER JOIN Trn_TraRemMcias AS D ON MR.TipRem=D.TipDoc  AND MR.Remesa=D.NumOrden AND MR.IdCiaRem=D.IdCia AND MR.ItemRem=D.Item
 INNER JOIN Trn_TraRemesa AS R ON MR.TipRem=R.TipDoc AND MR.Remesa=R.NumOrden AND MR.IdCiaRem=R.IdCia 
 INNER JOIN Companias AS CN ON M.IdCia=CN.IdCia INNER JOIN Sys_TiposDoc AS TD ON M.TipDoc=TD.IdDoc
 INNER JOIN EstadoDoc AS ED ON M.IdEstado=ED.IdEstado INNER JOIN adm_Usuarios AS U ON M.IdUsuario=U.IdUsuario
 INNER JOIN Localidades AS CO ON  M.IdOrigen=CO.IdLocal INNER JOIN Departamentos AS DPO ON CO.IdDep=DPO.IdDep
 INNER JOIN Localidades AS CD ON M.IdDestino=CD.IdLocal INNER JOIN Departamentos AS DPD ON CD.IdDep=DPD.IdDep
 INNER JOIN Rutas AS RT ON M.IdRuta=RT.IdRuta  INNER JOIN Terceros AS CDT ON M.IdConductor=CDT.IdTercero 
 INNER JOIN Terceros AS NP ON M.IdPropietario=NP.IdTercero INNER JOIN Terceros AS T ON M.IdPoseedor=T.IdTercero
 INNER JOIN Localidades AS L ON T.IdLocal=L.IdLocal  INNER JOIN Localidades AS CF ON M.IdLocFletes=CF.IdLocal
 INNER JOIN Mercancias AS MCA ON D.IdMercancia=MCA.IdMercancia
 INNER JOIN Localidades AS LO ON D.IdOrigen=LO.IdLocal INNER JOIN Departamentos AS DOR ON LO.IdDep=DOR.IdDep
 INNER JOIN Localidades AS LD ON D.IdDestino=LD.IdLocal INNER JOIN Departamentos AS DDN ON LD.IdDep=DDN.IdDep
 INNER JOIN UndMed AS UM ON D.IdUnd=UM.IdUnd INNER JOIN Empaques AS EMP ON D.IdEmp=EMP.IdEmp
 INNER JOIN TiposNat AS NZ ON D.IdNat=NZ.IdNat INNER JOIN TiposMnjo AS MJ ON D.IdMnjo=MJ.IdMnjo
 INNER JOIN TiposMcia AS TM ON D.IdTmcia=TM.IdTmcia 
 INNER JOIN Vehiculos AS V ON M.IdVehiculo=V.IdVehiculo  INNER JOIN TiposVeh AS TV ON V.IdTipoVeh=TV.IdTipoVeh 
 INNER JOIN Marcas AS MV ON V.IdMarca=MV.IdMarca INNER JOIN MarcasLin AS LV ON V.IdLinea=LV.IdLinea 
 INNER JOIN TiposCol AS COL ON V.IdColor=COL.IdColor  INNER JOIN TiposCar AS TC ON V.IdCrceria=TC.IdCrceria 
 INNER JOIN TiposPpt AS TPR ON V.IdPpd=TPR.IdPpd
 INNER JOIN Terceros AS CL ON R.IdCliente=CL.IdTercero LEFT JOIN Terceros AS PM ON R.IdClieFact=PM.IdTercero
 LEFT JOIN Terceros AS NE ON  V.NitEmpresa=NE.IdTercero LEFT JOIN Terceros AS NS ON V.NitEmpSoat=NS.IdTercero
 LEFT JOIN TercCndtores AS CT ON M.IdConductor=CT.IdConductor LEFT JOIN ExpLicencias AS EL ON CT.IdLugar=EL.IdLugar
 LEFT JOIN Agencias AS DA ON D.CdAgencia=DA.IdAgencia  LEFT JOIN Sys_Um AS UMP ON D.UndMed=UMP.UndMed 
 LEFT JOIN RangosPeso AS RP ON D.CdRango=RP.IdRango    LEFT JOIN Rutas AS  RF ON M.IdRutaFle=RF.IdRuta
 LEFT JOIN Polizas AS PS ON MA.NumPoliza=PS.NumPoliza
 LEFT JOIN Trn_TraRemAnexo AS RA ON MR.TipRem=RA.TipDoc AND MR.Remesa=RA.NumOrden AND MR.IdCiaRem=RA.IdCia
 LEFT JOIN VehRemolq AS RQ ON M.nRemolque=RQ.IdRemque
 LEFT JOIN Terceros AS CRV ON M.CdCondRelev=CRV.IdTercero
 LEFT JOIN Localidades AS LCR ON CRV.IdLocal=LCR.IdLocal LEFT JOIN Departamentos AS DCR ON LCR.IdDep=DCR.IdDep
 LEFT JOIN TercCndtores AS CTR ON M.CdCondRelev=CTR.IdConductor LEFT JOIN ExpLicencias AS ELR ON CTR.IdLugar=ELR.IdLugar
 LEFT JOIN Localidades AS LC ON CDT.IdLocal=LC.IdLocal LEFT JOIN Departamentos AS DC ON LC.IdDep=DC.IdDep
 WHERE M.TipDoc=@pmTipDoc AND M.Manifiesto BETWEEN @pmManifiestoIni AND @pmManifiestoFin AND M.IdCia=@pmIdCia
 ORDER BY M.Manifiesto
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paQryProdEntregaLta] @pmTipDoc VARCHAR(3),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
 AS 
SELECT E.TipDoc,TipoDoc,E.NumEntrega,E.IdCia,CI.Compania,E.Fecha,E.FecEntrega,E.TipOrden,E.NumOrden,E.IdCiaOrden,CO.Compania AS CiaOrden
,D.ItemOrden,D.Item,D.IdProducto AS CdProducto,D.Descripcion,D.CantOrden,D.Cantidad,D.Defectuoso,D.Rechazado,D.CostoUnit,D.VrDcto
,D.TipPed,D.Pedido,D.IdCiaPed,D.ItemPed,D.CdTipProc,TipoProceso,D.Tallas,D.ProcFinal,D.Observacion AS Detalle
,E.TipoEntrega,E.CodConcepto,Concepto,E.NitTercero,T.RazonSocial,E.NomContacto,E.TelContacto,E.CostoTotal,E.Descuento,E.CantTotal
,E.EdoOrden,E.IdEstado,ED.Estado,E.Observacion,E.TipCom,E.Comprobante,E.IdCiaCom,E.Anulado,E.NumDev,E.FecDev,E.TimeSys AS FechaCrea,E.IdUsuario,U.Usuario
--Inf. producto
,P.DescripProd,P.TipoRef,P.Referencia,P.CodBarras,G.IdLinea,Linea,SG.IdGrupo,Grupo,P.IdSubgrupo,Subgrupo,P.IdMarca,Marca,P.Tamano,P.Color
,P.UndMed,UM.Unidad AS DescUndMed,P.IdUnd,UM.Unidad,P.Tallaje,P.Inactivo
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 adm_Usuarios AS U ON E.IdUsuario=U.IdUsuario INNER JOIN EstadoDoc AS ED ON E.IdEstado=ED.IdEstado
INNER JOIN Sys_TiposDoc AS TD ON E.TipDoc=TD.IdDoc INNER JOIN Companias AS CI ON E.IdCia=CI.IdCia
INNER JOIN Companias AS CO ON E.IdCiaOrden=CO.IdCia  
INNER JOIN ProdMcias AS P ON D.IdProducto=P.IdProducto INNER JOIN UndMed AS UM ON P.IdUnd=UM.IdUnd
INNER JOIN SubGrupos AS SG ON P.IdSubgrupo=SG.IdSubgrupo INNER JOIN Grupos AS G ON SG.IdGrupo=G.IdGrupo
INNER JOIN Lineas AS L ON G.IdLinea=L.IdLinea INNER JOIN Marcas AS M ON P.IdMarca=M.IdMarca
LEFT JOIN Conceptos AS CN ON E.CodConcepto=CN.IdConcepto LEFT JOIN TiposProceso AS TP ON D.CdTipProc=TP.IdTipProc
LEFT JOIN Terceros AS T ON E.NitTercero=T.IdTercero
WHERE E.TipDoc=@pmTipDoc AND E.Fecha BETWEEN @pmFechaIni AND @pmFechaFin 
AND (E.IdCia=@pmIdCia OR @pmIdCia IS NULL)
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paQryProdOrdenLta] @pmTipDoc VARCHAR(3),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
 AS 
SELECT O.TipDoc,TipoDoc,O.NumOrden,O.IdCia,Compania,O.Fecha,O.IdTipProc,TipoProceso
,D.Item,D.IdProducto AS CdProducto,D.Descripcion,D.Cantidad,D.CostoEst,D.Terminado,D.Defectuoso,D.Rechazado
,D.MotivoDev,D.TipCons,D.NumCons,D.IdCiaCons,D.ItemCons,CD.TipPed,CD.Pedido,CD.IdCiaPed,CD.ItemPed,CD.CantAprob
,CD.Cantidad AS CantConsolida,CD.CantTdo,CD.Tallas,CD.EdoOrden AS EdoConsolida,D.TipEntInv,D.NumEntrada,D.CdCiaEnt,D.ItemKdxEnt,D.CantEntrada
,O.Modalidad,O.ConPago,O.IdTaller AS CdTaller,TL.NomTaller,TL.TelCelular,TL.TipoTaller,O.NitTercero,T.RazonSocial,O.NomContacto,O.TelContacto
,O.EdoOrden,O.ProcFinal,TP.IndOrden AS ProcOrden,O.FecEntrega,O.Num_Entrega AS NumEntArreglo,O.CdCiaEnt AS CiaEntArreglo,EG.FechaUltEnt,EG.MaxNumEntrega AS UltNumEntrega,EG.MaxIdCia AS Cd_CiaEnt
,O.Observacion,O.Anulado,O.FecDev,O.IdEstado,ED.Estado,O.TimeSys AS FechaCrea,O.IdUsuario,U.Usuario
--datos del producto
,P.DescripProd,P.TipoRef,P.Referencia,P.CodBarras,G.IdLinea,Linea,SG.IdGrupo,Grupo,P.IdSubgrupo,Subgrupo,P.IdMarca,Marca,P.Tamano,P.Color
,P.UndMed,UM.Unidad AS DescUndMed,P.IdUnd,UM.Unidad,P.Tallaje,P.Inactivo
--datos del pedidO
,OP.Fecha AS FecPedido,OP.FechaVence,OP.IdCliente,TC.RazonSocial AS NomCliente,OP.IdAgencia,OP.IdVend,VN.RazonSocial AS NomVendedor,OP.DiasEntraga,OP.RefPedido
,OP.TipFac,OP.Factura,OP.IdCiaFac,OP.FechaFact,OP.NumAutSicom as NumOrdenCom
FROM Trn_ProdOrden AS O INNER JOIN Trn_ProdOrdenDet AS D ON O.TipDoc=D.TipDoc AND O.NumOrden=D.NumOrden AND O.IdCia=D.IdCia
INNER JOIN TiposProceso AS TP ON O.IdTipProc=TP.IdTipProc INNER JOIN adm_Usuarios AS U ON O.IdUsuario=U.IdUsuario
INNER JOIN Companias AS CI ON O.IdCia=CI.IdCia INNER JOIN EstadoDoc  AS ED ON O.IdEstado=ED.IdEstado INNER JOIN Sys_TiposDoc AS TD ON O.TipDoc=TD.IdDoc
INNER JOIN Talleres AS TL ON O.IdTaller=TL.IdTaller 
INNER JOIN ProdMcias AS P ON D.IdProducto=P.IdProducto INNER JOIN UndMed AS UM ON P.IdUnd=UM.IdUnd
INNER JOIN SubGrupos AS SG ON P.IdSubgrupo=SG.IdSubgrupo INNER JOIN Grupos AS G ON SG.IdGrupo=G.IdGrupo
INNER JOIN Lineas AS L ON G.IdLinea=L.IdLinea INNER JOIN Marcas AS M ON P.IdMarca=M.IdMarca
LEFT JOIN Terceros AS T ON O.NitTercero=T.IdTercero
LEFT JOIN Trn_ProdConsProc AS CD ON D.TipCons=CD.TipDoc AND D.NumCons=CD.NumCons AND D.IdCiaCons=CD.IdCia AND D.ItemCons=CD.Item
LEFT JOIN Trn_Opedido AS OP ON CD.TipPed=OP.TipDoc AND CD.Pedido=OP.Pedido AND CD.IdCiaPed=OP.IdCia
LEFT JOIN Terceros AS TC ON OP.IdCliente=TC.IdTercero LEFT JOIN Terceros AS VN ON OP.IdVend=VN.IdTercero
--datos ultima entrega
LEFT JOIN (SELECT TipOrden,NumOrden,IdCiaOrden,MAX(FecEntrega) AS FechaUltEnt,MAX(NumEntrega) AS MaxNumEntrega,MAX(IdCia) AS MaxIdCia
FROM Trn_ProdEntrega WHERE TipDoc='OEP' AND Anulado=0 GROUP BY TipOrden,NumOrden,IdCiaOrden) AS EG ON O.TipDoc=EG.TipOrden AND O.NumOrden=EG.NumOrden AND O.IdCia=EG.IdCiaOrden
WHERE O.TipDoc=@pmTipDoc AND O.Fecha BETWEEN @pmFechaIni AND @pmFechaFin
AND (O.IdCia=@pmIdCia OR @pmIdCia IS NULL)
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paQryTallajesLta]
 AS  
SELECT T.IdProducto,DescripProd,T.IdCia,Compania,T.IdBodega,Bodega,T.IdUbic,T.NumTalla,T.Cantidad,T.Pedidos,S.SaldoActual 
,P.TipoRef,P.Referencia,P.CodBarras,G.IdLinea,Linea,SG.IdGrupo,Grupo,P.IdSubgrupo,Subgrupo,P.IdMarca,Marca,P.Tamano,P.Color
,P.UndMed,UM.Unidad AS DescUndMed,P.IdUnd,U.Unidad,P.Tallaje,P.Inactivo
FROM Trn_Tallajes AS T INNER JOIN ProdMcias AS P ON T.IdProducto=P.IdProducto
INNER JOIN Bodegas AS B ON T.IdBodega=B.IdBodega INNER JOIN Companias AS CI ON T.IdCia=CI.IdCia
INNER JOIN SubGrupos AS SG ON P.IdSubgrupo=SG.IdSubgrupo INNER JOIN Grupos AS G ON SG.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 U ON P.IdUnd=U.IdUnd 
LEFT JOIN Sys_Um AS UM ON P.UndMed=UM.UndMed
LEFT JOIN ProdSaldos AS S ON T.IdProducto=S.IdProducto AND T.IdBodega=S.IdBodega AND T.IdCia=S.IdCia
GO

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paQryProdOrdenTallasLta] @pmTipDoc VARCHAR(3),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
AS
SELECT TL.TipDoc,TL.NumOrden,TL.IdCia,O.Fecha,TL.Item,TL.ItemOrden,TL.NumTalla,TL.Cantidad,TL.Terminado,TL.Defectuoso,TL.Rechazado
FROM Trn_ProdOrdenTallas AS TL INNER JOIN Trn_ProdOrden AS O ON TL.TipDoc=O.TipDoc AND TL.NumOrden=O.NumOrden AND TL.IdCia=O.IdCia
WHERE TL.TipDoc=@pmTipDoc AND O.Fecha BETWEEN @pmFechaIni AND @pmFechaFin
AND (TL.IdCia=@pmIdCia OR @pmIdCia IS NULL)
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paQryTallajesMov] @pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmAnnoAnt INT,@pmMesAnt INT
 AS  
SELECT T.IdProducto,DescripProd,T.IdCia,CI.Compania,T.IdBodega,Bodega,T.IdUbic,T.NumTalla,T.Cantidad,T.Pedidos,S.SaldoActual
,D.Fecha,D.TipDoc,TD.TipoDoc,D.Documento,D.IdCia AS DetIdCia,CM.Compania AS DetCompania,D.Item,D.Entradas,D.Salidas,D.CantPedido
,dbo.FuncAcuInvTallasSan(@pmAnnoAnt,@pmMesAnt,D.IdCia,D.IdProducto,D.IdBodega,D.IdUbic,D.NumTalla) AS SaldoAnt,D.ItemKdx,D.IdUbic AS DetUbic
--datos del producto 
,P.TipoRef,P.Referencia,P.CodBarras,G.IdLinea,Linea,SG.IdGrupo,Grupo,P.IdSubgrupo,Subgrupo,P.IdMarca,Marca,P.Tamano,P.Color
,P.UndMed,UM.Unidad AS DescUndMed,P.IdUnd,U.Unidad,P.Tallaje,P.Inactivo
FROM Trn_Tallajes AS T INNER JOIN ProdMcias AS P ON T.IdProducto=P.IdProducto
INNER JOIN Bodegas AS B ON T.IdBodega=B.IdBodega INNER JOIN Companias AS CI ON T.IdCia=CI.IdCia
INNER JOIN SubGrupos AS SG ON P.IdSubgrupo=SG.IdSubgrupo INNER JOIN Grupos AS G ON SG.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 U ON P.IdUnd=U.IdUnd 
LEFT JOIN Trn_TallasMov AS D ON T.IdProducto=D.IdProducto AND T.NumTalla=D.NumTalla AND T.IdCia=D.IdCia AND T.IdBodega=D.IdBodega
LEFT JOIN Sys_TiposDoc AS TD ON D.TipDoc=TD.IdDoc LEFT JOIN Companias AS CM ON D.IdCia=CM.IdCia
LEFT JOIN Sys_Um AS UM ON P.UndMed=UM.UndMed
LEFT JOIN ProdSaldos AS S ON T.IdProducto=S.IdProducto AND T.IdBodega=S.IdBodega AND T.IdCia=S.IdCia
WHERE ((D.Fecha BETWEEN @pmFechaIni AND @pmFechaFin) OR D.Fecha IS NULL)
GO