ÿþUSE [omnilogix_giva_sur] GO /****** Object: Default [dbo].[Set_to_N] Script Date: 03/04/2013 10:56:10 ******/ CREATE DEFAULT [dbo].[Set_to_N] AS 'N' GO /****** Object: Default [dbo].[Set_to_E] Script Date: 03/04/2013 10:56:10 ******/ CREATE DEFAULT [dbo].[Set_to_E] AS 'E' GO /****** Object: Default [dbo].[Set_to_A] Script Date: 03/04/2013 10:56:10 ******/ /****** Object: Default dbo.Set_to_A Script Date: 04/11/1999 01:48:39 PM ******/ CREATE DEFAULT [dbo].[Set_to_A] AS 'A' GO /****** Object: Table [dbo].[ArticuloEnsamblado] Script Date: 03/04/2013 10:56:18 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[ArticuloEnsamblado]( [cCodartic] [char](6) NOT NULL, [nSwneces] [bit] NULL, [nQtdreque] [numeric](15, 2) NULL, [cCodarten] [char](6) NOT NULL, [vObseAdi] [varchar](300) NULL, [nQtdminim] [numeric](15, 2) NULL, [cUndMedEn] [varchar](8) NULL, [nItmensanb] [numeric](9, 0) NULL, CONSTRAINT [PK__ArticuloEnsambla__7E6CC920] PRIMARY KEY NONCLUSTERED ( [cCodartic] ASC, [cCodarten] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[ArticuloAlquilerPrecio] Script Date: 03/04/2013 10:56:18 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[ArticuloAlquilerPrecio]( [cCodArtic] [char](6) NOT NULL, [nNumitem] [numeric](18, 0) NOT NULL, [nNroOrden] [numeric](18, 0) NOT NULL, [cUndMed] [char](3) NULL, [cCodMon] [char](2) NULL, [nMonto] [numeric](18, 2) NULL, [vObsAdi] [varchar](50) NULL, [dtfechaact] [datetime] NULL, [dtfechacrea] [datetime] NULL, [cCodUsrReg] [char](6) NULL, [bFlagActivo] [bit] NULL, CONSTRAINT [PK_ArticuloAlquilerPrecio] PRIMARY KEY CLUSTERED ( [cCodArtic] ASC, [nNumitem] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[MovAlmacenD] Script Date: 03/04/2013 10:56:18 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[MovAlmacenD]( [nNmtItmMv] [numeric](18, 0) NOT NULL, [cCodidart] [char](6) NULL, [cUndmedid] [char](3) NULL, [nCostoArt] [numeric](18, 4) NOT NULL, [nPrecioCom] [numeric](18, 4) NOT NULL, [nQtdMovim] [numeric](18, 2) NOT NULL, [cCodMovAl] [char](10) NOT NULL, [cCodOComp] [char](10) NULL, [nQtdPedida] [numeric](18, 2) NOT NULL, [nQtdEquiv] [numeric](18, 2) NOT NULL, [cUndEquiv] [char](3) NULL, [nTipMov] [tinyint] NOT NULL, [vDscLarga] [varchar](500) NULL, [nNmtItmOC] [numeric](18, 0) NULL, [nCostoProm] [numeric](18, 2) NOT NULL, [nPuntosCanje] [numeric](18, 0) NOT NULL, [iIdCanje] [int] NULL, [cProdPadre] [char](6) NULL, CONSTRAINT [PK__MovAlmacenD__0AD2A005] PRIMARY KEY NONCLUSTERED ( [cCodMovAl] ASC, [nTipMov] ASC, [nNmtItmMv] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'Precio de compra' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'MovAlmacenD', @level2type=N'COLUMN',@level2name=N'nPrecioCom' GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'Cantidad equivalente de E/S a almacen' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'MovAlmacenD', @level2type=N'COLUMN',@level2name=N'nQtdEquiv' GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'Unidad de Medida Equiv de E/S a almacen' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'MovAlmacenD', @level2type=N'COLUMN',@level2name=N'cUndEquiv' GO /****** Object: Table [dbo].[MovAlmacen] Script Date: 03/04/2013 10:56:18 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[MovAlmacen]( [dtFecharg] [datetime] NULL, [cIdoficin] [char](6) NULL, [cCodcosto] [char](6) NULL, [cCodUsrRg] [char](6) NULL, [vObseAdic] [varchar](150) NULL, [cCodAlmac] [char](2) NULL, [dtFechMov] [datetime] NULL, [nImpTotal] [numeric](15, 2) NULL, [cIdTipTra] [char](2) NULL, [cCodMovAl] [char](10) NOT NULL, [cIdTipDoc] [char](2) NULL, [cCodOComp] [char](10) NULL, [cIdTipItm] [char](2) NOT NULL, [nTipMov] [tinyint] NOT NULL, [cUsrRespo] [char](6) NULL, [cTranspor] [char](6) NULL, [cSerieDocRef] [char](4) NULL, [cDocRefer] [char](18) NULL, [cCodProve] [char](15) NULL, [vContProv] [varchar](50) NULL, [vRuc_Tarj] [varchar](11) NULL, [cCodMoned] [char](2) NULL, [cAnioproy] [char](4) NULL, [cCodProyt] [char](6) NULL, [cUsrRecog] [char](6) NULL, [cUsrsolic] [char](6) NULL, [bSwAnulado] [bit] NOT NULL, [nTipoCambio] [numeric](18, 2) NULL, [nPuntosCanje] [numeric](18, 0) NOT NULL, [bSwIncIGV] [bit] NULL, [cCodAlmac2] [char](2) NULL, [nTipMovRef] [tinyint] NULL, [cCodMovAlRef] [char](10) NULL, [dtFechDocRef] [datetime] NULL, [cCodGasto] [char](2) NULL, [bSwIncPercepcion] [bit] NULL, [nMontoPercepcion] [numeric](18, 2) NULL, [FlagDirecto] [int] NULL, CONSTRAINT [PK__MovAlmacen__08EA5793] PRIMARY KEY NONCLUSTERED ( [cCodMovAl] ASC, [nTipMov] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'Ruc o Tarjeta del cliente' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'MovAlmacen', @level2type=N'COLUMN',@level2name=N'vRuc_Tarj' GO /****** Object: UserDefinedFunction [dbo].[fn_RetornarUltimoPrecioCompra] Script Date: 03/04/2013 10:56:20 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO create function [dbo].[fn_RetornarUltimoPrecioCompra] ( @sCod varchar(6) ) returns numeric(18,2) as begin declare @nprecio numeric(18,2) set @nprecio=0 select top 1 @nprecio=d.npreciocom from movalmacen c inner join movalmacend d on c.ntipmov=d.ntipmov and c.ccodmoval=d.ccodmoval where c.ntipmov=1 and d.ccodidart=@sCod order by c.dtfechmov desc return @nprecio end GO /****** Object: UserDefinedFunction [dbo].[fn_RetornarUltimoCostoIngreso] Script Date: 03/04/2013 10:56:20 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO create function [dbo].[fn_RetornarUltimoCostoIngreso] ( @sCod varchar(6) ) returns numeric(18,2) as begin declare @nCosto numeric(18,2) declare @dtfechmov datetime declare @bswincigv bit declare @nCostoArt numeric(18,2) declare @nPrecioCom numeric(18,2) set @nCosto=0 select top 1 @dtfechmov=c.dtfechmov,@bswincigv= c.bswincigv, @nCostoArt=nCostoArt, @nPrecioCom=nPrecioCom from movalmacen c inner join movalmacend d on c.ntipmov=d.ntipmov and c.ccodmoval=d.ccodmoval and c.ntipmov=1 and c.cidtiptra='01' and d.ccodidart=@sCod order by dtfechmov desc if @@rowcount=1 begin if @nCostoArt=0 begin if @bswincigv=0 begin set @nCosto=@nPrecioCom end else begin if @dtfechmov<'20110301' begin set @nCosto=@nPrecioCom/1.19 end else begin set @nCosto=@nPrecioCom/1.18 end end end else begin set @nCosto=@nCostoArt end end return @nCosto end GO /****** Object: Table [dbo].[OrdenServicio] Script Date: 03/04/2013 10:56:20 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[OrdenServicio]( [cCodslcot] [char](7) NULL, [dtFecharg] [datetime] NULL, [cIdoficin] [char](6) NULL, [cCodcosto] [char](6) NULL, [cCodsolic] [char](6) NULL, [ccodestad] [char](2) NULL, [cIdtipitm] [char](7) NULL, [bGenxSolI] [bit] NULL, [cCodOServ] [char](10) NOT NULL, [vObseAdic] [varchar](500) NULL, [cCodProve] [char](7) NOT NULL, [dtFechEnt] [datetime] NULL, [cCodMoned] [char](2) NULL, [cFormaPag] [char](3) NULL, [bSwtaplIGV] [bit] NULL, [nImpTotal] [numeric](15, 2) NULL, [nImporIGV] [numeric](15, 2) NULL, [nSubtotal] [numeric](15, 2) NULL, [cCodSProv] [char](7) NULL, [cUsrAprob] [char](7) NULL, [dtFechaAp] [datetime] NULL, CONSTRAINT [PK__OrdenServicio__1273C1CD] PRIMARY KEY NONCLUSTERED ( [cCodOServ] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[OrdenServicioD] Script Date: 03/04/2013 10:56:20 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[OrdenServicioD]( [nQtdPedid] [char](18) NULL, [nNmtItmOS] [numeric](18, 0) NOT NULL, [cCodidart] [char](6) NULL, [cUndmedid] [char](2) NULL, [nPrecioAr] [numeric](15, 2) NULL, [cCodOServ] [char](10) NOT NULL, [nOtrocarg] [numeric](15, 2) NULL, [nDsctoArt] [numeric](15, 2) NULL, [nPrecioUn] [numeric](15, 2) NULL, [nQtdAtend] [numeric](15, 2) NULL, [ccodestad] [char](2) NULL, [vDscLarga] [varchar](500) NULL, CONSTRAINT [PK__OrdenServicioD__145C0A3F] PRIMARY KEY NONCLUSTERED ( [nNmtItmOS] ASC, [cCodOServ] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[OrdenCompraD] Script Date: 03/04/2013 10:56:20 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[OrdenCompraD]( [nQtdPedid] [char](18) NULL, [nNmItmOC] [numeric](18, 0) NOT NULL, [cCodidart] [char](6) NULL, [cCodOComp] [char](10) NOT NULL, [cUndMedid] [char](3) NULL, [nOtrocarg] [numeric](15, 2) NULL, [nDsctoPor] [numeric](15, 2) NULL, [nValDscto] [numeric](15, 2) NULL, [nPrecioUn] [numeric](15, 2) NULL, [nValVenta] [numeric](15, 2) NULL, [nQtdAtend] [numeric](15, 2) NULL, [nNroOrden] [numeric](18, 0) NULL, [cCodestad] [char](2) NULL, [vDscLarga] [varchar](500) NULL, CONSTRAINT [PK__OrdenCompraD__0EA330E9] PRIMARY KEY NONCLUSTERED ( [nNmItmOC] ASC, [cCodOComp] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[Marca] Script Date: 03/04/2013 10:56:20 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING OFF GO CREATE TABLE [dbo].[Marca]( [cIdtmarca] [char](4) NOT NULL, [vDscmarca] [varchar](30) NULL, PRIMARY KEY NONCLUSTERED ( [cIdtmarca] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[MarcaProveedor] Script Date: 03/04/2013 10:56:20 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING OFF GO CREATE TABLE [dbo].[MarcaProveedor]( [cCodProve] [char](7) NOT NULL, [cIdtmarca] [char](4) NOT NULL, PRIMARY KEY NONCLUSTERED ( [cCodProve] ASC, [cIdtmarca] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[SolicitudInternaD] Script Date: 03/04/2013 10:56:20 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[SolicitudInternaD]( [cCodSolInt] [char](10) NOT NULL, [cCodidart] [char](6) NULL, [nNmItmSol] [numeric](18, 0) NOT NULL, [nQtdPendt] [numeric](15, 2) NULL, [nQtdAtend] [numeric](15, 2) NULL, [nQtdAprob] [numeric](15, 2) NULL, [nQtdSolic] [numeric](15, 2) NULL, [cCodestad] [char](2) NULL, [cCodusrAp] [char](6) NULL, [dtfechapr] [datetime] NULL, [nNroOrden] [numeric](18, 0) NULL, [cUndMedid] [char](3) NULL, CONSTRAINT [PK__SolicitudInterna__24927208] PRIMARY KEY NONCLUSTERED ( [cCodSolInt] ASC, [nNmItmSol] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[OrdenCompraMov] Script Date: 03/04/2013 10:56:20 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[OrdenCompraMov]( [nNmItmOC] [numeric](18, 0) NOT NULL, [dtFechaMv] [datetime] NULL, [cCodMovIt] [char](10) NOT NULL, [cCodNotaI] [char](18) NULL, [nNmtItmNI] [char](18) NULL, [nQtdpenOC] [numeric](15, 2) NULL, [nQtdIngAl] [numeric](15, 2) NULL, [nQtdpedOC] [numeric](15, 2) NULL, [cUsropera] [char](6) NULL, [cCodslcot] [char](10) NULL, [nNmtItmCot] [numeric](18, 0) NULL, [cCodOServ] [char](10) NULL, [nNmtItmOS] [numeric](18, 0) NULL, [cCodOComp] [char](10) NULL, CONSTRAINT [PK__OrdenCompraMov__108B795B] PRIMARY KEY NONCLUSTERED ( [cCodMovIt] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[SolicitudCotizacionD] Script Date: 03/04/2013 10:56:20 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[SolicitudCotizacionD]( [cCodslcot] [char](10) NOT NULL, [cCodestad] [char](2) NULL, [nQtdSolic] [numeric](15, 2) NULL, [nNmtItmCot] [numeric](18, 0) NOT NULL, [cCodidart] [char](6) NULL, [cUndmedid] [char](2) NULL, [nNroOrden] [numeric](18, 0) NULL, [vDscLarga] [varchar](500) NULL, CONSTRAINT [PK__SolicitudCotizac__20C1E124] PRIMARY KEY NONCLUSTERED ( [cCodslcot] ASC, [nNmtItmCot] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[SolicitudProveedorD] Script Date: 03/04/2013 10:56:20 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[SolicitudProveedorD]( [nQtdCotiz] [char](18) NULL, [nNmtItmSP] [numeric](18, 0) NOT NULL, [cCodidart] [char](6) NULL, [cUndmedid] [char](2) NULL, [nPrecioUn] [numeric](15, 2) NULL, [cCodSprov] [char](10) NOT NULL, [nOtrocarg] [numeric](15, 2) NULL, [nDsctoArt] [numeric](15, 2) NULL, [vDscLarga] [varchar](500) NULL, CONSTRAINT [PK__SolicitudProveed__2A4B4B5E] PRIMARY KEY NONCLUSTERED ( [nNmtItmSP] ASC, [cCodSprov] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[OSCListadoArticuloEnsamblado] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[OSCListadoArticuloEnsamblado] @iAccion INT = 0, @cCodArtic CHAR(6) = '', @vDscArtic VARCHAR(150)= '', @bSwActivo BIT = NULL, @bSwInvent BIT = NULL, @bSwEnsamb BIT = NULL, @cUndCompr CHAR(3) = '', @cUndSalida CHAR(3) = '', @vDscmarca VARCHAR(30) = '' AS BEGIN DECLARE @sSQL VARCHAR(4000) IF @iAccion = 0 BEGIN SET @sSQL = ' SELECT cCodArtic, cCodarten, nQtdreque, cUndMedEn, nQtdminim, nSwneces,' SET @sSQL = @sSQL + ' vObseAdi, nItmensanb' SET @sSQL = @sSQL + ' A.bSwInvent, A.bSwEnsamb, A.cIdtmarca, cUndSalida = dbo.fnUM(A.cUndSalida),' SET @sSQL = @sSQL + ' cUndCompr = dbo.fnUM(A.cUndCompr), vDscmarca' SET @sSQL = @sSQL + ' FROM ArticuloEnsamblado AE INNER JOIN Articulo A' SET @sSQL = @sSQL + ' ON AE.cCodArtic = A.cCodArtic WHERE 1 = 1' IF @cCodArtic <> '' SET @sSQL = @sSQL + ' AND cCodArtic LIKE ''%' + @cCodArtic + '%''' IF @vDscArtic <> '' SET @sSQL = @sSQL + ' AND vDscArtic LIKE ''%' + @vDscArtic + '%''' IF @vDscmarca <> '' SET @sSQL = @sSQL + ' AND vDscmarca LIKE ''%' + @vDscmarca + '%''' IF @bSwActivo IS NOT NULL SET @sSQL = @sSQL + ' AND bSwActivo = ' + CONVERT(CHAR,@bSwActivo) IF @bSwInvent IS NOT NULL SET @sSQL = @sSQL + ' AND bSwInvent = ' + CONVERT(CHAR,@bSwInvent) IF @bSwEnsamb IS NOT NULL SET @sSQL = @sSQL + ' AND bSwEnsamb = ' + CONVERT(CHAR,@bSwEnsamb) IF @cUndCompr <> '' SET @sSQL = @sSQL + ' AND cUndCompr = ''' + @cUndCompr + '''' IF @cUndSalida <> '' SET @sSQL = @sSQL + ' AND cUndSalida = ''' + @cUndSalida + '''' EXEC(@sSQL) END IF @iAccion = 1 BEGIN SELECT * FROM ArticuloEnsamblado WHERE cCodArtic = @cCodArtic END END GO /****** Object: Table [dbo].[Articulo] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Articulo]( [cCodArtic] [char](6) NOT NULL, [vDscartic] [varchar](150) NOT NULL, [cCodLinea] [char](6) NOT NULL, [vCodSubLn] [varchar](30) NULL, [cIdTipItm] [char](2) NULL, [bSwActivo] [bit] NULL, [bSwInvent] [bit] NULL, [bSwEnsamb] [bit] NULL, [bFlagVenta] [bit] NULL, [vMedidArt] [char](30) NULL, [cIdtmarca] [char](4) NULL, [vModelArt] [varchar](80) NULL, [vSerieArt] [varchar](80) NULL, [cCodCatal] [varchar](50) NOT NULL, [vNroParte] [varchar](50) NULL, [vUbicaFis] [varchar](80) NULL, [cCodProve] [char](15) NULL, [vObseAdic] [varchar](200) NULL, [cUndSalida] [char](3) NULL, [cUndCompr] [char](3) NULL, [dtFechaAs] [datetime] NULL, [cCodRespo] [char](6) NULL, [dFechCrea] [datetime] NULL, [nFlagServ] [bit] NULL, [nPtosxItem] [numeric](18, 2) NULL, [cFlagCanje] [char](1) NULL, [nPorcServ] [numeric](18, 2) NULL, [vDscArtCt] [varchar](50) NULL, [dFechModi] [datetime] NULL, [bSwCnjb] [bit] NULL, [nPtosCnj] [numeric](18, 0) NULL, [bSwCtrlStck] [bit] NULL, [bFlagDesc] [bit] NULL, [bFlagAlqui] [bit] NULL, [nlugarDespacho] [int] NULL, [i_cod_sp_validacion] [int] NULL, [bFlagDetracc] [bit] NULL, [cCuentaContableCmp] [char](8) NULL, [cCuentaContableVta] [char](8) NULL, [vCodigoBarras] [varchar](30) NULL, CONSTRAINT [PK__Articulo__2B5F6B28] PRIMARY KEY NONCLUSTERED ( [cCodArtic] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'Articulo Descontinuado' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'Articulo', @level2type=N'COLUMN',@level2name=N'bFlagDesc' GO /****** Object: StoredProcedure [dbo].[listar_codigo_validacion_por_articulo] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO /* * Descripcion : Listar los codigos de validacion. * Version : 1 * Modificado : 08/07/2010 */ create proc [dbo].[listar_codigo_validacion_por_articulo] @vc_cod_articulo char(6) as begin select isnull(i_cod_sp_validacion, -1) as i_cod_sp_validacion from articulo (nolock) where cCodArtic = @vc_cod_articulo end GO /****** Object: StoredProcedure [dbo].[OSCListadoMarca] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[OSCListadoMarca] @iAccion INT = 0, @cIdtmarca CHAR(4) = '', @vDscmarca VARCHAR(30) = '' AS BEGIN DECLARE @sSQL VARCHAR(4000) IF @iAccion = 0 BEGIN SET @sSQL = ' SELECT cIdtmarca, vDscmarca' SET @sSQL = @sSQL + ' FROM Marca' SET @sSQL = @sSQL + ' WHERE 1 = 1' IF @cIdtmarca <> '' SET @sSQL = @sSQL + ' AND cIdtmarca LIKE ''%' + @cIdtmarca + '%''' IF @vDscmarca <> '' SET @sSQL = @sSQL + ' AND vDscmarca LIKE ''%' + @vDscmarca + '%''' EXEC(@sSQL) END IF @iAccion = 1 BEGIN SELECT * FROM Marca WHERE cIdtmarca = @cIdtmarca END END GO /****** Object: Table [dbo].[Proveedor] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Proveedor]( [vRazSocPrv] [varchar](100) NULL, [cCodProve] [char](7) NOT NULL, [cIdtrubro] [char](4) NOT NULL, [cRucProve] [char](11) NULL, [vContacto] [char](100) NULL, [vObserAdi] [varchar](150) NULL, [cTelfCelu] [char](18) NULL, [cFaxProve] [char](18) NULL, [cTelefPrv] [char](100) NULL, [vEmailPrv] [varchar](100) NULL, [vPaginweb] [varchar](50) NULL, [vDireccPr] [varchar](150) NULL, [dtFechaReg] [datetime] NULL, [vNomCom] [varchar](100) NULL, [bActivo] [bit] NULL, [bAgenteRet] [bit] NULL, [bBuenContrib] [bit] NULL, [bImportador] [bit] NULL, CONSTRAINT [PK__Proveedor__1A14E395] PRIMARY KEY NONCLUSTERED ( [cCodProve] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[OSCListadoProveedor] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[OSCListadoProveedor] @iAccion INT = 0, @cCodProve CHAR(7) = '', @vDscProve VARCHAR(30) = '' AS BEGIN DECLARE @sSQL VARCHAR(4000) IF @iAccion = 0 BEGIN SET @sSQL = ' SELECT cCodProve, vRazSocPrv' SET @sSQL = @sSQL + ' FROM Proveedor' SET @sSQL = @sSQL + ' WHERE 1 = 1' IF @cCodProve <> '' SET @sSQL = @sSQL + ' AND cCodProve LIKE ''%' + @cCodProve + '%''' IF @vDscProve <> '' SET @sSQL = @sSQL + ' AND vRazSocPrv LIKE ''%' + @vDscProve + '%''' EXEC(@sSQL) END IF @iAccion = 1 BEGIN SELECT * FROM Proveedor WHERE cCodProve = @cCodProve END END GO /****** Object: Table [dbo].[Rubro] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Rubro]( [cIdtrubro] [char](4) NOT NULL, [vDscrubro] [varchar](100) NULL, CONSTRAINT [PK__Rubro__1CF15040] PRIMARY KEY NONCLUSTERED ( [cIdtrubro] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[usp_Mant_Marca] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_Mant_Marca] @iAccion INT = 0, @cIdtmarca char(4) = '', @vDscMarca varchar(30) = '', @cCodNewMka CHAR(4) = '' OUTPUT as begin if @iaccion=0 Begin SELECT @cCodNewMka = RIGHT('0000' + CONVERT(VARCHAR, CONVERT(NUMERIC,ISNULL(MAX(cIdtmarca),'0')) + 1),4) FROM Marca INSERT INTO Marca(cIdtmarca,vDscmarca ) VALUES(@cCodNewMka,@vDscmarca ) End if @iaccion=1 Begin Update Marca set vDscmarca=@vDscmarca where cIdtmarca=@cIdtmarca End end if @iaccion=2 Begin Declare @ocur int set @ocur=1 Select @ocur= count(*) from Articulo Where cIdtmarca=@cIdtmarca if @ocur > 0 begin RAISERROR('Imposible Eliminar Marca existe referencia en Articulos',16,-1) end else begin Delete Marca where cIdtmarca=@cIdtmarca end End GO /****** Object: Table [dbo].[SolicitudProveedor] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[SolicitudProveedor]( [cCodslcot] [char](10) NOT NULL, [dtFecharg] [datetime] NULL, [cIdoficin] [char](6) NULL, [cCodcosto] [char](6) NULL, [cCodsolic] [char](6) NULL, [ccodestad] [char](2) NULL, [bGenxSolI] [bit] NULL, [cCodSprov] [char](10) NOT NULL, [vObseAdic] [varchar](500) NULL, [cCodProve] [char](7) NOT NULL, [cCodAlmac] [char](2) NULL, [dtFechVen] [char](18) NULL, [nDiasVenc] [numeric](18, 0) NULL, [cCodMoned] [char](2) NULL, [cFormaPag] [char](3) NULL, [bSolPrCot] [bit] NULL, [bSolPrEnv] [bit] NULL, [bSolPrEle] [bit] NULL, [nProceden] [tinyint] NULL, [cIdTipItm] [char](2) NOT NULL, CONSTRAINT [PK__SolicitudProveed__286302EC] PRIMARY KEY NONCLUSTERED ( [cCodSprov] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[SolicitudInterna] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[SolicitudInterna]( [cCodSolInt] [char](10) NOT NULL, [cCodcosto] [char](6) NULL, [cCodsolic] [char](6) NULL, [cCodestad] [char](2) NULL, [cCodProyt] [char](6) NULL, [cAnioproy] [char](4) NULL, [cIdoficin] [char](6) NULL, [dtfecharg] [datetime] NULL, [cIdTipItm] [char](2) NOT NULL, [vObseAdic] [varchar](500) NULL, [cPriordoc] [char](2) NULL, CONSTRAINT [PK__SolicitudInterna__22AA2996] PRIMARY KEY NONCLUSTERED ( [cCodSolInt] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[SolicitudCotizacion] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[SolicitudCotizacion]( [cCodslcot] [char](10) NOT NULL, [dtFecharg] [datetime] NULL, [cIdoficin] [char](6) NULL, [cAnioproy] [char](4) NULL, [cCodproyt] [char](6) NULL, [cCodcosto] [char](6) NULL, [cCodsolic] [char](6) NULL, [ccodestad] [char](2) NULL, [bGenxSolI] [bit] NULL, [bGeneraOC] [bit] NULL, [dtFechLim] [datetime] NULL, [vObseAdic] [varchar](500) NULL, [cPriordoc] [char](2) NULL, [cCodMoned] [char](2) NULL, [cIdTipItm] [char](2) NOT NULL, CONSTRAINT [PK__SolicitudCotizac__1ED998B2] PRIMARY KEY NONCLUSTERED ( [cCodslcot] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[OrdenCompra] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[OrdenCompra]( [dtFecharg] [datetime] NULL, [cIdoficin] [char](6) NULL, [cCodcosto] [char](6) NULL, [cCodrespo] [char](6) NULL, [ccodestad] [char](2) NULL, [bGenxSolI] [bit] NULL, [cCodOComp] [char](10) NOT NULL, [vObseAdic] [varchar](500) NULL, [cCodProve] [char](15) NULL, [vContProv] [varchar](50) NULL, [dtFechEnt] [datetime] NULL, [cCodMoned] [char](2) NULL, [cFormaPag] [char](3) NULL, [bSwtaplIGV] [bit] NULL, [nImpTotal] [numeric](15, 2) NULL, [nPorceIGV] [numeric](18, 0) NULL, [nImporIGV] [numeric](15, 2) NULL, [nImpBruto] [numeric](15, 2) NULL, [nImpNeto] [numeric](15, 2) NULL, [nImpDsct] [numeric](15, 2) NULL, [nImpCargo] [numeric](15, 2) NULL, [nProceden] [tinyint] NULL, [cCodSprov] [char](10) NULL, [cUsrAprob] [char](7) NULL, [dtFechaAp] [datetime] NULL, [cIdTipItm] [char](2) NOT NULL, [cPriordoc] [char](2) NULL, [cCodProyt] [char](6) NULL, [cAnioproy] [char](4) NULL, CONSTRAINT [PK__OrdenCompra__0CBAE877] PRIMARY KEY NONCLUSTERED ( [cCodOComp] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'Contacto del proveedor' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'OrdenCompra', @level2type=N'COLUMN',@level2name=N'vContProv' GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'Importacion o compra nacional' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'OrdenCompra', @level2type=N'COLUMN',@level2name=N'nProceden' GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'solitud del proveedor' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'OrdenCompra', @level2type=N'COLUMN',@level2name=N'cCodSprov' GO /****** Object: Table [dbo].[TipoItem] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING OFF GO CREATE TABLE [dbo].[TipoItem]( [vDscItem] [varchar](20) NULL, [cIdTipItm] [char](2) NOT NULL, PRIMARY KEY NONCLUSTERED ( [cIdTipItm] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[usp_Log_OrdenCompraMant] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO CREATE Procedure [dbo].[usp_Log_OrdenCompraMant] /* Realiza las operaciones de mantenimiento de la tabla OrdenCompra Creado por Diana Valderrama enero 2006*/ @iaccion int, @cCodOComp char(10), @dtFecharg datetime= null, @cIdoficin char(6)=null, @cCodcosto char(6)=null, @cCodrespo char(6)=null, @ccodestad char(2)=null, @bGenxSolI bit = 0, @vObseAdic varchar(150)=null, @cCodProve char(15) = null, @vContProv varchar(50)= null, @dtFechEnt datetime = null, @cCodMoned char(2) = null, @cFormaPag char(3) =null, @bSwtaplIGV bit = 0, @nImpTotal varchar(18)= "0.00", @nPorceIGV char(3)= "19", @nImporIGV varchar(18)= "0.00", @nImpbruto varchar(18)= "0.00", @nImpneto varchar(18)= "0.00", @nImpDsct varchar(18)= "0.00", @nImpCargo varchar(18)= "0.00", @nProceden tinyint = 0, @cCodSprov char(10) = null, @cUsrAprob char(10) = null, @dtFechaAp datetime = null, @cCodProyt char(6) = null, @cAnioproy char(4) = null, @cIdTipItm char(2) = null, @cPriordoc char(2) = null As Begin print 'entro' If @iaccion=0 -- Inserta una Orden de Compra begin INSERT INTO OrdenCompra(cCodOComp,dtFecharg,cIdoficin, cCodcosto,cCodrespo,ccodestad, bGenxSolI,vObseAdic, cCodProve,vContProv,dtFechEnt,cCodMoned,cFormaPag,nPorceIGV, bSwtaplIGV, nImpTotal,nImporIGV, nImpBruto, nImpNeto, nImpDsct,nImpCargo, nProceden,cCodSprov,cUsrAprob,dtFechaAp,cCodProyt,cAnioproy, cIdTipItm, cPriordoc) VALUES(@cCodOComp,@dtFecharg,@cIdoficin, @cCodcosto,@cCodrespo,@ccodestad, @bGenxSolI, @vObseAdic, @cCodProve,@vContProv,@dtFechEnt,@cCodMoned, @cFormaPag,@nPorceIGV, @bSwtaplIGV, @nImpTotal,@nImporIGV, @nImpBruto, @nImpNeto, @nImpDsct,@nImpCargo, @nProceden, @cCodSprov,@cUsrAprob,@dtFechaAp,@cCodProyt,@cAnioproy, @cIdTipItm, @cPriordoc) End Else If @iaccion=1 -- Actualiza una Orden de Compra begin Update OrdenCompra set cIdoficin=@cIdoficin, cCodcosto=@cCodcosto ,ccodestad=@ccodestad, vContProv = @vContProv, vObseAdic = @vObseAdic , dtFechEnt=@dtFechEnt, bSwtaplIGV=@bSwtaplIGV, nImpTotal=@nImpTotal, nImporIGV=@nImporIGV, nImpBruto=@nImpBruto , nImpNeto=@nImpNeto, nImpDsct=@nImpDsct,nImpCargo=@nImpCargo, nProceden =@nProceden,cCodSprov=@cCodSprov,cUsrAprob=@cUsrAprob, dtFechaAp=@dtFechaAp,cPriordoc=@cPriordoc, cCodProyt=@cCodProyt,cAnioproy= @cAnioproy Where cCodOComp=@cCodOComp End Else If @iAccion=2 -- Elimina Orden de Compra y su detalle begin Delete From OrdenCompraD Where cCodOComp=@cCodOComp Delete From OrdenCompra Where cCodOComp=@cCodOComp End Else If @iAccion=3 -- Anula una solicitud interna begin Update OrdenCompraD set cCodestad='01' where cCodOComp=@cCodOComp Update OrdenCompra set cCodestad='01' where cCodOComp=@cCodOComp End Else If @iAccion=4 Begin Update OrdenCompra set cCodestad=@cCodestad where cCodOComp=@cCodOComp End End GO /****** Object: StoredProcedure [dbo].[usp_Log_OrdenCompraDetMant] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE Procedure [dbo].[usp_Log_OrdenCompraDetMant] /* Realiza las operaciones de mantenimiento de la tabla SolicitudInternaD Creado por Diana Valderrama Dic 2005*/ @iaccion int, @cCodOComp char(10), @nNmItmOC integer=null, @nNroOrden integer=null, @cCodidart char(7)= null, @cUndmedid char(3)= null, @vDsclarga varchar(500) =null, @nQtdPedid varchar(18)= "0.00", @nPrecioUn varchar(18)= "0.00", @nDsctoPor varchar(18)= "0.00", @nValDscto varchar(18)= "0.00", @nOtrocarg varchar(18)= "0.00", @nValVenta varchar(18)= "0.00", @cCodestad char(2) = null As Begin If @iaccion=0 -- Inserta una solicitud interna Begin Select @nNmItmOC= (isnull(max(nNmItmOC),0) + 1) FROM OrdenCompraD Where cCodOComp=@cCodOComp INSERT INTO OrdenCompraD (cCodOComp,nNmItmOC,nNroOrden,cCodidart,cUndmedid, vDsclarga,nQtdPedid,nPrecioUn,nDsctoPor, nValDscto,nOtrocarg, nValVenta, cCodestad) VALUES (@cCodOComp,@nNmItmOC,@nNroOrden,@cCodidart,@cUndmedid, @vDsclarga,@nQtdPedid,@nPrecioUn,@nDsctoPor, @nValDscto, @nOtrocarg,@nValVenta, @cCodestad) End Else If @iaccion=1 -- Actualiza la Solicitud Interna begin UPDATE OrdenCompraD set nNroOrden= @nNroOrden,cCodidart=@cCodidart,cUndmedid=@cUndmedid, vDsclarga=@vDsclarga,nQtdPedid=@nQtdPedid, nPrecioUn=@nPrecioUn,nDsctoPor=@nDsctoPor,nValDscto=@nValDscto, nOtrocarg= @nOtrocarg, nValVenta=@nValVenta,cCodestad=@cCodestad Where cCodOComp=@cCodOComp and nNmItmOC=@nNmItmOC End ELse If @iaccion=2 -- Elimina items de Solicitud Interna Begin Delete from OrdenComprad Where cCodOComp=@cCodOComp and nNmItmOC=@nNmItmOC End Else If @iaccion=3 -- Cambia estado a items de Solicitud Interna Aprobada o Rechazada Begin UPDATE OrdenComprad set cCodestad=@cCodestad Where cCodOComp=@cCodOComp and nNmItmOC=@nNmItmOC End End GO /****** Object: StoredProcedure [dbo].[usp_Log_DetalleEnsamblado] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[usp_Log_DetalleEnsamblado] @cProdCode char(6), @nProdCant numeric(15,2), @nLugar integer as Begin Declare @EsEnsamblado integer, @UnidadSalida char(2), @FIN integer, @cProdPadre char(6), @nQtdreque numeric(15,2), @nPadreCant numeric(15,2), @cCodarten char(6), @nProdCantDet numeric(15,2), @cAlmaCode char(2), @nProdPrec numeric(15,2), @vDscPadre varchar(80), @vDscArtCt varchar(30), @cUndSalida char(2), @nLugarDespacho integer CREATE TABLE #Tmp_Detalle (cCodidart char(6), cCodundMed char(3), cProdPadre char(6), cCantProd DECIMAL(18,2) , vDscArtCt varchar(30), vDscPadre varchar(30), nLugarDespacho integer ) CREATE TABLE #Tmp_Ensamblado (cCodidart char(6), cCodundMed char(3), cProdPadre char(6), cCantProd DECIMAL(18,2), vDscArtCt varchar(30), vDscPadre varchar(30), ) ------------------LLenando Tabla de Detalle y Ensamblado -------------------------- SELECT @EsEnsamblado= bSwEnsamb, @UnidadSalida= cUndSalida FROM Articulo (NOLOCK) WHERE cCodartic=@cProdCode -------------Evalua Articulo registrado en Venta IF @EsEnsamblado= 1 BEGIN SET @FIN=1 INSERT INTO #Tmp_Ensamblado(cCodidart, cCodundMed, cProdPadre, cCantProd, vDscArtCt, vDscPadre) VALUES(@cProdCode, @UnidadSalida, '', @nProdCant, @vDscArtCt, @vDscPadre) ---Llena Tabla detalle con los articulos incluidos en el ensamblado WHILE @FIN > 0 BEGIN --Captura los datos del ensamblado en Temporal------------ SELECT @cProdPadre=ccodidart, @nPadreCant=cCantProd FROM #Tmp_Ensamblado --Llena cursor con los articulos del ensamblado DECLARE CUR_ENSAMBLADO CURSOR FOR SELECT nQtdreque, cCodarten, (Select vDscArtCt from Articulo where cCodartic= @cProdPadre) FROM ArticuloEnsamblado WHERE cCodartic=@cProdPadre OPEN CUR_ENSAMBLADO FETCH NEXT FROM CUR_ENSAMBLADO INTO @nQtdreque, @cCodarten, @vDscPadre SET @nProdCantDet=0 ---Evalua los articulos del ensamblado y los añade a la tabla Detalle o Ensamblado WHILE @@FETCH_STATUS = 0 BEGIN --- Calcula la cantidad del articulo para registra como salida SET @nProdCantDet=0 SET @nProdCantDet = @nPadreCant * @nQtdReque SELECT @EsEnsamblado= bSwEnsamb, @UnidadSalida= cUndSalida, @vDscArtCt = vDscArtCt, @nLugarDespacho = isnull(nLugarDespacho, 0) FROM Articulo (nolock) WHERE cCodartic=@cCodarten IF @EsEnsamblado= 1 BEGIN INSERT INTO #Tmp_Ensamblado (cCodidart, cCodundMed, cProdPadre, cCantProd, vDscArtCt, vDscPadre) VALUES(@cCodarten, @UnidadSalida, @cProdPadre, @nProdCantDet, @vDscArtCt, @vDscPadre) END ELSE BEGIN INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd, vDscArtCt, vDscPadre, nLugarDespacho) VALUES(@cCodarten, @UnidadSalida, @cProdPadre, @nProdCantDet, @vDscArtCt, @vDscPadre, @nLugarDespacho) END FETCH NEXT FROM CUR_ENSAMBLADO INTO @nQtdreque, @cCodarten, @vDscPadre END CLOSE CUR_ENSAMBLADO DEALLOCATE CUR_ENSAMBLADO DELETE FROM #Tmp_Ensamblado WHERE cCodidart=@cProdPadre SET @FIN=0 SELECT @FIN=COUNT(*) FROM #Tmp_Ensamblado END END Select * from #Tmp_Detalle where nLugarDespacho = @nLugar END GO /****** Object: StoredProcedure [dbo].[usp_Log_SolicitudInternaMant] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO CREATE Procedure [dbo].[usp_Log_SolicitudInternaMant] /* Realiza las operaciones de mantenimiento de la tabla SolicitudInterna Creado por Diana Valderrama Dic 2005*/ @iaccion int, @cCodSolInt char(10) , @cCodcosto char(6) =null, @cCodsolic char(6) =null, @cCodestad char(2) =null, @cCodProyt char(6) =null, @cAnioproy char(4) =null, @cIdoficin char(6) =null, @dtfecharg datetime =null, @cIdTipItm char(2) =null, @vObseAdic varchar(150) =null, @cPriordoc char(2) =null As Begin If @iaccion=0 -- Inserta una solicitud interna begin INSERT INTO SolicitudInterna(cCodSolInt, cCodcosto, cCodsolic, cCodestad, cCodProyt, cAnioproy, cIdoficin, dtfecharg, cIdTipItm, vObseAdic, cPriordoc) VALUES( @cCodSolInt ,@cCodcosto , @cCodsolic , @cCodestad ,@cCodProyt ,@cAnioproy , @cIdoficin , @dtfecharg , @cIdTipItm , @vObseAdic, @cPriordoc ) End Else If @iaccion=1 -- Actualiza una solicitud interna begin Update SolicitudInterna set cCodcosto=@cCodcosto, cCodestad=@cCodestad, cCodProyt=@cCodProyt, cAnioproy=@cAnioproy, cIdoficin=@cIdoficin, vObseAdic= @vObseAdic, cPriordoc=@cPriordoc Where cCodSolInt=@cCodSolInt End Else If @iAccion=2 -- Elimian solicitud interna y su detalle begin Delete From SolicitudInternaD Where cCodSolInt=@cCodSolInt Delete From SolicitudInterna Where cCodSolInt=@cCodSolInt End Else If @iAccion=3 -- Anula una solicitud interna begin Update SolicitudinternaD set cCodestad='01' where cCodSolInt=@cCodSolInt Update Solicitudinterna set cCodestad='01' where cCodSolInt=@cCodSolInt End Else If @iAccion=4 Begin Update Solicitudinterna set cCodestad=@cCodestad where cCodSolInt=@cCodSolInt End End GO /****** Object: StoredProcedure [dbo].[usp_Log_SolicitudInternaDetMant] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO CREATE Procedure [dbo].[usp_Log_SolicitudInternaDetMant] /* Realiza las operaciones de mantenimiento de la tabla SolicitudInternaD Creado por Diana Valderrama Dic 2005*/ @iaccion int, @cCodSolInt char(10), @cCodidart char(7)= null, @nNmItmSol integer=null, @nNroOrden integer=null, --@nQtdPendt decimal(15,2)= null, --@nQtdAtend decimal(15,2)= null, --@nQtdAprob decimal(15,2)= null, --@nQtdSolic decimal(15,2)= null, @nQtdPendt varchar(18)= "0.00", @nQtdAtend varchar(18)= "0.00", @nQtdAprob varchar(18)= "0.00", @nQtdSolic varchar(18)= "0.00", @cCodestad char(2) = null, @cCodusrAp char(6) = null, @cUndmedid char(3)= null, @dtfechapr datetime = null As Begin If @iaccion=0 -- Inserta una solicitud interna Begin Select @nNmItmSol= (isnull(max(nNmItmSol),0) + 1) FROM SolicitudInternaD Where cCodSolInt=@cCodSolInt INSERT INTO SolicitudInternaD (cCodSolInt, cCodidart, nNmItmSol, nNroOrden, nQtdPendt, nQtdAtend, nQtdAprob, nQtdSolic, cCodestad, cCodusrAp, cUndmedid, dtfechapr) VALUES (@cCodSolInt, @cCodidart, @nNmItmSol, @nNroOrden, @nQtdPendt, @nQtdAtend, @nQtdAprob, @nQtdSolic, @cCodestad, @cCodusrAp, @cUndmedid, @dtfechapr) End Else If @iaccion=1 -- Actualiza la Solicitud Interna begin UPDATE SolicitudInternaD set cCodidart=@cCodidart , nNroOrden= @nNroOrden, nQtdPendt=@nQtdPendt, nQtdAtend=@nQtdAtend, nQtdAprob=@nQtdAprob, nQtdSolic=@nQtdSolic, cCodestad=@cCodestad, cCodusrAp=@cCodusrAp, cUndmedid=@cUndmedid, dtfechapr=@dtfechapr Where cCodSolInt=@cCodSolInt and nNmItmSol=@nNmItmSol End ELse If @iaccion=2 -- Elimina items de Solicitud Interna Begin Delete from SolicitudInternad Where cCodSolInt=@cCodSolInt and nNmItmSol=@nNmItmSol End Else If @iaccion=3 -- Cambia estado a items de Solicitud Interna Aprobada o Rechazada Begin UPDATE SolicitudInternaD set nQtdAprob=@nQtdAprob,cCodusrAp=@cCodusrAp, cCodestad=@cCodestad, dtfechapr=@dtfechapr Where cCodSolInt=@cCodSolInt and nNmItmSol=@nNmItmSol End End GO /****** Object: StoredProcedure [dbo].[usp_Log_ArticulosList] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE Procedure [dbo].[usp_Log_ArticulosList] /* Lista Los Articulos Creado por Diana Valderrama */ @Accion Int = 0, @carticulos_id char(50) = '*', @canje char(1)='*' As Begin Declare @cnj as bit If @Accion = 0 Begin If @canje = '*' begin set @cnj=0 end else begin set @cnj=@canje end SELECT Código = cCodCatal, ' Descripción ' = vDscartic FROM articulo WHERE (cCodCatal = RTRIM(LTRIM(@carticulos_id)) OR @carticulos_id = '*' OR cCodartic=rtrim(ltrim(@carticulos_Id))) and (bSwCnjb=@cnj or @canje='*') End End GO /****** Object: StoredProcedure [dbo].[OSCMAntArticuloEnsamblado] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[OSCMAntArticuloEnsamblado] @iAccion INT = 0, @cCodArtic char(6) = '', @cCodarten char(6) = '', @nQtdreque varchar(18) = '0.0', @cUndMedEn varchar(8) = '', @nQtdminim varchar(18) = '0.0', @nSwneces bit = NULL, @vObseAdi varchar(300) = '', @nItmensanb varchar(18) = '0.0' AS BEGIN IF @iAccion = 0 BEGIN INSERT INTO ArticuloEnsamblado( cCodArtic, cCodarten, nQtdreque, cUndMedEn, nQtdminim, nSwneces, vObseAdi, nItmensanb ) VALUES ( @cCodArtic, @cCodarten, @nQtdreque, @cUndMedEn, @nQtdminim, @nSwneces, @vObseAdi, @nItmensanb ) END IF @iAccion = 1 BEGIN UPDATE ArticuloEnsamblado SET nQtdreque = @nQtdreque, cUndMedEn = @cUndMedEn, nQtdminim = @nQtdminim, nSwneces = @nSwneces, vObseAdi = @vObseAdi, nItmensanb = @nItmensanb WHERE cCodArtic = @cCodArtic AND cCodarten = @cCodarten END IF @iAccion = 2 BEGIN DELETE FROM ArticuloEnsamblado WHERE cCodArtic = @cCodArtic AND cCodarten = @cCodarten END END GO /****** Object: Table [dbo].[KARDEX] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[KARDEX]( [iPeriodo] [int] NOT NULL, [iAnho] [int] NOT NULL, [iITM] [int] NOT NULL, [cCodidart] [char](6) NOT NULL, [cCodAlmac] [char](2) NOT NULL, [iFlagInventario] [int] NOT NULL, [dtFechaMov] [datetime] NULL, [nCantidadIng] [numeric](18, 2) NOT NULL, [nCostoIng] [numeric](18, 4) NOT NULL, [nTotalIng] [numeric](18, 4) NOT NULL, [nCantidadSal] [numeric](18, 2) NOT NULL, [nCostoSal] [numeric](18, 4) NOT NULL, [nTotalSal] [numeric](18, 4) NOT NULL, [nCantidad] [numeric](18, 2) NOT NULL, [nCosto] [numeric](18, 4) NOT NULL, [nTotal] [numeric](18, 4) NOT NULL, [cFlagCerrado] [char](1) NULL, [cCodMovAl] [char](10) NULL, [nTipMov] [tinyint] NOT NULL, [cIdTipTra] [char](2) NULL, [cIdTipDoc] [char](2) NULL, [cSerieDocRef] [char](3) NULL, [cDocRefer] [char](18) NULL, [cCodProve] [char](15) NULL, [vContProv] [varchar](50) NULL, CONSTRAINT [PK_KARDEX] PRIMARY KEY CLUSTERED ( [iPeriodo] ASC, [iAnho] ASC, [iITM] ASC, [cCodidart] ASC, [cCodAlmac] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[ArticuloAlmacen] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[ArticuloAlmacen]( [cCodAlmac] [char](2) NOT NULL, [cCodArtic] [char](6) NOT NULL, [nStockAl] [numeric](15, 2) NULL, [nCostoArt] [numeric](15, 4) NULL, [nStockmin] [numeric](15, 2) NULL, [nStockmax] [numeric](15, 2) NULL, [nPunto_pedido] [numeric](18, 4) NULL, [nPunto_repos] [numeric](15, 2) NULL, [dtUltIngAlm] [datetime] NULL, [dtUltSalAlm] [datetime] NULL, [dtFecAproxEnt] [datetime] NULL, [nTransito] [numeric](15, 2) NULL, [nComprometido] [numeric](15, 2) NULL, [cCodmn_ult_com] [char](2) NULL, [nCosto_ult_com] [numeric](15, 4) NULL, [nCostoMN_ult_com] [numeric](15, 4) NULL, [cCodmn_ult_vta] [char](2) NULL, [nPrecio_ult_vta] [numeric](15, 4) NULL, [nPreMN_ult_vta] [numeric](15, 4) NULL, [nUtilidad_art] [numeric](18, 0) NULL, CONSTRAINT [PK__ArticuloAlmacen__4CC05EF3] PRIMARY KEY NONCLUSTERED ( [cCodAlmac] ASC, [cCodArtic] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[usp_calcula_costo] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_calcula_costo] @ccodartic char(6) = '000058', @ccodalmac char(2) = '01', @nResult int OUTPUT AS BEGIN declare @anho integer, @periodo integer, @nCantidad numeric(18,2), @nCosto numeric(18,2), @nTotal numeric(18,2), @periodonext integer, @anhoNext integer, @anhoCorte integer, @periodoCorte integer, @fechaini datetime, @fechainvfin datetime, @existe integer -------------Valores de iFlaginventario--- -- 1 -- Inventario Inicial -- 2 -- Inventario Final -- 0 -- Linea de Kardex ------------------------------------------ BEGIN TRAN -----Elimina los inventarios abiertos para reprocesarlos----------------- DELETE FROM Kardex WHERE cCodidart = @cCodartic AND ccodAlmac = @cCodalmac AND cFlagcerrado= 0 IF @@ERROR<>0 BEGIN SET @nResult = 1 ROLLBACK TRAN RETURN END ---------------------Localizando inventario Final ----------------------- SET @anho=(SELECT MAX(ianho) FROM Kardex WHERE ccodidart= @ccodartic and iFlaginventario= 2 ) SET @periodo=0 SELECT @periodo=isnull(Max(iperiodo),0) FROM Kardex (nolock) WHERE cflagcerrado= 1 AND ccodidart = @cCodartic AND ianho = @anho AND iFlaginventario= 2 ------- Si no tiene inventario final => captura fecha de primer movimiento --------- IF @periodo = 0 BEGIN SET @fechaINI= '1800.01.01' SELECT @fechaini= isnull(MIN(m.dtFechMov), '1800.01.01') FROM MovalmacenD d (nolock) LEFT OUTER JOIN Movalmacen m ON d.cCodMovAl = m.cCodMovAl AND d.nTipMov = m.nTipMov WHERE d.cCodidart = @cCodartic AND m.cCodAlmac = @cCodAlmac SET @periodo = MONTH(@fechaIni) SET @anho = YEAR (@fechaIni) END -----------------Inicio de proceso ------------------------- IF @anho=1800 BEGIN ------No hay movimientos de articulo --------- UPDATE ArticuloAlmacen SET nStockAl = 0, nCostoArt = 0, dtUltIngAlm = null, dtUltSalAlm = null, dtFecAproxEnt = null, nTransito = 0, nComprometido = 0 , nCosto_ult_com = 0, nCostoMN_ult_com = 0 , nPrecio_ult_vta = 0, nPreMN_ult_vta = 0 , nUtilidad_art = 0 WHERE cCodAlmac = @cCodalmac AND cCodArtic = @cCodArtic IF @@ERROR<>0 BEGIN SET @nResult = 1 ROLLBACK TRAN RETURN END END ELSE BEGIN ------Hay movimientos de articulo --------- ------- Consistenciando linea en Articulo Almacen ------------ SET @existe = 0 SELECT @existe = count(*) FROM ArticuloAlmacen (nolock) WHERE cCodAlmac = @cCodalmac AND cCodArtic = @cCodArtic IF @Existe = 0 -----Si no existe, se crea la entrada en ArticuloAlmacen BEGIN INSERT INTO ArticuloAlmacen (cCodAlmac, cCodArtic, nStockAl, nCostoArt, nStockmin, nStockmax, nPunto_pedido, nPunto_repos, dtUltIngAlm, dtUltSalAlm, dtFecAproxEnt, nTransito, nComprometido, cCodmn_ult_com, nCosto_ult_com, nCostoMN_ult_com, cCodmn_ult_vta, nPrecio_ult_vta, nPreMN_ult_vta, nUtilidad_art) VALUES (@cCodAlmac, @cCodArtic, 0, 0, 0, 0, 0, 0, NULL, NULL, NULL, 0, 0, NULL, 0, 0, NULL, 0, 0,0) IF @@ERROR<>0 BEGIN SET @nResult = 1 ROLLBACK TRAN RETURN END END ------------------------Crea inventario----------------------------------- SET @nCantidad = 0 SET @nCosto = 0 SET @nTotal = 0 SET @fechainvfin = '1800.01.01' ------- Obtiene cantidad, costo, total y fecha inv. final del articulo ------ SELECT @nCantidad=isnull(nCantidad,0), @nCosto=isnull(nCosto,0), @nTotal=isnull(nTotal,0), @fechainvfin=isnull(dtfechaMov, '1800.01.01') FROM Kardex (nolock) WHERE iAnho = @anho AND iperiodo = @periodo AND ccodAlmac= @ccodalmac AND iFlagInventario = 2 SET @periodonext= @periodo + 1 SET @anhoNext = @anho -------Asigna periodo de primer mov. de almacen a inventario inicial ----- IF ISNULL(@fechainvfin,'1800.01.01') = '1800.01.01' Begin SET @periodonext = 1 SET @anhonext = year(@fechaini) SET @fechainvfin = CONVERT(DATETIME,(CONVERT(CHAR(4),@anhonext) + '.01.01')) END IF @periodonext > 12 BEGIN SET @periodoNext = 1 SET @anhoNext = @anho + 1 END --------------------Insertando Inventario Inicial ------------------------ INSERT INTO KARDEX (iPeriodo, iAnho , iFlagInventario , iItm, cCodidart, dtFechaMov, nCantidadIng, nCostoIng, nTotalIng, nCantidadSal, nCostoSal, nTotalSal, nCantidad, nCosto , nTotal, cFlagCerrado , cCodAlmac) VALUES (@periodonext, @anhoNext, 1, 0, @cCodartic, @fechainvfin, 0,0, 0, 0, 0, 0, @nCantidad, @nCosto, @nTotal, 0, @cCodAlmac ) IF @@ERROR<>0 BEGIN SET @nResult = 1 ROLLBACK TRAN RETURN END ------------------Inicializando variables para inventario ---------------- -------Procesando los costos y stocks de los movimientos de almacen ------ DECLARE @nCostoArt numeric(18,4), @nPrecioCom numeric(18,4), @nQtdEquiv numeric(18,4), @nTipMov tinyint , @dtFechMov datetime , @cCodMovAl char(10) , @cIdTipDoc char(2) , @cIdTipTra char(2) , @cSerieDocRef char(3), @cDocRefer char(18), @cCodProve char(15) , @vContProv varchar(50) , @cCodMoned char(2) , @nCantidadIng numeric(18,4), @nCostoIng numeric(18,4), @nTotalIng numeric(18,4), @nCantidadSal numeric(18,4), @nCostoSal numeric(18,4), @nTotalSal numeric(18,4), @nCostoProm numeric(18,4), @stock numeric(18,4), @nNmtItmMv integer, @itm integer SET @nCostoArt = 0 SET @nPrecioCom = 0 SET @nQtdEquiv = 0 SET @nTipMov = 0 SET @dtFechMov = '1800.01.01' SET @nCostoProm = 0 SET @stock = 0 SET @nNmtItmMv = 0 SET @ITM = 0 ----- Obtiene los movimientos producidos luego del ultimo inventario final ------- DECLARE cur_movimientos CURSOR FOR SELECT d.nNmtItmMv, d.nCostoArt, d.nPrecioCom, d.nQtdEquiv, d.nTipMov, m.dtFechMov, m.cCodMovAl, m.cIdTipDoc, m.cSerieDocRef, m.cDocRefer, m.cCodProve, m.vContProv, cidTipTra, cCodMoned FROM MovAlmacenD d (nolock) LEFT OUTER JOIN MovAlmacen m ON m.cCodMovAl= d.cCodMovAl AND m.ntipMov = d.ntipMov WHERE cCodidart = @ccodartic AND m.ccodalmac = @ccodalmac AND m.dtFechmov > @fechainvfin AND m.bswAnulado = '0' ORDER BY m.dtFechMov asc, d.ntipMov OPEN cur_movimientos FETCH NEXT FROM cur_movimientos INTO @nNmtItmMv, @nCostoArt, @nPrecioCom, @nQtdEquiv, @nTipMov, @dtFechMov, @cCodMovAl, @cIdTipDoc, @cSerieDocRef, @cDocRefer, @cCodProve, @vContProv, @cidTipTra, @cCodMoned SET @stock=@nCantidad IF @nTipMov= 1 BEGIN SET @nCostoProm = @nCosto END ELSE BEGIN SET @nCostoProm = 0 END WHILE @@FETCH_STATUS = 0 BEGIN ---------- Insertando Inventario Inicial por periodo ------------- ---------- hasta la fecha del movimiento -------------------------- WHILE ((@periodoNext <> month(@dtFechMov) or @anhonext <> year(@dtFechMov)) AND (@periodoNext<=month(getdate()) or @anho<year(getdate())) ) BEGIN SET @periodoNext = @periodoNext + 1 IF @periodonext > 12 BEGIN SET @periodoNext= 1 SET @anhoNext = @anhonext + 1 END declare @fecha varchar(10) SET @fecha = (CONVERT(CHAR(4),@anhonext) + '.' + RIGHT('00' + RTRIM(LTRIM(CONVERT(CHAR(2),@periodoNext))),2) + '.01') SET @fechainvfin = convert(datetime, @fecha) --------------------Insertando Inventario Inicial ------------------------ INSERT INTO KARDEX(iPeriodo, iAnho , iFlagInventario , iItm, cCodidart, dtFechaMov, nCantidadIng, nCostoIng, nTotalIng, nCantidadSal, nCostoSal, nTotalSal, nCantidad, nCosto , nTotal, cFlagCerrado , cCodAlmac) VALUES(@periodonext, @anhoNext, 1, 0, @cCodartic, @fechainvfin, 0,0, 0, 0, 0, 0, @stock, @nCostoProm, (@stock * @nCostoProm), 0, @cCodAlmac ) IF @@ERROR<>0 BEGIN SET @nResult = 1 CLOSE cur_movimientos DEALLOCATE cur_movimientos ROLLBACK TRAN RETURN END END ---------------------------------------------------------------------- SET @itm= @itm + 1 SET @nCantidadIng= 0 SET @nCostoIng=0 SET @nTotalIng=0 SET @nCantidadSal =0 SET @nCostoSal=0 SET @nTotalSal=0 IF @nTipMov= 1 BEGIN SET @nCantidadIng= @nQtdEquiv --IF @nCostOArt = 0 BEGIN SET @nCostoArt = @nCostoProm END SET @nCostoIng = @nCostoArt IF @stock + @nQtdEquiv = 0 BEGIN SET @nCostoProm = 0 END ELSE BEGIN SET @nCostoProm = ((@nCostoProm * @stock) + (@nCostoIng * @nQtdEquiv)) / (@stock + @nQtdEquiv) END SET @stock= @stock + @nQtdEquiv END ELSE BEGIN SET @nCantidadSal = @nQtdEquiv SET @nCostoSal = @nCostoProm SET @stock= @stock - @nQtdEquiv END INSERT INTO KARDEX (iPeriodo, iAnho , iFlagInventario , iItm, cCodidart, dtFechaMov, cCodMovAl, ntipMov, cidTipTra, cIdTipDoc, cSerieDocRef, cDocRefer, cCodProve, vContProv, nCantidadIng, nCostoIng, nTotalIng, nCantidadSal, nCostoSal, nTotalSal, nCantidad, nCosto, nTotal, cFlagCerrado, cCodAlmac) VALUES (@periodonext, @anhoNext, 0, @itm, @cCodartic, @dtFechMov, @cCodMovAl, @ntipMov, @cidTipTra, @cIdTipDoc, @cSerieDocRef, @cDocRefer, @cCodProve, @vContProv, @nCantidadIng, @nCostoIng, (@nCantidadIng*@nCostoIng), @nCantidadSal, @nCostoSal, (@nCantidadSal*@nCostoSal), @stock, @nCostoProm, (@stock * @nCostoProm), 0, @cCodAlmac ) IF @@ERROR<>0 BEGIN SET @nResult = 1 CLOSE cur_movimientos DEALLOCATE cur_movimientos ROLLBACK TRAN RETURN END UPDATE MovAlmacend SET nCostoProm= @nCostoProm --- nCostoArt = @nCostoArt WHERE cCodMoval = @cCodMovAl AND nTipMov = @ntipMov AND nNmtItmMv = @nNmtItmMv IF @@ERROR<>0 BEGIN SET @nResult = 1 CLOSE cur_movimientos DEALLOCATE cur_movimientos ROLLBACK TRAN RETURN END ----------Actualizando datos en Articulo Almacen ----- IF @nTipMov= 1 BEGIN UPDATE ArticuloAlmacen SET dtultIngalm= @dtFechMov WHERE cCodartic=@cCodartic AND cCodAlmac=@cCodAlmac END ELSE BEGIN UPDATE ArticuloAlmacen SET dtultSalAlm= @dtFechMov WHERE cCodartic=@cCodartic AND cCodAlmac=@cCodAlmac END IF @@ERROR<>0 BEGIN SET @nResult = 1 CLOSE cur_movimientos DEALLOCATE cur_movimientos ROLLBACK TRAN RETURN END IF @nTipMov= 1 AND @cidTipTra = '01' BEGIN --compra UPDATE ArticuloAlmacen SET cCodmn_ult_com = @cCodMoned , nCosto_ult_com = @nPrecioCom , nCostoArt = @nCostoProm , nStockAl = @stock WHERE cCodartic = @cCodartic AND cCodAlmac = @cCodAlmac IF @@ERROR<>0 BEGIN SET @nResult = 1 CLOSE cur_movimientos DEALLOCATE cur_movimientos ROLLBACK TRAN RETURN END END ELSE BEGIN UPDATE ArticuloAlmacen SET -- nCostoArt = @nCostoProm , nStockAl = @stock WHERE cCodartic = @cCodartic AND cCodAlmac = @cCodAlmac IF @@ERROR<>0 BEGIN SET @nResult = 1 CLOSE cur_movimientos DEALLOCATE cur_movimientos ROLLBACK TRAN RETURN END END -----------Fin de actualizar articulo Almacen -------- FETCH NEXT FROM cur_movimientos INTO @nNmtItmMv, @nCostoArt, @nPrecioCom, @nQtdEquiv, @nTipMov, @dtFechMov, @cCodMovAl, @cIdTipDoc, @cSerieDocRef, @cDocRefer, @cCodProve, @vContProv, @cidTipTra, @cCodMoned END CLOSE cur_movimientos DEALLOCATE cur_movimientos END SET @nResult =0 COMMIT TRAN END GO /****** Object: StoredProcedure [dbo].[usp_Procesa_Kardex] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO --sw Modificado para Lineas y Sub Lineas CREATE PROCEDURE [dbo].[usp_Procesa_Kardex] @iaccion integer =0 , @cCodAlmac CHAR(2)= null, @cCodartic CHAR(6)= null, @cCodLinea CHAR(6)= null, @cCodSubLinea VARCHAR(30)=null, @nResult int OUTPUT AS BEGIN declare @lineaLocal char(6) declare @articLocal char(6) declare @sublineaLocal char(30) declare @almaLocal char(2) --DECLARE @cCodAlmac CHAR(2), -- @cCodartic CHAR(6) IF @iaccion=0 BEGIN DECLARE cur_almacen CURSOR FOR SELECT DISTINCT(cCodAlmac) FROM MovAlmacen (nolock) -------------Procesando Kardex po almacenes OPEN cur_almacen FETCH NEXT FROM cur_almacen into @cCodAlmac WHILE @@FETCH_STATUS = 0 BEGIN -----------Procesando Kardex por articulos con control de stock y no descontinuados DECLARE cur_articulos CURSOR FOR SELECT cCodartic FROM Articulo (nolock) WHERE bSwCtrlStCk= '1' AND bFlagDesc= '0' OPEN cur_articulos FETCH NEXT FROM cur_articulos into @cCodartic WHILE @@FETCH_STATUS = 0 BEGIN EXECUTE usp_calcula_costo @cCodartic, @cCodalmac,@nResult OUTPUT IF @nResult>0 BEGIN SET @nResult=1 CLOSE cur_articulos DEALLOCATE cur_articulos CLOSE cur_almacen DEALLOCATE cur_almacen RETURN END FETCH NEXT FROM cur_articulos into @cCodartic END DEALLOCATE cur_Articulos FETCH NEXT FROM cur_almacen into @cCodAlmac END DEALLOCATE cur_almacen END IF @iaccion=1 BEGIN --'SOLO POR ALMACEN ' -----------Procesando Kardex por articulos con control de stock y no descontinuados DECLARE cur_articulos CURSOR FOR SELECT cCodartic FROM Articulo (nolock) WHERE bSwCtrlStCk= '1' AND bFlagDesc= '0' OPEN cur_articulos FETCH NEXT FROM cur_articulos into @cCodartic WHILE @@FETCH_STATUS = 0 BEGIN EXECUTE usp_calcula_costo @cCodartic, @cCodalmac, @nResult OUTPUT IF @nResult>0 BEGIN SET @nResult=1 CLOSE cur_Articulos --sw cur_almacen DEALLOCATE cur_Articulos --sw cur_almacen RETURN END FETCH NEXT FROM cur_articulos into @cCodartic END DEALLOCATE cur_Articulos END IF @iaccion=2 BEGIN --'SOLO POR ARTICULO ' DECLARE cur_almacen CURSOR FOR SELECT DISTINCT(cCodAlmac) FROM MovAlmacen (nolock) OPEN cur_almacen FETCH NEXT FROM cur_almacen into @cCodAlmac WHILE @@FETCH_STATUS = 0 BEGIN EXECUTE usp_calcula_costo @cCodartic, @cCodalmac,@nResult OUTPUT IF @nResult>0 BEGIN SET @nResult=1 CLOSE cur_almacen DEALLOCATE cur_almacen RETURN END FETCH NEXT FROM cur_almacen into @cCodAlmac END DEALLOCATE cur_almacen END IF @iaccion=3 BEGIN --Por articulo y almacen EXECUTE usp_calcula_costo @cCodartic, @cCodalmac ,@nResult OUTPUT IF @nResult>0 BEGIN SET @nResult=1 RETURN END END IF @iaccion=4 BEGIN --Por Linea set @nResult = 0 --sw Asegurarse que inicie el SP sin problemas --sw print '--- SW AQUI ---' --sw print 'LINEA: ' +@cCodLinea declare cur_artic cursor for Select cCodartic from articulo (nolock) where cCodLinea = @cCodLinea open cur_artic fetch next from cur_artic into @articLocal while @@fetch_status = 0 begin --sw B --sw print 'ARTICULO: ' +@articLocal DECLARE cur_alma CURSOR FOR SELECT DISTINCT(cCodAlmac) FROM MovAlmacen (nolock) open cur_alma fetch next from cur_alma into @almaLocal while @@fetch_status = 0 begin --sw A --sw print 'ALMACEN: ' +@almaLocal set @nResult = 0 --sw Asefurarse que inicie el SP sin problemas EXECUTE usp_calcula_costo @articLocal, @almaLocal, @nResult OUTPUT IF @nResult>0 BEGIN SET @nResult=1 CLOSE cur_alma DEALLOCATE cur_alma --sw RETURN break END fetch next from cur_alma into @almaLocal end --sw A CLOSE cur_alma DEALLOCATE cur_alma fetch next from cur_artic into @articLocal end --sw B CLOSE cur_artic DEALLOCATE cur_artic END IF @iaccion=5 BEGIN --Por Almacen + Linea set @nResult = 0 --sw Asegurarse que inicie el SP sin problemas --sw print '--- SW AQUI ---' --sw print 'LINEA: ' +@cCodLinea declare cur_artic cursor for Select cCodartic from articulo (nolock) where cCodLinea = @cCodLinea open cur_artic fetch next from cur_artic into @articLocal while @@fetch_status = 0 begin --sw B --sw print 'ARTICULO: ' +@articLocal --sw print 'ALMACEN: ' +@cCodAlmac set @nResult = 0 --sw Asefurarse que inicie el SP sin problemas EXECUTE usp_calcula_costo @articLocal, @cCodAlmac, @nResult OUTPUT IF @nResult>0 BEGIN SET @nResult=1 CLOSE cur_artic DEALLOCATE cur_artic --sw RETURN break END fetch next from cur_artic into @articLocal end --sw B CLOSE cur_artic DEALLOCATE cur_artic END IF @iaccion=6 BEGIN --Por SubLinea set @nResult = 0 --sw Asegurarse que inicie el SP sin problemas --sw print '--- SW AQUI ---' --sw print 'SUBLINEA: ' +@cCodSubLinea declare cur_artic cursor for Select cCodartic from articulo (nolock) where vCodSubLn = @cCodSubLinea open cur_artic fetch next from cur_artic into @articLocal while @@fetch_status = 0 begin --sw B --sw print 'ARTICULO: ' +@articLocal DECLARE cur_alma CURSOR FOR SELECT DISTINCT(cCodAlmac) FROM MovAlmacen (nolock) open cur_alma fetch next from cur_alma into @almaLocal while @@fetch_status = 0 begin --sw A --sw print 'ALMACEN: ' +@almaLocal set @nResult = 0 --sw Asefurarse que inicie el SP sin problemas EXECUTE usp_calcula_costo @articLocal, @almaLocal, @nResult OUTPUT IF @nResult>0 BEGIN SET @nResult=1 CLOSE cur_alma DEALLOCATE cur_alma CLOSE cur_artic DEALLOCATE cur_artic RETURN --sw break END fetch next from cur_alma into @almaLocal end --sw A CLOSE cur_alma DEALLOCATE cur_alma fetch next from cur_artic into @articLocal end --sw B CLOSE cur_artic DEALLOCATE cur_artic END IF @iaccion=7 BEGIN --Por Almacen + SubLinea set @nResult = 0 --sw Asegurarse que inicie el SP sin problemas --sw print '--- SW AQUI ---' --sw print 'SUBLINEA: ' +@cCodSubLinea declare cur_artic cursor for Select cCodartic from articulo (nolock) where vCodSubLn = @cCodSubLinea open cur_artic fetch next from cur_artic into @articLocal while @@fetch_status = 0 begin --sw B --sw print 'ARTICULO: ' +@articLocal --sw print 'ALMACEN: ' +@cCodAlmac set @nResult = 0 --sw Asefurarse que inicie el SP sin problemas EXECUTE usp_calcula_costo @articLocal, @cCodAlmac, @nResult OUTPUT IF @nResult>0 BEGIN SET @nResult=1 CLOSE cur_artic DEALLOCATE cur_artic RETURN --swbreak END fetch next from cur_artic into @articLocal end --sw B CLOSE cur_artic DEALLOCATE cur_artic END IF @iaccion=8 BEGIN --Por Linea + SubLinea set @nResult = 0 --sw Asegurarse que inicie el SP sin problemas --sw print '--- SW AQUI ---' --sw print 'LINEA: ' +@cCodLinea --sw print 'SUBLINEA: ' +@cCodSubLinea declare cur_artic cursor for Select cCodartic from articulo (nolock) where cCodLinea = @cCodLinea and vCodSubLn = @cCodSubLinea open cur_artic fetch next from cur_artic into @articLocal while @@fetch_status = 0 begin --sw B --sw print 'ARTICULO: ' +@articLocal DECLARE cur_alma CURSOR FOR SELECT DISTINCT(cCodAlmac) FROM MovAlmacen (nolock) open cur_alma fetch next from cur_alma into @almaLocal while @@fetch_status = 0 begin --sw A --sw print 'ALMACEN: ' +@almaLocal set @nResult = 0 --sw Asefurarse que inicie el SP sin problemas EXECUTE usp_calcula_costo @articLocal, @almaLocal, @nResult OUTPUT IF @nResult>0 BEGIN SET @nResult=1 CLOSE cur_alma DEALLOCATE cur_alma CLOSE cur_artic DEALLOCATE cur_artic RETURN --sw break END fetch next from cur_alma into @almaLocal end --sw A CLOSE cur_alma DEALLOCATE cur_alma fetch next from cur_artic into @articLocal end --sw B CLOSE cur_artic DEALLOCATE cur_artic END IF @iaccion=9 BEGIN --Por Almacen + Linea + SubLinea set @nResult = 0 --sw Asegurarse que inicie el SP sin problemas --sw print '--- SW AQUI ---' --sw print 'LINEA: ' +@cCodLinea --sw print 'SUBLINEA: ' +@cCodSubLinea declare cur_artic cursor for Select cCodartic from articulo (nolock) where cCodLinea = @cCodLinea and vCodSubLn = @cCodSubLinea open cur_artic fetch next from cur_artic into @articLocal while @@fetch_status = 0 begin --sw B --sw print 'ARTICULO: ' +@articLocal --sw print 'ALMACEN: ' +@cCodAlmac set @nResult = 0 --sw Asefurarse que inicie el SP sin problemas EXECUTE usp_calcula_costo @articLocal, @cCodAlmac, @nResult OUTPUT IF @nResult>0 BEGIN SET @nResult=1 CLOSE cur_artic DEALLOCATE cur_artic RETURN --sw break END fetch next from cur_artic into @articLocal end --sw B CLOSE cur_artic DEALLOCATE cur_artic END END GO /****** Object: StoredProcedure [dbo].[usp_ActualizaCostoEnsamblado] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[usp_ActualizaCostoEnsamblado] @cCodArtic varchar(6) AS DECLARE @CostoProrrateado numeric(18,4), @Costo numeric(18,4), @ccodarten VARCHAR(6) DECLARE @nResult int SET @Costo=0 DECLARE cur_articulokardex CURSOR FOR SELECT ccodarten FROM articuloensamblado WHERE ccodartic=@cCodArtic OPEN cur_articulokardex FETCH NEXT FROM cur_articulokardex INTO @ccodarten WHILE @@FETCH_STATUS=0 BEGIN EXECUTE usp_calcula_costo @ccodarten, '01',@nResult OUTPUT FETCH NEXT FROM cur_articulokardex INTO @ccodarten END CLOSE cur_articulokardex DEALLOCATE cur_articulokardex DECLARE cur_articulo CURSOR FOR SELECT --ccodartic,ccodarten,nqtdreque,costocomponentes=(select ncostoart from articuloalmacen where ccodartic=articuloensamblado.ccodarten), costoprorrateado=(select ncostoart from articuloalmacen where ccodartic=articuloensamblado.ccodarten)*nqtdreque FROM articuloensamblado WHERE ccodartic=@cCodArtic OPEN cur_articulo FETCH NEXT FROM cur_articulo INTO @CostoProrrateado WHILE @@FETCH_STATUS=0 BEGIN SET @Costo=@Costo+@CostoProrrateado FETCH NEXT FROM cur_articulo INTO @CostoProrrateado END CLOSE cur_articulo DEALLOCATE cur_articulo --PRINT @Costo SELECT * FROM articuloalmacen WHERE ccodartic=@cCodArtic IF @@ROWCOUNT =0 INSERT INTO articuloalmacen VALUES('01',@cCodArtic,0,@Costo,0,0,0,0,getdate(),null,null,0,0,'N',0,0,'',0,0,0) ELSE UPDATE articuloalmacen SET nCostoArt=@Costo,nCosto_ult_com=nCostoArt,dtUltIngAlm=getdate() WHERE cCodArtic=@cCodArtic GO /****** Object: StoredProcedure [dbo].[usp_ActualizaCostoComponenteEnsamblado] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[usp_ActualizaCostoComponenteEnsamblado] @ccodarten varchar(6) AS DECLARE @cCodArtic varchar(6) DECLARE @nResult INT EXECUTE usp_calcula_costo @ccodarten, '01',@nResult OUTPUT DECLARE cur_arten CURSOR FOR SELECT ccodartic FROM articuloensamblado WHERE ccodarten=@ccodarten OPEN cur_arten FETCH NEXT FROM cur_arten INTO @cCodArtic WHILE @@FETCH_STATUS=0 BEGIN EXEC usp_ActualizaCostoEnsamblado @cCodArtic FETCH NEXT FROM cur_arten INTO @cCodArtic END CLOSE cur_arten DEALLOCATE cur_arten GO /****** Object: StoredProcedure [dbo].[sp_send_cdosysmail ] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[sp_send_cdosysmail ] @From varchar(100) , @To varchar(100) , @Subject varchar(100)=" ", @Body varchar(4000) =" " /************************************************** ******************* This stored procedure takes the parameters and sends an e-mail. All the mail configurations are hard-coded in the stored procedure. Comments are added to the stored procedure where necessary. References to the CDOSYS objects are at the following MSDN Web site: http://msdn.microsoft.com/library/de..._messaging.asp ************************************************** *********************/ AS Declare @iMsg int Declare @hr int Declare @source varchar(255) Declare @description varchar(500) Declare @output varchar(1000) --************* Create the CDO.Message Object ************************ EXEC @hr = sp_OACreate 'CDO.Message', @iMsg OUT --***************Configuring the Message Object ****************** -- This is to configure a remote SMTP server. -- http://msdn.microsoft.com/library/de..._sendusing.asp EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusing").Value','2' -- This is to configure the Server Name or IP address. -- Replace MailServerName by the name or IP of your SMTP Server. EXEC @hr = sp_OASetProperty @iMsg, 'Configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value', 'mail.lagranjavilla.com' -- Save the configurations to the message object. EXEC @hr = sp_OAMethod @iMsg, 'Configuration.Fields.Update', null -- Set the e-mail parameters. EXEC @hr = sp_OASetProperty @iMsg, 'To', @To EXEC @hr = sp_OASetProperty @iMsg, 'From', @From EXEC @hr = sp_OASetProperty @iMsg, 'Subject', @Subject -- If you are using HTML e-mail, use 'HTMLBody' instead of 'TextBody'. EXEC @hr = sp_OASetProperty @iMsg, 'TextBody', @Body EXEC @hr = sp_OAMethod @iMsg, 'Send', NULL -- Sample error handling. IF @hr <>0 select @hr BEGIN EXEC @hr = sp_OAGetErrorInfo NULL, @source OUT, @description OUT IF @hr = 0 BEGIN SELECT @output = ' Source: ' + @source PRINT @output SELECT @output = ' Description: ' + @description PRINT @output END ELSE BEGIN PRINT ' sp_OAGetErrorInfo failed.' RETURN END END -- Do some error handling after each step if you have to. -- Clean up the objects created. EXEC @hr = sp_OADestroy @iMsg GO /****** Object: StoredProcedure [dbo].[spWriteStringToFile] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[spWriteStringToFile] -- Adaptado de http://www.simple-talk.com/code/WorkingWithFiles/spWriteStringTofile.txt -- por Juan Ayup 19/09/2007 ( @String Varchar(8000), --8000 in SQL Server 2000 @Path VARCHAR(255), @Filename VARCHAR(100) ) AS DECLARE @objFileSystem int ,@objTextStream int, @objErrorObject int, @strErrorMessage Varchar(1000), @Command varchar(1000), @hr int, @fileAndPath varchar(80) set nocount on select @strErrorMessage='opening the File System Object' EXECUTE @hr = sp_OACreate 'Scripting.FileSystemObject' , @objFileSystem OUT Select @FileAndPath=@path+'\'+@filename if @HR=0 Select @objErrorObject=@objFileSystem , @strErrorMessage='Creating file "'+@FileAndPath+'"' if @HR=0 execute @hr = sp_OAMethod @objFileSystem , 'CreateTextFile' , @objTextStream OUT, @FileAndPath,2,False if @HR=0 Select @objErrorObject=@objTextStream, @strErrorMessage='writing to the file "'+@FileAndPath+'"' if @HR=0 execute @hr = sp_OAMethod @objTextStream, 'Write', Null, @String if @HR=0 Select @objErrorObject=@objTextStream, @strErrorMessage='closing the file "'+@FileAndPath+'"' if @HR=0 execute @hr = sp_OAMethod @objTextStream, 'Close' if @hr<>0 begin Declare @Source varchar(255), @Description Varchar(255), @Helpfile Varchar(255), @HelpID int EXECUTE sp_OAGetErrorInfo @objErrorObject, @source output,@Description output,@Helpfile output,@HelpID output Select @strErrorMessage='Error whilst ' +coalesce(@strErrorMessage,'doing something') +', '+coalesce(@Description,'') raiserror (@strErrorMessage,16,1) end EXECUTE sp_OADestroy @objTextStream EXECUTE sp_OADestroy @objTextStream GO /****** Object: Table [dbo].[UnidadMedida] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[UnidadMedida]( [vDscundmd] [varchar](20) NULL, [cUndmedid] [char](3) NOT NULL, [nEquivale] [numeric](15, 2) NULL, [cCodUndEq] [char](3) NULL, [bUndcompr] [bit] NULL, [bUndsalid] [bit] NULL, [vDscCrta] [varchar](10) NULL, [dFechCrea] [datetime] NULL, [dfechModi] [datetime] NULL, [bFlagalqui] [bit] NULL, CONSTRAINT [PK__UnidadMedida__36B12243] PRIMARY KEY NONCLUSTERED ( [cUndmedid] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[usp_Mant_UnidadMedida] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_Mant_UnidadMedida] @iAccion INT = 0, @cUndMedid CHAR(3) = '', @vDscUndMd VARCHAR(20)= '', @vDscCrta VARCHAR(10) = '', @cCodUndEq CHAR(3) = '', @bUndCompr bit = NULL, @bUndSalid bit = NULL, @bFlagalqui bit = NULL, @nEquivale VARCHAR(18)='0.00', @cCodNewUnd CHAR(3) = '' OUTPUT as begin if @iaccion=0 Begin SET @cCodNewUnd='0' SELECT @cCodNewUnd = RIGHT('000' + CONVERT(VARCHAR, CONVERT(NUMERIC,ISNULL(MAX(cUndmedid),'0')) + 1),3) FROM UnidadMedida IF rtrim(ltrim(@cCodUndEq))='000' set @cCodUndEq=@cCodNewUnd IF CONVERT(NUMERIC(18,2), @nEquivale) < = 0 SET @nEquivale='1.00' INSERT INTO UnidadMedida(cUndmedid, vDscundmd,vDscCrta, nEquivale, cCodUndEq, bUndcompr, bUndsalid, bFlagalqui, dFechCrea, dfechModi ) VALUES (@cCodNewUnd, @vDscundmd, @vDscCrta, @nEquivale, @cCodUndEq, @bUndcompr, @bUndsalid, @bFlagalqui, convert(datetime,getdate()), convert(datetime,getdate())) End if @iaccion=1 Begin Update UnidadMedida set vDscundmd=@vDscundmd , nEquivale=@nEquivale, cCodUndEq=@cCodUndEq, vDscCrta=@vDscCrta, bUndcompr=@bUndcompr, bUndsalid=@bUndsalid, bFlagalqui=@bFlagAlqui, dFechModi= convert(datetime,getdate()) where cUndmedid=@cUndmedid End end if @iaccion=2 Begin Declare @ocur int set @ocur=1 Select @ocur= count(*) from Articulo Where cUndSalida=@cUndmedid or cUndCompr=@cUndmedid if @ocur > 0 begin RAISERROR('Imposible Eliminar Unidad de Medida existe referencia en Articulos',16,-1) end else begin Delete UnidadMedida where cUndmedid=@cUndmedid end End GO /****** Object: Table [dbo].[tt_cambio] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO CREATE TABLE [dbo].[tt_cambio]( [d_f] [datetime] NOT NULL, [nt_venta] [numeric](10, 4) NOT NULL, [nt_compr] [numeric](10, 4) NOT NULL, [n_compra_publicacion] [numeric](10, 4) NOT NULL, [n_venta_publicacion] [numeric](10, 4) NOT NULL ) ON [PRIMARY] GO /****** Object: Table [dbo].[tsincronizacion] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[tsincronizacion]( [nidSincro] [int] IDENTITY(1,1) NOT NULL, [vidCaja] [varchar](20) NULL, [dfechaCreacion] [datetime] NULL, [dfechaInicioSincro] [datetime] NULL, [dfechaFinSincro] [datetime] NULL, [nidEstadoSincro] [int] NULL, PRIMARY KEY CLUSTERED ( [nidSincro] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[Operacion] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Operacion]( [cOperCode] [int] NOT NULL, [cOperID] [int] NOT NULL, [cCajaCodi] [varchar](50) NOT NULL, [cUserDesc] [varchar](15) NULL, [nTarjNumb] [varchar](8) NULL, [cAlmaCode] [char](2) NULL, [cProdCode] [char](6) NULL, [nProdCant] [int] NULL, [nProdPrecUnit] [decimal](18, 2) NULL, [dOperFech] [datetime] NULL, [cOperTipo] [int] NULL, [cOperFlagAnula] [int] NULL, [cOperCodeAnula] [int] NULL, [cOperFlagAbierto] [int] NULL, [nMontoDolares] [decimal](18, 2) NULL, [cFlagSincronizacion] [char](1) NULL, [cTurnoCodi] [char](2) NULL, [nDscto] [decimal](18, 2) NULL, [nServicio] [decimal](18, 2) NULL, [cCodiClie] [char](7) NULL, [vDescClie] [varchar](50) NULL, [cDocCodigo] [varchar](10) NULL, [CDocSerie] [varchar](4) NULL, [cDocTipo] [char](2) NULL, [cRuc] [char](11) NULL, [iTipoCliente] [int] NOT NULL, [dFechaGraba] [datetime] NULL, [idLocal] [int] NULL, [cSupervisor] [varchar](50) NULL, [bprocesado] [int] NULL, CONSTRAINT [PK_Operacion] PRIMARY KEY CLUSTERED ( [cOperCode] ASC, [cOperID] ASC, [cCajaCodi] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO CREATE NONCLUSTERED INDEX [idx_Operacion_DocSerie] ON [dbo].[Operacion] ( [CDocSerie] ASC, [cDocCodigo] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, SORT_IN_TEMPDB = OFF, IGNORE_DUP_KEY = OFF, DROP_EXISTING = OFF, ONLINE = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] GO /****** Object: UserDefinedFunction [dbo].[fn_sumatotal] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO create function [dbo].[fn_sumatotal] ( @cCajaCodi varchar(30), @cOpercode varchar(30), @cDocSerie varchar(30), @cdoccodigo varchar(30) ) returns numeric(18,2) as begin declare @total numeric(18,2) set @total=0 select @total= SUM((nProdCant * nProdPrecUnit) + (nProdCant * nProdPrecUnit * nDscto/100 ) ) FROM Operacion O (NOLOCK) where ccajacodi=@cCajaCodi and copercode=@cOpercode and cdocserie=@cDocSerie and cdoccodigo=@cdoccodigo return @total end GO /****** Object: Table [dbo].[CuentaCte] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[CuentaCte]( [cCodctaCte] [char](10) NOT NULL, [dtFechaReg] [datetime] NULL, [dtFechaoper] [datetime] NULL, [cOperTipo] [int] NULL, [cOperCode] [int] NULL, [cIdTipTra] [char](2) NULL, [cCodTipTra] [char](6) NULL, [cTipoDoc] [char](2) NULL, [cSerieDoc] [char](4) NULL, [cNroDoc] [char](7) NULL, [cCodIntFac] [char](6) NULL, [cCodCaja] [char](10) NULL, [vClieCod] [varchar](15) NOT NULL, [vNomClie] [varchar](70) NULL, [cRucClie] [char](15) NULL, [cCodMone] [char](1) NULL, [nTipoCambio] [numeric](18, 2) NULL, [nImporServ] [numeric](15, 2) NOT NULL, [nPorcIGV] [numeric](15, 2) NOT NULL, [nImporIGV] [numeric](15, 2) NOT NULL, [nSubtotal] [numeric](18, 2) NOT NULL, [nImpoTotal] [numeric](15, 2) NOT NULL, [nExonerad] [numeric](18, 2) NULL, [nPorcDetrc] [numeric](18, 0) NULL, [nImpoDetrc] [numeric](18, 0) NULL, [vObsAdic] [varchar](300) NULL, [cUserReg] [char](6) NULL, [bSwAnulado] [bit] NOT NULL, [iTipoCliente] [int] NOT NULL, [CajaOld] [char](10) NULL, [idLocal] [int] NULL, [cAlmaCode] [char](2) NULL, CONSTRAINT [PK_CtaCte] PRIMARY KEY CLUSTERED ( [cCodctaCte] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'tipo de venta' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'CuentaCte', @level2type=N'COLUMN',@level2name=N'cCodTipTra' GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'codigo interno de Facturacion' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'CuentaCte', @level2type=N'COLUMN',@level2name=N'cCodIntFac' GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'Importe de Servicio' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'CuentaCte', @level2type=N'COLUMN',@level2name=N'nImporServ' GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'0' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'CuentaCte', @level2type=N'COLUMN',@level2name=N'nExonerad' GO /****** Object: Table [dbo].[CuentaCteD] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[CuentaCteD]( [cCodctaCte] [char](10) NOT NULL, [NumItemCta] [numeric](18, 0) NOT NULL, [cCodartic] [char](6) NULL, [cProdcode] [numeric](18, 0) NULL, [sProdDesc] [varchar](150) NULL, [sProdDscCrta] [varchar](50) NULL, [vDscLarga] [varchar](500) NULL, [nPrecioOrig] [numeric](18, 2) NOT NULL, [nQtdVendida] [numeric](18, 2) NOT NULL, [nPreciounit] [numeric](18, 4) NOT NULL, [nPorcServ] [numeric](18, 0) NULL, [nCostoArt] [numeric](15, 2) NOT NULL, [ccidpry] [char](15) NULL, [cccosto] [char](15) NULL, [nPorcDscto] [numeric](18, 2) NULL, [cSupervisor] [varchar](50) NULL, CONSTRAINT [PK_CuentaCteD] PRIMARY KEY CLUSTERED ( [cCodctaCte] ASC, [NumItemCta] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[OperacionParalela] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[OperacionParalela]( [cOperCode] [char](6) NOT NULL, [cOperTipo] [int] NULL, [dOperFech] [datetime] NULL, [nTarjNumb] [nvarchar](8) NULL, [nMoneda] [char](2) NULL, [nMontoSoles] [numeric](18, 2) NULL, [nMontoDolares] [numeric](18, 2) NULL, [nEfectivoSoles] [numeric](18, 2) NULL, [nVueltoSoles] [numeric](18, 2) NULL, [sGlosa] [varchar](150) NULL, [cEstado] [char](1) NULL, [cCajaCodi] [varchar](10) NOT NULL, [cFlagSincronizacion] [char](1) NULL, [cTurnoCodi] [varchar](10) NULL, [cUserDesc] [varchar](15) NULL, [cOperCodeRela] [char](6) NULL, [cOperCodeAnul] [char](1) NULL, [cCodiClie] [char](7) NULL, [vDescClie] [varchar](50) NULL, [iTipoCliente] [int] NOT NULL, [cDocCodigo] [varchar](10) NOT NULL, [cDocSerie] [char](4) NOT NULL, [cDocTipo] [char](2) NOT NULL, [dFechaGraba] [datetime] NULL, [bprocesado] [int] NULL, CONSTRAINT [PK_OperacionParalela] PRIMARY KEY CLUSTERED ( [cOperCode] ASC, [cCajaCodi] ASC, [cDocCodigo] ASC, [cDocSerie] ASC, [cDocTipo] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[OperacionParalelaProducto] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[OperacionParalelaProducto]( [cCajaCodi] [varchar](10) NOT NULL, [cOperCode] [numeric](10, 0) NOT NULL, [cAlmaCode] [char](2) NOT NULL, [cProdCode] [char](6) NOT NULL, [nProdCant] [numeric](10, 0) NULL, [nProdPrecUnit] [numeric](18, 2) NULL, [nDscto] [numeric](18, 2) NULL, [nServicio] [numeric](18, 2) NULL, [nItem] [numeric](18, 2) NOT NULL, [cSupervisor] [varchar](50) NULL, CONSTRAINT [PK_OperacionParalelaProducto] PRIMARY KEY CLUSTERED ( [cCajaCodi] ASC, [cOperCode] ASC, [cAlmaCode] ASC, [cProdCode] ASC, [nItem] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[Parametro] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Parametro]( [cCodParam] [char](6) NULL, [nmonto1] [numeric](18, 2) NULL, [vDscParam] [varchar](100) NULL, [nNroSubLin] [numeric](18, 0) NOT NULL, [bflagnoedit] [bit] NOT NULL, [bflagnodel] [bit] NULL, [vtexto1] [varchar](50) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'Numero de niveles de sub lineas' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'Parametro', @level2type=N'COLUMN',@level2name=N'nNroSubLin' GO /****** Object: Table [dbo].[TCABECERAZ1] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[TCABECERAZ1]( [nidZ1] [int] IDENTITY(1,1) NOT NULL, [vidCaja] [varchar](50) NULL, [dfechaRegistro] [datetime] NULL, [nidEstado] [int] NULL, PRIMARY KEY CLUSTERED ( [nidZ1] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[TDETALLEZ1] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[TDETALLEZ1]( [nidZ1] [int] NOT NULL, [nidDetalleZ1] [int] IDENTITY(1,1) NOT NULL, [cCajaCodi] [varchar](50) NULL, [dOperFech] [datetime] NULL, [cAlmaCode] [varchar](2) NULL, [cDocTipo] [varchar](2) NULL, [cProdCode] [varchar](6) NULL, [nProdCant] [int] NULL, [nMonto] [float] NULL, PRIMARY KEY CLUSTERED ( [nidZ1] ASC, [nidDetalleZ1] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[spr_registrarmovalmacen_desde_z1] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[spr_registrarmovalmacen_desde_z1]( @result INT OUTPUT )AS BEGIN DECLARE @cCodMovAl CHAR(10), @cCajaCodi CHAR(10), @dOperFecha DATETIME, @cAlmaCode CHAR(2), @cProdCode CHAR(6), @nProdCant DECIMAL(18,2), @nProdPrec DECIMAL(18,2), @iItm NUMERIC(18), @cUndSalida CHAR(3), @tFecha DATETIME, @nCostoArt DECIMAL(18,2), @cTipTra char(2), @tipodoc char(2), @cUndMedEn char(3), @cUndMedArtEn char(3), @nEquivale DECIMAL(18,2), @EsEnsamblado BINARY, @ControlStock BINARY, @UnidadSalida CHAR(3), @cProdPadre CHAR(6), @nQtdreque DECIMAL(18,2), @cCodarten CHAR(6), @nProdCantDet DECIMAL(18,2), @nPadreCant DECIMAL(18,2), @FIN INT, @ESTADO INT, @cDocTipo varchar(2) CREATE TABLE #Tmp_Detalle( cCodidart char(6) COLLATE SQL_Latin1_General_CP1_CI_AS NULL , cCodundMed char(3) COLLATE SQL_Latin1_General_CP1_CI_AS NULL , cProdPadre char(6) COLLATE SQL_Latin1_General_CP1_CI_AS NULL , cCantProd DECIMAL(18,2) ) CREATE TABLE #Tmp_Ensamblado( cCodidart char(6) COLLATE SQL_Latin1_General_CP1_CI_AS NULL , cCodundMed char(3) COLLATE SQL_Latin1_General_CP1_CI_AS NULL , cProdPadre char(6) COLLATE SQL_Latin1_General_CP1_CI_AS NULL , cCantProd DECIMAL(18,2) ) CREATE TABLE #Tmp_Z1( nidZ1 int , cCajaCodi varchar(50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL , dOperFech datetime , cAlmaCode varchar(2) COLLATE SQL_Latin1_General_CP1_CI_AS NULL , cDocTipo varchar(2) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ) SET @tFecha = convert(datetime, convert(varchar,GETDATE(),102),102) -------------------------------- --REGISTRA MOVIMIENTOS DE ALMACEN --------------------------------- SET @RESULT= 0 UPDATE TCABECERAZ1 SET nidEstado = 2 WHERE nidEstado = 0 INSERT INTO #Tmp_Z1 SELECT DISTINCT C.nidZ1, D.cCajaCodi, D.dOperFech, D.cAlmaCode, D.cDocTipo FROM TCABECERAZ1 C, TDETALLEZ1 D WHERE C.nidZ1 = D.nidZ1 AND C.nidEstado = 2 BEGIN TRAN DECLARE CURMOVNTA CURSOR FOR SELECT cCajaCodi, dOperFech, cAlmaCode , CASE cDocTipo WHEN '01' THEN 'BF' WHEN '02' THEN 'BF' WHEN '10' THEN 'OC' WHEN '11' THEN 'NC' END , cDocTipo FROM #Tmp_Z1 OPEN CURMOVNTA FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @dOperFecha, @cAlmaCode, @tipodoc, @cDocTipo WHILE @@FETCH_STATUS = 0 BEGIN SET @cCodMovAl = '' --MOV ALMACEN SELECT @cCodMovAl = MAX(convert(numeric, cCodMovAl)) FROM MOVALMACEN WHERE nTipMov = 2 and left(cCodMovAl,3) = right(year(getdate()),3) SET @cCodMovAl = RIGHT(year(getdate()),3) + RIGHT('0000000' + CONVERT(VARCHAR,CONVERT(NUMERIC,ISNULL(@cCodMovAl,'0')) + 1),7) SET @cTipTra = CASE @tipodoc WHEN '0C' THEN '10' WHEN 'NC' THEN '13' ELSE '06' END INSERT INTO MOVALMACEN(cCodMovAl, nTipMov, dtFechMov, dtFecharg, cCodUsrRg, cCodAlmac, vObseAdic , nImpTotal, cIdTipTra, cCodMoned, bSwAnulado, cIdTipItm, vRuc_Tarj , cCodProve, vContProv) VALUES(@cCodMovAl, 2, @dOperFecha, @tFecha, '000001', @cAlmaCode, 'PROCESO VENTA - ' + @cCajaCodi , 0, @cTipTra, 'N', 0, '01', '', '0', 'PROCESO CONSOLIDACION') IF @@ERROR <> 0 BEGIN SET @result= 1 END --DETALLES SELECT @iItm = 0 DECLARE CURMOVNTADET CURSOR FOR SELECT cProdCode, sum(nProdCant) FROM TDETALLEZ1 WHERE cCajaCodi = @cCajaCodi AND dOperFech = @dOperFecha AND cAlmaCode = @cAlmaCode AND cDocTipo = @cDocTipo GROUP BY cProdCode OPEN CURMOVNTADET FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant WHILE @@FETCH_STATUS = 0 BEGIN --LLenando Tabla de Detalle y Ensamblado SELECT @EsEnsamblado = bSwEnsamb, @ControlStock = bSwCtrlStck, @UnidadSalida = cUndSalida FROM Articulo (NOLOCK) WHERE cCodartic=@cProdCode --Evalua Articulo registrado en Venta IF @ControlStock = 1 BEGIN --Si tiene control de stock lo adciona a la tabla detalle INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cProdCode, @UnidadSalida, '', @nProdCant) END ELSE BEGIN IF @EsEnsamblado = 1 BEGIN SET @FIN = 1 INSERT INTO #Tmp_Ensamblado(cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cProdCode, @UnidadSalida, '', @nProdCant) IF @@ERROR <> 0 BEGIN SET @result= 1 GOTO EtiquetaError END --Llena Tabla detalle con los articulos incluidos en el ensamblado --Captura los datos del ensamblado en Temporal WHILE @FIN > 0 BEGIN SELECT @cProdPadre = ccodidart, @nPadreCant = cCantProd FROM #Tmp_Ensamblado --Llena cursor con los articulos del ensamblado DECLARE CUR_ENSAMBLADO CURSOR FOR SELECT nQtdreque, cCodarten, cUndMedEn , cUndMedArtEn = (select cUndSalida from articulo where ccodartic = cCodArten) FROM ArticuloEnsamblado(NOLOCK) WHERE cCodartic=@cProdPadre OPEN CUR_ENSAMBLADO FETCH NEXT FROM CUR_ENSAMBLADO INTO @nQtdreque, @cCodarten, @cUndMedEn, @cUndMedArtEn SET @nProdCantDet = 0 --Evalua los articulos del ensamblado y los añade a la tabla Detalle o Ensamblado WHILE @@FETCH_STATUS = 0 BEGIN --Calcula la cantidad del articulo para registra como salida SET @nProdCantDet = 0 IF @cUndMedEn = '' BEGIN SET @nProdCantDet = @nPadreCant * @nQtdReque END ELSE BEGIN IF @cUndMedEn=@cUndMedArtEn BEGIN SET @nProdCantDet = @nPadreCant * @nQtdReque END ELSE BEGIN SELECT @nEquivale = nEquivale FROM UnidadMedida WHERE ccodundeq = @cUndMedEn and cUndMedid=@cUndMedArtEn IF @nEquivale is null SET @nProdCantDet = @nPadreCant * @nQtdReque ELSE SET @nProdCantDet = @nPadreCant *(@nQtdReque/@nEquivale) END END SELECT @EsEnsamblado = bSwEnsamb, @ControlStock = bSwCtrlStck, @UnidadSalida = cUndSalida FROM Articulo(nolock) WHERE cCodartic = @cCodarten IF @ControlStock = 1 BEGIN INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cCodarten, @UnidadSalida, @cProdPadre, @nProdCantDet) IF @@ERROR <> 0 BEGIN SET @result = 1 GOTO EtiquetaError END END ELSE BEGIN IF @EsEnsamblado = 1 BEGIN INSERT INTO #Tmp_Ensamblado (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cCodarten, @UnidadSalida, @cProdPadre, @nProdCantDet) IF @@ERROR <> 0 BEGIN SET @result = 1 goto EtiquetaError END END ELSE BEGIN INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cCodarten, @UnidadSalida, @cProdPadre, @nProdCantDet) IF @@ERROR <> 0 BEGIN SET @result = 1 goto EtiquetaError END END END FETCH NEXT FROM CUR_ENSAMBLADO INTO @nQtdreque, @cCodarten, @cUndMedEn, @cUndMedArtEn END CLOSE CUR_ENSAMBLADO DEALLOCATE CUR_ENSAMBLADO DELETE FROM #Tmp_Ensamblado WHERE cCodidart=@cProdPadre IF @@ERROR <> 0 BEGIN SET @result = 1 goto EtiquetaError END SET @FIN = 0 SELECT @FIN = COUNT(*) FROM #Tmp_Ensamblado END END ELSE BEGIN INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cProdCode, @UnidadSalida, '', @nProdCant) IF @@ERROR <> 0 BEGIN SET @result = 1 goto EtiquetaError END END END FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant END CLOSE CURMOVNTADET DEALLOCATE CURMOVNTADET --REGISTRANDO MOVIMIENTOS DE ALMACEN PARA LA TABLA DETALLE DECLARE CUR_Detalle CURSOR FOR SELECT cCodidart, cCantProd, cCodundMed, cProdPadre FROM #Tmp_Detalle OPEN CUR_Detalle FETCH NEXT FROM CUR_Detalle INTO @cProdCode, @nProdCant, @cUndSalida, @cProdPadre SET @iItm=0 WHILE @@FETCH_STATUS = 0 BEGIN SET @iItm = @iItm + 1 SELECT @nCostoArt = nCostoArt FROM ArticuloAlmacen WHERE cCodAlmac = @cAlmaCode AND cCodArtic = @cProdCode INSERT INTO MOVALMACEND(cCodMovAl, nTipMov, nNmtItmMv, cCodidart, cUndmedid, nPrecioCom , nQtdMovim, nCostoArt, nQtdequiv, cProdPadre) VALUES(@cCodMovAl, 2, @iItm, @cProdCode, @cUndSalida, isnull(@nProdPrec,0) , @nProdCant, ISNULL(@nCostoArt,0), @nProdCant,@cProdPadre) IF @@ERROR <> 0 BEGIN SET @result = 1 Goto EtiquetaError END --ACTUALIZA STOCKS Declare @existe integer Select @existe= count(*) from ArticuloAlmacen Where cCodArtic=@cProdCode and cCodAlmac=@cAlmaCode If @existe=0 Begin --Inserta el registro si no existe en la tabla INSERT INTO ArticuloAlmacen(cCodAlmac,cCodArtic,nStockAl, dtUltSalAlm,cCodmn_ult_vta) VALUES(@cAlmaCode,@cProdCode, 0, convert(datetime, convert(varchar,GETDATE(),102),102), 'N') IF @@ERROR <> 0 BEGIN SET @result = 1 Goto EtiquetaError END End UPDATE ArticuloAlmacen SET nStockAl= nStockAl - @nProdCant , dtUltSalAlm = convert(datetime,convert(varchar,GETDATE(),102),102) , cCodmn_ult_vta = 'N' WHERE cCodArtic = @cProdCode AND cCodAlmac = @cAlmaCode IF @@ERROR <> 0 BEGIN SET @result= 1 Goto EtiquetaError END FETCH NEXT FROM CUR_DETALLE INTO @cProdCode, @nProdCant, @cUndSalida, @cProdPadre END CLOSE CUR_DETALLE DEALLOCATE CUR_DETALLE --ACTUALIZA IMPORTE DE SALIDA A ALMACEN UPDATE MOVALMACEN SET nImpTotal = (Select sum(nCostoArt * nQtdequiv) from MovAlmacenD where cCodMovAl=@cCodMovAl and nTipMov=2) WHERE cCodMovAl = @cCodMovAl and nTipMov=2 IF @@ERROR <> 0 BEGIN SET @result = 1 Goto EtiquetaError END DELETE FROM #Tmp_Detalle IF @@ERROR <> 0 BEGIN SET @result = 1 Goto EtiquetaError END FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @dOperFecha, @cAlmaCode, @tipodoc, @cDocTipo END CLOSE CURMOVNTA DEALLOCATE CURMOVNTA EtiquetaError: IF @result = 1 BEGIN SET @ESTADO = 3 ROLLBACK TRAN END ELSE BEGIN SET @ESTADO = 1 COMMIT TRAN END UPDATE TCABECERAZ1 SET nidEstado = @ESTADO WHERE nidEstado = 2 --EXEC spr_corregir_montos_z1 RETURN @result END GO /****** Object: StoredProcedure [dbo].[OSCMOYMOVIVNTA] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[OSCMOYMOVIVNTA] AS BEGIN ------------------------------------ DECLARE @cCodMovAl CHAR(10), @cCodctaCte CHAR(10), @cCajaCodi CHAR(10), @cOperCode NUMERIC, @dOperFecha DATETIME, @cUserDesc CHAR(10), @cAlmaCode CHAR(2), @nTotal DECIMAL(18,2), @nTarjNumb CHAR(8), @Moneda CHAR(1), @vClieCode VARCHAR(15), @vNomClie VARCHAR(70), @cProdCode CHAR(6), @nProdCant NUMERIC(18), @nProdPrec NUMERIC(18,2), @nPrecOrig NUMERIC(18,2), @iItm NUMERIC(18), @vDscArtic VARCHAR(100), @vDscArtCt VARCHAR(25), @cUndSalida CHAR(3), @cTurnoCodi CHAR(2), @tFecha DATETIME, @nCostoArt NUMERIC(18,2), @nImporIGV NUMERIC(18,2), @nImporServ NUMERIC(18,2), @nPorcServ NUMERIC(18,2), @iTipoCliente INTEGER, @nPrecioOrig NUMERIC(18,2), @Anulado integer --------------------------------------------------- Declare @nPorcIGV NUMERIC(18,2), @nDscto NUMERIC(18,2), @nSubtotal NUMERIC(18,2), @cTipTra char(2), @cDocCodigo varchar(10) , @cDocSerie varchar(4), @cDocTipo char(2), @cRuc char(11), @cSupervisor varchar(50) DECLARE @idLocal int --IGV ---------- SELECT @nPorcIGV=nmonto1 from Parametro where cCodParam='IGV' SELECT @tFecha = convert(datetime, convert(varchar,GETDATE(),102),102) update Operacion set bprocesado=2 WHERE cFlagSincronizacion = '0' AND cOperTipo in (1,2,3) AND (Select count(*) FROM CuentaCte (NOLOCK) WHERE cTipoDoc=Operacion.cDocTipo AND cSerieDoc=Operacion.cDocSerie AND cNroDoc=Operacion.cDocCodigo)=0 DECLARE CURMOVNTA CURSOR FOR SELECT cCajaCodi, cOpercode, MAX(dOperFech), MAX(cUserDesc), MAX(cAlmaCode), dbo.fn_sumatotal(cCajaCodi, cOpercode, cDocSerie,cdoccodigo), --SUM((nProdCant * nProdPrecUnit) + (nProdCant * nProdPrecUnit * nDscto/100 ) ), Sum( ((nProdCant * nProdPrecUnit) + (nProdCant * nProdPrecUnit * nDscto/100 ))/ (1+ (@nPorcIGV/100) + (nServicio/100) ) * nServicio/100 ), MAX(nTarjNumb), 'N', MAX(cCodiClie), MAX(vDescClie), cDocCodigo, cDocSerie, max(cDocTipo), max(cRuc), max(iTipoCliente),MAX(idLocal),cOperFlagAnula-- FROM Operacion O (NOLOCK) WHERE bprocesado=2 AND cFlagSincronizacion = '0' AND cOperTipo in (1,2,3) AND (Select count(*) FROM CuentaCte (NOLOCK) WHERE cTipoDoc=O.cDocTipo AND cSerieDoc=O.cDocSerie AND cNroDoc=O.cDocCodigo)=0 GROUP BY cCajaCodi, cOpercode, cDocSerie,cdoccodigo,cOperFlagAnula ORDER BY cCajaCodi, cOpercode, cDocSerie,cdoccodigo OPEN CURMOVNTA FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @cOperCode, @dOperFecha, @cUserDesc, @cAlmaCode, @nTotal, @nImporServ, @nTarjNumb, @Moneda, @vClieCode, @vNomClie, @cDocCodigo, @cDocSerie, @cDocTipo, @cRuc, @iTipoCliente, @idLocal,@Anulado-- ----Manejando errores --- DECLARE @ErrorSave int SET @ErrorSave = 0 BEGIN TRAN WHILE @@FETCH_STATUS = 0 BEGIN --VENTAS IF ISNULL(@nTarjNumb,'') = '' Set @cCodctaCte = '' SELECT @cCodctaCte = MAX(convert(numeric,cCodctaCte)) FROM CUENTACTE SELECT @cCodctaCte = RIGHT('0000000000' + CONVERT(VARCHAR,CONVERT(NUMERIC,ISNULL(@cCodctaCte,'0')) + 1),10) ----Impor IGV----- SET @nImporIGV = (isnull(@nTotal,0) - isnull( @nImporServ,0)) / (1 +(@nPorcIGV/100) ) * ( @nPorcIGV/100) ---Sub total--------- SET @nSubtotal= isnull(@nTotal,0) - isnull(@nImporIGV,0) - isnull( @nImporServ,0) SET @cTipTra='06' IF isnull(@cDocCodigo,'')='' begin set @cDocCodigo= RIGHT( '0000000' + CONVERT(VARCHAR,ISNULL(@cOperCode,'0')), 7 ) end IF isnull(@cDocTipo,'')='' begin set @cDocTipo= '02' end INSERT INTO CUENTACTE( cCodctaCte, dtFechaOper, dtFechaReg, cIdTipTra, cCodCaja, vClieCod, vNomClie, cCodMone, nPorcIGV, nImporIGV, nSubtotal,nImpoTotal, nImporServ, bSwAnulado, cTipoDoc, cSerieDoc, cNroDoc, cRucClie, iTipoCliente,idLocal,cAlmaCode) VALUES(@cCodctaCte, @dOperFecha, @tFecha, @cTipTra, @cCajaCodi, @vClieCode, @vNomClie, @Moneda, @nPorcIGV, @nImporIGV , @nSubtotal, @nTotal, isnull(@nImporServ,0), @Anulado, @cDocTipo , @cDocSerie,@cDocCodigo,@cRuc, @iTipoCliente,@idLocal,@cAlmaCode) IF @@ERROR <> 0 BEGIN SET @errorsave= 1 END --DETALLES Set @iItm = 0 DECLARE CURMOVNTADET CURSOR FOR SELECT O.cProdCode, O.nProdCant, O.nProdPrecUnit, A.vDscArtic,o.nServicio, A.vDscArtCt, A.cUndSalida, o.nDscto,o.cSupervisor FROM Operacion O (NOLOCK) LEFT JOIN Articulo A (NOLOCK) ON O.cProdCode = A.cCodArtic WHERE O.bprocesado=2 AND cFlagSincronizacion = '0' AND cOperTipo in (1,2,3) AND O.cCajaCodi = @cCajaCodi AND O.cOperCode = @cOperCode OPEN CURMOVNTADET FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant, @nProdPrec, @vDscArtic,@nPorcServ, @vDscArtCt, @cUndSalida, @nDscto,@cSupervisor WHILE @@FETCH_STATUS = 0 BEGIN SELECT @iItm = @iItm + 1 --Hallando costo de articulo Select @nCostoArt= nCostoArt from Articuloalmacen (NOLOCK) Where cCodartic= @cProdCode SET @nPrecioOrig= @nProdPrec SET @nProdPrec= @nProdPrec + ( @nDscto/100 * @nProdPrec) INSERT INTO CUENTACTED( cCodctaCte, NumItemCta, cCodartic,cProdcode,sProdDesc, sProdDscCrta, nPrecioOrig, nCostoArt, nQtdVendida, nPreciounit, nPorcServ, nPorcdscto,cSupervisor) VALUES(@cCodctaCte,@iItm, @cProdCode, @cProdCode, @vDscArtic ,@vDscArtCt, @nPrecioOrig, isnull(@nCostoArt,0), @nProdCant, @nProdPrec, isnull(@nPorcServ,0), isnull(@nDscto,0),@cSupervisor) IF @@ERROR <> 0 BEGIN SET @errorsave= 1 END FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant, @nProdPrec, @vDscArtic,@nPorcServ, @vDscArtCt, @cUndSalida, @nDscto, @cSupervisor END CLOSE CURMOVNTADET DEALLOCATE CURMOVNTADET FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @cOperCode, @dOperFecha, @cUserDesc, @cAlmaCode, @nTotal, @nImporServ, @nTarjNumb, @Moneda, @vClieCode, @vNomClie, @cDocCodigo, @cDocSerie, @cDocTipo, @cRuc, @iTipoCliente,@idLocal,@Anulado END CLOSE CURMOVNTA DEALLOCATE CURMOVNTA ---- Cambia Flag de sincronizacion operaciones ----- UPDATE Operacion SET cFlagSincronizacion = '1',bprocesado=1 WHERE cFlagSincronizacion = '0' AND cOperTipo in (1,2,3) and bprocesado=2 --AND cOperFlagAnula = 0 IF @@ERROR <> 0 BEGIN SET @errorsave= 1 END ---------------------- --operacion paralela-- ---------------------- update OperacionParalela set bprocesado=2 WHERE cFlagSincronizacion = '0' AND cOperTipo IN (20,21) AND cestado IN (1,2) AND (Select count(*) FROM CuentaCte WHERE cTipoDoc=OperacionParalela.cDocTipo AND cSerieDoc=OperacionParalela.cDocSerie AND cNroDoc=OperacionParalela.cDocCodigo)=0 DECLARE CURMOVNTA CURSOR FOR SELECT B.cCajaCodi, B.cOpercode, B.dOperFech, B.cUserDesc, cAlmaCode = (select max(A.cAlmaCode) from OperacionParalelaProducto A where A.cCajaCodi = B.cCajaCodi AND A.cOpercode = B.cOpercode), B.nMontoSoles, B.nTarjNumb, 'N', B.cCodiClie, B.vDescClie, B.iTipoCliente, B.cDocCodigo, B.cDocSerie, B.cDocTipo FROM OperacionParalela B (NOLOCK) WHERE B.bprocesado=2 AND B.cFlagSincronizacion = '0' AND B.cOperTipo IN (20,21) AND B.cestado IN (1,2) AND (Select count(*) FROM CuentaCte WHERE cTipoDoc=B.cDocTipo AND cSerieDoc=B.cDocSerie AND cNroDoc=B.cDocCodigo)=0 ORDER BY B.cCajaCodi, B.cOpercode OPEN CURMOVNTA FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @cOperCode, @dOperFecha, @cUserDesc, @cAlmaCode, @nTotal, @nTarjNumb, @Moneda, @vClieCode, @vNomClie, @iTipoCliente, @cDocCodigo, @cDocSerie, @cDocTipo WHILE @@FETCH_STATUS = 0 BEGIN --VENTAS IF ISNULL(@nTarjNumb,'') = '' Set @cCodctaCte = '' SELECT @cCodctaCte = MAX(convert(numeric,cCodctaCte)) FROM CUENTACTE SELECT @cCodctaCte = RIGHT('0000000000' + CONVERT(VARCHAR,CONVERT(NUMERIC,ISNULL(@cCodctaCte,'0')) + 1),10) IF @cDocTipo='11' SET @cTipTra='13' ELSE SET @cTipTra='06' --IGV ---------- SELECT @nPorcIGV=nmonto1 from Parametro where cCodParam='IGV' ----Servicio--------- SELECT @nImporServ= sum(Case When nServicio=0 then 0 else (((nProdCant * nProdPrecUnit) + (nProdCant * nProdPrecUnit * nDscto/100) ) / (1 + (@nPorcIGV/100) + (nServicio/100)) * (nServicio/100) )end ) FROM OperacionParalelaProducto (NOLOCK) WHERE cCajaCodi = @cCajaCodi AND cOpercode = @cOpercode ----Impor IGV----- SET @nImporIGV = (isnull(@nTotal,0) - isnull(@nImporServ,0))/(1 + (@nPorcIGV/100) ) * ( @nPorcIGV/100) ---Sub total--------- SET @nSubtotal= (isnull(@nTotal,0) - isnull(@nImporIGV,0) - isnull(@nImporServ,0)) IF isnull(@cDocCodigo,'')='' begin SET @cDocCodigo= RIGHT( '0000000' + CONVERT(VARCHAR,ISNULL(@cOperCode,'0')), 7 ) END IF isnull(@cDocTipo,'')='' begin SET @cDocTipo= '10' END INSERT INTO CUENTACTE( cCodctaCte, dtFechaOper, dtFechaReg, cIdTipTra, cCodCaja, vClieCod, vNomClie, cCodMone ,nPorcIGV, nSubtotal, nImporServ, nImporIGV, nImpoTotal, iTipoCliente, bSwAnulado, cTipoDoc ,cSerieDoc, cNroDoc,cAlmaCode) VALUES( @cCodctaCte, @dOperFecha, @tFecha, @cTipTra, @cCajaCodi, @vClieCode, @vNomClie,@Moneda ,@nPorcIGV, @nSubtotal, isnull(@nImporServ,0),@nimporIGV, @nTotal, @iTipoCliente, '0' , @cDocTipo ,@cDocSerie, @cDocCodigo,@cAlmaCode) IF @@ERROR <> 0 BEGIN SET @errorsave= 1 END --DETALLES SELECT @iItm = 0 DECLARE CURMOVNTADET CURSOR FOR SELECT O.cProdCode, O.nProdCant, O.nProdPrecUnit, A.vDscArtic, A.vDscArtCt, A.cUndSalida, O.nDscto, O.nServicio, O.cSupervisor FROM OperacionParalela P (NOLOCK) INNER JOIN OperacionParalelaProducto O (NOLOCK) ON P.cOpercode = O.cOperCode AND P.cCajaCodi = O.cCajaCodi LEFT JOIN Articulo A (NOLOCK) ON O.cProdCode = A.cCodArtic WHERE P.bprocesado=2 AND P.cFlagSincronizacion = '0' AND P.cOperTipo IN (20,21) AND P.cestado in (1,2) AND O.cCajaCodi = @cCajaCodi AND O.cOperCode = @cOperCode OPEN CURMOVNTADET FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant, @nProdPrec, @vDscArtic, @vDscArtCt, @cUndSalida, @nDscto, @nPorcServ,@cSupervisor WHILE @@FETCH_STATUS = 0 BEGIN SELECT @iItm = @iItm + 1 --Hallando costo de articulo SET @nPrecioOrig= @nProdPrec SET @nProdPrec=@nProdPrec + ( @nDscto/100 * @nProdPrec) SELECT @nCostoArt= nCostoArt FROM Articuloalmacen (NOLOCK) WHERE cCodartic= @cProdCode INSERT INTO CUENTACTED( cCodctaCte, NumItemCta, cCodartic, cProdcode, sProdDesc, sProdDscCrta, nPrecioOrig, nCostoArt, nQtdVendida, nPreciounit, nPorcDscto, nPorcServ,cSupervisor) VALUES( @cCodctaCte, @iItm, @cProdCode, @cProdCode, @vDscArtic, @vDscArtCt, @nPrecioOrig, isnull(@nCostoArt, 0), @nProdCant, @nProdPrec, @nDscto, isnull(@nPorcServ,0) ,@cSupervisor) IF @@ERROR <> 0 BEGIN SET @errorsave= 1 END FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant, @nProdPrec, @vDscArtic, @vDscArtCt, @cUndSalida, @nDscto, @nPorcServ,@cSupervisor END CLOSE CURMOVNTADET DEALLOCATE CURMOVNTADET FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @cOperCode, @dOperFecha, @cUserDesc, @cAlmaCode, @nTotal, @nTarjNumb, @Moneda, @vClieCode, @vNomClie, @iTipoCliente, @cDocCodigo, @cDocSerie, @cDocTipo END CLOSE CURMOVNTA DEALLOCATE CURMOVNTA ---- Cambia Flag de sincronizacion operaciones paralelas ----- UPDATE OperacionParalela SET cFlagSincronizacion = '1',bprocesado=1 WHERE cFlagSincronizacion = '0' AND cOperTipo IN (20,21) AND cestado IN (1,2) AND bprocesado=2 IF @@ERROR <> 0 BEGIN SET @errorsave= 1 END -------------------------------- --REGISTRA MOVIMIENTOS DE ALMACEN ----------------------------------- IF @errorsave= 0 BEGIN --exec usp_new_registraMovAlmacen @errorsave OUTPUT exec spr_registrarmovalmacen_desde_z1 @errorsave OUTPUT END IF @errorsave = 0 BEGIN COMMIT TRAN END ELSE BEGIN ROLLBACK TRAN PRINT 'ERROR AL SINCRONIZAR OPERACIONES' END END GO /****** Object: StoredProcedure [dbo].[spr_ejecutar_sincronizacion] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[spr_ejecutar_sincronizacion] AS BEGIN SET NOCOUNT ON DECLARE @existe INT SELECT @existe = COUNT(1) FROM TSINCRONIZACION(NOLOCK) WHERE nidEstadoSincro = 2 IF @existe = 0 BEGIN --NO EXISTEN SINCRONIZACIONES EN PROCESO SELECT @existe = COUNT(1) FROM TSINCRONIZACION(NOLOCK) WHERE nidEstadoSincro = 0 IF @existe > 0 BEGIN --EXISTEN SINCRONIZACIONES PENDIENTES DE PROCESO --CAMBIAMOS EL ESTADO DE LAS SINCRONIZACIONES 'PENDIENTES' A 'EN PROCESO' UPDATE TSINCRONIZACION SET nidEStadoSincro = 2, dfechaInicioSincro = GETDATE() WHERE nidEstadoSincro = 0 --EJECUTAMOS EL PROCESO DE GENERACION DE MOVIMIENTOS DE VENTA EXEC OSCMOYMOVIVNTA --CAMBIAMOS EL ESTADO DE LAS SINCRONIZACIONES 'EN PROCESO' A 'PROCESADOS' UPDATE TSINCRONIZACION SET nidEStadoSincro = 1, dfechaFinSincro = GETDATE() WHERE nidEstadoSincro = 2 --CAMBIAMOS EL ESTADO DE LAS SINCRONIZACIONES 'EN ESPERA' A 'PENDIENTES DE PROCESO' UPDATE TSINCRONIZACION SET nidEstadoSincro = 0 WHERE nidEstadoSincro = 3 END END SET NOCOUNT OFF END GO /****** Object: Table [dbo].[tmplimpiactacte281011] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[tmplimpiactacte281011]( [ccodctacte] [char](10) NOT NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[TMP_sp_lista_1] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[TMP_sp_lista_1]( [TMccodartic] [char](6) NULL, [TMnqtdvendida] [numeric](18, 2) NULL, [TMnpreciounit] [numeric](18, 2) NULL, [TMcTipoDoc] [char](2) NULL, [TMccodcaja] [varchar](50) NULL, [TMnCostoArt] [numeric](15, 2) NULL, [TMusuariotmp] [varchar](17) NULL, [TMcAlmaCode] [varchar](2) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[tmonedas] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING OFF GO CREATE TABLE [dbo].[tmonedas]( [cmoneda] [char](1) NOT NULL, [cnomb_mone] [char](20) NOT NULL ) ON [PRIMARY] SET ANSI_PADDING ON ALTER TABLE [dbo].[tmonedas] ADD [cSimb_mone] [char](10) NULL EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'Simbolo de la moneda (Agregado para Log)' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'tmonedas', @level2type=N'COLUMN',@level2name=N'cSimb_mone' GO SET ANSI_PADDING OFF GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'Simbolo de la moneda (Agregado para Log)' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'tmonedas', @level2type=N'COLUMN',@level2name=N'cSimb_mone' GO /****** Object: Table [dbo].[TipoTransaccion] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[TipoTransaccion]( [nProceden] [tinyint] NULL, [cDscTrans] [char](50) NULL, [cIdTipTra] [char](2) NOT NULL, CONSTRAINT [PK_TipoTransaccion] PRIMARY KEY CLUSTERED ( [cIdTipTra] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[TipoFormaPago] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[TipoFormaPago]( [cCodTipoPago] [char](2) NOT NULL, [vDscTipoPago] [varchar](20) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[TipoEstadoDocumentoPago] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[TipoEstadoDocumentoPago]( [cCodEstadoDocumento] [char](2) NOT NULL, [vDscEstadoDocumento] [varchar](20) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[TipoDocumento] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[TipoDocumento]( [vDscDocmt] [varchar](20) NULL, [cIdTipDoc] [char](2) NOT NULL, [cAbrevDoc] [char](5) NULL, CONSTRAINT [PK__TipoDocumento__2F10007B] PRIMARY KEY NONCLUSTERED ( [cIdTipDoc] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[TipoCredito] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[TipoCredito]( [cCodTipoCredito] [char](2) NOT NULL, [vDscTipoCredito] [char](30) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[TipoCliente] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[TipoCliente]( [iTipoCliente] [int] NOT NULL, [vDscTipoCli] [varchar](50) NULL, [cAbrevTipoCli] [char](15) NULL, [vObsAdic] [varchar](100) NULL, CONSTRAINT [PK_TipoCliente] PRIMARY KEY CLUSTERED ( [iTipoCliente] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[Tipo_Tarjeta] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Tipo_Tarjeta]( [cod_tar] [char](4) NOT NULL, [descrip] [varchar](50) NULL, CONSTRAINT [PK_Tipo_Tarjeta] PRIMARY KEY CLUSTERED ( [cod_tar] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[tfpago] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING OFF GO CREATE TABLE [dbo].[tfpago]( [cformapago] [char](3) NOT NULL, [cdesfpago] [char](30) NOT NULL, [ndiasvcto] [numeric](10, 0) NOT NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[usp_inf_vts_cajadet_z1] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[usp_inf_vts_cajadet_z1] ( @fechaini varchar(10) = null, @fechafin varchar(10) = null, @cCodCaja varchar(6) = '*' ) as Begin declare @NombreCaja varchar(25) set @cCodCaja = isnull(@cCodCaja,'*') set @NombreCaja='' if @cCodcaja='*' begin set @NombreCaja='Todas las Cajas' end else begin set @NombreCaja=upper(@cCodcaja) end select 'Del: ' + convert(varchar,convert(datetime,@fechaini,105),103) + ' AL ' + convert(varchar,convert(datetime,@fechafin,105),103) as sFecha ,'Referencia Caja: ' + @NombreCaja as sCaja --, d.doperfech, d.ccajacodi,a.vdscartic, d.nprodcant,isnull(d.nmonto,0) as precio, (isnull(d.nprodcant,0) * isnull(d.nmonto,0)) as monto , d.doperfech , d.ccajacodi ,a.vdscartic ,sum(d.nProdCant)prodcant ,d.nmonto as precio ,(sum(d.nProdCant) * d.nmonto) as monto from tdetallez1 d left outer join articulo a on convert(int,a.ccodartic)=d.cProdCode where d.doperfech between convert(datetime,@fechaini,103) and convert(datetime,@fechafin,103) and (right(rtrim(ltrim(d.ccajacodi)),2)=right(rtrim(ltrim(@cCodCaja)),2) or @cCodCaja='*') group by d.doperfech, d.ccajacodi,a.vdscartic,d.nmonto--d.doperfech, d.ccajacodi,a.vdscartic, d.nprodcant,d.nmonto --order by d.nidDetallez1 End GO /****** Object: Table [dbo].[Tarjeta] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Tarjeta]( [cClieCode] [int] NOT NULL, [nTarjNumb] [varchar](50) NOT NULL, [cTarjActi] [tinyint] NULL, [dEmisDate] [datetime] NULL, [sUserDesc] [varchar](50) NULL, [dFechCrea] [datetime] NULL, [dFechModi] [datetime] NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[usp_Log_VTS_CLI_MENSUALES_Rep] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE Procedure [dbo].[usp_Log_VTS_CLI_MENSUALES_Rep] @semestre char(1), @anho char(4), @Usuario varchar(100) = '', @Cliente char(6)='*' , @TipoCliente int = 9999, @Titulo varchar(150) = 'Reporte de Ventas Mensuales por Cliente', @Articulo char(6) = '*', @Familia char(6)='*', @cCodCaja char(6) = '*' As Begin SET NOCOUNT Off declare @desdemes int declare @hastames int declare @mes1 varchar(20) declare @mes2 varchar(20) declare @mes3 varchar(20) declare @mes4 varchar(20) declare @mes5 varchar(20) declare @mes6 varchar(20) declare @strSQL varchar(8000) if @semestre=1 BEGIN set @desdemes=1 set @hastames=6 set @mes1='Enero' set @mes2='Febrero' set @mes3='Marzo' set @mes4='Abril' set @mes5='Mayo' set @mes6='Junio' END ELSE BEGIN set @desdemes=7 set @hastames=12 set @mes1='Julio' set @mes2='Agosto' set @mes3='Setiembre' set @mes4='Octubre' set @mes5='Noviembre' set @mes6='Diciembre' END SELECT @strSQL = 'SELECT D.cCodArtic as CodigoArt, (Select ccodCatal from Articulo where cCodartic=d.cCodartic) as codigocatalogo, (Select vDscartic from Articulo where cCodartic=d.cCodartic) as descripcionarticulo, Usuario='''+@Usuario+''''+ ',Local=(Select vLocalActivo from Empresa where bSwactivo=1), C.vClieCod as codigoCliente, C.idlocal, vNomClie as NombreCliente, (SELECT sum(D1.NQtdVendida) FROM CuentaCte C1, CuentaCteD D1 WHERE C1.cCodctaCte=D1.cCodctaCte and month(C1.dtFechaOper)='+cast(@desdemes as char(2))+ ' and year(C1.dtFechaOper)='+cast(@anho as char(4))+ ' and C1.bSwAnulado=0 and D1.cCodartic=D.cCodArtic and C1.vClieCod=C.vClieCod) as CantMes1, (SELECT sum(D1.NQtdVendida) FROM CuentaCte C1, CuentaCteD D1 WHERE C1.cCodctaCte=D1.cCodctaCte and month(C1.dtFechaOper)='+cast(@desdemes+1 as char(2))+ ' and year(C1.dtFechaOper)='+cast(@anho as char(4))+ ' and C1.bSwAnulado=0 and D1.cCodartic=D.cCodArtic and C1.vClieCod=C.vClieCod) as CantMes2, (SELECT sum(D1.NQtdVendida) FROM CuentaCte C1, CuentaCteD D1 WHERE C1.cCodctaCte=D1.cCodctaCte and month(C1.dtFechaOper)='+cast(@desdemes+2 as char(2))+ ' and year(C1.dtFechaOper)='+cast(@anho as char(4))+ ' and C1.bSwAnulado=0 and D1.cCodartic=D.cCodArtic and C1.vClieCod=C.vClieCod) as CantMes3, (SELECT sum(D1.NQtdVendida) FROM CuentaCte C1, CuentaCteD D1 WHERE C1.cCodctaCte=D1.cCodctaCte and month(C1.dtFechaOper)='+ cast(@desdemes+3 as char(2))+ ' and year(C1.dtFechaOper)='+cast(@anho as char(4))+ ' and C1.bSwAnulado=0 and D1.cCodartic=D.cCodArtic and C1.vClieCod=C.vClieCod) as CantMes4, (SELECT sum(D1.NQtdVendida) FROM CuentaCte C1, CuentaCteD D1 WHERE C1.cCodctaCte=D1.cCodctaCte and month(C1.dtFechaOper)='+ cast(@desdemes+4 as char(2))+ ' and year(C1.dtFechaOper)='+ cast(@anho as char(4))+ ' and C1.bSwAnulado=0 and D1.cCodartic=D.cCodArtic and C1.vClieCod=C.vClieCod) as CantMes5, (SELECT sum(D1.NQtdVendida) FROM CuentaCte C1, CuentaCteD D1 WHERE C1.cCodctaCte=D1.cCodctaCte and month(C1.dtFechaOper)='+ cast(@desdemes+5 as char(2))+ ' and year(C1.dtFechaOper)='+ cast(@anho as char(4))+ ' and C1.bSwAnulado=0 and D1.cCodartic=D.cCodArtic and C1.vClieCod=C.vClieCod) as CantMes6, (SELECT sum(D1.NQtdVendida*D1.nPreciounit) FROM CuentaCte C1, CuentaCteD D1 WHERE C1.cCodctaCte=D1.cCodctaCte and month(C1.dtFechaOper)='+ cast(@desdemes as char(2))+ ' and year(C1.dtFechaOper)='+ cast(@anho as char(4))+ ' and C1.bSwAnulado=0 and D1.cCodartic=D.cCodArtic and C1.vClieCod=C.vClieCod) as MontoMes1, (SELECT sum(D1.NQtdVendida*D1.nPreciounit) FROM CuentaCte C1, CuentaCteD D1 WHERE C1.cCodctaCte=D1.cCodctaCte and month(C1.dtFechaOper)=' + cast(@desdemes+1 as char(2))+ ' and year(C1.dtFechaOper)=' + cast(@anho as char(4))+ ' and C1.bSwAnulado=0 and D1.cCodartic=D.cCodArtic and C1.vClieCod=C.vClieCod) as MontoMes2, (SELECT sum(D1.NQtdVendida*D1.nPreciounit) FROM CuentaCte C1, CuentaCteD D1 WHERE C1.cCodctaCte=D1.cCodctaCte and month(C1.dtFechaOper)='+ cast(@desdemes+2 as char(2))+ ' and year(C1.dtFechaOper)=' + cast(@anho as char(4))+ ' and C1.bSwAnulado=0 and D1.cCodartic=D.cCodArtic and C1.vClieCod=C.vClieCod) as MontoMes3, (SELECT sum(D1.NQtdVendida*D1.nPreciounit) FROM CuentaCte C1, CuentaCteD D1 WHERE C1.cCodctaCte=D1.cCodctaCte and month(C1.dtFechaOper)='+ cast(@desdemes+3 as char(2))+ ' and year(C1.dtFechaOper)=' +cast(@anho as char(4))+ ' and C1.bSwAnulado=0 and D1.cCodartic=D.cCodArtic and C1.vClieCod=C.vClieCod) as MontoMes4, (SELECT sum(D1.NQtdVendida*D1.nPreciounit) FROM CuentaCte C1, CuentaCteD D1 WHERE C1.cCodctaCte=D1.cCodctaCte and month(C1.dtFechaOper)='+ cast(@desdemes+4 as char(2))+ ' and year(C1.dtFechaOper)=' +cast(@anho as char(4))+ ' and C1.bSwAnulado=0 and D1.cCodartic=D.cCodArtic and C1.vClieCod=C.vClieCod) as MontoMes5, (SELECT sum(D1.NQtdVendida*D1.nPreciounit) FROM CuentaCte C1, CuentaCteD D1 WHERE C1.cCodctaCte=D1.cCodctaCte and month(C1.dtFechaOper)='+ cast(@desdemes+5 as char(2))+ ' and year(C1.dtFechaOper)=' + cast(@anho as char(4))+ ' and C1.bSwAnulado=0 and D1.cCodartic=D.cCodArtic and C1.vClieCod=C.vClieCod) as MontoMes6, sum(D.NQtdVendida) as CantTotal, sum(D.NQtdVendida*D.nPreciounit) as TotalTotal,' +''''+@semestre+''''+' as Semestre '+ ',' +''''+ @anho+''''+' as Año '+','+ ''''+@Titulo+''''+' as Titulo, '+''''+@mes1+''''+' as M1, '+''''+@mes2+''''+' as M2, '+''''+ @mes3+''''+' as M3, '+''''+@mes4+''''+ ' as M4, '+''''+@mes5+''''+' as M5, '+''''+@mes6+''''+' as M6 FROM CuentaCte C, CuentaCteD D, Articulo A WHERE C.cCodctaCte=D.cCodctaCte and D.cCodArtic=A.cCodArtic and month(C.dtFechaOper) between '+cast(@desdemes as char(2))+ 'and '+ cast(@hastames as char(2))+ ' and year(C.dtFechaOper)='+@anho+' and C.bSwAnulado=0 and (C.cIdTipTra='+'06'+' or C.cIdTipTra='+'10'+')' If @TipoCliente<>9999 BEGIN SELECT @strSQL = @strSQL + ' and (C.iTipoCliente='+cast(@TipoCliente as varchar) If @TipoCliente=1 BEGIN SELECT @strSQL = @strSQL + ' or C.iTipoCliente=0' END SELECT @strSQL = @strSQL + ')' END If @Cliente<>'*' SELECT @strSQL = @strSQL + ' and C.vClieCod='+@Cliente If @cCodCaja<>'*' SELECT @strSQL = @strSQL + ' and C.cCodCaja='''+RTrim(@cCodCaja)+'''' If @Familia<>'*' SELECT @strSQL = @strSQL + ' and A.cCodLinea='+@Familia -- and (@Familia='*' or A.cCodLinea = @Familia) SELECT @strSQL = @strSQL + ' group by D.cCodArtic, C.vClieCod,idlocal,vNomClie having (1=1' if @Articulo<>'*' SELECT @strSQL = @strSQL + ' and D.cCodArtic='+''''+RTrim(@Articulo) + '''' if @Cliente<>'*' SELECT @strSQL = @strSQL + ' and C.vClieCod='''+RTrim(@Cliente)+'''' SELECT @strSQL = @strSQL + ')' -- print @strSQL Exec(@strSQL) End GO /****** Object: Table [dbo].[Venta02] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Venta02]( [cCodVta] [char](10) NOT NULL, [NroItem] [numeric](18, 0) NOT NULL, [cCodartic] [char](6) NULL, [sProdDscCrta] [varchar](100) NULL, [nPrecioOrig] [numeric](18, 2) NULL, [nQtdVendida] [numeric](18, 2) NULL, [nDescuento] [numeric](18, 2) NULL, [nServicio] [numeric](18, 2) NULL, CONSTRAINT [PK_Venta02] PRIMARY KEY CLUSTERED ( [cCodVta] ASC, [NroItem] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[Venta01] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Venta01]( [cCodVta] [char](10) NOT NULL, [TipoDoc] [char](2) NULL, [cSerieDoc] [char](4) NULL, [NroDoc] [char](7) NULL, [cCodCaja] [char](10) NULL, [cClienteCode] [int] NULL, [IdLocal] [int] NULL, [DscCliente] [varchar](80) NULL, [NroRuc] [char](11) NULL, [ValorVta] [numeric](15, 2) NULL, [Igv] [numeric](15, 2) NULL, [Serv] [numeric](15, 2) NULL, [TotVta] [numeric](15, 2) NULL, [nPorcIGV] [numeric](15, 2) NULL, [TotVtaUSD] [numeric](15, 2) NULL, [cCodMoneda] [char](1) NULL, [nTipoCambio] [numeric](18, 2) NULL, [cCodTipoCredito] [char](2) NULL, [FechaEmision] [datetime] NULL, [FechaAnulacion] [datetime] NULL, [FechaVencimiento] [datetime] NULL, [cCodCabVtaRef] [char](10) NULL, [bTieneDetraccion] [bit] NULL, [bLiquidado] [bit] NULL, CONSTRAINT [PK_Venta01] PRIMARY KEY CLUSTERED ( [cCodVta] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[validacion_canje_cumpleaños] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[validacion_canje_cumpleaños]( [i_cod_sp_validacion] [int] NOT NULL, [vc_sp_validacion] [varchar](100) NOT NULL, PRIMARY KEY CLUSTERED ( [i_cod_sp_validacion] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[sp_validar_canje_cumpleaños] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO /* * Descripcion : Permite ejecutar una alguno de los SPs de validacion para el Canje de Cumplaños. * Version : 1 * Modificado : 06/07/2010 * Nota : Cada < Articulo > se configurara, <i_cod_sp_validacion >, para indicar que SPs se usara para la validacion. * Retorno : * 1 - El procedimiento almacenado para la validacion no existe, en tabla de validaciones. * 1.1-El procedimiento almacenado para la validacion no existe, en la Base de Datos. * 1.2-El articulo no existe. * 1.3-El codigo de validacion es incorrecta, pues el articulo registra otro codigo. * X - SEGUN RESULTADOS DE SP DE VALIDACION */ create procedure [dbo].[sp_validar_canje_cumpleaños] @i_id_local int, @i_cod_cliente int, @vc_cod_articulo char(6), @n_cantidad_artic numeric(18, 2), @i_cod_sp_validacion int as begin declare @vc_Result varchar(1000) declare @sp varchar(100) declare @sql varchar(1000) set @sp = ( select isnull(vc_sp_validacion, '') from validacion_canje_cumpleaños (nolock) where i_cod_sp_validacion = @i_cod_sp_validacion) if (@sp) = '' begin set @vc_Result = '1-El procedimiento almacenado para la validacion no existe, en tabla de validaciones.' select @vc_Result as vc_Result return end else begin if not exists (select * from sysobjects (nolock) where xtype = 'P' and name = @sp) begin set @vc_Result = '1.1-El procedimiento almacenado para la validacion no existe, en la Base de Datos.' select @vc_Result as vc_Result return end else begin if not exists (select * from articulo (nolock) where cCodArtic = @vc_cod_articulo) begin set @vc_Result = '1.2-El articulo no existe.' select @vc_Result as vc_Result return end else begin if exists ( select * from articulo (nolock) where cCodArtic = @vc_cod_articulo and i_cod_sp_validacion is not null) begin if not exists (select * from articulo (nolock) where cCodArtic = @vc_cod_articulo and i_cod_sp_validacion = @i_cod_sp_validacion) begin set @vc_Result = '1.3-El codigo de validacion es incorrecta, pues el articulo registra otro codigo.' select @vc_Result as vc_Result return end else begin set @sql = 'exec ' + @sp + ' ' + rtrim(ltrim(convert(varchar(2), @i_id_local))) + ', ' + rtrim(ltrim(convert(varchar(20), @i_cod_cliente))) + ', ' + char(39) + ltrim(rtrim(@vc_cod_articulo)) + char(39) + ', ' + ltrim(rtrim(convert(varchar(50), @n_cantidad_artic))) -- print @sql execute (@sql) return end end else begin --sw Producto sin codigo de Validacion set @vc_Result = '0-OK.' select @vc_Result as vc_Result return end end end end end GO /****** Object: Table [dbo].[usuario] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[usuario]( [Personal_Id] [char](6) NULL, [Compania_Id] [char](2) NULL, [Planilla_Id] [char](2) NULL, [Apellido_Paterno] [varchar](40) NOT NULL, [Apellido_Materno] [varchar](40) NOT NULL, [Nombres] [varchar](50) NOT NULL, [Sexo_Id] [char](2) NULL, [Fecha_Nacimiento] [datetime] NULL, [E_Civil_Id] [char](2) NULL, [Fecha_Ini_AporteAFP] [datetime] NULL, [Tipo_Doc_Id] [char](2) NULL, [Nro_Doc] [varchar](12) NULL, [Categoria_Id] [char](2) NULL, [Cargo_Id] [char](3) NULL, [Situacion_Id] [char](2) NULL, [Afp_Id] [char](2) NULL, [Afp_cod_afiliacion] [char](15) NULL, [Seguro_cod] [char](15) NULL, [Ccosto_Id] [char](15) NULL, [Dpto] [char](2) NULL, [Prov] [char](2) NULL, [Dist] [char](2) NULL, [Direccion] [varchar](100) NULL, [Telefono] [varchar](10) NULL, [Nro_Hijos] [numeric](2, 0) NULL, [Tip_cta_Id] [char](2) NULL, [Nro_cta] [varchar](20) NULL, [Moneda_cta_Id] [char](2) NULL, [Banco_cta_Id] [char](2) NULL, [Nro_cta_cts] [varchar](20) NULL, [Tip_cta_cts_Id] [char](2) NULL, [Moneda_cta_cts_Id] [char](2) NULL, [Banco_cta_cts_Id] [char](2) NULL, [Proyecto_Id] [char](6) NULL, [Tgasto_Id] [char](2) NULL, [Usuario] [varchar](15) NULL, [Pase] [varchar](15) NULL, [lAdministrador] [numeric](1, 0) NULL, [Estado_Id] [char](2) NULL, [Area_Id] [char](2) NULL, [cCodPerfil] [char](2) NULL, [solic_int] [bit] NOT NULL, [aprob_solic] [bit] NOT NULL, [o_c] [bit] NOT NULL, [NI] [bit] NOT NULL, [NS] [bit] NOT NULL, [Informes] [bit] NOT NULL, [Articulo] [bit] NOT NULL, [Linea_Sub] [bit] NOT NULL, [Config] [bit] NOT NULL, [Seguridad] [bit] NOT NULL, [Inf_Producto] [bit] NOT NULL, [Inf_Vtas] [bit] NOT NULL, [Inf_VtasxCli] [bit] NOT NULL, [Inf_MovAl] [bit] NOT NULL, [Proveedor] [bit] NOT NULL, [Marca] [bit] NOT NULL, [UndMed] [bit] NOT NULL, [Validez] [datetime] NULL, [AccesoOp] [int] NULL, [UnidOrg] [char](6) NULL, [cadversion] [varchar](50) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N' ' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'usuario', @level2type=N'COLUMN',@level2name=N'cCodPerfil' GO /****** Object: StoredProcedure [dbo].[usp_Pry_FacturaDetalle] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[usp_Pry_FacturaDetalle] @iAccion int= 0, @cCodctaCte char(10) = Null, @NumItemCta numeric(18,0) = Null, @cCodartic char(6) = Null, @cProdcode varchar(100) = Null, @sProdDesc varchar(100) = Null, @sProdDscCrta varchar(25) = Null, @nPrecioOrig numeric(18,2) = Null, @nCostoArt numeric(18,2) = Null, @nQtdVendida numeric(18,2) = Null, @nPreciounit numeric(18,2) = Null, @ccidpry char(15) = Null, @ccosto char(15) = Null, @vDscLarga varchar(500) = Null AS BEGIN select 1 /* If @iAccion = 0 Begin Insert Into CUENTACTED (cCodctaCte,cCodartic,cProdcode,sProdDesc,sProdDscCrta,nPrecioOrig,nCostoArt,nQtdVendida,nPreciounit ccidpry,ccosto,vDscLarga) Values (@cCodctaCte,@cCodartic,@cProdcode,@sProdDesc,@sProdDscCrta,@nPrecioOrig,@nCostoArt) End */ END GO /****** Object: StoredProcedure [dbo].[usp_SincronizaTablas] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO --exec usp_SincronizaTablas 'C:\Documents and Settings\osc0005\Desktop\Caja Registradora Marco\omnipos.mdb' CREATE PROCEDURE [dbo].[usp_SincronizaTablas] @ruta varchar(500)='' AS Begin --declare @ruta varchar(500) --set @ruta = '\\Osc2003\OSC\Omnisys\Caja RegistradoraTouch\omnipos.mdb' declare @strSQL varchar(8000) declare @cnnstr varchar(1000) set @cnnstr='OpenDataSource('+''''+'Microsoft.Jet.OLEDB.4.0'+''''+','+''''+'Data Source="' + @ruta + '";User ID=Admin;Password='+''''+')' print @strSQL --Unidades de medida set @strSQL='DELETE FROM '+@cnnstr+'...UnidadMedida' exec(@strSQL) set @strSQL='INSERT ' + @cnnstr + '...UnidadMedida' +'(cUndMedid, vDscUndMd, vDscCrta) SELECT cUndMedid, vDscundmd, vDscCrta FROM UnidadMedida' exec(@strSQL) --Ambientes set @strSQL='DELETE FROM '+@cnnstr+'...Ambiente' exec(@strSQL) set @strSQL='INSERT ' + @cnnstr + '...Ambiente' +'(nAmbiente, sDscBreveAmb, sDscAmbiente) SELECT nAmbiente, sDscBreveAmb, sDscAmbiente FROM Ambiente WHERE nFlagActivo=1' exec(@strSQL) --Ambientes x Lineas set @strSQL='DELETE FROM '+@cnnstr+'...AmbienteLinea' exec(@strSQL) set @strSQL='INSERT ' + @cnnstr + '...AmbienteLinea' +'(nAmbiente, cCodLinea) SELECT A.nAmbiente, cCodLinea FROM Ambiente A, AmbienteLinea AL WHERE A.nAmbiente=AL.nAmbiente AND A.nFlagActivo=1 AND AL.nFlagActivo=1' exec(@strSQL) --Ambientes x Lineas x Productos set @strSQL='DELETE FROM '+@cnnstr+'...AmbienteLineaProd' exec(@strSQL) set @strSQL='INSERT ' + @cnnstr + '...AmbienteLineaProd' +'(nAmbiente, cCodLinea, vCodSubLn, cProdCode) SELECT ALP.nAmbiente, ALP.cCodLinea, ALP.vCodSubLn, ALP.cProdCode FROM Ambiente A, AmbienteLinea AL, AmbienteLineaProd ALP WHERE A.nAmbiente=AL.nAmbiente AND AL.nAmbiente=ALP.nAmbiente AND A.nFlagActivo=1 AND AL.nFlagActivo=1 AND ALP.nFlagFrecuente=1' exec(@strSQL) --Atributos set @strSQL='DELETE FROM '+@cnnstr+'...Atributo' exec(@strSQL) set @strSQL='INSERT ' + @cnnstr + '...Atributo' +'(cCodProd, cCodLinea, vCodSubLn, n_Recargo, n_Descuento) SELECT cCodProd, cCodLinea, vCodSubLn, n_Recargo, n_Descuento FROM Atributo' exec(@strSQL) --Estaciones set @strSQL='DELETE FROM '+@cnnstr+'...Estacion' exec(@strSQL) set @strSQL='INSERT ' + @cnnstr + '...Estacion' +'(nEstacion, vDscEstacion, nAmbiente, cCodPerfil, nSerieHD) SELECT nEstacion, vDscEstacion, nAmbiente, cCodPerfil, nSerieHD FROM Estacion WHERE nFlagActivo=1' exec(@strSQL) --Impresoras set @strSQL='DELETE FROM '+@cnnstr+'...Impresora' exec(@strSQL) set @strSQL='INSERT ' + @cnnstr + '...Impresora' +'(nImpresora, vDscImpresora, vUNC) SELECT nImpresora, vDscImpresora, vUNC FROM Impresora' exec(@strSQL) --Impresora x Tipo de Documento set @strSQL='DELETE FROM '+@cnnstr+'...ImprTipDocEst' exec(@strSQL) set @strSQL='INSERT ' + @cnnstr + '...ImprTipDocEst' +'(nImpresora, cIdTipDoc, nEstacion) SELECT nImpresora, cIdTipDoc, nEstacion FROM ImprTipDocEst' exec(@strSQL) -- Categorias de despacho set @strSQL='DELETE FROM '+@cnnstr+'...LugarDespacho' exec(@strSQL) set @strSQL='INSERT ' + @cnnstr + '...LugarDespacho' +'(nLugarDespacho, vDscLugarDespacho) SELECT nLugarDespacho, vDscLugarDespacho FROM LugarDespacho WHERE nActivo=1' exec(@strSQL) -- Lineas set @strSQL='DELETE FROM '+@cnnstr+'...Linea' exec(@strSQL) set @strSQL='INSERT ' + @cnnstr + '...Linea' +'(cCodLinea, vDscLinea, bswUltimo) SELECT cCodLinea, vDscLinea, bswUltimo FROM Linea' exec(@strSQL) -- Sub-Lineas set @strSQL='DELETE FROM '+@cnnstr+'...SubLinea' exec(@strSQL) set @strSQL='INSERT ' + @cnnstr + '...SubLinea' +'(vCodSubLn, vDscSubLn, cCodLinea, bswultimo) SELECT vCodSubLn, vDscSubLn, cCodLinea, bswultimo FROM SubLinea' exec(@strSQL) End GO /****** Object: StoredProcedure [dbo].[OSCListadoMoneda] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[OSCListadoMoneda] @iAccion INT = 0, @cMoneda CHAR(1) = '', @cNomb_mone VARCHAR(20)= '', @cSimb_mone VARCHAR(10) = '' AS BEGIN DECLARE @sSQL VARCHAR(4000) IF @iAccion = 0 BEGIN SET @sSQL = ' SELECT cmoneda, cnomb_mone, cSimb_mone' SET @sSQL = @sSQL + ' FROM tmonedas WHERE 1 = 1' IF @cMoneda <> '' SET @sSQL = @sSQL + ' AND cMoneda LIKE ''%' + @cMoneda + '%''' IF @cNomb_mone <> '' SET @sSQL = @sSQL + ' AND cNomb_mone LIKE ''%' + @cNomb_mone + '%''' IF @cSimb_mone <> '' SET @sSQL = @sSQL + ' AND cSimb_mone LIKE ''%' + @cSimb_mone + '%''' EXEC(@sSQL) END END GO /****** Object: Table [dbo].[resumen$] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE TABLE [dbo].[resumen$]( [cCodartic] [nvarchar](255) NULL, [cCodCatal] [nvarchar](255) NULL, [Descripcion de Articulo] [nvarchar](255) NULL, [Linea] [nvarchar](255) NULL, [SubLinea] [nvarchar](255) NULL, [Descripcion Corta] [nvarchar](255) NULL, [STOCK] [float] NULL ) ON [PRIMARY] GO /****** Object: StoredProcedure [dbo].[usp_actualizastock2] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_actualizastock2] AS BEGIN DECLARE @cCodArtic CHAR(7), @sumingreso numeric(18,4), @sumsalida numeric(18,4), @nStockAl numeric(18,4), @item numeric DECLARE Cur_Articulo cursor for Select cCodartic from resumen$ OPEN Cur_Articulo FETCH NEXT FROM Cur_Articulo INTO @cCodArtic set @item=0 WHILE @@FETCH_STATUS = 0 BEGIN set @sumingreso=0 set @sumsalida=0 set @nStockAl=0 set @item=@item + 1 select @nStockAl=ISNULL(Stock,0) from resumen$ where cCodartic=@cCodArtic select @sumingreso=ISNULL(sum(nQtdEquiv),0) from movalmacend where cCodidart=@cCodArtic and ntipmov=1 select @sumsalida= isnull(sum(nQtdEquiv),0) from movalmacend where cCodidart=@cCodArtic and ntipmov=2 set @nStockAl=@nStockAl - isnull(@sumingreso,0) + isnull(@sumsalida,0) INSERT INTO MOVALMACEND (nNmtitmMv,ccodidart, nqtdmovim,nqtdequiv, ccodmoval, ntipmov) values (@item, @ccodartic, @nstockal,@nstockal, '0060000029',1) FETCH NEXT FROM Cur_Articulo INTO @cCodArtic END DEALLOCATE Cur_Articulo END GO /****** Object: Table [dbo].[RegVentasDet] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[RegVentasDet]( [IdRegVentasCabe] [bigint] NOT NULL, [IdDetalle] [int] NOT NULL, [CCLocal] [char](10) NOT NULL, [TipDoc] [char](2) NOT NULL, [SerDoc] [char](4) NOT NULL, [NumDoc] [char](15) NOT NULL, [Cta] [char](8) NOT NULL, [Neto] [numeric](18, 2) NULL, CONSTRAINT [PK_RegVentasDet] PRIMARY KEY CLUSTERED ( [IdRegVentasCabe] ASC, [IdDetalle] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[RegVentasCabe] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[RegVentasCabe]( [IdRegVentasCabe] [bigint] NOT NULL, [CCLocal] [char](10) NOT NULL, [TipDoc] [char](2) NOT NULL, [SerDoc] [char](4) NOT NULL, [NumDoc] [char](15) NOT NULL, [Fecha] [datetime] NULL, [Vencim] [datetime] NULL, [Ruc] [char](11) NULL, [Nombre] [char](100) NULL, [Moneda] [char](1) NULL, [ValVta] [numeric](18, 2) NULL, [Igv] [numeric](18, 2) NULL, [Serv] [numeric](18, 2) NULL, [TC] [numeric](18, 2) NULL, [Anulado] [char](1) NULL, [FechaRegistro] [datetime] NULL, CONSTRAINT [PK_RegVentasCabe] PRIMARY KEY CLUSTERED ( [IdRegVentasCabe] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[registro_canje_cumpleaños_d] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[registro_canje_cumpleaños_d]( [vc_cod_mov] [char](10) NOT NULL, [i_tip_mov] [int] NOT NULL, [n_numero_item] [numeric](10, 0) NOT NULL, [vc_cod_articulo] [char](6) NOT NULL, [bFlagSincro] [bit] NULL, [i_id_local_canje] [int] NOT NULL, CONSTRAINT [PK_registro_canje_cumpleaños_d] PRIMARY KEY CLUSTERED ( [vc_cod_mov] ASC, [i_tip_mov] ASC, [n_numero_item] ASC, [i_id_local_canje] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[registro_canje_cumpleaños] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[registro_canje_cumpleaños]( [vc_cod_mov] [char](10) NOT NULL, [i_tip_mov] [int] NOT NULL, [vc_tip_mov] [char](2) NOT NULL, [dt_fecha_registro] [datetime] NOT NULL, [i_id_local] [int] NOT NULL, [i_cod_cliente] [int] NOT NULL, [bFlagSincro] [bit] NULL, [i_id_local_canje] [int] NULL, CONSTRAINT [PK_registro_canje_cumpleaños] PRIMARY KEY CLUSTERED ( [vc_cod_mov] ASC, [i_tip_mov] ASC, [i_id_local] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[usp_Log_MovAlmacenMant] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE Procedure [dbo].[usp_Log_MovAlmacenMant] @iaccion int, @cCodMovAl char(10) , @nTipMov tinyint= 0, @dtFecharg datetime = null, @dtFechMov datetime = null, @cIdoficin char(6) =null, @cCodcosto char(6)= null, @cCodUsrRg char(6) = null, @cCodAlmac char(2) = null, @vObseAdic varchar(150) = null, @nImpTotal varchar(20)= "0.0000", @cIdTipTra char(2) = null, @cIdTipDoc char(2) = null, @cCodOComp char(10) = null, @cIdTipItm char (2) = null, @cUsrRespo char(6) = null, @cTranspor char(6) = null, @cSerieDocRef char(4)= null, @cDocRefer char(18) = null, @cCodProve varchar(15) = null, @vContProv varchar(50)= null, @cCodMoned char(2) = null, @cAnioproy char(4) = null, @cCodProyt char(6) = null, @cUsrRecog char(6) = null, @cUsrsolic char(6) = null, @vRuc_Tarj varchar(11)=null, @bSwAnulado int, @nTipoCambio numeric(18,2)= 0, @nPuntosCanje varchar(20)= "0" , @bSwIncIGV bit = 0, @i_id_local_canje int = 1, @cCodAlmac2 char(2) = null, @dtFechDocRef datetime=null, @cCodGasto char(2)=null, @bSwIncPercepcion bit=0, @nMontoPercepcion numeric(18,2) =0, @FlagDirecto int=0 As Begin If @iaccion=0 -- Inserta un Movimiento de almacen begin INSERT INTO MovAlmacen (cCodMovAl, nTipMov, dtFecharg, dtFechMov, cIdoficin, cCodcosto, cCodUsrRg, cCodAlmac, nImpTotal,cIdTipTra, cIdTipDoc, cCodOComp, cIdTipItm, cUsrRespo, cTranspor, vObseAdic, cSerieDocRef, cDocRefer, cCodProve, vContProv, vRuc_Tarj, cCodMoned, cAnioproy, cCodProyt, cUsrRecog, cUsrsolic, bSwAnulado, nTipoCambio, nPuntosCanje, bSwIncIGV,cCodAlmac2,dtFechDocRef,cCodGasto,bSwIncPercepcion,nMontoPercepcion,FlagDirecto) VALUES (@cCodMovAl, @nTipMov, @dtFecharg, @dtFechMov, @cIdoficin, @cCodcosto, @cCodUsrRg, @cCodAlmac, @nImpTotal, @cIdTipTra, @cIdTipDoc, @cCodOComp, @cIdTipItm, @cUsrRespo, @cTranspor, @vObseAdic, @cSerieDocRef, @cDocRefer, @cCodProve, @vContProv,@vRuc_Tarj, @cCodMoned, @cAnioproy, @cCodProyt,@cUsrRecog, @cUsrsolic, @bSwAnulado, @nTipoCambio, @nPuntosCanje, @bSwIncIGV,@cCodAlmac2,@dtFechDocRef,@cCodGasto,@bSwIncPercepcion,@nMontoPercepcion,@FlagDirecto) --sw Add 08/07/2010 if @nTipMov = 2 and @cIdTipTra = '05' --Salida - Canje begin insert into registro_canje_cumpleaños (vc_cod_mov, i_tip_mov, vc_tip_mov, dt_fecha_registro, i_id_local, i_cod_cliente, i_id_local_canje) values (@cCodMovAl, @nTipMov, @cIdTipTra, @dtFecharg, @cUsrRecog, @cCodProve, @i_id_local_canje) end --sw End If @iaccion= 1 begin Update MovAlmacen set dtFechMov=@dtFechMov,cIdTipDoc=@cIdTipDoc, cSerieDocRef=@cSerieDocRef, cDocRefer=@cDocRefer, cCodProve=@cCodProve, vContProv=@vContProv, vRuc_Tarj=@vRuc_Tarj, vObseAdic=@vObseAdic, bSwIncIGV=@bSwIncIGV, dtFechDocRef=@dtFechDocRef ,cCodGasto=@cCodGasto,bSwIncPercepcion=@bSwIncPercepcion,nMontoPercepcion=@nMontoPercepcion where cCodMovAl=@cCodMovAl and nTipMov=@nTipMov End End GO /****** Object: Table [dbo].[RegComprasDet] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[RegComprasDet]( [IdRegComprasCabe] [bigint] NOT NULL, [IdDetalle] [char](10) NOT NULL, [CCLocal] [char](10) NOT NULL, [TipDoc] [char](2) NOT NULL, [SerDoc] [char](4) NOT NULL, [NumDoc] [char](15) NOT NULL, [Cta] [char](8) NOT NULL, [Neto] [numeric](18, 2) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[RegComprasCabe] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[RegComprasCabe]( [IdRegComprasCabe] [bigint] NOT NULL, [CCLocal] [char](10) NOT NULL, [TipDoc] [char](2) NOT NULL, [SerDoc] [char](4) NOT NULL, [NumDoc] [char](15) NOT NULL, [Fecha] [datetime] NULL, [Vencim] [datetime] NULL, [Ruc] [char](11) NULL, [Nombre] [char](100) NULL, [Moneda] [char](1) NULL, [ValVta] [numeric](18, 2) NULL, [Igv] [numeric](18, 2) NULL, [TC] [numeric](18, 2) NULL, [Anulado] [char](1) NULL, [FechaRegistro] [datetime] NULL, [cCodMovAl] [char](10) NULL, CONSTRAINT [PK_RegComprasCabe] PRIMARY KEY CLUSTERED ( [IdRegComprasCabe] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[PRUEBACOBRANZA] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[PRUEBACOBRANZA]( [cOperCode] [int] NOT NULL, [cOperID] [int] NOT NULL, [cCajaCodi] [varchar](50) NOT NULL, [cUserDesc] [varchar](15) NULL, [nTarjNumb] [varchar](8) NULL, [cAlmaCode] [char](2) NULL, [cProdCode] [char](6) NULL, [nProdCant] [int] NULL, [nProdPrecUnit] [decimal](18, 2) NULL, [dOperFech] [datetime] NULL, [cOperTipo] [int] NULL, [cOperFlagAnula] [int] NULL, [cOperCodeAnula] [int] NULL, [cOperFlagAbierto] [int] NULL, [nMontoDolares] [decimal](18, 2) NULL, [cFlagSincronizacion] [char](1) NULL, [cTurnoCodi] [char](2) NULL, [nDscto] [decimal](18, 2) NULL, [nServicio] [decimal](18, 2) NULL, [cCodiClie] [char](7) NULL, [vDescClie] [varchar](50) NULL, [cDocCodigo] [varchar](10) NULL, [CDocSerie] [varchar](4) NULL, [cDocTipo] [char](2) NULL, [cRuc] [char](11) NULL, [iTipoCliente] [int] NOT NULL, [dFechaGraba] [datetime] NULL, [idLocal] [int] NULL, [cSupervisor] [varchar](50) NULL, [bprocesado] [int] NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[prp_pry] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING OFF GO CREATE TABLE [dbo].[prp_pry]( [cAnho] [char](4) NOT NULL, [cCidPry] [char](6) NOT NULL, [dCreaCid] [datetime] NULL, [bPrp] [bit] NULL, [dIniPrp] [datetime] NULL, [dFinPrp] [datetime] NULL, [dIniPry] [datetime] NULL, [dFinPry] [datetime] NULL, [bPrntPry] [bit] NULL, [cAnhoPrntPry] [char](4) NULL, [cCidPrntPry] [char](6) NULL, [cEstdPry] [char](1) NULL, [cCidDscplnPry] [varchar](10) NULL, [sTitPry] [varchar](250) NULL, [cCidClie] [char](10) NULL, [cc_documento] [char](15) NULL, [cGrntPry] [varchar](15) NULL, [cTipoGrntPry] [char](1) NULL, [cJfPry] [varchar](15) NULL, [cTipoJfPry] [char](1) NULL, [sObs] [varchar](4000) NULL, [cccosto] [varchar](15) NULL, [nPorcCostoPV] [numeric](18, 2) NULL, [cmoneda] [char](1) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[OSCListadoUM] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[OSCListadoUM] @iAccion INT = 0, @cUndMedid CHAR(3) = '', @vDscUndMd VARCHAR(20)= '', @vDscCrta VARCHAR(5) = '', @cCodUndEq CHAR(3) = '', @bUndCompr bit = NULL, @bUndSalid bit = NULL AS BEGIN DECLARE @sSQL VARCHAR(4000) IF @iAccion = 0 BEGIN SET @sSQL = ' SELECT cUndMedid, vDscUndMd, vDscCrta, cCodUndEq, nEquivale, bUndCompr, bUndSalid' SET @sSQL = @sSQL + ' FROM UnidadMedida WHERE bFlagAlqui <> 1 ' IF @cUndMedid <> '' SET @sSQL = @sSQL + ' AND cUndMedid = ''' + @cUndMedid + '''' IF @vDscUndMd <> '' SET @sSQL = @sSQL + ' AND vDscUndMd = ''' + @vDscUndMd + '''' IF @vDscCrta <> '' SET @sSQL = @sSQL + ' AND vDscCrta = ''' + @vDscCrta + '''' IF @cCodUndEq <> '' SET @sSQL = @sSQL + ' AND cCodUndEq = ''' + @cCodUndEq + '''' IF @bUndCompr IS NOT NULL SET @sSQL = @sSQL + ' AND bUndCompr = ' + CONVERT(CHAR,@bUndCompr) IF @bUndSalid IS NOT NULL SET @sSQL = @sSQL + ' AND bUndSalid = ' + CONVERT(CHAR,@bUndSalid) SET @sSQL= @sSQL + ' Order by vDscCrta' EXEC(@sSQL) END IF @iAccion = 1 BEGIN SET @sSQL = ' SELECT cUndMedid, vDscUndMd, vDscCrta, cCodUndEq, nEquivale, bUndCompr, bUndSalid FROM UnidadMedida WHERE bFlagAlqui = 1 Order by vDscCrta' EXEC(@sSQL) END IF @iAccion = 2 BEGIN SET @sSQL = ' SELECT cUndMedid, vDscUndMd, vDscCrta, cCodUndEq, nEquivale, bUndCompr, bUndSalid FROM UnidadMedida order by vDscCrta' EXEC(@sSQL) END END GO /****** Object: StoredProcedure [dbo].[OSCArticulosxDebajoStockMinimo] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[OSCArticulosxDebajoStockMinimo] AS BEGIN /* * Descripcion : * Version : 1 * Modificado : 25/04/2011 */ DECLARE @sSQL VARCHAR(4000) SET @sSQL = 'SELECT A.cCodArtic, A.cCodCatal, A.vDscartic, AA.nStockmin, AA.nStockAl ' SET @sSQL = @sSQL + 'FROM (ArticuloAlmacen AA INNER JOIN Articulo A ON AA.cCodArtic = A.cCodArtic) ' SET @sSQL = @sSQL + 'INNER JOIN Almacen AL ON AA.cCodAlmac = AL.cCodAlmac ' SET @sSQL = @sSQL + 'WHERE AA.nStockAl <= AA.nStockmin ' SET @sSQL = @sSQL + 'order by 2' execute (@sSQL) end GO /****** Object: Table [dbo].[Menu] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Menu]( [CodMenu] [char](2) NOT NULL, [Descripcion] [char](100) NULL, CONSTRAINT [PK_Menu] PRIMARY KEY CLUSTERED ( [CodMenu] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[SolicitudIntMov] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING OFF GO CREATE TABLE [dbo].[SolicitudIntMov]( [nQtdattsol] [numeric](15, 2) NULL, [nQtdsolicC] [numeric](15, 2) NULL, [nQtdsolicI] [numeric](15, 2) NULL, [nQtdpenSC] [numeric](15, 2) NULL, [nQtdpenSI] [numeric](15, 2) NULL, [nQtdAprSI] [numeric](15, 2) NULL, [dtFechoper] [datetime] NULL, [cCodMovIt] [char](10) NOT NULL, [nQtdDespc] [numeric](15, 2) NULL, [cUserresp] [char](6) NULL, PRIMARY KEY NONCLUSTERED ( [cCodMovIt] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[Prioridad] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING OFF GO CREATE TABLE [dbo].[Prioridad]( [cDscprior] [char](18) NULL, [cPriordoc] [char](2) NOT NULL, PRIMARY KEY NONCLUSTERED ( [cPriordoc] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[PersonalEstacion] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[PersonalEstacion]( [Personal_Id] [char](6) NULL, [nEstacion] [int] NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[Perfil] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Perfil]( [cCodPerfil] [char](2) NOT NULL, [vDscPerfil] [char](30) NOT NULL, [bFlagAdm] [bit] NOT NULL, [nUsrEst] [tinyint] NULL, CONSTRAINT [PK_Perfil] PRIMARY KEY CLUSTERED ( [cCodPerfil] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N' ' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'Perfil', @level2type=N'COLUMN',@level2name=N'cCodPerfil' GO /****** Object: StoredProcedure [dbo].[usp_Mant_PedidoDetN] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_Mant_PedidoDetN] @nItmPedido integer, @nAmbiente integer, @cCodProde numeric, @vDscArticulo char(50), --@vDscCrtaArt char(30), --@cCodCatal char(30), @nFlagAtrib integer, @nPrecUnit numeric(18,2), @nPorcServ numeric(18,2), @nPorcDct numeric(18,2), @nPorcIGV numeric(18,2), @nImpServ numeric(18,2), @nImpIGV numeric(18,2), @nImpDct numeric(18,2), @nPrecOrig numeric(18,2), @nCantidad numeric(18,2), @nSubTotal numeric(18,2), @cCodcuenta char(10), @cCodpedido integer , @nLugarDespacho integer, @nItmRela integer AS BEGIN INSERT INTO PEDIDODET (cCodcuenta, cCodPedido, nItmPedido, nAmbiente, cCodestado, cCodProde, vDscArticulo, vDscCrtaArt,cCodCatal, nFlagAtrib, nPrecUnit, nPorcServ, nPorcDct, nPorcIGV, nImpServ, nImpIGV, nImpDct, nPrecOrig, nCantidad, nSubTotal, nLugarDespacho, nItmRela ) VALUES (@cCodcuenta, @cCodPedido, @nItmPedido, @nAmbiente, '01', @cCodProde, @vDscArticulo,'', '' , @nFlagAtrib, @nPrecUnit, @nPorcServ, @nPorcDct, @nPorcIGV, @nImpServ, @nImpIGV, @nImpDct, @nPrecOrig, @nCantidad, @nSubTotal, @nLugarDespacho, @nItmRela) END GO /****** Object: StoredProcedure [dbo].[usp_Mant_pedidoDet1] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[usp_Mant_pedidoDet1] @cantidad integer, @cCodcuenta char(10), @cCodPedido integer, @nItemPedido char(10), @nAmbiente integer as begin declare @cant integer select @cant=nCantidad from pedidodet where cCodcuenta=@cCodcuenta and cCodPedido= @cCodPedido and nItmPedido=@nItemPedido and nAmbiente=@nAmbiente update PedidoDet set nCantidad=@cant-@cantidad where cCodcuenta=@cCodcuenta and cCodPedido= @cCodPedido and nItmPedido=@nItemPedido and nAmbiente=@nAmbiente end GO /****** Object: StoredProcedure [dbo].[usp_Mant_PedidoDet] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[usp_Mant_PedidoDet] @nItmPedido integer, @nAmbiente integer, @cCodProde numeric, @vDscArticulo char(50), @vDscCrtaArt char(30), @cCodCatal char(30), @nFlagAtrib integer, @nPrecUnit numeric(18,2), @nPorcServ numeric(18,2), @nPorcDct numeric(18,2), @nPorcIGV numeric(18,2), @nImpServ numeric(18,2), @nImpIGV numeric(18,2), @nImpDct numeric(18,2), @nPrecOrig numeric(18,2), @nCantidad numeric(18,2), @nSubTotal numeric(18,2), @cCodcuenta char(10), @cCodpedido integer , @nLugarDespacho integer, @nItmRela integer AS BEGIN INSERT INTO PEDIDODET (cCodcuenta, cCodPedido, nItmPedido, nAmbiente, cCodestado, cCodProde, vDscArticulo, vDscCrtaArt,cCodCatal, nFlagAtrib, nPrecUnit, nPorcServ, nPorcDct, nPorcIGV, nImpServ, nImpIGV, nImpDct, nPrecOrig, nCantidad, nSubTotal, nLugarDespacho, nItmRela ) VALUES (@cCodcuenta, @cCodPedido, @nItmPedido, @nAmbiente, '01', @cCodProde, @vDscArticulo,@vDscCrtaArt, @cCodCatal , @nFlagAtrib, @nPrecUnit, @nPorcServ, @nPorcDct, @nPorcIGV, @nImpServ, @nImpIGV, @nImpDct, @nPrecOrig, @nCantidad, @nSubTotal, @nLugarDespacho, @nItmRela) END GO /****** Object: StoredProcedure [dbo].[usp_Mant_Pedido1] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_Mant_Pedido1] @nAmbiente integer, @cCodestacion char(30), @cCodTurno char(2), @cCoduser char(30), @cCodcuenta char(10), @cCodpedido integer AS BEGIN INSERT INTO Pedido (cCodpedido, cCodCuenta, cCodestacion, nAmbiente, cCoduser, cCodestado,dtfechaPed,cCodTurno ) VALUES (@cCodpedido, @cCodCuenta, @cCodestacion, @nAmbiente, @cCoduser, '01', GETDATE(), @cCodTurno) END GO /****** Object: StoredProcedure [dbo].[usp_Mant_Pedido] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[usp_Mant_Pedido] @nAmbiente integer, @cCodestacion char(30), @cCodTurno char(2), @cCoduser char(30), @cCodcuenta char(10), @cCodpedido integer OUTPUT AS BEGIN SET @cCodpedido= 1 SELECT @cCodpedido = isnull(MAX(cCodpedido),0) + 1 FROM Pedido WHERE nAmbiente = @nAmbiente AND cCodcuenta= @cCodcuenta INSERT INTO Pedido (cCodpedido, cCodCuenta, cCodestacion, nAmbiente, cCoduser, cCodestado,dtfechaPed,cCodTurno ) VALUES (@cCodpedido, @cCodCuenta, @cCodestacion, @nAmbiente, @cCoduser, '01', GETDATE(), @cCodTurno) END GO /****** Object: Table [dbo].[pccosto] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING OFF GO CREATE TABLE [dbo].[pccosto]( [ncia] [numeric](4, 0) NOT NULL, [cejercicio] [char](4) NOT NULL, [cccosto] [char](15) NOT NULL, [cnomb_cc] [char](50) NOT NULL, [ccc_apertura] [char](15) NOT NULL, [ct_costo] [char](1) NOT NULL, [cvar_cc] [char](10) NOT NULL, [ldetalle_cc] [bit] NOT NULL, [cid_ccosto] [char](6) NOT NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[Pagos] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Pagos]( [IdPago] [bigint] IDENTITY(1,1) NOT NULL, [cSerieDocPago] [char](4) NOT NULL, [NroDocPago] [char](10) NOT NULL, [TipoDoc] [char](2) NULL, [cSerieDoc] [char](4) NULL, [NroDoc] [char](7) NULL, [NroItem] [numeric](18, 0) NULL, [FormaPago] [char](2) NULL, [FechaPago] [datetime] NULL, [FechaAnulacion] [datetime] NULL, [Monto] [numeric](15, 2) NULL, [Moneda] [char](1) NULL, [nTipoCambio] [numeric](18, 2) NULL, [IdTarjeta] [char](4) NULL, [IdBanco] [char](2) NULL, [NroCtaBancaria] [varchar](15) NULL, [NroOperacion] [varchar](15) NULL, [NroCertificadoRetencion] [varchar](15) NULL, [NroDepositoDetraccion] [varchar](15) NULL, [cClieCode] [int] NULL, [IdLocal] [int] NULL, [bEsPagoDetraccion] [bit] NULL, CONSTRAINT [PK_Pagos] PRIMARY KEY CLUSTERED ( [IdPago] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: UserDefinedFunction [dbo].[GetCadena] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE FUNCTION [dbo].[GetCadena](@cChr char(1), @iLong int) RETURNS VARCHAR(8) AS BEGIN DECLARE @Cadena VARCHAR(8) DECLARE @iContador int set @iContador = 0 set @Cadena = '' WHILE (@iContador < @iLong) BEGIN set @Cadena = @Cadena + @cChr set @iContador = @iContador + 1 END RETURN (@Cadena) END GO /****** Object: Table [dbo].[FuncionalidadUsuario] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[FuncionalidadUsuario]( [Personal_Id] [char](6) NOT NULL, [nFuncionalidad] [int] NOT NULL, [nNivel] [tinyint] NOT NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[FuncionalidadPerfil] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[FuncionalidadPerfil]( [nFuncionalidad] [int] NOT NULL, [cCodPerfil] [char](2) NOT NULL, [nNivel] [tinyint] NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[FuncionalidadEstacion] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE TABLE [dbo].[FuncionalidadEstacion]( [nEstacion] [int] NOT NULL, [nFuncionalidad] [int] NOT NULL, [nNivel] [tinyint] NOT NULL ) ON [PRIMARY] GO /****** Object: Table [dbo].[Funcionalidad] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Funcionalidad]( [nFuncionalidad] [int] NOT NULL, [vDscFuncionalidad] [varchar](100) NULL, [nModulo] [tinyint] NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: UserDefinedFunction [dbo].[GetNivel] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE FUNCTION [dbo].[GetNivel](@vCodigo Varchar(30)) RETURNS INT AS BEGIN DECLARE @iNivel int DECLARE @iPosicion int set @iPosicion = 1 set @iNivel = 0 WHILE charindex('.',@vCodigo,@iPosicion)>0 BEGIN Set @iPosicion = charindex('.',@vCodigo,@iPosicion) + 1 Set @iNivel = @iNivel + 1 END RETURN (@iNivel) END GO /****** Object: UserDefinedFunction [dbo].[GetMes] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO create FUNCTION [dbo].[GetMes](@num int) RETURNS VARCHAR(10) AS BEGIN DECLARE @Cadena VARCHAR(10) SET @Cadena=CASE @num WHEN 1 THEN 'Enero' WHEN 2 THEN 'Febrero' WHEN 3 THEN 'Marzo' WHEN 4 THEN 'Abril' WHEN 5 THEN 'Mayo' WHEN 6 THEN 'Junio' WHEN 7 THEN 'Julio' WHEN 8 THEN 'Agosto' WHEN 9 THEN 'Setiembre' WHEN 10 THEN 'Octubre' WHEN 11 THEN 'Noviembre' WHEN 12 THEN'Diciembre' ELSE '' END RETURN (@Cadena) END GO /****** Object: Table [dbo].[LugarDespacho] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[LugarDespacho]( [nLugarDespacho] [int] NOT NULL, [vDscLugarDespacho] [varchar](100) NULL, [nActivo] [tinyint] NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[oeimUnidOrg] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[oeimUnidOrg]( [UorgCCod] [char](5) NOT NULL, [UorgTDescrip] [varchar](100) NULL, [UorgTSigla] [varchar](30) NULL, [PerCCod] [varchar](6) NULL, [UorgCCodSup] [varchar](5) NULL, [UorgFFechreg] [datetime] NULL, [UorgFFechult] [datetime] NULL, [UorgTEstad] [char](1) NULL, CONSTRAINT [PK_oeimUnidOrg] PRIMARY KEY CLUSTERED ( [UorgCCod] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[NivelParametro] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[NivelParametro]( [cCodParam] [char](6) NOT NULL, [nNroNivel] [numeric](18, 0) NOT NULL, [nNroCarac] [numeric](18, 0) NOT NULL, CONSTRAINT [PK_NivelParametro] PRIMARY KEY CLUSTERED ( [cCodParam] ASC, [nNroNivel] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[MovXCtaD] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[MovXCtaD]( [cCodCtaCte] [char](10) NULL, [cCodMovAl] [char](10) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[MovXCta] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[MovXCta]( [cCodMovAl] [char](10) NOT NULL, [cCodCaja] [char](10) NOT NULL, [dtFechaOper] [datetime] NOT NULL, [cTipoVenta] [char](2) NOT NULL, [cAlmaCode] [char](2) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[moficinas] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING OFF GO CREATE TABLE [dbo].[moficinas]( [cid_oficina] [char](6) NOT NULL, [ncia] [numeric](4, 0) NOT NULL, [cnombre_ofi] [char](50) NOT NULL, [cciudad] [char](3) NOT NULL, [czona_postal] [char](3) NOT NULL, [ctipo_dir_ofi] [char](4) NOT NULL, [cdireccion_ofi] [char](50) NOT NULL, [cdireccion_ofi2] [char](50) NOT NULL, [ctelefono_ofi] [char](15) NOT NULL, [cfax_ofi] [char](15) NOT NULL, [ctipo_resp_ofi] [char](2) NOT NULL, [cresp_ofi] [char](15) NOT NULL, [mobsv_ofi] [text] NOT NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[Modulo] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Modulo]( [nModulo] [int] NOT NULL, [vDscModulo] [varchar](100) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[Estado] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING OFF GO CREATE TABLE [dbo].[Estado]( [nIdtipodoc] [tinyint] NULL, [vDesestad] [varchar](20) NULL, [cCodestad] [char](2) NOT NULL, PRIMARY KEY NONCLUSTERED ( [cCodestad] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[usp_Log_SolicitudInternaList] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO CREATE Procedure [dbo].[usp_Log_SolicitudInternaList] --Creado por Diana Valderrama ene 2006 /*CodSolInt char(10) , @cCodcosto char(6) =null, @cCodsolic char(6) =null, @cCodestad char(2) =null, @cCodProyt char(6) =null, @cAnioproy char(4) =null, @cIdoficin char(6) =null, @dtfecharg datetime =null, @cIdTipItm char(2) =null, @vObseAdic varchar(150) =null, @cPriordoc char(2) =null */ As Begin Select s.*,c.*,r.*,e.vDesestad,t.vDscItem, p.cdscprior, o.cnombre_ofi , (RTrim(LTrim(r.Apellido_paterno)) + ' ' + RTrim(LTrim( r.Apellido_materno)) + ' ' + RTrim(LTrim(r.Nombres))) as Solicitante From SolicitudInterna S left outer join Estado e ON s.cCodestad=e.cCodestad left outer join TipoItem t ON s. cIdTipItm= t.cIdTipItm left outer join Prioridad p ON s.cPriordoc= p.cPriordoc left outer join PCCosto c ON s.cCodcosto=c.cid_ccosto left outer join MOficinas o ON s.cIdOficin = o.cid_oficina left outer join usuario r ON s.ccodsolic= r.Personal_ID End GO /****** Object: Table [dbo].[Estacion] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Estacion]( [nEstacion] [int] NOT NULL, [vDscEstacion] [varchar](50) NULL, [nAmbiente] [int] NULL, [cCodPerfil] [char](6) NULL, [nFlagActivo] [int] NULL, [nSerieHD] [bigint] NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[equivalencia_articulo] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[equivalencia_articulo]( [i_id_local_A] [int] NOT NULL, [cCodArtic_A] [char](6) NOT NULL, [i_id_local_B] [int] NOT NULL, [cCodArtic_B] [char](6) NOT NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[Empresa] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Empresa]( [cEmpresa_ow] [char](2) NOT NULL, [vRazonSocial] [varchar](100) NOT NULL, [vLocalActivo] [varchar](70) NULL, [vDirecFiscal] [varchar](150) NULL, [bSwActivo] [bit] NOT NULL, CONSTRAINT [PK_Empresa] PRIMARY KEY CLUSTERED ( [cEmpresa_ow] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'Codigo empresa' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'Empresa', @level2type=N'COLUMN',@level2name=N'cEmpresa_ow' GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'Razon Social de la empresa' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'Empresa', @level2type=N'COLUMN',@level2name=N'vRazonSocial' GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'Local' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'Empresa', @level2type=N'COLUMN',@level2name=N'vLocalActivo' GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'Direcció fiscal' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'Empresa', @level2type=N'COLUMN',@level2name=N'vDirecFiscal' GO EXEC sys.sp_addextendedproperty @name=N'MS_Description', @value=N'Si es el nombre de la actual empresa' , @level0type=N'SCHEMA',@level0name=N'dbo', @level1type=N'TABLE',@level1name=N'Empresa', @level2type=N'COLUMN',@level2name=N'bSwActivo' GO /****** Object: Table [dbo].[Email] Script Date: 03/04/2013 10:56:24 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Email]( [Id] [int] NULL, [Usuario] [varchar](50) NULL, [Email] [varchar](50) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[Detraccion] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Detraccion]( [IdDetraccion] [numeric](18, 0) IDENTITY(1,1) NOT NULL, [SerieDoc] [char](10) NULL, [NroDoc] [char](10) NULL, [MontoDetracc] [numeric](15, 2) NULL, [PorcDetracc] [numeric](15, 2) NULL, [Estado] [char](1) NULL, [Observaciones] [varchar](100) NULL, CONSTRAINT [PK_Detraccion] PRIMARY KEY CLUSTERED ( [IdDetraccion] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[DetalleZ] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[DetalleZ]( [IdZ] [int] NOT NULL, [Caja] [varchar](50) NOT NULL, [nItem] [int] NULL, [CodProd] [int] NULL, [DscProd] [varchar](50) NULL, [Cantidad] [decimal](18, 2) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[OSCMoyMoviAlmaVntaDet] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[OSCMoyMoviAlmaVntaDet] @cCodMovAl char(10) = '', @cCodidart char(6) = '', @cUndmedid char(3) = '', @nPrecioCom VARCHAR(18) = '0', @nQtdMovim VARCHAR(18) = '0', @vDscLarga VARCHAR(500) = '', @cCodctaCte char(10) = '', @NumItemCta VARCHAR(18) = '', @cCodartic char (6) = '', @cProdcode VARCHAR(18) = '0', @sProdDesc varchar(100) = '', @sProdDscCrta varchar(25) = '', @nPrecioOrig varchar(18) = '0.0', @nCostoArt varchar(18) = '0.0', @nQtdVendida varchar(18) = '0.0', @nPreciounit varchar(18) = '0.0' AS BEGIN --MOV ALMACEND INSERT INTO MOVALMACEND( cCodMovAl, nTipMov, nNmtItmMv, cCodidart, cUndmedid, nPrecioCom, nQtdMovim, vDscLarga) VALUES( @cCodMovAl, 2, 1, @cCodidart, @cUndmedid, @nPrecioCom, @nQtdMovim, @vDscLarga) --VENTAS INSERT INTO CUENTACTED( cCodctaCte, NumItemCta, cCodartic, cProdcode, sProdDesc, sProdDscCrta, nPrecioOrig, nCostoArt, nQtdVendida, nPreciounit) VALUES( @cCodctaCte, @NumItemCta, @cCodartic, @cProdcode, @sProdDesc, @sProdDscCrta, @nPrecioOrig, @nCostoArt, @nQtdVendida, @nPreciounit) END GO /****** Object: StoredProcedure [dbo].[usp_reprocesakardex_vtas_ant] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_reprocesakardex_vtas_ant] AS DECLARE @ccodartic VARCHAR(6) DECLARE @nResult INT DECLARE cur_ventas CURSOR FOR SELECT distinct d.ccodartic FROM cuentacte c INNER JOIN cuentacted d ON c.ccodctacte=d.ccodctacte WHERE --year(c.dtfechaoper)=2009 AND month(c.dtfechaoper)=1 AND day(c.dtfechaoper)=6 convert(datetime, convert(varchar, GETDATE(), 103) ,103) = convert(datetime, convert(varchar, c.dtFechaReg, 103) ,103) AND convert(datetime, convert(varchar, c.dtFechaReg, 103) ,103) <> convert(datetime, convert(varchar, c.dtFechaOper, 103) ,103) OPEN cur_ventas FETCH NEXT FROM cur_ventas INTO @ccodartic WHILE @@FETCH_STATUS=0 BEGIN EXEC usp_Procesa_Kardex 2,'',@ccodartic,'','',@nResult OUTPUT FETCH NEXT FROM cur_ventas INTO @ccodartic END CLOSE cur_ventas DEALLOCATE cur_ventas GO /****** Object: StoredProcedure [dbo].[usp_reprocesa_sincronizacion] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_reprocesa_sincronizacion] @Fecha datetime /*------------------------------------------------------- Creado por : Diana Valderrama Omnisciencia Consultores Enero 2008 Propósito: Reprocesar la sincronizacion de ventas */------------------------------------------------------- AS BEGIN DECLARE @ErrorSave int SET @ErrorSave = 0 BEGIN TRAN -----------------Elimina registros de sincronizacion--------------------------------- DELETE FROM MovXCtaD WHERE cCodCtacte in (SELECT cCodCtacte FROM CuentaCte nolock WHERE convert(datetime, convert(varchar, dtFechaOper, 103) ,103) = @Fecha) IF @@ERROR <> 0 BEGIN SET @errorsave= 1 END DELETE FROM MovXCtaD WHERE cCodMovAl in (SELECT cCodMovAl FROM MovAlmacen nolock WHERE convert(datetime, convert(varchar, dtFechMov, 103) ,103) = @Fecha AND nTipMov= 2 And cIdTipTra in ( '06' )) --, '10', '13')) IF @@ERROR <> 0 BEGIN SET @errorsave= 1 END DELETE FROM MovxCta WHERE cCodMovAl in (SELECT cCodMovAl FROM MovAlmacen nolock WHERE convert(datetime, convert(varchar, dtFechMov, 103) ,103) = @Fecha AND nTipMov= 2 AND cIdTipTra in ( '06' )) --, '10', '13')) IF @@ERROR <> 0 BEGIN SET @errorsave= 1 END ------------------------------------------------------------------------------ --Elimina Documentos de Venta ------------------------------------------------------------------------------ DELETE FROM CuentacteD WHERE cCodctacte in (SELECT cCodCtacte FROM CuentaCte nolock WHERE convert(datetime, convert(varchar, dtFechaOper, 103) ,103) = @Fecha) IF @@ERROR <> 0 BEGIN SET @errorsave= 1 END DELETE FROM CuentaCte WHERE convert(datetime, convert(varchar, dtFechaOper, 103) ,103) = @Fecha IF @@ERROR <> 0 BEGIN SET @errorsave= 1 END ------------------------------------------------------------------------------ --Elimina Movimientos de Almacen ------------------------------------------------------------------------------ DELETE FROM MovAlmacenD WHERE nTipMov= 2 AND cCodMovAl in (SELECT cCodMovAl FROM MovAlmacen nolock WHERE convert(datetime, convert(varchar, dtFechMov, 103) ,103) = @Fecha AND nTipMov= 2 AND cIdTipTra in ( '06' )) -- , '10', '13') ) IF @@ERROR <> 0 BEGIN SET @errorsave= 1 END DELETE FROM MovAlmacen WHERE convert(datetime, convert(varchar, dtFechMov, 103) ,103) = @Fecha AND nTipMov= 2 AND cIdTipTra in ( '06' ) --, '10','13') IF @@ERROR <> 0 BEGIN SET @errorsave= 1 END ------------------------------------------------------------------------------ --Desmarca las operaciones sincronizadas ------------------------------------------------------------------------------ UPDATE Operacion SET cFlagsincronizacion= 0 WHERE convert(datetime, convert(varchar, dOperfech, 103) ,103) = @Fecha IF @@ERROR <> 0 BEGIN SET @errorsave= 1 END UPDATE OperacionParalela SET cFlagSincronizacion= 0 WHERE convert(datetime, convert(varchar, dOperfech, 103) ,103) = @Fecha IF @@ERROR <> 0 BEGIN SET @errorsave= 1 END ----------------------------------------------------------------------------- IF @errorsave= 1 BEGIN ROLLBACK TRAN PRINT 'ERROR AL REPROCESAR ...' END ELSE BEGIN COMMIT TRAN EXEC OSCMOYMOVIVNTA --EXEC usp_new_registraMovAlmacen @errorsave OUTPUT PRINT 'Proceso Concluido satisfactoriamente...' END END GO /****** Object: StoredProcedure [dbo].[usp_ReporteVtasCajeroTurnoDetalle] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[usp_ReporteVtasCajeroTurnoDetalle] @fechainicial as datetime ='01/24/1800', @fechafinal as datetime ='01/24/1800', @cajero varchar(30)='*' as declare @fechaini as datetime declare @fechafin as datetime declare @addday int set @addday=1 set @fechafin=@fechafinal+@addday set @fechaini=cast(year(@fechainicial)as varchar)+'-'+cast(month(@fechainicial)as varchar)+'-'+cast(day(@fechainicial)as varchar)+' 10:00:00' set @fechafin=cast(year(@fechafin)as varchar)+'-'+cast(month(@fechafin)as varchar)+'-'+cast(day(@fechafin)as varchar)+' 03:00:00' select c.dtfechaoper, c.ccodctacte, c.cseriedoc, c.cnrodoc, o.cuserdesc, o.cturnoCodi, o.cprodcode, dscprod=(select vdscartic from articulo where ccodartic=o.cprodcode), o.nprodcant, o.nprodprecunit, o.nprodcant*o.nprodprecunit as monto from cuentacte c inner join operacion o on c.cSerieDoc=o.cdocserie and c.cnrodoc=cdoccodigo and o.copertipo=1 where c.dtfechaoper>=@fechaini and c.dtfechaoper<=@fechafin and (o.cuserdesc= @cajero or @cajero='*') order by c.dtfechaoper,o.cuserdesc,o.cturnocodi GO /****** Object: StoredProcedure [dbo].[usp_Log_Tot_Cli_Prod_Rep] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE Procedure [dbo].[usp_Log_Tot_Cli_Prod_Rep] /* Lista Las venats hecahs a cada cliente Creado por Diana Valderrama */ @fechaini datetime = '20060622', @fechafin datetime = '20060622', @Usuario varchar(100) = 'admin', @Cliente char(6)='*' , @TipoCliente int = 9999, @Titulo varchar(150) = 'Reporte de Ventas por Cliente' , @Articulo char(6) = '*' As Begin select '' as Codigoventa, 0 as itemVenta, d.cCodartic as codigointernoarticulo, (Select ccodcatal from articulo where ccodartic=d.ccodartic ) as codigocatalogoarticulo, (Select vDscartic from articulo where ccodartic=d.ccodartic ) as descripcionarticulo, (Select vDscArtCt from articulo where ccodartic=d.ccodartic ) as descripcioncortaarticulo, sum(d.nQtdvendida) as cantidadvendida, (sum(d.nPreciounit * d.nQtdvendida ) / case when isnull(sum(d.nQtdvendida),0)=0 then 1 else sum(d.nQtdvendida) end) as preciounitarioventa, (sum(d.nCostoArt * d.nQtdvendida) / case when isnull(sum(d.nQtdvendida),0)=0 then 1 else sum(d.nQtdvendida) end) as costounitarioarticulo, vCliecod as codigoCliente, (Select top 1 vNomClie from cuentacte where vCliecod=c.vCliecod) as NombreCliente, @fechaini as FechaINI, @fechafin as FechaFIN, Empresa=(Select vRazonSocial from Empresa where bSwactivo=1 ) , Usuario=@Usuario , Local=(Select vLocalActivo from Empresa where bSwactivo=1 ), @titulo as titulo,idLocal=isnull(c.idlocal,'') from cuentacted d left outer join cuentacte c on d.cCodctacte = c.cCodctacte and convert(datetime, convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin where cIdTipTra='06' OR cIdTipTra='10' OR cIdTipTra='13' group by c.vCliecod, c.iTipoCliente, d.ccodartic,c.idlocal HAVING (c.vClieCod=@Cliente or @Cliente='*') and (c.iTipoCliente=@TipoCliente or @TipoCliente=9999) and (d.cCodartic = @Articulo or @Articulo='*') order by c.vCliecod /* select d.cCodctaCte as Codigoventa, d.NumItemCta as itemVenta, d.cCodartic as codigointernoarticulo, d.cProdcode as codigocatalogoarticulo, d.sProdDesc as descripcionarticulo, d.sProdDscCrta as descripcioncortaarticulo, d.nQtdVendida as cantidadvendida, d.nPreciounit as preciounitarioventa, d.nCostoArt as costounitarioarticulo, vCliecod as codigoCliente, vNomClie as NombreCliente, @fechaini as FechaINI, @fechafin as FechaFIN, Empresa=(Select vRazonSocial from Empresa where bSwactivo=1 ) , Usuario='OMC' , Local=(Select vLocalActivo from Empresa where bSwactivo=1 ) from cuentacted d left outer join cuentacte c on d.cCodctacte = c.cCodctacte where cIdTipTra='06' and c.bswAnulado=0 and dtFechaReg between @fechaini and @fechafin order by vNomClie */ End GO /****** Object: StoredProcedure [dbo].[usp_actualiza_costoarticulo] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE procedure [dbo].[usp_actualiza_costoarticulo] @fechaini datetime = '20060101' ,@fechafin datetime = '20060624' as Declare @nCostoProm numeric(16,4) ,@ccodCtaCte varchar(10) ,@cCodartic char(6) ,@dtFechaOper datetime Declare cur_CtaCte cursor for Select cCodCtaCte, dtFechaOper from CuentaCte where bSwAnulado=0 and not cCodcaja is null AND convert(datetime,convert(varchar,dtFechaOper,102),102) between @fechaini and @fechafin Open cur_Ctacte FETCH NEXT FROM cur_CtaCte INTO @cCodCtaCte,@dtFechaOper set @nCostoProm=0 WHILE @@FETCH_STATUS = 0 BEGIN Declare cur_CtaCteD cursor for Select cCodartic from CuentaCted where cCodCtaCte=@cCodCtaCte Open cur_CtacteD FETCH NEXT FROM cur_CtaCteD INTO @cCodartic WHILE @@FETCH_STATUS = 0 BEGIN Select @nCostoProm=isnull(d.nCostoart,0) from MovAlmacend d where d.cCodidart= @cCodartic and d.ntipMov=1 and d.cCodMovAl =(Select max(cCodMoval) from MovAlmacen Where ntipMov=1 and convert(datetime,convert(varchar,dtFechMov,102),102) <= convert(datetime, convert(varchar,@dtFechaOper,102),102) and cCodMovAl in (Select cCodMovAl from MovAlmacenD where cCodidart= @cCodartic and nTipMov=1 )) update CuentaCteD set nCostoArt=@nCostoProm where cCodCtaCte=@cCodCtacte and CCodArtic= @cCodartic FETCH NEXT FROM cur_CtaCteD INTO @cCodartic END DEALLOCATE cur_CtaCteD FETCH NEXT FROM cur_CtaCte INTO @cCodCtaCte, @dtFechaOper END DEALLOCATE cur_CtaCte GO /****** Object: StoredProcedure [dbo].[usp_INF_VTS_CLI_TIK_NOT] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE Procedure [dbo].[usp_INF_VTS_CLI_TIK_NOT] @fechaini datetime = '20060101', @fechafin datetime = '20061215', @Usuario varchar(100) = '', @Cliente char(6)='*' , @TipoCliente int = 9999, @Titulo varchar(150) = 'Reporte de Ventas por Cliente' As Begin SET NOCOUNT ON execute usp_actualiza_costoarticulo @fechaini,@fechafin SET NOCOUNT OFF SELECT cTipoDoc CodTipo, vcliecod CodCliente, vNomClie NomCliente, (Select isnull(sum(d.nCostoArt * d.nQtdvendida),0) From cuentacted d left outer join cuentacte c on c.cCodctacte=d.ccodctacte Where c.bswanulado=0 and c.cTipoDoc=v.cTipoDoc and c.vcliecod =v.vcliecod) As CostoPr, Sum( nSubtotal) As SubTotal, sum(nImporIGV) As IGV, Sum(0) As Exoner, sum( nImpoTotal) As Total, Sum(nExonerad) As ImpEx, Count(*) As nroDoc, (sum( nImpoTotal) - (Select isnull(sum(d.nCostoArt * d.nQtdvendida),0) From cuentacted d left outer join cuentacte c on c.cCodctacte=d.ccodctacte Where c.bswanulado=0 and c.cTipoDoc=v.cTipoDoc and c.vcliecod =v.vcliecod)) As UtDia, -- Utilidad calcular (Select count(distinct(vcliecod)) From cuentacte where bswanulado=0 and vcliecod <= v.vcliecod ) As AcumNroCli, (Select sum( nImpoTotal) From CuentaCte where bswanulado=0 and vcliecod <= v.vcliecod and dtFechaReg between @fechaini and @fechafin ) As AcumVta , Empresa=(Select vRazonSocial from Empresa where bSwactivo=1 ) , Usuario=@Usuario , Local=(Select vLocalActivo from Empresa where bSwactivo=1 ), t.vDscDocMt DescTipoDoc, @fechaini as FechaINI, @fechafin as FechaFIN, @Titulo as Titulo, sum(v.nImporServ) as Servicio, idLocal=isnull(v.idlocal,'') FROM cuentacte v LEFT OUTER JOIN TipoDocumento t ON t.cidtipdoc = v.cTipoDoc WHERE convert(datetime,convert(varchar,v.dtFechaoper,102),102) between @fechaini and @fechafin GROUP BY cTipoDoc, v.iTipoCliente, vcliecod, vNomClie, vDscDocMt,v.idlocal HAVING (vClieCod=@Cliente or @Cliente='*') and (v.iTipoCliente=@TipoCliente or @TipoCliente=9999) End GO /****** Object: StoredProcedure [dbo].[usp_INF_VTS_CAJAXCAJA_Rep_old] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO create Procedure [dbo].[usp_INF_VTS_CAJAXCAJA_Rep_old] @fechaini datetime = '20060621', @fechafin datetime = '20060621', @Usuario varchar(100) = '' As Begin SET NOCOUNT ON execute usp_actualiza_costoarticulo @fechaini,@fechafin SET NOCOUNT OFF set nocount on --Actualiza el valor de PrecioOrig al valor unitario en soles de la venta /*-----------------------------------------------------------------*/ update CuentaCted set nPrecioOrig= (Select Case when (Select ccodMone from cuentaCte where cCodCtaCte=CuentaCted.cCodCtacte)= 'N' then nPrecioUnit else nPrecioUnit * (select nt_compr from tt_cambio where d_f= (Select convert(datetime, convert(varchar,dtFechaoper,102),102) from cuentaCte where cCodCtaCte=CuentaCted.cCodCtacte)) end ) set nocount off -------------------------------------------------------------------------------------------- SELECT cTipoDoc as Tipo, cCodCaja CodCaja, -- dtFechaReg as Fecha, (Select isnull(sum(d.nCostoArt * d.nQtdvendida),0) From cuentacted d left outer join cuentacte c on c.cCodctacte=d.ccodctacte Where c.bswanulado=0 and c.cTipoDoc=o.cTipoDoc and c.cCodCaja =o.cCodCaja) As CostoPr, sum(nSubTotal) As SubTotal, sum(nImporIGV) As IGV, sum(nExonerad) As Exoner, sum(nImpoTotal) As Total, 0 As ImpEx, count(*) As nroDoc, -- sum(nImpoTotal) - (Select isnull(sum(d.nPrecioOrig * d.nQtdvendida),0) From cuentacted d left outer join cuentacte c on c.cCodctacte=d.ccodctacte Where c.bswanulado=0 and c.cTipoDoc=o.cTipoDoc and c.cCodCaja =o.cCodCaja) - (Select isnull(sum(d.nCostoArt * d.nQtdvendida),0) From cuentacted d left outer join cuentacte c on c.cCodctacte=d.ccodctacte Where c.bswanulado=0 and c.cTipoDoc=o.cTipoDoc and c.cCodCaja =o.cCodCaja) As UtDia, ( SELECT count(distinct(vcliecod)) from CUENTACTE WHERE ccodcaja=o.cCodcaja AND convert(datetime,dtFechaOper,102) between @fechaini and @fechafin ) As AcumNroCli, sum(nImpoTotal) As AcumVta , Empresa=(Select vRazonSocial from Empresa where bSwactivo=1 ) , Usuario=@Usuario , Local=(Select vLocalActivo from Empresa where bSwactivo=1 ) , (Select top 1 cAbrevdoc From TipoDocumento where cIdTipDoc=o.cTipoDoc )as DescTipoDoc, @fechaini as FechaINI, @fechafin as FechaFIN, ( SELECT count(distinct(vcliecod)) from CUENTACTE WHERE convert(datetime, dtFechaOper,102) between @fechaini and @fechafin ) as TotalCliente, cCodMone as Moneda FROM cuentacte o where bSwAnulado=0 and not cCodCaja is null AND convert(datetime, convert(varchar,dtFechaOper,102),102) between @fechaini and @fechafin GROUP BY cTipoDoc,cCodCaja,cCodMone End GO /****** Object: StoredProcedure [dbo].[usp_INF_VTS_CAJA_Rep] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE Procedure [dbo].[usp_INF_VTS_CAJA_Rep] @fechaini datetime = '20060622', @fechafin datetime = '20060622', @Usuario varchar(100) = '' As Begin SET NOCOUNT ON execute usp_actualiza_costoarticulo @fechaini,@fechafin -- execute usp_actualiza_costoarticulo '20060625','20060625' --SET NOCOUNT OFF -------------------------------------------------------------------------------------------- --Actualiza el valor de PrecioOrig al valor unitario en soles de la venta /*-----------------------------------------------------------------*/ update CuentaCted set nPrecioOrig= (Select Case when (Select ccodMone from cuentaCte where cCodCtaCte=CuentaCted.cCodCtacte)= 'N' then nPrecioUnit else nPrecioUnit * (select nt_compr from tt_cambio where d_f= (Select convert(datetime,convert(varchar,dtFechaoper,102),102) from cuentaCte where cCodCtaCte=CuentaCted.cCodCtacte)) end ) set nocount off -------------------------------------------------------------------------------------------- SELECT (Select top 1 vDscDocmt From TipoDocumento where cIdTipDoc=o.cTipoDoc )as TipoDESC, cTipoDoc as Tipo, -- dtFechaOper as Fecha, convert(datetime,convert(varchar,dtFechaoper,102),102) as Fecha, (Select sum(d.nCostoArt * d.nQtdvendida) From cuentacted d left outer join cuentacte c on c.cCodctacte=d.ccodctacte Where c.bswanulado=0 and dtFechaOper=o.dtFechaOper and c.cTipoDoc =o.cTipoDoc) As CostoPr, sum(nSubTotal) As SubTotal, sum(nImporIGV) As IGV, sum(nExonerad) As Exoner, sum(nImpoTotal) As Total, sum(nImporServ) As ImpEx, count(*) As nroDoc, sum(nImpoTotal) - (Select isnull(sum(d.nCostoArt * d.nQtdvendida),0) From cuentacted d left outer join cuentacte c on c.cCodctacte=d.ccodctacte Where c.bswanulado=0 and dtFechaOper=o.dtFechaOper and c.cTipoDoc =o.cTipoDoc) As UtDia, (Select count(distinct(vcliecod)) from CuentaCte WHERE bSwAnulado=0 and not cCodcaja is null and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin and convert(datetime, convert(varchar,dtFechaOper,102),102)=convert(datetime, convert(varchar,o.dtFechaOper,102),102) ) As AcumNroCli, (Select sum(nImpoTotal) From CuentaCte where bSwAnulado=0 and dtFechaOper <=o.dtFechaOper and convert(datetime, convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin ) As AcumVta , (Select sum(nImpoTotal) From CuentaCte where bSwAnulado=0 and not cCodcaja is null and dtFechaOper <=o.dtFechaOper and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin)- (Select isnull(sum(d.nCostoArt * d.nQtdvendida),0) From cuentacted d left outer join cuentacte c on c.cCodctacte=d.ccodctacte Where c.bswanulado=0 and not cCodcaja is null and dtFechaOper <=o.dtFechaOper and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin ) As AcumUtDia, Empresa=(Select vRazonSocial from Empresa where bSwactivo=1 ) , Usuario=@Usuario , Local=(Select vLocalActivo from Empresa where bSwactivo=1 ) , @fechaini as FechaINI, @fechafin as FechaFIN, (Select count(distinct(vcliecod)) from CuentaCte WHERE bSwAnulado=0 and not cCodcaja is null and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin AND dtFechaOper=o.dtFechaOper AND cTipoDoc=o.cTipoDoc AND cCodMone=o.cCodMone AND right(rtrim(ltrim(cCodCaja)),2)=right(rtrim(ltrim(o.cCodCaja)),2) ) as TotalCli, cCodMone as Moneda, right(rtrim(ltrim(cCodCaja)),2) as Caja FROM cuentacte o where bSwAnulado=0 and not cCodcaja is null AND convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin GROUP BY dtFechaOper,cTipoDoc, cCodMone, right(rtrim(ltrim(cCodCaja)),2) order by dtfechaOper End GO /****** Object: StoredProcedure [dbo].[spr_limpiar_caja_dia] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[spr_limpiar_caja_dia]( @cCodCaja varchar(8) , @dOperFech varchar(10) ) as begin set nocount on delete from regventasdet where IdRegVentasCabe in(select IdRegVentasCabe from regventascabe where SerDoc = right('000' + right(@cCodCaja,2),3) and NumDoc in(select cDocCodigo from operacion where convert(varchar,dOperFech,103)=@dOperFech and cCajaCodi=@cCodCaja) and CONVERT(varchar,fecha,103) = @dOperFech) delete from regventascabe where SerDoc = right('000' + right(@cCodCaja,2),3) and NumDoc in(select cDocCodigo from operacion where convert(varchar,dOperFech,103) = @dOperFech and cCajaCodi=@cCodCaja) and CONVERT(varchar,fecha,103) = @dOperFech delete from MovXCtaD where cCodMovAl in(select cCodMovAl from movalmacen where convert(varchar,dtFechMov,103) = @dOperFech and vObseAdic='PROCESO VENTA - ' + @cCodCaja) delete from MovXCta where cCodMovAl in(select cCodMovAl from movalmacen where convert(varchar,dtFechMov,103) = @dOperFech and vObseAdic='PROCESO VENTA - ' + @cCodCaja) delete from CuentaCteD where cCodCtaCte in(select cCodCtaCte from CuentaCte where cCodCaja = @cCodCaja and convert(varchar,dtFechaOper,103) = @dOperFech) delete from CuentaCte where cCodCaja = @cCodCaja and convert(varchar,dtFechaOper,103) = @dOperFech delete from movalmacend where nTipMov=2 and cCodMovAl in(select cCodMovAl from movalmacen where convert(varchar,dtFechMov,103) = @dOperFech and vObseAdic='PROCESO VENTA - ' + @cCodCaja) delete from movalmacen where convert(varchar,dtFechMov,103) = @dOperFech and vObseAdic='PROCESO VENTA - ' + @cCodCaja delete from operacionparalelaproducto where cOperCode in(select cOperCode from operacionparalela where convert(varchar,dOperFech,103) = @dOperFech and cCajaCodi = @cCodCaja) delete from operacionparalela where convert(varchar,dOperFech,103) = @dOperFech and cCajaCodi = @cCodCaja delete from operacion where convert(varchar,dOperFech,103) = @dOperFech and cCajaCodi = @cCodCaja set nocount off end GO /****** Object: StoredProcedure [dbo].[OSCMoyMoviAlmaVnta] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[OSCMoyMoviAlmaVnta] @sFechMov VARCHAR(10) = '', @cCodUsrRg CHAR(6) = '', @cCodAlmac CHAR(2) = '', @nImpTotal VARCHAR(18) = '0', @cCodProve CHAR(7) = '', @vContProv VARCHAR(50) = '', @cCodMoned CHAR(2) = '', @cCodCaja CHAR(5) = '', @cClieCod VARCHAR(18) = '', @vNomClie VARCHAR(70) = '', @nImpoTotal VARCHAR(18) = '0' AS BEGIN DECLARE @dtFechMov DATETIME, @cCodMovAl CHAR(10) , @cCodctaCte CHAR(10) SELECT @cCodMovAl = MAX(cCodMovAl) FROM MOVALMACEN SELECT @cCodMovAl = RIGHT('0000000000' + CONVERT(VARCHAR,CONVERT(NUMERIC,ISNULL(@cCodMovAl,'0')) + 1),10) SELECT @dtFechMov = CONVERT(DATETIME,@sFechMov,112) --MOV ALMACEN INSERT INTO MOVALMACEN( cCodMovAl, nTipMov, dtFecharg, dtFechMov, cCodUsrRg, cCodAlmac, vObseAdic, nImpTotal, cIdTipTra, cCodProve, vContProv, cCodMoned, bSwAnulado ) VALUES( @cCodMovAl, 2, GETDATE(), @dtFechMov, @cCodUsrRg, @cCodAlmac, 'PROCESO VENTA MOY', @nImpTotal, '06', @cCodProve, @vContProv, @cCodMoned, 0 ) --VENTAS SELECT @cCodctaCte = MAX(cCodctaCte) FROM CUENTACTE SELECT @cCodctaCte = RIGHT('0000000000' + CONVERT(VARCHAR,CONVERT(NUMERIC,ISNULL(@cCodctaCte,'0')) + 1),10) INSERT INTO CUENTACTE( cCodctaCte, dtFechaReg, cIdTipTra, cCodCaja, cClieCod, vNomClie, nImpoTotal, bSwAnulado) VALUES( @cCodctaCte, @dtFechMov, '06', @cCodCaja, @cClieCod, @vNomClie, @nImpoTotal, '0') SELECT cCodMoval = @cCodMovAl ,cCodCtacte = @cCodctaCte END GO /****** Object: StoredProcedure [dbo].[usp_Mant_updatePedidoDetJuntarMesa] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO create procedure [dbo].[usp_Mant_updatePedidoDetJuntarMesa] @codCuenta char(10), @ncodCuenta char(10) as update pedidodet set cCodcuenta=@codCuenta where cCodcuenta=@ncodCuenta if @codCuenta <> @ncodCuenta begin delete from CTAPedido where cCOdcuenta=@ncodCuenta end GO /****** Object: StoredProcedure [dbo].[usp_Mant_updatePedidoDetCambiarMesa] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[usp_Mant_updatePedidoDetCambiarMesa] @mesa char(20), @codCuenta char(10) as update CTApedido set cCodAtencion = @mesa where cCodcuenta=@codCuenta GO /****** Object: StoredProcedure [dbo].[usp_Mant_UddatePedidoDetJuntarMesa] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[usp_Mant_UddatePedidoDetJuntarMesa] --'0000000005','0000000004' @CodNuevo char(10), @CodAntes char(10) as update PedidoDet set cCodcuenta=@CodNuevo where cCodcuenta=@CodAntes if @CodNuevo <> @CodAntes begin delete from CTAPedido where cCodcuenta=@CodAntes delete from Pedido where cCodcuenta=@CodAntes end GO /****** Object: StoredProcedure [dbo].[usp_Mant_pedidoDet1_eliminar] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[usp_Mant_pedidoDet1_eliminar] @Codcuenta char(10), @ambiente int as begin delete from CTApedido where cCodcuenta =@Codcuenta and nAmbiente=@ambiente delete from pedido where cCodcuenta =@Codcuenta and nAmbiente=@ambiente delete from pedidodet where cCodcuenta =@Codcuenta and nAmbiente=@ambiente end GO /****** Object: StoredProcedure [dbo].[usp_Mant_CTAPedido] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[usp_Mant_CTAPedido] @nAmbiente integer, @cCodestacion char(30), @cCodAtencion char(30), @cCodTurno char(2), @cCoduser char(30), @cCodcuenta char(10) OUTPUT AS BEGIN DECLARE @cCodmax numeric SET @cCodmax = 0 SET @cCodcuenta= '' SELECT @cCodmax = isnull(CONVERT(numeric, cCodcuenta),0) FROM CTAPedido WHERE cCodAtencion= @cCodAtencion AND cCodestado= '01' AND nFlagcerrado= 0 AND nAmbiente= 1 IF isnull(@cCodmax,0)= 0 BEGIN SELECT @cCodmax = MAX(convert(numeric, cCodcuenta)) FROM CTAPedido WHERE nAmbiente = @nAmbiente SET @cCodmax = isnull(@cCodmax,0) + 1 SET @cCodcuenta = Right('0000000000' + RTrim(LTrim(Convert(Varchar, @cCodmax ))), 10) INSERT INTO CTApedido (cCodcuenta, nAmbiente, cCodestacion, cCodAtencion, cCodTurno, cCoduser, nFlagcerrado, cCodestado, dtFecApertura, dtFecUltmped) VALUES (@cCodcuenta, @nAmbiente, @cCodestacion, @cCodAtencion, @cCodTurno, @cCoduser, 0, '01', GETDATE(), GETDATE()) End ELSE BEGIN SET @cCodcuenta = Right('0000000000' + RTrim(LTrim(Convert(Varchar, @cCodmax ))), 10) UPDATE CtaPedido SET dtFecUltmped = GETDATE() WHERE cCodcuenta = @cCodcuenta AND nAmbiente = @nAmbiente END END GO /****** Object: StoredProcedure [dbo].[usp_CtaPedido] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[usp_CtaPedido] @iAccion Integer, @nAmbiente Integer, @cCodCuenta Char(10), @cCodEstc Char(10), @cCodAtnc Char(10), @cCodTurn Char(10), @UserName Varchar(30), @cDocSerie Char(3), @cDocCodigo Char(7), @cOperCode Integer AS BEGIN Declare @cNewCuenta Char(10) If @iAccion = 0 Begin SELECT @cNewCuenta = RIGHT('0000000000' + CONVERT(VARCHAR, ISNULL(MAX(cCodcuenta), 0) + 1), 10) FROM CtaPedido HoldLock INSERT INTO CtaPedido (cCodcuenta, nAmbiente, cCodEstacion, cCodAtencion, cCodTurno, cCoduser, nFlagCerrado, cCodEstado, dtFechaCierre, cCoduserCierre, dtFecApertura, dtFecUltmped, cDocSerie, cDocCodigo, cOperCode, cCodCtaOrig) VALUES (@cNewCuenta, @nAmbiente, @cCodEstc, @cCodAtnc, @cCodTurn, @UserName, 1, '02', GetDate(), @UserName, GetDate(), GetDate(), @cDocSerie, @cDocCodigo, @cOperCode, @cCodCuenta) End If @iAccion = 1 -- Cerrar UPDATE CtaPedido SET cCodEstado = '02', nFlagcerrado = 1, dtFechaCierre = GetDate(), cCoduserCierre = @UserName, cDocSerie = @cDocSerie, cDocCodigo = @cDocCodigo, cOperCode = @cOperCode WHERE cCodCuenta = @cCodCuenta AND nAmbiente = @nAmbiente If @iAccion = 2 -- Anular UPDATE CtaPedido SET cCodEstado = '01', nFlagcerrado = 0, dtFechaCierre = GetDate(), cCoduserCierre = @UserName, cOperCode = @cOperCode WHERE cCodCuenta = @cCodCuenta AND nAmbiente = @nAmbiente END GO /****** Object: Table [dbo].[CLIENTES_TEMP] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE TABLE [dbo].[CLIENTES_TEMP]( [CODIGO] [nvarchar](255) NULL, [RUC] [nvarchar](255) NULL, [LE] [nvarchar](255) NULL, [NOMBRE] [nvarchar](255) NULL, [CODEMP] [nvarchar](255) NULL, [PLANILLA] [nvarchar](255) NULL, [SEGURO] [nvarchar](255) NULL, [LUGAR] [nvarchar](255) NULL, [AREA] [nvarchar](255) NULL, [CUENTAB] [nvarchar](255) NULL, [BANCO] [nvarchar](255) NULL, [CUPO] [float] NULL, [CONSUMO] [float] NULL, [VENDEDOR] [nvarchar](255) NULL, [MAIL] [nvarchar](255) NULL, [DIRECCION] [nvarchar](255) NULL, [DISTRITO] [nvarchar](255) NULL, [PROVINCIA] [nvarchar](255) NULL, [DEPARTA] [nvarchar](255) NULL, [TELEFONOT] [nvarchar](255) NULL, [ANEXO] [nvarchar](255) NULL, [TELEFONOC] [nvarchar](255) NULL, [NPRECIO] [nvarchar](255) NULL, [CARGO] [nvarchar](255) NULL, [SUELDO] [nvarchar](255) NULL, [DOMICILIA] [nvarchar](255) NULL, [SEXO] [nvarchar](255) NULL, [FECHANAC] [smalldatetime] NULL, [FECHACONT] [nvarchar](255) NULL, [FECHAVAC] [nvarchar](255) NULL, [FECHAIC] [nvarchar](255) NULL, [FECHAFC] [nvarchar](255) NULL, [TIPO] [nvarchar](255) NULL, [ESTADO] [nvarchar](255) NULL, [DESCUENTO] [float] NULL, [INTERES] [float] NULL, [FLAGTARJE] [nvarchar](255) NULL, [TIPOTARJE] [nvarchar](255) NULL, [NUMTARJE] [nvarchar](255) NULL, [PUNTOS] [float] NULL, [PAGADO] [float] NULL, [FLAGCRE] [nvarchar](255) NULL, [SIVALOR] [float] NULL, [EQPUNTOS] [float] NULL, [FECHAI] [nvarchar](255) NULL, [FECHAF] [nvarchar](255) NULL, [EDAD] [nvarchar](255) NULL, [OBSERVA] [nvarchar](255) NULL, [PUNTOSINI] [float] NULL, [VISITAS] [nvarchar](255) NULL, [CONSUMOS] [float] NULL, [CONSUMOM] [float] NULL, [VISITASM] [nvarchar](255) NULL ) ON [PRIMARY] GO /****** Object: Table [dbo].[CLIENTES] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE TABLE [dbo].[CLIENTES]( [ClienteId] [int] NOT NULL, [Codigo] [nvarchar](8) NULL, [TipoId] [int] NULL, [CategoriaId] [int] NULL, [Apellidos] [nvarchar](50) NULL, [Nombres] [nvarchar](50) NULL, [FechaDeNacimiento] [smalldatetime] NULL, [LE] [nvarchar](18) NULL, [Edad] [tinyint] NULL, [Sexo] [tinyint] NULL, [Calle] [nvarchar](50) NULL, [DistritoId] [int] NULL, [Ciudad] [nvarchar](50) NULL, [Referencia] [nvarchar](50) NULL, [Telefonos] [nvarchar](20) NULL, [Fax] [nvarchar](20) NULL, [EMail] [nvarchar](50) NULL, [CentroLaboral] [nvarchar](50) NULL, [RUCCL] [nvarchar](15) NULL, [CalleCL] [nvarchar](50) NULL, [DistritoCL] [int] NULL, [CiudadCL] [nvarchar](20) NULL, [ReferenciaCL] [nvarchar](20) NULL, [TelefonosCL] [nvarchar](50) NULL, [FaxCL] [nvarchar](50) NULL, [EMailCL] [nvarchar](50) NULL, [SueldoPromedio] [nvarchar](20) NULL, [Observacion] [ntext] NULL, [Puntos] [int] NULL, [Tickets] [int] NULL, [FechaDeAfiliacion] [smalldatetime] NULL, [Foto] [nvarchar](50) NULL, [Activo] [bit] NOT NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] GO /****** Object: Table [dbo].[Cliente] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Cliente]( [cClieCode] [int] NOT NULL, [sClieApel] [varchar](50) NULL, [sClieName] [varchar](50) NULL, [sClieAddr] [varchar](255) NULL, [cDistCode] [smallint] NULL, [cProvCode] [smallint] NULL, [cDepaCode] [smallint] NULL, [sClieTelf] [varchar](50) NULL, [sClieMail] [varchar](80) NULL, [dNacmDate] [datetime] NULL, [dUltTDate] [datetime] NULL, [cTranCode] [int] NULL, [nPuntCant] [int] NULL, [nTickCant] [int] NULL, [sClieRout] [varchar](150) NULL, [sDistDesc] [varchar](80) NULL, [sProvDesc] [varchar](80) NULL, [sDepaDesc] [varchar](80) NULL, [dFechCrea] [datetime] NULL, [dFechModi] [datetime] NULL, [iTipoCliente] [int] NOT NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[ClasificacionGastos] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[ClasificacionGastos]( [nCodGasto] [char](2) NOT NULL, [sDscGasto] [varchar](200) NULL, CONSTRAINT [PK_ClasificacionGastos] PRIMARY KEY CLUSTERED ( [nCodGasto] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[usp_Mant_Gastos] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_Mant_Gastos] @iAccion INT = 0, @nCodGasto char(4) = '', @sDscGasto varchar(50) = '', @cCodNewGasto CHAR(4) = '' OUTPUT as begin if @iaccion=0 Begin SELECT @cCodNewGasto = RIGHT('00' + CONVERT(VARCHAR, CONVERT(NUMERIC,ISNULL(MAX(nCodGasto),'0')) + 1),2) FROM ClasificacionGastos INSERT INTO ClasificacionGastos(nCodGasto,sDscGasto ) VALUES(@cCodNewGasto,@sDscGasto ) End if @iaccion=1 Begin Update ClasificacionGastos set sDscGasto=@sDscGasto where nCodGasto=@nCodGasto End end if @iaccion=2 Begin Declare @ocur int set @ocur=1 Select @ocur= count(*) from movalmacen Where ntipmov=1 and cCodGasto=@nCodGasto if @ocur > 0 begin RAISERROR('Imposible Eliminar Gasto, existe referencia en Mov Almacen',16,-1) end else begin Delete ClasificacionGastos where nCodGasto=@nCodGasto end End GO /****** Object: Table [dbo].[CentroCostoLocal] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[CentroCostoLocal]( [IdLocal] [int] NOT NULL, [cCentroCosto] [char](10) NULL, [cDscLocal] [varchar](50) NULL, [cDireccion] [varchar](100) NULL, [bActivo] [bit] NULL, CONSTRAINT [PK_CentroCostoLocal] PRIMARY KEY CLUSTERED ( [IdLocal] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[usp_new_registraMovAlmacen_Fecha] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_new_registraMovAlmacen_Fecha]( @pFecha varchar(10) ) AS BEGIN DECLARE @cCodMovAl CHAR(10), @cCajaCodi CHAR(10), @cOperCode NUMERIC, @dOperFecha DATETIME, @cUserDesc CHAR(10), @cAlmaCode CHAR(2), @nTotal DECIMAL(18,2), @Moneda CHAR(1), @cProdCode CHAR(6), @result int, @nProdCant DECIMAL(18,2), @nProdPrec DECIMAL(18,2), @iItm NUMERIC(18), @vDscArtic VARCHAR(100), @vDscArtCt VARCHAR(25), @cUndSalida CHAR(3), @cTurnoCodi CHAR(2), @tFecha DATETIME, @nCostoArt DECIMAL(18,2), @nImporIGV DECIMAL(18,2), @nImporServ DECIMAL(18,2), @nPorcServ DECIMAL(18,2), @nPorcIGV DECIMAL(18,2), @nSubtotal DECIMAL(18,2), @cTipTra char(2), @cDocCodigo varchar(10) , @cDocSerie varchar(4), @cDocTipo char(2), @tipodoc char(2), @cUndMedEn char(3), @cUndMedArtEn char(3), @nEquivale DECIMAL(18,2) Declare @EsEnsamblado BINARY, @ControlStock BINARY, @UnidadSalida CHAR(3), @cProdPadre CHAR(6), @nQtdreque DECIMAL(18,2), @cCodarten CHAR(6), @nProdCantDet DECIMAL(18,2), @nPadreCant DECIMAL(18,2), @FIN INTEGER, @ExisteEnsamb INTEGER CREATE TABLE #Tmp_Detalle ( cCodidart char(6), cCodundMed char(3), cProdPadre char(6), cCantProd DECIMAL(18,2) ) CREATE TABLE #Tmp_Ensamblado ( cCodidart char(6), cCodundMed char(3), cProdPadre char(6), cCantProd DECIMAL(18,2) ) SET @tFecha = convert(datetime, convert(varchar,GETDATE(),102),102) SET @result = 0 --REGISTRA MOVIMIENTOS DE ALMACEN BEGIN TRAN DECLARE CURMOVNTA CURSOR FOR SELECT o.cCodCaja, CONVERT(datetime, convert(varchar, o.dtFechaOper,102),102), cAlmaCode, CASE o.cTipoDoc WHEN '01' THEN 'BF' WHEN '02' THEN 'BF' WHEN '10' THEN 'OC' WHEN '11' THEN 'NC' END FROM (SELECT * FROM CuentaCte c (NOLOCK) WHERE NOT c.cCodCtaCte in (SELECT cCodCtaCte FROM MovXCtaD (NOLOCK) WHERE cCodCtaCte=c.cCodCtaCte) AND c.bSwAnulado = 0) o WHERE o.bSwAnulado = 0 and CONVERT(varchar,o.dtFechaOper,103)= @pFecha GROUP BY cCodCaja, CONVERT(datetime, convert(varchar,o.dtFechaOper,102),102), cAlmaCode, CASE cTipoDoc WHEN '01' THEN 'BF' WHEN '02' THEN 'BF' WHEN '10' THEN 'OC' WHEN '11' THEN 'NC' END OPEN CURMOVNTA FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @dOperFecha, @cAlmaCode,@TipoDoc WHILE @@FETCH_STATUS = 0 BEGIN SET @cCodMovAl = '' --MOV ALMACEN SELECT @cCodMovAl = MAX(convert(numeric, cCodMovAl)) FROM MOVALMACEN WHERE nTipMov=2 and left(cCodMovAl,3)= right(year(getdate()),3) SET @cCodMovAl = right(year(getdate()),3) + RIGHT('0000000' + CONVERT(VARCHAR,CONVERT(NUMERIC,ISNULL(@cCodMovAl,'0')) + 1),7) IF @tipodoc= 'OC' BEGIN SET @cTipTra='10' END ELSE BEGIN IF @tipodoc='NC' BEGIN SET @cTipTra='13' END ELSE BEGIN SET @cTipTra='06' END END INSERT INTO MOVALMACEN(cCodMovAl, nTipMov, dtFechMov, dtFecharg, cCodUsrRg, cCodAlmac, vObseAdic, nImpTotal , cIdTipTra, cCodMoned, bSwAnulado, cIdTipItm, vRuc_Tarj, cCodProve, vContProv ) VALUES(@cCodMovAl, 2, @dOperFecha, @tFecha, '000001', @cAlmaCode, 'PROCESO VENTA - ' + @cCajaCodi , 0, @cTipTra, 'N', 0, '01', '', '0', 'PROCESO CONSOLIDACION') IF @@ERROR <> 0 BEGIN SET @result= 1 END --DETALLES SELECT @iItm = 0 DECLARE CURMOVNTADET CURSOR FOR SELECT ccodartic, sum(nqtdvendida) FROM cuentacted (NOLOCK) inner join cuentacte on cuentacte.cCodctaCte= cuentacted.cCodctaCte WHERE cuentacted.ccodctacte IN(SELECT ccodctacte FROM CUENTACTE (NOLOCK) WHERE CONVERT(datetime, convert(varchar,dtFechaOper,102),102) = @dOperFecha AND cCodCaja = @cCajaCodi AND (case cTipoDoc when '10'THEN 'OC' when '11' THEN 'NC' ELSE 'BF' END ) = @Tipodoc) AND (SELECT count(*) FROM MovXCta WHERE cCodCaja=@cCajaCodi AND dtFechaOper = @dOperFecha AND cTipoVenta = @TipoDoc AND cAlmaCode = @cAlmaCode)=0 AND cAlmaCode=@cAlmaCode GROUP BY ccodartic OPEN CURMOVNTADET FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant WHILE @@FETCH_STATUS = 0 BEGIN --LLenando Tabla de Detalle y Ensamblado SELECT @EsEnsamblado= bSwEnsamb, @ControlStock= bSwCtrlStck, @UnidadSalida= cUndSalida FROM Articulo (NOLOCK) WHERE cCodartic=@cProdCode --Evalua Articulo registrado en Venta IF @ControlStock=1 BEGIN --Si tiene control de stock lo adciona a la tabla detalle INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cProdCode, @UnidadSalida, '', @nProdCant) END ELSE BEGIN IF @EsEnsamblado= 1 BEGIN SET @FIN=1 INSERT INTO #Tmp_Ensamblado(cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cProdCode, @UnidadSalida, '', @nProdCant) IF @@ERROR <> 0 BEGIN SET @result= 1 goto EtiquetaError END --Llena Tabla detalle con los articulos incluidos en el ensamblado WHILE @FIN > 0 BEGIN --Captura los datos del ensamblado en Temporal SELECT @cProdPadre=ccodidart, @nPadreCant=cCantProd FROM #Tmp_Ensamblado --Llena cursor con los articulos del ensamblado DECLARE CUR_ENSAMBLADO CURSOR FOR SELECT nQtdreque, cCodarten,cUndMedEn , cUndMedArtEn = (select cUndSalida from articulo where ccodartic=cCodArten) FROM ArticuloEnsamblado (NOLOCK) WHERE cCodartic = @cProdPadre OPEN CUR_ENSAMBLADO FETCH NEXT FROM CUR_ENSAMBLADO INTO @nQtdreque, @cCodarten,@cUndMedEn,@cUndMedArtEn SET @nProdCantDet=0 --Evalua los articulos del ensamblado y los añade a la tabla Detalle o Ensamblado WHILE @@FETCH_STATUS = 0 BEGIN -- Calcula la cantidad del articulo para registra como salida SET @nProdCantDet=0 --jpcb 181011: --aca modificar para hacer la equivalencia con respecto a la unidad que tiene el componente en la tabla articuloensamblado --y la unidad que tiene el componente del ensamblado en el maestro de articulos --si son iguales queda tal cual --si son diferentes hacer la equivalencia a @nQtdReque antes de multiplicar IF @cUndMedEn='' BEGIN SET @nProdCantDet = @nPadreCant * @nQtdReque END ELSE BEGIN IF @cUndMedEn=@cUndMedArtEn BEGIN SET @nProdCantDet = @nPadreCant * @nQtdReque END ELSE BEGIN select @nEquivale=nEquivale from UnidadMedida where ccodundeq=@cUndMedEn and cUndMedid=@cUndMedArtEn if @nEquivale is null SET @nProdCantDet = @nPadreCant * @nQtdReque else SET @nProdCantDet = @nPadreCant *(@nQtdReque/@nEquivale) END END SELECT @EsEnsamblado= bSwEnsamb, @ControlStock= bSwCtrlStck, @UnidadSalida= cUndSalida FROM Articulo (nolock) WHERE cCodartic=@cCodarten IF @ControlStock=1 BEGIN INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cCodarten, @UnidadSalida, @cProdPadre, @nProdCantDet) IF @@ERROR <> 0 BEGIN SET @result= 1 goto EtiquetaError END END ELSE BEGIN IF @EsEnsamblado= 1 BEGIN INSERT INTO #Tmp_Ensamblado (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cCodarten, @UnidadSalida, @cProdPadre, @nProdCantDet) IF @@ERROR <> 0 BEGIN SET @result= 1 goto EtiquetaError END END ELSE BEGIN INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cCodarten, @UnidadSalida, @cProdPadre, @nProdCantDet) IF @@ERROR <> 0 BEGIN SET @result= 1 goto EtiquetaError END END END FETCH NEXT FROM CUR_ENSAMBLADO INTO @nQtdreque, @cCodarten,@cUndMedEn,@cUndMedArtEn END CLOSE CUR_ENSAMBLADO DEALLOCATE CUR_ENSAMBLADO DELETE FROM #Tmp_Ensamblado WHERE cCodidart=@cProdPadre IF @@ERROR <> 0 BEGIN SET @result= 1 goto EtiquetaError END SET @FIN=0 SELECT @FIN=COUNT(*) FROM #Tmp_Ensamblado END END ELSE BEGIN INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cProdCode, @UnidadSalida, '', @nProdCant) IF @@ERROR <> 0 BEGIN SET @result= 1 goto EtiquetaError END END END FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant END CLOSE CURMOVNTADET DEALLOCATE CURMOVNTADET --REGISTRANDO MOVIMIENTOS DE ALMACEN PARA LA TABLA DETALLE DECLARE CUR_Detalle CURSOR FOR SELECT cCodidart, cCantProd, cCodundMed, cProdPadre FROM #Tmp_Detalle OPEN CUR_Detalle FETCH NEXT FROM CUR_Detalle INTO @cProdCode, @nProdCant, @cUndSalida, @cProdPadre SET @iItm=0 WHILE @@FETCH_STATUS = 0 BEGIN SET @iItm = @iItm + 1 SELECT @nCostoArt = nCostoArt FROM ArticuloAlmacen WHERE cCodAlmac = @cAlmaCode AND cCodArtic = @cProdCode INSERT INTO MOVALMACEND(cCodMovAl, nTipMov, nNmtItmMv, cCodidart, cUndmedid, nPrecioCom, nQtdMovim, nCostoArt, nQtdequiv, cProdPadre) VALUES(@cCodMovAl, 2, @iItm, @cProdCode, @cUndSalida, isnull(@nProdPrec,0), @nProdCant , ISNULL(@nCostoArt,0), @nProdCant,@cProdPadre ) IF @@ERROR <> 0 BEGIN SET @result= 1 Goto EtiquetaError END --ACTUALIZA STOCKS Declare @existe integer Select @existe = count(*) from ArticuloAlmacen Where cCodArtic=@cProdCode and cCodAlmac=@cAlmaCode If @existe=0 Begin --Inserta el registro si no existe en la tabla INSERT INTO ArticuloAlmacen(cCodAlmac,cCodArtic,nStockAl, dtUltSalAlm,cCodmn_ult_vta) VALUES(@cAlmaCode,@cProdCode,0,convert(datetime, convert(varchar,GETDATE(),102),102), 'N') IF @@ERROR <> 0 BEGIN SET @result= 1 Goto EtiquetaError END End UPDATE ArticuloAlmacen SET nStockAl= nStockAl - @nProdCant, dtUltSalAlm = convert(datetime,convert(varchar,GETDATE(),102),102), cCodmn_ult_vta = 'N' WHERE cCodArtic = @cProdCode AND cCodAlmac = @cAlmaCode IF @@ERROR <> 0 BEGIN SET @result= 1 Goto EtiquetaError END FETCH NEXT FROM CUR_DETALLE INTO @cProdCode, @nProdCant, @cUndSalida, @cProdPadre END CLOSE CUR_DETALLE DEALLOCATE CUR_DETALLE --ACTUALIZA IMPORTE DE SALIDA A ALMACEN UPDATE MOVALMACEN SET nImpTotal = (Select sum(nCostoArt * nQtdequiv) from MovAlmacenD where cCodMovAl=@cCodMovAl and nTipMov=2) WHERE cCodMovAl=@cCodMovAl and nTipMov=2 IF @@ERROR <> 0 BEGIN SET @result= 1 Goto EtiquetaError END DELETE FROM #Tmp_Detalle IF @@ERROR <> 0 BEGIN SET @result= 1 Goto EtiquetaError END --Insertando en la tabla detalel de mov x cuenta DECLARE @existe1 integer INSERT INTO MovxCtaD SELECT DISTINCT cuentacted.cCodctacte, @cCodMoval FROM cuentacted (NOLOCK) inner join cuentacte on cuentacte.cCodctaCte= cuentacted.cCodctaCte WHERE cuentacted.ccodctacte IN(SELECT ccodctacte FROM CUENTACTE (NOLOCK) WHERE CONVERT(datetime, convert(varchar,dtFechaOper,102),102)= @dOperFecha AND cCodCaja= @cCajaCodi AND (case cTipoDoc when '10'THEN 'OC' when '11'THEN 'NC' ELSE 'BF' END) = @Tipodoc) AND (SELECT count(*) FROM MovXCta WHERE cCodCaja=@cCajaCodi AND dtFechaOper=@dOperFecha AND cTipoVenta=@TipoDoc AND cAlmaCode=@cAlmaCode)=0 AND cAlmaCode=@cAlmaCode INSERT INTO MOVXCTA (cCodMovAl, cCodCaja, dtFechaOper, cTipoVenta,cAlmaCode) VALUES (@cCodMovAl, @cCajaCodi, @dOperFecha , @Tipodoc,@cAlmaCode) IF @@ERROR <> 0 BEGIN SET @result= 1 Goto EtiquetaError END FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @dOperFecha, @cAlmaCode,@TipoDoc END CLOSE CURMOVNTA DEALLOCATE CURMOVNTA EtiquetaError: IF @result = 1 BEGIN ROLLBACK TRAN END ELSE BEGIN COMMIT TRAN END END GO /****** Object: StoredProcedure [dbo].[usp_ins_RegVentas] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[usp_ins_RegVentas] as declare @fechaActual varchar(10) set @fechaActual = CONVERT(varchar,getdate(),103) exec usp_new_registraMovAlmacen_Fecha @fechaActual begin tran declare @cCodctaCte char(10) declare @cclocal char(10) declare @tipodoc char(2) declare @seriedoc char(4) declare @nrodoc char(15) declare @fecemi datetime declare @fecvcto datetime declare @ruc char(11) declare @cliente char(100) declare @moneda char(1) declare @valvta numeric(18, 2) declare @igv numeric(18, 2) declare @tc numeric(18, 2) declare @anulado char(1) declare @fecharegistro datetime declare @servicio numeric(18,2) declare @contadorcabe bigint declare @contadordet int declare @igv2 numeric(18,2) select @igv2= (1+(nmonto1/100)) from parametro where cCodParam= 'IGV' declare cur_VentasCabe cursor for select distinct c.cCodctacte, cclocal=(select cCentroCosto from centrocostolocal where bactivo=1), c.cTipoDoc, c.cSerieDoc, c.cNroDoc, c.dtFechaOper as FecEmi, c.dtFechaOper as FecVcto, Ruc=case cTipoDoc when '01' then cRucClie else '' end, Cliente= c.vNomClie, Moneda ='S', ValVta=c.nSubTotal, Igv=c.nImporIGV, Servicio=c.nImporServ, TC=0 , Anulado=case bSwAnulado when 0 then 'N' when 1 then 'S' end, FechaRegistro=c.dtFechaoper--getdate() from cuentacted d inner join cuentacte c on d.cCodctacte=c.cCodctacte where c.cTipoDoc in('01','02') and c.dtFechaoper>='20110501' and rtrim(c.cSerieDoc)+rtrim(c.cNroDoc) not in (select rtrim(serdoc)+rtrim(numdoc) from regventascabe) --group by c.cCodctacte,c.cTipoDoc, c.cSerieDoc,c.cNroDoc,c.dtFechaOper,c.cRucClie,c.vNomClie,c.bSwAnulado union SELECT cCodctacte='V'+Venta01.cCodVta, cclocal=(select cCentroCosto from centrocostolocal where bactivo=1), cTipoDoc=TipoDoc, cSerieDoc, cNroDoc=NroDoc, FecEmi=FechaEmision, FecVcto=FechaEmision, Ruc=case TipoDoc when '01' then NroRuc else '' end, Cliente=DscCliente, Moneda=case cCodMoneda when 'N' then 'S' else 'D' end, ValVta=case cCodMoneda when 'N' then ValorVta else ValorVta/nTipoCambio end,--ValorVta, Igv=case cCodMoneda when 'N' then Igv else Igv/nTipoCambio end,--Igv, Servicio=case cCodMoneda when 'N' then Serv else Serv/nTipoCambio end, --Serv, TC=case cCodMoneda when 'N' then 0 else nTipoCambio end, Anulado=case when FechaAnulacion is null then 'N' else 'S' end, FechaRegistro=FechaEmision FROM venta01 inner join venta02 on venta01.cCodVta=venta02.cCodVta where rtrim(cSerieDoc)+rtrim(NroDoc) not in(select rtrim(serdoc)+rtrim(numdoc) from regventascabe) open cur_VentasCabe fetch next from cur_VentasCabe into @cCodctaCte,@cclocal,@tipodoc,@seriedoc,@nrodoc,@fecemi,@fecvcto,@ruc,@cliente,@moneda,@valvta,@igv,@servicio,@tc,@anulado,@fecharegistro select @contadorcabe=isnull(max(idregventascabe),0) from regventascabe while @@fetch_status=0 begin set @contadorcabe=@contadorcabe+1 insert into regventascabe(idregventascabe,cclocal,tipdoc,serdoc,numdoc,fecha,vencim,ruc,nombre,moneda,valvta,igv,serv,tc,anulado,fecharegistro) values(@contadorcabe,@cclocal,@tipodoc,@seriedoc,@nrodoc,@fecemi,@fecvcto,@ruc,@cliente,@moneda,@valvta,@igv,@servicio,@tc,@anulado,@fecharegistro) if @@error>0 goto err declare @ccodartic char(6) declare @cta varchar(8) declare @neto numeric(18, 2) declare cur_VentasDet cursor for select d.cCodArtic, Cta=isnull(a.cCuentaContableVta,''), Neto=(d.npreciounit/(@igv2+(d.nPorcServ/100)))*d.nQtdVendida--1.18+0.13 from cuentacted d inner join articulo a on d.cCodArtic=a.ccodartic where d.cCodCtaCte=@cCodctaCte union select ccodartic= right( '000000'+rtrim(d.ccodartic),6), Cta=isnull(a.cCuentaContableVta,''), neto=(d.nprecioOrig/(@igv2+(d.nServicio/100)))*nQtdVendida from venta01 c inner join venta02 d on c.ccodvta=d.ccodvta inner join articulo a on right( '000000'+rtrim(d.ccodartic),6)=a.ccodartic where 'V'+c.cCodVta=@cCodctaCte set @contadordet=0 open cur_VentasDet fetch next from cur_VentasDet into @ccodartic,@cta,@neto while @@fetch_status=0 begin set @contadordet=@contadordet+1 insert into regventasdet(IdRegVentasCabe,IdDetalle,CCLocal,TipDoc,SerDoc,NumDoc,Cta,Neto) values (@contadorcabe, @contadordet, @cclocal,@tipodoc,@seriedoc,@nrodoc,@cta,@neto) if @@error>0 goto err fetch next from cur_VentasDet into @ccodartic,@cta,@neto end close cur_VentasDet deallocate cur_VentasDet fetch next from cur_VentasCabe into @cCodctaCte,@cclocal,@tipodoc,@seriedoc,@nrodoc,@fecemi,@fecvcto,@ruc,@cliente,@moneda,@valvta,@igv,@servicio,@tc,@anulado,@fecharegistro end close cur_VentasCabe deallocate cur_VentasCabe commit tran return err: rollback tran close cur_VentasCabe deallocate cur_VentasCabe close cur_VentasDet deallocate cur_VentasDet GO /****** Object: Table [dbo].[CentroCostoArtSur] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[CentroCostoArtSur]( [Codigo] [char](10) NOT NULL, [Descripcion] [varchar](255) NULL, [Compras] [varchar](10) NULL, [Ventas] [varchar](10) NULL, CONSTRAINT [PK_CentroCostoArtSur] PRIMARY KEY CLUSTERED ( [Codigo] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[CabeceraZ] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[CabeceraZ]( [IdZ] [int] NOT NULL, [Caja] [varchar](50) NOT NULL, [CantidadTotal] [decimal](18, 2) NULL, [MontoTotal] [decimal](18, 2) NULL, [Fecha] [datetime] NULL, [RangoTKBOL] [varchar](50) NULL, [RangoTKFAC] [varchar](50) NULL, [CodigoRep] [varchar](50) NULL, [obs] [varchar](100) NULL, [cOperIdIni] [int] NULL, [cOperIdFin] [int] NULL, [cOperIdPIni] [int] NULL, [cOperIdPFin] [int] NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[CABECERA_IMPRESION] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[CABECERA_IMPRESION]( [cCabeLinea] [int] NULL, [sCabeDescripcion] [varchar](60) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[bckregventasdet110711] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[bckregventasdet110711]( [IdRegVentasCabe] [bigint] NOT NULL, [IdDetalle] [int] NOT NULL, [CCLocal] [char](10) NOT NULL, [TipDoc] [char](2) NOT NULL, [SerDoc] [char](4) NOT NULL, [NumDoc] [char](15) NOT NULL, [Cta] [char](8) NOT NULL, [Neto] [numeric](18, 2) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[bckregventasdet080811] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[bckregventasdet080811]( [IdRegVentasCabe] [bigint] NOT NULL, [IdDetalle] [int] NOT NULL, [CCLocal] [char](10) NOT NULL, [TipDoc] [char](2) NOT NULL, [SerDoc] [char](4) NOT NULL, [NumDoc] [char](15) NOT NULL, [Cta] [char](8) NOT NULL, [Neto] [numeric](18, 2) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[bckregventascabe110711] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[bckregventascabe110711]( [IdRegVentasCabe] [bigint] NOT NULL, [CCLocal] [char](10) NOT NULL, [TipDoc] [char](2) NOT NULL, [SerDoc] [char](4) NOT NULL, [NumDoc] [char](15) NOT NULL, [Fecha] [datetime] NULL, [Vencim] [datetime] NULL, [Ruc] [char](11) NULL, [Nombre] [char](100) NULL, [Moneda] [char](1) NULL, [ValVta] [numeric](18, 2) NULL, [Igv] [numeric](18, 2) NULL, [Serv] [numeric](18, 2) NULL, [TC] [numeric](18, 2) NULL, [Anulado] [char](1) NULL, [FechaRegistro] [datetime] NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[bckregventascabe080811] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[bckregventascabe080811]( [IdRegVentasCabe] [bigint] NOT NULL, [CCLocal] [char](10) NOT NULL, [TipDoc] [char](2) NOT NULL, [SerDoc] [char](4) NOT NULL, [NumDoc] [char](15) NOT NULL, [Fecha] [datetime] NULL, [Vencim] [datetime] NULL, [Ruc] [char](11) NULL, [Nombre] [char](100) NULL, [Moneda] [char](1) NULL, [ValVta] [numeric](18, 2) NULL, [Igv] [numeric](18, 2) NULL, [Serv] [numeric](18, 2) NULL, [TC] [numeric](18, 2) NULL, [Anulado] [char](1) NULL, [FechaRegistro] [datetime] NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[bckregcomprasdet150811] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[bckregcomprasdet150811]( [IdRegComprasCabe] [char](10) NOT NULL, [IdDetalle] [char](10) NOT NULL, [CCLocal] [char](10) NOT NULL, [TipDoc] [char](2) NOT NULL, [SerDoc] [char](4) NOT NULL, [NumDoc] [char](15) NOT NULL, [Cta] [char](8) NOT NULL, [Neto] [numeric](18, 2) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[bckregcomprascabe150811] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[bckregcomprascabe150811]( [IdRegComprasCabe] [char](10) NOT NULL, [CCLocal] [char](10) NOT NULL, [TipDoc] [char](2) NOT NULL, [SerDoc] [char](4) NOT NULL, [NumDoc] [char](15) NOT NULL, [Fecha] [datetime] NULL, [Vencim] [datetime] NULL, [Ruc] [char](11) NULL, [Nombre] [char](100) NULL, [Moneda] [char](1) NULL, [ValVta] [numeric](18, 2) NULL, [Igv] [numeric](18, 2) NULL, [TC] [numeric](18, 2) NULL, [Anulado] [char](1) NULL, [FechaRegistro] [datetime] NULL, [cCodMovAl] [char](10) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[Banco] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Banco]( [cCodBanco] [char](2) NOT NULL, [vDscBanco] [varchar](50) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[Auditoria_Procesos] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Auditoria_Procesos]( [cDocCodigo] [varchar](10) NULL, [cDocSerie] [varchar](3) NULL, [Observacion] [varchar](1000) NULL, [Fecha] [datetime] NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[usp_verifica_pase_procesos] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_verifica_pase_procesos] AS declare @Fecha datetime declare @cDocCodigo varchar(6) declare @CDocSerie varchar(3) declare @cCodCtaCte varchar(10) declare @cCodMovAl varchar(10) set @Fecha=getdate() SELECT * FROM operacion WHERE convert(datetime, convert(varchar,doperfech,102),102) = convert(datetime, convert(varchar,@Fecha,102),102) IF @@ROWCOUNT>0 BEGIN DECLARE cur_operacion CURSOR FOR SELECT cDocCodigo, CDocSerie FROM operacion WHERE convert(datetime, convert(varchar,doperfech,102),102) =convert(datetime, convert(varchar,@Fecha,102),102) OPEN cur_operacion FETCH NEXT FROM cur_operacion INTO @cDocCodigo,@CDocSerie WHILE @@FETCH_STATUS = 0 BEGIN SELECT @cCodCtaCte=cCodCtaCte FROM cuentacte WHERE cSerieDoc=@CDocSerie AND cNroDoc=@cDocCodigo IF @@ROWCOUNT=0 BEGIN INSERT INTO auditoria_procesos VALUES(@cDocCodigo,@CDocSerie,'NO SE ENCUENTRA CAB EN TABLA cuentacte',getdate()) --PRINT 'NO SE ENCUENTRA CAB EN TABLA cuentacte' END SELECT * FROM cuentacted WHERE cCodCtaCte=@cCodCtaCte IF @@ROWCOUNT=0 BEGIN INSERT INTO auditoria_procesos VALUES (@cDocCodigo,@CDocSerie,'NO SE ENCUENTRA DET EN TABLA cuentacteD',getdate()) --PRINT 'NO SE ENCUENTRA DET EN TABLA cuentacteD' END SELECT @cCodMovAl=cCodMovAl FROM movxctad WHERE ccodctacte=@cCodCtaCte IF @@ROWCOUNT=0 BEGIN INSERT INTO auditoria_procesos VALUES(@cDocCodigo,@CDocSerie,'NO SE ENCUENTRA REGISTRO RELACIONADO EN movxctad',getdate()) --PRINT 'NO SE ENCUENTRA REGISTRO RELACIONADO EN movxctad' END SELECT * FROM movxcta WHERE cCodMovAl=@cCodMovAl IF @@ROWCOUNT=0 BEGIN INSERT INTO auditoria_procesos VALUES (@cDocCodigo,@CDocSerie,'NO SE ENCUENTRA CAB EN TABLA movxcta',getdate()) --PRINT 'NO SE ENCUENTRA CAB EN TABLA movxcta' END SELECT cCodMovAl FROM movalmacen WHERE cCodMovAl=@cCodMovAl and nTipMov=2 IF @@ROWCOUNT=0 BEGIN INSERT INTO auditoria_procesos VALUES (@cDocCodigo,@CDocSerie,'NO SE ENCUENTRA CAB DE TABLA movalmacen',getdate()) --PRINT 'NO SE ENCUENTRA CAB DE TABLA movalmacen' END SELECT cCodMovAl FROM movalmacend WHERE cCodMovAl=@cCodMovAl and nTipMov=2 IF @@ROWCOUNT =0 BEGIN INSERT INTO auditoria_procesos VALUES(@cDocCodigo,@CDocSerie,'NO SE ENCUENTRA DET EN TABLA movalmacend',getdate()) --PRINT 'NO SE ENCUENTRA DET EN TABLA movalmacend' END FETCH NEXT FROM cur_operacion INTO @cDocCodigo,@CDocSerie END CLOSE cur_operacion DEALLOCATE cur_operacion END SELECT * FROM operacionparalela WHERE convert(datetime, convert(varchar,doperfech,102),102) =convert(datetime, convert(varchar,@Fecha,102),102) IF @@rowcount>0 BEGIN declare cur_operacionparalela cursor for select cDocCodigo, CDocSerie from operacionparalela where convert(datetime, convert(varchar,doperfech,102),102) =convert(datetime, convert(varchar,@Fecha,102),102) OPEN cur_operacionparalela FETCH NEXT FROM cur_operacionparalela INTO @cDocCodigo,@CDocSerie WHILE @@FETCH_STATUS = 0 BEGIN SELECT @cCodCtaCte=cCodCtaCte FROM cuentacte WHERE cSerieDoc=@CDocSerie AND cNroDoc=@cDocCodigo IF @@ROWCOUNT=0 BEGIN INSERT INTO auditoria_procesos VALUES(@cDocCodigo,@CDocSerie,'NO SE ENCUENTRA CAB EN TABLA cuentacte',getdate()) --PRINT 'NO SE ENCUENTRA CAB EN TABLA cuentacte' END SELECT * FROM cuentacted WHERE cCodCtaCte=@cCodCtaCte IF @@ROWCOUNT=0 BEGIN INSERT INTO auditoria_procesos VALUES (@cDocCodigo,@CDocSerie,'NO SE ENCUENTRA DET EN TABLA cuentacteD',getdate()) --PRINT 'NO SE ENCUENTRA DET EN TABLA cuentacteD' END SELECT @cCodMovAl=cCodMovAl FROM movxctad WHERE ccodctacte=@cCodCtaCte IF @@ROWCOUNT=0 BEGIN INSERT INTO auditoria_procesos VALUES(@cDocCodigo,@CDocSerie,'NO SE ENCUENTRA REGISTRO RELACIONADO EN movxctad',getdate()) --PRINT 'NO SE ENCUENTRA REGISTRO RELACIONADO EN movxctad' END SELECT * FROM movxcta WHERE cCodMovAl=@cCodMovAl IF @@ROWCOUNT=0 BEGIN INSERT INTO auditoria_procesos VALUES (@cDocCodigo,@CDocSerie,'NO SE ENCUENTRA CAB EN TABLA movxcta',getdate()) --PRINT 'NO SE ENCUENTRA CAB EN TABLA movxcta' END SELECT cCodMovAl FROM movalmacen WHERE cCodMovAl=@cCodMovAl and nTipMov=2 IF @@ROWCOUNT=0 BEGIN INSERT INTO auditoria_procesos VALUES (@cDocCodigo,@CDocSerie,'NO SE ENCUENTRA CAB DE TABLA movalmacen',getdate()) --PRINT 'NO SE ENCUENTRA CAB DE TABLA movalmacen' END SELECT cCodMovAl FROM movalmacend WHERE cCodMovAl=@cCodMovAl and nTipMov=2 IF @@ROWCOUNT =0 BEGIN INSERT INTO auditoria_procesos VALUES (@cDocCodigo,@CDocSerie,'NO SE ENCUENTRA DET EN TABLA movalmacend',getdate()) --PRINT 'NO SE ENCUENTRA DET EN TABLA movalmacend' END FETCH NEXT FROM cur_operacionparalela INTO @cDocCodigo,@CDocSerie END CLOSE cur_operacionparalela DEALLOCATE cur_operacionparalela END GO /****** Object: Table [dbo].[Atributo] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Atributo]( [cCodProd] [char](6) NOT NULL, [cCodLinea] [char](6) NULL, [vCodSubLn] [varchar](50) NULL, [n_Recargo] [tinyint] NULL, [n_Descuento] [tinyint] NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[ArticuloPrecioVenta] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[ArticuloPrecioVenta]( [nNumitem] [numeric](18, 0) NOT NULL, [cCodMonNew] [char](2) NULL, [cCodartic] [char](6) NOT NULL, [nPrecioVtaNew] [numeric](15, 4) NULL, [cCodmonOld] [char](2) NULL, [nPrecioVtaOld] [numeric](15, 4) NULL, [cUsrRegPV] [char](6) NULL, [dtFechaActPV] [datetime] NULL, CONSTRAINT [PK_ArticuloPrecioVenta] PRIMARY KEY CLUSTERED ( [nNumitem] ASC, [cCodartic] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[usp_Mant_Atributos] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_Mant_Atributos] @iAccion INT = 0, @cCodProd char(6) = '', @cCodLinea char(6) = '', @vCodSubLn varchar(30) = '' as begin if @vCodSubLn='' set @vCodSubLn=null if @iaccion=0 Begin INSERT INTO Atributo(cCodProd, cCodLinea, vCodSubLn, n_Recargo, n_Descuento) VALUES(@cCodProd, @cCodLinea, @vCodSubLn, 0, 0) End if @iaccion=1 Begin Update Atributo set cCodLinea=@cCodLinea, vCodSubLn=@vCodSubLn where cCodProd=@cCodProd End end if @iaccion=2 Begin Declare @ocur1 int Declare @ocur2 int set @ocur1=0 set @ocur2=0 Select @ocur1= count(*) from Operacion Where cProdCode=@cCodProd Select @ocur2= count(*) from OperacionParalelaProducto Where cProdCode=@cCodProd if @ocur1 + @ocur2 > 0 begin RAISERROR('Imposible Eliminar Atributo. Existen referencias',16,-1) end else begin Delete Atributo where cCodProd=@cCodProd Delete ArticuloPrecioVenta where cCodartic=@cCodProd Delete Articulo where cCodartic=@cCodProd end End GO /****** Object: Table [dbo].[ArticuloPrecioCompra] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[ArticuloPrecioCompra]( [nNumitem] [numeric](18, 0) NOT NULL, [cCodMon] [char](2) NULL, [cCodartic] [char](6) NOT NULL, [nPrecio] [numeric](15, 4) NULL, [nCostoProm] [numeric](15, 4) NULL, [cproveedor_id] [char](15) NOT NULL, [cCodMovAl] [char](10) NULL, [dtFechaActPC] [datetime] NULL, CONSTRAINT [PK_ArticuloPrecioCompra] PRIMARY KEY CLUSTERED ( [nNumitem] ASC, [cCodartic] ASC, [cproveedor_id] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[AmbienteLineaProd] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[AmbienteLineaProd]( [nAmbiente] [int] NULL, [cCodLinea] [char](6) NULL, [vCodSubLn] [varchar](100) NULL, [cProdCode] [char](6) NULL, [cDscTecla] [varchar](30) NULL, [nFlagFrecuente] [tinyint] NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[AmbienteLinea] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[AmbienteLinea]( [nAmbiente] [int] NOT NULL, [cCodLinea] [char](6) NOT NULL, [nFlagActivo] [tinyint] NOT NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[Ambiente] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Ambiente]( [nAmbiente] [int] NOT NULL, [sDscBreveAmb] [varchar](20) NOT NULL, [sDscAmbiente] [varchar](50) NOT NULL, [cCodRespon] [char](6) NOT NULL, [nFlagActivo] [tinyint] NOT NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[Almacen] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Almacen]( [vDscAlmac] [char](20) NULL, [cCodAlmac] [char](2) NOT NULL, [cRespAlm] [char](7) NULL, PRIMARY KEY NONCLUSTERED ( [cCodAlmac] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[usp_log_procesarkardex_job] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER OFF GO CREATE procedure [dbo].[usp_log_procesarkardex_job] as declare @sMensaje varchar(8000) declare @nomarch varchar(30) declare @cCodAlmac char(2) set @sMensaje='' select @nomarch='ProcesarKardex_'+cast(year(getdate()) as varchar)+right('00'+cast(month(getdate()) as varchar),2)+right('00'+cast(day(getdate()) as varchar),2)+'.txt' declare cur_almacen cursor for select cCodAlmac from almacen order by cCodAlmac open cur_almacen fetch next from cur_almacen into @cCodAlmac while @@fetch_status=0 begin declare @nResult int set @nResult=0 exec usp_Procesa_Kardex 1,@cCodAlmac,'','','',@nResult output if @nResult=0 set @sMensaje=@sMensaje+ 'Almacen '+@cCodAlmac+ ' Sin Errores ' +char(13) else set @sMensaje=@sMensaje+'Error en Almacen '+@cCodAlmac+' '+char(13) fetch next from cur_almacen into @cCodAlmac end close cur_almacen deallocate cur_almacen exec spWriteStringToFile @sMensaje,'e:\LogJobKardexGVS\',@nomarch GO /****** Object: StoredProcedure [dbo].[usp_Log_KardexTot] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER OFF GO CREATE Procedure [dbo].[usp_Log_KardexTot] @mesI int = 1, @anhoI char(4) = '2006', @mes int = 1, @anho char(4) = '2006', @Usuario varchar(50), @Articulo varchar(6), @Almacen varchar(2) As Begin declare @mes1 as varchar(10) declare @nmes1 as int declare @anho1 as char(4) declare @mes2 as varchar(10) declare @nmes2 as int declare @anho2 as char(4) declare @mes3 as varchar(10) declare @nmes3 as int declare @anho3 as char(4) declare @mes4 as varchar(10) declare @nmes4 as int declare @anho4 as char(4) declare @mes5 as varchar(10) declare @nmes5 as int declare @anho5 as char(4) declare @mes6 as varchar(10) declare @nmes6 as int declare @anho6 as char(4) declare @mes7 as varchar(10) declare @nmes7 as int declare @anho7 as char(4) declare @mes8 as varchar(10) declare @nmes8 as int declare @anho8 as char(4) declare @mes9 as varchar(10) declare @nmes9 as int declare @anho9 as char(4) declare @mes10 as varchar(10) declare @nmes10 as int declare @anho10 as char(4) declare @mes11 as varchar(10) declare @nmes11 as int declare @anho11 as char(4) declare @mes12 as varchar(10) declare @nmes12 as int declare @anho12 as char(4) set @nmes12=@mes set @mes12=dbo.GetMes(@nmes12) set @anho12=@anho if (@nmes12-1=0) begin set @nmes11=12 set @anho11=@anho12-1 end ELSE begin set @nmes11=@nmes12-1 set @anho11=@anho12 end set @mes11=dbo.GetMes(@nmes11) if (@nmes11-1=0) begin set @nmes10=12 set @anho10=@anho11-1 end ELSE begin set @nmes10=@nmes11-1 set @anho10=@anho11 end set @mes10=dbo.GetMes(@nmes10) if (@nmes10-1=0) begin set @nmes9=12 set @anho9=@anho10-1 end ELSE begin set @nmes9=@nmes10-1 set @anho9=@anho10 end set @mes9=dbo.GetMes(@nmes9) if (@nmes9-1=0) begin set @nmes8=12 set @anho8=@anho9-1 end ELSE begin set @nmes8=@nmes9-1 set @anho8=@anho9 end set @mes8=dbo.GetMes(@nmes8) if (@nmes8-1=0) begin set @nmes7=12 set @anho7=@anho8-1 end ELSE begin set @nmes7=@nmes8-1 set @anho7=@anho8 end set @mes7=dbo.GetMes(@nmes7) if (@nmes7-1=0) begin set @nmes6=12 set @anho6=@anho7-1 end ELSE begin set @nmes6=@nmes7-1 set @anho6=@anho7 end set @mes6=dbo.GetMes(@nmes6) if (@nmes6-1=0) begin set @nmes5=12 set @anho5=@anho6-1 end ELSE begin set @nmes5=@nmes6-1 set @anho5=@anho6 end set @mes5=dbo.GetMes(@nmes5) if (@nmes5-1=0) begin set @nmes4=12 set @anho4=@anho5-1 end ELSE begin set @nmes4=@nmes5-1 set @anho4=@anho5 end set @mes4=dbo.GetMes(@nmes4) if (@nmes4-1=0) begin set @nmes3=12 set @anho3=@anho4-1 end ELSE begin set @nmes3=@nmes4-1 set @anho3=@anho4 end set @mes3=dbo.GetMes(@nmes3) if (@nmes3-1=0) begin set @nmes2=12 set @anho2=@anho3-1 end ELSE begin set @nmes2=@nmes3-1 set @anho2=@anho3 end set @mes2=dbo.GetMes(@nmes2) if (@nmes2-1=0) begin set @nmes1=12 set @anho1=@anho2-1 end ELSE begin set @nmes1=@nmes2-1 set @anho1=@anho2 end set @mes1=dbo.GetMes(@nmes1) SELECT year(o.dtFechMov) as anho, month(o.dtFechMov) as mes, dbo.GetMes(month(o.dtFechMov))+' '+cast(year(o.dtFechMov) as char(4)) as MESNOMBRE, o.nTipMov as TipoMovimiento, o.cCodAlmac as CodAlmacen, sum(nQtdEquiv) AS Cantidad, @Usuario as Usuario, (Select vDscArtic From Articulo where rtrim(ltrim(cCodArtic))=@Articulo) as Articulo, (Select vDscUndMd From Articulo a left outer join UnidadMedida um on a.cUndsalida=um.cUndMedid where rtrim(ltrim(a.cCodArtic))=@Articulo) as Unidad, CASE @Almacen WHEN '*' THEN 'Todos' ELSE (Select vDscAlmac From Almacen where rtrim(ltrim(cCodAlmac))=@Almacen) END as Almacen FROM MovAlmacen o left outer join MovAlmacenD d on o.cCodMovAl=d.cCodMovAl left outer join Articulo a on d.cCodidart=a.cCodartic WHERE convert(char(6),o.dtFechMov,112) between @anhoI+right('00'+cast(@mesI as varchar(2)),2) and @anho12+right('00'+cast(@nmes12 as varchar(2)),2) and (d.cCodidart=@Articulo or @Articulo='*') and (o.cCodAlmac=@Almacen or @Almacen='*') GROUP BY year(o.dtFechMov), month(o.dtFechMov), dbo.GetMes(month(o.dtFechMov))+' '+cast(year(o.dtFechMov) as char(4)), o.nTipMov, o.cCodAlmac order by 1,2 End GO /****** Object: Table [dbo].[Act_Clientes] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE TABLE [dbo].[Act_Clientes]( [codigo] [float] NULL, [nombre] [nvarchar](255) NULL, [puntaje] [float] NULL ) ON [PRIMARY] GO /****** Object: Table [dbo].[_proveedor] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[_proveedor]( [cproveedor_id] [char](15) NOT NULL, [fproveedor_ingreso] [datetime] NULL, [cproveedor_ruc] [char](15) NULL, [cproveedor_nombre] [char](50) NULL, [lproveedor_importacion] [bit] NULL, [ctipo_proveedor_id] [char](2) NULL, [cproveedor_direccion] [char](50) NULL, [ccompania_id] [char](2) NULL, [cproveedor_ubigeo] [char](6) NULL, [cpaises_id] [char](6) NULL, [cproveedor_apostal] [char](10) NULL, [cproveedor_fax] [char](10) NULL, [cproveedor_email] [char](50) NULL, [cproveedor_pagweb] [char](50) NULL, [cproveedor_cuenta_soles] [char](25) NULL, [cproveedor_banco_soles] [char](25) NULL, [cproveedor_cuenta_dolares] [char](25) NULL, [cproveedor_banco_dolares] [char](25) NULL, [cestado_prov_id] [char](1) NULL, [lproveedor_sujeto_oc] [bit] NULL, [cforma_pago_id] [char](2) NULL, [ccondicion_pago_id] [char](2) NULL, [clinea_credito_id] [char](2) NULL, [lproveedor_fefax] [bit] NULL, [lproveedor_fecorreo] [bit] NULL, [lproveedor_feinternet] [bit] NULL, [lproveedor_feedi] [bit] NULL, [lproveedor_femanual] [bit] NULL, [cforma_envio_id] [char](2) NULL, [mproveedor_comentario] [text] NULL, [cpassword] [char](8) NULL, [cproveedor_telefono1] [char](10) NULL, [cproveedor_telefono2] [char](10) NULL, [cproveedor_fax2] [char](10) NULL, [ctransaccion_almacen_id] [char](5) NULL, [rowguid] [uniqueidentifier] NULL, [cproveedor_nomb_contacto] [char](50) NULL, [lagente_retencion] [bit] NULL, [lbuen_contribuyente] [bit] NULL, [lexonerado_igv] [bit] NULL, [lno_habido] [bit] NULL, [cIdtrubro] [char](4) NULL, CONSTRAINT [PK__proveedor] PRIMARY KEY CLUSTERED ( [cproveedor_id] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[usp_sel_Listado_PrecioCompraxArticulo] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER OFF GO CREATE procedure [dbo].[usp_sel_Listado_PrecioCompraxArticulo] @cCodartic varchar(6) as SELECT Nro=a.nNumitem, Moneda= case a.cCodMon when 'N' then 'Soles' when 'E' then 'Dolares' end, Precio=a.nPrecio, CostoPromedio=isnull((select ncostoprom from movalmacend where ntipmov=1 and ccodmoval=a.ccodmoval and ccodidart=@cCodartic),0), Proveedor=(select cproveedor_nombre from _proveedor where cproveedor_id=a.cproveedor_id), Fecha=dtFechaActPC, UltMon=(select case a.cCodMon when 'N' then 'S/.' when 'E' then '$' end from ArticuloPrecioCompra where nNumitem= (select max(nNumitem) from ArticuloPrecioCompra where cCodartic=@cCodartic )), UltPrecio=(select cast(round(nprecio,2)as varchar) from ArticuloPrecioCompra where nNumitem= (select max(nNumitem) from ArticuloPrecioCompra where cCodartic=@cCodartic )) FROM ArticuloPrecioCompra a where a.cCodartic=@cCodartic order by a.nNumitem GO /****** Object: StoredProcedure [dbo].[usp_Mant_proveedor] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_Mant_proveedor] @iAccion INT = 0, @cproveedor_id char(15) = '', @cproveedor_nombre char(50) = '', @cproveedor_ruc char(15) = '', @cproveedor_nomb_contacto char(50) = '', @cproveedor_direccion char(50) = '', @cproveedor_email char(50) = '', @cproveedor_fax char(10) = '', @cproveedor_telefono1 char(10) = '', @cproveedor_telefono2 char(10) = '', @cproveedor_pagweb char(50) = '', @mproveedor_comentario char(18) = '', @cIdtrubro char(4) = '', @lexonerado_igv bit = 0, @lagente_retencion bit=0 , @lbuen_contribuyente bit=0 , @lproveedor_importacion bit=0 as begin declare @cCodNew as char(15) if @iaccion=0 Begin SELECT @cCodNew = RIGHT('000000000000000' + CONVERT(VARCHAR, CONVERT(NUMERIC,ISNULL(MAX(cproveedor_id),'0')) + 1),15) FROM _proveedor INSERT INTO _proveedor (cproveedor_id,cproveedor_nombre,cproveedor_ruc,cproveedor_nomb_contacto, cproveedor_direccion,cproveedor_email,cproveedor_fax,cproveedor_telefono1, cproveedor_telefono2,cproveedor_pagweb,mproveedor_comentario,cIdtrubro, lexonerado_igv,lagente_retencion,lbuen_contribuyente,lproveedor_importacion, fproveedor_ingreso) VALUES(@cCodNew,@cproveedor_nombre,@cproveedor_ruc,@cproveedor_nomb_contacto, @cproveedor_direccion,@cproveedor_email,@cproveedor_fax,@cproveedor_telefono1, @cproveedor_telefono2,@cproveedor_pagweb,@mproveedor_comentario,@cIdtrubro, @lexonerado_igv,@lagente_retencion,@lbuen_contribuyente,@lproveedor_importacion, getdate()) End if @iaccion=1 Begin Update _proveedor set cproveedor_id= @cproveedor_id, cproveedor_nombre= @cproveedor_nombre, cproveedor_ruc=@cproveedor_ruc, cproveedor_nomb_contacto=@cproveedor_nomb_contacto, cproveedor_direccion=@cproveedor_direccion, cproveedor_email=@cproveedor_email, cproveedor_fax=@cproveedor_fax, cproveedor_telefono1=@cproveedor_telefono1, cproveedor_telefono2=@cproveedor_telefono2, cproveedor_pagweb=@cproveedor_pagweb, mproveedor_comentario=@mproveedor_comentario, cIdtrubro=@cIdtrubro, lexonerado_igv=@lexonerado_igv, lagente_retencion=@lagente_retencion, lbuen_contribuyente=@lbuen_contribuyente, lproveedor_importacion=@lproveedor_importacion where cproveedor_id=@cproveedor_id End end if @iaccion=2 Begin Declare @ocur int, @Err varchar(100) set @ocur=1 Select @ocur= count(*) from Articulo Where cCodprove=@cproveedor_id set @Err= 'Articulos' if @ocur=0 begin Select @ocur= count(*) from MovAlmacen Where cCodprove=@cproveedor_id set @Err= 'Movimientos de almacén' end if @ocur=0 begin Select @ocur= count(*) from OrdenCompra Where cCodprove=@cproveedor_id set @Err= 'Ordenes de compra' end if @ocur > 0 begin set @Err= 'Imposible Eliminar Proveedor existe referencia en ' + @Err RAISERROR(@Err ,16,-1) end else begin Delete _PROVEEDOR where cproveedor_id=@cproveedor_id end End GO /****** Object: StoredProcedure [dbo].[usp_log_kardex_rep2] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[usp_log_kardex_rep2] @fechaini datetime='20110101 00:00:00', @fechafin datetime='20111130 23:59:59', @almacen char(2)='01', @ccodidart varchar(6)='002549', @ntipmov int=3, @cidTipTra char(2)='*', @ccodprove char(15)='*', @cCodUsrRg char(6)='*', @cCodLinea char(6)='*', @vCodSubLn varchar(30)='*', @nensamblado int =3 as set language spanish /* declare @fechaini datetime declare @fechafin datetime declare @almacen char(2) declare @ccodidart varchar(6) declare @ntipmov int declare @cidTipTra char(2) declare @ccodprove char(15) declare @cCodUsrRg char(6) declare @cCodLinea char(6) declare @vCodSubLn varchar(30) set @fechaini='20110101' set @fechafin='20111130' set @almacen='01' set @ccodidart='*'--'002549'--'002548' set @ntipmov=0 set @cidTipTra='*' set @ccodprove='*' set @cCodUsrRg='*' set @cCodLinea='*' set @vCodSubLn='*' */ select distinct cCodArtic, vDscArtCt, Unidad=(select vDscCrta from unidadmedida where cUndmedid=a.cUndSalida), Fecha=cast(year(dtfechmov)as varchar)+right('00'+cast(month(dtfechmov)as varchar),2)+'01', Td='', Nro='', Transaccion='', Nombre='Inventario Inicial '+ cast(year(dtfechmov)as varchar)+' '+left(DATENAME(month, dtfechmov),3), Ingreso=0, Salida=0, Saldo=0, TipMov='X', TipTra='', CodProve='', Usuario='', Linea='', SubLinea='', Ensamb='', Descont=(select bFlagDesc from unidadmedida where cUndmedid=a.cUndSalida), cCodMoval='' from movalmacen c inner join movalmacend d on c.ccodmoval=d.ccodmoval and c.ntipmov=d.ntipmov inner join articulo a on d.ccodidart=a.cCodArtic where (d.ccodidart=@ccodidart or @ccodidart='*') and c.dtfechmov>=@fechaini and c.dtfechmov<=@fechafin and c.ccodalmac=@almacen and c.bswanulado=0 and convert(varchar,cast(year(dtfechmov)as varchar)+right('00'+cast(month(dtfechmov)as varchar),2),112)+'01'<>convert(varchar,@fechaini,112) and (c.ntipmov=@ntipmov or @ntipmov=3 ) and (c.cIdTipTra=@cIdTipTra or @cIdTipTra='*') and (c.ccodprove=@ccodprove or @ccodprove='*') and (c.ccodusrrg=@ccodusrrg or @ccodusrrg='*') and (a.cCodLinea=@cCodLinea or @cCodLinea='*') and (a.vCodSubLn=@vCodSubLn or @vCodSubLn='*') union select a.cCodArtic, a.vDscArtCt, Unidad=(select vDscCrta from unidadmedida where cUndmedid=a.cUndSalida), Fecha=@fechaini, Td='', Nro='', Transaccion='', Nombre='Inventario Inicial '+ cast(year(@fechaini) as varchar)+' '++left(DATENAME(month, @fechaini),3), Ingreso=0, Salida=0, Saldo=sum(case when c.ntipmov=1 then d.nQtdEquiv else 0 end)-sum(case when c.ntipmov=2 then d.nQtdEquiv else 0 end), TipMov='X', TipTra='', CodProve='', Usuario='', Linea='', SubLinea='', Ensamb='', Descont=(select bFlagDesc from unidadmedida where cUndmedid=a.cUndSalida), cCodMoval='' from movalmacen c inner join movalmacend d on c.ccodmoval=d.ccodmoval and c.ntipmov=d.ntipmov inner join articulo a on d.ccodidart=a.cCodArtic where (d.ccodidart=@ccodidart or @ccodidart='*') and c.dtfechmov<@fechaini and c.ccodalmac=@almacen and c.bswanulado=0 and (c.ntipmov=@ntipmov or @ntipmov=3 ) and (c.cIdTipTra=@cIdTipTra or @cIdTipTra='*') and (c.ccodprove=@ccodprove or @ccodprove='*') and (c.ccodusrrg=@ccodusrrg or @ccodusrrg='*') and (a.cCodLinea=@cCodLinea or @cCodLinea='*') and (a.vCodSubLn=@vCodSubLn or @vCodSubLn='*') group by a.cCodArtic,a.vDscArtCt,a.cUndSalida,a.bFlagDesc union select a.cCodArtic, a.vDscArtCt, Unidad=(select vDscCrta from unidadmedida where cUndmedid=a.cUndSalida), Fecha= c.dtfechmov,--convert(varchar, c.dtfechmov,112), Td=(select cabrevdoc from tipodocumento where cidtipdoc=c.cidtipdoc), Nro=rtrim(c.cseriedocref)+' '+rtrim(c.cdocrefer), Transaccion=(select cdsctrans from tipotransaccion where cidtiptra=c.cidtiptra), Nombre=isnull((select cproveedor_nombre from _proveedor where cproveedor_id=c.ccodprove),''), Ingreso=case when c.ntipmov=1 then d.nQtdEquiv else 0 end, Salida=case when c.ntipmov=2 then d.nQtdEquiv else 0 end, Saldo=0, TipMov=case when c.ntipmov=1 then 'I' else 'S' end, TipTra=c.cIdTipTra, CodProve=c.cCodProve, Usuario=c.cCodUsrRg, Linea=a.cCodLinea, SubLinea=a.vCodSubLn, Ensamb=a.bswEnsamb, Descont=(select bFlagDesc from unidadmedida where cUndmedid=a.cUndSalida), c.cCodMoval from movalmacen c inner join movalmacend d on c.ccodmoval=d.ccodmoval and c.ntipmov=d.ntipmov inner join articulo a on d.ccodidart=a.cCodArtic where (d.ccodidart=@ccodidart or @ccodidart='*') and c.dtfechmov>=@fechaini and c.dtfechmov<=@fechafin and c.ccodalmac=@almacen and c.bswanulado=0 and (c.ntipmov=@ntipmov or @ntipmov=3) and (c.cIdTipTra=@cIdTipTra or @cIdTipTra='*') and (c.ccodprove=@ccodprove or @ccodprove='*') and (c.ccodusrrg=@ccodusrrg or @ccodusrrg='*') and (a.cCodLinea=@cCodLinea or @cCodLinea='*') and (a.vCodSubLn=@vCodSubLn or @vCodSubLn='*') order by cCodArtic,vDscArtCt, fecha,TipMov desc GO /****** Object: StoredProcedure [dbo].[usp_ins_RegCompras] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[usp_ins_RegCompras] as begin tran declare @cclocal char(10) declare @tipodoc char(2) declare @cseriedocref char(4) declare @cdocrefer char(18) declare @fecemidocref datetime declare @fvencim datetime declare @ruc char(11) declare @proveedor varchar(100) declare @moneda char(1) declare @valvta numeric(18, 2) declare @igv numeric(18, 2) declare @tc numeric(18, 2) declare @anulado char(1) declare @fecharegistro datetime declare @contadorcabe bigint declare @contadordet int declare @cCodMovAl char(10) --declare @nombrearch varchar(100) --set @nombrearch= 'Compras_'+cast(year(getdate())as varchar)+'_'+cast(month(getdate())as varchar)+'_'+cast(day(getdate()) as varchar)+'.txt' --exec spWriteStringToFile 'Se Ejecuto','c:\RegComprasLog',@nombrearch --registra cabecera declare cur_ComprasCabe cursor for select cclocal=(select cCentroCosto from centrocostolocal where bactivo=1), TipoDoc=left(isnull((select cAbrevDoc from tipodocumento where cidtipdoc=c.cidtipdoc),''),2), c.cSerieDocRef, c.cDocRefer, c.dtFechDocRef as FecEmiDocRef, c.dtFechDocRef as FVencim, Ruc=case when c.cidtipdoc in('01','09') then isnull((select cproveedor_ruc from _proveedor where cproveedor_id=c.cCodProve),'') else '' end, Proveedor=isnull((select cproveedor_nombre from _proveedor where cproveedor_id=c.cCodProve),''), Moneda=1, ValVta= case c.bSwIncIGV when 0 then c.nImpTotal when 1 then c.nImpTotal/(1+ (select nmonto1 from parametro where cCodParam='IGV')/100) end ,IGV= case bSwIncIGV when 0 then c.nImpTotal *(select nmonto1/100 from parametro where cCodParam='IGV') when 1 then c.nImpTotal -( c.nImpTotal/(1+ (select nmonto1 from parametro where cCodParam='IGV')/100) ) end, TC=0, Anulado=case c.bSwAnulado when 0 then 'N' when 1 then 'S' end, Fecharegistro=getdate(),--dtFechMov, c.cCodMovAl from movalmacen c where c.ntipmov=1 and c.cidtiptra='01' --and year(dtFechMov)=year(getdate()) and month(dtFechMov)=month(getdate()) and day(dtFechMov)=day(getdate()) --and year(dtFechMov)>=2011 and month(dtFechMov)>=5 and dtFechMov>='20110501' and c.cCodMovAl not in(select cCodMovAl from regcomprascabe) order by c.dtfechmov open cur_ComprasCabe fetch next from cur_ComprasCabe into @cclocal,@tipodoc,@cseriedocref,@cdocrefer,@fecemidocref,@fvencim,@ruc,@proveedor,@moneda,@valvta,@igv,@tc,@anulado,@fecharegistro,@cCodMovAl select @contadorcabe= isnull(max(idregcomprascabe),0) from regcomprascabe while @@fetch_status=0 begin set @contadorcabe=@contadorcabe+1 insert into regcomprascabe(IdRegComprasCabe,CCLocal,TipDoc,SerDoc,NumDoc,Fecha,Vencim,Ruc,Nombre,Moneda,ValVta,Igv,TC,Anulado,FechaRegistro,cCodMovAl) values(@contadorcabe,@cclocal,@tipodoc,@cseriedocref,@cdocrefer,@fecemidocref,@fvencim,@ruc,@proveedor,@moneda,@valvta,@igv,@tc,@anulado,@fecharegistro,@cCodMovAl) if @@error >0 goto err declare @cta varchar(8) declare @neto numeric(18, 2) declare cur_ComprasDet cursor for select --cclocal=(select cCentroCosto from centrocostolocal where bactivo=1), --TipoDoc=left(isnull((select cAbrevDoc from tipodocumento where cidtipdoc=c.cidtipdoc),''),2), --c.cSerieDocRef,c.cDocRefer, Cta=isnull((select cCuentaContableCmp from articulo where cCodArtic=d.cCodidart),''), Neto=d.nprecioCom * nQtdMovim--d.nCostoArt*nQtdMovim from movalmacen c inner join movalmacend d on c.cCodMovAl=d.cCodMovAl and c.nTipMov=d.nTipMov where c.ntipmov=1 and c.cidtiptra='01' and c.cCodMovAl=@cCodMovAl order by nNmtItmMv set @contadordet=0 open cur_ComprasDet fetch next from cur_ComprasDet into @cta,@neto while @@fetch_status=0 begin set @contadordet=@contadordet+1 insert into regcomprasdet (IdRegComprasCabe,IdDetalle,CCLocal,TipDoc,SerDoc,NumDoc,Cta,Neto) values(@contadorcabe,@contadordet,@cclocal,@tipodoc,@cseriedocref,@cdocrefer,@cta,@neto) if @@error>0 goto err fetch next from cur_ComprasDet into @cta,@neto end close cur_ComprasDet deallocate cur_ComprasDet fetch next from cur_ComprasCabe into @cclocal,@tipodoc,@cseriedocref,@cdocrefer,@fecemidocref,@fvencim,@ruc,@proveedor,@moneda,@valvta,@igv,@tc,@anulado,@fecharegistro,@cCodMovAl end close cur_ComprasCabe deallocate cur_ComprasCabe commit tran return err: --print 'error:' rollback tran close cur_ComprasCabe deallocate cur_ComprasCabe close cur_ComprasDet deallocate cur_ComprasDet GO /****** Object: Table [dbo].[_articulos] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING OFF GO CREATE TABLE [dbo].[_articulos]( [carticulos_id] [char](8) NOT NULL, [cagrupacion_articulos_id] [char](9) NULL, [carticulos_nombre] [char](80) NOT NULL, [carticulos_ubicacion_principal] [char](7) NOT NULL, [carticulos_ubicacion_secundari] [char](7) NOT NULL, [cprocedencia_de_compra_id] [char](1) NOT NULL, [larticulos_eventual] [bit] NOT NULL, [carticulos_marca] [char](50) NOT NULL, [carticulos_modelo] [char](50) NOT NULL, [carticulos_nro_serie] [char](15) NOT NULL, [carticulos_nro_parte] [char](40) NOT NULL, [carticulos_descripcion_tecnica] [text] NOT NULL, [carticulos_medidas] [char](25) NOT NULL, [narticulos_nro_piezas] [float] NOT NULL, [carticulos_codigo_equipo] [char](8) NOT NULL, [narticulos_peso] [numeric](14, 4) NOT NULL, [cresponsable_compras_id] [char](3) NOT NULL, [nprecio_ultima_oc] [numeric](14, 4) NOT NULL, [ffecha_ultima_oc] [datetime] NULL, [cunidad_de_medida_compra] [char](3) NOT NULL, [carticulos_forma_presentacion] [char](25) NOT NULL, [narticulos_cantidad_fp] [int] NOT NULL, [larticulos_usa_lotes] [bit] NOT NULL, [narticulos_vencimiento] [numeric](14, 4) NOT NULL, [carticulos_partida_arancelaria] [char](25) NOT NULL, [narticulos_tasa_arancelaria] [numeric](14, 4) NOT NULL, [larticulos_draw_back] [bit] NOT NULL, [cresponsable_plan] [char](6) NOT NULL, [cclasificacion_logistica_id] [char](1) NOT NULL, [cpolitica_reaprov_id] [char](1) NOT NULL, [carticulos_politica_valorizaci] [char](1) NOT NULL, [carticulos_uso] [char](50) NOT NULL, [cproveedor_id] [char](15) NOT NULL, [larticulos_en_contrato] [bit] NOT NULL, [narticulos_stock_minimo] [numeric](14, 4) NOT NULL, [narticulos_stock_maximo] [numeric](14, 4) NOT NULL, [larticulos_en_ocabierta] [bit] NOT NULL, [narticulos_punto_pedido] [int] NOT NULL, [narticulos_tiempo_reposicion] [numeric](14, 4) NOT NULL, [narticulos_factor_conversion] [numeric](14, 4) NOT NULL, [cunidad_de_medida_consumo] [char](3) NOT NULL, [larticulos_es_servicio] [bit] NOT NULL, [larticulos_es_perecible] [bit] NOT NULL, [larticulos_es_activo_fijo] [bit] NOT NULL, [cagrupacion_de_activos_fijos_i] [char](9) NOT NULL, [larticulos_fiscalizado] [bit] NOT NULL, [larticulos_licencia] [bit] NOT NULL, [larticulos_otros] [bit] NOT NULL, [farticulos_fecha_ingreso] [datetime] NULL, [farticulos_ultimo_ingreso] [datetime] NULL, [farticulos_ultimo_salida] [datetime] NULL, [carticulos_estado] [char](2) NOT NULL, [marticulos_comentario] [text] NULL, [cactividad_id] [char](8) NOT NULL, [ctareas_id] [char](8) NOT NULL, [nprecio_ultima_oc_me] [numeric](14, 4) NOT NULL, [cpolitica_valorizacion_id] [char](1) NOT NULL, [carticulos_foto1] [image] NULL, [carticulos_foto2] [image] NULL, [carticulos_foto3] [image] NULL, [dfecha_inventario] [datetime] NULL, [flag_inventario] [bit] NOT NULL, [ncosumo_estimado] [numeric](14, 4) NOT NULL, [ccuenta_contable] [char](15) NOT NULL, [tipo_valorizacion_contable] [char](1) NOT NULL, [cdiscamec_id] [bit] NOT NULL, [cgrp_descuento_articulo_id] [char](2) NOT NULL, [grp_comision_articulo_id] [char](2) NOT NULL, [cunidad_de_medidad_peso] [char](3) NOT NULL, [cunidad_de_medida_venta] [char](3) NOT NULL, [rowguid] [uniqueidentifier] NOT NULL, [lisc] [bit] NOT NULL, [nporcentaje_isc] [numeric](14, 4) NOT NULL, [ncuenta_devolucion] [char](15) NOT NULL, [ncuenta_isc] [char](15) NOT NULL, [ctipo_producto] [char](3) NOT NULL, [ccodigo_referencia] [char](10) NOT NULL, [dfecha_envio] [datetime] NOT NULL, [nfactor_a_venta] [numeric](14, 4) NOT NULL, [cunidad_medida_reporte] [char](3) NOT NULL, [nfactor_a_reporte] [numeric](14, 4) NOT NULL, [ccategoria_1] [char](5) NOT NULL, [ccategoria_2] [char](5) NOT NULL, [ccategoria_3] [char](5) NOT NULL, [ccategoria_4] [char](5) NOT NULL, [ccategoria_5] [char](5) NOT NULL, [ccuenta_compras] [char](15) NOT NULL, [lno_stock_item] [bit] NOT NULL, [nultimo_precio_promedio] [numeric](14, 4) NOT NULL, [ncantidad_stock_fisico] [numeric](14, 4) NOT NULL, [carticulos_anofab] [char](4) NOT NULL, [carticulos_cid_tipo] [char](3) NOT NULL, [cproveedor2_id] [char](15) NOT NULL, [cproveedor3_id] [char](15) NOT NULL, [cppto] [char](15) NOT NULL, [ccuenta_mercaderia] [char](15) NOT NULL, [ccuenta_variacion_existencias] [char](15) NOT NULL, [ccuenta_costos_ventas] [char](15) NOT NULL, [ccuenta_produccion_almacenada] [char](15) NOT NULL, [ccuenta_carga_costos] [char](15) NOT NULL, [ccuenta_gastos] [char](15) NOT NULL, [ccuenta_gastos_administrativos] [char](15) NOT NULL, [ccuenta_gastos_ventas] [char](15) NOT NULL, [ccuenta_descuentos] [char](15) NOT NULL, [ccuenta_consumo_produccion] [char](15) NOT NULL, [ccuenta_ajuste_inflacion] [char](15) NOT NULL, [ccuenta_desmedros] [char](15) NOT NULL, [ccuenta_muestras] [char](15) NOT NULL, [ccuenta_donaciones] [char](15) NOT NULL, [ccuenta_cons_laboratorio] [char](15) NOT NULL, [ccuenta_aaff_laredo] [char](15) NOT NULL, [ccuenta_aaff_lima] [char](15) NOT NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[usp_registraMovAlmacenParalelo] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[usp_registraMovAlmacenParalelo] AS BEGIN ------------------------------------ DECLARE @cCodMovAl CHAR(10), @cCajaCodi CHAR(10), @cOperCode NUMERIC, @dOperFecha DATETIME, @cUserDesc CHAR(10), @cAlmaCode CHAR(2), @nTotal DECIMAL(18,2), @Moneda CHAR(1), @cProdCode CHAR(6), @nProdCant NUMERIC(18), @nProdPrec DECIMAL(18,2), @iItm NUMERIC(18), @vDscArtic VARCHAR(100), @vDscArtCt VARCHAR(25), @cUndSalida CHAR(3), @cTurnoCodi CHAR(2), @tFecha DATETIME, @nCostoArt DECIMAL(18,2), @nImporIGV DECIMAL(18,2), @nImporServ DECIMAL(18,2), @nPorcServ DECIMAL(18,2), @nPorcIGV DECIMAL(18,2), @nSubtotal DECIMAL(18,2), @cTipTra char(2), @cDocCodigo varchar(10) , @cDocSerie varchar(4), @cDocTipo char(2) Declare @EsEnsamblado BINARY, @ControlStock BINARY, @UnidadSalida CHAR(3), @cProdPadre CHAR(6), @nQtdreque DECIMAL(18,2), @cCodarten CHAR(6), @nProdCantDet DECIMAL(18,2), @nPadreCant DECIMAL(18,2), @FIN INTEGER, @ExisteEnsamb INTEGER CREATE TABLE #Tmp_Detalle (cCodidart char(6), cCodundMed char(3), cProdPadre char(6), cCantProd DECIMAL(18,2), ) CREATE TABLE #Tmp_Ensamblado (cCodidart char(6), cCodundMed char(3), cProdPadre char(6), cCantProd DECIMAL(18,2), ) SET @tFecha = convert(datetime, convert(varchar,GETDATE(),102),102) -------------------------------- --REGISTRA MOVIMIENTOS DE ALMACEN --------------------------------- DECLARE CURMOVNTA CURSOR FOR SELECT B.cCajaCodi, B.cTurnoCodi, convert(datetime,convert(varchar,B.dOperFech,102),102), MAX(B.cUserDesc), cAlmaCode = (select max(A.cAlmaCode) from OperacionParalelaProducto A where A.cCajaCodi = B.cCajaCodi), SUM(B.nMontoSoles), 'N' FROM OperacionParalela B WHERE B.cFlagSincronizacion = '0' AND B.cOperTipo IN (20) AND B.cestado in (1,2) GROUP BY B.cCajaCodi, B.cTurnoCodi, convert(datetime, convert(varchar,dOperFech,102),102) ORDER BY B.cCajaCodi, B.cTurnoCodi OPEN CURMOVNTA FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @cTurnoCodi,@dOperFecha, @cUserDesc, @cAlmaCode, @nTotal, @Moneda WHILE @@FETCH_STATUS = 0 BEGIN --MOVALMACEN set @cCodMovAl='' SELECT @cCodMovAl = MAX(cCodMovAl) FROM MOVALMACEN WHERE nTipMov=2 and left(cCodMovAl,3)= right(year(getdate()),3) SET @cCodMovAl = right(year(getdate()),3) + RIGHT('0000000' + CONVERT(VARCHAR,CONVERT(NUMERIC,ISNULL(@cCodMovAl,'0')) + 1),7) set @cTipTra='10' INSERT INTO MOVALMACEN( cCodMovAl, nTipMov, dtFechMov, dtFecharg, cCodUsrRg, cCodAlmac, vObseAdic, nImpTotal, cIdTipTra, cCodMoned, bSwAnulado, cIdTipItm, vRuc_Tarj, cCodProve, vContProv ) VALUES( @cCodMovAl, 2, @dOperFecha,@tFecha, '000001', @cAlmaCode, 'PROCESO VENTA MOY - TURNO ' + @cTurnoCodi, @nTotal, @cTipTra, @Moneda, 0, '01', '', '0', 'PROCESO CONSOLIDACION') --DETALLES SELECT @iItm = 0 DECLARE CURMOVNTADET CURSOR FOR SELECT M.cProdCode, SUM(M.nProdCant), MAX(M.nProdPrecUnit), MAX(M.vDscArtic), MAX(M.vDscArtCt), MAX(M.cUndSalida) FROM (SELECT O.cProdCode, O.nProdCant, O.nProdPrecUnit, A.vDscArtic, A.vDscArtCt, A.cUndSalida FROM (OperacionParalela P INNER JOIN OperacionParalelaProducto O ON P.cOpercode = O.cOpercode AND P.cCajaCodi = O.cCajaCodi) LEFT JOIN Articulo A ON O.cProdCode = A.cCodArtic WHERE P.cFlagSincronizacion = '0' AND P.cOperTipo IN (20) AND P.cestado in (1,2) AND O.cCajaCodi = @cCajaCodi AND P.cTurnoCodi = @cTurnoCodi AND CONVERT(DATETIME, CONVERT(VARCHAR,P.dOperFech,102), 102) = @dOperFecha) M GROUP BY M.cProdCode OPEN CURMOVNTADET FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant, @nProdPrec, @vDscArtic, @vDscArtCt, @cUndSalida WHILE @@FETCH_STATUS = 0 BEGIN ------------------LLenando Tabla de Detalle y Ensamblado -------------------------- SELECT @EsEnsamblado= bSwEnsamb, @ControlStock= bSwCtrlStck, @UnidadSalida= cUndSalida FROM Articulo WHERE cCodartic=@cProdCode -------------Evalua Articulo registrado en Venta IF @ControlStock=1 BEGIN --Si tiene control de stock lo adciona a la tabla detalle INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cProdCode, @UnidadSalida, '', @nProdCant) END ELSE BEGIN IF @EsEnsamblado= 1 BEGIN SET @FIN=1 --Inserta en Tabla de Ensamblado articulo registrado en Venta INSERT INTO #Tmp_Ensamblado(cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cProdCode, @UnidadSalida, '', @nProdCant) ---Llena Tabla detalle con los articulos incluidos en el ensamblado WHILE @FIN > 0 BEGIN --Captura los datos del ensamblado en Temporal------------ SELECT @cProdPadre=ccodidart, @nPadreCant=cCantProd FROM #Tmp_Ensamblado --Llena cursor con los articulos del ensamblado DECLARE CUR_ENSAMBLADO CURSOR FOR SELECT nQtdreque, cCodarten FROM ArticuloEnsamblado WHERE cCodartic=@cProdPadre OPEN CUR_ENSAMBLADO FETCH NEXT FROM CUR_ENSAMBLADO INTO @nQtdreque, @cCodarten SET @nProdCantDet=0 ---Evalua los articulos del ensamblado y los añade a la tabla Detalle o Ensamblado WHILE @@FETCH_STATUS = 0 BEGIN --- Calcula la cantidad del articulo para registra como salida SET @nProdCantDet=@nPadreCant * @nQtdReque SELECT @EsEnsamblado= bSwEnsamb, @ControlStock= bSwCtrlStck, @UnidadSalida= cUndSalida FROM Articulo WHERE cCodartic=@cCodarten IF @ControlStock=1 BEGIN INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cCodarten, @UnidadSalida, @cProdPadre, @nProdCantDet) END ELSE BEGIN IF @EsEnsamblado= 1 BEGIN /* SET @ExisteEnsamb=0 SELECT @ExisteEnsamb= COUNT(*) FROM #Tmp_Ensamblado WHERE cCodidart=@cCodarten IF @ExisteEnsamb=0 BEGIN */ INSERT INTO #Tmp_Ensamblado (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cCodarten, @UnidadSalida, @cProdPadre, @nProdCantDet) -- END END ELSE BEGIN INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cCodarten, @UnidadSalida, @cProdPadre, @nProdCantDet) END END FETCH NEXT FROM CUR_ENSAMBLADO INTO @nQtdreque, @cCodarten END CLOSE CUR_ENSAMBLADO DEALLOCATE CUR_ENSAMBLADO DELETE FROM #Tmp_Ensamblado WHERE cCodidart=@cProdPadre SET @FIN=0 SELECT @FIN=COUNT(*) FROM #Tmp_Ensamblado END END ELSE BEGIN INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cProdCode, @UnidadSalida, '', @nProdCant) END END FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant, @nProdPrec, @vDscArtic, @vDscArtCt, @cUndSalida END CLOSE CURMOVNTADET DEALLOCATE CURMOVNTADET --------------------------------------------------------------------- --REGISTRANDO MOVIMIENTOS DE ALMACEN PARA LA TABLA DETALLE --------------------------------------------------------------------- DECLARE CUR_Detalle CURSOR FOR SELECT cCodidart, cCantProd, cCodundMed, cProdPadre FROM #Tmp_Detalle OPEN CUR_Detalle FETCH NEXT FROM CUR_Detalle INTO @cProdCode, @nProdCant, @cUndSalida, @cProdPadre SET @iItm=0 WHILE @@FETCH_STATUS = 0 BEGIN SET @iItm = @iItm + 1 SELECT @nCostoArt = nCostoArt FROM ArticuloAlmacen WHERE cCodAlmac = @cAlmaCode AND cCodArtic = @cProdCode INSERT INTO MOVALMACEND(cCodMovAl, nTipMov, nNmtItmMv, cCodidart, cUndmedid, nPrecioCom, nQtdMovim, nCostoArt, nQtdequiv, cProdPadre) VALUES(@cCodMovAl, 2, @iItm, @cProdCode, @cUndSalida, @nProdPrec, @nProdCant, ISNULL(@nCostoArt,0), @nProdCant, @cProdPadre ) --ACTUALIZA STOCKS Declare @existe integer Select @existe= count(*) from ArticuloAlmacen Where cCodArtic=@cProdCode and cCodAlmac=@cAlmaCode If @existe=0 Begin --Inserta el registro si no existe en la tabla INSERT INTO ArticuloAlmacen (cCodAlmac,cCodArtic,nStockAl, dtUltSalAlm,cCodmn_ult_vta) VALUES(@cAlmaCode,@cProdCode,0, convert(datetime, convert(varchar,GETDATE(),102),102), 'N' ) End UPDATE ArticuloAlmacen SET nStockAl= nStockAl - @nProdCant, dtUltSalAlm = convert(datetime,convert(varchar,GETDATE(),102),102), cCodmn_ult_vta = 'N' WHERE cCodArtic = @cProdCode AND cCodAlmac = @cAlmaCode FETCH NEXT FROM CUR_DETALLE INTO @cProdCode, @nProdCant, @cUndSalida, @cProdPadre END CLOSE CUR_DETALLE DEALLOCATE CUR_DETALLE ---------------------------------------------------------------------- -------ACTUALIZA IMPORTE DE SALIDA A ALMACEN UPDATE MOVALMACEN SET nImpTotal = (Select sum(nCostoArt * nQtdequiv) from MovAlmacenD where cCodMovAl=@cCodMovAl and nTipMov=2) WHERE cCodMovAl=@cCodMovAl and nTipMov=2 ---------------------------------------------- DELETE FROM #Tmp_Detalle UPDATE OPERACIONParalela SET cFlagSincronizacion = '1' WHERE cCajaCodi = @cCajaCodi AND cTurnoCodi = @cTurnoCodi AND CONVERT(datetime,convert(varchar,dOperFech,102),102) = @dOperFecha FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @cTurnoCodi, @dOperFecha, @cUserDesc, @cAlmaCode, @nTotal, @Moneda END CLOSE CURMOVNTA DEALLOCATE CURMOVNTA END SET QUOTED_IDENTIFIER ON GO /****** Object: StoredProcedure [dbo].[usp_registraMovAlmacen] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_registraMovAlmacen] AS BEGIN ------------------------------------ DECLARE @cCodMovAl CHAR(10), @cCajaCodi CHAR(10), @cOperCode NUMERIC, @dOperFecha DATETIME, @cUserDesc CHAR(10), @cAlmaCode CHAR(2), @nTotal DECIMAL(18,2), @Moneda CHAR(1), @cProdCode CHAR(6), @nProdCant DECIMAL(18,2), @nProdPrec DECIMAL(18,2), @iItm NUMERIC(18), @vDscArtic VARCHAR(100), @vDscArtCt VARCHAR(25), @cUndSalida CHAR(3), @cTurnoCodi CHAR(2), @tFecha DATETIME, @nCostoArt DECIMAL(18,2), @nImporIGV DECIMAL(18,2), @nImporServ DECIMAL(18,2), @nPorcServ DECIMAL(18,2), @nPorcIGV DECIMAL(18,2), @nSubtotal DECIMAL(18,2), @cTipTra char(2), @cDocCodigo varchar(10) , @cDocSerie varchar(4), @cDocTipo char(2) Declare @EsEnsamblado BINARY, @ControlStock BINARY, @UnidadSalida CHAR(3), @cProdPadre CHAR(6), @nQtdreque DECIMAL(18,2), @cCodarten CHAR(6), @nProdCantDet DECIMAL(18,2), @nPadreCant DECIMAL(18,2), @FIN INTEGER, @ExisteEnsamb INTEGER CREATE TABLE #Tmp_Detalle (cCodidart char(6), cCodundMed char(3), cProdPadre char(6), cCantProd DECIMAL(18,2) ) CREATE TABLE #Tmp_Ensamblado (cCodidart char(6), cCodundMed char(3), cProdPadre char(6), cCantProd DECIMAL(18,2) ) SET @tFecha = convert(datetime, convert(varchar,GETDATE(),102),102) -------------------------------- --REGISTRA MOVIMIENTOS DE ALMACEN --------------------------------- DECLARE CURMOVNTA CURSOR FOR SELECT cCajaCodi, cTurnoCodi, CONVERT(datetime, convert(varchar,dOperFech,102),102), MAX(cUserDesc), MAX(cAlmaCode), SUM(nProdCant * nProdPrecUnit * (100 - nServicio)/100), 'N' FROM Operacion (NOLOCK) WHERE cFlagSincronizacion = '0' AND cOperTipo in (1,2,3) AND cOperFlagAnula = 0 GROUP BY cCajaCodi, cTurnoCodi, CONVERT(datetime, convert(varchar,dOperFech,102),102) ORDER BY cCajaCodi, cTurnoCodi OPEN CURMOVNTA FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @cTurnoCodi, @dOperFecha, @cUserDesc, @cAlmaCode, @nTotal, @Moneda WHILE @@FETCH_STATUS = 0 BEGIN SET @cCodMovAl = '' --MOV ALMACEN SELECT @cCodMovAl = MAX(cCodMovAl) FROM MOVALMACEN WHERE nTipMov=2 and left(cCodMovAl,3)= right(year(getdate()),3) SET @cCodMovAl = right(year(getdate()),3) + RIGHT('0000000' + CONVERT(VARCHAR,CONVERT(NUMERIC,ISNULL(@cCodMovAl,'0')) + 1),7) SET @cTipTra='06' INSERT INTO MOVALMACEN( cCodMovAl, nTipMov, dtFechMov, dtFecharg, cCodUsrRg, cCodAlmac, vObseAdic, nImpTotal, cIdTipTra, cCodMoned, bSwAnulado, cIdTipItm, vRuc_Tarj, cCodProve, vContProv ) VALUES( @cCodMovAl, 2, @dOperFecha, @tFecha, '000001', @cAlmaCode, 'PROCESO VENTA - TURNO ' + @cTurnoCodi, @nTotal, @cTipTra, @Moneda, 0, '01', '', '0', 'PROCESO CONSOLIDACION') --DETALLES SELECT @iItm = 0 DECLARE CURMOVNTADET CURSOR FOR SELECT M.cAlmaCode, M.cProdCode, SUM(M.nProdCant), MAX(M.nProdPrecUnit), MAX(M.vDscArtic), MAX(M.vDscArtCt), MAX(M.cUndSalida) FROM (SELECT O.cAlmaCode, O.cProdCode, O.nProdCant, O.nProdPrecUnit, A.vDscArtic, A.vDscArtCt, A.cUndSalida FROM Operacion O (NOLOCK) LEFT JOIN Articulo A ON O.cProdCode = A.cCodArtic WHERE cFlagSincronizacion = '0' AND cOperTipo in (1,2,3) AND cOperFlagAnula = 0 AND O.cCajaCodi = @cCajaCodi AND O.cTurnoCodi = @cTurnoCodi AND CONVERT(DATETIME, CONVERT(VARCHAR,O.dOperFech,102), 102) = @dOperFecha) M GROUP BY M.cAlmaCode, M.cProdCode OPEN CURMOVNTADET FETCH NEXT FROM CURMOVNTADET INTO @cAlmaCode, @cProdCode, @nProdCant, @nProdPrec, @vDscArtic, @vDscArtCt, @cUndSalida WHILE @@FETCH_STATUS = 0 BEGIN ------------------LLenando Tabla de Detalle y Ensamblado -------------------------- SELECT @EsEnsamblado= bSwEnsamb, @ControlStock= bSwCtrlStck, @UnidadSalida= cUndSalida FROM Articulo (NOLOCK) WHERE cCodartic=@cProdCode -------------Evalua Articulo registrado en Venta IF @ControlStock=1 BEGIN --Si tiene control de stock lo adciona a la tabla detalle INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cProdCode, @UnidadSalida, '', @nProdCant) END ELSE BEGIN IF @EsEnsamblado= 1 BEGIN SET @FIN=1 /*--Inserta en Tabla de Ensamblado articulo registrado en Venta SET @ExisteEnsamb=0 SELECT @ExisteEnsamb= COUNT(*) FROM #Tmp_Ensamblado WHERE cCodidart=@cProdCode print 'insertando ensam' print @cProdCode print @ExisteEnsamb IF @ExisteEnsamb=0 BEGIN */ INSERT INTO #Tmp_Ensamblado(cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cProdCode, @UnidadSalida, '', @nProdCant) -- END ---Llena Tabla detalle con los articulos incluidos en el ensamblado WHILE @FIN > 0 BEGIN --Captura los datos del ensamblado en Temporal------------ SELECT @cProdPadre=ccodidart, @nPadreCant=cCantProd FROM #Tmp_Ensamblado --Llena cursor con los articulos del ensamblado DECLARE CUR_ENSAMBLADO CURSOR FOR SELECT nQtdreque, cCodarten FROM ArticuloEnsamblado WHERE cCodartic=@cProdPadre OPEN CUR_ENSAMBLADO FETCH NEXT FROM CUR_ENSAMBLADO INTO @nQtdreque, @cCodarten SET @nProdCantDet=0 ---Evalua los articulos del ensamblado y los añade a la tabla Detalle o Ensamblado WHILE @@FETCH_STATUS = 0 BEGIN --- Calcula la cantidad del articulo para registra como salida SET @nProdCantDet=0 SET @nProdCantDet = @nPadreCant * @nQtdReque SELECT @EsEnsamblado= bSwEnsamb, @ControlStock= bSwCtrlStck, @UnidadSalida= cUndSalida FROM Articulo (nolock) WHERE cCodartic=@cCodarten IF @ControlStock=1 BEGIN INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cCodarten, @UnidadSalida, @cProdPadre, @nProdCantDet) END ELSE BEGIN IF @EsEnsamblado= 1 BEGIN /* SET @ExisteEnsamb=0 SELECT @ExisteEnsamb= COUNT(*) FROM #Tmp_Ensamblado WHERE rtrim(ltrim(cCodidart))=rtrim(ltrim(@cCodarten )) print 'insertando ensam' print @cCodarten print @ExisteEnsamb IF @ExisteEnsamb=0 and @cCodarten <> @cProdCode BEGIN */ INSERT INTO #Tmp_Ensamblado (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cCodarten, @UnidadSalida, @cProdPadre, @nProdCantDet) -- END END ELSE BEGIN INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cCodarten, @UnidadSalida, @cProdPadre, @nProdCantDet) END END FETCH NEXT FROM CUR_ENSAMBLADO INTO @nQtdreque, @cCodarten END CLOSE CUR_ENSAMBLADO DEALLOCATE CUR_ENSAMBLADO DELETE FROM #Tmp_Ensamblado WHERE cCodidart=@cProdPadre SET @FIN=0 SELECT @FIN=COUNT(*) FROM #Tmp_Ensamblado END END ELSE BEGIN INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cProdCode, @UnidadSalida, '', @nProdCant) END END FETCH NEXT FROM CURMOVNTADET INTO @cAlmaCode, @cProdCode, @nProdCant, @nProdPrec, @vDscArtic, @vDscArtCt, @cUndSalida END CLOSE CURMOVNTADET DEALLOCATE CURMOVNTADET --------------------------------------------------------------------- --REGISTRANDO MOVIMIENTOS DE ALMACEN PARA LA TABLA DETALLE --------------------------------------------------------------------- DECLARE CUR_Detalle CURSOR FOR SELECT cCodidart, cCantProd, cCodundMed, cProdPadre FROM #Tmp_Detalle OPEN CUR_Detalle FETCH NEXT FROM CUR_Detalle INTO @cProdCode, @nProdCant, @cUndSalida, @cProdPadre SET @iItm=0 WHILE @@FETCH_STATUS = 0 BEGIN SET @iItm = @iItm + 1 SELECT @nCostoArt = nCostoArt FROM ArticuloAlmacen WHERE cCodAlmac = @cAlmaCode AND cCodArtic = @cProdCode INSERT INTO MOVALMACEND( cCodMovAl, nTipMov, nNmtItmMv, cCodidart, cUndmedid, nPrecioCom, nQtdMovim, nCostoArt, nQtdequiv, cProdPadre) VALUES( @cCodMovAl, 2, @iItm, @cProdCode, @cUndSalida, @nProdPrec, @nProdCant, ISNULL(@nCostoArt,0), @nProdCant,@cProdPadre ) --ACTUALIZA STOCKS Declare @existe integer Select @existe= count(*) from ArticuloAlmacen Where cCodArtic=@cProdCode and cCodAlmac=@cAlmaCode If @existe=0 Begin --Inserta el registro si no existe en la tabla INSERT INTO ArticuloAlmacen (cCodAlmac,cCodArtic,nStockAl, dtUltSalAlm,cCodmn_ult_vta) VALUES(@cAlmaCode,@cProdCode,0, convert(datetime, convert(varchar,GETDATE(),102),102), 'N' ) End UPDATE ArticuloAlmacen SET nStockAl= nStockAl - @nProdCant, dtUltSalAlm = convert(datetime,convert(varchar,GETDATE(),102),102), cCodmn_ult_vta = 'N' WHERE cCodArtic = @cProdCode AND cCodAlmac = @cAlmaCode FETCH NEXT FROM CUR_DETALLE INTO @cProdCode, @nProdCant, @cUndSalida, @cProdPadre END CLOSE CUR_DETALLE DEALLOCATE CUR_DETALLE ---------------------------------------------------------------------- -------ACTUALIZA IMPORTE DE SALIDA A ALMACEN UPDATE MOVALMACEN SET nImpTotal = (Select sum(nCostoArt * nQtdequiv) from MovAlmacenD where cCodMovAl=@cCodMovAl and nTipMov=2) WHERE cCodMovAl=@cCodMovAl and nTipMov=2 ---------------------------------------------- UPDATE OPERACION SET cFlagSincronizacion = '1' WHERE cCajaCodi = @cCajaCodi AND cTurnoCodi = @cTurnoCodi AND CONVERT(datetime,convert(varchar,dOperFech,102),102) = @dOperFecha DELETE FROM #Tmp_Detalle FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @cTurnoCodi, @dOperFecha, @cUserDesc, @cAlmaCode, @nTotal, @Moneda END CLOSE CURMOVNTA DEALLOCATE CURMOVNTA end SET QUOTED_IDENTIFIER ON GO /****** Object: StoredProcedure [dbo].[usp_new_registraMovAlmacen] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_new_registraMovAlmacen] @result INT OUTPUT AS BEGIN ------------------------------------ DECLARE @cCodMovAl CHAR(10), @cCajaCodi CHAR(10), @cOperCode NUMERIC, @dOperFecha DATETIME, @cUserDesc CHAR(10), @cAlmaCode CHAR(2), @nTotal DECIMAL(18,2), @Moneda CHAR(1), @cProdCode CHAR(6), @nProdCant DECIMAL(18,2), @nProdPrec DECIMAL(18,2), @iItm NUMERIC(18), @vDscArtic VARCHAR(100), @vDscArtCt VARCHAR(25), @cUndSalida CHAR(3), @cTurnoCodi CHAR(2), @tFecha DATETIME, @nCostoArt DECIMAL(18,2), @nImporIGV DECIMAL(18,2), @nImporServ DECIMAL(18,2), @nPorcServ DECIMAL(18,2), @nPorcIGV DECIMAL(18,2), @nSubtotal DECIMAL(18,2), @cTipTra char(2), @cDocCodigo varchar(10) , @cDocSerie varchar(4), @cDocTipo char(2), @tipodoc char(2), @cUndMedEn char(3), @cUndMedArtEn char(3), @nEquivale DECIMAL(18,2) Declare @EsEnsamblado BINARY, @ControlStock BINARY, @UnidadSalida CHAR(3), @cProdPadre CHAR(6), @nQtdreque DECIMAL(18,2), @cCodarten CHAR(6), @nProdCantDet DECIMAL(18,2), @nPadreCant DECIMAL(18,2), @FIN INTEGER, @ExisteEnsamb INTEGER CREATE TABLE #Tmp_Detalle ( cCodidart char(6), cCodundMed char(3), cProdPadre char(6), cCantProd DECIMAL(18,2) ) CREATE TABLE #Tmp_Ensamblado ( cCodidart char(6), cCodundMed char(3), cProdPadre char(6), cCantProd DECIMAL(18,2) ) SET @tFecha = convert(datetime, convert(varchar,GETDATE(),102),102) -------------------------------- --REGISTRA MOVIMIENTOS DE ALMACEN --------------------------------- SET @RESULT= 0 BEGIN TRAN DECLARE CURMOVNTA CURSOR FOR SELECT o.cCodCaja, CONVERT(datetime, convert(varchar, o.dtFechaOper,102),102), cAlmaCode, CASE o.cTipoDoc WHEN '01' THEN 'BF' WHEN '02' THEN 'BF' WHEN '10' THEN 'OC' WHEN '11' THEN 'NC' --jpbc END FROM (SELECT * FROM CuentaCte c (NOLOCK) WHERE NOT c.cCodCtaCte in (SELECT cCodCtaCte FROM MovXCtaD (NOLOCK) WHERE cCodCtaCte=c.cCodCtaCte) AND c.bSwAnulado = 0) o WHERE o.bSwAnulado = 0 --and CONVERT(datetime, convert(varchar,dtFechaOper,102),102)= '20110131' GROUP BY cCodCaja, CONVERT(datetime, convert(varchar,dtFechaOper,102),102), cAlmaCode, CASE cTipoDoc WHEN '01' THEN 'BF' WHEN '02' THEN 'BF' WHEN '10' THEN 'OC' WHEN '11' THEN 'NC' --JPCB END OPEN CURMOVNTA FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @dOperFecha, @cAlmaCode,@TipoDoc WHILE @@FETCH_STATUS = 0 BEGIN SET @cCodMovAl = '' --MOV ALMACEN SELECT @cCodMovAl = MAX(convert(numeric, cCodMovAl)) FROM MOVALMACEN WHERE nTipMov=2 and left(cCodMovAl,3)= right(year(getdate()),3) SET @cCodMovAl = right(year(getdate()),3) + RIGHT('0000000' + CONVERT(VARCHAR,CONVERT(NUMERIC,ISNULL(@cCodMovAl,'0')) + 1),7) -- IF @tipodoc= 'OC' begin -- SET @cTipTra='10' -- END ELSE BEGIN -- SET @cTipTra='06' -- END IF @tipodoc= 'OC' BEGIN SET @cTipTra='10' END ELSE BEGIN IF @tipodoc='NC' SET @cTipTra='13' ELSE SET @cTipTra='06' END -- SET @cAlmaCode= '01' INSERT INTO MOVALMACEN( cCodMovAl, nTipMov, dtFechMov, dtFecharg, cCodUsrRg, cCodAlmac, vObseAdic, nImpTotal, cIdTipTra, cCodMoned, bSwAnulado, cIdTipItm, vRuc_Tarj, cCodProve, vContProv ) VALUES( @cCodMovAl, 2, @dOperFecha, @tFecha, '000001', @cAlmaCode, 'PROCESO VENTA - ' + @cCajaCodi , 0, @cTipTra, 'N', 0, '01', '', '0', 'PROCESO CONSOLIDACION') IF @@ERROR <> 0 BEGIN SET @result= 1 END --DETALLES SELECT @iItm = 0 DECLARE CURMOVNTADET CURSOR FOR SELECT ccodartic, sum(nqtdvendida) FROM cuentacted (NOLOCK) inner join cuentacte on cuentacte.cCodctaCte= cuentacted.cCodctaCte WHERE cuentacted.ccodctacte IN (SELECT ccodctacte FROM CUENTACTE (NOLOCK) WHERE CONVERT(datetime, convert(varchar,dtFechaOper,102),102)= @dOperFecha AND cCodCaja= @cCajaCodi AND (case cTipoDoc when '10'THEN 'OC' when '11' THEN 'NC' ELSE 'BF' END ) = @Tipodoc) --jpcb AND bSwAnulado=0 --NO CONSIDERA LAS ANULADAS AND (SELECT count(*) FROM MovXCta WHERE cCodCaja=@cCajaCodi AND dtFechaOper=@dOperFecha AND cTipoVenta=@TipoDoc and cAlmaCode=@cAlmaCode)=0 AND cAlmaCode=@cAlmaCode GROUP BY ccodartic OPEN CURMOVNTADET FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant WHILE @@FETCH_STATUS = 0 BEGIN ------------------LLenando Tabla de Detalle y Ensamblado -------------------------- SELECT @EsEnsamblado= bSwEnsamb, @ControlStock= bSwCtrlStck, @UnidadSalida= cUndSalida FROM Articulo (NOLOCK) WHERE cCodartic=@cProdCode -------------Evalua Articulo registrado en Venta IF @ControlStock=1 BEGIN --Si tiene control de stock lo adciona a la tabla detalle INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cProdCode, @UnidadSalida, '', @nProdCant) END ELSE BEGIN IF @EsEnsamblado= 1 BEGIN SET @FIN=1 INSERT INTO #Tmp_Ensamblado(cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cProdCode, @UnidadSalida, '', @nProdCant) IF @@ERROR <> 0 BEGIN SET @result= 1 goto EtiquetaError END ---Llena Tabla detalle con los articulos incluidos en el ensamblado WHILE @FIN > 0 BEGIN --Captura los datos del ensamblado en Temporal------------ SELECT @cProdPadre=ccodidart, @nPadreCant=cCantProd FROM #Tmp_Ensamblado --Llena cursor con los articulos del ensamblado DECLARE CUR_ENSAMBLADO CURSOR FOR SELECT nQtdreque, cCodarten,cUndMedEn,cUndMedArtEn=(select cUndSalida from articulo where ccodartic=cCodArten) FROM ArticuloEnsamblado (NOLOCK) WHERE cCodartic=@cProdPadre OPEN CUR_ENSAMBLADO FETCH NEXT FROM CUR_ENSAMBLADO INTO @nQtdreque, @cCodarten,@cUndMedEn,@cUndMedArtEn SET @nProdCantDet=0 ---Evalua los articulos del ensamblado y los añade a la tabla Detalle o Ensamblado WHILE @@FETCH_STATUS = 0 BEGIN --- Calcula la cantidad del articulo para registra como salida SET @nProdCantDet=0 -- SET @nProdCantDet = @nPadreCant * @nQtdReque --jpcb 181011: --aca modificar para hacer la equivalencia con respecto a la unidad que tiene el componente en la tabla articuloensamblado --y la unidad que tiene el componente del ensamblado en el maestro de articulos --si son iguales queda tal cual --si son diferentes hacer la equivalencia a @nQtdReque antes de multiplicar IF @cUndMedEn='' BEGIN SET @nProdCantDet = @nPadreCant * @nQtdReque END ELSE BEGIN IF @cUndMedEn=@cUndMedArtEn BEGIN SET @nProdCantDet = @nPadreCant * @nQtdReque END ELSE BEGIN --select @nEquivale=nEquivale from UnidadMedida where ccodundeq=@cUndMedArtEn and cUndMedid=@cUndMedEn select @nEquivale=nEquivale from UnidadMedida where ccodundeq=@cUndMedEn and cUndMedid=@cUndMedArtEn if @nEquivale is null SET @nProdCantDet = @nPadreCant * @nQtdReque else SET @nProdCantDet = @nPadreCant *(@nQtdReque/@nEquivale) END END SELECT @EsEnsamblado= bSwEnsamb, @ControlStock= bSwCtrlStck, @UnidadSalida= cUndSalida FROM Articulo (nolock) WHERE cCodartic=@cCodarten IF @ControlStock=1 BEGIN INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cCodarten, @UnidadSalida, @cProdPadre, @nProdCantDet) IF @@ERROR <> 0 BEGIN SET @result= 1 goto EtiquetaError END END ELSE BEGIN IF @EsEnsamblado= 1 BEGIN INSERT INTO #Tmp_Ensamblado (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cCodarten, @UnidadSalida, @cProdPadre, @nProdCantDet) IF @@ERROR <> 0 BEGIN SET @result= 1 goto EtiquetaError END END ELSE BEGIN INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cCodarten, @UnidadSalida, @cProdPadre, @nProdCantDet) IF @@ERROR <> 0 BEGIN SET @result= 1 goto EtiquetaError END END END FETCH NEXT FROM CUR_ENSAMBLADO INTO @nQtdreque, @cCodarten,@cUndMedEn,@cUndMedArtEn END CLOSE CUR_ENSAMBLADO DEALLOCATE CUR_ENSAMBLADO DELETE FROM #Tmp_Ensamblado WHERE cCodidart=@cProdPadre IF @@ERROR <> 0 BEGIN SET @result= 1 goto EtiquetaError END SET @FIN=0 SELECT @FIN=COUNT(*) FROM #Tmp_Ensamblado END END ELSE BEGIN INSERT INTO #Tmp_Detalle (cCodidart, cCodundMed, cProdPadre, cCantProd) VALUES(@cProdCode, @UnidadSalida, '', @nProdCant) IF @@ERROR <> 0 BEGIN SET @result= 1 goto EtiquetaError END END END FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant END CLOSE CURMOVNTADET DEALLOCATE CURMOVNTADET --------------------------------------------------------------------- --REGISTRANDO MOVIMIENTOS DE ALMACEN PARA LA TABLA DETALLE --------------------------------------------------------------------- DECLARE CUR_Detalle CURSOR FOR SELECT cCodidart, cCantProd, cCodundMed, cProdPadre FROM #Tmp_Detalle OPEN CUR_Detalle FETCH NEXT FROM CUR_Detalle INTO @cProdCode, @nProdCant, @cUndSalida, @cProdPadre SET @iItm=0 WHILE @@FETCH_STATUS = 0 BEGIN SET @iItm = @iItm + 1 SELECT @nCostoArt = nCostoArt FROM ArticuloAlmacen WHERE cCodAlmac = @cAlmaCode AND cCodArtic = @cProdCode INSERT INTO MOVALMACEND( cCodMovAl, nTipMov, nNmtItmMv, cCodidart, cUndmedid, nPrecioCom, nQtdMovim, nCostoArt, nQtdequiv, cProdPadre) VALUES( @cCodMovAl, 2, @iItm, @cProdCode, @cUndSalida, isnull(@nProdPrec,0), @nProdCant, ISNULL(@nCostoArt,0), @nProdCant,@cProdPadre ) IF @@ERROR <> 0 BEGIN SET @result= 1 Goto EtiquetaError END --ACTUALIZA STOCKS Declare @existe integer Select @existe= count(*) from ArticuloAlmacen Where cCodArtic=@cProdCode and cCodAlmac=@cAlmaCode If @existe=0 Begin --Inserta el registro si no existe en la tabla INSERT INTO ArticuloAlmacen (cCodAlmac,cCodArtic,nStockAl, dtUltSalAlm,cCodmn_ult_vta) VALUES(@cAlmaCode,@cProdCode,0, convert(datetime, convert(varchar,GETDATE(),102),102), 'N' ) IF @@ERROR <> 0 BEGIN SET @result= 1 Goto EtiquetaError END End UPDATE ArticuloAlmacen SET nStockAl= nStockAl - @nProdCant, dtUltSalAlm = convert(datetime,convert(varchar,GETDATE(),102),102), cCodmn_ult_vta = 'N' WHERE cCodArtic = @cProdCode AND cCodAlmac = @cAlmaCode IF @@ERROR <> 0 BEGIN SET @result= 1 Goto EtiquetaError END FETCH NEXT FROM CUR_DETALLE INTO @cProdCode, @nProdCant, @cUndSalida, @cProdPadre END CLOSE CUR_DETALLE DEALLOCATE CUR_DETALLE ---------------------------------------------------------------------- -------ACTUALIZA IMPORTE DE SALIDA A ALMACEN UPDATE MOVALMACEN SET nImpTotal = (Select sum(nCostoArt * nQtdequiv) from MovAlmacenD where cCodMovAl=@cCodMovAl and nTipMov=2) WHERE cCodMovAl=@cCodMovAl and nTipMov=2 IF @@ERROR <> 0 BEGIN SET @result= 1 Goto EtiquetaError END ---------------------------------------------- DELETE FROM #Tmp_Detalle IF @@ERROR <> 0 BEGIN SET @result= 1 Goto EtiquetaError END ---Insertando en la tabla detalel de mov x cuenta ------------------- DECLARE @existe1 integer INSERT INTO MovxCtaD SELECT DISTINCT cuentacted.cCodctacte, @cCodMoval FROM cuentacted (NOLOCK) inner join cuentacte on cuentacte.cCodctaCte= cuentacted.cCodctaCte WHERE cuentacted.ccodctacte IN (SELECT ccodctacte FROM CUENTACTE (NOLOCK) WHERE CONVERT(datetime, convert(varchar,dtFechaOper,102),102)= @dOperFecha AND cCodCaja= @cCajaCodi AND (case cTipoDoc when '10'THEN 'OC' when '11'THEN 'NC' ELSE 'BF' END ) = @Tipodoc) AND (SELECT count(*) FROM MovXCta WHERE cCodCaja=@cCajaCodi AND dtFechaOper=@dOperFecha AND cTipoVenta=@TipoDoc AND cAlmaCode=@cAlmaCode)=0 AND cAlmaCode=@cAlmaCode INSERT INTO MOVXCTA (cCodMovAl, cCodCaja, dtFechaOper, cTipoVenta,cAlmaCode) VALUES (@cCodMovAl, @cCajaCodi, @dOperFecha , @Tipodoc,@cAlmaCode) IF @@ERROR <> 0 BEGIN SET @result= 1 Goto EtiquetaError END FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @dOperFecha, @cAlmaCode,@TipoDoc END CLOSE CURMOVNTA DEALLOCATE CURMOVNTA EtiquetaError: IF @result = 1 BEGIN ROLLBACK TRAN END ELSE BEGIN COMMIT TRAN END RETURN @result END SET QUOTED_IDENTIFIER ON GO /****** Object: StoredProcedure [dbo].[usp_Log_MovAlmacenDetMant] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER OFF GO /* * Descripcion : Realiza las operaciones de mantenimiento de la tabla MovAlmacenD * Version : 1 * Modificado : Enero 2006 * Creado por : Diana Valderrama * Nota : v. 3 - Modificado < 22/07/2010 >, para registrar un Movimiento de tipo CANJE y si este tiene validacion * entonces registrarlo. Además se registra el Local desde donde se está realizando el canje. * Este cambio fue establecido para el cliente GVILLA. */ CREATE Procedure [dbo].[usp_Log_MovAlmacenDetMant] @iaccion int, --Insertar, elminar @cCodMovAl char(10), --Codigo de movimiento de almacen @nTipMov tinyint = 0 , --Tipo Movimiento 1:Ingreso 2:Salida @nNmtItmMv numeric(9) = 0 , --Item de Movimiento @cCodidart char(18) = null, --Codigo de articulo @cUndmedid char(3)= null, --Unidad de medida de movimiento @nCostoArt numeric(18,4)=0 , --Ingreso : Costo de articulo en moneda nacional /Salida:PrecioOtiginal @nPrecioCom numeric(18,4)=0 , --Ingr:Precio de compra Salida:Precio de venta @nQtdMovim numeric(18,2)=0 , --Cantida que ingresa o sale @cCodOComp char(10)= null, --Orden de compra @nNmtItmOC int = 0, --Item de la O/C @nQtdPedida numeric(18,4)=0 , --Cantidad @nQtdEquiv numeric(18,4)=0 , --Cantidad convertida a unidda de salida @cUndEquiv char(3) = null , --Unidad de salida @vDscLarga varchar(500)=null, --Descripcion larga de articulo @nPuntosCanje integer= 0, @iIdCanje int=0, @i_id_local_canje int = 1 As Begin Declare @existe bit, @cCodAlmac char(2), @Moneda char(2), @nStockAl numeric(18,4), @dtUltSalAlm datetime, @dtUltIngAlm datetime, @cCodmn_ult_vta char(2), @cCodmn_ult_com char(2), @nCostoMN_ult_com numeric(18,4), @nCosto_ult_com numeric(18,4), @nPreMN_ult_vta numeric(18,4), @nPrecio_ult_vta numeric(18,4), @cCodMoned char(2), @Fecha datetime, @cIdTipTra char(2), @cCodProve char(15) /*---------Inicializando variables --------------*/ SET @existe= 0 SET @Moneda ='' SET @nStockAl=0 SET @dtUltSalAlm=NULL SET @dtUltIngAlm=NULL SET @cCodmn_ult_vta ='' SET @cCodmn_ult_com ='' SET @nCostoMN_ult_com=0 SET @nCosto_ult_com=0 SET @nPreMN_ult_vta=0 SET @nPrecio_ult_vta=0 SET @cCodMoned='' SET @Fecha =NULL SET @cIdTipTra='' SET @cCodProve='' /*----------------------------------------------*/ If @iaccion=0 -- Inserta un Movimiento de almacen begin Select @cCodAlmac= cCodAlmac, @Fecha= dtFechMov, @Moneda=cCodMoned, @cIdTipTra=cIdTipTra,@cCodProve=cCodProve From MovAlmacen where cCodMovAl=@cCodMovAl and nTipMov=@nTipMov /*IF @nTipMov= 2 BEGIN Select @nCostoArt=isnull(d.nCostoart,0) from MovAlmacend d where d.cCodidart=@cCodidart and d.ntipMov=1 and d.cCodMovAl =(Select max(cCodMoval) from MovAlmacen Where ntipMov=1 and convert(datetime, convert(varchar,dtFechMov,102),102) <= convert(datetime, convert(varchar,@Fecha,102),102)and cCodMovAl in (Select cCodMovAl from MovAlmacenD where cCodidart= @cCodidart and nTipMov=1 )) END */ INSERT INTO MovAlmacenD (nNmtItmMv,cCodidart, cUndmedid, nCostoArt,nPrecioCom, nQtdMovim,cCodMovAl, cCodOComp,nNmtItmOC, nQtdPedida, nQtdEquiv, cUndEquiv, nTipMov, vDscLarga, nPuntosCanje, iIdCanje) VALUES (@nNmtItmMv,@cCodidart, @cUndmedid, @nCostoArt, @nPrecioCom, @nQtdMovim, @cCodMovAl, @cCodOComp, @nNmtItmOC, @nQtdPedida, @nQtdEquiv, @cUndEquiv, @nTipMov, @vDscLarga,@nPuntosCanje,@iIdCanje) --sw Add 08/07/2010 if @nTipMov = 2 and @cIdTipTra = '05' --Salida - Canje begin insert into registro_canje_cumpleaños_d (vc_cod_mov, i_tip_mov, n_numero_item, vc_cod_articulo, i_id_local_canje) values (@cCodMovAl, @nTipMov, @nNmtItmMv, @cCodidart, @i_id_local_canje) end --sw if @nTipMov=1 and @cIdTipTra = '01'--compra begin declare @idcorre int select @idcorre=isnull(max(nNumitem),0) +1 from ArticuloPrecioCompra insert into ArticuloPrecioCompra(nNumitem, cCodMon, cCodArtic,nPrecio,cproveedor_id,cCodMovAl,dtFechaActPC) values(@idcorre,@Moneda,@cCodidart,@nPrecioCom,@cCodProve,@cCodMovAl ,getdate()) end Select @existe= count(*) from ArticuloAlmacen Where cCodArtic=@cCodidart and cCodAlmac=@cCodAlmac If @nTipMov=1 Begin SET @dtUltIngAlm=@Fecha SET @cCodmn_ult_com = @cCodMoned SET @nCosto_ult_com= @nPrecioCom SET @nCostoMN_ult_com = @nCostoArt End else Begin SET @dtUltSalAlm=@Fecha SET @cCodmn_ult_vta= @cCodMoned SET @nPrecio_ult_vta = @nPrecioCom SET @nPreMN_ult_vta = @nCostoArt End If @existe=0 Begin --Inserta el registro si no existe en la tabla INSERT INTO ArticuloAlmacen (cCodAlmac,cCodArtic,nStockAl, nCostoArt, nStockmin, nStockmax, nPunto_pedido, nPunto_repos, dtUltIngAlm,dtUltSalAlm, dtFecAproxEnt, nTransito, nComprometido, cCodmn_ult_com, nCosto_ult_com, nCostoMN_ult_com, cCodmn_ult_vta, nPrecio_ult_vta, nPreMN_ult_vta, nUtilidad_art) VALUES(@cCodAlmac,@cCodidart,@nQtdEquiv,@nCostoArt, 0,0,0,0, @dtUltIngAlm,@dtUltSalAlm, null,0, 0,@cCodmn_ult_com,@nCosto_ult_com, @nCostoMN_ult_com, @cCodmn_ult_vta,@nPrecio_ult_vta, @nPreMN_ult_vta, 0) End Else Begin Select @nStockAl=nStockAl From Articuloalmacen Where cCodArtic=@cCodidart and cCodAlmac=@cCodAlmac If @ntipMov=1 Begin SET @nStockAl= @nStockAl + @nQtdEquiv UPDATE ArticuloAlmacen SET nStockAl=@nStockAl, nCostoArt=@nCostoArt, dtUltIngAlm=@dtUltIngAlm, cCodmn_ult_com =@cCodmn_ult_com, nCosto_ult_com=@nCosto_ult_com, nCostoMN_ult_com= @nCostoMN_ult_com Where cCodArtic=@cCodidart and cCodAlmac=@cCodAlmac End Else Begin SET @nStockAl= @nStockAl - @nQtdEquiv UPDATE ArticuloAlmacen SET nStockAl=@nStockAl, dtUltSalAlm=@dtUltSalAlm Where cCodArtic=@cCodidart and cCodAlmac=@cCodAlmac IF @cIdTipTra='06' Begin UPDATE ArticuloAlmacen SET cCodmn_ult_vta =@cCodmn_ult_vta, nPrecio_ult_vta=@nPrecio_ult_vta, nPreMN_ult_vta= @nPreMN_ult_vta Where cCodArtic=@cCodidart and cCodAlmac=@cCodAlmac End End End End If @iaccion=1 -- Extorna ingreso o salida de articulos begin SET @cCodAlmac='' Select @cCodAlmac=cCodAlmac From MovAlmacen where cCodMovAl=@cCodMovAl and nTipMov=@nTipMov Select @Fecha= max(dtfechmov) from MovAlmacen where ntipmov=@nTipMov and cCodAlmac=@cCodAlmac and ccodmoval IN (Select ccodmoval from MovAlmacenD Where ccodidart=@ccodidart and nTipMov=@nTipMov) --AQUI ESTABA EL CONVERT Select top 1 @cCodMovAl=ccodmoval from MovAlmacen where ntipmov=@nTipMov and dtFechMov=@Fecha order by dtFechMov desc, cCodmoval desc Select @nCostoArt=nCostoArt , @nPrecioCom=nPrecioCom, @nQtdEquiv=nQtdEquiv, @cCodMoned = (Select cCodMoned from MovAlmacen where cCodMovAl= @cCodMoval and nTipMov=@nTipMov ), @Fecha= (Select dtFechMov from MovAlmacen where cCodMovAl= @cCodMoval and nTipMov=@nTipMov ) From MovAlmacenD where ccodmoval=@ccodmoval and nTipMov=@nTipMov and cCodidart=@cCodidart Select @nStockAl=nStockAl From Articuloalmacen Where cCodArtic=@cCodidart and cCodAlmac=@cCodAlmac If @nTipMov=1 Begin SET @dtUltIngAlm= @Fecha SET @cCodmn_ult_com = @cCodMoned SET @nCosto_ult_com= @nPrecioCom SET @nCostoMN_ult_com = @nCostoArt SET @nStockAl= @nStockAl - @nQtdEquiv End else Begin SET @dtUltSalAlm=@Fecha SET @cCodmn_ult_vta= @cCodMoned SET @nPrecio_ult_vta = @nPrecioCom SET @nPreMN_ult_vta = @nCostoArt SET @nStockAl= @nStockAl + @nQtdEquiv End if @ntipMov=1 Begin UPDATE ArticuloAlmacen SET nStockAl=@nStockAl, nCostoArt=@nCostoArt, dtUltIngAlm=@Fecha, cCodmn_ult_com =@cCodmoned, nCosto_ult_com=@nPreciocom, nCostoMN_ult_com= @nCostoart Where cCodArtic=@cCodidart and cCodAlmac=@cCodAlmac end Else Begin UPDATE ArticuloAlmacen SET nStockAl=@nStockAl, dtUltSalAlm=@Fecha Where cCodArtic=@cCodidart and cCodAlmac=@cCodAlmac IF @cIdTipTra='06' Begin UPDATE ArticuloAlmacen SET cCodmn_ult_vta =@cCodmoned, nPrecio_ult_vta=@nPreciocom, nPreMN_ult_vta= @nCostoArt Where cCodArtic=@cCodidart and cCodAlmac=@cCodAlmac End End End end GO /****** Object: StoredProcedure [dbo].[usp_actualizastock] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_actualizastock] AS BEGIN DECLARE @cCodArtic CHAR(7), @sumingreso numeric(18,4), @sumsalida numeric(18,4), @nStockAl numeric(18,4) DECLARE Cur_Articulo cursor for Select cCodartic from Articulo where bFlagDesc=0 OPEN Cur_Articulo FETCH NEXT FROM Cur_Articulo INTO @cCodArtic WHILE @@FETCH_STATUS = 0 BEGIN set @sumingreso=0 set @sumsalida=0 set @nStockAl=0 select @sumingreso=ISNULL(sum(d.nQtdEquiv),0) from movalmacend d, movalmacen m where d.ccodmoval= m.ccodmoval and d.ntipmov= m.ntipmov and d.cCodidart=@cCodArtic and d.ntipmov=1 and m.bswanulado=0 select @sumsalida= isnull(sum(d.nQtdEquiv),0) from movalmacend d, movalmacen m where d.ccodmoval= m.ccodmoval and d.ntipmov= m.ntipmov and cCodidart=@cCodArtic and d.ntipmov=2 and m.bswanulado=0 set @nStockAl=isnull((@sumingreso - abs(@sumsalida)),0) update articuloalmacen set nStockAl=@nStockal where ccodArtic=@cCodArtic FETCH NEXT FROM Cur_Articulo INTO @cCodArtic END DEALLOCATE Cur_Articulo END GO /****** Object: StoredProcedure [dbo].[OSCMOYMOVIVNTA_REPROCESA] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[OSCMOYMOVIVNTA_REPROCESA]( @pFecha VARCHAR(10) ) AS BEGIN ------------------------------------ DECLARE @cCodMovAl CHAR(10), @cCodctaCte CHAR(10), @cCajaCodi CHAR(10), @cOperCode NUMERIC, @dOperFecha DATETIME, @cUserDesc CHAR(10), @cAlmaCode CHAR(2), @nTotal DECIMAL(18,2), @nTarjNumb CHAR(8), @Moneda CHAR(1), @vClieCode VARCHAR(15), @vNomClie VARCHAR(70), @cProdCode CHAR(6), @nProdCant NUMERIC(18), @nProdPrec NUMERIC(18,2), @nPrecOrig NUMERIC(18,2), @iItm NUMERIC(18), @vDscArtic VARCHAR(100), @vDscArtCt VARCHAR(25), @cUndSalida CHAR(3), @cTurnoCodi CHAR(2), @tFecha DATETIME, @nCostoArt NUMERIC(18,2), @nImporIGV NUMERIC(18,2), @nImporServ NUMERIC(18,2), @nPorcServ NUMERIC(18,2), @iTipoCliente INTEGER, @nPrecioOrig NUMERIC(18,2), @Anulado integer --------------------------------------------------- Declare @nPorcIGV NUMERIC(18,2), @nDscto NUMERIC(18,2), @nSubtotal NUMERIC(18,2), @cTipTra char(2), @cDocCodigo varchar(10) , @cDocSerie varchar(4), @cDocTipo char(2), @cRuc char(11), @cSupervisor varchar(50) DECLARE @idLocal int --IGV ---------- SELECT @nPorcIGV=nmonto1 from Parametro where cCodParam='IGV' SELECT @tFecha = convert(datetime, convert(varchar,GETDATE(),102),102) DECLARE CURMOVNTA CURSOR FOR SELECT cCajaCodi, cOpercode, MAX(dOperFech), MAX(cUserDesc), MAX(cAlmaCode), SUM((nProdCant * nProdPrecUnit) + (nProdCant * nProdPrecUnit * nDscto/100 ) ), Sum( ((nProdCant * nProdPrecUnit) + (nProdCant * nProdPrecUnit * nDscto/100 ))/ (1+ (@nPorcIGV/100) + (nServicio/100) ) * nServicio/100 ), MAX(nTarjNumb), 'N', MAX(cCodiClie), MAX(vDescClie), cDocCodigo, cDocSerie, max(cDocTipo), max(cRuc), max(iTipoCliente),MAX(idLocal),cOperFlagAnula FROM Operacion O (NOLOCK) WHERE convert(varchar,O.dOperFech,103) = @pFecha AND cOperTipo in (1,2,3) --AND cOperFlagAnula = 0 AND (Select count(*) FROM CuentaCte (NOLOCK) WHERE cTipoDoc=O.cDocTipo AND cSerieDoc=O.cDocSerie AND cNroDoc=O.cDocCodigo)=0 GROUP BY cCajaCodi, cOpercode, cDocSerie,cdoccodigo,cOperFlagAnula ORDER BY cCajaCodi, cOpercode, cDocSerie,cdoccodigo OPEN CURMOVNTA FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @cOperCode, @dOperFecha, @cUserDesc, @cAlmaCode, @nTotal, @nImporServ, @nTarjNumb, @Moneda, @vClieCode, @vNomClie, @cDocCodigo, @cDocSerie, @cDocTipo, @cRuc, @iTipoCliente, @idLocal,@Anulado ----Manejando errores --- DECLARE @ErrorSave int SET @ErrorSave = 0 BEGIN TRAN WHILE @@FETCH_STATUS = 0 BEGIN --VENTAS IF ISNULL(@nTarjNumb,'') = '' Set @cCodctaCte = '' SELECT @cCodctaCte = MAX(convert(numeric,cCodctaCte)) FROM CUENTACTE SELECT @cCodctaCte = RIGHT('0000000000' + CONVERT(VARCHAR,CONVERT(NUMERIC,ISNULL(@cCodctaCte,'0')) + 1),10) ----Impor IGV----- SET @nImporIGV = (isnull(@nTotal,0) - isnull( @nImporServ,0)) / (1 +(@nPorcIGV/100) ) * ( @nPorcIGV/100) ---Sub total--------- SET @nSubtotal= isnull(@nTotal,0) - isnull(@nImporIGV,0) - isnull( @nImporServ,0) SET @cTipTra='06' IF isnull(@cDocCodigo,'')='' begin set @cDocCodigo= RIGHT( '0000000' + CONVERT(VARCHAR,ISNULL(@cOperCode,'0')), 7 ) end IF isnull(@cDocTipo,'')='' begin set @cDocTipo= '02' end INSERT INTO CUENTACTE( cCodctaCte, dtFechaOper, dtFechaReg, cIdTipTra, cCodCaja, vClieCod, vNomClie, cCodMone, nPorcIGV, nImporIGV, nSubtotal,nImpoTotal, nImporServ, bSwAnulado, cTipoDoc, cSerieDoc, cNroDoc, cRucClie, iTipoCliente,idLocal,cAlmaCode) VALUES(@cCodctaCte, @dOperFecha, @tFecha, @cTipTra, @cCajaCodi, @vClieCode, @vNomClie, @Moneda, @nPorcIGV, @nImporIGV , @nSubtotal, @nTotal, isnull(@nImporServ,0), @Anulado, @cDocTipo , @cDocSerie,@cDocCodigo,@cRuc, @iTipoCliente,@idLocal,@cAlmaCode) IF @@ERROR <> 0 BEGIN SET @errorsave= 1 END --DETALLES Set @iItm = 0 DECLARE CURMOVNTADET CURSOR FOR SELECT O.cProdCode, O.nProdCant, O.nProdPrecUnit, A.vDscArtic,o.nServicio, A.vDscArtCt, A.cUndSalida, o.nDscto,o.cSupervisor FROM Operacion O (NOLOCK) LEFT JOIN Articulo A (NOLOCK) ON O.cProdCode = A.cCodArtic WHERE convert(varchar,O.dOperFech,103) = @pFecha AND cOperTipo in (1,2,3) -- AND cOperFlagAnula = 0 AND O.cCajaCodi = @cCajaCodi AND O.cOperCode = @cOperCode OPEN CURMOVNTADET FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant, @nProdPrec, @vDscArtic,@nPorcServ, @vDscArtCt, @cUndSalida, @nDscto,@cSupervisor WHILE @@FETCH_STATUS = 0 BEGIN SELECT @iItm = @iItm + 1 --Hallando costo de articulo Select @nCostoArt= nCostoArt from Articuloalmacen (NOLOCK) Where cCodartic= @cProdCode SET @nPrecioOrig= @nProdPrec SET @nProdPrec= @nProdPrec + ( @nDscto/100 * @nProdPrec) INSERT INTO CUENTACTED( cCodctaCte, NumItemCta, cCodartic, cProdcode, sProdDesc, sProdDscCrta, nPrecioOrig, nCostoArt, nQtdVendida, nPreciounit, nPorcServ, nPorcdscto,cSupervisor) VALUES(@cCodctaCte, @iItm, @cProdCode, @cProdCode, @vDscArtic, @vDscArtCt, @nPrecioOrig, isnull(@nCostoArt,0), @nProdCant, @nProdPrec, isnull(@nPorcServ,0), isnull(@nDscto,0),@cSupervisor) IF @@ERROR <> 0 BEGIN SET @errorsave= 1 END FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant, @nProdPrec, @vDscArtic,@nPorcServ, @vDscArtCt, @cUndSalida, @nDscto, @cSupervisor END CLOSE CURMOVNTADET DEALLOCATE CURMOVNTADET FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @cOperCode, @dOperFecha, @cUserDesc, @cAlmaCode, @nTotal, @nImporServ, @nTarjNumb, @Moneda, @vClieCode, @vNomClie, @cDocCodigo, @cDocSerie, @cDocTipo, @cRuc, @iTipoCliente,@idLocal,@Anulado END CLOSE CURMOVNTA DEALLOCATE CURMOVNTA ---------------------- --operacion paralela-- ---------------------- DECLARE CURMOVNTA CURSOR FOR SELECT B.cCajaCodi, B.cOpercode, B.dOperFech, B.cUserDesc, cAlmaCode = (select max(A.cAlmaCode) from OperacionParalelaProducto A where A.cCajaCodi = B.cCajaCodi AND A.cOpercode = B.cOpercode), B.nMontoSoles, B.nTarjNumb, 'N', B.cCodiClie, B.vDescClie, B.iTipoCliente, B.cDocCodigo, B.cDocSerie, B.cDocTipo FROM OperacionParalela B (NOLOCK) WHERE convert(varchar,B.dOperFech,103)= @pFecha AND B.cOperTipo IN (20,21) AND B.cestado IN (1,2) AND (Select count(*) FROM CuentaCte WHERE cTipoDoc=B.cDocTipo AND cSerieDoc=B.cDocSerie AND cNroDoc=B.cDocCodigo)=0 ORDER BY B.cCajaCodi, B.cOpercode OPEN CURMOVNTA FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @cOperCode, @dOperFecha, @cUserDesc, @cAlmaCode, @nTotal, @nTarjNumb, @Moneda, @vClieCode, @vNomClie, @iTipoCliente, @cDocCodigo, @cDocSerie, @cDocTipo WHILE @@FETCH_STATUS = 0 BEGIN --VENTAS IF ISNULL(@nTarjNumb,'') = '' Set @cCodctaCte = '' SELECT @cCodctaCte = MAX(convert(numeric,cCodctaCte)) FROM CUENTACTE SELECT @cCodctaCte = RIGHT('0000000000' + CONVERT(VARCHAR,CONVERT(NUMERIC,ISNULL(@cCodctaCte,'0')) + 1),10) IF @cDocTipo='11' SET @cTipTra='13' ELSE SET @cTipTra='06' --IGV ---------- SELECT @nPorcIGV=nmonto1 from Parametro where cCodParam='IGV' ----Servicio--------- SELECT @nImporServ= sum(Case When nServicio=0 then 0 else (((nProdCant * nProdPrecUnit) + (nProdCant * nProdPrecUnit * nDscto/100) ) / (1 + (@nPorcIGV/100) + (nServicio/100)) * (nServicio/100) )end ) FROM OperacionParalelaProducto (NOLOCK) WHERE cCajaCodi = @cCajaCodi AND cOpercode = @cOpercode ----Impor IGV----- SET @nImporIGV = (isnull(@nTotal,0) - isnull(@nImporServ,0))/(1 + (@nPorcIGV/100) ) * ( @nPorcIGV/100) ---Sub total--------- SET @nSubtotal= (isnull(@nTotal,0) - isnull(@nImporIGV,0) - isnull(@nImporServ,0)) IF isnull(@cDocCodigo,'')='' begin SET @cDocCodigo= RIGHT( '0000000' + CONVERT(VARCHAR,ISNULL(@cOperCode,'0')), 7 ) END IF isnull(@cDocTipo,'')='' begin SET @cDocTipo= '10' END INSERT INTO CUENTACTE( cCodctaCte, dtFechaOper, dtFechaReg, cIdTipTra, cCodCaja, vClieCod, vNomClie, cCodMone, nPorcIGV, nSubtotal, nImporServ, nImporIGV, nImpoTotal, iTipoCliente, bSwAnulado, cTipoDoc,cSerieDoc, cNroDoc,cAlmaCode) VALUES( @cCodctaCte, @dOperFecha, @tFecha, @cTipTra, @cCajaCodi, @vClieCode, @vNomClie, @Moneda, @nPorcIGV, @nSubtotal, isnull(@nImporServ,0),@nimporIGV, @nTotal, @iTipoCliente, '0' , @cDocTipo ,@cDocSerie, @cDocCodigo,@cAlmaCode) IF @@ERROR <> 0 BEGIN SET @errorsave= 1 END --DETALLES SELECT @iItm = 0 DECLARE CURMOVNTADET CURSOR FOR SELECT O.cProdCode, O.nProdCant, O.nProdPrecUnit, A.vDscArtic, A.vDscArtCt, A.cUndSalida, O.nDscto, o.nServicio, O.cSupervisor FROM OperacionParalela P (NOLOCK) INNER JOIN OperacionParalelaProducto O (NOLOCK) ON P.cOpercode = O.cOperCode AND P.cCajaCodi = O.cCajaCodi LEFT JOIN Articulo A (NOLOCK) ON O.cProdCode = A.cCodArtic WHERE convert(varchar,P.dOperFech,103) = @pFecha AND P.cOperTipo IN (20,21) AND P.cestado in (1,2) AND O.cCajaCodi = @cCajaCodi AND O.cOperCode = @cOperCode OPEN CURMOVNTADET FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant, @nProdPrec, @vDscArtic, @vDscArtCt, @cUndSalida, @nDscto, @nPorcServ,@cSupervisor WHILE @@FETCH_STATUS = 0 BEGIN SELECT @iItm = @iItm + 1 --Hallando costo de articulo SET @nPrecioOrig= @nProdPrec SET @nProdPrec=@nProdPrec + ( @nDscto/100 * @nProdPrec) SELECT @nCostoArt= nCostoArt FROM Articuloalmacen (NOLOCK) WHERE cCodartic= @cProdCode INSERT INTO CUENTACTED( cCodctaCte, NumItemCta, cCodartic, cProdcode, sProdDesc, sProdDscCrta, nPrecioOrig, nCostoArt, nQtdVendida, nPreciounit, nPorcDscto, nPorcServ,cSupervisor) VALUES( @cCodctaCte, @iItm, @cProdCode, @cProdCode, @vDscArtic, @vDscArtCt, @nPrecioOrig, isnull(@nCostoArt, 0), @nProdCant, @nProdPrec, @nDscto, isnull(@nPorcServ,0) ,@cSupervisor) IF @@ERROR <> 0 BEGIN SET @errorsave= 1 END FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant, @nProdPrec, @vDscArtic, @vDscArtCt, @cUndSalida, @nDscto, @nPorcServ,@cSupervisor END CLOSE CURMOVNTADET DEALLOCATE CURMOVNTADET FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @cOperCode, @dOperFecha, @cUserDesc, @cAlmaCode, @nTotal, @nTarjNumb, @Moneda, @vClieCode, @vNomClie, @iTipoCliente, @cDocCodigo, @cDocSerie, @cDocTipo END CLOSE CURMOVNTA DEALLOCATE CURMOVNTA -------------------------------- --REGISTRA MOVIMIENTOS DE ALMACEN ----------------------------------- IF @errorsave= 0 BEGIN exec usp_new_registraMovAlmacen @errorsave OUTPUT END IF @errorsave = 0 BEGIN COMMIT TRAN END ELSE BEGIN ROLLBACK TRAN PRINT 'ERROR AL SINCRONIZAR OPERACIONES' END END GO /****** Object: StoredProcedure [dbo].[OSCMOYMOVIVNTA_OLD] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[OSCMOYMOVIVNTA_OLD] AS BEGIN ------------------------------------ DECLARE @cCodMovAl CHAR(10), @cCodctaCte CHAR(10), @cCajaCodi CHAR(10), @cOperCode NUMERIC, @dOperFecha DATETIME, @cUserDesc CHAR(10), @cAlmaCode CHAR(2), @nTotal DECIMAL(18,2), @nTarjNumb CHAR(8), @Moneda CHAR(1), @vClieCode VARCHAR(15), @vNomClie VARCHAR(70), @cProdCode CHAR(6), @nProdCant NUMERIC(18), @nProdPrec NUMERIC(18,2), @iItm NUMERIC(18), @vDscArtic VARCHAR(100), @vDscArtCt VARCHAR(25), @cUndSalida CHAR(3), @cTurnoCodi CHAR(2), @tFecha DATETIME, @nCostoArt NUMERIC(18,2), @nImporIGV NUMERIC(18,2), @nImporServ NUMERIC(18,2), @nPorcServ NUMERIC(18,2), @iTipoCliente INTEGER --------------------------------------------------- Declare @nPorcIGV NUMERIC(18,2), @nDscto NUMERIC(18,2), @nSubtotal NUMERIC(18,2), @cTipTra char(2), @cDocCodigo varchar(10) , @cDocSerie varchar(4), @cDocTipo char(2), @cRuc char(11) --IGV ---------- SELECT @nPorcIGV=nmonto1 from Parametro where cCodParam='IGV' SELECT @tFecha = convert(datetime, convert(varchar,GETDATE(),102),102) DECLARE CURMOVNTA CURSOR FOR SELECT cCajaCodi, cOpercode, MAX(dOperFech), MAX(cUserDesc), MAX(cAlmaCode), SUM(nProdCant * nProdPrecUnit ), Sum(nProdCant * (nProdPrecUnit/ (1+ ((@nPorcIGV + nServicio)/100))) * (nServicio/100) ), MAX(nTarjNumb), 'N', MAX(cCodiClie), MAX(vDescClie), cDocCodigo, cDocSerie, max(cDocTipo), max(cRuc), max(iTipoCliente) FROM Operacion O WHERE cFlagSincronizacion = '0' AND cOperTipo in (1,2,3) AND cOperFlagAnula = 0 AND (Select count(*) FROM CuentaCte WHERE cTipoDoc=O.cDocTipo AND cSerieDoc=O.cDocSerie AND cNroDoc=O.cDocCodigo)=0 GROUP BY cCajaCodi, cOpercode, cDocSerie,cdoccodigo ORDER BY cCajaCodi, cOpercode, cDocSerie,cdoccodigo OPEN CURMOVNTA FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @cOperCode, @dOperFecha, @cUserDesc, @cAlmaCode, @nTotal, @nImporServ, @nTarjNumb, @Moneda, @vClieCode, @vNomClie, @cDocCodigo, @cDocSerie, @cDocTipo, @cRuc, @iTipoCliente WHILE @@FETCH_STATUS = 0 BEGIN --VENTAS IF ISNULL(@nTarjNumb,'') = '' Set @cCodctaCte = '' SELECT @cCodctaCte = MAX(cCodctaCte) FROM CUENTACTE SELECT @cCodctaCte = RIGHT('0000000000' + CONVERT(VARCHAR,CONVERT(NUMERIC,ISNULL(@cCodctaCte,'0')) + 1),10) ----Impor IGV----- SET @nImporIGV = (isnull(@nTotal,0) - isnull( @nImporServ,0)) * @nPorcIGV / (100 + @nPorcIGV) ---Sub total--------- SET @nSubtotal= isnull(@nTotal,0) - isnull(@nImporIGV,0) - isnull( @nImporServ,0) SET @cTipTra='06' IF isnull(@cDocCodigo,'')='' begin set @cDocCodigo= RIGHT( '0000000' + CONVERT(VARCHAR,ISNULL(@cOperCode,'0')), 7 ) end IF isnull(@cDocTipo,'')='' begin set @cDocTipo= '02' end INSERT INTO CUENTACTE( cCodctaCte, dtFechaOper, dtFechaReg, cIdTipTra, cCodCaja, vClieCod, vNomClie, cCodMone, nPorcIGV, nImporIGV, nSubtotal,nImpoTotal, nImporServ, bSwAnulado, cTipoDoc, cSerieDoc, cNroDoc, cRucClie, iTipoCliente) VALUES(@cCodctaCte, @dOperFecha, @tFecha, @cTipTra, @cCajaCodi, @vClieCode, @vNomClie, @Moneda, @nPorcIGV, @nImporIGV , @nSubtotal, @nTotal, isnull(@nImporServ,0), 0, @cDocTipo , @cDocSerie,@cDocCodigo,@cRuc, @iTipoCliente ) --DETALLES Set @iItm = 0 DECLARE CURMOVNTADET CURSOR FOR SELECT O.cProdCode, O.nProdCant, O.nProdPrecUnit, A.vDscArtic,o.nServicio, A.vDscArtCt, A.cUndSalida FROM Operacion O LEFT JOIN Articulo A ON O.cProdCode = A.cCodArtic WHERE cFlagSincronizacion = '0' AND cOperTipo in (1,2,3) AND cOperFlagAnula = 0 AND O.cCajaCodi = @cCajaCodi AND O.cOperCode = @cOperCode OPEN CURMOVNTADET FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant, @nProdPrec, @vDscArtic,@nPorcServ, @vDscArtCt, @cUndSalida WHILE @@FETCH_STATUS = 0 BEGIN SELECT @iItm = @iItm + 1 --Hallando costo de articulo Select @nCostoArt= nCostoArt from Articuloalmacen Where cCodartic= @cProdCode INSERT INTO CUENTACTED( cCodctaCte, NumItemCta, cCodartic, cProdcode, sProdDesc, sProdDscCrta, nPrecioOrig, nCostoArt, nQtdVendida, nPreciounit, nPorcServ) VALUES(@cCodctaCte, @iItm, @cProdCode, @cProdCode, @vDscArtic, @vDscArtCt, 0, isnull(@nCostoArt,0), @nProdCant, @nProdPrec, isnull(@nPorcServ,0)) FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant, @nProdPrec, @vDscArtic,@nPorcServ, @vDscArtCt, @cUndSalida END CLOSE CURMOVNTADET DEALLOCATE CURMOVNTADET FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @cOperCode, @dOperFecha, @cUserDesc, @cAlmaCode, @nTotal, @nImporServ, @nTarjNumb, @Moneda, @vClieCode, @vNomClie, @cDocCodigo, @cDocSerie, @cDocTipo, @cRuc, @iTipoCliente END CLOSE CURMOVNTA DEALLOCATE CURMOVNTA ---- Cambia Flag de sincronizacion operaciones ----- UPDATE Operacion SET cFlagSincronizacion = '1' WHERE cFlagSincronizacion = '0' AND cOperTipo in (1,2,3) AND cOperFlagAnula = 0 ---------------------- --operacion paralela-- ---------------------- DECLARE CURMOVNTA CURSOR FOR SELECT B.cCajaCodi, B.cOpercode, B.dOperFech, B.cUserDesc, cAlmaCode = (select max(A.cAlmaCode) from OperacionParalelaProducto A where A.cCajaCodi = B.cCajaCodi AND A.cOpercode = B.cOpercode), B.nMontoSoles, B.nTarjNumb, 'N', B.cCodiClie, B.vDescClie, B.iTipoCliente, B.cDocCodigo, B.cDocSerie, B.cDocTipo FROM OperacionParalela B WHERE B.cFlagSincronizacion = '0' AND B.cOperTipo IN (20) AND B.cestado IN (1,2) AND (Select count(*) FROM CuentaCte WHERE cTipoDoc=B.cDocTipo AND cSerieDoc=B.cDocSerie AND cNroDoc=B.cDocCodigo)=0 ORDER BY B.cCajaCodi, B.cOpercode OPEN CURMOVNTA FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @cOperCode, @dOperFecha, @cUserDesc, @cAlmaCode, @nTotal, @nTarjNumb, @Moneda, @vClieCode, @vNomClie, @iTipoCliente, @cDocCodigo, @cDocSerie, @cDocTipo WHILE @@FETCH_STATUS = 0 BEGIN --VENTAS IF ISNULL(@nTarjNumb,'') = '' Set @cCodctaCte = '' SELECT @cCodctaCte = MAX(cCodctaCte) FROM CUENTACTE SELECT @cCodctaCte = RIGHT('0000000000' + CONVERT(VARCHAR,CONVERT(NUMERIC,ISNULL(@cCodctaCte,'0')) + 1),10) SET @cTipTra='06' --IGV ---------- SELECT @nPorcIGV=nmonto1 from Parametro where cCodParam='IGV' ----Servicio--------- SELECT @nImporServ= sum(Case When nServicio=0 then 0 else nProdCant / (1 + @nPorcIGV + (nServicio/100)) * nProdCant * (1- (nDscto/100) )end ) FROM OperacionParalelaProducto WHERE cCajaCodi = @cCajaCodi AND cOpercode = @cOpercode ----Impor IGV----- SET @nImporIGV = (isnull(@nTotal,0) - isnull(@nImporServ,0)) * (@nPorcIGV/(@nPorcIGV + 100) ) ---Sub total--------- SET @nSubtotal= (isnull(@nTotal,0) - isnull(@nImporIGV,0) - isnull(@nImporServ,0)) IF isnull(@cDocCodigo,'')='' begin SET @cDocCodigo= RIGHT( '0000000' + CONVERT(VARCHAR,ISNULL(@cOperCode,'0')), 7 ) END IF isnull(@cDocTipo,'')='' begin SET @cDocTipo= '10' END INSERT INTO CUENTACTE( cCodctaCte, dtFechaOper, dtFechaReg, cIdTipTra, cCodCaja, vClieCod, vNomClie, cCodMone, nPorcIGV, nSubtotal, nImporServ, nImporIGV, nImpoTotal, iTipoCliente, bSwAnulado, cTipoDoc,cSerieDoc, cNroDoc) VALUES( @cCodctaCte, @dOperFecha, @tFecha, @cTipTra, @cCajaCodi, @vClieCode, @vNomClie, @Moneda, @nPorcIGV, @nSubtotal, isnull(@nImporServ,0),@nimporIGV, @nTotal, @iTipoCliente, '0' , @cDocTipo ,@cDocSerie, @cDocCodigo) --DETALLES SELECT @iItm = 0 DECLARE CURMOVNTADET CURSOR FOR SELECT O.cProdCode, O.nProdCant, O.nProdPrecUnit, A.vDscArtic, A.vDscArtCt, A.cUndSalida, O.nDscto FROM (OperacionParalela P INNER JOIN OperacionParalelaProducto O ON P.cOpercode = O.cOperCode AND P.cCajaCodi = O.cCajaCodi) LEFT JOIN Articulo A ON O.cProdCode = A.cCodArtic WHERE P.cFlagSincronizacion = '0' AND P.cOperTipo IN (20) AND P.cestado in (1,2) AND O.cCajaCodi = @cCajaCodi AND O.cOperCode = @cOperCode OPEN CURMOVNTADET FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant, @nProdPrec, @vDscArtic, @vDscArtCt, @cUndSalida, @nDscto WHILE @@FETCH_STATUS = 0 BEGIN SELECT @iItm = @iItm + 1 --Hallando costo de articulo Set @nProdPrec=(1 - (@nDscto/100) ) * @nProdPrec Select @nCostoArt= nCostoArt from Articuloalmacen Where cCodartic= @cProdCode INSERT INTO CUENTACTED( cCodctaCte, NumItemCta, cCodartic, cProdcode, sProdDesc, sProdDscCrta, nPrecioOrig, nCostoArt, nQtdVendida, nPreciounit) VALUES( @cCodctaCte, @iItm, @cProdCode, @cProdCode, @vDscArtic, @vDscArtCt, 0, isnull(@nCostoArt, 0), @nProdCant, @nProdPrec) FETCH NEXT FROM CURMOVNTADET INTO @cProdCode, @nProdCant, @nProdPrec, @vDscArtic, @vDscArtCt, @cUndSalida, @nDscto END CLOSE CURMOVNTADET DEALLOCATE CURMOVNTADET FETCH NEXT FROM CURMOVNTA INTO @cCajaCodi, @cOperCode, @dOperFecha, @cUserDesc, @cAlmaCode, @nTotal, @nTarjNumb, @Moneda, @vClieCode, @vNomClie, @iTipoCliente, @cDocCodigo, @cDocSerie, @cDocTipo END CLOSE CURMOVNTA DEALLOCATE CURMOVNTA ---- Cambia Flag de sincronizacion operaciones paralelas ----- UPDATE OperacionParalela SET cFlagSincronizacion = '1' WHERE cFlagSincronizacion = '0' AND cOperTipo IN (20) AND cestado IN (1,2) -------------------------------- --REGISTRA MOVIMIENTOS DE ALMACEN ----------------------------------- exec usp_new_registraMovAlmacen END GO /****** Object: StoredProcedure [dbo].[OSCMantArticulo] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO --------------------------------------------------------------------------------------------------------------------------------------------------------- --------------------------------------------------------------------------------------------------------------------------------------------------------- /* * Modificado : 07/07/2010 * Nota : Se add el parametro < @i_cod_sp_validacion >, para validaciones de Canje. */ CREATE PROCEDURE [dbo].[OSCMantArticulo] @iAccion INT = 0, @cCodArtic CHAR(6) = '', @vDscArtic VARCHAR(150)= '', @cCodLinea CHAR(6) = '', @vCodSubLn VARCHAR(30) = '', @bSwActivo BIT = 0, @bSwInvent BIT = 0, @bSwEnsamb BIT = 0, @bSwCnjb BIT = 0, @bSwCtrlStck BIT = 0, @vMedidArt VARCHAR(30)= '', @cIdtmarca CHAR(4)= '', @vModelArt VARCHAR(80)= '', @vSerieArt VARCHAR(80)= '', @cCodCatal VARCHAR(50)= '', @vNroParte VARCHAR(50)= '', @vUbicaFis VARCHAR(80)= '', @cCodProve VARCHAR(15)= '', @vObseAdic VARCHAR(200)= '', @cUndSalida CHAR(3) = '', @cUndCompr CHAR(3) = '', @cFlagCanje CHAR(1) = '0', @nFlagServ BIT = NULL, @nPtosxItem VARCHAR(18) = '0.00', @vDscArtCt VARCHAR(50) = '', @bFlagDesc BIT = 0, @bFlagVenta BIT = 0, @bFlagAlqui BIT = 0, @cIdTipItm CHAR(2)='', @nLugarDespacho INT = 0, @i_cod_sp_validacion INT = null, --sw Add 07/07/2010 @bFlagDetracc BIT = 0, @cCuentaContableCmp CHAR(8)='', @cCuentaContableVta CHAR(8)='', @vCodigoBarras VARCHAR(30)='', @cCodNewArt CHAR(6) = '' OUTPUT AS BEGIN --sw if @i_cod_sp_validacion = -1 begin set @i_cod_sp_validacion = null end --sw IF @iAccion = 0 BEGIN SELECT @cCodNewArt = RIGHT('000000' + CONVERT(VARCHAR, CONVERT(NUMERIC,ISNULL(MAX(cCodArtic),'0')) + 1),6) FROM Articulo INSERT INTO Articulo (cCodArtic, vDscartic, cCodLinea, vCodSubLn, bSwActivo, bSwInvent, bSwEnsamb, vMedidArt, cIdtmarca, vModelArt, vSerieArt, cCodCatal, vNroParte, vUbicaFis, cCodProve, vObseAdic, cUndSalida, cUndCompr, dtFechaAs, cCodRespo, dFechCrea,dFechModi, cFlagCanje, nFlagServ, nPtosxItem, vDscArtCt, bSwCnjb, bSwCtrlStck, bFlagDesc, bFlagVenta, cIdTipItm, bFlagAlqui, nLugarDespacho, i_cod_sp_validacion,bFlagDetracc,cCuentaContableCmp,cCuentaContableVta,vCodigoBarras ) VALUES (@cCodNewArt, @vDscartic, @cCodLinea, @vCodSubLn, @bSwActivo, @bSwInvent, @bSwEnsamb, @vMedidArt, @cIdtmarca, @vModelArt, @vSerieArt, @cCodCatal, @vNroParte, @vUbicaFis, @cCodProve, @vObseAdic, @cUndSalida, @cUndCompr, GETDATE(), USER, GETDATE(),GETDATE(), @cFlagCanje, @nFlagServ, @nPtosxItem, @vDscArtCt, @bSwCnjb, @bSwCtrlStck, @bFlagDesc,@bFlagVenta,@cIdTipItm, @bFlagAlqui, isnull(@nLugarDespacho,0), @i_cod_sp_validacion,@bFlagDetracc,@cCuentaContableCmp,@cCuentaContableVta,@vCodigoBarras) UPDATE Articulo SET nLugardespacho=0 where nLugardespacho is null END IF @iAccion = 1 BEGIN UPDATE Articulo SET vDscartic = @vDscartic, cCodLinea = @cCodLinea, vCodSubLn = @vCodSubLn, bSwActivo = @bSwActivo, bSwInvent = @bSwInvent, bSwEnsamb = @bSwEnsamb, vMedidArt = @vMedidArt, cIdtmarca = @cIdtmarca, vModelArt = @vModelArt, vSerieArt = @vSerieArt, cCodCatal = @cCodCatal, vNroParte = @vNroParte, vUbicaFis = @vUbicaFis, cCodProve = @cCodProve, vObseAdic = @vObseAdic, cUndSalida = @cUndSalida, cUndCompr = @cUndCompr, dtFechaAs = GETDATE(), cCodRespo = USER, dFechModi = GETDATE(), cFlagCanje = @cFlagCanje, nFlagServ = @nFlagServ, nPtosxItem = @nPtosxItem, vDscArtCt = @vDscArtCt, bSwCnjb = @bSwCnjb, bSwCtrlStck = @bSwCtrlStck, bFlagDesc = @bFlagDesc, bFlagVenta = @bFlagVenta, bFlagAlqui = @bFlagAlqui, cIdTipItm = @cIdTipItm, nLugarDespacho = isnull(@nLugarDespacho,0), i_cod_sp_validacion = @i_cod_sp_validacion, bFlagDetracc =@bFlagDetracc, cCuentaContableCmp=@cCuentaContableCmp, cCuentaContableVta=@cCuentaContableVta, vCodigoBarras=@vCodigoBarras WHERE cCodArtic = @cCodArtic END IF @iAccion = 2 BEGIN Declare @ocur int set @ocur=0 Select @ocur= count(*) from MovalmacenD Where cCodidart=@cCodArtic if @ocur > 0 begin RAISERROR('Imposible Eliminar Articulo - Se han realizado movimientos de almacén ',16,-1) end else begin Select @ocur= count(*) from OrdenCompraD where cCodidart=@cCodArtic if @ocur > 0 begin RAISERROR('Imposible Eliminar Articulo - Se han registrado ordenes de compra ',16,-1) end else begin Select @ocur= count(*) from SolicitudInternaD where cCodidart=@cCodArtic if @ocur > 0 begin RAISERROR('Imposible Eliminar Articulo - Se han registrado Solciitudes Interna ',16,-1) end end end DELETE FROM ArticuloPrecioVenta WHERE cCodArtic = @cCodArtic DELETE FROM ArticuloAlmacen WHERE cCodArtic = @cCodArtic DELETE FROM ArticuloEnsamblado WHERE cCodArtic = @cCodArtic DELETE FROM Articulo WHERE cCodArtic = @cCodArtic END END GO /****** Object: Table [dbo].[Articulo_Costo_Promedio] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Articulo_Costo_Promedio]( [cSecuencia] [int] NOT NULL, [nNmtItmMv] [numeric](18, 0) NOT NULL, [cCodMovAl] [char](10) NOT NULL, [nTipMov] [tinyint] NOT NULL, [cCodArtic] [char](6) NOT NULL, [cCodAlmac] [char](2) NOT NULL, [dtFechaReg] [datetime] NULL, [dtFechamov] [datetime] NULL, [nCostoArt] [numeric](18, 4) NULL, [nCostoProm] [numeric](18, 4) NULL, [Stock] [int] NULL, PRIMARY KEY CLUSTERED ( [cSecuencia] ASC, [cCodArtic] ASC, [cCodAlmac] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[Linea] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Linea]( [vDscLinea] [varchar](100) NULL, [cCodLinea] [char](6) NOT NULL, [bswultimo] [bit] NULL, [vDscCortaLinea] [varchar](30) NULL, [nlugarDespacho] [int] NULL, CONSTRAINT [PK__Linea__023D5A04] PRIMARY KEY NONCLUSTERED ( [cCodLinea] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[usp_Log_SEMAN_PRODUCTOS_Rep] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE Procedure [dbo].[usp_Log_SEMAN_PRODUCTOS_Rep] /* Lista las ventas semanales DE LOS ARTICULOS POR FAMILIA Creado por Diana Valderrama */ @fechaini datetime = '20060701', @fechafin datetime = '20060701', @Familia char(6)='*', @Usuario varchar(100) = '', @Articulo char(6) As Begin select distinct d.cCodartic as codigointernoarticulo, '' as Codigoventa, 0 as itemVenta, (Select ccodCatal from Articulo where cCodartic=d.cCodartic) as catalogoarticulo, (Select vDscartic from Articulo where cCodartic=d.cCodartic) as descripcionarticulo, (Select vDscArtCt from Articulo where cCodartic=d.cCodartic) as descripcioncortaarticulo, 0 as cantidadvendida, 0 as preciounitarioventa, 0 as costounitarioarticulo, Familia= (select l.vDscLinea from articulo c left outer join Linea l on c.cCodLinea=l.cCodLinea where c.cCodartic=d.cCodartic ), CodFamilia= (select l.cCodLinea from articulo c left outer join Linea l on c.cCodLinea=l.cCodLinea where c.cCodartic=d.cCodartic ), @fechaini as FechaINI, @fechafin as FechaFIN, Empresa=(Select vRazonSocial from Empresa where bSwactivo=1 ) , Usuario=@Usuario , Local=(Select vLocalActivo from Empresa where bSwactivo=1 ), isnull(sum(case datepart(dw,dtFechaOper) when 1 then nQtdVendida end),0) as CantidadDomingo, isnull(sum(case datepart(dw,dtFechaOper) when 1 then (nPrecioUnit * nQtdVendida) end),0) as TotalDomingo, isnull(sum(case datepart(dw,dtFechaOper) when 2 then nQtdVendida end),0) as CantidadLunes, isnull(sum(case datepart(dw,dtFechaOper) when 2 then (nPrecioUnit * nQtdVendida) end),0) as TotalLunes, isnull(sum(case datepart(dw,dtFechaOper) when 3 then nQtdVendida end),0) as CantidadMartes, isnull(sum(case datepart(dw,dtFechaOper) when 3 then (nPrecioUnit * nQtdVendida) end),0) as TotalMartes, isnull(sum(case datepart(dw,dtFechaOper) when 4 then nQtdVendida end),0) as CantidadMiercoles, isnull(sum(case datepart(dw,dtFechaOper) when 4 then (nPrecioUnit * nQtdVendida) end),0) as TotalMiercoles, isnull(sum(case datepart(dw,dtFechaOper) when 5 then nQtdVendida end),0) as CantidadJueves, isnull(sum(case datepart(dw,dtFechaOper) when 5 then (nPrecioUnit * nQtdVendida) end),0) as TotalJueves, isnull(sum(case datepart(dw,dtFechaOper) when 6 then nQtdVendida end),0) as CantidadViernes, isnull(sum(case datepart(dw,dtFechaOper) when 6 then (nPrecioUnit * nQtdVendida) end),0) as TotalViernes, isnull(sum(case datepart(dw,dtFechaOper) when 7 then nQtdVendida end),0) as CantidadSabado, isnull(sum(case datepart(dw,dtFechaOper) when 7 then (nPrecioUnit * nQtdVendida) end),0) as TotalSabado, CantTotal= isnull(Sum (nQtdVendida),0), Totaltotal=isnull(Sum((nPrecioUnit * nQtdVendida)),0) from cuentacted d left outer join cuentacte c on d.cCodctacte = c.cCodctacte Where (c.cIdTipTra='06' or c.cIdTipTra='10' or c.cIdTipTra='13') and c.bswAnulado=0 and ((select l.cCodLinea from articulo c left outer join Linea l on c.cCodLinea=l.cCodLinea where c.cCodartic=d.cCodartic )=@Familia or @Familia='*') AND convert(datetime, convert(varchar,C.dtFechaoper,102),102) between @fechaini and @fechafin Group by d.cCodartic having (d.cCodartic=@Articulo or @Articulo='*') End GO /****** Object: StoredProcedure [dbo].[usp_Log_kardex] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE Procedure [dbo].[usp_Log_kardex] /* KARDEX Creado por Diana Valderrama */ @fechaini datetime='20060101', @fechafin datetime='20061201', @Familia char(6)='*', @articulo char(6) ='*', @ensamblado int = 3, @clienteprove char(15)= '*', @usuario char(6) = '*', @Almacen char(2) = '*', @nTipMov int = 3, @cIdTipTra char(2)='*' As Begin Select m.nTipMov as TipoMovimiento,m.cCodProve, m.cCodAlmac as CodAlmacen, (Select vDscAlmac from Almacen where CCodAlmac= m.CCodAlmac ) as Almacen, convert(datetime,m.dtFechMov,102) as FechaMovimiento, m.cCodUsrRg as CodUsuario, (Select isnull(Apellido_Paterno, '') + ' ' + isnull(Apellido_Materno, '') + ' ' + isnull(Nombres, '') from usuario where Personal_Id=m.cCodUsrRg ) as usuario, m.cIdTipTra as CodTipoTransaccion, (Select cDscTrans from TipoTransaccion where cIdTipTra=m.cIdTipTra) as TipoTransaccion, m.cIdTipDoc as CodTipoDocumento, (Select cAbrevDoc from TipoDocumento where cIdTipDoc=m.cIdTipDoc )as TipoDocumento , CASE WHEN LEN(m.cSerieDocRef) > 0 THEN (m.cSerieDocRef + '-' + m.cDocRefer) ELSE (m.cSerieDocRef + m.cDocRefer )END as NroDocumento, case when (select cproveedor_nombre from _Proveedor where cproveedor_id=rtrim(lTrim(m.cCodProve))) is null then m.vContProv else (select cproveedor_nombre from _Proveedor where cproveedor_id=rtrim(lTrim(m.cCodProve))) end as Cliente_Prov, d.cCodidart as CodigoArticulo, d.cUndmedid as CodUnidadMedida, (Select vDscCrta from UnidadMedida where cUndmedid=d.cUndmedid )as UnidadMedida, a.vDscartic as DescripcionArticulo, a.cCodCatal as CodigoArticuloCatalogo, a.CCodLinea as CodigoLinea, l.vDscLinea as Linea, a.bSwEnsamb as Ensamblado, isnull((Select sum(isnull(nQtdEquiv,0)) from MovAlmacenD where nTipMov=1 and cCodidart=d.cCodidart and cCodMovAl in (Select cCodMovAL from MovAlmacen where dtFechMov < @Fechaini and nTipMov=1)),0) - isnull((Select sum(isnull(nQtdEquiv,0)) from MovAlmacenD where nTipMov=2 and cCodidart=d.cCodidart and cCodMovAl in (Select cCodMovAL from MovAlmacen where dtFechMov < @Fechaini and nTipMov=2)),0) as InventarioInicial, (case when d.nTipMov=1 then d.nQtdEquiv else null end)as Ingreso, (case when d.nTipMov=2 then d.nQtdEquiv else null end)as Salida, @fechaini as Fechaini, @fechafin as Fechafin, case @Familia when '*' then 'Todas' else @Familia end as pFamilia, case @articulo when '*' then 'Todos' else @articulo end as pArticulo, case @ensamblado when 3 then 'Todos' when 0 then 'Estandar' when 1 then 'Ensamblado' end as pEnsamblado, case @clienteprove when '*' then 'Todos' else @clienteprove end as pClienteProve, case @usuario when '*' then 'Todos' else @usuario end as pUsuario, case @Almacen when '*' then 'Todos' else @Almacen end as pAlmacen, case @nTipMov when 3 then 'Todos' when 1 then 'Ingreso' when 2 then 'Salida' end as pTipMov, case @cIdTipTra when '*' then 'Todos' else @cIdTipTra end as pTipTrans from MovAlmacenD d left outer join Movalmacen m on d.cCodMoval=m.cCodMovAl and d.nTipMov=m.nTipMov left outer join articulo a on d.cCodidart=a.ccodartic left outer join Linea l on a.cCodlinea=l.cCodLinea WHERE convert(datetime,(convert(varchar,m.dtFechMov,102)),102) between @fechaini and @fechafin and (l.cCodLinea= @Familia or @Familia='*') and (d.ccodidart= @articulo or @articulo='*') and (a.bSwEnsamb= @ensamblado or @ensamblado=3) and (m.cCodUsrRg=@usuario or @usuario='*' ) and (m.cCodAlmac=@Almacen or @Almacen='*') and (m.bswAnulado=0) and (m.cCodProve =rtrim(ltrim(@clienteprove)) or (@clienteprove='*')) and ((d.nTipMov = @nTipMov) or @nTipMov=3 ) and ((m.cIdTipTra = @cIdTipTra) or @cIdTipTra ='*' ) order by d.ccodidart,m.dtFechMov, d.nTipMov END GO /****** Object: StoredProcedure [dbo].[usp_Log_ArticulosFamilia_Rep_PRUEBA] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE Procedure [dbo].[usp_Log_ArticulosFamilia_Rep_PRUEBA] /* Lista Los TOTALES DE LOS ARTICULOS POR FAMILIA Repórte TOTALES DE LOS ARTICULOS Creado por Diana Valderrama */ @fechaini datetime = '20060930', @fechafin datetime = '20061002', @Familia char(6)='*', @Usuario varchar(100) = '', @Articulo char(6) ='*', @Caja char(2) = '*', @Ensamblado int =3 As --set nocount on --Actualiza el valor de PrecioOrig al valor unitario en soles de la venta /*----------------------------------------------------------------- update CuentaCted set nPrecioOrig= (Select Case when (Select ccodMone from cuentaCte where cCodCtaCte=CuentaCted.cCodCtacte)= 'N' then nPrecioUnit else nPrecioUnit * (select nt_compr from tt_cambio where d_f= (Select convert(datetime,dtFechaoper,102) from cuentaCte where cCodCtaCte=CuentaCted.cCodCtacte)) end ) set nocount off */ Begin /* SELECT a.*, u.VdscCrta as UndMed,a.vDscartic as articulo,a.cCodcatal, ArticuloUndMed= (Select u.vDscCrta from articulo k Left outer join UnidadMedida u ON a.cUndSalida=cUndMedid where k.ccodArtic=a.cCodartic), Familia= (select l.vDscLinea from articulo c left outer join Linea l on c.cCodLinea=l.cCodLinea where c.cCodartic=a.cCodartic ), CodFamilia= (select l.cCodLinea from articulo c left outer join Linea l on c.cCodLinea=l.cCodLinea where c.cCodartic=a.cCodartic ), Empresa=(Select vRazonSocial from Empresa where bSwactivo=1 ) , Usuario=@Usuario , Local=(Select vLocalActivo from Empresa where bSwactivo=1 ), Cantidad= (Select isnull(sum(nQtdVendida),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where (cIdTipTra='06' or cIdTipTra='10') and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin ) ) , CostoUnit= isnull((Select isnull(d.nCostoart,0) from MovAlmacend d where d.cCodidart= a.cCodartic and d.ntipMov=1 and d.cCodMovAl =(Select max(cCodMoval) from MovAlmacen Where ntipMov=1 and convert(datetime, convert(varchar,dtFechMov,102),102) <= convert(datetime, convert(varchar,@fechafin,102),102) and cCodMovAl in (Select cCodMovAl from MovAlmacenD where cCodidart= a.cCodartic and nTipMov=1 ))),0), TotalVenta=(Select isnull(sum(nQtdVendida * nPreciounit ),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where (cIdTipTra='06' or cIdTipTra='10') and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin ) ) , Utilidad = (Select isnull(sum(nQtdVendida * nPreciounit ),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where (cIdTipTra='06' or cIdTipTra='10') and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin ) ) - ((Select isnull(sum(nQtdVendida),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where (cIdTipTra='06' or cIdTipTra='10') and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin ) ) * isnull((Select isnull(d.nCostoart,0) from MovAlmacend d where d.cCodidart= a.cCodartic and d.ntipMov=1 and d.cCodMovAl =(Select max(cCodMoval) from MovAlmacen Where ntipMov=1 and convert(datetime, convert(varchar,dtFechMov,102),102) <= convert(datetime, convert(varchar,@fechafin,102),102) and cCodMovAl in (Select cCodMovAl from MovAlmacenD where cCodidart= a.cCodartic and nTipMov=1 ))),0)), */ /* utilidad= (Select isnull(sum(nQtdVendida * nPreciounit ),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where (cIdTipTra='06' or cIdTipTra='10') and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin ) ) - (Select isnull(sum(nCostoArt),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where (cIdTipTra='06' or cIdTipTra='10') and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin ) ) / case when (Select isnull(sum(nQtdVendida),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where (cIdTipTra='06' or cIdTipTra='10') and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin ) )=0 then 1 else (Select isnull(sum(nQtdVendida),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where (cIdTipTra='06' or cIdTipTra='10') and dtFechareg between @fechaini and @fechafin ) )end , */ SELECT a.*, u.VdscCrta as UndMed,a.vDscartic as articulo,a.cCodcatal, ArticuloUndMed= (Select u.vDscCrta from articulo k Left outer join UnidadMedida u ON a.cUndSalida=cUndMedid where k.ccodArtic=a.cCodartic), Familia= (select l.vDscLinea from articulo c left outer join Linea l on c.cCodLinea=l.cCodLinea where c.cCodartic=a.cCodartic ), CodFamilia= (select l.cCodLinea from articulo c left outer join Linea l on c.cCodLinea=l.cCodLinea where c.cCodartic=a.cCodartic ), Empresa=(Select vRazonSocial from Empresa where bSwactivo=1 ) , Usuario=@Usuario , Local=(Select vLocalActivo from Empresa where bSwactivo=1 ), Cantidad= (Select isnull(sum(nQtdVendida),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where (cIdTipTra='06' or cIdTipTra='10') and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin ) ) , CostoUnit= isnull((Select top 1 isnull((d.nCostoart),0) from MovAlmacend d where d.cCodidart= a.cCodartic and d.ntipMov=1 and d.cCodMovAl =(Select max(cCodMoval) from MovAlmacen Where ntipMov=1 and convert(datetime, convert(varchar,dtFechMov,102),102) <= convert(datetime, convert(varchar,@fechafin,102),102) and cCodMovAl in (Select cCodMovAl from MovAlmacenD where cCodidart= a.cCodartic and nTipMov=1 ))),0), @fechaini as FechaINI, @fechafin as FechaFIN FROM ARTICULO a left outer join unidadmedida u ON a.cUndSalida= u.cUndMedid where ((select l.cCodLinea from articulo c left outer join Linea l on c.cCodLinea=l.cCodLinea where c.cCodartic=a.cCodartic )=@Familia or @Familia='*')and (Select isnull(sum(nQtdVendida),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where (cIdTipTra='06' or cIdTipTra='10') and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin and (right(rtrim(ltrim(cCodCaja)),2) =@Caja or @Caja='*') ) ) > 0 AND (a.cCodartic = @Articulo or @Articulo='*') AND (bSwEnsamb=@Ensamblado or @Ensamblado=3 ) -- order by ccodartic, familia, a.cCodcatal /*CostoUnit=(Select isnull(sum(nCostoArt),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where cIdTipTra='06' and dtFechareg between @fechaini and @fechafin ) ) / case when (Select isnull(sum(nQtdVendida),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where cIdTipTra='06' and dtFechareg between @fechaini and @fechafin ) )=0 then 1 else (Select isnull(sum(nQtdVendida),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where cIdTipTra='06' and dtFechareg between @fechaini and @fechafin ) )end , */ End GO /****** Object: StoredProcedure [dbo].[usp_Log_ArticulosFamilia_Rep] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE Procedure [dbo].[usp_Log_ArticulosFamilia_Rep] /* Lista Los TOTALES DE LOS ARTICULOS POR FAMILIA Repórte TOTALES DE LOS ARTICULOS Creado por Diana Valderrama */ @fechaini datetime = '20070303', @fechafin datetime = '20070330', @Familia char(6)='*', @Usuario varchar(100) = '', @Articulo char(6) ='*', @Caja char(2) = '*', @Ensamblado int =3 As set nocount on Begin SELECT a.*, u.VdscCrta as UndMed,a.vDscartic as articulo,a.cCodcatal, ArticuloUndMed= (Select u.vDscCrta from articulo k Left outer join UnidadMedida u ON a.cUndSalida=cUndMedid where k.ccodArtic=a.cCodartic), Familia= (select l.vDscLinea from articulo c left outer join Linea l on c.cCodLinea=l.cCodLinea where c.cCodartic=a.cCodartic ), CodFamilia= (select l.cCodLinea from articulo c left outer join Linea l on c.cCodLinea=l.cCodLinea where c.cCodartic=a.cCodartic ), Empresa=(Select vRazonSocial from Empresa where bSwactivo=1 ) , Usuario=@Usuario , Local=(Select vLocalActivo from Empresa where bSwactivo=1 ), Cantidad= (Select isnull(sum(nQtdVendida),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where (cIdTipTra='06' or cIdTipTra='10') and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin and (right(rtrim(ltrim(cCodCaja)),2) =@Caja or @Caja='*'))), CostoUnit= isnull((Select top 1 isnull(d.nCostoart,0) from MovAlmacend d where d.cCodidart= a.cCodartic and d.ntipMov=1 and d.cCodMovAl =(Select top 1 max(cCodMoval) from MovAlmacen Where ntipMov=1 and convert(datetime, convert(varchar,dtFechMov,102),102) <= convert(datetime, convert(varchar,@fechafin,102),102) and cCodMovAl in (Select top 1 cCodMovAl from MovAlmacenD where cCodidart= a.cCodartic and nTipMov=1 ))),0), TotalVenta=(Select isnull(sum(nQtdVendida * nPreciounit ),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where (cIdTipTra='06' or cIdTipTra='10') and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin and (right(rtrim(ltrim(cCodCaja)),2) =@Caja or @Caja='*') ) ) , Utilidad = (Select isnull(sum(nQtdVendida * nPreciounit ),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where (cIdTipTra='06' or cIdTipTra='10') and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin ) ) - ((Select isnull(sum(nQtdVendida),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where (cIdTipTra='06' or cIdTipTra='10') and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin ) ) * isnull((Select top 1 isnull(d.nCostoart,0) from MovAlmacend d where d.cCodidart= a.cCodartic and d.ntipMov=1 and d.cCodMovAl =(Select top 1 max(cCodMoval) from MovAlmacen Where ntipMov=1 and convert(datetime, convert(varchar,dtFechMov,102),102) <= convert(datetime, convert(varchar,@fechafin,102),102) and cCodMovAl in (Select top 1 cCodMovAl from MovAlmacenD where cCodidart= a.cCodartic and nTipMov=1 ))),0)), /* isnull((Select isnull(d.nCostoart,0) from MovAlmacend d where d.cCodidart= a.cCodartic and d.ntipMov=1 and d.cCodMovAl =(Select max(cCodMoval) from MovAlmacen Where ntipMov=1 and convert(datetime, convert(varchar,dtFechMov,102),102) <= convert(datetime, convert(varchar,@fechafin,102),102) and cCodMovAl in (Select cCodMovAl from MovAlmacenD where cCodidart= a.cCodartic and nTipMov=1 ))),0)), */ /* utilidad= (Select isnull(sum(nQtdVendida * nPreciounit ),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where (cIdTipTra='06' or cIdTipTra='10') and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin ) ) - (Select isnull(sum(nCostoArt),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where (cIdTipTra='06' or cIdTipTra='10') and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin ) ) / case when (Select isnull(sum(nQtdVendida),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where (cIdTipTra='06' or cIdTipTra='10') and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin ) )=0 then 1 else (Select isnull(sum(nQtdVendida),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where (cIdTipTra='06' or cIdTipTra='10') and dtFechareg between @fechaini and @fechafin ) )end , */ @fechaini as FechaINI, @fechafin as FechaFIN FROM ARTICULO a left outer join unidadmedida u ON a.cUndSalida= u.cUndMedid where ((select l.cCodLinea from articulo c left outer join Linea l on c.cCodLinea=l.cCodLinea where c.cCodartic=a.cCodartic )=@Familia or @Familia='*')and (Select isnull(sum(nQtdVendida),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where (cIdTipTra='06' or cIdTipTra='10') and convert(datetime,convert(varchar,dtFechaoper,102),102) between @fechaini and @fechafin and (right(rtrim(ltrim(cCodCaja)),2) =@Caja or @Caja='*') ) ) > 0 AND (a.cCodartic = @Articulo or @Articulo='*') AND (bSwEnsamb=@Ensamblado or @Ensamblado=3 ) order by ccodartic, familia, a.cCodcatal /*CostoUnit=(Select isnull(sum(nCostoArt),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where cIdTipTra='06' and dtFechareg between @fechaini and @fechafin ) ) / case when (Select isnull(sum(nQtdVendida),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where cIdTipTra='06' and dtFechareg between @fechaini and @fechafin ) )=0 then 1 else (Select isnull(sum(nQtdVendida),0) from CuentaCted where cCodArtic=a.cCodartic and cCodCtacte in (Select cCodctaCte from CuentaCte where cIdTipTra='06' and dtFechareg between @fechaini and @fechafin ) )end , */ End GO /****** Object: StoredProcedure [dbo].[usp_Log_KardexTot_rep] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER OFF GO -- exec usp_Log_KardexTot_Rep '20060215','20070115', 'Admin', '000595', '01' -- exec usp_Log_KardexTot_rep '20061101', '20061231', '*','000595', '*' CREATE PROCEDURE [dbo].[usp_Log_KardexTot_rep] @fechaini datetime = '20061101', @fechafin datetime = '20061231', @usuario char(6) = '*', @articulo char(6) ='*', @Almacen char(2) = '*' AS BEGIN SELECT (Select top 1 isnull(Apellido_Paterno, '') + ' ' + isnull(Apellido_Materno, '') + ' ' + isnull(Nombres, '') from usuario where Personal_Id=@Usuario) as usuario, (SELECT top 1 vDscundmd FROM UnidadMedida WHERE cUndmedid=(SELECT top 1 cUndSalida FROM Articulo WHERE cCodArtic=@articulo)) as UnidadMedida, (SELECT top 1 vDscartic FROM ARTICULO WHERE cCodArtic=@Articulo) as DescripcionArticulo, (SELECT top 1 cCodCatal FROM ARTICULO WHERE cCodArtic=@Articulo) as CodigoArticuloCatalogo, sum(ncantidadIng) as Ingreso, sum(ncantidadSal) as Salida, (convert(char(4), year(@fechaini)) + '-' + right('00' + rtrim(ltrim(convert(char(2), month(@fechaini)))),2) ) as Fechaini, (convert(char(4), year(@fechafin)) + '-' + right('00' + rtrim(ltrim(convert(char(2), month(@fechafin)))),2) ) as Fechafin, case @Almacen when '*' then 'Todos' else (SELECT top 1 vDscAlmac FROM Almacen WHERE cCodAlmac=@Almacen) end as pAlmacen, ( CASE Iperiodo WHEN 1 THEN 'Enero' WHEN 2 THEN 'Febrero' WHEN 3 THEN 'Marzo' WHEN 4 THEN 'Abril' WHEN 5 THEN 'Mayo' WHEN 6 THEN 'Junio' WHEN 7 THEN 'Julio' WHEN 8 THEN 'Agosto' WHEN 9 THEN 'Setiembre' WHEN 10 THEN 'Octubre' WHEN 11 THEN 'Noviembre' WHEN 12 THEN 'Diciembre' END) + '-' +CONVERT(CHAR(4), ianho) as periodo, CONVERT(CHAR(4), ianho)+'-'+RIGHT('00'+CONVERT(VARCHAR(2), k.iperiodo),2) as periodonum FROM KARDEX k --LEFT OUTER JOIN Articulo a ON a.cCodartic= k.cCodidart WHERE (k.cCodidart= @articulo OR @articulo='*') and (k.cCodAlmac=@Almacen or @Almacen='*') AND ((K.ianho > year(@fechaini) OR (k.ianHo = year(@fechaini) AND iperiodo >= month(@fechaini))) AND (K.ianho < year(@fechafin) OR (k.ianHo = year(@fechafin) AND iperiodo <= month(@fechafin)))) AND iFlagInventario=0 GROUP BY k.cCodidart, k.iperiodo, k.ianho ORDER BY k.iperiodo, k.ianho END GO /****** Object: StoredProcedure [dbo].[usp_Log_Kardex_valorizado_rep] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_Log_Kardex_valorizado_rep] /* KARDEX VALORIZADO Creado por Diana Valderrama */ @fechaini datetime='20060101', @fechafin datetime='20061210', @Familia char(6)='*', @articulo char(6) ='000612', @ensamblado int = 3, @Almacen char(2) = '01', @nIdTipMov int = 3 , @cIdTipTra1 char(2)='*' AS BEGIN SELECT k.iPeriodo, k.iAnho, k.iITM, k.cCodidart, k.cCodAlmac, k.iFlagInventario, dtFechaMov= isnull(k.dtFechaMov,getdate()), k.nCantidadIng, k.nCostoIng, k.nTotalIng, k.nCantidadSal, k.nCostoSal, k.nTotalSal, k.nCantidad, k.nCosto, k.nTotal, k.cFlagCerrado, k.cCodMovAl, k.nTipMov, k.cIdTipTra, k.cIdTipDoc, k.cSerieDocRef, k.cDocRefer, k.cCodProve, k.vContProv, a.cCodcatal,a.vDscartic,a.bSwEnsamb, (SELECT vDscLinea FROM linea WHERE cCodLinea= a.cCodLinea ) as linea, (SELECT cDscTrans FROM TipoTransaccion WHERE cIdTipTra= k.cIdTipTra ) as transaccion, CASE iFlagInventario WHEN 1 THEN 'Invent. Inicial ' + CONVERT(CHAR(4), ianho) + '-' + ( CASE Iperiodo WHEN 1 THEN 'Enero' WHEN 2 THEN 'Febrero' WHEN 3 THEN 'Marzo' WHEN 4 THEN 'Abril' WHEN 5 THEN 'Mayo' WHEN 6 THEN 'Junio' WHEN 7 THEN 'Julio' WHEN 8 THEN 'Agosto' WHEN 9 THEN 'Setiembre' WHEN 10 THEN 'Octubre' WHEN 11 THEN 'Noviembre' WHEN 12 THEN 'Diciembre' END) WHEN 2 THEN 'Inventario Final ' + CONVERT(CHAR(4), ianho) + '-' + ( CASE Iperiodo WHEN 1 THEN 'Enero' WHEN 2 THEN 'Febrero' WHEN 3 THEN 'Marzo' WHEN 4 THEN 'Abril' WHEN 5 THEN 'Mayo' WHEN 6 THEN 'Junio' WHEN 7 THEN 'Julio' WHEN 8 THEN 'Agosto' WHEN 9 THEN 'Setiembre' WHEN 10 THEN 'Octubre' WHEN 11 THEN 'Noviembre' WHEN 12 THEN 'Diciembre' END) ELSE CASE WHEN (isnull(K.cCodProve,'0')= '0' OR k.nTipMov=2 )THEN K.vContProv ELSE (SELECT cproveedor_nombre FROM _proveedor WHERE cproveedor_id=k.cCodprove )END END as entidad, (SELECT cAbrevdoc FROM TipoDocumento WHERE cIdTipDoc= k.cIdTipDoc ) as Tipodocumento, CASE @Familia when '*' then 'Todos' else (SELECT vDscLinea FROM linea WHERE cCodLinea= @Familia) end as pFamilia, CASE @articulo when '*' then 'Todos' else a.vDscartic end as pArticulo, CASE @ensamblado when 3 then 'Todos' when 1 then 'Ensamblado' end as pEnsamblado, CASE @Almacen when '*' then 'Todos' else (SELECT vDscAlmac FROM almacen WHERE cCodAlmac=@Almacen) END AS pAlmacen, CASE @nIdTipMov when 3 then 'Todos' when 1 then 'Ingreso' when 2 then 'Salida' end as pTipMov, CASE @cIdTipTra1 when '*' then 'Todos' else (SELECT cDscTrans FROM TipoTransaccion WHERE cIdTipTra= @cIdTipTra1) end as Transaccion, (convert(char(4), year(@fechaini)) + '-' + right('00' + rtrim(ltrim(convert(char(2), month(@fechaini)))),2) ) as periodoini, (convert(char(4), year(@fechafin)) + '-' + right('00' + rtrim(ltrim(convert(char(2), month(@fechafin)))),2) ) as periodofin, nTipMov , a.bFlagDesc FROM KARDEX k LEFT OUTER JOIN Articulo a ON a.cCodartic= k.cCodidart WHERE (a.cCodLinea= @Familia OR @Familia='*') AND (k.cCodidart= @articulo OR @articulo='*') AND (a.bswEnsamb= @ensamblado OR @ensamblado=3) AND (k.cCodAlmac= @almacen OR @almacen = '*') AND (k.nTipMov = @nIdTipMov OR @nIdTipMov=3) AND (k.cIdTipTra = @cIdTipTra1 OR @cIdTipTra1='*' ) AND ((K.ianho > year(@fechaini) OR (k.ianHo = year(@fechaini) AND iperiodo >= month(@fechaini))) AND (K.ianho < year(@fechafin) OR (k.ianHo = year(@fechafin) AND iperiodo <= month(@fechafin)))) ORDER BY k.cCodidart,k.iperiodo, k.ianho, k.iItm END GO /****** Object: Table [dbo].[Inventario] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Inventario]( [iPeriodo] [int] NOT NULL, [iAnho] [int] NOT NULL, [cCodidart] [char](6) NOT NULL, [nCantidad] [numeric](18, 2) NOT NULL, [nCosto] [numeric](18, 4) NOT NULL, [nTotal] [numeric](18, 4) NOT NULL, [cFlagCerrado] [char](1) NOT NULL, CONSTRAINT [PK_Inventario] PRIMARY KEY CLUSTERED ( [iPeriodo] ASC, [iAnho] ASC, [cCodidart] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[usp_Log_kardex_val] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE Procedure [dbo].[usp_Log_kardex_val] /* KARDEX VALORIZADO Creado por Diana Valderrama */ @fechaini datetime='20060401', @fechafin datetime='20060510', @Familia char(6)='*', @articulo char(6) ='0000013', @ensamblado int = 3, @Almacen char(2) = '*', @nIdTipMov int = 3 , @cIdTipTra1 char(2)='*' As Begin SET NOCOUNT ON /*-------------------Calcula Inventario inicial -------------*/ Declare @nCantidad numeric(18,2), @nCantidadi numeric(18,2), @nCostoi numeric(18,2), @cCodidart char(6), @cCodidart_ant char(6), @periodo integer, @periodo_ant integer, @anho integer, @anho_ant integer, @EXISTE integer set @nCantidad=0 set @cCodidart='' set @cCodidart_ant='' /*---------------------Calcula costos -----------------------*/ Declare @nTipMov int, @cCodMoval char(10), @cIdTipTra char(2), @nCostoart numeric(18,2), @periodosig integer set @nTipMov= 0 set @cCodMoval='' set @cCodidart='' set @cIdTipTra='' set @nCostoart=0 set @nCostoi=0 SET @nCantidadi=0 SET @nCantidad=0 set @cCodidart_ant='' set @periodo=0 set @anho=0 Declare cur_mov cursor for select d.nTipMov,d.cCodMoval, d.cCodidart, m.cIdTipTra, d.nCostoart, d.nQtdEquiv, month(dtFechMov),YEAR(dtFechMov) from MovAlmacenD d left outer join Movalmacen m on d.cCodMoval=m.cCodMovAl and d.nTipMov=m.nTipMov left outer join articulo a on d.cCodidart=a.ccodartic left outer join Linea l on a.cCodlinea=l.cCodLinea WHERE (d.ccodidart= @articulo or @articulo='*') and (a.bSwEnsamb= @ensamblado or @ensamblado=3) and (m.cCodAlmac=@Almacen or @Almacen='*') and (l.cCodLinea= @Familia or @Familia='*') and YEAR(dtFechMov)= YEAR(@fechaini) and (m.bswAnulado=0) order by d.ccodidart,m.dtFechMov, d.nTipMov open cur_mov FETCH NEXT FROM cur_mov INTO @nTipMov,@cCodMoval, @cCodidart, @cIdTipTra, @nCostoart, @nCantidad, @periodo, @anho set @periodo_ant=0 set @anho_ant=0 set @periodosig=0 WHILE @@FETCH_STATUS = 0 Begin if @cCodidart_ant <> @cCodidart Begin if @cCodidart_ant <> '' Begin delete from Inventario where iPeriodo=@periodosig and ianho=@anho_ant and cCodidart=@cCodidart_ant Insert into Inventario(iPeriodo, ianho, cCodidart, nCantidad, nCosto, nTotal) values(@periodosig,@anho_ant, @cCodidart_ant, @nCantidadi,@nCostoi,(@nCantidadi * @nCostoi)) end set @periodosig=0 Select @existe= count(*) from Inventario where iPeriodo=1 and iAnho=year(@Fechaini)and cCodidart=@cCodidart if @existe = 1 Begin Select @nCantidadi=nCantidad , @nCostoi=nCosto from Inventario where iPeriodo=1 and iAnho=year(@Fechaini)and cCodidart=@cCodidart end else begin Select @existe= count(*) from Inventario where iPeriodo=0 and iAnho=(year(@Fechaini) - 1) and cCodidart=@cCodidart if @existe = 1 Begin Select @nCantidadi=nCantidad , @nCostoi=nCosto from Inventario where iPeriodo=0 and iAnho=(year(@Fechaini)- 1) and cCodidart=@cCodidart Insert into Inventario(iPeriodo, ianho, cCodidart, nCantidad, nCosto, nTotal) values(1,year(@fechaini), @cCodidart, @nCantidadi, @nCostoi,(@nCantidadi * @nCostoi)) end else Insert into Inventario(iPeriodo, ianho, cCodidart, nCantidad, nCosto, nTotal) values(1,year(@fechaini), @cCodidart, 0, 0,0) set @nCantidadi=0 set @nCostoi=0 end SET @periodosig =@periodosig + 1 end /*--------------------------------------------*/ WHILE @periodosig < @periodo and @periodosig > 0 begin delete from Inventario where iPeriodo=@periodosig and ianho=@anho and cCodidart=@cCodidart Insert into Inventario(iPeriodo, ianho, cCodidart, nCantidad, nCosto, nTotal) values(@periodosig,@anho, @cCodidart, @nCantidadi,@nCostoi,(@nCantidadi * @nCostoi)) SET @periodosig =@periodosig + 1 if @periodosig=13 set @periodosig=1 end /*---------------------------------------------*/ If @nTipMov=1 begin set @nCantidadi = @nCantidadi + @nCantidad IF @nCostoart > 0 begin if @nCostoi > 0 and @nCantidadi <> 0 begin set @nCostoi=(((@nCostoi * @nCantidadi) + (@nCostoart * @nCantidad)) / (@nCantidadi + @nCantidad) ) end else begin set @nCostoi= @nCostoart end end else begin set @nCantidadi = @nCantidadi - @nCantidad end end Update MovAlmacenD set nCostoProm=@nCostoi where cCodidart=@cCodidart and cCodMovAl=@cCodMovAl and cCodidart=@cCodidart and nTipMov=@nTipMov set @cCodidart_ant=@cCodidart set @periodo_ant=@periodo set @anho_ant=@anho FETCH NEXT FROM cur_mov INTO @nTipMov,@cCodMoval, @cCodidart, @cIdTipTra, @nCostoart, @nCantidad, @periodo, @anho end close cur_mov DEALLOCATE cur_mov /*---------------------Lista resultados-----------------------*/ Select m.nTipMov as TipoMovimiento, m.cCodAlmac as CodAlmacen, (Select vDscAlmac from Almacen where CCodAlmac= m.CCodAlmac ) as Almacen, m.dtFechMov as FechaMovimiento, m.cCodUsrRg as CodUsuario, (Select isnull(Apellido_Paterno, '') + ' ' + isnull(Apellido_Materno, '') + ' ' + isnull(Nombres, '') from usuario where Personal_Id=m.cCodUsrRg ) as usuario, m.cIdTipTra as CodTipoTransaccion, (Select cDscTrans from TipoTransaccion where cIdTipTra=m.cIdTipTra) as TipoTransaccion, m.cIdTipDoc as CodTipoDocumento, (Select cAbrevDoc from TipoDocumento where cIdTipDoc=m.cIdTipDoc )as TipoDocumento , CASE WHEN LEN(m.cSerieDocRef) > 0 THEN (m.cSerieDocRef + '-' + m.cDocRefer) ELSE (m.cSerieDocRef + m.cDocRefer )END as NroDocumento, case when (select cproveedor_nombre from _Proveedor where cproveedor_id=rtrim(lTrim(m.cCodProve))) is null then m.vContProv else (select cproveedor_nombre from _Proveedor where cproveedor_id=rtrim(lTrim(m.cCodProve))) end as Cliente_Prov, d.cCodidart as CodigoArticulo, d.cUndmedid as CodUnidadMedida, (Select vDscCrta from UnidadMedida where cUndmedid=d.cUndmedid )as UnidadMedida, a.vDscartic as DescripcionArticulo, a.cCodCatal as CodigoArticuloCatalogo, a.CCodLinea as CodigoLinea, l.vDscLinea as Linea, a.bSwEnsamb as Ensamblado, (case when d.nTipMov=1 then d.nQtdEquiv else null end)as Ingreso, (case when d.nTipMov=1 then d.nCostoArt else null end)as CostoIngreso, (case when d.nTipMov=2 then d.nQtdEquiv else null end)as Salida, (case when d.nTipMov=2 then d.nCostoProm else null end)as CostoSalida, nCostoProm as CostoSaldo, @fechaini as Fechaini, @fechafin as FechaFin, month(dtFechMov) as mes, year(dtFechMov)as anho, month(dtFechMov) as mes, year(dtFechMov)as anho, (Select nCosto from inventario where cCodidart=d.CCodidart and iperiodo= (month(@Fechaini)) and ianho=year(@Fechaini)) as Costoinicial, (Select nCantidad from inventario where cCodidart=d.CCodidart and iperiodo= (month(@Fechaini) ) and ianho=year(@Fechaini)) as cantidadinicial, case month(dtFechMov) WHEN 1 THEN 'Enero -' + cast(year(dtFechMov)as char(4)) WHEN 2 THEN 'Febrero - ' + cast(year(dtFechMov)as char(4)) WHEN 3 THEN 'Marzo - ' + cast(year(dtFechMov)as char(4)) WHEN 4 THEN 'Abril - ' + cast(year(dtFechMov)as char(4)) WHEN 5 THEN 'Mayo - ' + cast(year(dtFechMov)as char(4)) WHEN 6 THEN 'Junio -' + cast(year(dtFechMov)as char(4)) WHEN 7 THEN 'Julio -' + cast(year(dtFechMov)as char(4)) WHEN 8 THEN 'Agosto -' + cast(year(dtFechMov)as char(4)) WHEN 9 THEN 'Setiembre -' + cast(year(dtFechMov)as char(4)) WHEN 10 THEN 'Octubre -' + cast(year(dtFechMov)as char(4)) WHEN 11 THEN 'Noviembre -' + cast(year(dtFechMov)as char(4)) WHEN 11 THEN 'Diciembre -' + cast(year(dtFechMov)as char(4)) end as Periodo, case @Familia when '*' then 'Todos' else @Familia end as pFamilia, case @articulo when '*' then 'Todos' else @articulo end as pArticulo, case @ensamblado when 3 then 'Todos' when 1 then '' when 1 then 'Ensamblado' end as pEnsamblado, case @Almacen when '*' then 'Todos' else @Almacen end as pAlmacen, case @nIdTipMov when 3 then 'Todos' when 1 then 'Ingreso' when 2 then 'Salida' end as pTipMov, case @cIdTipTra1 when '*' then 'Todos' else @cIdTipTra1 end as pTipTrans from MovAlmacenD d left outer join Movalmacen m on d.cCodMoval=m.cCodMovAl and d.nTipMov=m.nTipMov left outer join articulo a on d.cCodidart=a.ccodartic left outer join Linea l on a.cCodlinea=l.cCodLinea WHERE (d.ccodidart= @articulo or @articulo='*') and (a.bSwEnsamb= @ensamblado or @ensamblado=3) and (m.cCodAlmac=@Almacen or @Almacen='*') and (l.cCodLinea= @Familia or @Familia='*') and (convert(datetime,convert(varchar,dtFechMov,102),102) between @fechaini and @fechafin) and (m.bswAnulado=0) and ((d.nTipMov = @nIdTipMov) or @nIdTipMov=3 ) and ((m.cIdTipTra = @cIdTipTra1) or @cIdTipTra1 ='*' ) order by d.ccodidart,m.dtFechMov, d.nTipMov SET NOCOUNT OFF END GO /****** Object: Table [dbo].[ImprTipDocEst] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[ImprTipDocEst]( [nImpresora] [int] NOT NULL, [cIdTipDoc] [char](2) NOT NULL, [nEstacion] [int] NOT NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: Table [dbo].[Impresora] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING ON GO CREATE TABLE [dbo].[Impresora]( [nImpresora] [int] NOT NULL, [vDscImpresora] [varchar](50) NULL, [vUNC] [varchar](100) NULL ) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: UserDefinedFunction [dbo].[GetPadre] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE FUNCTION [dbo].[GetPadre](@vCodigo varchar(30), @iNivel int) RETURNS VARCHAR(30) AS BEGIN DECLARE @iPosicion int DECLARE @iNumeroPuntos int DECLARE @vCodigoPadre Varchar(30) set @iPosicion = 1 set @iNumeroPuntos = 0 set @vCodigoPadre = '' IF dbo.GetNivel(@vCodigo) = @iNivel BEGIN Set @vCodigoPadre = @vCodigo END ELSE BEGIN WHILE @iNumeroPuntos <= @iNivel BEGIN Set @iPosicion = charindex('.',@vCodigo,@iPosicion) Set @vCodigoPadre = substring(@vCodigo,1,@iPosicion-1) Set @iNumeroPuntos = @iNumeroPuntos + 1 Set @iPosicion = @iPosicion + 1 END END RETURN (@vCodigoPadre) END GO /****** Object: UserDefinedFunction [dbo].[ModificaLongitudCodigoNivel] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE FUNCTION [dbo].[ModificaLongitudCodigoNivel](@vCodigo Varchar(30), @iNivel int, @iNroCarac int) RETURNS VARCHAR(30) AS BEGIN DECLARE @vCodigoNuevo VARCHAR(30) DECLARE @vCodigoNivel VARCHAR(30) DECLARE @iContador int DECLARE @iPosicion int DECLARE @iPosicion2 int DECLARE @vPorcionLeftCodigo varchar(30) DECLARE @vPorcionRightCodigo varchar(30) set @iContador = 0 set @iPosicion = 1 WHILE (@iContador < @iNivel) BEGIN Set @iPosicion = charindex('.',@vCodigo,@iPosicion)+1 Set @iContador = @iContador + 1 END IF @iNivel = dbo.GetNivel(@vCodigo) BEGIN Set @vCodigoNivel = right('000000' + substring(@vCodigo,@iPosicion,len(@vCodigo)-@iPosicion+1),@iNroCarac) Set @vPorcionLeftCodigo = left(@vCodigo,@iPosicion-1) Set @vPorcionRightCodigo = '' END ELSE BEGIN Set @iPosicion2 = charindex('.',@vCodigo,@iPosicion)-1 Set @vCodigoNivel = right('000000' + substring(@vCodigo,@iPosicion,@iPosicion2-@iPosicion+1),@iNroCarac) Set @vPorcionLeftCodigo = left(@vCodigo,@iPosicion-1) Set @vPorcionRightCodigo = right(@vCodigo,len(@vCodigo)-@iPosicion2) END Set @vCodigoNuevo = @vPorcionLeftCodigo + @vCodigoNivel + @vPorcionRightCodigo RETURN (@vCodigoNuevo) END GO /****** Object: StoredProcedure [dbo].[Log_MuestraEMailDestino] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[Log_MuestraEMailDestino] AS /* Este store muestra el email del destino al ques sera enviado el mensaje Creado por Diana Valderrama Dic 2005*/ Select top 1 'Diana Valderrama' as Cliente, 'Diana' as usuario, 'dvalderrama@omnisciencia.com' as EMail from estado GO /****** Object: StoredProcedure [dbo].[Log_MiuestraEMailDestino] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[Log_MiuestraEMailDestino] AS /* Este store muestra el email del destino al ques sera enviado el mensaje Creado por Diana Valderrama Dic 2005*/ Select top 1 'Diana Valderrama' as Cliente, 'Diana' as usuario, 'dvalderrama@omnisciencia.com' as EMail from estado GO /****** Object: UserDefinedFunction [dbo].[GetCodigoNivel] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE FUNCTION [dbo].[GetCodigoNivel](@vCodigo Varchar(30),@iNivel int) RETURNS varchar(30) AS BEGIN DECLARE @iPosicion int DECLARE @iContador int DECLARE @vCodigoNivel varchar(30) Set @iContador = 0 Set @iPosicion = 1 IF (dbo.GetNivel(@vCodigo) < @iNivel) or (@iNivel <= 0) BEGIN Set @vCodigoNivel = '-1' END ELSE BEGIN WHILE @iContador < @iNivel BEGIN Set @iPosicion = charindex('.',@vCodigo,@iPosicion) + 1 Set @iContador = @iContador + 1 IF @iContador = @iNivel BEGIN IF dbo.GetNivel(@vCodigo) = @iNivel BEGIN Set @vCodigoNivel = substring(@vCodigo,@iPosicion,len(@vCodigo)-@iPosicion+1) END ELSE BEGIN Set @vCodigoNivel = substring(@vCodigo,@iPosicion,charindex('.',@vCodigo,@iPosicion)-@iPosicion) END END END END RETURN (@vCodigoNivel) END GO /****** Object: UserDefinedFunction [dbo].[fnUM] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO CREATE FUNCTION [dbo].[fnUM] (@aUM char(3)) RETURNS VARCHAR(5) AS BEGIN DECLARE @Texto VARCHAR(5) SELECT @Texto = vDscCrta FROM UnidadMedida WHERE cUndMedid = @aUM RETURN (@Texto) END GO /****** Object: StoredProcedure [dbo].[OSCListadoArticulo] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[OSCListadoArticulo] @iAccion INT = 0, @cCodArtic CHAR(6) = '', @vDscArtic VARCHAR(150)= '', @bSwActivo BIT = NULL, @bSwInvent BIT = NULL, @bSwEnsamb BIT = NULL, @cUndCompr CHAR(3) = '', @cUndSalida CHAR(3) = '', @vDscmarca VARCHAR(30) = '', @bflagDesc BIT = NULL, @cCodCatal CHAR(50) = '', @linea CHAR(50) = '', @sublinea CHAR(50) = '', @order CHAR(50) = 'cCodCatal' AS BEGIN DECLARE @sSQL VARCHAR(4000) IF @iAccion = 0 BEGIN SET @sSQL = ' SELECT A.cCodArtic,A.cCodCatal, A.vDscartic, A.cCodLinea, A.vCodSubLn, A.bSwActivo, A.bSwInvent, A.bSwEnsamb, A.cIdtmarca, cUndSalida, UMVta = dbo.fnUM(A.cUndSalida), cUndCompr, UMCom = dbo.fnUM(A.cUndCompr), vDscmarca, (Select vDscLinea from linea where cCodLinea=A.cCodLinea ) as Linea, (Select vDscSubLn from SubLinea where vCodSubLn=A.vCodSubLn ) as SubLinea, isnull((Select sum(isnull(nStockAl,0)) from ArticuloAlmacen where cCodartic=A.cCodartic) ,0) as Stock, A.bFlagVenta, A.cIdTipItm, a.bFlagAlqui,a.bFlagDetracc,cCuentaContableCmp,cCuentaContableVta,vCodigoBarras FROM Articulo A LEFT JOIN Marca M ON A.cIdtmarca = M.cIdtmarca WHERE A.cCodArtic not in (SELECT cCodProd FROM Atributo) AND left(cCodartic,1) <> ''#'' ' IF @cCodCatal <> '' SET @sSQL = @sSQL + ' AND cCodCatal LIKE ''%' + rtrim(ltrim(@cCodCatal)) + '%''' IF @cCodartic <> '' BEGIN SET @cCodartic= (right(('000000' + rtrim(ltrim(@cCodartic))), 6) ) SET @sSQL = @sSQL + ' AND cCodartic = ''' + rtrim(ltrim(@cCodartic)) + '''' END IF @vDscArtic <> '' SET @sSQL = @sSQL + ' AND (vDscArtic LIKE ''%' + @vDscArtic + '%''' + ' or vDscArtCt LIKE ''%' + @vDscArtic + '%'')' IF @vDscmarca <> '' SET @sSQL = @sSQL + ' AND vDscmarca LIKE ''%' + @vDscmarca + '%''' IF @bSwActivo IS NOT NULL SET @sSQL = @sSQL + ' AND bSwActivo = ' + CONVERT(CHAR,@bSwActivo) IF @bSwInvent IS NOT NULL SET @sSQL = @sSQL + ' AND bSwInvent = ' + CONVERT(CHAR,@bSwInvent) IF @bSwEnsamb IS NOT NULL SET @sSQL = @sSQL + ' AND bSwEnsamb = ' + CONVERT(CHAR,@bSwEnsamb) IF @bFlagDesc IS NULL or ( @bFlagDesc ='0') SET @sSQL = @sSQL + ' AND bFlagDesc = 0 ' IF @cUndCompr <> '' SET @sSQL = @sSQL + ' AND cUndCompr = ''' + @cUndCompr + '''' IF @cUndSalida <> '' SET @sSQL = @sSQL + ' AND cUndSalida = ''' + @cUndSalida + '''' IF @Linea <> '' SET @sSQL = @sSQL + 'AND (Select vDscLinea from linea where cCodLinea=A.cCodLinea ) LIKE ''%' + rtrim(ltrim(@Linea)) + '%''' IF @SubLinea <> '' SET @sSQL = @sSQL + 'AND (Select vDscSubLn from SubLinea where vCodSubLn=A.vCodSubLn ) LIKE ''%' + rtrim(ltrim(@SubLinea)) + '%''' SET @sSQL = @sSQL + ' ORDER BY ' + rtrim(ltrim(@ORDER )) EXEC(@sSQL) END IF @iAccion = 1 BEGIN SELECT * FROM Articulo WHERE cCodArtic = @cCodArtic END --Articulo Ensamblado: partes IF @iAccion = 2 BEGIN SELECT AE.cCodArtEn, A.vDscArtic, A.cCodcatal, AE.nQtdReque, AE.cUndMedEn, UM = dbo.fnUM(AE.cUndMedEn), AE.nQtdMinim, AE.nSwNeces, AE.vObseAdi, AE.nItmEnsanb,A.cUndSalida FROM ArticuloEnsamblado AE INNER JOIN Articulo A ON AE.cCodArtEn = A.cCodArtic WHERE AE.cCodartic = @cCodartic END --Articulo Almacén: datos IF @iAccion = 3 BEGIN SELECT AA.cCodAlmac, AL.vDscAlmac, UM = dbo.fnUM(A.cUndSalida), AA.nStockAl, AA.nStockmin, AA.nStockmax, AA.nCostoArt, AA.nPunto_pedido, AA.nPunto_repos, AA.nTransito, AA.nComprometido, AA.dtUltIngAlm, AA.cCodmn_ult_com, AA.nCosto_ult_com, AA.nCostoMN_ult_com, AA.dtUltSalAlm, AA.cCodmn_ult_vta, AA.nPrecio_ult_vta, AA.nPreMN_ult_vta, AA.nUtilidad_art, AA.dtFecAproxEnt FROM (ArticuloAlmacen AA INNER JOIN Articulo A ON AA.cCodArtic = A.cCodArtic) INNER JOIN Almacen AL ON AA.cCodAlmac = AL.cCodAlmac WHERE AA.cCodArtic = @cCodArtic END --Articulo Precio Venta: datos IF @iAccion = 4 BEGIN SELECT P.nNumitem, P.cCodMonNew, P.nPrecioVtaNew, P.cCodmonOld, P.nPrecioVtaOld, P.dtFechaActPV, (SELECT Usuario FROM usuario WHERE Personal_Id=P.cUsrRegPV) as NUsuario FROM ArticuloPrecioVenta P WHERE P.cCodArtic = @cCodArtic ORDER BY P.nNumitem desc END END --Articulo Precio Venta: datos IF @iAccion = 5 BEGIN SELECT cCodArtic,nNumitem,nNroOrden,cUndMed,cCodMon nMonto, vObsAdi, dtfechaact, dtfechacrea, cCodUsrReg, bFlagActivo FROM ARTICULOALQUILERPRECIO WHERE cCodArtic = @cCodArtic and bFlagActivo=1 ORDER BY nNroOrden End IF @iAccion = 6 BEGIN SELECT cCodArtic,nNumitem,nNroOrden,cUndMed,cCodMon nMonto, vObsAdi, dtfechaact, dtfechacrea, cCodUsrReg, bFlagActivo FROM ARTICULOALQUILERPRECIO WHERE cCodArtic = @cCodArtic and bFlagActivo=0 ORDER BY dtfechaact desc End GO /****** Object: StoredProcedure [dbo].[OSCMantArticuloPrecioVenta] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[OSCMantArticuloPrecioVenta] -- @nNumitem varchar(18) = '0.0', @cCodArtic char(6) = '', @cCodMonNew char(2) = '', @nPrecioVtaNew varchar(18) = '0.0', @cUsrRegPV char(6) = '' AS BEGIN DECLARE @tNumitem NUMERIC, @cCodMonOld CHAR(1), @nPrecioVtaOld numeric(15,2) --Obteniendo numero de ultimo precio de venta SELECT @tNumitem = MAX(nNumitem) FROM ArticuloPrecioVenta WHERE cCodArtic = @cCodArtic -- Obteniendo datos de ultimo precio de venta SELECT @cCodMonOld = cCodMonNew, @nPrecioVtaOld = nPrecioVtaNew FROM ArticuloPrecioVenta WHERE cCodArtic = @cCodArtic AND nNumitem = @tNumitem --Obteniendo numero para nuevo precio de venta SELECT @tNumitem = ISNULL(@tNumitem,0) + 1 IF @cCodMonNew='' set @cCodMonNew='N' INSERT INTO ArticuloPrecioVenta (nNumitem, cCodArtic, cCodMonNew, nPrecioVtaNew, cCodMonOld, nPrecioVtaOld, dtFechaActPV, cUsrRegPV) VALUES (@tNumitem, @cCodArtic, @cCodMonNew, @nPrecioVtaNew, @cCodMonOld, @nPrecioVtaOld, GetDate(), @cUsrRegPV) END GO /****** Object: UserDefinedFunction [dbo].[sfu_existe_producto_ticket] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO create function [dbo].[sfu_existe_producto_ticket]( @cCodctaCte char(10) , @cProdCode int ) returns int as begin declare @retorno int, @total int if @cProdCode = 0 begin set @retorno = 1 end else begin select @total = count(1) from Cuentacted where cCodctaCte = @cCodctaCte and cProdcode = @cProdCode if @total > 0 begin set @retorno = 1 end else begin set @retorno = 0 end end return @retorno end GO /****** Object: StoredProcedure [dbo].[OSCListadoAlmacen] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[OSCListadoAlmacen] @iAccion INT = 0, @cCodAlmac CHAR(2) = '*', @vDscAlmac VARCHAR(20)= '*', @cRespAlm CHAR(7)= '' AS BEGIN DECLARE @sSQL VARCHAR(4000) IF @iAccion = 0 BEGIN SET @sSQL = ' SELECT cCodAlmac, vDscAlmac, cRespAlm' SET @sSQL = @sSQL + ' FROM Almacen where 1 = 1' IF @cCodAlmac <> '*' SET @sSQL = @sSQL + ' AND cCodAlmac = ''' + @cCodAlmac + '''' IF @vDscAlmac <> '*' SET @sSQL = @sSQL + ' AND vDscAlmac LIKE ''%' + @vDscAlmac + '%''' EXEC(@sSQL) END IF @iAccion = 1 BEGIN SELECT * FROM Almacen WHERE cCodAlmac = @cCodAlmac END END GO /****** Object: StoredProcedure [dbo].[listar_validaciones_canje_cumpleaños] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO /* * Descripcion : Listar los SPs para < validacion_canje_cumpleaños >. * Version : 1 * Modificado : 07/07/2010 */ create proc [dbo].[listar_validaciones_canje_cumpleaños] as begin select * from validacion_canje_cumpleaños (nolock) order by i_cod_sp_validacion end GO /****** Object: StoredProcedure [dbo].[Lista_Todos_Articulos_fsc] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[Lista_Todos_Articulos_fsc] @fechaini datetime ='18000101', @fechafin datetime ='18000101', @articulo char(6)='*' , @caja char(2)='*' , @cTipoDoc char(2)='*', @usuariotmp varchar(17)='*' as begin DELETE FROM TMP_sp_lista_1 where TMusuariotmp= @usuariotmp INSERT INTO TMP_sp_lista_1(TMccodartic, TMnqtdvendida, TMnpreciounit, TMcTipoDoc, TMccodcaja, TMnCostoArt, TMcAlmaCode, TMusuariotmp) select cud.ccodartic, nqtdvendida, npreciounit, cTipoDoc, ccodcaja, nCostoArt, cu.cAlmaCode, @usuariotmp from cuentacted cud (nolock), cuentacte cu (nolock) --, articulo a (nolock) where cud.ccodctacte = cu.ccodctacte and convert(datetime, convert(varchar, dtFechaoper, 102), 102) between @fechaini and @fechafin -- and dtFechaoper < convert(datetime,'08/05/2012',103) and cTipoDoc in('01','02','10','11') and (cud.cCodArtic = @articulo or @articulo = '*') and (right(rtrim(ccodcaja),2)=right(rtrim(@caja),2) or @caja='*') and (cTipoDoc=@cTipoDoc or @cTipoDoc='*') and cu.bswanulado=0 -- -- select cProdCode, nProdCant, nMonto, cDocTipo, cCajacodi -- , (select convert(numeric(15,2),nCostoArt) -- from Articuloalmacen -- Where cCodartic= right('000000' + rtrim(ltrim(TDETALLEZ1.cProdCode)),6) -- and cCodAlmac = TDETALLEZ1.cAlmaCode) ncostoart -- , cAlmaCode, @usuariotmp -- from TDETALLEZ1(nolock) -- where -- convert(datetime, convert(varchar, dOperFech, 102), 102) between @fechaini and @fechafin -- and cDocTipo in('01','02','10','11') -- and (right('000000' + ltrim(rtrim(cProdCode)),6) = @articulo or @articulo = '*') -- and (right(ltrim(rtrim(cCajaCodi)),2)=right(rtrim(@caja),2) or @caja='*') -- and (cDocTipo=@cTipoDoc or @cTipoDoc='*') -- and nProdCant <> ( select isnull(sum(isnull(TMnqtdvendida,0)),0) -- from TMP_sp_lista_1 -- where TMccodcaja=TDETALLEZ1.cCajacodi -- and TMccodartic=right('000000' + ltrim(rtrim(TDETALLEZ1.cProdCode)), 6) -- and TMcAlmaCode=TDETALLEZ1.cAlmaCode) --INSERT INTO TMP_sp_lista_1(TMccodartic, TMnqtdvendida, TMnpreciounit, TMcTipoDoc,TMccodcaja,TMnCostoArt,TMcAlmaCode,TMusuariotmp) --select cProdCode, nProdCant, nMonto, cDocTipo, cCajacodi -- , (select convert(numeric(15,2),nCostoArt) -- from Articuloalmacen -- Where cCodartic= TDETALLEZ1.cProdCode -- and cCodAlmac = TDETALLEZ1.cAlmaCode) ncostoart -- , cAlmaCode, @usuariotmp --from TDETALLEZ1(nolock) --where convert(datetime, convert(varchar, dOperFech, 102), 102) between @fechaini and @fechafin -- and cDocTipo in('01','02','10','11') -- and (right('000000' + ltrim(rtrim(cProdCode)),6) = @articulo or @articulo = '*') -- and (right(ltrim(rtrim(cCajaCodi)),2)=right(rtrim(@caja),2) or @caja='*') -- and (cDocTipo=@cTipoDoc or @cTipoDoc='*') end GO /****** Object: StoredProcedure [dbo].[Lista_Todos_Articulos] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[Lista_Todos_Articulos] @fechaini varchar(10)='', @fechafin varchar(10)='', @ccodlinea char(10)='', @caja varchar(6)='', @cTipoDoc char(2)='', @ensamblado int=3, @articulo char(6)='' as begin declare @cadsql varchar(max) declare @nombretipodoc varchar(25) declare @nombrecaja varchar(50) if @caja='' begin set @nombrecaja='TODAS' + replicate(' ', 45) end else begin set @nombrecaja=@caja end if @cTipoDoc='' begin set @nombretipodoc='TODOS' + replicate(' ', 20) end else begin set @nombretipodoc= (select top 1 vDscDocmt from TipoDocumento where cIdTipDoc = @cTipoDoc) end set @cadsql='select convert(varchar,convert(datetime,'+char(39)+@fechaini+char(39)+',105),103) as lblfechaini ,convert(varchar,convert(datetime,'+char(39)+@fechafin+char(39)+',105),103) as lblfechafin ,'+char(39)+@nombrecaja+char(39)+' as lblcaja ,'+char(39)+@nombretipodoc+char(39)+' as lbltipodoc ,lic.cCodLinea ,Linea=Lic.vDscLinea ,at.cCodCatal ,at.cCodArtic ,at.vDscartic ,nqtdvendida=sum(ctad.nQtdVendida) ,ncostoart=(select convert(numeric(15,2),al.nCostoArt) from Articuloalmacen al Where al.cCodartic= ctad.cCodartic and al.cCodAlmac = cta.cAlmaCode) ,total=sum(ctad.nPreciounit*ctad.nQtdVendida) from CuentaCte cta inner join CuentaCteD ctad on cta.cCodctaCte=ctad.cCodctaCte left outer join Articulo at on ctad.cCodartic=at.cCodArtic left outer join Linea lic on lic.cCodLinea=at.cCodLinea where cta.bSwAnulado='+char(39)+'0'+char(39)+' and cta.dtFechaoper between convert(datetime,'+char(39)+ @fechaini + char(39)+',103) and dateadd(day,1,convert(datetime,'+char(39)+@fechafin+char(39)+',103)) and cta.cTipoDoc in('+char(39)+'01'+char(39)+','+char(39)+'02'+char(39)+' ,'+char(39)+'10'+char(39)+')' if @ccodlinea<>'' begin set @cadsql = @cadsql +' and lic.cCodLinea='+char(39)+@ccodlinea+char(39)+'' end if @caja<>'' begin --set @cadsql = @cadsql +' and cta.cCodCaja='+char(39)+@caja+char(39)+'' set @cadsql = @cadsql +'and (right(rtrim(ltrim(cta.cCodCaja)),2)=right(rtrim(ltrim('+char(39)+@caja+char(39)+')),2))' end if @cTipoDoc<>'' begin set @cadsql=@cadsql+' and cta.cTipoDoc='+char(39)+@cTipoDoc+char(39)+'' end if @ensamblado<>3 begin set @cadsql=@cadsql+' and at.bSwEnsamb='+char(39)+convert(varchar,@ensamblado)+char(39)+'' end if @articulo<>'' begin set @cadsql=@cadsql+' and at.cCodArtic='+char(39)+@articulo+char(39)+'' end set @cadsql=@cadsql+' group by Lic.cCodLinea,Lic.vDscLinea,at.cCodCatal,at.cCodArtic,cta.cAlmaCode,at.vDscartic,ctad.cCodartic order by cCodCatal' execute (@cadsql) print @cadsql end GO /****** Object: StoredProcedure [dbo].[OSCListadoPersonal] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[OSCListadoPersonal] @iAccion INT = 0, @Personal_Id CHAR(7) = '', @Nombres VARCHAR(100) = '' AS BEGIN DECLARE @sSQL VARCHAR(4000) IF @iAccion = 0 BEGIN SET @sSQL = ' SELECT Personal_Id, Nombres=Apellido_paterno+'' ''+Apellido_Materno+'' ''+Nombres' SET @sSQL = @sSQL + ' FROM usuario' SET @sSQL = @sSQL + ' WHERE 1 = 1' IF @Personal_Id <> '' SET @sSQL = @sSQL + ' AND Personal_Id LIKE ''%' + rtrim(@Personal_Id) + '%''' IF @Nombres <> '' SET @sSQL = @sSQL + ' AND Apellido_paterno+'' ''+Apellido_Materno+'' ''+Nombres LIKE ''%' +rtrim(@Nombres) + '%''' EXEC(@sSQL) END IF @iAccion = 1 BEGIN SELECT * FROM usuario WHERE Personal_Id = @Personal_Id END END GO /****** Object: StoredProcedure [dbo].[OSCListadoLinea] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[OSCListadoLinea] @iAccion INT = 0, @cCodLinea CHAR(6) = '', @vDscLinea VARCHAR(100)= '' AS BEGIN DECLARE @sSQL VARCHAR(4000) IF @iAccion = 0 BEGIN SET @sSQL = ' SELECT cCodLinea, vDscLinea' SET @sSQL = @sSQL + ' FROM Linea' SET @sSQL = @sSQL + ' WHERE 1 = 1' IF @cCodLinea <> '' SET @sSQL = @sSQL + ' AND cCodLinea LIKE ''%' + @cCodLinea + '%''' IF @vDscLinea <> '' SET @sSQL = @sSQL + ' AND vDscLinea LIKE ''%' + @vDscLinea + '%''' EXEC(@sSQL) END IF @iAccion = 1 BEGIN SELECT * FROM Linea WHERE cCodLinea = @cCodLinea END END GO /****** Object: StoredProcedure [dbo].[OSCListadoUnidOrg] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[OSCListadoUnidOrg] @iAccion INT = 0, @UorgCCod CHAR(4) = '', @UorgTDescrip VARCHAR(100) = '' AS BEGIN DECLARE @sSQL VARCHAR(4000) IF @iAccion = 0 BEGIN SET @sSQL = ' SELECT UorgCCod,UorgTDescrip ' SET @sSQL = @sSQL + ' FROM oeimunidorg' SET @sSQL = @sSQL + ' WHERE 1 = 1' IF @UorgCCod <> '' SET @sSQL = @sSQL + ' AND UorgCCod LIKE ''%' + rtrim(@UorgCCod) + '%''' IF @UorgTDescrip <> '' SET @sSQL = @sSQL + ' AND UorgTDescrip LIKE ''%' +rtrim(@UorgTDescrip) + '%''' EXEC(@sSQL) END IF @iAccion = 1 BEGIN SELECT * FROM oeimunidorg WHERE UorgCCod = @UorgCCod END END GO /****** Object: StoredProcedure [dbo].[usp_usuarioacceso] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[usp_usuarioacceso] @usuario varchar(50) ,@clave varchar(50) as Select Personal_Id from usuario Where Usuario=@usuario and Pase= @clave and cadversion='211' GO /****** Object: StoredProcedure [dbo].[usp_upd_LiquidacionAutomaticaVta01] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO create procedure [dbo].[usp_upd_LiquidacionAutomaticaVta01] as declare @cSerieDoc char(4) declare @NroDoc char(7) declare @dFechaPrimerPago datetime declare cur_Venta01_SinLiquidar cursor for select cSerieDoc,NroDoc from venta01 where bLiquidado=0 open cur_Venta01_SinLiquidar fetch next from cur_Venta01_SinLiquidar into @cSerieDoc,@NroDoc while @@fetch_status=0 begin if exists(select * from pagos where cSerieDoc=@cSerieDoc and NroDoc=@NroDoc) begin select @dFechaPrimerPago=fechapago from pagos where NroDocPago=(select min(NroDocPago) from pagos where cSerieDoc=@cSerieDoc and NroDoc=@NroDoc) if datediff(d, @dFechaPrimerPago,getdate())>30 begin update venta01 set bLiquidado=1 where cSerieDoc=@cSerieDoc and NroDoc=@NroDoc end end fetch next from cur_Venta01_SinLiquidar into @cSerieDoc,@NroDoc end close cur_Venta01_SinLiquidar deallocate cur_Venta01_SinLiquidar GO /****** Object: StoredProcedure [dbo].[usp_Tot_Cli_Prod_Rep] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE Procedure [dbo].[usp_Tot_Cli_Prod_Rep] /* Lista Las ventas hechas a cada cliente Creado por Diana Valderrama */ @fechaini datetime = '2006.01.01', @fechafin datetime = '2006.12.01' As Begin select * from cuentacted d left outer join cuentacte c on d.cCodctacte = c.cCodctacte where c.dtFechareg between @fechaini and @fechafin End GO /****** Object: StoredProcedure [dbo].[usp_Sel_VerificaOperacionesHoy] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[usp_Sel_VerificaOperacionesHoy] AS DECLARE @From VARCHAR(50) DECLARE @To VARCHAR(100) DECLARE @Email VARCHAR(50) DECLARE @cCad VARCHAR(1000) DECLARE @cCad2 VARCHAR(1000) DECLARE @cContenido VARCHAR(1000) DECLARE @dFecha DATETIME SET @From='jcure@omnisciencia.com' SET @To='' DECLARE cur_email CURSOR FOR SELECT Email FROM Email OPEN cur_email FETCH NEXT FROM cur_email INTO @Email WHILE @@FETCH_STATUS = 0 BEGIN IF @To='' BEGIN SET @To=@Email END ELSE BEGIN SET @To=@To+';'+@Email END FETCH NEXT FROM cur_email INTO @Email END CLOSE cur_email DEALLOCATE cur_email /* Se asume que las cajas existentes son Caja01 Caja02 Caja03 Caja04 Caja05 Caja07 Caja08 */ SET NOCOUNT ON --SELECT * FROM operacion WHERE NOT dfechagraba IS NULL set @cCad='*' set @cCad2='*' DECLARE @nCantDias SMALLINT SELECT @nCantDias=COUNT(*) FROM operacion WHERE --NOT dfechagraba IS NULL convert(datetime, convert(varchar, dFechagraba, 103) ,103) = convert(datetime, convert(varchar, getdate(), 103) ,103) and dfechagraba-doperfech>1 and cCajaCodi='Caja01' IF @nCantDias>0 SET @cCad= ' Caja 01 ' SELECT @nCantDias=COUNT(*) FROM operacionparalela WHERE --NOT dfechagraba IS NULL convert(datetime, convert(varchar, dFechagraba, 103) ,103) = convert(datetime, convert(varchar, getdate(), 103) ,103) and dfechagraba-doperfech>1 and cCajaCodi='Caja01' IF @nCantDias>0 SET @cCad2= ' Caja 01 ' ----- SELECT @nCantDias=COUNT(*) FROM operacion WHERE --NOT dfechagraba IS NULL convert(datetime, convert(varchar, dFechagraba, 103) ,103) = convert(datetime, convert(varchar, getdate(), 103) ,103) and dfechagraba-doperfech>1 and cCajaCodi='Caja02' IF @nCantDias>0 SET @cCad= ' Caja 02 ' SELECT @nCantDias=COUNT(*) FROM operacionparalela WHERE --NOT dfechagraba IS NULL convert(datetime, convert(varchar, dFechagraba, 103) ,103) = convert(datetime, convert(varchar, getdate(), 103) ,103) and dfechagraba-doperfech>1 and cCajaCodi='Caja02' IF @nCantDias>0 SET @cCad2= ' Caja 02 ' ---- SELECT @nCantDias=COUNT(*) FROM operacion WHERE --NOT dfechagraba IS NULL convert(datetime, convert(varchar, dFechagraba, 103) ,103) = convert(datetime, convert(varchar, getdate(), 103) ,103) and dfechagraba-doperfech>1 and cCajaCodi='Caja03' IF @nCantDias>0 SET @cCad= ' Caja 03 ' SELECT @nCantDias=COUNT(*) FROM operacionparalela WHERE --NOT dfechagraba IS NULL convert(datetime, convert(varchar, dFechagraba, 103) ,103) = convert(datetime, convert(varchar, getdate(), 103) ,103) and dfechagraba-doperfech>1 and cCajaCodi='Caja03' IF @nCantDias>0 SET @cCad2= ' Caja 03 ' ---- SELECT @nCantDias=COUNT(*) FROM operacion WHERE --NOT dfechagraba IS NULL convert(datetime, convert(varchar, dFechagraba, 103) ,103) = convert(datetime, convert(varchar, getdate(), 103) ,103) and dfechagraba-doperfech>1 and cCajaCodi='Caja04' IF @nCantDias>0 SET @cCad= ' Caja 04 ' SELECT @nCantDias=COUNT(*) FROM operacionparalela WHERE --NOT dfechagraba IS NULL convert(datetime, convert(varchar, dFechagraba, 103) ,103) = convert(datetime, convert(varchar, getdate(), 103) ,103) and dfechagraba-doperfech>1 and cCajaCodi='Caja04' IF @nCantDias>0 SET @cCad2= ' Caja 04 ' ----- SELECT @nCantDias=COUNT(*) FROM operacion WHERE --NOT dfechagraba IS NULL convert(datetime, convert(varchar, dFechagraba, 103) ,103) = convert(datetime, convert(varchar, getdate(), 103) ,103) and dfechagraba-doperfech>1 and cCajaCodi='Caja05' IF @nCantDias>0 SET @cCad= ' Caja 05 ' SELECT @nCantDias=COUNT(*) FROM operacionparalela WHERE --NOT dfechagraba IS NULL convert(datetime, convert(varchar, dFechagraba, 103) ,103) = convert(datetime, convert(varchar, getdate(), 103) ,103) and dfechagraba-doperfech>1 and cCajaCodi='Caja05' IF @nCantDias>0 SET @cCad2= ' Caja 05 ' ---- SELECT @nCantDias=COUNT(*) FROM operacion WHERE --NOT dfechagraba IS NULL convert(datetime, convert(varchar, dFechagraba, 103) ,103) = convert(datetime, convert(varchar, getdate(), 103) ,103) and dfechagraba-doperfech>1 and cCajaCodi='Caja07' IF @nCantDias>0 SET @cCad= ' Caja 07 ' SELECT @nCantDias=COUNT(*) FROM operacionparalela WHERE --NOT dfechagraba IS NULL convert(datetime, convert(varchar, dFechagraba, 103) ,103) = convert(datetime, convert(varchar, getdate(), 103) ,103) and dfechagraba-doperfech>1 and cCajaCodi='Caja07' IF @nCantDias>0 SET @cCad2= ' Caja 07 ' ----- SELECT @nCantDias=COUNT(*) FROM operacion WHERE --NOT dfechagraba IS NULL convert(datetime, convert(varchar, dFechagraba, 103) ,103) = convert(datetime, convert(varchar, getdate(), 103) ,103) and dfechagraba-doperfech>1 and cCajaCodi='Caja08' IF @nCantDias>0 SET @cCad= ' Caja 08 ' SELECT @nCantDias=COUNT(*) FROM operacionparalela WHERE --NOT dfechagraba IS NULL convert(datetime, convert(varchar, dFechagraba, 103) ,103) = convert(datetime, convert(varchar, getdate(), 103) ,103) and dfechagraba-doperfech>1 and cCajaCodi='Caja08' IF @nCantDias>0 SET @cCad2= ' Caja 08 ' IF LEN(@cCad)=1 SET @cCad='Ninguna' IF LEN(@cCad2)=1 SET @cCad2='Ninguna' SET @cContenido='Las sgtes cajas no sincronizaron operaciones hoy:'+ char(13)+@cCad+char(13)+char(13)+ 'Las sgtes cajas no sincronizaron operaciones paralelas hoy:'+ char(13)+@cCad2 EXEC sp_send_cdosysmail @From,@To,'Informe Diario de Operaciones x Caja',@cContenido GO /****** Object: StoredProcedure [dbo].[usp_sel_ListadoDocumentosPendientesPago] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[usp_sel_ListadoDocumentosPendientesPago] @TipoDoc char(2) as Select v.TipoDoc, v.cSerieDoc,v.NroDoc,v.FechaEmision,Local=case v.IdLocal when 1 then 'SUR' when 2 then 'NORTE' end,v.DscCliente,v.cClienteCode,v.IdLocal, Moneda= case v.cCodMoneda when 'N' then 'SOLES' when 'E' then 'DOLARES' end,v.TotVta, v.TotVtaUSD,TotalPagos= round(isnull((select sum(case p.moneda when 'N' then p.monto when 'E' then p.monto*p.ntipocambio end) from pagos p where p.cseriedoc=v.cSerieDoc and p.nrodoc=v.NroDoc and p.TipoDoc=v.TipoDoc and p.fechaanulacion is null /*group by p.tipodoc,p.cseriedoc,p.nrodoc*/),0),2),TotalPagosUSD=round(isnull((select sum(case p.moneda when 'N' then p.monto/p.ntipocambio when 'E' then p.monto end) from pagos p where p.cseriedoc=v.cSerieDoc and p.nrodoc=v.NroDoc and p.TipoDoc=v.TipoDoc and p.fechaanulacion is null /*group by p.tipodoc,p.cseriedoc,p.nrodoc*/),0),2),MontoRestante=v.TotVta-round(isnull((select sum(case p.moneda when 'N' then p.monto when 'E' then p.monto*p.ntipocambio end) from pagos p where p.cseriedoc=v.cSerieDoc and p.nrodoc=v.NroDoc and p.TipoDoc=v.TipoDoc and p.fechaanulacion is null /*group by p.tipodoc,p.cseriedoc,p.nrodoc*/),0),2),MontoRestanteUSD=v.TotVtaUSD-round(isnull((select sum(case p.moneda when 'N' then p.monto/p.ntipocambio when 'E' then p.monto end) from pagos p where p.cseriedoc=v.cSerieDoc and p.nrodoc=v.NroDoc and p.TipoDoc=v.TipoDoc and p.fechaanulacion is null /*group by p.tipodoc,p.cseriedoc,p.nrodoc*/),0),2)from venta01 vwhere v.TipoDoc=@TipoDoc and v.fechaanulacion is nullGroup By v.TipoDoc, v.cSerieDoc,v.NroDoc,v.DscCliente,v.cClienteCode,v.IdLocal,v.TotVta,v.FechaEmision,v.cCodMoneda,v.TotVtaUSDHaving v.TotVta - round(isnull((select sum(case p.moneda when 'N' then p.monto when 'E' then p.monto*p.ntipocambio end) from pagos p where p.cseriedoc=v.cSerieDoc and p.nrodoc=v.NroDoc and p.TipoDoc=v.TipoDoc and p.fechaanulacion is null /*group by p.tipodoc,p.cseriedoc,p.nrodoc*/),0),2)>0 or v.TotVtaUSD - round(isnull(( select sum(case p.moneda when 'N' then p.monto/p.ntipocambio when 'E' then p.monto end) from pagos p where p.cseriedoc=v.cSerieDoc and p.nrodoc=v.NroDoc and p.TipoDoc=v.TipoDoc and p.fechaanulacion is null /*group by p.tipodoc,p.cseriedoc,p.nrodoc*/),0),2)>0unionselect v.TipoDoc,v.cSerieDoc,v.NroDoc,v.FechaEmision,Local=case v.IdLocalwhen 1 then 'SUR'when 2 then 'NORTE'end,v.DscCliente,v.cClienteCode,v.IdLocal,Moneda=case v.cCodMonedawhen 'N' then 'SOLES'when 'E' then 'DOLARES'end,v.TotVta,v.TotVtaUSD,--TotalPagos=0,--TotalPagosUSD=0,--MontoRestante=0,--MontoRestanteUSD=0TotalPagos=round(isnull((selectsum(case p.moneda when 'N' then p.monto when 'E' then p.monto*p.ntipocambio end)from pagos pwhere p.cseriedoc=v.cSerieDocand p.nrodoc=v.NroDoc and p.fechaanulacion is nullgroup by p.tipodoc,p.cseriedoc,p.nrodoc),0),2),TotalPagosUSD=round(isnull((selectsum(case p.moneda when 'N' then p.monto/p.ntipocambio when 'E' then p.monto end)from pagos pwhere p.cseriedoc=v.cSerieDocand p.nrodoc=v.NroDoc and p.fechaanulacion is nullgroup by p.tipodoc,p.cseriedoc,p.nrodoc),0),2),MontoRestante=v.TotVta-round(isnull((selectsum(case p.moneda when 'N' then p.monto when 'E' then p.monto*p.ntipocambio end)from pagos pwhere p.cseriedoc=v.cSerieDocand p.nrodoc=v.NroDoc and p.fechaanulacion is nullgroup by p.tipodoc,p.cseriedoc,p.nrodoc),0),2),MontoRestanteUSD=v.TotVtaUSD-round(isnull((selectsum(case p.moneda when 'N' then p.monto/p.ntipocambio when 'E' then p.monto end)from pagos pwhere p.cseriedoc=v.cSerieDocand p.nrodoc=v.NroDoc and p.fechaanulacion is nullgroup by p.tipodoc,p.cseriedoc,p.nrodoc),0),2)from venta01 vinner join detraccion d on v.cSerieDoc=d.SerieDoc and v.NroDoc=d.NroDocwhere d.Estado='P'and v.TipoDoc=@TipoDoc order by v.FechaEmision GO /****** Object: StoredProcedure [dbo].[usp_sel_ListadoDocumentosPendientesNC] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO create procedure [dbo].[usp_sel_ListadoDocumentosPendientesNC] @TipoDoc char(2) as SELECT v.cCodVta,v.TipoDoc, DscTipoDoc=Case v.TipoDoc when '01' then 'FADE' when '02' then 'BADE' end, v.cSerieDoc,v.NroDoc,v.cClienteCode,v.IdLocal, DscLocal=Case v.IdLocal when '01' then 'Sur' when '02' then 'Norte' end, v.DscCliente,v.NroRUC,v.TotVta,v.TotVtaUSD,v.cCodTipoCredito, DscTipoCredito=(select vDscTipoCredito from tipocredito where ccodtipocredito=v.cCodTipoCredito),v.fechaemision FROM venta01 v WHERE v.TipoDoc=@TipoDoc and FechaAnulacion is null and bLiquidado=0 --and (select count(*) from operacionparalela where cDocTipo=11 and cOperCodeRela=v.cCodVta )=0 order by v.fechaemision desc GO /****** Object: StoredProcedure [dbo].[usp_sel_CtaCtexCliente] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO create PROCEDURE [dbo].[usp_sel_CtaCtexCliente] @cClienteCode int, @IdLocal int as SELECT v.cCodVta,v.TipoDoc, DscTipoDoc=Case v.TipoDoc when '01' then 'FADE' when '02' then 'BADE' end, v.cSerieDoc,v.NroDoc, --v.cClienteCode,v.IdLocal, DscLocal=Case v.IdLocal when '01' then 'Sur' when '02' then 'Norte' end, v.DscCliente,v.NroRUC, v.TotVta,v.TotVtaUSD, Moneda=case v.cCodMoneda when 'N' then 'Soles' when 'E' then 'Dolares' end, v.cCodTipoCredito, DscTipoCredito=(select vDscTipoCredito from tipocredito where ccodtipocredito=v.cCodTipoCredito), v.fechaemision, TotalPagos= round(isnull((select sum(case p.moneda when 'N' then p.monto when 'E' then p.monto*p.ntipocambio end) from pagos p where p.cseriedoc=v.cSerieDoc and p.nrodoc=v.NroDoc group by p.tipodoc,p.cseriedoc,p.nrodoc),0),2), TotalPagosUSD= round(isnull((select sum(case p.moneda when 'N' then p.monto/p.ntipocambio when 'E' then p.monto end) from pagos p where p.cseriedoc=v.cSerieDoc and p.nrodoc=v.NroDoc group by p.tipodoc,p.cseriedoc,p.nrodoc),0),2), Estado= case v.cCodMoneda when 'N' then case when v.TotVta-(round(isnull((select sum(case p.moneda when 'N' then p.monto when 'E' then p.monto*p.ntipocambio end) from pagos p where p.cseriedoc=v.cSerieDoc and p.nrodoc=v.NroDoc group by p.tipodoc,p.cseriedoc,p.nrodoc),0),2))=0 then 'Cancelado' else 'Pendiente' end when 'E' then case when v.TotVtaUSD-(round(isnull((select sum(case p.moneda when 'N' then p.monto/p.ntipocambio when 'E' then p.monto end) from pagos p where p.cseriedoc=v.cSerieDoc and p.nrodoc=v.NroDoc group by p.tipodoc,p.cseriedoc,p.nrodoc),0),2))=0 then 'Cancelado' else 'Pendiente' end end FROM venta01 v WHERE FechaAnulacion is null and cClienteCode=@cClienteCode and IdLocal=@IdLocal order by v.fechaemision desc GO /****** Object: StoredProcedure [dbo].[usp_Mant_UnidOrg] Script Date: 03/04/2013 10:56:25 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_Mant_UnidOrg] @iAccion INT = 0, @UorgCCod char(4) = '', @UorgTDescrip varchar(50) = '', @UorgTSigla varchar(5) = '', @PerCCod varchar(6) = '', @UorgCCodSup char(4) = '', @UorgTEstad char(1) = '', @cCodNewUorg CHAR(4) = '' OUTPUT as begin if @iaccion=0 Begin SELECT @cCodNewUorg = RIGHT('0000' + CONVERT(VARCHAR, CONVERT(NUMERIC,ISNULL(MAX(UorgCCod),'0')) + 1),4) FROM oeimunidorg INSERT INTO oeimunidorg(UorgCCod,UorgTDescrip,UorgTSigla,PerCCod,UorgCCodSup,UorgFFechreg,UorgFFechult,UorgTEstad ) VALUES(@cCodNewUorg,@UorgTDescrip,@UorgTSigla,@PerCCod,@UorgCCodSup,getdate(),getdate(),@UorgTEstad ) End if @iaccion=1 Begin Update oeimunidorg set UorgTDescrip=@UorgTDescrip, UorgTSigla=@UorgTSigla, PerCCod=@PerCCod,UorgCCodSup=@UorgCCodSup,UorgFFechult=getdate(),UorgTEstad=@UorgTEstad where UorgCCod=@UorgCCod End end if @iaccion=2 Begin Declare @ocur int set @ocur=1 Select @ocur= count(*) from usuario Where UnidOrg=@UorgCCod if @ocur > 0 begin RAISERROR('Imposible Eliminar Unid Org existe referencia en Personal',16,-1) end else begin Delete oeimunidorg where UorgCCod=@UorgCCod end End GO /****** Object: StoredProcedure [dbo].[usp_ReporteVtasCajeroTurno] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[usp_ReporteVtasCajeroTurno] @fechainicial as datetime ='01/24/1800', @fechafinal as datetime ='01/24/1800', @cajero varchar(30)='*' as declare @fechaini as datetime declare @fechafin as datetime declare @addday int set @addday=1 set @fechafin=@fechafinal+@addday set @fechaini=cast(year(@fechainicial)as varchar)+'-'+cast(month(@fechainicial)as varchar)+'-'+cast(day(@fechainicial)as varchar)+' 10:00:00' set @fechafin=cast(year(@fechafin)as varchar)+'-'+cast(month(@fechafin)as varchar)+'-'+cast(day(@fechafin)as varchar)+' 03:00:00' select fecha=convert(datetime, convert(varchar,c.dtfechaoper,102),102), o.cuserdesc, o.cturnoCodi, sum(o.nprodcant*o.nprodprecunit)as monto from cuentacte c inner join operacion o on c.cSerieDoc=o.cdocserie and c.cnrodoc=cdoccodigo and o.copertipo=1 where c.dtfechaoper>=@fechaini and c.dtfechaoper<=@fechafin and (o.cuserdesc=@cajero or @cajero='*') group by convert(datetime, convert(varchar,c.dtfechaoper,102),102), cuserdesc, cturnoCodi order by convert(datetime, convert(varchar,c.dtfechaoper,102),102),o.cuserdesc,o.cturnocodi GO /****** Object: StoredProcedure [dbo].[usp_Pry_Factura] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[usp_Pry_Factura] @iAccion int= 0, @cCodctaCte char(10) = Null Output, @dtFechaoper datetime = Null, @cIdTipTra char(2) = Null, @cCodTipTra char(2) = Null, @cTipoDoc char(2) = Null, @cSerieDoc char(3) = Null, @cNroDoc char(7) = Null, @cCodIntFac char(7) = Null, @cCodMone char(1) = Null, @vClieCod varchar(15) = Null, @vNomClie varchar(70) = Null, @cRucClie char(15) = Null, @cUserReg char(10) = Null, @nPorcVenta numeric(18,2) = Null, @nPorcIGV numeric(18,0) = Null, @nImporIGV numeric(18,0) = Null, @nSubtotal numeric(18,2) = Null, @nImpoTotal numeric(18,2) = Null, @nPorcDetrc numeric(18,2) = Null , @nImpoDetrc numeric(18,2) = Null, @nTipoCambio numeric(18,2) = Null, @vObsAdic varchar(300) = Null, @bSwAnulado bit = null, @iError Int = Null Output AS BEGIN If @iAccion = 0 Begin --Calculamos el codigo Select @cCodctaCte = right('0000000000' + convert(varchar,convert(numeric,isnull(max(cCodctaCte),'0')) + 1),10) From CUENTACTE Insert Into CUENTACTE (cCodctaCte, dtFechaReg, dtFechaoper, cIdTipTra, cCodTipTra, cTipoDoc, cSerieDoc, cNroDoc, cCodIntFac, cCodMone, vClieCod, vNomClie, cRucClie, cUserReg, nPorcVenta, nPorcIGV, nImporIGV, nSubtotal, nImpoTotal, nPorcDetrc, nImpoDetrc, nTipoCambio, vObsAdic, bSwAnulado) Values (@cCodctaCte, getdate(), @dtFechaoper, @cIdTipTra, @cCodTipTra, @cTipoDoc, @cSerieDoc, @cNroDoc, @cCodIntFac, @cCodMone, @vClieCod, @vNomClie, @cRucClie, @cUserReg, @nPorcVenta, @nPorcIGV, @nImporIGV, @nSubtotal, @nImpoTotal, @nPorcDetrc, @nImpoDetrc, @nTipoCambio, @vObsAdic, @bSwAnulado) Set @iError = @@ERROR End Else If @iAccion = 0 Begin Update CUENTACTE Set dtFechaoper = @dtFechaoper, cIdTipTra = @cIdTipTra, cCodTipTra = @cCodTipTra, cTipoDoc = @cTipoDoc, cSerieDoc = @cSerieDoc, cNroDoc = @cNroDoc, cCodIntFac = @cCodIntFac, cCodMone = @cCodMone, vClieCod = @vClieCod, vNomClie = @vNomClie, cRucClie = @cRucClie, cUserReg = @cUserReg, nPorcVenta = @nPorcVenta, nPorcIGV = @nPorcIGV, nImporIGV = @nImporIGV, nSubtotal = @nSubtotal, nImpoTotal = @nImpoTotal, nPorcDetrc = @nPorcDetrc, nImpoDetrc = @nImpoDetrc, nTipoCambio = @nTipoCambio, vObsAdic = @vObsAdic, bSwAnulado = @bSwAnulado Where cCodctaCte = @cCodctaCte Set @iError = @@ERROR End END GO /****** Object: StoredProcedure [dbo].[usp_Mant_usuario_OLD] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[usp_Mant_usuario_OLD] @iAccion INT = 0, @Personal_Id char(6) = null, @Apellido_Paterno varchar(40)=null, @Apellido_Materno varchar(40)=null, @Nombres varchar(50)=null, @Usuario varchar(15)=null, @Pase varchar(15)=null, @lAdministrador int= 0 , @cCodPerfil char(2) = '02', @solic_int int= 0 , @cCodNew char(6) =0 output, @aprob_solic int= 0 , @o_c int= 0 , @NI int= 0 , @NS int= 0 , @Inf_Producto int= 0 , @inf_Vtas int= 0 , @inf_VtasxCli int= 0 , @inf_MovAl int= 0 , @Articulo int= 0 , @Linea_Sub int= 0 , @Config int= 0 , @Proveedor int= 0 , @marca int= 0 , @UndMed int= 0 , @seguridad int= 0 as begin --declare @cCodNew as char(6) if @iaccion=0 Begin SELECT @cCodNew = RIGHT('000000' + CONVERT(VARCHAR, CONVERT(NUMERIC,ISNULL(MAX(Personal_Id),'0')) + 1),6) FROM usuario INSERT INTO usuario(Personal_Id, Apellido_Paterno,Apellido_Materno,Nombres, Usuario, Pase, lAdministrador,cCodPerfil,solic_int,aprob_solic,o_c,NI,NS, Inf_Producto,Inf_vtas, Inf_vtasxcli, Inf_Moval, Articulo, Linea_Sub,Config,Proveedor, Marca, UndMed, Seguridad) VALUES(@cCodNew, @Apellido_Paterno,@Apellido_Materno,@Nombres, @Usuario, @Pase, @lAdministrador,@cCodPerfil,@solic_int,@aprob_solic,@o_c,@NI,@NS, @Inf_Producto,@Inf_vtas, @Inf_vtasxcli, @Inf_Moval, @Articulo,@Linea_Sub,@Config,@Proveedor, @Marca, @UndMed, @Seguridad) End if @iaccion=1 Begin Update usuario set Apellido_Paterno=@Apellido_Paterno,Apellido_Materno=@Apellido_Materno, Nombres=@Nombres,Usuario=@Usuario,Pase=@Pase, lAdministrador=@lAdministrador, cCodPerfil=@cCodPerfil,solic_int=@solic_int,aprob_solic=@aprob_solic,o_c=@o_c, NI=@NI,NS=@NS,Inf_Producto= @Inf_Producto ,Inf_vtas=@Inf_vtas, Inf_vtasxcli=@Inf_vtasxcli, Inf_Moval=@Inf_Moval, Proveedor=@Proveedor, Marca=@Marca, UndMed=@UndMed, Articulo=@Articulo, Linea_Sub=@Linea_Sub, Config=@Config, Seguridad=@Seguridad where Personal_Id=@Personal_Id End end if @iaccion=2 Begin Delete usuario where Personal_Id=@Personal_Id End GO /****** Object: StoredProcedure [dbo].[usp_Mant_usuario] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_Mant_usuario] @iAccion INT = 0, @Personal_Id char(6) = null, @Apellido_Paterno varchar(40)=null, @Apellido_Materno varchar(40)=null, @Nombres varchar(50)=null, @Usuario varchar(15)=null, @Pase varchar(15)=null, @lAdministrador int= 0 , @cCodPerfil char(2) = '02', @Validez datetime = null, @AccesoOp int = 0, @UnidOrg char(4)='', @cCodNew char(6) OUTPUT as begin --declare @cCodNew as char(6) Declare @bFlagAdm int SELECT @bFlagAdm= bFlagAdm FROM Perfil WHERE cCodperfil= @ccodPerfil if @iaccion=0 Begin SELECT @cCodNew = RIGHT('000000' + CONVERT(VARCHAR, CONVERT(NUMERIC,ISNULL(MAX(Personal_Id),'0')) + 1),6) FROM usuario INSERT INTO usuario(Personal_Id, Apellido_Paterno,Apellido_Materno,Nombres, Usuario, Pase, lAdministrador, cCodPerfil, Validez, AccesoOp,UnidOrg ) VALUES (@cCodNew, @Apellido_Paterno, @Apellido_Materno, @Nombres, @Usuario, @Pase, @bFlagAdm, @cCodPerfil, @Validez, @AccesoOp,@UnidOrg ) End if @iaccion=1 Begin Update usuario set Apellido_Paterno=@Apellido_Paterno,Apellido_Materno=@Apellido_Materno, Nombres=@Nombres,Usuario=@Usuario,Pase=@Pase, lAdministrador=@bFlagAdm, cCodPerfil=@cCodPerfil, Validez = @Validez, AccesoOp = @AccesoOp , UnidOrg=@UnidOrg where Personal_Id=@Personal_Id End if @iaccion=2 Begin Delete usuario where Personal_Id=@Personal_Id End end GO /****** Object: StoredProcedure [dbo].[usp_Mant_Perfil] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_Mant_Perfil] @iAccion INT = 0, @cCodPerfil char(2) = '', @vDscPerfil varchar(100) = '', @nUsrEst tinyint = 0, @cCodNew char(2) = 0 OUTPUT as begin if @iaccion=0 Begin SELECT @cCodNew = RIGHT('00' + CONVERT(VARCHAR, CONVERT(NUMERIC,ISNULL(MAX(cCodPerfil),'0')) + 1),2) FROM Perfil INSERT INTO Perfil(cCodPerfil, vDscPerfil, nUsrEst) VALUES(@cCodNew, @vDscPerfil, @nUsrEst) End if @iaccion=1 Begin Update Perfil set vDscPerfil=@vDscPerfil, nUsrEst=@nUsrEst where cCodPerfil=@cCodPerfil DELETE FuncionalidadPerfil WHERE cCodPerfil=@cCodPerfil SET @cCodNew=@cCodPerfil End end if @iaccion=2 Begin Delete FuncionalidadPerfil where cCodPerfil=@cCodPerfil Delete Perfil where cCodPerfil=@cCodPerfil End GO /****** Object: StoredProcedure [dbo].[usp_Mant_LugarDespacho] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_Mant_LugarDespacho] @iAccion INT = 0, @nLugarDespacho int = 0, @vDscLugarDespacho varchar(100) = '' as begin if @iaccion=0 Begin declare @nCodNew int SELECT @nCodNew = ISNULL(MAX(nLugarDespacho),0) + 1 FROM LugarDespacho INSERT INTO LugarDespacho(nLugarDespacho,vDscLugarDespacho, nActivo ) VALUES(@nCodNew, @vDscLugarDespacho, 1 ) End if @iaccion=1 Begin Update LugarDespacho set vDscLugarDespacho=@vDscLugarDespacho where nLugarDespacho=@nLugarDespacho End end if @iaccion=2 Begin Declare @ocur int set @ocur=1 Select @ocur= count(*) from Linea Where nLugarDespacho=@nLugarDespacho if @ocur > 0 begin RAISERROR('Imposible Eliminar Categoria de Despacho, existe referencia en Lineas',16,-1) end else begin Delete LugarDespacho where nLugarDespacho=@nLugarDespacho end End GO /****** Object: StoredProcedure [dbo].[usp_Mant_ImprTipDocEst] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO create PROCEDURE [dbo].[usp_Mant_ImprTipDocEst] @nEstacion INT = 0, @cIdTipDoc char(2) = '', @nImpresora int = 0 as begin INSERT INTO ImprTipDocEst(nEstacion, cIdTipDoc, nImpresora) VALUES(@nEstacion, @cIdTipDoc, @nImpresora) End GO /****** Object: StoredProcedure [dbo].[usp_Mant_Impresora] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_Mant_Impresora] @iAccion INT = 0, @nImpresora INT = '', @vDscImpresora varchar(100) = '', @vUNC varchar(100) = '' as begin if @iaccion=0 Begin declare @nCodNew int SELECT @nCodNew = ISNULL(MAX(nImpresora),0) + 1 FROM Impresora INSERT INTO Impresora(nImpresora,vDscImpresora, vUNC ) VALUES(@nCodNew, @vDscImpresora, @vUNC) End if @iaccion=1 Begin Update Impresora set vDscImpresora=@vDscImpresora, vUNC=@vUNC where nImpresora=@nImpresora End end if @iaccion=2 Begin Declare @ocur int set @ocur=1 Select @ocur= count(*) from ImprTipDocEst Where nImpresora=@nImpresora if @ocur > 0 begin RAISERROR('Imposible Eliminar Impresora, existe referencia en Estacion',16,-1) end else begin Delete ImprTipDocEst where nImpresora=@nImpresora Delete Impresora where nImpresora=@nImpresora end End GO /****** Object: StoredProcedure [dbo].[usp_Mant_CentroCostoLocal] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO create PROCEDURE [dbo].[usp_Mant_CentroCostoLocal] @iAccion INT = 0, @IdLocal INT = 0, @cCentroCosto char(10) = '', @cDscLocal varchar(50) = '', @cDireccion varchar(100) = '', @bActivo bit=0 as begin if @iaccion=0 Begin INSERT INTO CentroCostoLocal(IdLocal,cCentroCosto,cDscLocal,cDireccion,bActivo ) VALUES(@IdLocal,@cCentroCosto,@cDscLocal,@cDireccion,@bActivo ) End if @iaccion=1 Begin Update CentroCostoLocal set cCentroCosto=@cCentroCosto, cDscLocal=@cDscLocal, cDireccion=@cDireccion, bActivo=@bActivo where IdLocal=@IdLocal End end if @iaccion=2 Begin Delete From CentroCostoLocal where IdLocal=@IdLocal End GO /****** Object: StoredProcedure [dbo].[usp_Mant_FuncionalidadUsuario1] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[usp_Mant_FuncionalidadUsuario1] @Personal_Id char(6) as delete from FuncionalidadUsuario where Personal_Id=@Personal_Id GO /****** Object: StoredProcedure [dbo].[usp_Mant_FuncionalidadUsuario] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[usp_Mant_FuncionalidadUsuario] @iaccion int = 1, @Personal_Id char(6), @nfuncionalidad integer, @nNivel integer as If @iaccion=1 Begin SELECT Personal_Id, nfuncionalidad, nNivel FROM FuncionalidadUsuario End Else If @iaccion= 2 Begin Delete from FuncionalidadUsuario Where Personal_Id= @Personal_Id and nfuncionalidad= @nfuncionalidad Insert into FuncionalidadUsuario(Personal_Id, nFuncionalidad, nNivel ) values(@Personal_Id, @nfuncionalidad, @nNivel) End GO /****** Object: StoredProcedure [dbo].[usp_Mant_FuncionalidadPerfil] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO create PROCEDURE [dbo].[usp_Mant_FuncionalidadPerfil] @cCodPerfil char(2) = '', @nFuncionalidad int = '', @nNivel tinyint = 0 as begin INSERT INTO FuncionalidadPerfil(cCodPerfil, nFuncionalidad, nNivel) VALUES(@cCodPerfil, @nFuncionalidad, @nNivel) End GO /****** Object: StoredProcedure [dbo].[usp_Mant_FuncionalidadEstacion] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO create PROCEDURE [dbo].[usp_Mant_FuncionalidadEstacion] @nEstacion INT = 0, @nFuncionalidad int = 0, @nNivel tinyint = 0 as begin INSERT INTO FuncionalidadEstacion(nEstacion, nFuncionalidad, nNivel) VALUES(@nEstacion, @nFuncionalidad, @nNivel) End GO /****** Object: StoredProcedure [dbo].[usp_mant_EstacionUsuario1] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO create procedure [dbo].[usp_mant_EstacionUsuario1] @Personal_Id char(6) as delete from personalEstacion where personal_id=@Personal_Id GO /****** Object: StoredProcedure [dbo].[usp_Mant_EstacionUsuario] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO create procedure [dbo].[usp_Mant_EstacionUsuario] @Personal_Id char(6), @nEstacion int as insert into personalEstacion values(@Personal_Id,@nEstacion) GO /****** Object: StoredProcedure [dbo].[usp_Mant_Estacion] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[usp_Mant_Estacion] @iAccion INT = 0, @nEstacion INT = 0, @vDscEstacion varchar(100) = '', @nAmbiente INT = 0, @cCodPerfil char(2) = '', @nFlagActivo tinyint = 0, @cCodNew INT = 0 OUTPUT as begin if @iaccion=0 Begin SELECT @cCodNew = ISNULL(MAX(nEstacion),0) + 1 FROM Estacion INSERT INTO Estacion(nEstacion, vDscEstacion, nAmbiente, cCodPerfil, nFlagActivo) VALUES(@nEstacion, @vDscEstacion, @nAmbiente, @cCodPerfil, @nFlagActivo) End if @iaccion=1 Begin Update Estacion set vDscEstacion=@vDscEstacion, nAmbiente=@nAmbiente, cCodPerfil=@cCodPerfil, nFlagActivo=@nFlagActivo where nEstacion=@nEstacion DELETE FuncionalidadEstacion WHERE nEstacion=@nEstacion DELETE ImprTipDocEst WHERE nEstacion=@nEstacion SET @cCodNew=@nEstacion End end if @iaccion=2 Begin DELETE FuncionalidadEstacion WHERE nEstacion=@nEstacion DELETE ImprTipDocEst WHERE nEstacion=@nEstacion Delete Estacion where nEstacion=@nEstacion End GO /****** Object: Table [dbo].[SubLinea] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO SET ANSI_PADDING OFF GO CREATE TABLE [dbo].[SubLinea]( [vDscSubLn] [varchar](100) NULL, [vCodSubLn] [varchar](30) NOT NULL, [bSwUltimo] [bit] NULL, [cCodLinea] [char](6) NOT NULL ) ON [PRIMARY] SET ANSI_PADDING ON ALTER TABLE [dbo].[SubLinea] ADD [vDscCortaSubLn] [varchar](30) NULL ALTER TABLE [dbo].[SubLinea] ADD PRIMARY KEY NONCLUSTERED ( [vCodSubLn] ASC, [cCodLinea] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] GO SET ANSI_PADDING OFF GO /****** Object: StoredProcedure [dbo].[usp_Log_VTS_VS_CSTS_MENSUALES_Rep] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER OFF GO CREATE Procedure [dbo].[usp_Log_VTS_VS_CSTS_MENSUALES_Rep] @mesI int = 1, @anhoI char(4) = '2006', @mes int = 1, @anho char(4) = '2006', @Usuario varchar(50) = 'admin', @Linea varchar(6) = '*', @SubLinea varchar(6) = '*' As Begin declare @mes1 as varchar(10) declare @nmes1 as int declare @anho1 as char(4) declare @mes2 as varchar(10) declare @nmes2 as int declare @anho2 as char(4) declare @mes3 as varchar(10) declare @nmes3 as int declare @anho3 as char(4) declare @mes4 as varchar(10) declare @nmes4 as int declare @anho4 as char(4) declare @mes5 as varchar(10) declare @nmes5 as int declare @anho5 as char(4) declare @mes6 as varchar(10) declare @nmes6 as int declare @anho6 as char(4) declare @mes7 as varchar(10) declare @nmes7 as int declare @anho7 as char(4) declare @mes8 as varchar(10) declare @nmes8 as int declare @anho8 as char(4) declare @mes9 as varchar(10) declare @nmes9 as int declare @anho9 as char(4) declare @mes10 as varchar(10) declare @nmes10 as int declare @anho10 as char(4) declare @mes11 as varchar(10) declare @nmes11 as int declare @anho11 as char(4) declare @mes12 as varchar(10) declare @nmes12 as int declare @anho12 as char(4) set @nmes12=@mes set @mes12=dbo.GetMes(@nmes12) set @anho12=@anho if (@nmes12-1=0) begin set @nmes11=12 set @anho11=@anho12-1 end ELSE begin set @nmes11=@nmes12-1 set @anho11=@anho12 end set @mes11=dbo.GetMes(@nmes11) if (@nmes11-1=0) begin set @nmes10=12 set @anho10=@anho11-1 end ELSE begin set @nmes10=@nmes11-1 set @anho10=@anho11 end set @mes10=dbo.GetMes(@nmes10) if (@nmes10-1=0) begin set @nmes9=12 set @anho9=@anho10-1 end ELSE begin set @nmes9=@nmes10-1 set @anho9=@anho10 end set @mes9=dbo.GetMes(@nmes9) if (@nmes9-1=0) begin set @nmes8=12 set @anho8=@anho9-1 end ELSE begin set @nmes8=@nmes9-1 set @anho8=@anho9 end set @mes8=dbo.GetMes(@nmes8) if (@nmes8-1=0) begin set @nmes7=12 set @anho7=@anho8-1 end ELSE begin set @nmes7=@nmes8-1 set @anho7=@anho8 end set @mes7=dbo.GetMes(@nmes7) if (@nmes7-1=0) begin set @nmes6=12 set @anho6=@anho7-1 end ELSE begin set @nmes6=@nmes7-1 set @anho6=@anho7 end set @mes6=dbo.GetMes(@nmes6) if (@nmes6-1=0) begin set @nmes5=12 set @anho5=@anho6-1 end ELSE begin set @nmes5=@nmes6-1 set @anho5=@anho6 end set @mes5=dbo.GetMes(@nmes5) if (@nmes5-1=0) begin set @nmes4=12 set @anho4=@anho5-1 end ELSE begin set @nmes4=@nmes5-1 set @anho4=@anho5 end set @mes4=dbo.GetMes(@nmes4) if (@nmes4-1=0) begin set @nmes3=12 set @anho3=@anho4-1 end ELSE begin set @nmes3=@nmes4-1 set @anho3=@anho4 end set @mes3=dbo.GetMes(@nmes3) if (@nmes3-1=0) begin set @nmes2=12 set @anho2=@anho3-1 end ELSE begin set @nmes2=@nmes3-1 set @anho2=@anho3 end set @mes2=dbo.GetMes(@nmes2) if (@nmes2-1=0) begin set @nmes1=12 set @anho1=@anho2-1 end ELSE begin set @nmes1=@nmes2-1 set @anho1=@anho2 end set @mes1=dbo.GetMes(@nmes1) SELECT month(o.dtFechaOper) as MES, dbo.GetMes(month(o.dtFechaOper))+' '+cast(year(o.dtFechaOper) as char(4)) as MESNOMBRE, year(o.dtFechaOper) as ANHO, sum(nQtdVendida*nPrecioUnit) AS VentaTotal, sum(nQtdVendida*nCostoArt) as CostoTotal, @Usuario as Usuario, CASE @Linea WHEN '*' THEN 'Todas' ELSE (Select vDscLinea From Linea where rtrim(ltrim(cCodLinea))=@Linea) END as Linea, CASE @SubLinea WHEN '*' THEN 'No seleccionada' ELSE (Select vDscSubLn From SubLinea where rtrim(ltrim(vCodSubLn))=@SubLinea) END as SubLinea FROM CuentaCte o, CuentaCteD d, Articulo a -- left outer join CuentaCteD d on o.cCodCtaCte=d.cCodCtaCte -- left outer join Articulo a on d.cCodArtic=a.cCodartic WHERE o.cCodCtaCte=d.cCodCtaCte and d.cCodArtic=a.cCodartic and o.bSwAnulado=0 and not o.cCodCaja is null and (o.cIdTipTra='06' or o.cIdTipTra='10') and convert(char(6),o.dtFechaOper,112) between @anhoI+right('00'+cast(@mesI as varchar(2)),2) and @anho12+right('00'+cast(@nmes12 as varchar(2)),2) and (a.cCodLinea=@Linea or @Linea='*') and (a.vCodSubLn=@SubLinea or @SubLinea='*') GROUP BY month(o.dtFechaOper), dbo.GetMes(month(o.dtFechaOper))+' '+cast(year(o.dtFechaOper) as char(4)), year(o.dtFechaOper) order by 3,1 End GO /****** Object: StoredProcedure [dbo].[usp_Log_SubFamilia] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO /********************************************************************** Nombre SP: dbo.usp_Log_SubFamilia Propósito: Mantenimiento de la tabla sublinea Input: @iAccion: Indica la acción que realizara el SP 0: Lista de registros 1: Insertar un registro 2: Actualizar un registro 3: Eliminar un regoistro 4: ... @vDscSubLn: Descripcion @cCodLinea: Codigo Linea @bSwUltimo: Ultimo @iNivel: Nivel @vCodSubLn: Codigo @iError: Error Output: De acuerdo a la accion Creado por: Abel Ramos Fec Creacion: 20/02/2006 **********************************************************************/ CREATE PROCEDURE [dbo].[usp_Log_SubFamilia] @iAccion Int = 0, @vDscSubLn Varchar(100) = Null, @vDscCortaSubLn varchar(30) = null, @cCodLinea Varchar(30) = Null, @bSwUltimo bit = Null, @iNivel Int = Null, @vCodSubLn Varchar(30) = Null, @ActualizaArt tinyint = null --@iError Int = Null Output AS Begin SET NOCOUNT ON declare @iLongCodLinea integer declare @iLongCodSubLinea integer If @iAccion = 0 Begin If @vCodSubLn Is Null Set @vCodSubLn = '*' SELECT * FROM Sublinea WHERE (vCodSubLn = @vCodSubLn Or @vCodSubLn = '*') -- Set @iError = 0 End If @iAccion = 1 Begin --Obtenemos la longitud del codigo de la SUBLINEA para el nivel encontrado Select @iLongCodSubLinea = nNroCarac FROM NivelParametro np, Parametro p WHERE p.cCodParam = 'LINEA' And p.cCodParam = np.cCodParam And np.nNroNivel = @iNivel --Obtenemos el codigo de la SUBLINEA If @iLongCodSubLinea > 0 Begin SELECT @vCodSubLn = @cCodLinea + '.' + right('00000000'+convert(varchar,isnull(convert(numeric,max((right(vCodSubLn,@iLongCodSubLinea)))),0)+1),@iLongCodSubLinea) FROM sublinea HoldLock WHERE vCodSubLn like @cCodLinea + dbo.GetCadena('_',@iLongCodSubLinea+1) End Else Begin SELECT @vCodSubLn = @cCodLinea + '.' + CONVERT(VARCHAR,isnull( max(convert(numeric, reverse(substring(reverse(vCodSubLn),1, charindex('.',reverse(vCodSubLn))-1 )) )) ,0)+1) FROM sublinea HoldLock WHERE vCodSubLn like @cCodLinea + '.%' End --Obtenemos la longitud del codigo de LINEA Select @iLongCodLinea = nmonto1 FROM Parametro WHERE cCodParam = 'LINEA' --Obtenemos el codigo de la LINEA Set @cCodLinea = left(@cCodLinea,@iLongCodLinea) INSERT INTO sublinea (vCodSubLn, vDscSubLn, vDscCortaSubLn, cCodLinea, bSwUltimo) VALUES (@vCodSubLn, @vDscSubLn, @vDscCortaSubLn, @cCodLinea, @bSwUltimo) --Set @iError = @@ERROR End Else If @iAccion = 2 Begin --Obtenemos la longitud del codigo de LINEA Select @iLongCodLinea = nmonto1 FROM Parametro WHERE cCodParam = 'LINEA' --Obtenemos el codigo de la LINEA Set @cCodLinea = left(@cCodLinea,@iLongCodLinea) UPDATE sublinea SET vDscSubLn = @vDscSubLn, vDscCortaSubLn = @vDscCortaSubLn, bSwUltimo = @bSwUltimo WHERE cCodLinea = @cCodLinea And vCodSubLn = @vCodSubLn if @ActualizaArt=1 Begin UPDATE Articulo SET nLugarDespacho=(SELECT nLugarDespacho FROM Linea WHERE cCodLinea=@cCodLinea) WHERE vCodSubLn like @vCodSubLn + '%' AND bFlagVenta=1 End --Set @iError = @@ERROR End Else If @iAccion = 3 Begin Declare @ocur int set @ocur=0 Select @ocur= count(*) from Articulo Where vCodSubLn=@vCodSubLn if @ocur > 0 begin RAISERROR('Imposible Eliminar Linea. Existen referencias',16,-1) end else begin DELETE FROM sublinea WHERE vCodSubLn like @vCodSubLn + '%' end /* --Obtenemos la longitud del codigo de LINEA Select @iLongCodLinea = nmonto1 FROM Parametro WHERE cCodParam = 'LINEA' --Obtenemos el codigo de la LINEA Set @cCodLinea = left(@cCodLinea,@iLongCodLinea) */ -- Set @iError = @@ERROR End SET NOCOUNT OFF End GO /****** Object: StoredProcedure [dbo].[usp_Log_Saldos] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE Procedure [dbo].[usp_Log_Saldos] /* Lista Los Articulos Creado por Diana Valderrama */ @fechaini datetime='20070101', @fechafin datetime='20090101', @Familia char(6)='*', @Usuario varchar(100) = '', @bFlagDesc1 bit = 0, @bFlagDesc2 bit = 0, @cCodAlmac char(2) ='*' As Begin select d.cCodidart, DescArticulo=(Select a.vDscartic from articulo a where a.ccodArtic=d.cCodidart), CodCatalogo=(Select a.cCodCatal from articulo a where a.ccodArtic=d.cCodidart) , UnidMed=(select u.vDscCrta from articulo a left outer join UnidadMedida u on a.cUndSalida=u.cUndmedid where a.cCodartic=d.cCodidart ), SubFamilia=(select s.vDscSubLn from articulo b left outer join sublinea s on b.vCodSubLn=s.vCodSubLn where b.cCodartic=d.cCodidart ), CodSubFamilia=(select s.vCodSubLn from articulo b left outer join sublinea s on b.vCodSubLn=s.vCodSubLn where b.cCodartic=d.cCodidart ), Familia= (select l.vDscLinea from articulo c left outer join Linea l on c.cCodLinea=l.cCodLinea where c.cCodartic=d.cCodidart ), CodFamilia= (select l.cCodLinea from articulo c left outer join Linea l on c.cCodLinea=l.cCodLinea where c.cCodartic=d.cCodidart ), --(isnull((Select sum(nQtdEquiv) from MovAlmacend where nTipMov=1 and cCodidart=d.cCodidart and --cCodMovAl in (Select cCodMovAl from MovAlmacen where convert(datetime, convert(varchar,dtfechMov,102),102) < convert(datetime,@fechaini,102) and nTipMov=1 )),0)) - --(isnull((Select sum(nQtdEquiv) from MovAlmacend where nTipMov=2 and cCodidart=d.cCodidart and --cCodMovAl in (Select cCodMovAl from MovAlmacen where convert(datetime, convert(varchar,dtfechMov,102),102) < convert(datetime,@fechaini,102) and nTipMov=2 )),0)) as SaldoAnterior, SaldoAnterior= ( isnull((select sum(isnull(x.nQtdEquiv,0)) from movalmacen c inner join movalmacend x on c.ntipmov=x.ntipmov and c.ccodmoval=x.ccodmoval where c.ntipmov=1 and x.ccodidart=d.cCodidart and (c.ccodalmac=@cCodAlmac or @cCodAlmac='*') and c.dtfechmov< convert(datetime,@fechaini,102)),0) - isnull((select sum(isnull(x.nQtdEquiv,0)) from movalmacen c inner join movalmacend x on c.ntipmov=x.ntipmov and c.ccodmoval=x.ccodmoval where c.ntipmov=2 and x.ccodidart=d.cCodidart and (c.ccodalmac=@cCodAlmac or @cCodAlmac='*') and c.dtfechmov< convert(datetime,@fechaini,102)),0) ), Entradas= sum(case d.ntipMov when 1 then d.nQtdEquiv else 0 end), Salidas= Sum(case d.ntipMov when 2 then d.nQtdEquiv else 0 end), Saldos = Sum(case d.ntipMov when 1 then d.nQtdEquiv else 0 end)- Sum(case d.ntipMov when 2 then d.nQtdEquiv else 0 end), Empresa=(Select vRazonSocial from Empresa where bSwactivo=1 ) , Usuario=@Usuario , Local=(Select vLocalActivo from Empresa where bSwactivo=1 ), @fechaini As FechaINI, @fechafin as FechaFIN from MovAlmacenD d left outer join movalmacen m on d.ccodmoval=m.ccodmoval and d.nTipMov=m.nTipMov left outer join articulo a on a.ccodartic=d.ccodidart WHERE convert(datetime, convert(varchar,dtfechMov,102),102) between convert(datetime,@fechaini,102) and convert(datetime,@fechafin,102) and (a.cCodLinea= @Familia or @Familia='*') and (m.cCodAlmac=@cCodAlmac or @cCodAlmac='*') group by d.cCodidart having d.cCodidart in (Select cCodartic from articulo --sw where bSwCtrlStck= 1 and bflagDesc =0 ) where bSwCtrlStck= 1 and (bflagDesc = @bFlagDesc1 or bflagDesc = @bFlagDesc2)) End GO /****** Object: StoredProcedure [dbo].[usp_Log_Parametro] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_Log_Parametro] @iAccion Int = 0, @cCodParam Char(6), @nmonto1 Numeric(18,2) = Null, @vtexto1 varchar(50)='', @nNroSubLin Numeric(18,2) = Null --@iError Int = Null Output AS Begin SET NOCOUNT ON Declare @iCantidadArticulos int Declare @iCantidadNivelesOriginal int Declare @iNumeroDigitos int Declare @vCodigoSubLinea Varchar(30) Declare @iAumentaNiveles int Declare @iLongitudCodigoMinima int Declare @cCodArtic char(6) Declare @cCodCatal varchar(50) Declare @vCodSubLn varchar(30) Declare @cCodLinea char(6) Declare @vCodCatalCorrelativo int Declare @nLongitudLineaOriginal numeric(18,2) Declare @vDscLinea varchar(100) Declare @bswultimo bit Declare @nmontoOriginal numeric(18,2) Declare @cCodLinea2 char(6) Declare @vCodSubLn2 varchar(30) Declare @vDscSubLn2 varchar(100) Declare @bswultimo2 bit If @iAccion = 0 Begin --General if @vtexto1<>'' UPDATE parametro SET vtexto1 = @vtexto1 WHERE cCodParam = @cCodParam else UPDATE parametro SET nmonto1 = @nmonto1 WHERE cCodParam = @cCodParam --Set @iError = @@ERROR End Else If @iAccion = 1 Begin --Familia --MANEJO DEL CONSTRAINT /* ALTER TABLE [dbo].[SubLinea] DROP CONSTRAINT [FK__SubLinea__cCodLi] */ --CAMBIOS EN EL NUMERO DE NIVELES --Verificamos si hay articulos Select @iCantidadArticulos = count(*) From articulo If @iCantidadArticulos > 0 Begin --Verificamos si se aumenta y disminuye niveles Select @iCantidadNivelesOriginal = nNroSubLin From parametro Where cCodParam = @cCodParam If not @iCantidadNivelesOriginal = 0 Begin If @nNroSubLin > @iCantidadNivelesOriginal Begin --Se quiere aumentar el numero de niveles --Obtenemos el Numero de digitos para la longitud del que era el ultimo nivel antes Select @iNumeroDigitos = nNroCarac From NivelParametro Where nNroNivel = @iCantidadNivelesOriginal --Modificamos la forma de codigo del ultimo nivel original Update SubLinea Set vCodSubLn = Reverse(Right(reverse(vCodSubLn),len(vCodSubLn)-charindex('.',reverse(vCodSubLn)) + 1 )) + right(dbo.GetCadena('0',@iNumeroDigitos) + reverse(substring(reverse(vCodSubLn),1,charindex('.',reverse(vCodSubLn))-1)), @iNumeroDigitos) Where dbo.GetNivel(vCodSubLn) = @iCantidadNivelesOriginal --Modificamos el codigo de los articulos Update articulo Set vCodSubLn = Reverse(Right( reverse(vCodSubLn) , len(vCodSubLn)-charindex('.',reverse(vCodSubLn)) + 1 )) + right(dbo.GetCadena('0',@iNumeroDigitos) + reverse(substring(reverse(vCodSubLn),1,charindex('.',reverse(vCodSubLn))-1)), @iNumeroDigitos), cCodCatal = Reverse(Right( reverse(vCodSubLn) , len(vCodSubLn)-charindex('.',reverse(vCodSubLn)) + 1 )) + right(dbo.GetCadena('0',@iNumeroDigitos) + reverse(substring(reverse(vCodSubLn),1,charindex('.',reverse(vCodSubLn))-1)), @iNumeroDigitos) + '.' + reverse(substring(reverse(cCodCatal),1,charindex('.',reverse(cCodCatal))-1)) Where dbo.GetNivel(vCodSubLn) = @iCantidadNivelesOriginal End Else If @nNroSubLin < @iCantidadNivelesOriginal Begin --Se quiere disminuir el numero de niveles --Eliminamos niveles que ya no seran necesarios Delete From SubLinea Where dbo.GetNivel(vCodSubLn) > @nNroSubLin IF @nNroSubLin = 0 BEGIN --@nNroSubLin = 0 --Modificamos el codigo de los articulos DECLARE Cur_Articulo CURSOR FOR Select cCodArtic, cCodCatal, vCodSubLn, cCodLinea From articulo Where dbo.GetNivel(vCodSubLn) > 0 OPEN Cur_Articulo FETCH NEXT FROM Cur_Articulo INTO @cCodArtic, @cCodCatal, @vCodSubLn, @cCodLinea WHILE @@FETCH_STATUS = 0 BEGIN --Obtenemos el siguiente codigo de catalogo para un articulo en el nivel nuevo Select @vCodCatalCorrelativo = isnull(max(convert(numeric,reverse(substring(reverse(cCodCatal), 1,charindex('.',reverse(cCodCatal))-1)))),0)+1 From articulo Where cCodLinea = @cCodLinea --Actualizamos el articulo actual Update articulo Set vCodSubLn = Null, cCodCatal = dbo.GetPadre(vCodSubLn,0) + '.' + convert(varchar,@vCodCatalCorrelativo) Where cCodArtic = @cCodArtic FETCH NEXT FROM Cur_Articulo INTO @cCodArtic, @cCodCatal, @vCodSubLn, @cCodLinea END CLOSE Cur_Articulo DEALLOCATE Cur_Articulo END ELSE BEGIN --@nNroSubLin <> 0 --Modificamos la forma de codigo del nuevo ultimo nivel Update SubLinea Set vCodSubLn = dbo.GetPadre(vCodSubLn,@nNroSubLin-1) + '.' + Convert(Varchar,Convert(Numeric,reverse(left(reverse(vCodSubLn),charindex('.',reverse(vCodSubLn))-1 )))) Where dbo.GetNivel(vCodSubLn) = @nNroSubLin --Modificamos el codigo de los articulos de nivel igual al que se quiere actualizat Update articulo Set vCodSubLn = dbo.GetPadre(vCodSubLn,@nNroSubLin-1) + '.' + Convert(Varchar,Convert(Numeric,reverse(left(reverse(vCodSubLn),charindex('.',reverse(vCodSubLn))-1 )))), cCodCatal = dbo.GetPadre(vCodSubLn,@nNroSubLin-1) + '.' + Convert(Varchar,Convert(Numeric,reverse(left(reverse(vCodSubLn),charindex('.',reverse(vCodSubLn))-1 )))) + '.' + Convert(Varchar,Convert(Numeric,reverse(left(reverse(cCodCatal),charindex('.',reverse(cCodCatal))-1 )))) Where dbo.GetNivel(vCodSubLn) = @nNroSubLin --Modificamos el codigo de los articulos de nivel mayor al que se quiere actualizat DECLARE Cur_Articulo CURSOR FOR Select cCodArtic, cCodCatal, vCodSubLn From articulo Where dbo.GetNivel(vCodSubLn) > @nNroSubLin OPEN Cur_Articulo FETCH NEXT FROM Cur_Articulo INTO @cCodArtic, @cCodCatal, @vCodSubLn WHILE @@FETCH_STATUS = 0 BEGIN --Obtenemos el siguiente codigo de catalogo para un articulo en el nivel nuevo Select @vCodCatalCorrelativo = isnull(max(convert(numeric,reverse(substring(reverse(cCodCatal),1,charindex('.',reverse(cCodCatal))-1)))),0)+1 From articulo Where dbo.GetNivel(vCodSubLn) = @nNroSubLin And convert(numeric,reverse(substring(reverse(vCodSubLn),1,charindex('.',reverse(vCodSubLn))-1))) = convert(numeric,reverse(substring(reverse(dbo.GetPadre(@vCodSubLn,@nNroSubLin)),1,charindex('.',reverse(dbo.GetPadre(@vCodSubLn,@nNroSubLin)))-1))) --Actualizamos el articulo actual Update articulo Set vCodSubLn = dbo.GetPadre(vCodSubLn,@nNroSubLin-1) + '.' + Convert(Varchar,Convert(Numeric,reverse(left(reverse(vCodSubLn),charindex('.',reverse(vCodSubLn))-1 )))), cCodCatal = dbo.GetPadre(vCodSubLn,@nNroSubLin-1) + '.' + Convert(Varchar,Convert(Numeric,reverse(left(reverse(vCodSubLn),charindex('.',reverse(vCodSubLn))-1 )))) + '.' + convert(varchar,@vCodCatalCorrelativo) Where cCodArtic = @cCodArtic FETCH NEXT FROM Cur_Articulo INTO @cCodArtic, @cCodCatal, @vCodSubLn END CLOSE Cur_Articulo DEALLOCATE Cur_Articulo END End End End --CAMBIOS EN LA LONGITUD DE LA LINEA UPDATE linea SET cCodLinea = RIGHT('000000' + RTRIM(cCodLinea),@nmonto1) UPDATE subLinea SET cCodLinea = RIGHT('000000' + RTRIM(cCodLinea),@nmonto1), vCodSubLn = right('000000' + substring(vCodSubLn, 1, charindex('.',vCodSubLn)-1),@nmonto1) + '.' + right(vCodSubLn, len(vCodSubLn)-charindex('.',vCodSubLn)) UPDATE articulo SET cCodLinea = RIGHT('000000' + RTRIM(cCodLinea),@nmonto1), vCodSubLn = right('000000' + substring(vCodSubLn, 1, charindex('.',vCodSubLn)-1),@nmonto1) + '.' + right(vCodSubLn, len(vCodSubLn)-charindex('.',vCodSubLn)), cCodCatal = right('000000' + substring(cCodCatal, 1, charindex('.',cCodCatal)-1),@nmonto1) + '.' + right(cCodCatal, len(cCodCatal)-charindex('.',cCodCatal)) UPDATE parametro SET nmonto1 = @nmonto1, nNroSubLin = @nNroSubLin WHERE cCodParam = @cCodParam /* --MANEJO DEL CONSTRAINT ALTER TABLE [dbo].[SubLinea] ADD CONSTRAINT [FK__SubLinea__cCodLi] FOREIGN KEY ( [cCodLinea] ) REFERENCES [dbo].[Linea] ( [cCodLinea] ) */ End Else If @iAccion = 2 Begin --Consulta devuelve: CantidadNivelesOriginal, CantidadNivelesNuevo, AumentaNiveles,LongitudCodigoMinima --Verificamos si se aumenta o disminuye niveles Select @iCantidadNivelesOriginal = nNroSubLin From parametro Where cCodParam = @cCodParam If @nNroSubLin > @iCantidadNivelesOriginal Begin --Se quiere aumentar el numero de niveles Set @iAumentaNiveles = 1 --Obtenemos el numero de digitos del maximo valor del codigo de la ultima sublinea original Select @iLongitudCodigoMinima = len(CONVERT(VARCHAR,isnull(max(convert(numeric, reverse( substring(reverse(vCodSubLn),1,charindex('.',reverse(vCodSubLn))-1) ) )) ,0))) From Sublinea Where dbo.GetNivel(vCodSubLn) = @iCantidadNivelesOriginal End Else Begin Set @iAumentaNiveles = 0 End Select @iCantidadNivelesOriginal CantidadNivelesOriginal, @nNroSubLin CantidadNivelesNuevo, @iAumentaNiveles AumentaNiveles, @iLongitudCodigoMinima LongitudCodigoMinima End SET NOCOUNT OFF End GO /****** Object: StoredProcedure [dbo].[usp_Log_NivelParametro] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[usp_Log_NivelParametro] @iAccion Int = 0, @cCodParam char(6) = Null, @nNroNivel Numeric(18,2) = Null, @nNroCarac Numeric(18,2) = Null --@iError Int = Null Output AS Begin SET NOCOUNT ON If @iAccion = 1 Begin Insert into NivelParametro (cCodParam, nNroNivel, nNroCarac) Values (@cCodParam, @nNroNivel, @nNroCarac) --Set @iError = @@ERROR End Else If @iAccion = 3 Begin Delete From NivelParametro Where cCodParam = @cCodParam --Set @iError = @@ERROR End Else If @iAccion = 4 Begin --Proceso que modifica la longitud de codigo en un nivel determinado --Actualizamos las sublineas Update Sublinea Set vCodSubLn = dbo.ModificaLongitudCodigoNivel(vCodSubLn, @nNroNivel, @nNroCarac) Where dbo.GetNivel(vCodSubLn)>=@nNroNivel --Actualizamos los articulos Update articulo Set vCodSubLn = dbo.ModificaLongitudCodigoNivel(vCodSubLn, @nNroNivel, @nNroCarac), cCodCatal = dbo.ModificaLongitudCodigoNivel(vCodSubLn, @nNroNivel, @nNroCarac) + '.' + dbo.GetCodigoNivel(cCodCatal,dbo.GetNivel(cCodCatal)) Where dbo.GetNivel(vCodSubLn)>=@nNroNivel End SET NOCOUNT OFF End GO /****** Object: StoredProcedure [dbo].[usp_Log_Kardex_rep] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO --sw Avance_nuevo_usp_Log_Kardex_rep CREATE PROCEDURE [dbo].[usp_Log_Kardex_rep] @fechaini datetime='20060101', @fechafin datetime='20061210', @Familia char(6)='*', @articulo char(6) ='000612', @ensamblado int = 3, @clienteprove char(15)= '*', @usuario char(6) = '*', @Almacen char(2) = '*', @nTipMov int = 3, @cIdTipTra char(2)='*', @SubFamilia varchar(30)='*' AS BEGIN SELECT k.nTipMov as TipoMovimiento, k.cCodProve, k.cCodAlmac as CodAlmacen, CASE @Almacen WHEN '*' THEN 'Todos' ELSE (SELECT vDscAlmac FROM almacen WHERE cCodAlmac=@Almacen) END As Almacen, k.dtFechaMov, (SELECT TOP 1 cCodUsrRg FROM MovAlmacen WHERE k.cCodMovAl=cCodMovAl) AS CodUsuario, (SELECT TOP 1 IsNull(Apellido_Paterno, '') + ' ' + IsNull(Apellido_Materno, '') + ' ' + IsNull(Nombres, '') FROM usuario WHERE Personal_Id = (SELECT top 1 cCodUsrRg FROM MovAlmacen WHERE k.cCodMovAl=cCodMovAl) ) as usuario, k.cIdTipTra as CodTipoTransaccion, (SELECT cDscTrans FROM TipoTransaccion WHERE cIdTipTra = k.cIdTipTra) As TipoTransaccion, k.cIdTipDoc as CodTipoDocumento, (SELECT cAbrevDoc FROM TipoDocumento WHERE cIdTipDoc = k.cIdTipDoc ) As TipoDocumento , CASE WHEN LEN(k.cSerieDocRef) > 0 THEN (k.cSerieDocRef + '-' + k.cDocRefer) ELSE (k.cSerieDocRef + k.cDocRefer) END As NroDocumento, CASE WHEN (Select cproveedor_nombre from _Proveedor Where cproveedor_id = rtrim(lTrim(k.cCodProve))) is Null THEN k.vContProv ELSE (Select cproveedor_nombre from _Proveedor Where cproveedor_id = rtrim(lTrim(k.cCodProve))) END As Cliente_Prov, k.cCodidart as CodigoArticulo, CASE k.nTipMov WHEN 1 THEN (SELECT cUndCompr FROM Articulo WHERE cCodArtic=k.cCodidart) WHEN 2 THEN (SELECT cUndSalida FROM Articulo WHERE cCodArtic=k.cCodidart) ELSE null END As CodUnidadMedida, (SELECT vDscCrta FROM UnidadMedida WHERE cUndmedid=(SELECT top 1 cUndSalida FROM Articulo WHERE cCodArtic=k.cCodidart)) as UnidadMedida, a.vDscartic as DescripcionArticulo, a.cCodCatal as CodigoArticuloCatalogo, a.CCodLinea as CodigoLinea, (SELECT vDscLinea FROM linea WHERE cCodLinea= a.cCodLinea) as linea, a.bSwEnsamb as Ensamblado, nCantidad as InventarioInicial, CASE k.nTipMov WHEN 1 THEN ncantidadIng ELSE null END As Ingreso, CASE k.nTipMov WHEN 2 THEN ncantidadSal ELSE null END As Salida, (convert(char(4), year(@fechaini)) + '-' + right('00' + rtrim(ltrim(convert(char(2), month(@fechaini)))),2)) As Fechaini, (convert(char(4), year(@fechafin)) + '-' + right('00' + rtrim(ltrim(convert(char(2), month(@fechafin)))),2)) As Fechafin, CASE @Familia WHEN '*' THEN 'Todos' ELSE (SELECT vDscLinea FROM linea WHERE cCodLinea=@Familia) END As pFamilia, CASE @articulo WHEN '*' THEN 'Todos' ELSE a.vDscartic END As pArticulo, CASE @ensamblado WHEN 3 THEN 'Todos' WHEN 1 THEN 'Ensamblado' END As pEnsamblado, CASE @clienteprove WHEN '*' THEN 'Todos' ELSE @clienteprove END As pClienteProve, CASE @usuario WHEN '*' THEN 'Todos' ELSE (SELECT IsNull(Apellido_Paterno, '') + ' ' + IsNull(Apellido_Materno, '') + ' ' + IsNull(Nombres, '') FROM usuario WHERE Personal_Id = (SELECT top 1 cCodUsrRg FROM MovAlmacen WHERE k.cCodMovAl=cCodMovAl)) END As pUsuario, CASE @Almacen WHEN '*' THEN 'Todos' ELSE (SELECT vDscAlmac FROM Almacen WHERE cCodAlmac=@Almacen) END As pAlmacen, CASE @nTipMov WHEN 3 THEN 'Todos' WHEN 1 THEN 'Ingreso' WHEN 2 THEN 'Salida' END As pTipMov, CASE @cIdTipTra WHEN '*' THEN 'Todos' ELSE (SELECT cDscTrans FROM TipoTransaccion WHERE cIdTipTra= @cIdTipTra) END As pTipTrans, CASE iFlagInventario WHEN 1 THEN 'Invent. Inicial ' + CONVERT(CHAR(4), ianho) + '-' + ( CASE Iperiodo WHEN 1 THEN 'Enero' WHEN 2 THEN 'Febrero' WHEN 3 THEN 'Marzo' WHEN 4 THEN 'Abril' WHEN 5 THEN 'Mayo' WHEN 6 THEN 'Junio' WHEN 7 THEN 'Julio' WHEN 8 THEN 'Agosto' WHEN 9 THEN 'Setiembre' WHEN 10 THEN 'Octubre' WHEN 11 THEN 'Noviembre' WHEN 12 THEN 'Diciembre' END) WHEN 2 THEN 'Inventario Final ' + CONVERT(CHAR(4), ianho) + '-' + ( CASE Iperiodo WHEN 1 THEN 'Enero' WHEN 2 THEN 'Febrero' WHEN 3 THEN 'Marzo' WHEN 4 THEN 'Abril' WHEN 5 THEN 'Mayo' WHEN 6 THEN 'Junio' WHEN 7 THEN 'Julio' WHEN 8 THEN 'Agosto' WHEN 9 THEN 'Setiembre' WHEN 10 THEN 'Octubre' WHEN 11 THEN 'Noviembre' WHEN 12 THEN 'Diciembre' END) ELSE CASE WHEN (isnull(K.cCodProve,'0')= '0' OR k.nTipMov=2 )THEN K.vContProv ELSE (SELECT cproveedor_nombre FROM _proveedor WHERE cproveedor_id=k.cCodprove )END END as entidad, CASE @SubFamilia WHEN '*' THEN 'Todos' ELSE (SELECT vDscSubLn FROM SubLinea WHERE vCodSubLn=@SubFamilia) END As pSubFamilia, a.bFlagDesc FROM KARDEX k LEFT OUTER JOIN Articulo a ON a.cCodartic= k.cCodidart WHERE (a.cCodLinea= @Familia OR @Familia='*') AND (k.cCodidart= @articulo OR @articulo='*') AND (a.bswEnsamb= @ensamblado OR @ensamblado=3) AND (@usuario IN (SELECT cCodUsrRg FROM MovAlmacen WHERE k.cCodMovAl = cCodMovAl) Or @usuario = '*' ) /*AND (k.cCodMovAl In (SELECT cCodMovAl FROM MovAlmacen WHERE cCodUsrRg = =@usuario Or @usuario = '*' ))*/ AND (k.cCodAlmac = @Almacen Or @Almacen='*') AND (k.cCodProve = rtrim(ltrim(@clienteprove)) or (@clienteprove='*')) AND ((k.nTipMov = @nTipMov) or @nTipMov=3 ) AND ((k.cIdTipTra = @cIdTipTra) Or @cIdTipTra ='*' ) AND ((K.ianho > year(@fechaini) Or (k.ianHo = year(@fechaini) AND iperiodo >= month(@fechaini))) AND (K.ianho < year(@fechafin) Or (k.ianHo = year(@fechafin) AND iperiodo <= month(@fechafin)))) AND (a.vCodSubLn= @SubFamilia OR @SubFamilia='*') ORDER BY k.cCodidart, k.ianho, k.iperiodo, k.iItm END GO /****** Object: StoredProcedure [dbo].[usp_Log_Familia] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER ON GO /********************************************************************** Nombre SP: dbo.usp_Log_Familia Propósito: Mantenimiento de la tabla linea Input: @iAccion: Indica la acción que realizara el SP 0: Lista de registros 1: Insertar un registro 2: Actualizar un registro 3: Eliminar un registro 4: ... @vDscLinea: Descripcion @bswultimo: Ultimo @cCodLinea: Codigo @iError: Error Output: De acuerdo a la accion Creado por: Abel Ramos Fec Creacion: 20/02/2006 **********************************************************************/ CREATE PROCEDURE [dbo].[usp_Log_Familia] @iAccion Int = 0, @vDscLinea Varchar(100) = Null, @vDscCortaLinea Varchar(30) = null, @bswultimo bit = Null, @cCodLinea Char(6) = Null, @nLugarDespacho int = Null, @ActualizaArt tinyint = null --@iError Int = Null Output AS Begin SET NOCOUNT ON If @iAccion = 0 Begin If @cCodLinea Is Null Set @cCodLinea = '*' SELECT * FROM linea WHERE (cCodLinea = @cCodLinea Or @cCodLinea = '*') -- Set @iError = 0 End If @iAccion = 1 Begin --Obtenemos la longitud del codigo de LINEA declare @iLongCodLinea integer Select @iLongCodLinea = nmonto1 FROM Parametro WHERE cCodParam = 'LINEA' SELECT @cCodLinea = RIGHT('000000' + CONVERT(VARCHAR, ISNULL(MAX(CONVERT(INT, cCodLinea)), 0) + 1), @iLongCodLinea) FROM linea HoldLock INSERT INTO linea (cCodLinea, vDscLinea, vDscCortaLinea, bswultimo, nLugarDespacho) VALUES (@cCodLinea, @vDscLinea, @vDscCortaLinea, @bswultimo, @nLugarDespacho) /* --Obtenemos la longitud del codigo de la SUBLINEA declare @iLongCodSubLinea int declare @vCodSubLn varchar(30) Select @iLongCodSubLinea = nmonto1 FROM Parametro WHERE cCodParam = 'SUBL' --Obtenemos el codigo de la SUBLINEA SELECT @vCodSubLn = @cCodLinea + '.' + right('00000000'+convert(varchar,isnull(convert(numeric,max((right(vCodSubLn,@iLongCodSubLinea)))),0)+1),@iLongCodSubLinea) FROM sublinea HoldLock WHERE vCodSubLn like @cCodLinea + dbo.GetCadena('_',@iLongCodSubLinea+1) --Insertamos una sublinea inicial INSERT INTO sublinea (vCodSubLn, vDscSubLn, cCodLinea, bSwUltimo) VALUES (@vCodSubLn,'NO DEFINIDO',@cCodLinea,1)*/ --Set @iError = @@ERROR End Else If @iAccion = 2 Begin UPDATE Linea SET vDscLinea = @vDscLinea, vDscCortaLinea = @vDscCortaLinea, nLugarDespacho = @nLugarDespacho, bswultimo = @bswultimo WHERE cCodLinea = @cCodLinea if @ActualizaArt=1 Begin UPDATE Articulo SET nLugarDespacho=@nLugarDespacho WHERE rtrim(ltrim(cCodLinea))=@cCodLinea AND bFlagVenta=1 End --Set @iError = @@ERROR End Else If @iAccion = 3 Begin Declare @ocur1 int Declare @ocur2 int set @ocur1=0 set @ocur2=0 Select @ocur1= count(*) from Articulo Where cCodLinea=@cCodLinea Select @ocur2= count(*) from Atributo Where cCodLinea=@cCodLinea if @ocur1 + @ocur2 > 0 begin RAISERROR('Imposible Eliminar Linea. Existen referencias',16,-1) end else begin DELETE FROM Sublinea WHERE cCodLinea = @cCodLinea DELETE FROM Linea WHERE cCodLinea = @cCodLinea end -- Set @iError = @@ERROR End SET NOCOUNT OFF End GO /****** Object: StoredProcedure [dbo].[usp_Log_ArticulosPrecios_Rep] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE Procedure [dbo].[usp_Log_ArticulosPrecios_Rep] /* Lista Los PRECIOS DE LOS ARTICULOS POR FAMILIA Y SUBFAMILIA Repórte LISTA DE PRECIOS DE PRODUCTOS Creado por Diana Valderrama */ @Familia varchar(6) = '*', @Almacen char(2) ='01', @Usuario varchar(100) = '' As Begin SELECT a.*, u.VdscCrta as UndMed,a.vDscartic as articulo,a.cCodcatal, ArticuloUndMed= (Select u.vDscCrta From articulo k Left outer join UnidadMedida u On a.cUndSalida=cUndMedid Where k.ccodArtic=a.cCodartic), Familia= (Select l.vDscLinea From articulo c Left outer join Linea l On c.cCodLinea=l.cCodLinea Where c.cCodartic=a.cCodartic ), CodFamilia= (Select l.cCodLinea From articulo c Left outer join Linea l On c.cCodLinea=l.cCodLinea Where c.cCodartic=a.cCodartic ), SubFamilia=(Select s.vDscSubLn From articulo b Left outer join sublinea s On b.vCodSubLn=s.vCodSubLn Where b.cCodartic=a.cCodartic ), CodSubFamilia=(Select s.vCodSubLn From articulo b Left outer join sublinea s On b.vCodSubLn=s.vCodSubLn Where b.cCodartic=a.cCodartic ), Empresa=(Select vRazonSocial From Empresa Where bSwactivo=1 ) , Usuario=@Usuario , 'Local'=(Select vLocalActivo From Empresa Where bSwactivo=1 ), Precio= (Select nPrecioVtaNew From ArticuloPrecioVenta Where cCodartic=a.cCodartic and nNumitem= (Select max(nNumitem) From ArticuloPrecioVenta Where cCodartic=a.cCodartic)), M='S', Saldo=(Select isnull(nStockAl,0) From ArticuloAlmacen Where cCodAlmac=@Almacen and cCodartic=a.cCodartic) , bFlagDesc FROM ARTICULO a LEFT OUTER JOIN unidadmedida u ON a.cUndSalida= u.cUndMedid Where ((select l.cCodLinea from articulo c left outer join Linea l on c.cCodLinea=l.cCodLinea where c.cCodartic=a.cCodartic )= @Familia or @Familia='*') -- AND bFlagDesc= 0 AND bFlagVenta= 1 order by familia, a.cCodcatal End GO /****** Object: StoredProcedure [dbo].[usp_Log_ArticulosInventario_Rep] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE Procedure [dbo].[usp_Log_ArticulosInventario_Rep] /* Lista Los PRECIOS DE LOS ARTICULOS POR FAMILIA Y SUBFAMILIA Repórte LISTA DE PRECIOS DE PRODUCTOS Creado por Diana Valderrama */ @Familia varchar(6) = '*', @Almacen char(2) ='01', @Usuario varchar(100) = '' As Begin SELECT a.*, u.VdscCrta as UndMed,a.vDscartic as articulo,a.cCodcatal, ArticuloUndMed= (Select u.vDscCrta From articulo k Left outer join UnidadMedida u On a.cUndSalida=cUndMedid Where k.ccodArtic=a.cCodartic), Familia= (Select l.vDscLinea From articulo c Left outer join Linea l On c.cCodLinea=l.cCodLinea Where c.cCodartic=a.cCodartic ), CodFamilia= (Select l.cCodLinea From articulo c Left outer join Linea l On c.cCodLinea=l.cCodLinea Where c.cCodartic=a.cCodartic ), SubFamilia=(Select s.vDscSubLn From articulo b Left outer join sublinea s On b.vCodSubLn=s.vCodSubLn Where b.cCodartic=a.cCodartic ), CodSubFamilia=(Select s.vCodSubLn From articulo b Left outer join sublinea s On b.vCodSubLn=s.vCodSubLn Where b.cCodartic=a.cCodartic ), Empresa=(Select vRazonSocial From Empresa Where bSwactivo=1 ) , Usuario=@Usuario , 'Local'=(Select vLocalActivo From Empresa Where bSwactivo=1 ), Precio= (Select nPrecioVtaNew From ArticuloPrecioVenta Where cCodartic=a.cCodartic and nNumitem= (Select max(nNumitem) From ArticuloPrecioVenta Where cCodartic=a.cCodartic)), M='S', Saldo=(Select isnull(nStockAl,0) From ArticuloAlmacen Where cCodAlmac=@Almacen and cCodartic=a.cCodartic) , bFlagDesc, ParametroFamilia=@Familia FROM ARTICULO a LEFT OUTER JOIN unidadmedida u ON a.cUndSalida= u.cUndMedid Where ((select l.cCodLinea from articulo c left outer join Linea l on c.cCodLinea=l.cCodLinea where c.cCodartic=a.cCodartic )= @Familia or @Familia='*') -- AND bFlagDesc= 0 AND bFlagVenta= 0--1 order by familia, a.cCodcatal End GO /****** Object: StoredProcedure [dbo].[usp_Log_ArticulosEnsamblado] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE Procedure [dbo].[usp_Log_ArticulosEnsamblado] /* Lista Los Articulos por recetas Repórte Informe de productos con recetas Creado por Diana Valderrama */ @Familia char(6)='*', @Usuario varchar(100) = '' As Begin SELECT e.*, u.VdscCrta as UndMed,a.vDscartic as INSUMO,a.cCodcatal, Articulo_principal= (Select a.vDscartic from articulo a where a.ccodArtic=e.cCodartic), Articulo_principalCodCatalog= (Select a.cCodcatal from articulo a where a.ccodArtic=e.cCodartic), Articulo_principalUndMed= (Select u.vDscCrta from articulo a Left outer join UnidadMedida u ON a.cUndSalida=cUndMedid where a.ccodArtic=e.cCodartic), SubFamilia=(select s.vDscSubLn from articulo b left outer join sublinea s on b.vCodSubLn=s.vCodSubLn where b.cCodartic=e.cCodartic ), CodSubFamilia=(select s.vCodSubLn from articulo b left outer join sublinea s on b.vCodSubLn=s.vCodSubLn where b.cCodartic=e.cCodartic ), Familia= (select l.vDscLinea from articulo c left outer join Linea l on c.cCodLinea=l.cCodLinea where c.cCodartic=e.cCodartic ), CodFamilia= (select l.cCodLinea from articulo c left outer join Linea l on c.cCodLinea=l.cCodLinea where c.cCodartic=e.cCodartic ), Empresa=(Select vRazonSocial from Empresa where bSwactivo=1 ) , Usuario=@Usuario , Local=(Select vLocalActivo from Empresa where bSwactivo=1 ) , bDescontinuado = (Select a.bFlagDesc from articulo a where a.ccodArtic=e.cCodartic) FROM ARTICULOENSAMBLADO e left outer join unidadmedida u ON e.cUndMedEn= u.cUndMedid left outer join articulo a ON e.cCodarten= a.cCodartic where (select l.cCodLinea from articulo c left outer join Linea l on c.cCodLinea=l.cCodLinea where c.cCodartic=e.cCodartic )=@Familia or @Familia = '*' order by e.cCodartic, nItmensanb End GO /****** Object: StoredProcedure [dbo].[usp_Mant_Articulo_Costo_Promedio] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE Procedure [dbo].[usp_Mant_Articulo_Costo_Promedio] ( @iaccion int, @nNmtItmMv numeric (18,0), @cCodMovAl char(10), @nTipMov tinyint, @cCodArtic char(6), @cCodAlmac char(2), @dtFechareg datetime, @dtFechamov datetime, @nCostoArt numeric(18,4), @Stock numeric(18,4) ) As Begin if @iaccion=0 begin Declare @CalcCostoProm numeric(18,4), @AnteriorCostoArt numeric(18,4), @AnteriorStock numeric(18,4), @cSecuencia int set @CalcCostoProm =0 set @AnteriorCostoArt=0 set @AnteriorStock =0 set @cSecuencia=0 select top 1 @cSecuencia = isnull(max(cSecuencia),0)+1 from Articulo_Costo_Promedio select top 1 @AnteriorCostoArt = isnull(nCostoArt,0), @AnteriorStock = isnull(Stock,0) from Articulo_Costo_Promedio where cCodArtic=@cCodArtic and cCodAlmac=@cCodAlmac order by cSecuencia desc set @CalcCostoProm = ((@AnteriorCostoArt * @AnteriorStock)+(@nCostoArt*@Stock))/(@AnteriorStock+@Stock) insert Articulo_Costo_Promedio (cSecuencia,nNmtItmMv,cCodMovAl ,nTipMov,cCodArtic,cCodAlmac ,dtFechaReg,dtFechamov,nCostoArt ,nCostoProm,Stock) values (@cSecuencia,@nNmtItmMv,@cCodMovAl ,@nTipMov,@cCodArtic,@cCodAlmac ,@dtFechareg,@dtFechamov,@nCostoArt ,@CalcCostoProm,@Stock) End End GO /****** Object: StoredProcedure [dbo].[usp_Mant_AmbienteLineaProd] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_Mant_AmbienteLineaProd] @nAmbiente INT = 0, @cCodLinea char(6) = '', @vCodSubLn varchar(100) = '', @cProdCode char(6) = '', @cDscTecla varchar(30) = '', @nFlagFrecuente tinyint = 0 as begin INSERT INTO AmbienteLineaProd(nAmbiente, cCodLinea, vCodSubLn, cProdCode, cDscTecla, nFlagFrecuente) VALUES(@nAmbiente, @cCodLinea, @vCodSubLn, @cProdCode, @cDscTecla, @nFlagFrecuente) End GO /****** Object: StoredProcedure [dbo].[usp_Mant_AmbienteLinea] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO create PROCEDURE [dbo].[usp_Mant_AmbienteLinea] @nAmbiente INT = 0, @cCodLinea char(6) = '', @nFlagActivo tinyint = 0 as begin INSERT INTO AmbienteLinea(nAmbiente, cCodLinea, nFlagActivo) VALUES(@nAmbiente, @cCodLinea, @nFlagActivo) End GO /****** Object: StoredProcedure [dbo].[usp_Mant_Ambiente] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[usp_Mant_Ambiente] @iAccion INT = 0, @nAmbiente INT = 0, @sDscBreveAmb varchar(50) = '', @sDscAmbiente varchar(100) = '', @cCodRespon char(6) = '', @nFlagActivo tinyint = 0, @cCodNew INT = 0 OUTPUT as begin if @iaccion=0 Begin SELECT @cCodNew = ISNULL(MAX(nAmbiente),0) + 1 FROM Ambiente INSERT INTO Ambiente(nAmbiente, sDscBreveAmb, sDscAmbiente, cCodRespon, nFlagActivo) VALUES(@cCodNew, @sDscBreveAmb, @sDscAmbiente, @cCodRespon, @nFlagActivo) End if @iaccion=1 Begin Update Ambiente set sDscBreveAmb=@sDscBreveAmb, sDscAmbiente=@sDscAmbiente, cCodRespon=@cCodRespon, nFlagActivo=@nFlagActivo where nAmbiente=@nAmbiente DELETE AmbienteLinea WHERE nAmbiente=@nAmbiente SET @cCodNew=@nAmbiente End end if @iaccion=2 Begin Declare @ocur int set @ocur=0 Select @ocur= count(*) from Estacion Where nAmbiente=@nAmbiente if @ocur > 0 begin RAISERROR('Imposible Eliminar Ambiente. Existen referencias',16,-1) end else begin Delete AmbienteLineaProd where nAmbiente=@nAmbiente Delete AmbienteLinea where nAmbiente=@nAmbiente Delete Ambiente where nAmbiente=@nAmbiente end End GO /****** Object: StoredProcedure [dbo].[usp_Mant_Almacen] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_Mant_Almacen] @iAccion INT = 0, @cCodAlmac char(4) = '', @vDscAlmac varchar(30) = '', @cCodNewAlm CHAR(4) = '' OUTPUT as begin if @iaccion=0 Begin SELECT @cCodNewAlm = RIGHT('00' + CONVERT(VARCHAR, CONVERT(NUMERIC,ISNULL(MAX(cCodAlmac),'0')) + 1),2) FROM Almacen INSERT INTO Almacen(cCodAlmac,vDscAlmac) VALUES(@cCodNewAlm,@vDscAlmac ) End if @iaccion=1 Begin Update Almacen set vDscAlmac=@vDscAlmac where cCodAlmac=@cCodAlmac End end if @iaccion=2 Begin Declare @ocur int set @ocur=1 Select @ocur= count(*) from ArticuloAlmacen Where cCodAlmac=@cCodAlmac if @ocur > 0 begin RAISERROR('Imposible Eliminar Almacen. Existen referencias',16,-1) end else begin Delete Almacen where cCodAlmac=@cCodAlmac end End GO /****** Object: StoredProcedure [dbo].[usp_Limpia_Tablas] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[usp_Limpia_Tablas] AS /* Este store limpia las tablas cuyo origen de datos es externo, para ser actualizadas por el DTS Migra _data_BISALOG Creado por Diana Valderrama Dic 2005*/ Truncate table pccosto truncate table MOficinas --truncate table TMONEDAS truncate table TFPAGO truncate table PRP_PRY truncate table TT_CAMBIO --Delete from Personal truncate table _articulos GO /****** Object: StoredProcedure [dbo].[usp_Log_ProyectoList] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE Procedure [dbo].[usp_Log_ProyectoList] /* Lista Los proyectos segun su año Creado por Diana Valderrama Dic 2005*/ @Accion Int = 0, @cCidPry char(6) = '*', @cAnho char(4)='*' As Begin If @cAnho='*' Begin Select @cAnho = cast(year(getdate()) as char(4)) from prp_pry End If @Accion = 0 Begin SELECT 'Codigo ' = cCidPry, 'Proyecto ' = sTitPry , Año= cAnho FROM prp_pry WHERE ((cAnho = @cAnho) and (cCIdPry = @cCIdPry)) OR (@cCidPry = '*') End End GO /****** Object: StoredProcedure [dbo].[usp_Log_ProveedorList] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE Procedure [dbo].[usp_Log_ProveedorList] /* Lista Los Proveedores Creado por Diana Valderrama */ @Accion Int = 0, @cRucProve char(15) = '*' As Begin If @Accion = 0 Begin SELECT ' RUC ' = cproveedor_ruc, ' Razón social ' = cproveedor_nombre FROM _Proveedor WHERE (cproveedor_ruc = @cRucProve OR @cRucProve = '*') End End GO /****** Object: StoredProcedure [dbo].[usp_Log_DescuentosRepOLD] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[usp_Log_DescuentosRepOLD] @fechaini char(8)='20110111', @fechafin char(8)='20110505', @cCodCaja varchar (10)='%', @cTipoDoc varchar(8) ='%' as select fechaini=@fechaini, fechafin=@fechafin, c.dtfechaoper, c.cCodCaja, cSerieDoc, cNroDoc, cCodMone, importedescuento= case when nPrecioOrig<nPrecioUnit then (nPrecioUnit-nPrecioOrig)*nQtdVendida else case when nPrecioOrig>nPrecioUnit then ((nPrecioOrig-nPrecioUnit)*nQtdVendida)*-1 end end, nPorcDscto, d.cCodArtic, sProdDscCrta, d.cSupervisor, c.dtFechaOper, --c.vNomClie vNomClie= case c.cTipoDoc when '10' then isnull((select sGlosa from operacionparalela where cDocTipo='10' and cDocSerie=c.cseriedoc and cDocCodigo=cNroDoc),'') else case c.vCliecod when 0 then isnull(c.cRucClie,'') else vNomClie end end from cuentacte c inner join cuentacted d on c.cCodctaCte=d.cCodctaCte where d.nporcdscto<>0 and convert(varchar,dtfechaoper,112)>=@fechaini and convert(varchar,dtfechaoper,112)<=@fechafin and cCodCaja like '%'+@cCodCaja+'%' and c.cTipoDoc like '%'+@cTipoDoc+'%' GO /****** Object: StoredProcedure [dbo].[usp_Log_DescuentosRep] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO create procedure [dbo].[usp_Log_DescuentosRep] @fechaini char(8)='20110111', @fechafin char(8)='20110505', @cCodCaja varchar (10)='%', @cTipoDoc varchar(8) ='%' as select fechaini=@fechaini, fechafin=@fechafin, c.dtfechaoper, c.cCodCaja, cSerieDoc, cNroDoc, cCodMone, importedescuento= case when nPrecioOrig<nPrecioUnit then (nPrecioUnit-nPrecioOrig)*nQtdVendida else case when nPrecioOrig>nPrecioUnit then ((nPrecioOrig-nPrecioUnit)*nQtdVendida)*-1 end end, nPorcDscto, d.cCodArtic, sProdDscCrta, d.cSupervisor, c.dtFechaOper, --c.vNomClie vNomClie= case c.cTipoDoc when '10' then isnull((select sGlosa from operacionparalela where cDocTipo='10' and cDocSerie=c.cseriedoc and cDocCodigo=cNroDoc),'') else case c.vCliecod when 0 then isnull(c.cRucClie,'') else vNomClie end end from cuentacte c inner join cuentacted d on c.cCodctaCte=d.cCodctaCte where d.nporcdscto<>0 and convert(varchar,dtfechaoper,112)>=@fechaini and convert(varchar,dtfechaoper,112)<=@fechafin and cCodCaja like '%'+@cCodCaja+'%' and c.cTipoDoc like '%'+@cTipoDoc+'%' GO /****** Object: StoredProcedure [dbo].[usp_Log_CentroCostoList] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE Procedure [dbo].[usp_Log_CentroCostoList] /* Lista Los Centros de Responsabilidad Creado por Diana Valderrama */ @Accion Int = 0, @cid_cCosto char(6) = '*' As Begin If @Accion = 0 Begin SELECT Codigo = cid_cCosto, 'Centro de Responsabilidad' = cnomb_cc, Año = cejercicio FROM pccosto WHERE (cid_cCosto = @cid_cCosto OR @cid_cCosto = '*') and ldetalle_cc=1 End End GO /****** Object: StoredProcedure [dbo].[spr_promediar_montos_z1] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[spr_promediar_montos_z1] @pNidZ1 as intasbegin set nocount on create table #TmpDetalleZ1( cProdCode varchar(6) COLLATE SQL_Latin1_General_CP1_CI_AS NULL , nMonto float ) insert into #TmpDetalleZ1 --select cProdCode, sum(nMonto*nProdCant) / sum(nProdCant) promedio select cProdCode, sum(isnull(nMonto,0)) / sum(isnull(nProdCant,0)) promedio from tdetallez1 where nidZ1 = @pNidZ1 group by cProdCode update tdetallez1 set tdetallez1.nMonto = #TmpDetalleZ1.nMonto from #TmpDetalleZ1 where tdetallez1.nidZ1 = @pNidZ1 and tdetallez1.cProdcode = #TmpDetalleZ1.cProdcode drop table #TmpDetalleZ1 set nocount offend GO /****** Object: StoredProcedure [dbo].[spr_insertar_cabecera_z1] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO create procedure [dbo].[spr_insertar_cabecera_z1]( @pVidCaja varchar(20) , @nidEstado int )as begin set nocount on delete from tdetallez1 where nidZ1 in(select nidZ1 from tcabeceraz1 where nidEstado = @nidEstado and vidCaja = @pVidCaja) delete from tcabeceraz1 where nidEstado = @nidEstado and vidCaja = @pVidCaja insert into tcabeceraz1(vidCaja, dfechaRegistro, nidEstado) values(@pVidCaja, getdate(), @nidEstado) select @@identity idZ1 set nocount off end GO /****** Object: StoredProcedure [dbo].[spr_inserta_sincronizacion] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[spr_inserta_sincronizacion]( @pVidCaja varchar(20) ) AS BEGIN SET NOCOUNT ON DECLARE @estado INT, @existe INT SELECT @existe = COUNT(1) FROM TSINCRONIZACION(NOLOCK) WHERE nidEstadoSincro = 2 IF @existe = 0 BEGIN SET @estado = 0 --pendientes de procesar END ELSE BEGIN SET @estado = 3 --en espera que termine el procesamiento END INSERT INTO TSINCRONIZACION(vidCaja, dfechaCreacion, nidEstadoSincro) VALUES(@pVidCaja, GETDATE(), @estado) SET NOCOUNT OFF END GO /****** Object: StoredProcedure [dbo].[OSCMAntArticuloAlmacen] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[OSCMAntArticuloAlmacen] @iAccion INT = 0, @cCodAlmac char(2) = '', @cCodArtic char(6) = '', @nStockmin varchar(18) = '0.0', @nStockmax varchar(18) = '0.0', @nPunto_pedido varchar(18) = '0.0', @nPunto_repos varchar(18) = '0.0' AS BEGIN IF @iAccion = 0 AND (isnull(@ccodalmac,'') <> '') BEGIN INSERT INTO ArticuloAlmacen ( cCodAlmac, cCodArtic, nStockmin, nStockmax, nPunto_pedido, nPunto_repos ) VALUES ( @cCodAlmac, @cCodArtic, @nStockmin, @nStockmax, @nPunto_pedido, @nPunto_repos) END IF @iAccion = 1 BEGIN UPDATE ArticuloAlmacen SET nStockmin = @nStockmin, nStockmax = @nStockmax, nPunto_pedido = @nPunto_pedido, nPunto_repos = @nPunto_repos WHERE cCodAlmac = @cCodAlmac AND cCodArtic = @cCodArtic END IF @iAccion = 2 BEGIN DELETE FROM ArticuloAlmacen WHERE cCodAlmac = @cCodAlmac AND cCodArtic = @cCodArtic END END GO /****** Object: StoredProcedure [dbo].[usp_actualizaArticulosAlmacen] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_actualizaArticulosAlmacen] @iaccion integer = 0 AS BEGIN DECLARE @cCodArtic CHAR(7) IF @iaccion= 0 BEGIN DECLARE Cur_Articulo cursor for Select cCodartic from Articulo where bFlagDesc=0 and not (cCodartic in (Select cCodartic from ArticuloAlmacen where cCodartic=Articulo.CCodartic)) OPEN Cur_Articulo FETCH NEXT FROM Cur_Articulo INTO @cCodArtic WHILE @@FETCH_STATUS = 0 BEGIN EXECUTE dbo.OSCMAntArticuloAlmacen 0, '01', @cCodArtic,'0.0','0.0', '0.0','0.0' FETCH NEXT FROM Cur_Articulo INTO @cCodArtic END DEALLOCATE Cur_Articulo end END GO /****** Object: StoredProcedure [dbo].[spr_corregir_montos_z1] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[spr_corregir_montos_z1]ASBEGIN SET NOCOUNT ON declare @fecha varchar(10), @cProdCode varchar(6), @promedio float create table #TmpZ1( fecha varchar(10) COLLATE SQL_Latin1_General_CP1_CI_AS NULL , cProdCode varchar(6) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ) insert into #TmpZ1 select a.fecha, a.cProdCode from(select distinct convert(varchar,dOperFech,103) fecha,cProdCode,nMonto from tdetallez1 where isnull(nMonto,0) > 0) a group by a.fecha,a.cProdCode having count(1)>1 order by a.fecha DECLARE CURZ1 CURSOR FOR SELECT fecha, cProdCode FROM #TmpZ1 OPEN CURZ1 FETCH NEXT FROM CURZ1 INTO @fecha, @cProdCode WHILE @@FETCH_STATUS = 0 BEGIN select @promedio = sum(isnull(nMonto,0)) / sum(isnull(nProdCant,0)) from tdetallez1 where cProdCode = @cProdCode and convert(varchar, dOperFech, 103) = @fecha update tdetallez1 set nMonto = @promedio where cProdCode = @cProdCode and convert(varchar, dOperFech, 103) = @fecha FETCH NEXT FROM CURZ1 INTO @fecha, @cProdCode END CLOSE CURZ1 DEALLOCATE CURZ1 DELETE FROM #TmpZ1 INSERT INTO #TmpZ1 select distinct convert(varchar,dOperFech,103) fecha,cProdCode from tdetallez1 z1 where round(isnull(z1.nmonto,0),2,0) > (select top 1 round(isnull(nPrecioVtaNew,0),2,0) from articuloprecioventa where convert(int,cCodArtic)=z1.cProdCode order by nNumitem desc) DECLARE CURARTZ1 CURSOR FOR SELECT fecha, cProdCode FROM #TmpZ1 OPEN CURARTZ1 FETCH NEXT FROM CURARTZ1 INTO @fecha, @cProdCode WHILE @@FETCH_STATUS = 0 BEGIN select top 1 @promedio = nPrecioVtaNew from articuloprecioventa where cCodArtic=right('000000' + @cProdCode, 6) order by nNumitem desc update tdetallez1 set nMonto = @promedio where cProdCode = @cProdCode and convert(varchar, dOperFech, 103) = @fecha FETCH NEXT FROM CURARTZ1 INTO @fecha, @cProdCode END CLOSE CURARTZ1 DEALLOCATE CURARTZ1 DROP TABLE #TmpZ1 SET NOCOUNT OFFEND GO /****** Object: StoredProcedure [dbo].[spr_agrupar_z1] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[spr_agrupar_z1]( @pIdZ1 int )as begin set nocount on declare @existe int CREATE TABLE #TMP_TDETALLEZ1( cCajaCodi varchar(50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL , dOperFech datetime , cAlmaCode varchar(2) COLLATE SQL_Latin1_General_CP1_CI_AS NULL , cDocTipo varchar(2) COLLATE SQL_Latin1_General_CP1_CI_AS NULL , cProdCode varchar(6) COLLATE SQL_Latin1_General_CP1_CI_AS NULL , nProdCant int ) select @existe = count(1) from tdetallez1 where nidZ1 = @pIdZ1 if @existe = 0 begin delete from tcabeceraz1 where nidZ1 = @pIdZ1 end else begin insert into #TMP_TDETALLEZ1 select cCajaCodi, convert(varchar,dOperFech,103) dOperFech, cAlmaCode, cDocTipo , cProdCode, sum(nProdCant) nProdCant from tdetallez1 where nidZ1 = @pIdZ1 group by cCajaCodi, convert(varchar,dOperFech,103), cAlmaCode, cDocTipo, cProdCode delete from tdetallez1 where nidZ1 = @pIdZ1 insert into tdetallez1(nidZ1, cCajaCodi, dOperFech, cAlmaCode, cDocTipo, cProdCode, nProdCant) select @pIdZ1 nidZ1, cCajaCodi, dOperFech, cAlmaCode, cDocTipo, cProdCode, nProdCant from #TMP_TDETALLEZ1 drop table #TMP_TDETALLEZ1 UPDATE TCABECERAZ1 SET nidEstado = 0 WHERE nidEstado = -2 end set nocount off end GO /****** Object: StoredProcedure [dbo].[sp_validar_canje_cumpleaños_1] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO /* * Descripcion : Ejecuta la validacion para Canje de Cumpleaños, Numero 1. * Version : 3 * Modificado : 13/08/2010 * Nota : * a) Que sean menores de 18 años (CLIENTE) * b) Que cumplan años y que este sea 7 dias antes o 7 dias despues de la fecha de cumpleaños, * incluido el día (CLIENTE) * Es decir si la fecha de cumpleaños es: 15-JULIO, entonces: * 09 ... 15 ... 21 * c) Solo se podra realizar el canje 1 vez al año dentro del < PERIODO VALIDO >. (LOGISTICA) * d) La tarjeta debe estar activa. (CLIENTE) * * ADJ: < PERIODO VALIDO > = a + c * Retorno : * 0 - OK. * 2 - El cliente es mayor de edad. * 3 - Para el dia de hoy FECHA_SISTEMA, el periodo de canje es del RANGO_INICIAL al RANGO_FINAL. El cumpleaños del cliente es FECHA_CUMPLEAÑOS. * 4 - Solo se puede realizar 1 canje al año. * 5 - La tarjeta del cliente no esta activa. * 6 - El cliente no existe. * 7 - El cliente no registra Fecha de Nacimiento necesaria para realizar el canje, actualize los datos y vuelva a intentarlo. * 8 - Solo puede canjear 1 artículo. * 9 - No se puede validar la consistencia de articulos canjeables entre locales. El articulo no tiene equivalencia. * 10 - No se ha configurado el local actual en la tabla < local > de la Base de Datos cliente. */ CREATE proc [dbo].[sp_validar_canje_cumpleaños_1] @i_id_local int, @i_cod_cliente int, @vc_cod_articulo char(6), @n_cantidad_artic numeric(18, 2) as begin declare @vc_Result varchar(1000) declare @dt_fecha_sistema datetime declare @dt_fecha_nacimiento datetime declare @dt_fecha_cumpleaños datetime declare @dt_rango_inicial datetime declare @dt_rango_final datetime declare @i_edad int declare @i_qx_canjes int declare @b_tarjeta_activa bit declare @i_año_biciesto_ante int declare @i_año_biciesto_sgte int declare @i int declare @i_id_local_actual int declare @i_hay_quivalencia int declare @vc_cod_articulo_equi char(6) set @i_hay_quivalencia = 0 if not exists( select * from OmniClient..Local (nolock) where Activo = 1) begin set @vc_Result = '10-No se ha configurado el local actual en la tabla < local > de la Base de Datos cliente.' select @vc_Result as vc_Result return end else begin set @i_id_local_actual = ( select IdLocal from OmniClient..Local (nolock) where Activo = 1) end if not exists( select * from OmniClient..Cliente (nolock) where IdLocal = @i_id_local and cClieCode = @i_cod_cliente) begin set @vc_Result = '6-El cliente no existe.' select @vc_Result as vc_Result return end else begin set @dt_fecha_nacimiento = ( select dNacmDate from OmniClient..Cliente (nolock) where IdLocal = @i_id_local and cClieCode = @i_cod_cliente) if @dt_fecha_nacimiento is null begin set @vc_Result = '7-El cliente no registra Fecha de Nacimiento necesaria para realizar el canje, actualice los datos y vuelva a intentarlo.' select @vc_Result as vc_Result return end else begin --a)------------------------------------------------- set @dt_fecha_sistema = (select getDate()) --ENGLISH - yyyy/mm/dd (G VILLA NORTE) set @dt_fecha_sistema = convert(datetime, convert(varchar(4), year(@dt_fecha_sistema)) + '.' + convert(varchar(2), month(@dt_fecha_sistema)) + '.' + convert(varchar(2), day(@dt_fecha_sistema))) --SPANISH - yyyy/dd/mm (2003) -- set @dt_fecha_sistema = convert(datetime, convert(varchar(4), year(@dt_fecha_sistema)) + '.' + convert(varchar(2), day(@dt_fecha_sistema)) + '.' + convert(varchar(2), month(@dt_fecha_sistema))) --ENGLISH - yyyy/mm/dd (G VILLA NORTE) set @dt_fecha_nacimiento = convert(varchar(4), year(@dt_fecha_nacimiento)) + '.' + convert(varchar(2), month(@dt_fecha_nacimiento)) + '.' + convert(varchar(2), day(@dt_fecha_nacimiento)) --SPANISH - yyyy/dd/mm (2003) -- set @dt_fecha_nacimiento = convert(datetime, convert(varchar(4), year(@dt_fecha_nacimiento)) + '.' + convert(varchar(2), day(@dt_fecha_nacimiento)) + '.' + convert(varchar(2), month(@dt_fecha_nacimiento))) --Calculo de Dias por Años Biciestos if year(@dt_fecha_nacimiento) % 4 = 0 begin set @i_año_biciesto_ante = year(@dt_fecha_nacimiento) --ENGLISH - yyyy/mm/dd (G VILLA NORTE) if @dt_fecha_nacimiento >= convert(datetime, convert(varchar(4), year(@dt_fecha_nacimiento)) + '.03.01 00:00:00') --SPANISH - yyyy/dd/mm (2003) -- if @dt_fecha_nacimiento >= convert(datetime, convert(varchar(4), year(@dt_fecha_nacimiento)) + '.01.03 00:00:00') begin set @i_año_biciesto_ante = @i_año_biciesto_ante + 4 end end else begin --Buscar Biciesto anterior set @i = year(@dt_fecha_nacimiento) while @i % 4 <> 0 begin set @i = @i - 1 end set @i_año_biciesto_ante = @i if @i_año_biciesto_ante < year(@dt_fecha_nacimiento) begin set @i_año_biciesto_ante = @i_año_biciesto_ante + 4 end end if year(@dt_fecha_sistema) % 4 = 0 --Biciesto begin set @i_año_biciesto_sgte = year(@dt_fecha_sistema) --ENGLISH - yyyy/mm/dd (G VILLA NORTE) if @dt_fecha_sistema >= convert(datetime, convert(varchar(4), year(@dt_fecha_sistema)) + '.03.01 00:00:00') --SPANISH - yyyy/dd/mm (2003) -- if @dt_fecha_sistema >= convert(datetime, convert(varchar(4), year(@dt_fecha_sistema)) + '.01.03 00:00:00') begin set @i_año_biciesto_sgte = @i_año_biciesto_sgte + 4 end end else begin --Buscar Biciesto anterior set @i = year(@dt_fecha_sistema) while @i % 4 <> 0 begin set @i = @i + 1 end set @i_año_biciesto_sgte = @i if @i_año_biciesto_sgte > year(@dt_fecha_sistema) begin set @i_año_biciesto_sgte = @i_año_biciesto_sgte - 4 end end -- select @i_año_biciesto_ante, @i_año_biciesto_sgte, ((@i_año_biciesto_sgte - @i_año_biciesto_ante) / 4) + 1 -- set @i_edad = floor(datediff(day, @dt_fecha_nacimiento, @dt_fecha_sistema) / 365.0) set @i_edad = floor(datediff(day, dateadd(day, (((@i_año_biciesto_sgte - @i_año_biciesto_ante) / 4) + 1), @dt_fecha_nacimiento), @dt_fecha_sistema) / 365.0) if @i_edad >= 18 begin goto sigue -- set @vc_Result = '2-El cliente es mayor de edad.' -- select @vc_Result as vc_Result -- return end else begin sigue: --b)------------------------------------------------- --Rango de Fechas para Validacion set @dt_rango_inicial = dateadd(day, -6, @dt_fecha_sistema) set @dt_rango_final = dateadd(day, 6, @dt_fecha_sistema) + '23:59:59' set @dt_fecha_cumpleaños = dateadd(year, @i_edad, @dt_fecha_nacimiento) if @dt_fecha_cumpleaños NOT between @dt_rango_inicial and @dt_rango_final begin /*select 'NO PASO A', convert(varchar(50), @dt_fecha_nacimiento, 100) as Fecha_Nac, convert(numeric(12, 8), datediff(day, @dt_fecha_nacimiento, @dt_fecha_sistema) / 365.0) as Dif_Dias_Nac_SYS, @i_edad as Edad, convert(varchar(50), @dt_fecha_cumpleaños, 100) as Fec_Cump, convert(varchar(50), @dt_fecha_sistema, 100) as Fecha_SYS, convert(varchar(50), @dt_rango_inicial, 100) as Rango_INI, convert(varchar(50), @dt_rango_final, 100) as Rango_FINAL*/ if dateadd(year, @i_edad + 1, @dt_fecha_nacimiento) NOT between @dt_rango_inicial and @dt_rango_final begin /*select 'NO PASO B', convert(varchar(50), @dt_fecha_nacimiento, 100) as Fecha_Nac, convert(numeric(12, 8), datediff(day, @dt_fecha_nacimiento, @dt_fecha_sistema) / 365.0) as Dif_Dias_Nac_SYS, @i_edad as Edad, convert(varchar(50), dateadd(year, @i_edad + 1, @dt_fecha_nacimiento), 100) as Fec_Cump, convert(varchar(50), @dt_fecha_sistema, 100) as Fecha_SYS, convert(varchar(50), @dt_rango_inicial, 100) as Rango_INI, convert(varchar(50), @dt_rango_final, 100) as Rango_FINAL*/ set @vc_Result = '3-Para el dia de hoy ' + convert(varchar(10), @dt_fecha_sistema, 105) + ', el periodo de canje es del ' + convert(varchar(10), @dt_rango_inicial, 105) + ' al ' + convert(varchar(10), @dt_rango_final, 105) + '. El cumpleaños del cliente es ' + convert(varchar(10), dateadd(year, @i_edad + 1, @dt_fecha_nacimiento), 105) select @vc_Result as vc_Result return end else begin begin /*select 'PASO B', convert(varchar(50), @dt_fecha_nacimiento, 100) as Fecha_Nac, convert(numeric(12, 8), datediff(day, @dt_fecha_nacimiento, @dt_fecha_sistema) / 365.0) as Dif_Dias_Nac_SYS, @i_edad as Edad, convert(varchar(50), dateadd(year, @i_edad + 1, @dt_fecha_nacimiento), 100) as Fec_Cump, convert(varchar(50), @dt_fecha_sistema, 100) as Fecha_SYS, convert(varchar(50), @dt_rango_inicial, 100) as Rango_INI, convert(varchar(50), @dt_rango_final, 100) as Rango_FINAL*/ set @i_hay_quivalencia = ( select count(*) from equivalencia_articulo (nolock) where i_id_local_A = @i_id_local_actual and cCodArtic_A = @vc_cod_articulo) if @i_hay_quivalencia = 0 begin set @vc_Result = '9-No se puede validar la consistencia de articulos canjeables entre locales. El articulo no tiene equivalencia.' select @vc_Result as vc_Result return end else begin declare cur cursor for select cCodArtic_B from equivalencia_articulo (nolock) where i_id_local_A = @i_id_local_actual and cCodArtic_A = @vc_cod_articulo open cur fetch next from cur into @vc_cod_articulo_equi while @@fetch_status = 0 begin --c)------------------------------------------------- set @i_qx_canjes = ( select count(*) from registro_canje_cumpleaños_d d (nolock) inner join registro_canje_cumpleaños c (nolock) on d.vc_cod_mov = c.vc_cod_mov and d.i_tip_mov = c.i_tip_mov where c.i_id_local = @i_id_local and c.i_cod_cliente = @i_cod_cliente and c.i_tip_mov = 2 --Salida and year(c.dt_fecha_registro) = year(@dt_fecha_sistema) and c.vc_tip_mov = '05' and d.vc_cod_articulo = @vc_cod_articulo_equi ) --@vc_cod_articulo ) if @i_qx_canjes > 0 begin set @vc_Result = '4-Solo se puede realizar 1 canje al año.' select @vc_Result as vc_Result close cur deallocate cur return end --c)------------------------------------------------- fetch next from cur into @vc_cod_articulo_equi end close cur deallocate cur end if @n_cantidad_artic > 1.0 begin set @vc_Result = '8-Solo puede canjear 1 artículo.' select @vc_Result as vc_Result return end else begin --d)------------------------------------------------- set @b_tarjeta_activa = ( select isnull(cTarjActi, 0) from OmniClient..tarjeta (nolock) where IdLocal = @i_id_local and cClieCode = @i_cod_cliente ) if @b_tarjeta_activa = 0 begin set @vc_Result = '5-La tarjeta del cliente está activa.' select @vc_Result as vc_Result return end else begin set @vc_Result = '0-OK.' select @vc_Result as vc_Result return end --d)------------------------------------------------- end end end end else begin /*select 'PASO A', convert(varchar(50), @dt_fecha_nacimiento, 100) as Fecha_Nac, convert(numeric(12, 8), datediff(day, @dt_fecha_nacimiento, @dt_fecha_sistema) / 365.0) as Dif_Dias_Nac_SYS, @i_edad as Edad, convert(varchar(50), @dt_fecha_cumpleaños, 100) as Fec_Cump, convert(varchar(50), @dt_fecha_sistema, 100) as Fecha_SYS, convert(varchar(50), @dt_rango_inicial, 100) as Rango_INI, convert(varchar(50), @dt_rango_final, 100) as Rango_FINAL*/ set @i_hay_quivalencia = ( select count(*) from equivalencia_articulo (nolock) where i_id_local_A = @i_id_local_actual and cCodArtic_A = @vc_cod_articulo) if @i_hay_quivalencia = 0 begin set @vc_Result = '9-No se puede validar la consistencia de articulos canjeables entre locales. El articulo no tiene equivalencia.' select @vc_Result as vc_Result return end else begin declare cur cursor for select cCodArtic_B from equivalencia_articulo (nolock) where i_id_local_A = @i_id_local_actual and cCodArtic_A = @vc_cod_articulo open cur fetch next from cur into @vc_cod_articulo_equi while @@fetch_status = 0 begin --c)------------------------------------------------- set @i_qx_canjes = ( select count(*) from registro_canje_cumpleaños_d d (nolock) inner join registro_canje_cumpleaños c (nolock) on d.vc_cod_mov = c.vc_cod_mov and d.i_tip_mov = c.i_tip_mov where c.i_id_local = @i_id_local and c.i_cod_cliente = @i_cod_cliente and c.i_tip_mov = 2 --Salida and year(c.dt_fecha_registro) = year(@dt_fecha_sistema) and c.vc_tip_mov = '05' and d.vc_cod_articulo = @vc_cod_articulo_equi) --@vc_cod_articulo ) if @i_qx_canjes > 0 begin set @vc_Result = '4-Solo se puede realizar 1 canje al año.' select @vc_Result as vc_Result close cur deallocate cur return end --c)------------------------------------------------- fetch next from cur into @vc_cod_articulo_equi end close cur deallocate cur end if @n_cantidad_artic > 1.0 begin set @vc_Result = '8-Solo puede canjear 1 artículo.' select @vc_Result as vc_Result return end else begin --d)------------------------------------------------- set @b_tarjeta_activa = ( select isnull(cTarjActi, 0) from OmniClient..tarjeta (nolock) where IdLocal = @i_id_local and cClieCode = @i_cod_cliente ) if @b_tarjeta_activa = 0 begin set @vc_Result = '5-La tarjeta del cliente está inactiva.' select @vc_Result as vc_Result return end else begin set @vc_Result = '0-OK.' select @vc_Result as vc_Result return end --d)------------------------------------------------- end end --b)------------------------------------------------- end --a)------------------------------------------------- end end end GO /****** Object: StoredProcedure [dbo].[usp_BorrarRepeticiones] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_BorrarRepeticiones] AS BEGIN DECLARE @codcta varchar(10) DECLARE @codctaborrar varchar(10) DECLARE @tipodoc varchar(2) DECLARE @seriedoc varchar(3) DECLARE @numdoc varchar(7) DECLARE @operacionID int Begin Tran -- Recorre cuentas con tipo, serie y numero repetido DECLARE CuentaCteBorrar CURSOR FOR -- Saca la cuenta mas antigua con documento repetido select MIN(cCodCtaCTe), cTipoDoc, cSerieDoc, cNroDoc from cuentacte C where (select count(*) from cuentacte C1 where C1.cTipoDoc=C.cTipoDoc and C1.cSerieDoc=C.cSerieDoc and C1.cNroDoc=C.cNroDoc)>1 group by cTipoDoc, cSerieDoc, cNroDoc OPEN CuentaCteBorrar FETCH NEXT FROM CuentaCteBorrar INTO @codcta, @tipodoc, @seriedoc, @numdoc WHILE @@FETCH_STATUS = 0 BEGIN DECLARE CuentaCteDetalleBorrar CURSOR FOR -- Saca cuentas para borrar (todas menos la mas antigua) select cCodCtaCTe from cuentacte C where cCodCtaCte<>@codcta and cTipoDoc=@tipodoc and cSerieDoc=@seriedoc and cNroDoc=@numdoc OPEN CuentaCteDetalleBorrar FETCH NEXT FROM CuentaCteDetalleBorrar INTO @codctaborrar WHILE @@FETCH_STATUS = 0 BEGIN -- Borra detalles de cuenta DELETE FROM CuentaCteD WHERE cCodCtaCte=@codctaborrar -- Borra cuenta DELETE FROM CuentaCte where cCodCtaCte=@codctaborrar FETCH NEXT FROM CuentaCteDetalleBorrar INTO @codctaborrar END CLOSE CuentaCteDetalleBorrar DEALLOCATE CuentaCteDetalleBorrar FETCH NEXT FROM CuentaCteBorrar INTO @codcta, @tipodoc, @seriedoc, @numdoc END CLOSE CuentaCteBorrar DEALLOCATE CuentaCteBorrar -- Recorre operaciones con tipo, serie y numero repetido DECLARE OperacionBorrar CURSOR FOR -- Saca la operacion mas antigua con documento repetido select MIN(cOperID), cDocTipo, cDocSerie, cDocCodigo from operacion O where (select count(*) from operacion O1 where O1.cDocTipo=O.cDocTipo and O1.cDocSerie=O.cDocSerie and O1.cDocCodigo=O.cDocCodigo)>1 group by cDocTipo, cDocSerie, cDocCodigo OPEN OperacionBorrar FETCH NEXT FROM OperacionBorrar INTO @operacionID, @tipodoc, @seriedoc, @numdoc WHILE @@FETCH_STATUS = 0 BEGIN DELETE FROM Operacion where cOperID<>@operacionID and cDocTipo=@tipodoc and cDocSerie=@seriedoc and cDocCodigo=@numdoc FETCH NEXT FROM OperacionBorrar INTO @operacionID, @tipodoc, @seriedoc, @numdoc END CLOSE OperacionBorrar DEALLOCATE OperacionBorrar Commit Tran END GO /****** Object: StoredProcedure [dbo].[usp_aplicaDscto] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[usp_aplicaDscto] @dtFecha datetime AS BEGIN DECLARE @cProdCode CHAR(7), @nDscto numeric(18,4), @cCajaCodi CHAR(6), @Serie CHAR(3), @Numero CHAR(7), @cCodCtaCte CHAR(10), @nProdPrecUnit numeric(18,4) SET @cProdCode ='' SET @nDscto= 0 SET @cCajaCodi='' SET @Serie='' SET @Numero='' DECLARE Cur_Operacion cursor for SELECT cProdCode, nDscto, cCajaCodi, (SELECT cDocSerie FROM OperacionParalela WHERE cCajaCodi= p.cCajaCodi and cOperCode= p.cOperCode) as Serie, (SELECT cDocCodigo FROM OperacionParalela WHERE cCajaCodi= p.cCajaCodi and cOperCode= p.cOperCode) as Numero, nProdPrecUnit FROM OperacionParalelaproducto p (nolock) WHERE nDscto > 0 AND (SELECT convert(datetime, convert(varchar,dOperFech,102),102) FROM OperacionParalela WHERE cCajaCodi= p.cCajaCodi AND cOperCode= p.cOperCode) = @dtfecha OPEN Cur_Operacion FETCH NEXT FROM Cur_Operacion INTO @cProdCode ,@nDscto ,@cCajaCodi, @Serie, @Numero, @nProdPrecUnit WHILE @@FETCH_STATUS = 0 BEGIN SET @cCodCtaCte= '' SELECT @cCodCtaCte = cCodCtaCte FROM CuentaCte (nolock) WHERE cSerieDoc = @Serie and cNroDoc =@Numero and cCodCaja=@cCajaCodi UPDATE CuentaCteD SET nPrecioUnit= (1 - (@nDscto/100) ) * @nProdPrecUnit , nPrecioOrig= @nProdPrecUnit, nPorcDscto = @nDscto WHERE cCodartic=@cProdCode AND cCodCtaCte= @cCodCtaCte FETCH NEXT FROM Cur_Operacion INTO @cProdCode ,@nDscto ,@cCajaCodi, @Serie, @Numero, @nProdPrecUnit END DEALLOCATE Cur_Operacion END GO /****** Object: StoredProcedure [dbo].[usp_INF_FACTURACION_Rep] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS OFF GO SET QUOTED_IDENTIFIER OFF GO CREATE Procedure [dbo].[usp_INF_FACTURACION_Rep] @fechaini datetime = '20050621', @fechafin datetime = '20060621', @Usuario varchar(100) = '' As Begin SELECT (Select t.cidtipdoc from TipoDocumento t where t.cidtipdoc=v.cTipoDoc) as CodTipoDoc, (Select t.vDscDocMt from TipoDocumento t where t.cidtipdoc=v.cTipoDoc) as DescTipoDoc, dtFechaOper Fecha, cSerieDoc Serie, cNroDoc NroDoc, cRucclie Ruc, vNomClie NomBenef, (nImpoTotal - nImporIGV - nImporServ) Base, nImporIGV IGV, nImpoTotal Total, convert(varchar,dtFechaOper,108) Hora, Empresa=(Select vRazonSocial from Empresa where bSwactivo=1 ) , Usuario=@Usuario , Local=(Select vLocalActivo from Empresa where bSwactivo=1 ), '01' Loc, convert(varchar,dtFechaOper,103) + ' ' + '01' + ' ' + isnull(cSerieDoc,' ') + '-' + isnull(cNroDoc,' ') Llave, @fechaini as FechaINI, @fechafin as FechaFIN, cCodMone as CodMoneda, (Select cnomb_mone from tmonedas where cmoneda=v.cCodMone) as MoneDesc, (Select cSimb_mone from tmonedas where cmoneda=v.cCodMone) AS Monedafact, (Select nt_venta from tt_cambio where convert(datetime,d_f,102) = convert(datetime,dtfechareg,102 )) as TipoCambio, (Select ISNULL(sum(nImpoTotal),0) from cuentacte where cCodmone='N' and convert(datetime,convert(varchar,dtFechaOper,102),102) between @fechaini and @fechafin ) AS Facturadosoles, (Select ISNULL(sum(nImpoTotal),0) from cuentacte where cCodmone='D' and convert(datetime,convert(varchar,dtFechaOper,102),102) between @fechaini and @fechafin ) AS Facturadodolares , nImporServ as Servicio FROM Cuentacte v -- left outer join TipoDocumento t -- on v.cTipoDoc = t.cidtipdoc -- Where t.cidtipdoc = v.cTipoDoc WHERE convert(datetime,convert(varchar,dtFechaOper,102),102) between @fechaini and @fechafin ORDER BY dtFechaOper End GO /****** Object: StoredProcedure [dbo].[usp_INF_VTS_CAJAXCAJA_Rep] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE Procedure [dbo].[usp_INF_VTS_CAJAXCAJA_Rep] @fechaini datetime = '20060930', @fechafin datetime = '20061002', @Usuario varchar(100) = '', @cCodCaja char(6) = '*', @cTipDoc char(2) = '*' As Begin -- SET NOCOUNT ON -- execute usp_actualiza_costoarticulo @fechaini,@fechafin -- SET NOCOUNT OFF --set nocount on --Actualiza el valor de PrecioOrig al valor unitario en soles de la venta /*----------------------------------------------------------------- update CuentaCted set nPrecioOrig= (Select Case when (Select ccodMone from cuentaCte where cCodCtaCte=CuentaCted.cCodCtacte)= 'N' then nPrecioUnit else nPrecioUnit * (select nt_compr from tt_cambio where d_f= (Select convert(datetime, convert(varchar,dtFechaoper,102),102) from cuentaCte where cCodCtaCte=CuentaCted.cCodCtacte)) end ) set nocount off */ -------------------------------------------------------------------------------------------- SELECT o.cTipoDoc as Tipo, right(rtrim(ltrim(o.cCodCaja)),2) AS CodCaja, (Select sum(d.nCostoArt * d.nQtdvendida) From cuentacted d where d.cCodctacte=o.cCodctacte ) As CostoPr, case (Select top 1 cIdTipDoc From TipoDocumento where cIdTipDoc=o.cTipoDoc ) when '3' then '0' when '5' then '0' when '7' then '0' when '11' then '0' else o.nSubTotal end As SubTotal, case (Select top 1 cIdTipDoc From TipoDocumento where cIdTipDoc=o.cTipoDoc ) when '3' then '0' when '5' then '0' when '7' then '0' when '11' then '0' else o.nImporIGV end As IGV, case (Select top 1 cIdTipDoc From TipoDocumento where cIdTipDoc=o.cTipoDoc ) when '3' then '0' when '5' then '0' when '7' then '0' when '11' then '0' else o.nImporServ end As Exoner, --o.nImpoTotal As Total, --nImpoTotal=sum(det.nPreciounit*det.nQtdVendida), case (Select top 1 cIdTipDoc From TipoDocumento where cIdTipDoc=o.cTipoDoc ) when '3' then '0' when '5' then '0' when '7' then '0' when '11' then '0' else sum(det.nPreciounit*det.nQtdVendida) end as nImpoTotal, case (Select top 1 cIdTipDoc From TipoDocumento where cIdTipDoc=o.cTipoDoc ) when '3' then '0' when '5' then '0' when '7' then '0' when '11' then '0' else o.nImporServ end As ImpEx, isnull(o.cSerieDoc,'') + '-' + isnull(o.cNroDoc,'') As nroDoc, nImpoTotal - (Select sum(d.nCostoArt * d.nQtdvendida) From cuentacted d where d.cCodctacte=o.cCodctacte ) As UtDia, (SELECT count(distinct(vcliecod)) from CUENTACTE WHERE ccodcaja=o.cCodcaja AND convert(datetime,convert(varchar,o.dtFechaOper,102),102) between @fechaini and @fechafin ) As AcumNroCli, case (Select top 1 cIdTipDoc From TipoDocumento where cIdTipDoc=o.cTipoDoc ) when '3' then '0' when '5' then '0' when '7' then '0' when '11' then '0' else nImpoTotal end As AcumVta, --nImpoTotal As AcumVta , Empresa=(Select vRazonSocial from Empresa where bSwactivo=1 ) , Usuario=@Usuario , (Select vLocalActivo from Empresa where bSwactivo=1 ) AS 'LOCAL', (Select top 1 cAbrevdoc From TipoDocumento where cIdTipDoc=o.cTipoDoc )as DescTipoDoc, @fechaini as FechaINI, @fechafin as FechaFIN, ( SELECT count(distinct(vcliecod)) from CUENTACTE WHERE convert(datetime, o.dtFechaOper,102) between @fechaini and @fechafin ) as TotalCliente, o.cCodMone as Moneda, o.dtFechaoper as Fecha FROM cuentacte o left outer join CuentaCteD det on o.cCodctaCte=det.cCodctaCte where o.bSwAnulado=0 and not o.cCodCaja is null AND convert(datetime, convert(varchar,o.dtFechaOper,102),102) between @fechaini and @fechafin AND (right(rtrim(ltrim(o.cCodCaja)),2) =right(rtrim(ltrim(@cCodCaja)),2) or @cCodCaja='*') AND (o.cTipoDoc=right(rtrim(ltrim(@cTipDoc)),2) or @cTipDoc='*') GROUP BY cTipoDoc,cCodCaja,cCodMone,o.cCodctaCte,o.nSubtotal,o.nImporIGV,o.nImporServ,o.cSerieDoc,o.cNroDoc,o.nImpoTotal,o.dtFechaoper order by o.ccodcaja, o.dtfechaoper, o.ctipodoc, o.cseriedoc,o.cnrodoc End GO /****** Object: StoredProcedure [dbo].[usp_inf_vts_cajares_z1] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE procedure [dbo].[usp_inf_vts_cajares_z1] ( @fechaini varchar(10) = null, @fechafin varchar(10) = null, @cCodCaja varchar(6) = '*' ) as Begin set @cCodCaja = isnull(@cCodCaja,'*') declare @NombreCaja varchar(25) set @cCodCaja = isnull(@cCodCaja,'*') set @NombreCaja='' if @cCodcaja='*' begin set @NombreCaja='Todas las Cajas' end else begin set @NombreCaja=upper(@cCodcaja) end select 'Del: ' + convert(varchar,convert(datetime,@fechaini,105),103) + ' AL ' + convert(varchar,convert(datetime,@fechafin,105),103) as sFecha ,'Referencia Caja: ' + @NombreCaja as sCaja ,doperfech, ccajacodi, sum(isnull(nprodcant,0)*isnull(nmonto,0)) as Monto from tdetallez1 where doperfech between convert(datetime,@fechaini,103) and convert(datetime,@fechafin,103) and (right(rtrim(ltrim(ccajacodi)),2)=right(rtrim(ltrim(@cCodCaja)),2) or @cCodCaja='*') group by doperfech, ccajacodi order by ccajacodi, doperfech End GO /****** Object: StoredProcedure [dbo].[usp_CompararVentasZ] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[usp_CompararVentasZ] @Fecha char(10), @Caja varchar(10), @Msj varchar(50) OUTPUT AS DECLARE @CodProdZ integer, @CodProdVta integer, @CantidadZ numeric(18,2), @CantidadVta numeric(18,2) DECLARE cur_Z CURSOR FOR SELECT d.codprod,d.cantidad FROM cabeceraz c INNER join detallez d ON c.idz=d.idz and c.caja=d.caja WHERE c.caja=@Caja and c.fecha=@Fecha and c.codigorep<>'' OPEN cur_Z FETCH NEXT FROM cur_Z into @CodProdZ,@CantidadZ WHILE @@FETCH_STATUS=0 BEGIN SELECT @CodProdVta=d.cprodcode,@CantidadVta=sum(d.nqtdvendida) FROM cuentacte c INNER join cuentacted D ON c.ccodctacte=d.ccodctacte WHERE c.dtfechaoper>= @Fecha+' 00:00:00' and c.dtfechaoper<=@Fecha+' 23:59:59' and c.cCodCaja=@Caja and bswanulado=0 GROUP BY d.cprodcode HAVING d.cprodcode=@CodProdZ IF @CodProdVta=0 BEGIN SET @Msj= @Caja+' - DIFERENCIA: NO EXISTE EL PRODUCTO ' + cast(@CodProdZ as varchar)+ ' EN VENTAS' CLOSE cur_Z DEALLOCATE cur_Z RETURN END ELSE BEGIN IF @CantidadZ<>@CantidadVta BEGIN SET @Msj= @Caja+' - DIFERENCIA: EN CANTIDAD DEL PRODUCTO '+ cast(@CodProdZ as varchar) +' NO COINCIDE EN VENTAS' CLOSE cur_Z DEALLOCATE cur_Z RETURN END END FETCH NEXT FROM cur_Z into @CodProdZ,@CantidadZ END CLOSE cur_Z DEALLOCATE cur_Z SET @Msj= '' GO /****** Object: StoredProcedure [dbo].[usp_INF_VTS_CAJAXCAJARES_Rep] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE Procedure [dbo].[usp_INF_VTS_CAJAXCAJARES_Rep] @fechaini datetime = '20070601', @fechafin datetime = '20070610', @Usuario varchar(100) = '', @cCodCaja varchar(6) = '*', @cTipDoc varchar(2)= '*', @docini char(7)='0', @docfin char(7)='0' As Begin SELECT convert(datetime,convert(varchar,o.dtFechaOper,102), 102) as Fecha, (Select top 1 cAbrevdoc From TipoDocumento where cIdTipDoc=o.cTipoDoc ) as TipoDoc, right(rtrim(ltrim(o.cCodCaja)),2) AS CodCaja, o.cSerieDoc as Serie, Min(o.cNroDoc) as MinNroDoc, Max(o.cNroDoc) as MaxNroDoc, --total=sum(d.nPreciounit*d.nQtdVendida), --SUM(o.nimpototal) As ValorVenta, case (Select top 1 cIdTipDoc From TipoDocumento where cIdTipDoc=o.cTipoDoc ) when '03' then '0' when '05' then '0' when '07' then '0' when '11' then '0' else sum(d.nPreciounit*d.nQtdVendida) end as ValorVenta, --ValorVenta=sum(d.nPreciounit*d.nQtdVendida), case (Select top 1 cIdTipDoc From TipoDocumento where cIdTipDoc=o.cTipoDoc ) when '03' then '0' when '05' then '0' when '07' then '0' when '11' then '0' else SUM(o.nImporIGV ) end As IGV, case (Select top 1 cIdTipDoc From TipoDocumento where cIdTipDoc=o.cTipoDoc ) when '03' then '0' when '05' then '0' when '07' then '0' when '11' then '0' else SUM(o.nImporServ) end As Servicio, --SUM(isnull(o.nImpoTotal,0)) As Total, case (Select top 1 cIdTipDoc From TipoDocumento where cIdTipDoc=o.cTipoDoc ) when '03' then '0' when '05' then '0' when '07' then '0' when '11' then '0' else sum(d.nPreciounit*d.nQtdVendida) end as total, --sum(d.nPreciounit*d.nQtdVendida) as Total, @fechaini as FechaINI, @fechafin as FechaFIN, Usuario=@Usuario , (Select vLocalActivo from Empresa where bSwactivo=1) AS 'Loc' FROM CuentaCte o left outer join CuentaCteD d on o.cCodctaCte=d.cCodctaCte where o.bSwAnulado=0 and not o.cCodCaja is null --AND ((convert(datetime,convert(varchar,o.dtFechaOper,102), 102) >= @fechaini or @fechaini='18000101') --AND (convert(datetime,convert(varchar,o.dtFechaOper,102),102)<=@fechafin or @fechafin='18000101' )) AND (o.dtFechaOper between convert(datetime, @fechaini ,103) and dateadd(day,1,convert(datetime,@fechafin,103))) AND (right(rtrim(ltrim(cCodCaja)),2) =right(rtrim(ltrim(@cCodCaja)),2) or @cCodCaja='*') AND (o.cTipoDoc=right(rtrim(ltrim(@cTipDoc)),2) or @cTipDoc='*') --AND ((convert(numeric,o.cNroDoc) >= convert(numeric, @docini)or @docini='0') and -- (convert(numeric, o.cNroDoc) <= convert(numeric, @docfin) or @docfin='0')) GROUP BY convert(datetime,convert(varchar,o.dtFechaOper,102), 102), o.cTipoDoc, right(rtrim(ltrim(o.cCodCaja)),2), o.cSerieDoc order by convert(datetime,convert(varchar,o.dtFechaOper,102), 102) asc End GO /****** Object: StoredProcedure [dbo].[usp_INF_VTS_CAJAXCAJADET_Rep] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE Procedure [dbo].[usp_INF_VTS_CAJAXCAJADET_Rep] @fechaini datetime = '1800/01/01', @fechafin datetime = '1800/01/01', @cprodcode int = 0, @Titulocaja varchar(20)='', @Tituloproducto varchar(150)='', @TituloTipodoc varchar(30)='', @Usuario varchar(100) = '', @cCodCaja char(6) = '*', @cTipDoc char(2)= '*', @NumDocini varchar(7)= '0000000', @NumDocfin varchar(7)= '0000000' As Begin SELECT cTipoDoc as Tipo, @TituloTipodoc as TituloTipodoc, @Tituloproducto as Tituloproducto, @Titulocaja as Titulocaja, right(rtrim(ltrim(cCodCaja)),2) AS CodCaja, (Select sum(d.nCostoArt * d.nQtdvendida) From cuentacted d where d.cCodctacte=o.cCodctacte ) As CostoPr, nSubTotal As SubTotal, nImporIGV As IGV, nImporServ As Exoner, nImpoTotal As Total, nImporServ As ImpEx, isnull(cSerieDoc,'') + '-' + isnull(cNroDoc,'') As nroDoc, nImpoTotal - (Select sum(d.nCostoArt * d.nQtdvendida) From cuentacted d where d.cCodctacte=o.cCodctacte ) As UtDia, ( SELECT count(distinct(vcliecod)) from CUENTACTE WHERE ccodcaja=o.cCodcaja AND convert(datetime,convert(varchar,dtFechaOper,102),102) between @fechaini and @fechafin ) As AcumNroCli, nImpoTotal As AcumVta , Empresa=(Select vRazonSocial from Empresa where bSwactivo=1 ) , Usuario=@Usuario , (Select vLocalActivo from Empresa where bSwactivo=1 ) AS 'LOCAL', (Select top 1 cAbrevdoc From TipoDocumento where cIdTipDoc=o.cTipoDoc )as DescTipoDoc, @fechaini as FechaINI, @fechafin as FechaFIN, ( SELECT count(distinct(vcliecod)) from CUENTACTE WHERE convert(datetime, dtFechaOper,102) between @fechaini and @fechafin ) as TotalCliente, cCodMone as Moneda, o.dtFechaoper AS Fecha, sProdDscCrta AS Producto, nQtdVendida AS Cantidad, nPreciounit AS Precio, case when nPorcServ > 0 then 'SI' else 'NO' END AS IncServ FROM CuentaCteD A LEFT OUTER JOIN Cuentacte o ON o.cCodctacte=A.cCodctacte where o.bSwAnulado=0 and not o.cCodCaja is null AND convert(datetime, convert(varchar,o.dtFechaOper,102),102) between @fechaini and @fechafin AND (right(rtrim(ltrim(cCodCaja)),2)=right(rtrim(ltrim(@cCodCaja)),2) or @cCodCaja='*') AND (o.cTipoDoc=right(rtrim(ltrim(@cTipDoc)),2) or @cTipDoc='*') and (o.cTipoDoc<>'11')--NO INCLUIR TIPO N/C AND convert(numeric,cnrodoc)>=convert(numeric,@NumDocini) AND ((convert(numeric,cnrodoc)>= convert(numeric,@NumDocfin)) or convert(numeric,@NumDocfin)= 0 ) AND dbo.sfu_existe_producto_ticket(A.cCodctacte,@cprodcode)=1 order by o.ccodcaja, o.dtfechaoper, o.ctipodoc, o.cseriedoc,o.cnrodoc End GO /****** Object: StoredProcedure [dbo].[usp_Ejecutar_CompararVentasZ] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER OFF GO CREATE PROCEDURE [dbo].[usp_Ejecutar_CompararVentasZ] AS DECLARE @From VARCHAR(50) DECLARE @To VARCHAR(100) DECLARE @Email VARCHAR(50) DECLARE @cCad VARCHAR(1000) DECLARE @cContenido VARCHAR(1000) DECLARE @dFecha VARCHAR(10) declare @Mensaje varchar(50) SET @From='jcure@omnisciencia.com' SET @To='' SET @cCad='' DECLARE cur_email CURSOR FOR SELECT Email FROM Email OPEN cur_email FETCH NEXT FROM cur_email INTO @Email WHILE @@FETCH_STATUS = 0 BEGIN IF @To='' BEGIN SET @To=@Email END ELSE BEGIN SET @To=@To+';'+@Email END FETCH NEXT FROM cur_email INTO @Email END CLOSE cur_email DEALLOCATE cur_email /* Se asume que las cajas existentes son Caja01 Caja02 Caja03 Caja04 Caja05 Caja07 Caja08 */ SET NOCOUNT ON SET @dFecha=cast(year(getdate()) as varchar(4))+'-'+ cast(month(getdate()) as varchar(4))+'-'+cast(day(getdate()) as varchar(4)) ----- set @Mensaje='' execute usp_CompararVentasZ @dFecha,'Caja01' ,@Mensaje output --print @Mensaje IF LEN(@Mensaje)>1 SET @cCad= @cCad+' '+ @Mensaje + ' ' ----- set @Mensaje='' execute usp_CompararVentasZ @dFecha,'Caja02' ,@Mensaje output --print @Mensaje IF LEN(@Mensaje)>1 SET @cCad= @cCad+ ' '+@Mensaje + ' ' ----- set @Mensaje='' execute usp_CompararVentasZ @dFecha,'Caja03' ,@Mensaje output --print @Mensaje IF LEN(@Mensaje)>1 SET @cCad= @cCad+ ' '+@Mensaje + ' ' ----- set @Mensaje='' execute usp_CompararVentasZ @dFecha,'Caja04' ,@Mensaje output --print @Mensaje IF LEN(@Mensaje)>1 SET @cCad= @cCad+ ' '+@Mensaje + ' ' ----- set @Mensaje='' execute usp_CompararVentasZ @dFecha,'Caja05' ,@Mensaje output --print @Mensaje IF LEN(@Mensaje)>1 SET @cCad= @cCad+ ' '+@Mensaje + ' ' ----- set @Mensaje='' execute usp_CompararVentasZ @dFecha,'Caja07' ,@Mensaje output --print @Mensaje IF LEN(@Mensaje)>1 SET @cCad= @cCad+ ' '+@Mensaje + ' ' ----- set @Mensaje='' execute usp_CompararVentasZ @dFecha,'Caja08' ,@Mensaje output IF LEN(@Mensaje)>1 SET @cCad= @cCad+ ' '+@Mensaje + ' ' --PRINT @cCad IF @cCad<>'' EXEC sp_send_cdosysmail @From,@To,'Informe Diario Comparativo de Reporte Z Vs Ventas',@cCad GO /****** Object: StoredProcedure [dbo].[OSCListadoSubLinea] Script Date: 03/04/2013 10:56:26 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[OSCListadoSubLinea] @iAccion INT = 0, @vCodSubLn VARCHAR(30) = '*', @cCodLinea CHAR(6) = '', @vDscSubLn VARCHAR(100) = '', @bSwUltimo BIT = NULL AS BEGIN DECLARE @sSQL VARCHAR(4000) IF @iAccion = 0 BEGIN SET @sSQL = ' SELECT vCodSubLn, vDscSubLn, cCodLinea, bSwUltimo' SET @sSQL = @sSQL + ' FROM SubLinea' SET @sSQL = @sSQL + ' WHERE 1 = 1' IF @cCodLinea <> '' SET @sSQL = @sSQL + ' AND cCodLinea LIKE ''%' + @cCodLinea + '%''' IF @vCodSubLn <> '*' SET @sSQL = @sSQL + ' AND vCodSubLn LIKE ''%' + @vCodSubLn + '%''' IF @vDscSubLn <> '' SET @sSQL = @sSQL + ' AND vDscSubLn LIKE ''%' + @vDscSubLn + '%''' IF @bSwUltimo IS NOT NULL SET @sSQL = @sSQL + ' AND bSwUltimo = ' + CONVERT(CHAR,@bSwUltimo) EXEC(@sSQL) END IF @iAccion = 1 BEGIN SELECT * FROM SubLinea WHERE cCodLinea = @cCodLinea AND vCodSubLn = @vCodSubLn END END GO /****** Object: Default [DF_ArticuloAlquilerPrecio_nNumitem] Script Date: 03/04/2013 10:56:18 ******/ ALTER TABLE [dbo].[ArticuloAlquilerPrecio] ADD CONSTRAINT [DF_ArticuloAlquilerPrecio_nNumitem] DEFAULT (0) FOR [nNumitem] GO /****** Object: Default [DF_ArticuloAlquilerPrecio_nNroOrden] Script Date: 03/04/2013 10:56:18 ******/ ALTER TABLE [dbo].[ArticuloAlquilerPrecio] ADD CONSTRAINT [DF_ArticuloAlquilerPrecio_nNroOrden] DEFAULT (0) FOR [nNroOrden] GO /****** Object: Default [DF_MovAlmacenD_nCostoArt] Script Date: 03/04/2013 10:56:18 ******/ ALTER TABLE [dbo].[MovAlmacenD] ADD CONSTRAINT [DF_MovAlmacenD_nCostoArt] DEFAULT ((0)) FOR [nCostoArt] GO /****** Object: Default [DF_MovAlmacenD_nPrecioCom] Script Date: 03/04/2013 10:56:18 ******/ ALTER TABLE [dbo].[MovAlmacenD] ADD CONSTRAINT [DF_MovAlmacenD_nPrecioCom] DEFAULT ((0)) FOR [nPrecioCom] GO /****** Object: Default [DF_MovAlmacenD_nQtdMovim] Script Date: 03/04/2013 10:56:18 ******/ ALTER TABLE [dbo].[MovAlmacenD] ADD CONSTRAINT [DF_MovAlmacenD_nQtdMovim] DEFAULT ((0)) FOR [nQtdMovim] GO /****** Object: Default [DF_MovAlmacenD_nQtdPedida] Script Date: 03/04/2013 10:56:18 ******/ ALTER TABLE [dbo].[MovAlmacenD] ADD CONSTRAINT [DF_MovAlmacenD_nQtdPedida] DEFAULT ((0)) FOR [nQtdPedida] GO /****** Object: Default [DF_MovAlmacenD_nQtdEquiv] Script Date: 03/04/2013 10:56:18 ******/ ALTER TABLE [dbo].[MovAlmacenD] ADD CONSTRAINT [DF_MovAlmacenD_nQtdEquiv] DEFAULT ((0)) FOR [nQtdEquiv] GO /****** Object: Default [DF_MovAlmacenD_nNmtItmOC] Script Date: 03/04/2013 10:56:18 ******/ ALTER TABLE [dbo].[MovAlmacenD] ADD CONSTRAINT [DF_MovAlmacenD_nNmtItmOC] DEFAULT ((0)) FOR [nNmtItmOC] GO /****** Object: Default [DF_MovAlmacenD_nCostoProm] Script Date: 03/04/2013 10:56:18 ******/ ALTER TABLE [dbo].[MovAlmacenD] ADD CONSTRAINT [DF_MovAlmacenD_nCostoProm] DEFAULT ((0)) FOR [nCostoProm] GO /****** Object: Default [DF_MovAlmacenD_nPuntosCanje] Script Date: 03/04/2013 10:56:18 ******/ ALTER TABLE [dbo].[MovAlmacenD] ADD CONSTRAINT [DF_MovAlmacenD_nPuntosCanje] DEFAULT ((0)) FOR [nPuntosCanje] GO /****** Object: Default [DF_MovAlmacenD_iIdCanje] Script Date: 03/04/2013 10:56:18 ******/ ALTER TABLE [dbo].[MovAlmacenD] ADD CONSTRAINT [DF_MovAlmacenD_iIdCanje] DEFAULT ((0)) FOR [iIdCanje] GO /****** Object: Default [DF_MovAlmacen_bSwAnulado] Script Date: 03/04/2013 10:56:18 ******/ ALTER TABLE [dbo].[MovAlmacen] ADD CONSTRAINT [DF_MovAlmacen_bSwAnulado] DEFAULT (0) FOR [bSwAnulado] GO /****** Object: Default [DF_MovAlmacen_nPuntosCanje] Script Date: 03/04/2013 10:56:18 ******/ ALTER TABLE [dbo].[MovAlmacen] ADD CONSTRAINT [DF_MovAlmacen_nPuntosCanje] DEFAULT (0) FOR [nPuntosCanje] GO /****** Object: Default [DF_Articulo_bSwActivo] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Articulo] ADD CONSTRAINT [DF_Articulo_bSwActivo] DEFAULT (1) FOR [bSwActivo] GO /****** Object: Default [DF_Articulo_bSwInvent] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Articulo] ADD CONSTRAINT [DF_Articulo_bSwInvent] DEFAULT (0) FOR [bSwInvent] GO /****** Object: Default [DF_Articulo_bSwEnsamb] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Articulo] ADD CONSTRAINT [DF_Articulo_bSwEnsamb] DEFAULT (0) FOR [bSwEnsamb] GO /****** Object: Default [DF_Articulo_nFlagServ] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Articulo] ADD CONSTRAINT [DF_Articulo_nFlagServ] DEFAULT (0) FOR [nFlagServ] GO /****** Object: Default [DF_Articulo_nPorcServ] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Articulo] ADD CONSTRAINT [DF_Articulo_nPorcServ] DEFAULT (0) FOR [nPtosxItem] GO /****** Object: Default [DF_Articulo_nFlagCanje] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Articulo] ADD CONSTRAINT [DF_Articulo_nFlagCanje] DEFAULT (0) FOR [cFlagCanje] GO /****** Object: Default [DF_Articulo_nFlagCnjb] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Articulo] ADD CONSTRAINT [DF_Articulo_nFlagCnjb] DEFAULT (0) FOR [bSwCnjb] GO /****** Object: Default [DF_Articulo_nPtosCnj] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Articulo] ADD CONSTRAINT [DF_Articulo_nPtosCnj] DEFAULT (0) FOR [nPtosCnj] GO /****** Object: Default [DF_Articulo_nFlagCtrlStck] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Articulo] ADD CONSTRAINT [DF_Articulo_nFlagCtrlStck] DEFAULT (0) FOR [bSwCtrlStck] GO /****** Object: Default [DF_Articulo_bFladDesc] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Articulo] ADD CONSTRAINT [DF_Articulo_bFladDesc] DEFAULT (0) FOR [bFlagDesc] GO /****** Object: Default [DF__Articulo__nlugar__013F142A] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Articulo] ADD CONSTRAINT [DF__Articulo__nlugar__013F142A] DEFAULT (0) FOR [nlugarDespacho] GO /****** Object: Default [DF_Articulo_bFlagDetracc] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Articulo] ADD CONSTRAINT [DF_Articulo_bFlagDetracc] DEFAULT (0) FOR [bFlagDetracc] GO /****** Object: Default [DF__KARDEX__iFlagInv__5378497A] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[KARDEX] ADD CONSTRAINT [DF__KARDEX__iFlagInv__5378497A] DEFAULT (0) FOR [iFlagInventario] GO /****** Object: Default [DF__KARDEX__nCantida__546C6DB3] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[KARDEX] ADD CONSTRAINT [DF__KARDEX__nCantida__546C6DB3] DEFAULT (0) FOR [nCantidadIng] GO /****** Object: Default [DF__KARDEX__nCostoIn__556091EC] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[KARDEX] ADD CONSTRAINT [DF__KARDEX__nCostoIn__556091EC] DEFAULT (0) FOR [nCostoIng] GO /****** Object: Default [DF__KARDEX__nTotalIn__5654B625] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[KARDEX] ADD CONSTRAINT [DF__KARDEX__nTotalIn__5654B625] DEFAULT (0) FOR [nTotalIng] GO /****** Object: Default [DF__KARDEX__nCantida__5748DA5E] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[KARDEX] ADD CONSTRAINT [DF__KARDEX__nCantida__5748DA5E] DEFAULT (0) FOR [nCantidadSal] GO /****** Object: Default [DF__KARDEX__nCostoSa__583CFE97] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[KARDEX] ADD CONSTRAINT [DF__KARDEX__nCostoSa__583CFE97] DEFAULT (0) FOR [nCostoSal] GO /****** Object: Default [DF__KARDEX__nTotalSa__593122D0] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[KARDEX] ADD CONSTRAINT [DF__KARDEX__nTotalSa__593122D0] DEFAULT (0) FOR [nTotalSal] GO /****** Object: Default [DF__KARDEX__nCantida__5A254709] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[KARDEX] ADD CONSTRAINT [DF__KARDEX__nCantida__5A254709] DEFAULT (0) FOR [nCantidad] GO /****** Object: Default [DF__KARDEX__nCosto__5B196B42] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[KARDEX] ADD CONSTRAINT [DF__KARDEX__nCosto__5B196B42] DEFAULT (0) FOR [nCosto] GO /****** Object: Default [DF__KARDEX__nTotal__5C0D8F7B] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[KARDEX] ADD CONSTRAINT [DF__KARDEX__nTotal__5C0D8F7B] DEFAULT (0) FOR [nTotal] GO /****** Object: Default [DF__KARDEX__cFlagCer__5D01B3B4] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[KARDEX] ADD CONSTRAINT [DF__KARDEX__cFlagCer__5D01B3B4] DEFAULT (0) FOR [cFlagCerrado] GO /****** Object: Default [DF__KARDEX__nTipMov__5DF5D7ED] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[KARDEX] ADD CONSTRAINT [DF__KARDEX__nTipMov__5DF5D7ED] DEFAULT (0) FOR [nTipMov] GO /****** Object: Default [DF_ArticuloAlmacen_nStockAl] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[ArticuloAlmacen] ADD CONSTRAINT [DF_ArticuloAlmacen_nStockAl] DEFAULT (0) FOR [nStockAl] GO /****** Object: Default [DF_ArticuloAlmacen_nCostoArt] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[ArticuloAlmacen] ADD CONSTRAINT [DF_ArticuloAlmacen_nCostoArt] DEFAULT (0) FOR [nCostoArt] GO /****** Object: Default [DF_ArticuloAlmacen_nStockmin] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[ArticuloAlmacen] ADD CONSTRAINT [DF_ArticuloAlmacen_nStockmin] DEFAULT (0) FOR [nStockmin] GO /****** Object: Default [DF_ArticuloAlmacen_nStockmax] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[ArticuloAlmacen] ADD CONSTRAINT [DF_ArticuloAlmacen_nStockmax] DEFAULT (0) FOR [nStockmax] GO /****** Object: Default [DF_ArticuloAlmacen_nPunto_pedido] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[ArticuloAlmacen] ADD CONSTRAINT [DF_ArticuloAlmacen_nPunto_pedido] DEFAULT (0) FOR [nPunto_pedido] GO /****** Object: Default [DF_ArticuloAlmacen_nPunto_repos] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[ArticuloAlmacen] ADD CONSTRAINT [DF_ArticuloAlmacen_nPunto_repos] DEFAULT (0) FOR [nPunto_repos] GO /****** Object: Default [DF_ArticuloAlmacen_nTransito] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[ArticuloAlmacen] ADD CONSTRAINT [DF_ArticuloAlmacen_nTransito] DEFAULT (0) FOR [nTransito] GO /****** Object: Default [DF_ArticuloAlmacen_nComprometido] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[ArticuloAlmacen] ADD CONSTRAINT [DF_ArticuloAlmacen_nComprometido] DEFAULT (0) FOR [nComprometido] GO /****** Object: Default [DF_ArticuloAlmacen_nCostoMN_ult_com] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[ArticuloAlmacen] ADD CONSTRAINT [DF_ArticuloAlmacen_nCostoMN_ult_com] DEFAULT (0) FOR [nCostoMN_ult_com] GO /****** Object: Default [DF_ArticuloAlmacen_nPrecio_ult_vta] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[ArticuloAlmacen] ADD CONSTRAINT [DF_ArticuloAlmacen_nPrecio_ult_vta] DEFAULT (0) FOR [nPrecio_ult_vta] GO /****** Object: Default [DF_ArticuloAlmacen_nPreMN_ult_vta] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[ArticuloAlmacen] ADD CONSTRAINT [DF_ArticuloAlmacen_nPreMN_ult_vta] DEFAULT (0) FOR [nPreMN_ult_vta] GO /****** Object: Default [DF_UnidadMedida_bFlagalqui] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[UnidadMedida] ADD CONSTRAINT [DF_UnidadMedida_bFlagalqui] DEFAULT (0) FOR [bFlagalqui] GO /****** Object: Default [DF__Operacion__iTipo__65CC03DF] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Operacion] ADD CONSTRAINT [DF__Operacion__iTipo__65CC03DF] DEFAULT (0) FOR [iTipoCliente] GO /****** Object: Default [DF_Operacion_dFechaGraba] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Operacion] ADD CONSTRAINT [DF_Operacion_dFechaGraba] DEFAULT (getdate()) FOR [dFechaGraba] GO /****** Object: Default [DF_CuentaCte_cOperTipo] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[CuentaCte] ADD CONSTRAINT [DF_CuentaCte_cOperTipo] DEFAULT (0) FOR [cOperTipo] GO /****** Object: Default [DF_CuentaCte_cOperCode] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[CuentaCte] ADD CONSTRAINT [DF_CuentaCte_cOperCode] DEFAULT (0) FOR [cOperCode] GO /****** Object: Default [DF__CuentaCte__cClie__335592AB] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[CuentaCte] ADD CONSTRAINT [DF__CuentaCte__cClie__335592AB] DEFAULT (0) FOR [vClieCod] GO /****** Object: Default [DF_CuentaCte_nPorcVenta] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[CuentaCte] ADD CONSTRAINT [DF_CuentaCte_nPorcVenta] DEFAULT (0) FOR [nImporServ] GO /****** Object: Default [DF_CuentaCte_nPorcIGV] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[CuentaCte] ADD CONSTRAINT [DF_CuentaCte_nPorcIGV] DEFAULT (0) FOR [nPorcIGV] GO /****** Object: Default [DF_CuentaCte_nImporIGV] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[CuentaCte] ADD CONSTRAINT [DF_CuentaCte_nImporIGV] DEFAULT (0) FOR [nImporIGV] GO /****** Object: Default [DF_CuentaCte_nSubtotal] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[CuentaCte] ADD CONSTRAINT [DF_CuentaCte_nSubtotal] DEFAULT (0) FOR [nSubtotal] GO /****** Object: Default [DF_CuentaCte_nImpoTotal] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[CuentaCte] ADD CONSTRAINT [DF_CuentaCte_nImpoTotal] DEFAULT (0) FOR [nImpoTotal] GO /****** Object: Default [DF_CuentaCte_nPorcDetrc] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[CuentaCte] ADD CONSTRAINT [DF_CuentaCte_nPorcDetrc] DEFAULT (0) FOR [nPorcDetrc] GO /****** Object: Default [DF_CuentaCte_nImpoDetrc] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[CuentaCte] ADD CONSTRAINT [DF_CuentaCte_nImpoDetrc] DEFAULT (0) FOR [nImpoDetrc] GO /****** Object: Default [DF__CuentaCte__bSwAn__3449B6E4] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[CuentaCte] ADD CONSTRAINT [DF__CuentaCte__bSwAn__3449B6E4] DEFAULT (0) FOR [bSwAnulado] GO /****** Object: Default [DF__CuentaCte__iTipo__64D7DFA6] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[CuentaCte] ADD CONSTRAINT [DF__CuentaCte__iTipo__64D7DFA6] DEFAULT (0) FOR [iTipoCliente] GO /****** Object: Default [DF__CuentaCte__nPrec__3726238F] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[CuentaCteD] ADD CONSTRAINT [DF__CuentaCte__nPrec__3726238F] DEFAULT (0) FOR [nPrecioOrig] GO /****** Object: Default [DF__CuentaCte__nQtdV__381A47C8] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[CuentaCteD] ADD CONSTRAINT [DF__CuentaCte__nQtdV__381A47C8] DEFAULT (0) FOR [nQtdVendida] GO /****** Object: Default [DF__CuentaCte__nPrec__390E6C01] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[CuentaCteD] ADD CONSTRAINT [DF__CuentaCte__nPrec__390E6C01] DEFAULT (0) FOR [nPreciounit] GO /****** Object: Default [DF_CuentaCteD_nPorcServ] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[CuentaCteD] ADD CONSTRAINT [DF_CuentaCteD_nPorcServ] DEFAULT (0) FOR [nPorcServ] GO /****** Object: Default [DF_CuentaCteD_nCostoArt] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[CuentaCteD] ADD CONSTRAINT [DF_CuentaCteD_nCostoArt] DEFAULT (0) FOR [nCostoArt] GO /****** Object: Default [DF__CuentaCte__nPorc__321755AF] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[CuentaCteD] ADD CONSTRAINT [DF__CuentaCte__nPorc__321755AF] DEFAULT (0) FOR [nPorcDscto] GO /****** Object: Default [DF__Operacion__iTipo__66C02818] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[OperacionParalela] ADD CONSTRAINT [DF__Operacion__iTipo__66C02818] DEFAULT (0) FOR [iTipoCliente] GO /****** Object: Default [DF_OperacionParalela_dFechaGraba] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[OperacionParalela] ADD CONSTRAINT [DF_OperacionParalela_dFechaGraba] DEFAULT (getdate()) FOR [dFechaGraba] GO /****** Object: Default [DF_OperacionParalelaProducto_nServicio] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[OperacionParalelaProducto] ADD CONSTRAINT [DF_OperacionParalelaProducto_nServicio] DEFAULT (0) FOR [nServicio] GO /****** Object: Default [DF__Operacion__nItem__36DC0ACC] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[OperacionParalelaProducto] ADD DEFAULT (0) FOR [nItem] GO /****** Object: Default [DF_Parametro_nNroSubLin] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Parametro] ADD CONSTRAINT [DF_Parametro_nNroSubLin] DEFAULT (1) FOR [nNroSubLin] GO /****** Object: Default [DF_Parametros_bflagnoedit] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Parametro] ADD CONSTRAINT [DF_Parametros_bflagnoedit] DEFAULT (0) FOR [bflagnoedit] GO /****** Object: Default [DF_Parametros_bflagnodel] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Parametro] ADD CONSTRAINT [DF_Parametros_bflagnodel] DEFAULT (1) FOR [bflagnodel] GO /****** Object: Default [DF__Venta01__bTieneD__5D56B96F] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Venta01] ADD CONSTRAINT [DF__Venta01__bTieneD__5D56B96F] DEFAULT (0) FOR [bTieneDetraccion] GO /****** Object: Default [DF__Venta01__bLiquid__5E4ADDA8] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Venta01] ADD CONSTRAINT [DF__Venta01__bLiquid__5E4ADDA8] DEFAULT (0) FOR [bLiquidado] GO /****** Object: Default [DF_Personal_solic_int] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[usuario] ADD CONSTRAINT [DF_Personal_solic_int] DEFAULT (0) FOR [solic_int] GO /****** Object: Default [DF_Personal_aprob_solic] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[usuario] ADD CONSTRAINT [DF_Personal_aprob_solic] DEFAULT (0) FOR [aprob_solic] GO /****** Object: Default [DF_Personal_o_c] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[usuario] ADD CONSTRAINT [DF_Personal_o_c] DEFAULT (0) FOR [o_c] GO /****** Object: Default [DF_Personal_NI] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[usuario] ADD CONSTRAINT [DF_Personal_NI] DEFAULT (0) FOR [NI] GO /****** Object: Default [DF_Personal_NS] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[usuario] ADD CONSTRAINT [DF_Personal_NS] DEFAULT (0) FOR [NS] GO /****** Object: Default [DF_Personal_Informes] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[usuario] ADD CONSTRAINT [DF_Personal_Informes] DEFAULT (0) FOR [Informes] GO /****** Object: Default [DF_Personal_Articulo] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[usuario] ADD CONSTRAINT [DF_Personal_Articulo] DEFAULT (0) FOR [Articulo] GO /****** Object: Default [DF_Personal_Linea_Sub] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[usuario] ADD CONSTRAINT [DF_Personal_Linea_Sub] DEFAULT (0) FOR [Linea_Sub] GO /****** Object: Default [DF_Personal_Config] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[usuario] ADD CONSTRAINT [DF_Personal_Config] DEFAULT (0) FOR [Config] GO /****** Object: Default [DF_Personal_Seguridad] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[usuario] ADD CONSTRAINT [DF_Personal_Seguridad] DEFAULT (0) FOR [Seguridad] GO /****** Object: Default [DF__Personal__Inf_Pr__492FC531] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[usuario] ADD DEFAULT (0) FOR [Inf_Producto] GO /****** Object: Default [DF__Personal__Inf_Vt__4A23E96A] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[usuario] ADD DEFAULT (0) FOR [Inf_Vtas] GO /****** Object: Default [DF__Personal__Inf_Vt__4B180DA3] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[usuario] ADD DEFAULT (0) FOR [Inf_VtasxCli] GO /****** Object: Default [DF__Personal__Inf_Mo__4C0C31DC] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[usuario] ADD DEFAULT (0) FOR [Inf_MovAl] GO /****** Object: Default [DF__Personal__Provee__4D005615] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[usuario] ADD DEFAULT (0) FOR [Proveedor] GO /****** Object: Default [DF__Personal__Marca__4DF47A4E] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[usuario] ADD DEFAULT (0) FOR [Marca] GO /****** Object: Default [DF__Personal__UndMed__4EE89E87] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[usuario] ADD DEFAULT (0) FOR [UndMed] GO /****** Object: Default [DF__Personal__Acceso__041B80D5] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[usuario] ADD DEFAULT (0) FOR [AccesoOp] GO /****** Object: Default [DF__registro___bFlag__0D3AD6BB] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[registro_canje_cumpleaños_d] ADD CONSTRAINT [DF__registro___bFlag__0D3AD6BB] DEFAULT (0) FOR [bFlagSincro] GO /****** Object: Default [DF__registro___i_id___0E2EFAF4] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[registro_canje_cumpleaños_d] ADD CONSTRAINT [DF__registro___i_id___0E2EFAF4] DEFAULT (1) FOR [i_id_local_canje] GO /****** Object: Default [DF__registro___bFlag__0B528E49] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[registro_canje_cumpleaños] ADD DEFAULT (0) FOR [bFlagSincro] GO /****** Object: Default [DF__registro___i_id___0C46B282] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[registro_canje_cumpleaños] ADD DEFAULT (1) FOR [i_id_local_canje] GO /****** Object: Default [DF_Perfil_bFlagAdm] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Perfil] ADD CONSTRAINT [DF_Perfil_bFlagAdm] DEFAULT (0) FOR [bFlagAdm] GO /****** Object: Default [DF__Perfil__nUsrEst__03275C9C] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Perfil] ADD DEFAULT (0) FOR [nUsrEst] GO /****** Object: Default [DF__Pagos__bEsPagoDe__61274A53] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Pagos] ADD CONSTRAINT [DF__Pagos__bEsPagoDe__61274A53] DEFAULT (0) FOR [bEsPagoDetraccion] GO /****** Object: Default [DF_NivelParametro_nNroNivel] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[NivelParametro] ADD CONSTRAINT [DF_NivelParametro_nNroNivel] DEFAULT (0.0) FOR [nNroNivel] GO /****** Object: Default [DF_NivelParametro_nNroCarac] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[NivelParametro] ADD CONSTRAINT [DF_NivelParametro_nNroCarac] DEFAULT (0) FOR [nNroCarac] GO /****** Object: Default [DF_Empresa_bSwActivo] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Empresa] ADD CONSTRAINT [DF_Empresa_bSwActivo] DEFAULT (0) FOR [bSwActivo] GO /****** Object: Default [DF__Cliente__iTipoCl__67B44C51] Script Date: 03/04/2013 10:56:25 ******/ ALTER TABLE [dbo].[Cliente] ADD DEFAULT (0) FOR [iTipoCliente] GO /****** Object: Default [DF__Linea__nlugarDes__02333863] Script Date: 03/04/2013 10:56:25 ******/ ALTER TABLE [dbo].[Linea] ADD DEFAULT (0) FOR [nlugarDespacho] GO /****** Object: Default [DF_Inventario_nCantidad] Script Date: 03/04/2013 10:56:25 ******/ ALTER TABLE [dbo].[Inventario] ADD CONSTRAINT [DF_Inventario_nCantidad] DEFAULT (0) FOR [nCantidad] GO /****** Object: Default [DF_Inventario_nCosto] Script Date: 03/04/2013 10:56:25 ******/ ALTER TABLE [dbo].[Inventario] ADD CONSTRAINT [DF_Inventario_nCosto] DEFAULT (0) FOR [nCosto] GO /****** Object: Default [DF_Inventario_nTotal] Script Date: 03/04/2013 10:56:25 ******/ ALTER TABLE [dbo].[Inventario] ADD CONSTRAINT [DF_Inventario_nTotal] DEFAULT (0) FOR [nTotal] GO /****** Object: Default [DF_Inventario_cFlagCerrado] Script Date: 03/04/2013 10:56:25 ******/ ALTER TABLE [dbo].[Inventario] ADD CONSTRAINT [DF_Inventario_cFlagCerrado] DEFAULT (0) FOR [cFlagCerrado] GO /****** Object: ForeignKey [FK_ArticuloEnsamblado_Articulo] Script Date: 03/04/2013 10:56:18 ******/ ALTER TABLE [dbo].[ArticuloEnsamblado] WITH NOCHECK ADD CONSTRAINT [FK_ArticuloEnsamblado_Articulo] FOREIGN KEY([cCodartic]) REFERENCES [dbo].[Articulo] ([cCodArtic]) ON UPDATE CASCADE ON DELETE CASCADE GO ALTER TABLE [dbo].[ArticuloEnsamblado] CHECK CONSTRAINT [FK_ArticuloEnsamblado_Articulo] GO /****** Object: ForeignKey [FK_ArticuloAlquilerPrecio_Articulo] Script Date: 03/04/2013 10:56:18 ******/ ALTER TABLE [dbo].[ArticuloAlquilerPrecio] WITH NOCHECK ADD CONSTRAINT [FK_ArticuloAlquilerPrecio_Articulo] FOREIGN KEY([cCodArtic]) REFERENCES [dbo].[Articulo] ([cCodArtic]) ON UPDATE CASCADE ON DELETE CASCADE GO ALTER TABLE [dbo].[ArticuloAlquilerPrecio] CHECK CONSTRAINT [FK_ArticuloAlquilerPrecio_Articulo] GO /****** Object: ForeignKey [FK__OrdenServ__cCodO__44FF419A] Script Date: 03/04/2013 10:56:20 ******/ ALTER TABLE [dbo].[OrdenServicioD] WITH NOCHECK ADD CONSTRAINT [FK__OrdenServ__cCodO__44FF419A] FOREIGN KEY([cCodOServ]) REFERENCES [dbo].[OrdenServicio] ([cCodOServ]) GO ALTER TABLE [dbo].[OrdenServicioD] CHECK CONSTRAINT [FK__OrdenServ__cCodO__44FF419A] GO /****** Object: ForeignKey [FK_OrdenServicioD_Articulo] Script Date: 03/04/2013 10:56:20 ******/ ALTER TABLE [dbo].[OrdenServicioD] WITH NOCHECK ADD CONSTRAINT [FK_OrdenServicioD_Articulo] FOREIGN KEY([cCodidart]) REFERENCES [dbo].[Articulo] ([cCodArtic]) GO ALTER TABLE [dbo].[OrdenServicioD] NOCHECK CONSTRAINT [FK_OrdenServicioD_Articulo] GO /****** Object: ForeignKey [FK__OrdenComp__cCodO__412EB0B6] Script Date: 03/04/2013 10:56:20 ******/ ALTER TABLE [dbo].[OrdenCompraD] WITH NOCHECK ADD CONSTRAINT [FK__OrdenComp__cCodO__412EB0B6] FOREIGN KEY([cCodOComp]) REFERENCES [dbo].[OrdenCompra] ([cCodOComp]) GO ALTER TABLE [dbo].[OrdenCompraD] CHECK CONSTRAINT [FK__OrdenComp__cCodO__412EB0B6] GO /****** Object: ForeignKey [FK_OrdenCompraD_Articulo] Script Date: 03/04/2013 10:56:20 ******/ ALTER TABLE [dbo].[OrdenCompraD] WITH NOCHECK ADD CONSTRAINT [FK_OrdenCompraD_Articulo] FOREIGN KEY([cCodidart]) REFERENCES [dbo].[Articulo] ([cCodArtic]) GO ALTER TABLE [dbo].[OrdenCompraD] CHECK CONSTRAINT [FK_OrdenCompraD_Articulo] GO /****** Object: ForeignKey [FK__MarcaProv__cCodP__3A81B327] Script Date: 03/04/2013 10:56:20 ******/ ALTER TABLE [dbo].[MarcaProveedor] WITH NOCHECK ADD CONSTRAINT [FK__MarcaProv__cCodP__3A81B327] FOREIGN KEY([cCodProve]) REFERENCES [dbo].[Proveedor] ([cCodProve]) GO ALTER TABLE [dbo].[MarcaProveedor] CHECK CONSTRAINT [FK__MarcaProv__cCodP__3A81B327] GO /****** Object: ForeignKey [FK__MarcaProv__cIdtm__3B75D760] Script Date: 03/04/2013 10:56:20 ******/ ALTER TABLE [dbo].[MarcaProveedor] WITH CHECK ADD FOREIGN KEY([cIdtmarca]) REFERENCES [dbo].[Marca] ([cIdtmarca]) GO /****** Object: ForeignKey [FK__Solicitud__cCodS__49C3F6B7] Script Date: 03/04/2013 10:56:20 ******/ ALTER TABLE [dbo].[SolicitudInternaD] WITH NOCHECK ADD CONSTRAINT [FK__Solicitud__cCodS__49C3F6B7] FOREIGN KEY([cCodSolInt]) REFERENCES [dbo].[SolicitudInterna] ([cCodSolInt]) GO ALTER TABLE [dbo].[SolicitudInternaD] CHECK CONSTRAINT [FK__Solicitud__cCodS__49C3F6B7] GO /****** Object: ForeignKey [FK__OrdenCompraMov__4222D4EF] Script Date: 03/04/2013 10:56:20 ******/ ALTER TABLE [dbo].[OrdenCompraMov] WITH NOCHECK ADD CONSTRAINT [FK__OrdenCompraMov__4222D4EF] FOREIGN KEY([cCodslcot], [nNmtItmCot]) REFERENCES [dbo].[SolicitudCotizacionD] ([cCodslcot], [nNmtItmCot]) GO ALTER TABLE [dbo].[OrdenCompraMov] CHECK CONSTRAINT [FK__OrdenCompraMov__4222D4EF] GO /****** Object: ForeignKey [FK__OrdenCompraMov__4316F928] Script Date: 03/04/2013 10:56:20 ******/ ALTER TABLE [dbo].[OrdenCompraMov] WITH NOCHECK ADD CONSTRAINT [FK__OrdenCompraMov__4316F928] FOREIGN KEY([nNmtItmOS], [cCodOServ]) REFERENCES [dbo].[OrdenServicioD] ([nNmtItmOS], [cCodOServ]) GO ALTER TABLE [dbo].[OrdenCompraMov] CHECK CONSTRAINT [FK__OrdenCompraMov__4316F928] GO /****** Object: ForeignKey [FK__OrdenCompraMov__440B1D61] Script Date: 03/04/2013 10:56:20 ******/ ALTER TABLE [dbo].[OrdenCompraMov] WITH NOCHECK ADD CONSTRAINT [FK__OrdenCompraMov__440B1D61] FOREIGN KEY([nNmtItmCot], [cCodOComp]) REFERENCES [dbo].[OrdenCompraD] ([nNmItmOC], [cCodOComp]) GO ALTER TABLE [dbo].[OrdenCompraMov] CHECK CONSTRAINT [FK__OrdenCompraMov__440B1D61] GO /****** Object: ForeignKey [FK__Solicitud__cCods__47DBAE45] Script Date: 03/04/2013 10:56:20 ******/ ALTER TABLE [dbo].[SolicitudCotizacionD] WITH NOCHECK ADD CONSTRAINT [FK__Solicitud__cCods__47DBAE45] FOREIGN KEY([cCodslcot]) REFERENCES [dbo].[SolicitudCotizacion] ([cCodslcot]) GO ALTER TABLE [dbo].[SolicitudCotizacionD] CHECK CONSTRAINT [FK__Solicitud__cCods__47DBAE45] GO /****** Object: ForeignKey [FK_SolicitudCotizacionD_Articulo] Script Date: 03/04/2013 10:56:20 ******/ ALTER TABLE [dbo].[SolicitudCotizacionD] WITH NOCHECK ADD CONSTRAINT [FK_SolicitudCotizacionD_Articulo] FOREIGN KEY([cCodidart]) REFERENCES [dbo].[Articulo] ([cCodArtic]) GO ALTER TABLE [dbo].[SolicitudCotizacionD] NOCHECK CONSTRAINT [FK_SolicitudCotizacionD_Articulo] GO /****** Object: ForeignKey [FK__Solicitud__cCodS__4CA06362] Script Date: 03/04/2013 10:56:20 ******/ ALTER TABLE [dbo].[SolicitudProveedorD] WITH NOCHECK ADD CONSTRAINT [FK__Solicitud__cCodS__4CA06362] FOREIGN KEY([cCodSprov]) REFERENCES [dbo].[SolicitudProveedor] ([cCodSprov]) GO ALTER TABLE [dbo].[SolicitudProveedorD] CHECK CONSTRAINT [FK__Solicitud__cCodS__4CA06362] GO /****** Object: ForeignKey [FK_SolicitudProveedorD_Articulo] Script Date: 03/04/2013 10:56:20 ******/ ALTER TABLE [dbo].[SolicitudProveedorD] WITH NOCHECK ADD CONSTRAINT [FK_SolicitudProveedorD_Articulo] FOREIGN KEY([cCodidart]) REFERENCES [dbo].[Articulo] ([cCodArtic]) GO ALTER TABLE [dbo].[SolicitudProveedorD] NOCHECK CONSTRAINT [FK_SolicitudProveedorD_Articulo] GO /****** Object: ForeignKey [FK__Proveedor__cIdtr__45F365D3] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[Proveedor] WITH NOCHECK ADD CONSTRAINT [FK__Proveedor__cIdtr__45F365D3] FOREIGN KEY([cIdtrubro]) REFERENCES [dbo].[Rubro] ([cIdtrubro]) GO ALTER TABLE [dbo].[Proveedor] CHECK CONSTRAINT [FK__Proveedor__cIdtr__45F365D3] GO /****** Object: ForeignKey [FK__Solicitud__cCods__4BAC3F29] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[SolicitudProveedor] WITH NOCHECK ADD CONSTRAINT [FK__Solicitud__cCods__4BAC3F29] FOREIGN KEY([cCodslcot]) REFERENCES [dbo].[SolicitudCotizacion] ([cCodslcot]) GO ALTER TABLE [dbo].[SolicitudProveedor] CHECK CONSTRAINT [FK__Solicitud__cCods__4BAC3F29] GO /****** Object: ForeignKey [FK__Solicitud__cIdTi__4AB81AF0] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[SolicitudProveedor] WITH NOCHECK ADD CONSTRAINT [FK__Solicitud__cIdTi__4AB81AF0] FOREIGN KEY([cIdTipItm]) REFERENCES [dbo].[TipoItem] ([cIdTipItm]) GO ALTER TABLE [dbo].[SolicitudProveedor] CHECK CONSTRAINT [FK__Solicitud__cIdTi__4AB81AF0] GO /****** Object: ForeignKey [FK__Solicitud__cIdTi__48CFD27E] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[SolicitudInterna] WITH NOCHECK ADD CONSTRAINT [FK__Solicitud__cIdTi__48CFD27E] FOREIGN KEY([cIdTipItm]) REFERENCES [dbo].[TipoItem] ([cIdTipItm]) GO ALTER TABLE [dbo].[SolicitudInterna] CHECK CONSTRAINT [FK__Solicitud__cIdTi__48CFD27E] GO /****** Object: ForeignKey [FK__Solicitud__cIdTi__46E78A0C] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[SolicitudCotizacion] WITH NOCHECK ADD CONSTRAINT [FK__Solicitud__cIdTi__46E78A0C] FOREIGN KEY([cIdTipItm]) REFERENCES [dbo].[TipoItem] ([cIdTipItm]) GO ALTER TABLE [dbo].[SolicitudCotizacion] CHECK CONSTRAINT [FK__Solicitud__cIdTi__46E78A0C] GO /****** Object: ForeignKey [FK__OrdenComp__cCodS__403A8C7D] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[OrdenCompra] WITH NOCHECK ADD CONSTRAINT [FK__OrdenComp__cCodS__403A8C7D] FOREIGN KEY([cCodSprov]) REFERENCES [dbo].[SolicitudProveedor] ([cCodSprov]) GO ALTER TABLE [dbo].[OrdenCompra] CHECK CONSTRAINT [FK__OrdenComp__cCodS__403A8C7D] GO /****** Object: ForeignKey [FK__OrdenComp__cIdTi__3F466844] Script Date: 03/04/2013 10:56:24 ******/ ALTER TABLE [dbo].[OrdenCompra] WITH NOCHECK ADD CONSTRAINT [FK__OrdenComp__cIdTi__3F466844] FOREIGN KEY([cIdTipItm]) REFERENCES [dbo].[TipoItem] ([cIdTipItm]) GO ALTER TABLE [dbo].[OrdenCompra] CHECK CONSTRAINT [FK__OrdenComp__cIdTi__3F466844] GO /****** Object: ForeignKey [FK__SubLinea__cCodLi] Script Date: 03/04/2013 10:56:26 ******/ ALTER TABLE [dbo].[SubLinea] WITH NOCHECK ADD CONSTRAINT [FK__SubLinea__cCodLi] FOREIGN KEY([cCodLinea]) REFERENCES [dbo].[Linea] ([cCodLinea]) GO ALTER TABLE [dbo].[SubLinea] NOCHECK CONSTRAINT [FK__SubLinea__cCodLi] GO