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

Inventarios/EntregaAlmacen.aspx.vb

@@ -575,6 +575,7 @@ Partial Class Inventarios_EntregaAlmacen
                     CveContrato = DtDatos.Rows(0)("CveContrato").ToString.ToEntero
                     CveVendedor = DtDatos.Rows(0)("CveVendedor").ToString.ToEntero
                     CveCliente = DtDatos.Rows(0)("CveCliente").ToString.ToEntero
+                    ClienteEntregaPersonal(CveCliente)
                     CveSubProyecto = DtDatos.Rows(0)("CveSubProyecto").ToString.ToEntero
                     EsInterno = CBool(DtDatos.Rows(0)("EsInterno").ToString)
 
@@ -3774,8 +3775,25 @@ Partial Class Inventarios_EntregaAlmacen
         ElseIf RbEntregaInterna.Checked Then
             'RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
         End If
-    End Sub
+    End Sub
 #End Region
-
-
+
+#Region "Cliente entrega personal"
+    Private Sub ClienteEntregaPersonal(CveCliente As Integer)
+        Dim ObjVentas As New ClsVentas()
+        If ObjVentas.GetClientesPersonalEntrega(-1, CveCliente, UsuarioActual.CveEmpresa, 1) Then
+            If ObjVentas.DtResultados.Rows.Count > 0 Then
+                GvClentesPersonalEntrega.DataSource = ObjVentas.DtResultados
+                GvClentesPersonalEntrega.DataBind()
+                DivPersonalEntrega.Visible = True
+            Else
+                DivPersonalEntrega.Visible = False
+            End If
+        End If
+        ObjVentas.Dispose()
+        UpClentesPersonalEntrega.Update()
+    End Sub
+#End Region
+
+
 End Class