Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/Ventas.aspx.vb

@@ -6111,6 +6111,10 @@ Partial Class Ventas
         End If
         BloqueaCondiconesPago()
         DeshabilitarAplicarNotaDeCredito(LblRFC.Text)
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            CargaVendedoresSubProyectos()
+        End If
     End Sub
 
     Private Sub CargaRelacionadasPendientes()
@@ -16572,6 +16576,10 @@ Partial Class Ventas
         End If
         ObjSubProyectos.Dispose()
 
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            CargaVendedoresSubProyectos()
+        End If
+
         UpDetalle.Update()
     End Sub
     Private Sub CambiaSucursal(Optional RecargarPartidas As Boolean = True)
@@ -16766,6 +16774,10 @@ Partial Class Ventas
         DdlVendedor.SelectedValue = "0"
         DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0"))
 
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            CargaVendedoresSubProyectos()
+        End If
+
         DdlVendedorSucursal.DataSource = DdlVendedor.DataSource
 
         DdlVendedor.DataBind()
@@ -21852,7 +21864,7 @@ Partial Class Ventas
             Dim tDT As DataTable = Nothing
             Dim ObjOC As New ClsOC
             If ObjOC.GetOCFacturacion(CveOC, UsuarioActual.CveEmpresa) Then
-                tDT = ObjOC.DtResultados
+                tDT = ObjOC.DtResultados.Copy()
                 'tTmpDT.Columns.Add("TipoDocto", GetType(String))
                 'tTmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
                 'tTmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal))
@@ -21865,10 +21877,14 @@ Partial Class Ventas
             If tDT IsNot Nothing AndAlso tDT.Rows.Count > 0 Then
 
 
-                ViewState("CveCliente") = ObjOC.DtResultados.Rows(0)("CveCliente")
+                ViewState("CveCliente") = tDT.Rows(0)("CveCliente")
                 HdnCveCliente.Value = CveCliente.ToString()
                 CargaCliente(CveCliente)
 
+                If (DdlTipoComprobante.Items.FindByValue("Rem") IsNot Nothing) Then
+                    DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
+                End If
+
                 For Each Dr As DataRow In tDT.Rows
 
                     AgregarProductoServicio(Dr("Cantidad").ToString().ToDecimal, Dr("CveUM").ToString().ToEntero(), Dr("UM").ToString(), Dr("CveClasificacion").ToString().ToEntero(), Dr("Clasificacion").ToString(),
@@ -32586,6 +32602,24 @@ Partial Class Ventas
         UpModalSolicitud.Update()
     End Sub
 
+    Private Sub CargaVendedoresSubProyectos()
+
+        Dim DtVendedoresSucursales = GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa, CveCliente:=Me.CveCliente, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero())
+
+        If DtVendedoresSucursales IsNot Nothing AndAlso DtVendedoresSucursales.Rows.Count > 0 Then
+            DdlVendedor.Items.Clear()
+            DdlVendedor.SelectedValue = Nothing
+
+            DdlVendedor.DataSource = DtVendedoresSucursales
+            DdlVendedor.DataBind()
+            DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0"))
+
+            DtVendedoresSucursales.Dispose()
+        End If
+
+        UpParametros.Update()
+    End Sub
+
     Public Class MAnticipoRelacionado
         Public Property CveVenta As Integer
         Public Property FolioFiscal As String