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

Ventas/FacturacionGlobal.aspx.vb

@@ -152,7 +152,6 @@ Partial Class Ventas_FacturacionGlobal
     End Sub
 
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
-        Dim CveCliente As Integer = -1 'UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
         Dim CveMoneda As Integer = 1
 
         Dim SbRemisiones As New StringBuilder()
@@ -178,17 +177,18 @@ Partial Class Ventas_FacturacionGlobal
         Dim DtPagosFacturaGlobal As New DataTable()
 
         Dim ObjClientes As New ClsClientes
-        If ObjClientes.GetVentasRemisionesTotales(CveCliente, SbRemisiones.ToString(), 1) Then
+        If ObjClientes.GetVentasRemisionesTotales(-1, SbRemisiones.ToString(), 1) Then
             DtRemisionesPS = ObjClientes.DtResultados.Copy()
         End If
 
-        If ObjClientes.GetVentasRemisionesPagos(CveCliente, SbRemisiones.ToString()) Then
+        If ObjClientes.GetVentasRemisionesPagos(-1, SbRemisiones.ToString()) Then
             DtPagosFacturaGlobal = ObjClientes.DtResultados.Copy()
         End If
         ObjClientes.Dispose()
 
         If DtRemisionesPS Is Nothing OrElse DtRemisionesPS.Rows.Count = 0 Then
-            Alert("No se pudieron cargar las remsiones para facturar", TipoMensaje.MsgError)
+            Alert("No se pudieron cargar las remisiones para facturar", TipoMensaje.MsgError)
+            GuardaLog("Remisiones: " + SbRemisiones.ToString())
             Exit Sub
         End If
 
@@ -202,7 +202,7 @@ Partial Class Ventas_FacturacionGlobal
             Exit Sub
         End If
 
-        CveCliente = UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
+        Dim CveCliente As Integer = UsuarioActual.Empresa.Funcionalidad(714).ToEntero()
         If CveCliente <= 0 Then
             Alert("No se pudo cargar el cliente", TipoMensaje.MsgError)
             Exit Sub

Ventas/Ventas.aspx.vb

@@ -17998,7 +17998,7 @@ Partial Class Ventas
     End Sub
 
     Protected Sub DdlPSEdit_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
-        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
             If GvPS.EditIndex >= 0 Then
                 Dim ddlPSEdit = DirectCast(sender, ADServerControl.Dropdownlost)
                 Dim GvRow = DirectCast(ddlPSEdit.NamingContainer, GridViewRow)