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

Compras/Compras.aspx.vb

@@ -8591,19 +8591,18 @@ Partial Class Compras_Compras
             End If
         End If
 
-
-
         'VALIDA IMPORTES
         If CveFactura > 0 Then 'SI NO VIENE DE FACTURA/XML NO VALIDA TOTALES
-
-
-
-
             If Not ValidaTotalesGuardar() Then
                 Exit Sub
             End If
         End If
 
+        If DdlRembolsoCajaChica.SelectedValue.ToEntero() > 0 AndAlso DdlRembolsoPersonal.SelectedValue.ToEntero() > 0 Then
+            Alert("No se puede tener seleccionada una 'Caja Chica' y 'Personal/Empleado' a la vez", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         For Each Row As DataRow In TmpDT.Rows
             If Row("CveSubProyecto").ToString.ToEntero <= 0 Then
                 Alert("No se ha completado la asignacion de proyectos en la compra. ", TipoMensaje.MsgAdvertencia)
@@ -11968,13 +11967,15 @@ Partial Class Compras_Compras
     Protected Sub RblRembolso_SelectedIndexChanged(sender As Object, e As EventArgs)
         TrRembolsoCajaChica.Visible = False
         TrRembolsoPersonal.Visible = False
-        DdlRembolsoCajaChica.SelectedValueExist("-1")
-        DdlRembolsoPersonal.SelectedValueExist("-1")
+        DdlRembolsoCajaChica.SelectedValueExistInsert("-1", "Seleccione")
+        DdlRembolsoPersonal.SelectedValueExistInsert("-1", "Seleccione")
         If RblRembolso.SelectedValue.ToEntero = 1 Then
             TrRembolsoPersonal.Visible = True
         ElseIf RblRembolso.SelectedValue.ToEntero = 2 Then
             TrRembolsoCajaChica.Visible = True
         End If
+
+        UPCondicionesPago.Update()
     End Sub
 #End Region
 

CxC/RepCxC.aspx

@@ -358,8 +358,8 @@
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlTieneLineaAdicional" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                 <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                                <asp:ListItem Text="Si" Value="1"></asp:ListItem>
-                                <asp:ListItem Text="No" Value="0"></asp:ListItem>
+                                <asp:ListItem Text="Solo lineas adicionales" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Sin lineas adicionales" Value="0"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
                     </div>

Inventarios/RecepcionUsados.aspx.vb

@@ -2037,7 +2037,13 @@ Partial Class Inventarios_RecepcionUsados
     End Sub
     Private Sub CambiaCliente(Optional CargaSucursales As Boolean = True, Optional CargaFacturas As Boolean = True)
         If DdlClientes.SelectedValue.ToEntero > 0 Then
-            Me.EsDistribuidor = CBool(GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=DdlClientes.SelectedValue.ToEntero(), Estatus:=-1).FiltroPrimeroValor("EsDistribuidor", ""))
+            Dim strDistribuidor = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=DdlClientes.SelectedValue.ToEntero(), Estatus:=-1).FiltroPrimeroValor("EsDistribuidor", "")
+            If String.IsNullOrEmpty(strDistribuidor) Then
+                strDistribuidor = "False"
+            End If
+
+            Me.EsDistribuidor = CBool(strDistribuidor)
+
             If CargaSucursales Then
                 DivClienteSucursal.Visible = False
                 DdlClientesSucursales.Items.Clear()

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

@@ -18071,7 +18071,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