Tengo el siguiente codigo en SQL, que actualiza una lista de precios en un pedido.
El usuario debe colocar el numero de pedido y el factor para calcular el nuevo precio.
Use [PrestigeDemo]
Go
CREATE TABLE [TEMPGruss] (
[DocEntry] [int] NOT NULL ,
[Gruss] [float] NULL,
[Util] [float] NULL,
) ON [PRIMARY]
GO
DECLARE @ListPrice INT
DECLARE @DocNum INT
DECLARE @DocEntry INT
SET @DocNum = '6359' --colocar numero de pedido
SET @ListPrice = '2'
SET @DocEntry = (Select DocEntry From ORDR Where DocNum = @DocNum)
Update RDR1
Set RDR1.PRICE = cast((RDR1.Price/1.30) as decimal (16,2))
FROM RDR1 INNER JOIN ORDR ON
RDR1.DocEntry=ORDR.DocEntry
Where RDR1.DocEntry = @DocEntry
--Go
Update RDR1
Set RDR1. PriceAfVAT = cast((RDR1.Price+(RDR1.Price*((RDR1.VatPrcnt)/100)))as decimal (16,2))
FROM RDR1 INNER JOIN ORDR ON
RDR1.DocEntry=ORDR.DocEntry
Where RDR1.DocEntry = @DocEntry
--Go
Update RDR1
Set RDR1.LINETOTAL = (RDR1.Price*RDR1.Quantity)
FROM RDR1 INNER JOIN ORDR ON
RDR1.DocEntry=ORDR.DocEntry
Where RDR1.DocEntry = @DocEntry
--Go
Update RDR1
Set RDR1.TOTALSUMSY = cast((RDR1.Price*RDR1.QUANTITY)as decimal (16,2))
FROM RDR1 INNER JOIN ORDR ON
RDR1.DocEntry=ORDR.DocEntry
Where RDR1.DocEntry = @DocEntry
--Go
Update RDR1
Set RDR1. OpenSum = (RDR1.Price*RDR1.QUANTITY)
FROM RDR1 INNER JOIN ORDR ON
RDR1.DocEntry=ORDR.DocEntry
Where RDR1.DocEntry = @DocEntry
--Go
Update RDR1
Set RDR1.OpenSumSys = (RDR1.Price *RDR1.QUANTITY)
FROM RDR1 INNER JOIN ORDR ON
RDR1.DocEntry=ORDR.DocEntry
Where RDR1.DocEntry = @DocEntry
--Go
Insert INTO TEMPGruss
Select DocEntry, Sum(RDR1.LINETOTAL)As Gruss, Sum((RDR1.Price-RDR1.GrossBuyPr) * RDR1.Quantity)
From RDR1
Where RDR1.DocEntry = @DocEntry
Group By DocEntry
--Go
Update ORDR
Set ORDR.DOCTOTAL = cast((TEMPGruss.Gruss+(TEMPGruss.Gruss*((ORDR.VatP ercent)/100)))as decimal (16,2)) ,
ORDR.GrossBase = @ListPrice,
ORDR.GrosProfit = TEMPGruss.Util,
ORDR.Comments = 'Modificado con script Precio/1.30'
From ORDR INNER JOIN TEMPGruss ON
ORDR.DocEntry = TEMPGruss.DocEntry
Where ORDR.DocEntry = @DocEntry
Go
Drop Table TEMPGruss
Cree un form en excel para qeu el usuario coloqeu el numero de pedido y el factor . Quisiera programar el boton para que cuando le de clic ejecute la consulta mostrada anteriormente.
No tengo conocimientos de VB pero me las arregle para crear el form. He estado leyendo pero hay demasiada informacion y no aterrizo.
Agradeceria sus aportes.
