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

Ventas/PV.aspx.vb

@@ -1818,6 +1818,29 @@ Partial Class PV
         imgCalendario.Enabled = True
     End Sub
     Private Sub BtnPermisoEditarRemision_Click(sender As Object, e As EventArgs) Handles BtnPermisoEditarRemision.Click
+        Dim TieneInventario As Boolean = False
+        Dim TieneErrorInv As Boolean = False
+
+        Using ObjInv As New ClsInventarios
+            If ObjInv.GetInv_Mov(Me.CveVenta, UsuarioActual.CveEmpresa) Then
+                If ObjInv.DtResultados.Rows.Count > 0 Then
+                    TieneInventario = True
+                End If
+            Else
+                TieneErrorInv = True
+            End If
+        End Using
+
+        If TieneInventario Then
+            Alert("La remisión no se puede editar porque ya tiene un movimiento de almacen.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If TieneErrorInv Then
+            Alert("No se pudo comprobar el inventario de la remisión", TipoMensaje.MsgError)
+            Exit Sub
+        End If
+
         HabilitarEdicion()
         BtnPermisoEditarRemision.Visible = False
         BtnEditarRemision.Visible = True

Ventas/Ventas.aspx.vb

@@ -18062,7 +18062,7 @@ Partial Class Ventas
     End Sub
 
     Private Sub CalculaLineasAdicionales()
-        If DdlTipoComprobante.SelectedValue = "Ing" AndAlso UsuarioActual.Empresa.Funcionalidad(705) = "1"  Then
+        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") AndAlso UsuarioActual.Empresa.Funcionalidad(705) = "1" Then
             DdlLineaAdicional.DataSource = Nothing
 
             Using ObjVentas As New ClsVentas