From a4acb03aa3411326d1889d91d35cdc972495d8e4 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 26 Mar 2022 07:58:57 -0700 Subject: [PATCH 01/13] -- serie en vigencias --- Inventarios/EntradasSalidas.aspx.vb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 9d29b4915..f6543f8e5 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -4102,7 +4102,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) @@ -4501,7 +4501,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 @@ -5356,7 +5357,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) From 843bfd33edcca119c2e77b684ba9a33dbdc19716 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 26 Mar 2022 07:59:14 -0700 Subject: [PATCH 02/13] -- round --- Bancos/PagoDeudor.aspx.cs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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(); From 98fa11e179eebcaf1d602d5808b56b438835be46 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 26 Mar 2022 07:59:38 -0700 Subject: [PATCH 03/13] validacion aidcional en transitorio --- Inventarios/TraspasoAlmacen.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 8fc06873d..184917120 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 From c13d7d511847911476c4af965ccb5d771a2407c0 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 4 Apr 2022 11:33:23 -0700 Subject: [PATCH 04/13] -- conceptos de salidas de usados --- Inventarios/EntradasSalidas.aspx.vb | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index f6543f8e5..fdff90a3d 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -2200,6 +2200,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 From 98834b8bb717ea48fc54947973a717e72740787c Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 4 Apr 2022 11:33:38 -0700 Subject: [PATCH 05/13] -- que no cargue los datos de inicio --- Acumuladores/RepIndicadorDiario.aspx.vb | 1 - 1 file changed, 1 deletion(-) 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 From cebcd5597dc15eb6634c4e85d5002a0d05a24193 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 4 Apr 2022 11:33:51 -0700 Subject: [PATCH 06/13] =?UTF-8?q?--=20se=20quit=C3=B3=20transportista?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Acarreos/CatChoferes.aspx | 7 ++--- Acarreos/CatChoferes.aspx.vb | 58 ++++++++++++++++++------------------ 2 files changed, 32 insertions(+), 33 deletions(-) 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 = "" From 272ccde979e7451ec2091ac53826ebaae31b8293 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 4 Apr 2022 11:34:28 -0700 Subject: [PATCH 07/13] -- que no cargue los datos de inicio --- General/CATIEPSxEntidadFed.aspx.cs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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(); From 9bf97dcfeaee2706ea2d7eea1c05b53cb75138bc Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 4 Apr 2022 11:34:51 -0700 Subject: [PATCH 08/13] -- mejoras en validaciones --- Inventarios/TraspasoAlmacen.aspx.vb | 31 +++++++++++++++++++++++++---- 1 file changed, 27 insertions(+), 4 deletions(-) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 184917120..cf368ca73 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -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")) From eab24d41721011f01806acd496f8fa4d6b1409cc Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 4 Apr 2022 11:35:12 -0700 Subject: [PATCH 09/13] -- filtro por subproyecto --- App_Code/ClsPuntoVenta.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 From 256bb83d7b498ff77a70d7d020a60a612750df3e Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 4 Apr 2022 11:35:24 -0700 Subject: [PATCH 10/13] =?UTF-8?q?--=20almacenes=20de=20pr=C3=A9stamos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/AjustesSeccionAlmacen.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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() From 1ae95132c8e20c1dfcfb30c76ec87ebb592c45b2 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 4 Apr 2022 11:35:53 -0700 Subject: [PATCH 11/13] columans - formas y condicione de pago --- Ventas/RepRecuperacionDetalle.aspx | 2 ++ 1 file changed, 2 insertions(+) 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 @@ + + From 89a9dcb5045c529ee61138dc41ef75b5b996e8c5 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 4 Apr 2022 11:36:31 -0700 Subject: [PATCH 12/13] -- que no cargue la tabla de historico, sino se usa --- Ventas/Ventas.aspx.vb | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index a2d323f13..a7cf2fcd7 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 @@ -22461,12 +22461,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 From 816a200b55db6296d0b705ab06be8826b399e373 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 4 Apr 2022 15:19:52 -0700 Subject: [PATCH 13/13] --- RH/CatRegistroPatronal.aspx | 2 +- RH/Personal.aspx | 2 +- SAT/Default.aspx | 21 --------------------- SAT/Default.aspx.cs | 14 -------------- vwd.webinfo | 2 ++ 5 files changed, 4 insertions(+), 37 deletions(-) delete mode 100644 SAT/Default.aspx delete mode 100644 SAT/Default.aspx.cs 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/vwd.webinfo b/vwd.webinfo index 1b0a28306..c1f66d114 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -462,6 +462,8 @@ + +