problema con Insert duplicidad en numeracion de tickets.

14/08/2007 - 21:13 por Danilo Reinoso | Informe spam
Saludos.

Ante todo Disculpen lo estenso de mi explicacion.

Utilizo SQL2000 Y MSAccess como from end
Estoy desarrollando un programa para el control de orden de manufactura.

El problema se da cuando tengo que generar un nuevo ticket o parcial de una
orden de trabajo.
El sistema permite que de una orden se pueda generar uno o varios parciales,
para lo cual utilizo la sigte rutina.

Deseo que el nuevo ticket el campo [Numero Trabajo] se numere a partir de la
ultima Transaccion+1 ver tabla movimiento.
Lo cual en alguno momento cuando dos usuarios estan generando algun parcial
el sistema le esta asignando el mismo
[Numero Trabajo] a dos movimientos diferentes.

Creo que aqui es donde esta el problema de concurrencia ver codigo mas
abajo:

rsTRMAX.Open "SELECT MAX(transaccion) AS trMAX FROM Movimientos", _
dbGoldControl, adOpenDynamic, adLockOptimistic
'adOpenForwardOnly, adLockReadOnly
trMAX = Nz(rsTRMAX!trMAX, 0)
rsTRMAX.Close
Set rsTRMAX = Nothing
Me.Numero_Trabajo = strTipo & CLng(trMAX + 1)


El sistema tiene dos tablas
Movimientos=Ordenes en procesos
Historial=Historial de movimientos de ordenes.

DDL:
if exists (select * from dbo.sysobjects where id =
object_id(N'[dbo].[Movimientos]') and OBJECTPROPERTY(id, N'IsUserTable') =
1)
drop table [dbo].[Movimientos]
GO

CREATE TABLE [dbo].[Movimientos] (
[Transaccion] [int] IDENTITY (1, 1) NOT NULL ,
[Numero Trabajo] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Movido Desde] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Movido Hasta] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Fecha Movimiento] [datetime] NULL ,
[Hora Movimiento] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL
,
[Item No] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Item Descripcion] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL
,
[Cantidad Aceptada] [float] NULL ,
[Peso Aceptada] [float] NULL ,
[Cantidad Rechazada] [float] NULL ,
[Peso Rechazada] [float] NULL ,
[Cantidad Dañada] [float] NULL ,
[Peso Dañada] [float] NULL ,
[Peso Piedras] [float] NULL ,
[Peso Extra] [float] NULL ,
[Descripcion Extra] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NOT
NULL ,
[Peso Salida] [float] NULL ,
[Total Orden] [float] NULL ,
[Total Peso] [float] NULL ,
[Direccion Foto] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Ultimo_Trabajo] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Empleado No] [int] NULL ,
[Empleado Nombre] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL
,
[Operacion No] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Notas] [varchar] (100) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Notas_Mov] [varchar] (100) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Declarado] [bit] NULL ,
[Duracion] [float] NULL ,
[Usuario Sistema] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL
,
[Status] [int] NULL
) ON [PRIMARY]
GO

CREATE INDEX [IndicePorNumeroTrabajo] ON [dbo].[Movimientos]([Numero
Trabajo]) ON [PRIMARY]
GO

CREATE INDEX [IndicePorMovidoDesde] ON [dbo].[Movimientos]([Movido Desde])
ON [PRIMARY]
GO

CREATE INDEX [IndicePorMovidoHasta] ON [dbo].[Movimientos]([Movido Hasta])
ON [PRIMARY]
GO

CREATE INDEX [IndicePorFechaMovimiento] ON [dbo].[Movimientos]([Fecha
Movimiento]) ON [PRIMARY]
GO

CREATE INDEX [IndicePorEmpleadoNo] ON [dbo].[Movimientos]([Empleado No])
ON [PRIMARY]
GO

CREATE UNIQUE INDEX [IndicePorTransaccion] ON
[dbo].[Movimientos]([Transaccion]) ON [PRIMARY]
GO

CREATE INDEX [IndicePorStatus] ON [dbo].[Movimientos]([Status]) ON
[PRIMARY]
GO

CREATE INDEX [IX_Movimientos] ON [dbo].[Movimientos]([Item No]) ON
[PRIMARY]
GO

CREATE INDEX [IndicePorOperacionNo] ON [dbo].[Movimientos]([Operacion No])
ON [PRIMARY]
GO

CREATE INDEX [Indice_Ultimo_Trabajo] ON
[dbo].[Movimientos]([Ultimo_Trabajo]) ON [PRIMARY]
GO

CREATE INDEX [IX_Descripcion_Extra] ON [dbo].[Movimientos]([Descripcion
Extra]) ON [PRIMARY]
GO


**** Rutina de Access que inserta el movimiento e invoca el store procedure
de SQL (InsertMovimiento)

'Insert datos del Movimiento

Dim rsTRMAX As New ADODB.Recordset
Dim trMAX As Long

dbGoldControl.BeginTrans

rsTRMAX.Open "SELECT MAX(transaccion) AS trMAX FROM Movimientos", _
dbGoldControl, adOpenDynamic, adLockOptimistic
'adOpenForwardOnly, adLockReadOnly
trMAX = Nz(rsTRMAX!trMAX, 0)
rsTRMAX.Close
Set rsTRMAX = Nothing
Me.Numero_Trabajo = strTipo & CLng(trMAX + 1)

With ocmd
.ActiveConnection = dbGoldControl
.CommandType = adCmdStoredProc
.CommandText = "InsertMovimiento"

.Parameters.Append .CreateParameter("@Numero_Trabajo", adVarChar,
adParamInput, 50, Me.Numero_Trabajo)
.Parameters.Append .CreateParameter("@Movido_Desde", adVarChar,
adParamInput, 50, Me.Movido_Desde)
.Parameters.Append .CreateParameter("@Movido_Hasta", adVarChar,
adParamInput, 50, Me.Movido_Hasta)
.Parameters.Append .CreateParameter("@Item_No", adVarChar,
adParamInput, 50, Me.Item_No)
.Parameters.Append .CreateParameter("@Item_Descripcion", adVarChar,
adParamInput, 50, Me.Item_Descripcion)
.Parameters.Append .CreateParameter("@Cantidad_Aceptada", adDouble,
adParamInput, , CDbl(Me.Cantidad_Aceptada))
.Parameters.Append .CreateParameter("@Peso_Aceptada", adDouble,
adParamInput, , CDbl(Me.PesoReal1))
.Parameters.Append .CreateParameter("@Cantidad_Rechazada", adDouble,
adParamInput, , CDbl(Me.Cantidad_Rechazada))
.Parameters.Append .CreateParameter("@Peso_Rechazada", adDouble,
adParamInput, , CDbl(Me.PesoReal2))
.Parameters.Append .CreateParameter("@Cantidad_Danada", adDouble,
adParamInput, , CDbl(Me.Cantidad_Dañada))
.Parameters.Append .CreateParameter("@Peso_Danada", adDouble,
adParamInput, , CDbl(Me.PesoReal3))
.Parameters.Append .CreateParameter("@Peso_Piedras", adDouble,
adParamInput, , CDbl(Me.PesoReal4))
.Parameters.Append .CreateParameter("@Peso_Extra", adDouble,
adParamInput, , CDbl(Me.Peso_Extra))
.Parameters.Append .CreateParameter("@Descripcion_Extra", adVarChar,
adParamInput, 50, Me.Descripcion_Extra)
.Parameters.Append .CreateParameter("@Peso_Salida", adDouble,
adParamInput, , CDbl(Me.Peso_Salida))
.Parameters.Append .CreateParameter("@Direccion_Foto", adVarChar,
adParamInput, 50, Me.Direccion_Foto)
.Parameters.Append .CreateParameter("@Empleado_No", adInteger,
adParamInput, 4, Me.Empleado_No)
.Parameters.Append .CreateParameter("@Empleado_Nombre", adVarChar,
adParamInput, 50, Me.Empleado_Nombre)
.Parameters.Append .CreateParameter("@Operacion_No", adVarChar,
adParamInput, 50, Nz(Me.Operacion_No, ""))
.Parameters.Append .CreateParameter("@Duracion", adDouble,
adParamInput, , CDbl(Me.Duracion))
.Parameters.Append .CreateParameter("@Total_Orden", adDouble,
adParamInput, , CDbl(Me.Total_Orden))
.Parameters.Append .CreateParameter("@Total_Peso", adDouble,
adParamInput, , CDbl(Me.Total_Peso))
.Parameters.Append .CreateParameter("@Notas", adVarChar,
adParamInput, 100, Me.Notas)
.Parameters.Append .CreateParameter("@Notas_Mov", adVarChar,
adParamInput, 100, Me.Notas_Mov)
.Parameters.Append .CreateParameter("@Ultimo_Trabajo", adVarChar,
adParamInput, 50, Me.Ultimo_Trabajo)
.Parameters.Append .CreateParameter("@TotalPiezas", adDouble,
adParamInput, , TotalPiezas)
.Parameters.Append .CreateParameter("@TotalPesos", adDouble,
adParamInput, , TotalPesos)
.Parameters.Append .CreateParameter("@Transaccion", adInteger,
adParamInput, , Me.Transaccion)
.Parameters.Append .CreateParameter("@New_TR", adInteger,
adParamOutput)

.Execute , , adExecuteNoRecords

End With
Me.NewTR = ocmd.Parameters("@New_TR")
Set ocmd = Nothing

dbGoldControl.CommitTrans


************* Store Procedure ****************

CREATE PROCEDURE InsertMovimiento
@Numero_Trabajo VARCHAR(50),
@Movido_Desde VARCHAR(50),
@Movido_Hasta VARCHAR(50),
@Item_No VARCHAR(50),
@Item_Descripcion VARCHAR(50),
@Cantidad_Aceptada DECIMAL(10,2),
@Peso_Aceptada DECIMAL(10,2),
@Cantidad_Rechazada DECIMAL(10,2),
@Peso_Rechazada DECIMAL(10,2),
@Cantidad_Danada DECIMAL(10,2),
@Peso_Danada DECIMAL(10,2),
@Peso_Piedras DECIMAL(10,2),
@Peso_Extra DECIMAL(10,2),
@Descripcion_Extra VARCHAR(50),
@Peso_Salida DECIMAL(10,2),
@Direccion_Foto VARCHAR(50),
@Empleado_No INT,
@Empleado_Nombre VARCHAR(50),
@Operacion_No VARCHAR(50),
@Duracion DECIMAL(10,2),
@Total_Orden DECIMAL(10,2),
@Total_Peso DECIMAL(10,2),
@Notas VARCHAR(100),
@Notas_Mov VARCHAR(100),
@Ultimo_Trabajo VARCHAR(50),
@TotalPiezas DECIMAL(10,2),
@TotalPesos DECIMAL(10,2),
@Transaccion INT,
@NEW_TR INT OUTPUT


AS

SET NOCOUNT ON


INSERT INTO Movimientos([Numero Trabajo],
[Movido Desde],
[Movido Hasta],
[Item No],
[Item Descripcion],
[Cantidad Aceptada],
[Peso Aceptada],
[Cantidad Rechazada],
[Peso Rechazada],
[Cantidad Dañada],
[Peso Dañada], [Peso Piedras],
[Peso Extra],
[Descripcion Extra],
[Peso Salida],
[Direccion Foto],
[Empleado No],
[Empleado Nombre],
[Operacion No],
Duracion,
[Total Orden],
[Total Peso],
Notas,
Notas_Mov,
Ultimo_Trabajo)
VALUES(@Numero_Trabajo,
@Movido_Desde ,
@Movido_Hasta,
@Item_No,
@Item_Descripcion,
@Cantidad_Aceptada,
@Peso_Aceptada,
@Cantidad_Rechazada,
@Peso_Rechazada,
@Cantidad_Danada,
@Peso_Danada,
@Peso_Piedras,
@Peso_Extra,
@Descripcion_Extra,
@Peso_Salida,
@Direccion_Foto,
@Empleado_No,
@Empleado_Nombre,
@Operacion_No,
@Duracion,
@Total_Orden,
@Total_Peso,
@Notas,
@Notas_Mov,
@Ultimo_Trabajo)

SET @NEW_TR = SCOPE_IDENTITY()


UPDATE Movimientos SET [Cantidad Aceptada] = [Cantidad Aceptada] -
@TotalPiezas,
[Peso Aceptada] = [Peso Aceptada] - @TotalPesos,
[Peso Piedras] = [Peso Piedras] - @Peso_Piedras,
[Peso Extra] = @Peso_Extra,
[Peso Salida] = [Peso Aceptada] - @TotalPesos,
Status=1
WHERE Transaccion = @Transaccion


INSERT INTO Historial SELECT * FROM Movimientos M WHERE M.Transaccion =
@NEW_TR


DELETE FROM Movimientos WHERE Transaccion = @Transaccion AND [Cantidad
Aceptada]=0

SET NOCOUNT OFF
GO
 

Leer las respuestas

#1 Victor Koch
14/08/2007 - 22:03 | Informe spam
Hola Danilo,

¿ Y para que tenes dos campos para lo mismo ? , porque directamente no usas
el campo Transacción como Numero Trabajo y dejas que lo maneje la base de
datos.

Por lo que vi el campo Transacción es autonumerico. Si el contador lo
manejas de esa forma vas a seguir teniendo el mismo problema, la solución es
usar el campo Transacción como Numero Trabajo o tener una tabla para las
numeraciones y envolver la numeración de la tabla de numeraciones con la
inserción del movimiento en una transacción:

Comienzo transacción
Aumentar en uno la tabla de numeraciones
Tomar el nuevo numero generado de la tabla de numeraciones
Insertar el movimiento en la tabla de movimientos
Finalizar transacción


Un saludo, Víctor Koch.


"Danilo Reinoso" escribió en el mensaje
news:usWR$
Saludos.

Ante todo Disculpen lo estenso de mi explicacion.

Utilizo SQL2000 Y MSAccess como from end
Estoy desarrollando un programa para el control de orden de manufactura.

El problema se da cuando tengo que generar un nuevo ticket o parcial de


una
orden de trabajo.
El sistema permite que de una orden se pueda generar uno o varios


parciales,
para lo cual utilizo la sigte rutina.

Deseo que el nuevo ticket el campo [Numero Trabajo] se numere a partir de


la
ultima Transaccion+1 ver tabla movimiento.
Lo cual en alguno momento cuando dos usuarios estan generando algun


parcial
el sistema le esta asignando el mismo
[Numero Trabajo] a dos movimientos diferentes.

Creo que aqui es donde esta el problema de concurrencia ver codigo mas
abajo:

rsTRMAX.Open "SELECT MAX(transaccion) AS trMAX FROM Movimientos", _
dbGoldControl, adOpenDynamic, adLockOptimistic
'adOpenForwardOnly, adLockReadOnly
trMAX = Nz(rsTRMAX!trMAX, 0)
rsTRMAX.Close
Set rsTRMAX = Nothing
Me.Numero_Trabajo = strTipo & CLng(trMAX + 1)


El sistema tiene dos tablas
Movimientos=Ordenes en procesos
Historial=Historial de movimientos de ordenes.

DDL:
if exists (select * from dbo.sysobjects where id > object_id(N'[dbo].[Movimientos]') and OBJECTPROPERTY(id, N'IsUserTable') > 1)
drop table [dbo].[Movimientos]
GO

CREATE TABLE [dbo].[Movimientos] (
[Transaccion] [int] IDENTITY (1, 1) NOT NULL ,
[Numero Trabajo] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL


,
[Movido Desde] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Movido Hasta] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Fecha Movimiento] [datetime] NULL ,
[Hora Movimiento] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS


NULL
,
[Item No] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Item Descripcion] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS


NULL
,
[Cantidad Aceptada] [float] NULL ,
[Peso Aceptada] [float] NULL ,
[Cantidad Rechazada] [float] NULL ,
[Peso Rechazada] [float] NULL ,
[Cantidad Dañada] [float] NULL ,
[Peso Dañada] [float] NULL ,
[Peso Piedras] [float] NULL ,
[Peso Extra] [float] NULL ,
[Descripcion Extra] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS


NOT
NULL ,
[Peso Salida] [float] NULL ,
[Total Orden] [float] NULL ,
[Total Peso] [float] NULL ,
[Direccion Foto] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL


,
[Ultimo_Trabajo] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL


,
[Empleado No] [int] NULL ,
[Empleado Nombre] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS


NULL
,
[Operacion No] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Notas] [varchar] (100) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Notas_Mov] [varchar] (100) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Declarado] [bit] NULL ,
[Duracion] [float] NULL ,
[Usuario Sistema] [varchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS


NULL
,
[Status] [int] NULL
) ON [PRIMARY]
GO

CREATE INDEX [IndicePorNumeroTrabajo] ON [dbo].[Movimientos]([Numero
Trabajo]) ON [PRIMARY]
GO

CREATE INDEX [IndicePorMovidoDesde] ON [dbo].[Movimientos]([Movido


Desde])
ON [PRIMARY]
GO

CREATE INDEX [IndicePorMovidoHasta] ON [dbo].[Movimientos]([Movido


Hasta])
ON [PRIMARY]
GO

CREATE INDEX [IndicePorFechaMovimiento] ON [dbo].[Movimientos]([Fecha
Movimiento]) ON [PRIMARY]
GO

CREATE INDEX [IndicePorEmpleadoNo] ON [dbo].[Movimientos]([Empleado No])
ON [PRIMARY]
GO

CREATE UNIQUE INDEX [IndicePorTransaccion] ON
[dbo].[Movimientos]([Transaccion]) ON [PRIMARY]
GO

CREATE INDEX [IndicePorStatus] ON [dbo].[Movimientos]([Status]) ON
[PRIMARY]
GO

CREATE INDEX [IX_Movimientos] ON [dbo].[Movimientos]([Item No]) ON
[PRIMARY]
GO

CREATE INDEX [IndicePorOperacionNo] ON [dbo].[Movimientos]([Operacion


No])
ON [PRIMARY]
GO

CREATE INDEX [Indice_Ultimo_Trabajo] ON
[dbo].[Movimientos]([Ultimo_Trabajo]) ON [PRIMARY]
GO

CREATE INDEX [IX_Descripcion_Extra] ON [dbo].[Movimientos]([Descripcion
Extra]) ON [PRIMARY]
GO


**** Rutina de Access que inserta el movimiento e invoca el store


procedure
de SQL (InsertMovimiento)

'Insert datos del Movimiento

Dim rsTRMAX As New ADODB.Recordset
Dim trMAX As Long

dbGoldControl.BeginTrans

rsTRMAX.Open "SELECT MAX(transaccion) AS trMAX FROM Movimientos", _
dbGoldControl, adOpenDynamic, adLockOptimistic
'adOpenForwardOnly, adLockReadOnly
trMAX = Nz(rsTRMAX!trMAX, 0)
rsTRMAX.Close
Set rsTRMAX = Nothing
Me.Numero_Trabajo = strTipo & CLng(trMAX + 1)

With ocmd
.ActiveConnection = dbGoldControl
.CommandType = adCmdStoredProc
.CommandText = "InsertMovimiento"

.Parameters.Append .CreateParameter("@Numero_Trabajo", adVarChar,
adParamInput, 50, Me.Numero_Trabajo)
.Parameters.Append .CreateParameter("@Movido_Desde", adVarChar,
adParamInput, 50, Me.Movido_Desde)
.Parameters.Append .CreateParameter("@Movido_Hasta", adVarChar,
adParamInput, 50, Me.Movido_Hasta)
.Parameters.Append .CreateParameter("@Item_No", adVarChar,
adParamInput, 50, Me.Item_No)
.Parameters.Append .CreateParameter("@Item_Descripcion",


adVarChar,
adParamInput, 50, Me.Item_Descripcion)
.Parameters.Append .CreateParameter("@Cantidad_Aceptada",


adDouble,
adParamInput, , CDbl(Me.Cantidad_Aceptada))
.Parameters.Append .CreateParameter("@Peso_Aceptada", adDouble,
adParamInput, , CDbl(Me.PesoReal1))
.Parameters.Append .CreateParameter("@Cantidad_Rechazada",


adDouble,
adParamInput, , CDbl(Me.Cantidad_Rechazada))
.Parameters.Append .CreateParameter("@Peso_Rechazada", adDouble,
adParamInput, , CDbl(Me.PesoReal2))
.Parameters.Append .CreateParameter("@Cantidad_Danada", adDouble,
adParamInput, , CDbl(Me.Cantidad_Dañada))
.Parameters.Append .CreateParameter("@Peso_Danada", adDouble,
adParamInput, , CDbl(Me.PesoReal3))
.Parameters.Append .CreateParameter("@Peso_Piedras", adDouble,
adParamInput, , CDbl(Me.PesoReal4))
.Parameters.Append .CreateParameter("@Peso_Extra", adDouble,
adParamInput, , CDbl(Me.Peso_Extra))
.Parameters.Append .CreateParameter("@Descripcion_Extra",


adVarChar,
adParamInput, 50, Me.Descripcion_Extra)
.Parameters.Append .CreateParameter("@Peso_Salida", adDouble,
adParamInput, , CDbl(Me.Peso_Salida))
.Parameters.Append .CreateParameter("@Direccion_Foto", adVarChar,
adParamInput, 50, Me.Direccion_Foto)
.Parameters.Append .CreateParameter("@Empleado_No", adInteger,
adParamInput, 4, Me.Empleado_No)
.Parameters.Append .CreateParameter("@Empleado_Nombre", adVarChar,
adParamInput, 50, Me.Empleado_Nombre)
.Parameters.Append .CreateParameter("@Operacion_No", adVarChar,
adParamInput, 50, Nz(Me.Operacion_No, ""))
.Parameters.Append .CreateParameter("@Duracion", adDouble,
adParamInput, , CDbl(Me.Duracion))
.Parameters.Append .CreateParameter("@Total_Orden", adDouble,
adParamInput, , CDbl(Me.Total_Orden))
.Parameters.Append .CreateParameter("@Total_Peso", adDouble,
adParamInput, , CDbl(Me.Total_Peso))
.Parameters.Append .CreateParameter("@Notas", adVarChar,
adParamInput, 100, Me.Notas)
.Parameters.Append .CreateParameter("@Notas_Mov", adVarChar,
adParamInput, 100, Me.Notas_Mov)
.Parameters.Append .CreateParameter("@Ultimo_Trabajo", adVarChar,
adParamInput, 50, Me.Ultimo_Trabajo)
.Parameters.Append .CreateParameter("@TotalPiezas", adDouble,
adParamInput, , TotalPiezas)
.Parameters.Append .CreateParameter("@TotalPesos", adDouble,
adParamInput, , TotalPesos)
.Parameters.Append .CreateParameter("@Transaccion", adInteger,
adParamInput, , Me.Transaccion)
.Parameters.Append .CreateParameter("@New_TR", adInteger,
adParamOutput)

.Execute , , adExecuteNoRecords

End With
Me.NewTR = ocmd.Parameters("@New_TR")
Set ocmd = Nothing

dbGoldControl.CommitTrans


************* Store Procedure ****************

CREATE PROCEDURE InsertMovimiento
@Numero_Trabajo VARCHAR(50),
@Movido_Desde VARCHAR(50),
@Movido_Hasta VARCHAR(50),
@Item_No VARCHAR(50),
@Item_Descripcion VARCHAR(50),
@Cantidad_Aceptada DECIMAL(10,2),
@Peso_Aceptada DECIMAL(10,2),
@Cantidad_Rechazada DECIMAL(10,2),
@Peso_Rechazada DECIMAL(10,2),
@Cantidad_Danada DECIMAL(10,2),
@Peso_Danada DECIMAL(10,2),
@Peso_Piedras DECIMAL(10,2),
@Peso_Extra DECIMAL(10,2),
@Descripcion_Extra VARCHAR(50),
@Peso_Salida DECIMAL(10,2),
@Direccion_Foto VARCHAR(50),
@Empleado_No INT,
@Empleado_Nombre VARCHAR(50),
@Operacion_No VARCHAR(50),
@Duracion DECIMAL(10,2),
@Total_Orden DECIMAL(10,2),
@Total_Peso DECIMAL(10,2),
@Notas VARCHAR(100),
@Notas_Mov VARCHAR(100),
@Ultimo_Trabajo VARCHAR(50),
@TotalPiezas DECIMAL(10,2),
@TotalPesos DECIMAL(10,2),
@Transaccion INT,
@NEW_TR INT OUTPUT


AS

SET NOCOUNT ON


INSERT INTO Movimientos([Numero Trabajo],
[Movido Desde],
[Movido Hasta],
[Item No],
[Item Descripcion],
[Cantidad Aceptada],
[Peso Aceptada],
[Cantidad Rechazada],
[Peso Rechazada],
[Cantidad Dañada],
[Peso Dañada], [Peso Piedras],
[Peso Extra],
[Descripcion Extra],
[Peso Salida],
[Direccion Foto],
[Empleado No],
[Empleado Nombre],
[Operacion No],
Duracion,
[Total Orden],
[Total Peso],
Notas,
Notas_Mov,
Ultimo_Trabajo)
VALUES(@Numero_Trabajo,
@Movido_Desde ,
@Movido_Hasta,
@Item_No,
@Item_Descripcion,
@Cantidad_Aceptada,
@Peso_Aceptada,
@Cantidad_Rechazada,
@Peso_Rechazada,
@Cantidad_Danada,
@Peso_Danada,
@Peso_Piedras,
@Peso_Extra,
@Descripcion_Extra,
@Peso_Salida,
@Direccion_Foto,
@Empleado_No,
@Empleado_Nombre,
@Operacion_No,
@Duracion,
@Total_Orden,
@Total_Peso,
@Notas,
@Notas_Mov,
@Ultimo_Trabajo)

SET @NEW_TR = SCOPE_IDENTITY()


UPDATE Movimientos SET [Cantidad Aceptada] = [Cantidad Aceptada] -
@TotalPiezas,
[Peso Aceptada] = [Peso Aceptada] - @TotalPesos,
[Peso Piedras] = [Peso Piedras] - @Peso_Piedras,
[Peso Extra] = @Peso_Extra,
[Peso Salida] = [Peso Aceptada] - @TotalPesos,
Status=1
WHERE Transaccion = @Transaccion


INSERT INTO Historial SELECT * FROM Movimientos M WHERE M.Transaccion > @NEW_TR


DELETE FROM Movimientos WHERE Transaccion = @Transaccion AND [Cantidad
Aceptada]=0

SET NOCOUNT OFF
GO


Preguntas similares