diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 349be1126..d152d48e1 100644 --- a/Compras/Compras.aspx.vb +++ b/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 diff --git a/CxC/RepCxC.aspx b/CxC/RepCxC.aspx index bfe73aab6..d574ce5a0 100644 --- a/CxC/RepCxC.aspx +++ b/CxC/RepCxC.aspx @@ -358,8 +358,8 @@
- - + +
diff --git a/CxC/RepCxCDetalle.aspx b/CxC/RepCxCDetalle.aspx index 3ad0774c7..60b7fda83 100644 --- a/CxC/RepCxCDetalle.aspx +++ b/CxC/RepCxCDetalle.aspx @@ -1,718 +1,736 @@ -<%@ Page Title="SIG: Reporte de Cuentas X Cobrar Detalle" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepCxCDetalle.aspx.vb" Inherits="RepCxCDetalle" %> - -<%@ Register Assembly="TimePicker" Namespace="MKB.TimePicker" TagPrefix="cc1" %> -<%@ Register Assembly="eWorld.UI" Namespace="eWorld.UI" TagPrefix="ew" %> - - - - - - - - - -
  • - PDF -
    • -
  • - Excel -
    • -
  • - Generar Excel Personalizado -
    • -
  • - Personalizar Columnas -
    • - -
  • - Ver Dlls en pesos -
    • -
  • - Habilitar Cobranza -
    • -
  • - Ir a Gestión de Cobranza -
    • -     - - - - - -     - -     - - Reporte de CxC - Detalle - - - - - - - -
    -
    -
    - - -
    -
    -
    -
    +<%@ Page Title="SIG: Reporte de Cuentas X Cobrar Detalle" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepCxCDetalle.aspx.vb" Inherits="RepCxCDetalle" %> + +<%@ Register Assembly="TimePicker" Namespace="MKB.TimePicker" TagPrefix="cc1" %> +<%@ Register Assembly="eWorld.UI" Namespace="eWorld.UI" TagPrefix="ew" %> + + + + + + + + + +
  • + PDF +
    • +
  • + Excel +
    • +
  • + Generar Excel Personalizado +
    • +
  • + Personalizar Columnas +
    • + +
  • + Ver Dlls en pesos +
    • +
  • + Habilitar Cobranza +
    • +
  • + Ir a Gestión de Cobranza +
    • +     + + + + + +     + +     + + Reporte de CxC - Detalle + + + + + + + +
    +
    +
    + + +
    +
    +
    +
    Cliente: -
    -
    - + +
    +
    + <%-- - --%> - - - - -
    - -
    + --%> + + + + +
    + +
    Sucursal: -
    -
    - - - -
    -
    + +
    +
    + + + +
    +
    Grupo: -
    -
    - - - - - - - - - - - - - - -
    -
    -
    -
    - +
    + -
    - - - - - +
    +
    +
    + Linea Adicional: + +
    +
    + + + + + +
    +
    + + +
    +
    + + + + +
    - - +
    -     - - - -
    -
    - - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> - -
    -
    -
    -
    -
    - - Usuario Cobranza -
    -
    - -
    -
    -
    - -
    -
    -
    - - - -
    -
    -
    - - -
    -
    -
    - - - -
    -
    -
    - -
    -
    -
    - - - -
    -
    -
    - -
    -
    - -
    -
    - -
    -
    - -
    -
    - -
    -
    - - -
    - - - - - - -
    - -
    -
    - - -
    -
    - -
    - -
    - -
    -
    -
    -
    -     -     - -
    - - - - - - - + + + + +
    +
    + + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + +
    +
    +
    +
    +
    + + Usuario Cobranza +
    +
    + +
    +
    +
    + +
    +
    +
    + + + +
    +
    +
    + + +
    +
    +
    + + + +
    +
    +
    + +
    +
    +
    + + + +
    +
    +
    + +
    +
    + +
    +
    + +
    +
    + +
    +
    + +
    +
    + + +
    + + + + + + +
    + +
    +
    + + +
    +
    + +
    + +
    + +
    +
    +
    +
    +     +     + +
    + + + + + + + - - <%----%> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + +
    +
    + + +
    + + + + +     +     + + +     + - + + diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 8e1a53863..94dcafa7c 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/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() diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 9765f9698..ef79851d5 100644 --- a/Ventas/PV.aspx.vb +++ b/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 diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 6e895b81a..de40d3115 100644 --- a/Ventas/Ventas.aspx.vb +++ b/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