nuevo grid en Entrega almacen y Clientes para usaurios autorizados para entregar al clientte

Ventas/Clientes.aspx.vb

@@ -48,6 +48,15 @@ Partial Class Clientes
         End Set
     End Property
 
+    Private Property CveClientePersonalEntrega As Integer
+        Get
+            Return ViewState("CveClientePersonalEntrega").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveClientePersonalEntrega") = value
+        End Set
+    End Property
+
     Private Property Modalidad As String
         Get
             Return ViewState("Modalidad").ToString
@@ -1743,6 +1752,9 @@ Partial Class Clientes
 
                 TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString
                 TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaAlmacen").ToString
+
+                CargarClientePersonalEntrega()
+                CargarUsuariosEntrega()
             Else
                 Existe = False
                 Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
@@ -10216,5 +10228,67 @@ Partial Class Clientes
         UpDatos.Update()
 
     End Sub
+
+    Private Sub CargarUsuariosEntrega()
+        DdlUsuarioEntrega.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlUsuarioEntrega.DataBind()
+        DdlUsuarioEntrega.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    End Sub
+
+    Private Sub CargarClientePersonalEntrega()
+        Dim ObjVentas As New ClsVentas()
+        If ObjVentas.GetClientesPersonalEntrega(-1, CveCliente, UsuarioActual.CveEmpresa, -1) Then
+            GvClentesPersonalEntrega.DataSource = ObjVentas.DtResultados
+            GvClentesPersonalEntrega.DataBind()
+        End If
+        ObjVentas.Dispose()
+    End Sub
+
+    Protected Sub BtnAgregarClientePersonalEntrega_Click(sender As Object, e As EventArgs) Handles BtnAgregarClientePersonalEntrega.Click
+        TxtPersonalEntrega.Text = ""
+        DdlUsuarioEntrega.SelectedValue = "-1"
+        ChkPersonalEntrega.Checked = False
+        UpClientePersonalEntrega.Update()
+        RegistraScript("$('#DivModalClientePersonalEntrega').modal('show');")
+    End Sub
+
+    Protected Sub LnkClientePersonalEntrega_Click(sender As Object, e As EventArgs)
+        Dim ObjVentas As New ClsVentas()
+        If LnkClientePersonalEntrega.Text = "Agregar" Then
+            If ObjVentas.AddClientesPersonalEntrega(TxtPersonalEntrega.Text, CveCliente, DdlUsuarioEntrega.SelectedValue.ToEntero, ChkPersonalEntrega.Checked) Then
+                Alert("Usuario para entregar agregado correctamente")
+            End If
+        Else
+            If ObjVentas.UpdateClientesPersonalEntrega(CveClientePersonalEntrega, TxtPersonalEntrega.Text, DdlUsuarioEntrega.SelectedValue.ToEntero, ChkPersonalEntrega.Checked) Then
+                Alert("Usuario para entregar actualizado correctamente")
+            End If
+        End If
+        ObjVentas.Dispose()
+        RegistraScript("$('#DivModalClientePersonalEntrega').modal('hide');")
+        CargarClientePersonalEntrega()
+        UpClentesPersonalEntrega.Update()
+    End Sub
+
+    Protected Sub EditClientesPersonalEntrega_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
+        CveClientePersonalEntrega = GvRow.DataKey("CvePersonalEntrega").ToEntero
+        TxtPersonalEntrega.Text = GvRow.DataKey("PersonalEntrega")
+        DdlUsuarioEntrega.SelectedValue = GvRow.DataKey("CveUsuario")
+        ChkPersonalEntrega.Checked = GvRow.DataKey("Estatus") = "True"
+        LnkClientePersonalEntrega.Text = "Actualizar"
+        UpClientePersonalEntrega.Update()
+        RegistraScript("$('#DivModalClientePersonalEntrega').modal('show');")
+    End Sub
+
+    Protected Sub DeleteClientesPersonalEntrega_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
+        Dim ObjVentas As New ClsVentas()
+        If ObjVentas.RemoveClientesPersonalEntrega(GvRow.DataKey("CvePersonalEntrega").ToEntero) Then
+            Alert("Usuario para entregar eliminado correctamente")
+        End If
+        ObjVentas.Dispose()
+        CargarClientePersonalEntrega()
+        UpClentesPersonalEntrega.Update()
+    End Sub
 End Class