Consultar Deposito Mayorista (Expresiones de combo box, control grid)

Public Class Consultar_Deposito_Mayorista

#Region "Declaraciones"

    Private ObjReqRN As New ReqRN

    Private _dtResu As New DataTable

    Public idcliente As Integer

    Private FBD_Exportar As New System.Windows.Forms.FolderBrowserDialog

    Private mDt As New DataTable

    Private _idUbicacion As Integer

#End Region

#Region "Funciones"

#End Region

    Private Sub CargarComboClientes(ByVal unUsuario As Integer)

        Dim dtResu As New DataTable

        ObjReqRN = New ReqRN

        GLUE_Cliente.Properties.DataSource = ObjReqRN.SP_PLUS_REQUERIMIENTOS_LISTAR_CLIENTE_X_USUARIO_COMBO_STOCK '(unUsuario)

        GLUE_Cliente.Properties.PopulateViewColumns()

        GLUE_Cliente.Properties.DisplayMember = "Cliente"

        GLUE_Cliente.Properties.ValueMember = "idcliente"

        GLUE_Cliente.Properties.View.Columns("idcliente").Visible = False

    End Sub

    Private Sub CargarComboClientesLocales()

        Dim dtResu As New DataTable

        ObjReqRN = New ReqRN

        GLUE_Cliente.Properties.DataSource = ObjReqRN.SP_PLUS_REQUERIMIENTOS_CLIENTES_STOCK_LISTADO_LOCALES '(unUsuario)

        GLUE_Cliente.Properties.PopulateViewColumns()

        GLUE_Cliente.Properties.DisplayMember = "Cliente"

        GLUE_Cliente.Properties.ValueMember = "idcliente"

        GLUE_Cliente.Properties.View.Columns("idcliente").Visible = False

    End Sub

    Private Sub Consultar_Deposito_Mayorista_Load(sender As Object, e As EventArgs) Handles Me.Load

        LimpiarCampos_Datos()

        'CargarComboClientes(My.Application.IDUSUARIO)

    End Sub

    Private Sub Cargar_Gcstock()

        ObjReqRN = New ReqRN

        Dim _dtResu = New DataTable

        Try

            idcliente = GLUE_Cliente.EditValue

            If idcliente <> 0 Then

                _dtResu = ObjReqRN.SP_PLUS_REQUERIMIENTOS_CLIENTES_STOCK_LEER_DEPOSITOS(idcliente)

                If Not IsNothing(_dtResu) Then

                    GcStockMayor.DataSource = _dtResu

                    Dim _ubicacion As String = _dtResu.Rows(0).Item(7)

                    Dim _subDeposito As String = _dtResu.Rows(0).Item(8)

                    Dim _Deposito As String = _dtResu.Rows(0).Item(9)

                    Dim _sede As String = _dtResu.Rows(0).Item(10)

                    CargaDatosLb(_ubicacion, _subDeposito, _Deposito, _sede)

                Else

                    GcStockMayor.DataSource = Nothing

                End If

            End If

        Catch ex As Exception

            MessageBox.Show("#ERROR D001" & ex.ToString, "Consultar Deposito", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)

        End Try

    End Sub

    Private Sub RecuperaDatosConsulta()

        Try

            mDt = New DataTable

            idcliente = GLUE_Cliente.EditValue

            mDt = AccesoBase.SetSP("SP_PLUS_REQUERIMIENTOS_CLIENTES_STOCK_DATOS_CONSULTA").SetParam(idcliente, "RRL")

            If Not IsNothing(mDt) Then

                _idUbicacion = mDt.Rows(0).Item("UBICACION")

            End If

        Catch ex As Exception

        End Try

    End Sub

    Private Sub Cargar_Gcstock_Locales()

        RecuperaDatosConsulta()

        ObjReqRN = New ReqRN

        Dim _dtResu = New DataTable

        Try

            idcliente = GLUE_Cliente.EditValue.ToString

            If idcliente <> 0 Then

                '_dtResu = ObjReqRN.SP_PLUS_REQUERIMIENTOS_CLIENTES_STOCK_LEER_DEPOSITOS(idcliente, _idUbicacion)

                _dtResu = AccesoBase.SetSP("SP_PLUS_REQUERIMIENTOS_CLIENTES_STOCK_LEER_DEPOSITOS_LOCALES").SetParam(idcliente, _idUbicacion)

                'If Not IsNothing(mDtListadoArbol) Then

                If Not IsNothing(_dtResu) Then

                    GcStockMayor.DataSource = _dtResu

                    Dim _ubicacion As String = _dtResu.Rows(0).Item(7)

                    Dim _subDeposito As String = _dtResu.Rows(0).Item(8)

                    Dim _Deposito As String = _dtResu.Rows(0).Item(9)

                    Dim _sede As String = _dtResu.Rows(0).Item(10)

                    CargaDatosLb(_ubicacion, _subDeposito, _Deposito, _sede)

                Else

                    GcStockMayor.DataSource = Nothing

                End If

            End If

        Catch ex As Exception

            MessageBox.Show("#ERROR D001" & ex.ToString, "Consultar Deposito", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)

        End Try

    End Sub

    Private Sub CargaDatosLb(ByVal ubicacion As String, ByVal subDeposito As String, ByVal Deposito As String, ByVal sede As String)

        LblDestinoSedeDato.Text = sede

        LblDestinoDepositoDato.Text = Deposito

        LblDestinoSubDepositoDato.Text = subDeposito

        LblDestinoUbicacionDato.Text = ubicacion

        Me.Refresh()

    End Sub

    Private Sub GLUE_Cliente_EditValueChanged(sender As Object, e As EventArgs) Handles GLUE_Cliente.EditValueChanged

        If RB_Mayor.Checked Then

            Cargar_Gcstock()

        Else

            Cargar_Gcstock_Locales()

        End If

    End Sub

    '****************** exportación *******************

    Private Sub Btn_ExportarExcel_Click(sender As Object, e As EventArgs) Handles Btn_ExportarExcel.Click

        FBD_Exportar = New System.Windows.Forms.FolderBrowserDialog

        Dim _valido As Boolean = True

        Try

            If (GLUE_Cliente.EditValue = 0 And GvDestino.RowCount = 0) Then

                MessageBox.Show("Algunos campos estan vacios, verifique de nuevo", "Exportar", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)

                Exit Sub

            End If

            If (GvDestino.RowCount = 0) Then

                If (MessageBox.Show("La tabla esta vacia, ¿Igual deseas Exportar?", "Exportar", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)) = Windows.Forms.DialogResult.No Then

                    _valido = False

                End If

            Else

                If _valido = True Then

                    Dim Path As String = ""

                    If FBD_Exportar.ShowDialog() = Windows.Forms.DialogResult.OK Then

                        Path = FBD_Exportar.SelectedPath & "\Stock_Deposito_" & Trim(GLUE_Cliente.Text) & "_" & Date.Now.ToString("ddMMyyyy") & ".XLS"

                        GvDestino.ExportToXls(Path)

                        MessageBox.Show("Se exportó el archivo correctamente en la ruta seleccionada.", "Exportar", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)

                    End If

                    LimpiarCampos_Datos()

                End If

            End If

            

        Catch ex As Exception

            MessageBox.Show("#ERROR D002: al intentar exportar archivo de excel." & vbCrLf & ex.Message, "Exportar", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

    End Sub

 

    Private Sub BTSalir_Click(sender As Object, e As EventArgs) Handles BTSalir.Click

        Me.Close()

    End Sub

    Private Sub LimpiarCampos_Datos()

        LblDestinoSedeDato.Text = ""

        LblDestinoDepositoDato.Text = ""

        LblDestinoSubDepositoDato.Text = ""

        LblDestinoUbicacionDato.Text = ""

        GcStockMayor.DataSource = Nothing

    End Sub

    Private Sub RB_Mayor_CheckedChanged(sender As Object, e As EventArgs) Handles RB_Mayor.CheckedChanged

        LimpiarCampos_Datos()

        CargarComboClientes(My.Application.IDUSUARIO)

    End Sub

    Private Sub RB_Locales_CheckedChanged(sender As Object, e As EventArgs) Handles RB_Locales.CheckedChanged

        LimpiarCampos_Datos()

        CargarComboClientesLocales()

    End Sub

End Class