SP_MANTENIMIENTO

Mantenimiento SP:


use ventas
go

/* PROCEDIMIENTOS ALMACENADOS PARA LOS DIFERENTES MANTENIMIENTOS */
IF EXISTS (SELECT 1 FROM sys.objects WHERE name = 'SP_ABC_CAJAS' AND TYPE = 'P')
     DROP PROC SP_ABC_CAJAS
GO

CREATE PROC SP_ABC_CAJAS (@TIPO INT,@IDCAJA INT,@DESCRIPCION VARCHAR(10),@ESTADO CHAR(1) )
AS
IF @TIPO = 1
BEGIN
INSERT INTO CAJAS  VALUES (@IDCAJA, @DESCRIPCION,@ESTADO)
END
ELSE
IF @TIPO = 2
BEGIN
DELETE FROM CAJAS
WHERE IDCAJA = @IDCAJA
END
ELSE
BEGIN
UPDATE CAJAS
  SET DESCRIPCION = @DESCRIPCION
    , ESTADO      = @ESTADO
WHERE IDCAJA      = @IDCAJA
END

GO

IF EXISTS (SELECT 1 FROM sys.objects WHERE name = 'SP_ABC_USUARIOS' AND TYPE = 'P')
     DROP PROC SP_ABC_USUARIOS
GO

CREATE PROC SP_ABC_USUARIOS (@TIPO INT,@IDUSUARIO INT,@APELLIDO VARCHAR(10),@NOMBRE VARCHAR(10),@PASSWORD VARCHAR(10),@ESTADO CHAR(1), @FECHA_INGRESO DATETIME )
AS
IF @TIPO = 1
BEGIN
INSERT INTO USUARIOS VALUES (@IDUSUARIO, @APELLIDO,@NOMBRE,@PASSWORD,@ESTADO,@FECHA_INGRESO)
END
ELSE
IF @TIPO = 2
BEGIN
DELETE FROM USUARIOS
WHERE IDUSUARIO= @IDUSUARIO
END
ELSE
BEGIN
UPDATE USUARIOS
  SET APELLIDO      = @APELLIDO
    , NOMBRE        = @NOMBRE
    , ESTADO        = @ESTADO
    , FECHA_INGRESO = @FECHA_INGRESO
WHERE IDUSUARIO     = @IDUSUARIO
END

GO

IF EXISTS (SELECT 1 FROM sys.objects WHERE name = 'SP_ABC_BODEGA' AND TYPE = 'P')
     DROP PROC SP_ABC_BODEGA
GO

CREATE PROC SP_ABC_BODEGA (@TIPO INT,@IDUBICACION INT,@FILA INT ,@COLUMNA INT,@DESCRIPCION VARCHAR(10),@ESTADO CHAR(1))
AS
IF @TIPO = 1
BEGIN
INSERT INTO BODEGA VALUES (@IDUBICACION, @FILA,@COLUMNA,@DESCRIPCION,@ESTADO)
END
ELSE
IF @TIPO = 2
BEGIN
DELETE FROM BODEGA
WHERE IDUBICACION= @IDUBICACION
END
ELSE
BEGIN
UPDATE BODEGA
  SET FILA        = @FILA
    , COLUMNA     = @COLUMNA
    , DESCRIPCION = @DESCRIPCION
    , ESTADO      = @ESTADO
WHERE IDUBICACION = @IDUBICACION
END

GO

IF EXISTS (SELECT 1 FROM sys.objects WHERE name = 'SP_ABC_PROVEEDORES' AND TYPE = 'P')
     DROP PROC SP_ABC_PROVEEDORES
GO

CREATE PROC SP_ABC_PROVEEDORES (@TIPO INT,@IDPROVEEDOR INT,@DESCRIPCION VARCHAR(10),@FECHA_INICIO DATETIME ,@ESTADO CHAR(1) )
AS
IF @TIPO = 1
BEGIN
INSERT INTO PROVEEDORES VALUES (@IDPROVEEDOR, @DESCRIPCION,@FECHA_INICIO,@ESTADO)
END
ELSE
IF @TIPO = 2
BEGIN
DELETE FROM PROVEEDORES
WHERE IDPROVEEDOR = @IDPROVEEDOR
END
ELSE
BEGIN
UPDATE PROVEEDORES
  SET DESCRIPCION   = @DESCRIPCION
    , FECHA_INICIO  = @FECHA_INICIO
    , ESTADO        = @ESTADO
WHERE IDPROVEEDOR   = @IDPROVEEDOR
END

GO

IF EXISTS (SELECT 1 FROM sys.objects WHERE name = 'SP_ABC_PRODUCTOS' AND TYPE = 'P')
     DROP PROC SP_ABC_PRODUCTOS
GO

CREATE PROC SP_ABC_PRODUCTOS (@TIPO INT,@IDPRODUCTO INT,@DESCRIPCION VARCHAR(10), @ESTADO CHAR(1),@PCOSTO NUMERIC (18,2),@PVENTA NUMERIC (18,2),@IDUBICACION INT,@FECHA_INGRESO DATETIME, @FECHA_CADUCA DATETIME,@IDPROVEEDOR INT,@EXISTENCIA INT,@STOCK_MIN INT , @IDUSUARIO INT )
AS
IF @TIPO = 1
BEGIN
INSERT INTO PRODUCTOS VALUES (@IDPRODUCTO, @DESCRIPCION,@ESTADO, @PCOSTO,@PVENTA,@IDUBICACION,@FECHA_INGRESO,@FECHA_CADUCA,@IDPROVEEDOR,@EXISTENCIA,@STOCK_MIN,@IDUSUARIO)
END
ELSE
IF @TIPO = 2
BEGIN
DELETE FROM PRODUCTOS
WHERE IDPROD      = @IDPRODUCTO
  AND IDUBICACION = @IDUBICACION
  AND IDPROVEEDOR = @IDPROVEEDOR
  AND IDUSUARIO   = @IDUSUARIO
END
ELSE
BEGIN
UPDATE PRODUCTOS
  SET DESCRIPCION   = @DESCRIPCION
    , ESTADO        = @ESTADO
    , PCOSTO        = @PCOSTO
    , PVENTA = @PVENTA
    , FECHA_INGRESO = @FECHA_INGRESO
    , FECHA_CADUCA  = FECHA_CADUCA
    , EXISTENCIA    = @EXISTENCIA
    , STOCK_MIN     = @STOCK_MIN
WHERE IDPROD      = @IDPRODUCTO
 AND IDUBICACION = @IDUBICACION
     AND IDPROVEEDOR = @IDPROVEEDOR
     AND IDUSUARIO   = @IDUSUARIO
END

GO

Mantenimiento

Conexion:


Imports System.Data.SqlClient

Module conexion
    Public conn As New SqlConnection()
    Public Function Conecta(strUsuario As String, strPassword As String) As Boolean

        Conecta = False
        Try
            conn.ConnectionString = "Data Source=JOUSOFT\DEVELOPER;Initial Catalog=ventas;Persist Security Info=True;User ID= " & strUsuario & ";Password= " & strPassword
            conn.Open()
            Conecta = True
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function
End Module

Mantenimiento:


Imports System.Data.SqlClient

Public Class frmABC_Bodega
    Public gintEstado As Integer

    Private Sub frmABC_Bodega_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'DataBodega.BODEGA' Puede moverla o quitarla según sea necesario.
        Me.BODEGATableAdapter.Fill(Me.DataBodega.BODEGA)
    End Sub

    Sub Mantenimento(intOpcion As Integer)
        ' 1 - Alta
        ' 2 - Baja
        ' 3 - Cambio
        Dim strMensaje As String
        prgEstado.Value = 0
        prgEstado.Maximum = 100
        prgEstado.Minimum = 0

        Select Case intOpcion
            Case 1
                strMensaje = " ingresar "
            Case 2
                strMensaje = " eliminar "
            Case 3
                strMensaje = " modificar "
            Case -1
                Beep()
                Exit Sub
        End Select

        Dim strEstado As String

        strEstado = cbmEstado.SelectedIndex

        prgEstado.Value = prgEstado.Value + 20
        Try
            prgEstado.Value = prgEstado.Value + 20
            Me.BODEGATableAdapter.SP_ABC_BODEGA(intOpcion, txtCodigo.Text, txtFila.Text, txtColumna.Text, txtDescripcion.Text, strEstado)
            prgEstado.Value = prgEstado.Value + 20
            Me.BODEGATableAdapter.Fill(Me.DataBodega.BODEGA)
        Catch ex As Exception
            MsgBox(ex.Message & " No se pudo " & strMensaje & " el registro ", MsgBoxStyle.Critical, "ERROR")
        End Try
        prgEstado.Value = prgEstado.Maximum

    End Sub

    Private Sub dgBodega_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgBodega.CellClick
        Habilitar(2)
        gintEstado = -1

        Llenado(e.RowIndex)
    End Sub

    Public Sub Llenado(intIndex As Integer)
        Try
            txtCodigo.Text = dgBodega.Item(0, intIndex).Value
            txtDescripcion.Text = dgBodega.Item(1, intIndex).Value
            txtFila.Text = dgBodega.Item(2, intIndex).Value
            txtColumna.Text = dgBodega.Item(3, intIndex).Value

            If dgBodega.Item(4, intIndex).Value = 0 Then
                cbmEstado.SelectedIndex = 0
            Else
                cbmEstado.SelectedIndex = 1
            End If
        Catch ex As Exception
            dgBodega.FirstDisplayedScrollingRowIndex = 0
        End Try
     

    End Sub

    Private Sub dgBodega_KeyDown(sender As Object, e As KeyEventArgs) Handles dgBodega.KeyDown
        If e.KeyCode = Keys.Delete Then
            If (MsgBox("Desea eliminar el registro ? ", vbYesNo)) Then
                Mantenimento(2)
            End If
        End If
    End Sub

    Private Sub opAlta_CheckedChanged(sender As Object, e As EventArgs) Handles opAlta.CheckedChanged
        gintEstado = 1
        Habilitar(1)
        txtCodigo.Focus()
    End Sub

    Private Sub opBaja_CheckedChanged(sender As Object, e As EventArgs) Handles opBaja.CheckedChanged
        gintEstado = 2
        Habilitar(2)
    End Sub

    Private Sub opCambio_CheckedChanged(sender As Object, e As EventArgs) Handles opCambio.CheckedChanged
        gintEstado = 3
        Habilitar(3)
        txtDescripcion.Focus()
    End Sub

    Private Sub btnAceptar_Click(sender As Object, e As EventArgs) Handles btnAceptar.Click
        Me.prgEstado.Visible = True
        Mantenimento(gintEstado)
        Me.prgEstado.Visible = False
        Habilitar(2)
        gintEstado = -1
    End Sub

    Public Sub Habilitar(intOpcion As Integer)
        Select Case intOpcion
            Case 1 'alta
                Me.txtCodigo.Enabled = True
                Me.txtColumna.Enabled = True
                Me.txtFila.Enabled = True
                Me.txtDescripcion.Enabled = True
                Me.cbmEstado.Enabled = True
            Case 2 ' baja
                Me.txtCodigo.Enabled = False
                Me.txtColumna.Enabled = False
                Me.txtFila.Enabled = False
                Me.txtDescripcion.Enabled = False
                Me.cbmEstado.Enabled = False
            Case 3 'cambio
                Me.txtCodigo.Enabled = False
                Me.txtColumna.Enabled = True
                Me.txtFila.Enabled = True
                Me.txtDescripcion.Enabled = True
                Me.cbmEstado.Enabled = True
        End Select


    End Sub

    Private Sub btnCancelar_Click(sender As Object, e As EventArgs) Handles btnCancelar.Click
        Me.Close()
    End Sub

    Private Sub dgBodega_CurrentCellChanged(sender As Object, e As EventArgs) Handles dgBodega.CurrentCellChanged
        Try
            Llenado(dgBodega.CurrentCell.RowIndex)
        Catch ex As Exception

        End Try

    End Sub