Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[VESP_VALOARTI5]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
- drop procedure [dbo].[VESP_VALOARTI5]
- GO
- SET QUOTED_IDENTIFIER OFF
- GO
- SET ANSI_NULLS ON
- GO
- update valocost1 set iva=10.5 where tipo=2 and val_tipo = 74881
- exec vesp_valoarti5 ' 3021', 4, 74881
- CREATE PROCEDURE [VESP_VALOARTI5]
- @Pc_codigo char(13),
- @Pn_Tipo INT,
- @Pn_ValTipo INT,
- @PnArti INT = 0
- AS
- /*
- RECALCULANDO COSTOS
- */
- DECLARE @ARTI INT, @PROV CHAR(13), @PROVART CHAR(13), @LISACT INT
- IF @Pn_Tipo <> 3 -- Recalculando Tipo de Precio
- BEGIN
- DECLARE CURCOSTOS CURSOR FOR
- SELECT VA.ARTI, VA.PROV, AG.LISACT, AR.PROV AS PROVART
- FROM VALOCOST1 VA
- LEFT JOIN AGENDA AG ON AG.CODIGO = VA.PROV
- LEFT JOIN ARTICULO AR ON AR.ARTI = STR(VA.ARTI, 10)
- WHERE VA.TIPO = @Pn_Tipo AND VA.VAL_TIPO = @Pn_ValTipo
- AND VA.PROV = @Pc_codigo AND VA.ARTI =
- CASE WHEN @PnArti = 0 THEN VA.ARTI ELSE @PnArti END
- OPEN CURCOSTOS
- FETCH NEXT FROM CURCOSTOS INTO @ARTI, @PROV, @LISACT, @PROVART
- WHILE @@FETCH_STATUS = 0
- BEGIN
- EXEC VESP_VALOARTI 7, @ARTI, @PROV, @Pn_Tipo, @Pn_ValTipo
- /* Si es predeterminado, actualizo cone y ciprec */
- IF @Pn_Tipo = 0 AND @PROV = @PROVART AND @Pn_VALTIPO = @LISACT
- UPDATE AR SET CONE = CO.CONE, CFPREC = CO.CONESI FROM ARTICULO AR, VALOCOST1 CO
- WHERE AR.ARTI = STR(@ARTI, 10) AND AR.ARTI = CO.ARTI AND CO.TIPO = 0 AND
- CO.VAL_TIPO = @LISACT AND CO.PROV = @PROV
- FETCH NEXT FROM CURCOSTOS INTO @ARTI, @PROV, @LISACT, @PROVART
- END
- CLOSE CURCOSTOS
- DEALLOCATE CURCOSTOS
- END
- IF @Pn_Tipo = 3 -- Recalculando Pedido
- BEGIN
- /* Recalculando el pedido */
- DECLARE CURCOSTOS CURSOR FOR
- SELECT ARTI FROM VALNOPED1
- WHERE PtoCpa = REPLACE(LEFT(STR(@Pn_Valtipo,12),4),' ','0')
- AND NroNP = REPLACE(RIGHT(STR(@Pn_Valtipo,12),8), ' ', '0') AND ARTI =
- CASE WHEN @PnArti = 0 THEN ARTI ELSE @PnArti END
- OPEN CURCOSTOS
- FETCH NEXT FROM CURCOSTOS INTO @ARTI
- WHILE @@FETCH_STATUS = 0
- BEGIN
- EXEC VESP_VALOARTI 7, @ARTI, '', 3, @Pn_Valtipo
- FETCH NEXT FROM CURCOSTOS INTO @ARTI
- END
- CLOSE CURCOSTOS
- DEALLOCATE CURCOSTOS
- END
- GO
- SET QUOTED_IDENTIFIER OFF
- GO
- SET ANSI_NULLS ON
- GO
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement