diff --git a/Acarreos/CatChoferes.aspx b/Acarreos/CatChoferes.aspx index df81b5c84..8636c7b8b 100644 --- a/Acarreos/CatChoferes.aspx +++ b/Acarreos/CatChoferes.aspx @@ -32,8 +32,7 @@ DataKeyNames="CveChofer,Chofer,Estatus,FechaIng,CveUsuario,CveEmpresa,Usuario,CveTransportista,Identificacion,Domicilio,Telefono,Ciudad,RFC,Licencia,NumeroInterior,NumeroExterior,Colonia,Estado,NumRegidTribOperador,ResidenciaFiscalOperador,CP,CveEstado,CveMunicipio,CveLocalidad,CveColonia,ClaveSATColoniaCP" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Choferes"> - - + @@ -83,10 +82,10 @@ -
+ <%--
-
+
--%>
diff --git a/Acarreos/CatChoferes.aspx.vb b/Acarreos/CatChoferes.aspx.vb index 12be6ccc0..5c2b88185 100644 --- a/Acarreos/CatChoferes.aspx.vb +++ b/Acarreos/CatChoferes.aspx.vb @@ -12,7 +12,7 @@ Partial Class Acarreos_CatChoferes Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then CargaDatos() - CargaDdlTransportista() + ' CargaDdlTransportista() CargaDdls() @@ -44,16 +44,16 @@ Partial Class Acarreos_CatChoferes End Sub - Private Sub CargaDdlTransportista() - Dim ObjAcar As New ClsAcarreos() - If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then - DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlTransportista.DataSource = ObjAcar.DtResultados - DdlTransportista.DataBind() - End If - ObjAcar.Dispose() - UpAddChofer.Update() - End Sub + 'Private Sub CargaDdlTransportista() + ' Dim ObjAcar As New ClsAcarreos() + ' If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then + ' DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1")) + ' DdlTransportista.DataSource = ObjAcar.DtResultados + ' DdlTransportista.DataBind() + ' End If + ' ObjAcar.Dispose() + ' UpAddChofer.Update() + 'End Sub Private Sub BtnAgregarChofer_Click(sender As Object, e As EventArgs) Handles BtnAgregarChofer.Click @@ -65,32 +65,32 @@ Partial Class Acarreos_CatChoferes End If - If DdlTransportista.SelectedValue = "-1" Then - Alert("Tiene que seleccionar un transportista.", TipoMensaje.MsgAdvertencia) - Else + 'If DdlTransportista.SelectedValue = "-1" Then + ' Alert("Tiene que seleccionar un transportista.", TipoMensaje.MsgAdvertencia) + 'Else - Dim ObjAcar As New ClsAcarreos + Dim ObjAcar As New ClsAcarreos Dim Estatus = 0 If ChkEstatus.Checked Then Estatus = 1 If HdnModalidad.Value = "A" Then - If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=DdlResidenciaFiscalOperador.SelectedValue, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero) Then - CargaDatos() - Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) - GlobalDTChoferes(UsuarioActual.CveEmpresa) = Nothing - End If - ElseIf HdnModalidad.Value = "U" Then - If ObjAcar.UpdateChofer(HdnID.Value.ToEntero(), TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=DdlResidenciaFiscalOperador.SelectedValue, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero) Then - CargaDatos() - Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) - GlobalDTChoferes(UsuarioActual.CveEmpresa) = Nothing - End If + If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=DdlResidenciaFiscalOperador.SelectedValue, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero) Then + CargaDatos() + Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) + GlobalDTChoferes(UsuarioActual.CveEmpresa) = Nothing End If + ElseIf HdnModalidad.Value = "U" Then + If ObjAcar.UpdateChofer(HdnID.Value.ToEntero(), TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, -1, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=DdlResidenciaFiscalOperador.SelectedValue, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero) Then + CargaDatos() + Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) + GlobalDTChoferes(UsuarioActual.CveEmpresa) = Nothing + End If + End If RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddChofer")) ObjAcar.Dispose() UpDatos.Update() - End If + End Sub Public Sub Edit_Click(sender As Object, e As EventArgs) @@ -121,7 +121,7 @@ Partial Class Acarreos_CatChoferes DdlResidenciaFiscalOperador.SelectedValueExist("-1") DdlResidenciaFiscalOperador.SelectedValueExist(GvRow.DataKey("ResidenciaFiscalOperador")) - DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista")) + ' DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista")) divEstatus.Visible = True ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus")) @@ -182,7 +182,7 @@ Partial Class Acarreos_CatChoferes TxtLicencia.Text = "" - DdlTransportista.SelectedValueExist(-1) + ' DdlTransportista.SelectedValueExist(-1) TxtRFC.Text = "" TxtNumInt.Text = "" TxtNumExt.Text = "" diff --git a/Acumuladores/RepIndicadorDiario.aspx.vb b/Acumuladores/RepIndicadorDiario.aspx.vb index 2e229cfe7..460b62abe 100644 --- a/Acumuladores/RepIndicadorDiario.aspx.vb +++ b/Acumuladores/RepIndicadorDiario.aspx.vb @@ -76,7 +76,6 @@ Partial Class ACumuladores_RepIndicadorDiario CargaCombos() - CargaDatos() End If End Sub diff --git a/App_Code/ClsPuntoVenta.vb b/App_Code/ClsPuntoVenta.vb index e524ce6bb..bd388c409 100644 --- a/App_Code/ClsPuntoVenta.vb +++ b/App_Code/ClsPuntoVenta.vb @@ -222,13 +222,14 @@ Public Class ClsPuntoVenta Return Retorno End Function - Public Function GetCortesDetalleVentas(CveCorte As Integer, CveEmpresa As Integer) As Boolean + Public Function GetCortesDetalleVentas(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_CortesDetalleVentasGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveCorte", SqlDbType.Int).Value = CveCorte + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index 382ffee0f..d1e3553b6 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -681,7 +681,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas { string Conc = TxtObservaciones.Text == "" ? TxtFolio.Text : TxtObservaciones.Text; string Ref = TxtObservaciones.Text == "" ? TxtFolio.Text : TxtObservaciones.Text; - decimal ImporteBanco = TxtImporte.Text.ToDecimal(); + decimal ImporteBanco = TxtImporte.Text.ToDecimal().RoundSQL(); decimal ImporteMNBanco = ImporteBanco; decimal ImporteComplementaria = 0; decimal TC = TxtTCDolaresPago.Text.ToDecimal(); diff --git a/General/CATIEPSxEntidadFed.aspx.cs b/General/CATIEPSxEntidadFed.aspx.cs index bf502cc9e..980dea570 100644 --- a/General/CATIEPSxEntidadFed.aspx.cs +++ b/General/CATIEPSxEntidadFed.aspx.cs @@ -61,13 +61,13 @@ public partial class General_CATIEPSxEntidadFed : ClsPaginas RfechaInicio = RfechaInicio.ToDate().ToString("yyyy/MM/dd"); RfechaFin = RfechaFin.ToDate().ToString("yyyy/MM/dd"); - CargaIEPSxEntidadFed(); + //CargaIEPSxEntidadFed(); } } protected void CargaIEPSxEntidadFed() { ClsGenerales ObjIEPS = new ClsGenerales(); - ObjIEPS.IEPSxEntidadFed(RcveEstado, RtasaIEPS, RfechaInicio, RfechaFin, 119, RAgrupador); + ObjIEPS.IEPSxEntidadFed(RcveEstado, RtasaIEPS, RfechaInicio, RfechaFin, UsuarioActual.CveEmpresa, RAgrupador); GVIEPSxEntidadFed.DataSource = ObjIEPS.DtResultados; DtIEPS = ObjIEPS.DtResultados; ObjIEPS.Dispose(); diff --git a/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb index 24a4bf08d..195f22f72 100644 --- a/Inventarios/AjustesSeccionAlmacen.aspx.vb +++ b/Inventarios/AjustesSeccionAlmacen.aspx.vb @@ -13,7 +13,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen End Sub Private Sub CargaCombos() - Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,2, 4,12,14,16,19, 26)") + Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,2,4,8,12,14,16,19, 26)") DdlAlmacen.DataSource = DtAlmacenes DdlAlmacen.DataBind() diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index ad8c8ac40..6a403a614 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -2216,6 +2216,9 @@ Partial Class Inventarios_EntradasSalidas If DdlConcepto.Items.FindByValue("3") Is Nothing Then DdlConcepto.Items.Insert(If(DdlConcepto.Items.Count >= 2, 2, DdlConcepto.Items.Count), New ListItem("Salida Almacen ", "3")) End If + If DdlConcepto.Items.FindByValue("45") Is Nothing Then + DdlConcepto.Items.Insert(If(DdlConcepto.Items.Count >= 2, 2, DdlConcepto.Items.Count), New ListItem("Salida de Usado ", "45")) + End If End If @@ -4136,7 +4139,7 @@ Partial Class Inventarios_EntradasSalidas Dim CodigoPS As String = "" Dim PS As String = "" - Dim CveSeccionAlmacen As Integer = DdlAlmacenCambioVigencias.SelectedValue.ToEntero + Dim CveSeccionAlmacen As Integer = DdlSeccionCambio.SelectedValue.ToEntero Dim Serie As String = If(TxtSerieCambio.Text = "", "", TxtSerieCambio.Text) Dim Lote As String = If(TxtLoteCambio.Text = "", "", TxtLoteCambio.Text) Dim Caducidad As String = If(TxtCaducidadCambio.Text = "", MinFecha.ToShortDateString, TxtCaducidadCambio.Text) @@ -4535,7 +4538,8 @@ Partial Class Inventarios_EntradasSalidas ImporteConcepto += PUEntrada * Dr("Cantidad").ToString.ToDecimal() 'INSERTA EL MOVIMIENTO DE ENTRADA - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUMVigencia").ToString.ToEntero, Dr("CvePSVigencia").ToString.ToEntero, PUEntrada, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUMVigencia").ToString.ToEntero, Dr("CvePSVigencia").ToString.ToEntero, PUEntrada, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, + Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate) Then Mensaje = "Ocurrió un error al guardar los movimientos de entrada" ErrorMovInv = True Exit For @@ -5403,7 +5407,7 @@ Partial Class Inventarios_EntradasSalidas Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT - Timbre.Comprobante.Subtotal = Obj.SubTotal + Timbre.Comprobante.SubTotal = Obj.SubTotal Timbre.Comprobante.Descuentos = Obj.Descuento Timbre.Comprobante.Moneda = Obj.MonedaSAT Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 8fc06873d..cf368ca73 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -817,7 +817,7 @@ Partial Class Inventarios_TraspasoAlmacen #Region " GUARDAR " Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click - If ChkEmitirCartaPorte.Checked Then + If ChkTransitorio.Checked AndAlso ChkEmitirCartaPorte.Checked Then If DdlChofer.SelectedValue.ToEntero <= 0 Then Alert("Debe de seleccionar un chofer.", TipoMensaje.MsgAdvertencia) Exit Sub @@ -3115,13 +3115,34 @@ Partial Class Inventarios_TraspasoAlmacen Dim DrAlmO As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimero("") If DrAlmO("CveTipoAlmacen").ToString.ToEntero = 26 Then 'costeados - DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen IN (26) AND Estatus = 'Activo'") + If ChkTransitorio.Checked Then + DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoAlmacen IN (26) AND Estatus = 'Activo' ") + Else + DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN (26) ") + End If + DdlAlmacenDestino.DataBind() DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) - ElseIf DrAlmO("CveTipoAlmacen").ToString.ToEntero = 22 Then 'Recepcion de Usados + ElseIf DrAlmO("CveTipoAlmacen").ToString.Contiene("22") Then 'Recepcion de Usados + + If ChkTransitorio.Checked Then + DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoAlmacen IN (21,22) AND Estatus = 'Activo' ") + Else + DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN (21,22) ") + End If + + DdlAlmacenDestino.DataBind() + DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) + + ElseIf DrAlmO("CveTipoAlmacen").ToString.Contiene("21") Then 'dev proveedor + + If ChkTransitorio.Checked Then + DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoAlmacen IN (21,22) AND Estatus = 'Activo' ") + Else + DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN (21,22) ") + End If - DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen IN (21,22) AND Estatus = 'Activo'") DdlAlmacenDestino.DataBind() DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) Else @@ -3129,10 +3150,12 @@ Partial Class Inventarios_TraspasoAlmacen Dim Str As String If ChkTransitorio.Checked Then Str = "" ' String.Format(" AND CveSubProyecto <> {0} ", DrAlmO("CveSubProyecto")) 'RMF. pueden haber almacen que esten dentro de lamisma sucursal, pero que requeiren transitorio + DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveTipoAlmacen NOT IN (3,4,9,10,11,24,25,28) {0} AND Estatus = 'Activo' ", Str)) Else Str = String.Format(" AND CveSubProyecto = {0} ", DrAlmO("CveSubProyecto")) + DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros(String.Format(" CveTipoAlmacen NOT IN (3,4,9,10,11,24,25,28) {0} ", Str)) End If - DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveTipoAlmacen NOT IN (3,4,9,10,11,24,25,28) AND Estatus = 'Activo' {0} ", Str)) + DdlAlmacenDestino.DataBind() DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) diff --git a/RH/CatRegistroPatronal.aspx b/RH/CatRegistroPatronal.aspx index c54c38ed0..c804d36b2 100644 --- a/RH/CatRegistroPatronal.aspx +++ b/RH/CatRegistroPatronal.aspx @@ -34,7 +34,7 @@
+ CssClass="table table-hover table-striped table-advance table-hover Widthall " GridLines="None"> diff --git a/RH/Personal.aspx b/RH/Personal.aspx index e11554801..26e186b2d 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -1763,7 +1763,7 @@ diff --git a/SAT/Default.aspx b/SAT/Default.aspx deleted file mode 100644 index 7933e312e..000000000 --- a/SAT/Default.aspx +++ /dev/null @@ -1,21 +0,0 @@ -<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Default.aspx.cs" Inherits="SAT_Default" %> - - - - - - - - - - - - - - - - - - - - diff --git a/SAT/Default.aspx.cs b/SAT/Default.aspx.cs deleted file mode 100644 index 715e9e761..000000000 --- a/SAT/Default.aspx.cs +++ /dev/null @@ -1,14 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Web; -using System.Web.UI; -using System.Web.UI.WebControls; - -public partial class SAT_Default : System.Web.UI.Page -{ - protected void Page_Load(object sender, EventArgs e) - { - - } -} \ No newline at end of file diff --git a/Ventas/RepRecuperacionDetalle.aspx b/Ventas/RepRecuperacionDetalle.aspx index 1c3a85292..f71483ccd 100644 --- a/Ventas/RepRecuperacionDetalle.aspx +++ b/Ventas/RepRecuperacionDetalle.aspx @@ -289,6 +289,8 @@ + + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 631f68de7..c03cfd230 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6372,7 +6372,7 @@ Partial Class Ventas If CveCliente > 0 Then CargaAnticipos(CveCliente) : UpAnticipos.Update() - If CveCliente > 0 AndAlso UsuarioActual.CveEmpresa = 140 Then + If CveCliente > 0 AndAlso UsuarioActual.CveEmpresa = 140 AndAlso CveVenta <= 0 Then DivVentasUsados.Visible = True Dim ObjClientes As New ClsClientes @@ -22468,12 +22468,13 @@ Partial Class Ventas #Region " DEVOLUCION ALMACEN " Private Sub InicializaDevolucionAlmacen() - If Not GvInv.Rows.Count > 0 Then - Exit Sub + + If CveVenta.Contiene(2035312, 2035310, 2039679) Then + LBAplicaDevolucion.Visible = True End If - If CveVenta = 1651560 Then - LBAplicaDevolucion.Visible = True + If Not GvInv.Rows.Count > 0 Then + Exit Sub End If If CveVenta > 0 AndAlso (SaldoVenta = TxtTotal.Text.ToDecimal OrElse DdlTipoComprobante.SelectedValue = "Dev" OrElse (DdlTipoComprobante.SelectedValue = "Ped" AndAlso TmpDT IsNot Nothing AndAlso TmpDT.COUNT("CveContratoDetalle", "CveContratoDetalle > 0") > 0)) Then 'And (DdlTipoComprobante.SelectedValue.Contiene({"Rem", "Ped"}) Or (DdlTipoComprobante.SelectedValue.Contiene({"Ing"}) And TxtFecha.Text.ToDate.Month = Now.Month And TxtFecha.Text.ToDate.Year = Now.Year)) Then diff --git a/vwd.webinfo b/vwd.webinfo index 1b0a28306..c1f66d114 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -462,6 +462,8 @@ + +