From 896cee4e9f28ec6ff26fba389ca0502505dd3af4 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Dec 2024 19:22:29 -0700 Subject: [PATCH 01/32] =?UTF-8?q?--=20mejora=20en=20sincronizaci=C3=B3n=20?= =?UTF-8?q?de=20fraquincias,=20que=20sea=20la=20b=C3=BAsqueda=20de=20globa?= =?UTF-8?q?ldt,=20para=20que=20el=20c=C3=B3digo=20sea=20ex=C3=A1cto?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ProductosServicios.aspx.vb | 17 ++++------------- 1 file changed, 4 insertions(+), 13 deletions(-) diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 4361a0c36..2d60ba1bb 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -3345,12 +3345,10 @@ Partial Class ProductosyServicios End If Else - - If ObjPS.GetPS(-1, -1, CveEmpresaFranquicia, Codigo:=TxtCodigo.Text.Trim.ToUpper) Then - - If ObjPS.DtResultados IsNot Nothing AndAlso ObjPS.DtResultados.Rows.Count = 1 Then - Dim CvePS As Integer = ObjPS.DtResultados.FiltroPrimeroValor("CvePS", String.Format(" Codigo = '{0}'", TxtCodigo.Text.Trim.ToUpper)).ToEntero() - If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtNumeroParte.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble, + Dim CvePS As Integer = GlobalDTPSSimplificado(CveEmpresaFranquicia, Codigo:=TxtCodigo.Text.Trim.ToUpper).FiltroPrimeroValor("CvePS").ToEntero + If CvePS > 0 Then + 'Dim CvePS As Integer = ObjPS.DtResultados.FiltroPrimeroValor("CvePS", String.Format(" Codigo = '{0}'", TxtCodigo.Text.Trim.ToUpper)).ToEntero() + If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtNumeroParte.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble, (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, -1, True, ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv, EsPaquete, DdlSATPS.SelectedValue.ToEntero, CveEmpresaFranquicia, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarcaFranquicia, AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal, @@ -3363,15 +3361,8 @@ Partial Class ProductosyServicios ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString, ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TxtTiempoCaducidad.Text.ToEntero()) Then - Return True - - End If - - Else - Alert(String.Format("El producto no existe en la franquicia: '{0}'", GlobalDTEmpresas(CveEmpresaFranquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia) Return True End If - Else Alert(String.Format("Se presento un error al consultar la existencia en la franquicia: '{0}'", GlobalDTEmpresas(CveEmpresaFranquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia) Return True From 71e1ffce4571ac0ba8db382dd1a09607fd343b7a Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Dec 2024 22:08:18 -0700 Subject: [PATCH 02/32] - cambio de promociones --- App_Code/ClsVentas.vb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 96e987c23..3d72b5bff 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -2473,20 +2473,21 @@ Public Class ClsVentas 'End Function #Region " PROMOCIONES " - Public Function GetPromociones(CvePromocion As Integer, Fecha As String, CveVendedor As Integer, CveCliente As Integer, Estatus As Integer, CveEmpresa As Integer, - CveSubProyecto As Integer, Optional CveMarca As Integer = -1) As Boolean + Public Function GetPromociones(CvePromocion As Integer, Fecha As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Integer, CveEmpresa As Integer, + CveSubProyecto As Integer, Optional CveMarca As Integer = -1, Optional CveUsuario As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PromocionesGet") With SqlAdapter.SelectCommand.Parameters .Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion - .Add("@Fecha", SqlDbType.VarChar).Value = Fecha + .Add("@Fecha", SqlDbType.Date).Value = Fecha .Add("@Estatus", SqlDbType.Int).Value = Estatus .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveMarca", SqlDbType.Int).Value = CveMarca + .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuario End With Try From 0035ae33edb59d692de07dfbf447159fd7d40ba2 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Dec 2024 22:09:21 -0700 Subject: [PATCH 03/32] =?UTF-8?q?--=20surtido=20autom=C3=A1tico=20--=20si?= =?UTF-8?q?=20hay=20un=20subproyecto=20asignado=20que=20lo=20asigne=20en?= =?UTF-8?q?=20la=20carga=20de=20factura?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx | 2 +- Compras/Compras.aspx.vb | 131 +++++++++++++--------------------------- 2 files changed, 44 insertions(+), 89 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index bbc5e7a95..4f4952174 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -5171,7 +5171,7 @@
- +
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 1cd6c0683..a97e39a4d 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1377,7 +1377,7 @@ Partial Class Compras_Compras DdlMedico.DataBind() End If - If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then + If UsuarioActual.Empresa.Funcionalidad(590).ToString = "1" Then DVCultivosCuadro.Visible = True DdlSubProyecto.AutoPostBack = True @@ -1906,24 +1906,11 @@ Partial Class Compras_Compras TmpDT.Columns.Add("CveSATPSActualizado") SubTotalConceptos = TmpDT.SUMD("Total").RoundSQL - If Not TmpDT.Columns.Contains("Amortizacion") Then - TmpDT.Columns.Add("Amortizacion", GetType(Decimal)) - End If - - If Not TmpDT.Columns.Contains("AplicaLote") Then - TmpDT.Columns.Add("AplicaLote", GetType(Boolean)) - End If - If Not TmpDT.Columns.Contains("AplicaCaducidad") Then - TmpDT.Columns.Add("AplicaCaducidad", GetType(Boolean)) - End If - - - If Not TmpDT.Columns.Contains("Lote") Then - TmpDT.Columns.Add("Lote", GetType(String)) - End If - If Not TmpDT.Columns.Contains("FechaCaducidad") Then - TmpDT.Columns.Add("FechaCaducidad", GetType(Date)) - End If + If Not TmpDT.Columns.Contains("Amortizacion") Then TmpDT.Columns.Add("Amortizacion", GetType(Decimal)) + If Not TmpDT.Columns.Contains("AplicaLote") Then TmpDT.Columns.Add("AplicaLote", GetType(Boolean)) + If Not TmpDT.Columns.Contains("AplicaCaducidad") Then TmpDT.Columns.Add("AplicaCaducidad", GetType(Boolean)) + If Not TmpDT.Columns.Contains("Lote") Then TmpDT.Columns.Add("Lote", GetType(String)) + If Not TmpDT.Columns.Contains("FechaCaducidad") Then TmpDT.Columns.Add("FechaCaducidad", GetType(Date)) AddPS2(False) @@ -2324,6 +2311,19 @@ Partial Class Compras_Compras End If End If Next + + 'consideración si el usuarioactual, solo tienen un centro de costo, que lo asigne en automático + Dim dtsubAsignados As DataTable = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) + If dtsubAsignados.Rows.Count = 1 Then + Dim drtt As DataRow = dtsubAsignados.FiltroPrimero("") + For Each item As DataRow In TmpDT.Rows + item("CveSubProyecto") = drtt("CveSubProyecto") + item("SubProyecto") = drtt("SubProyecto") + item("CveProyecto") = drtt("CveProyecto") + item("Proyecto") = drtt("Proyecto") + Next + End If + GvPS.DataSource = TmpDT GvPS.DataBind() UpPS.Update() @@ -4391,24 +4391,6 @@ Partial Class Compras_Compras End If - ''VERIFICA SI LOS PRODUCTOS/SERVICIOS EXISTEN EN EL CATALOGO DEL SAT - 'If UsuarioActual.CveEmpresa = 72 Then - - ' Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(CveSATPS,0) = 46920 ") - ' If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then - ' Dim StrNoEncontrados As New StringBuilder - ' StrNoEncontrados.Append("Los siguientes productos no tiene asignado la clave Producto SAT o Unidad Medida SAT

") - ' For Each drt As DataRow In DtNoEncontrados.Rows - ' StrNoEncontrados.AppendFormat("{0}
", drt("CodigoPS")) - ' Next - ' Alert(StrNoEncontrados.ToString(), TipoMensaje.MsgAdvertencia) - ' DtNoEncontrados.Dispose() - ' StrNoEncontrados.Clear() - ' Exit Sub - ' End If - ' DtNoEncontrados.Dispose() - 'End If - 'Verifica funcionalidad 128 "Require orden de compra para factura de compra" Dim EsViatico As Boolean = False @@ -4447,21 +4429,6 @@ Partial Class Compras_Compras Exit Sub End If - ''DF - 10/04/2017 - 'If UsuarioActual.TienePermisoProceso(187) Then - ' If TxtSerie.Text <> SerieVieja Then - ' Dim dtt As DataTable = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa) - ' If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then - ' Dim SerieNueva As String = dtt.FiltroPrimeroValor("Serie", $"Serie = '{TxtSerie.Text}'").ToString - ' If SerieNueva = "" Then - ' Alert("La Serie no es válida, por favor revise que se encuentre dentro de la lista de las sucursales del proveedor.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - ' End If - ' End If - - ' End If - 'End If - 'Excede el limite de credito If RBLPago.SelectedValue = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Fac") AndAlso UsuarioActual.Empresa.Funcionalidad(518) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(185) Then Dim ObjCompras As New ClsCompras @@ -4528,36 +4495,28 @@ Partial Class Compras_Compras ValidaFechaDeAlamacen() Else 'GvInv.Rows(x).FCDropDownList("ddlEAlmacen").SelectedValue.ToEntero 'Charlie - Dim x As Integer = 0 - For Each Dr As GridViewRow In GvInv.Rows - If Dr.FCCheckBox("cbInv").Checked Then + 'pestaña de almacen, si hay especificado una entrada por partida dealmacen, debe de existir el almacen. + If GvInv.Rows.Count > 0 Then + If DdlTipoComprobante.SelectedValue.Contiene("Fac") Then + Dim x As Integer = 0 + For Each Dr As GridViewRow In GvInv.Rows + If Dr.FCCheckBox("cbInv").Checked Then + If Dr.FCDropDownList("ddlEAlmacen").SelectedValue.ToEntero <= 0 Then + Alert("Favor de seleccionar almacen en la pestaña de almacén.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + x = x + 1 + End If + Next - If Not Dr.FCDropDownList("ddlEAlmacen").SelectedValue.ToEntero > 0 Then - Alert("Favor de seleccionar almacen en la pestaña de almacén.", TipoMensaje.MsgAdvertencia) - Exit Sub + If Not (CveCompraRefacturacion > 0 AndAlso ChkRefacturacionConAlmacen.Checked) Then + If x = 0 AndAlso GvInv.Rows.Count > 0 Then + Alert("Favor de seleccionar un producto en la pestaña de almacén", TipoMensaje.MsgAdvertencia) + Exit Sub + End If End If - - x = x + 1 - End If - - Next - - If Not (CveCompraRefacturacion > 0 AndAlso ChkRefacturacionConAlmacen.Checked) Then - If x = 0 AndAlso GvInv.Rows.Count > 0 Then - Alert("Favor de seleccionar un producto en la pestaña de almacén", TipoMensaje.MsgAdvertencia) - Exit Sub End If End If - - End If - End If - - - - If UsuarioActual.Empresa.Funcionalidad(538) = "1" Then - If TmpDT.MIN("CvePS").ToEntero <= 0 Then - Alert("Todos los Productos/Servicios deben estar registrados o aliados a un productos ya registrado.", TipoMensaje.MsgAdvertencia) - Exit Sub End If End If @@ -11502,7 +11461,7 @@ Partial Class Compras_Compras e.Row.FCDropDownList("ddlAlmacenConsignacionGeneral").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 4) e.Row.FCDropDownList("ddlAlmacenConsignacionGeneral").DataBind() - 'que no sea recepcion alamcen adelatnado. DdlOCVinculaInv + 'que no sea recepcion almacen adelantado. DdlOCVinculaInv If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso DdlOCVinculaInv.SelectedValue <> "176" Then If e.Row.FCDropDownList("ddlAlmacen").Items.Count > 1 Then e.Row.FCDropDownList("ddlAlmacen").SelectedIndex = 1 @@ -19152,7 +19111,11 @@ Partial Class Compras_Compras Else HplDevv.Text = " Solicitar Devolución Almacén" HplDevv.ToolTip = "¿Está seguro de Solicitar la Devolución de Almacén?" - ChkEsDevolucionDevInv.Visible = True + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + ChkEsDevolucionDevInv.Visible = True + ChkEsDevolucionDevInv.Checked = True + ChkEsDevolucionDevInv.Enabled = False + End If End If End If @@ -19181,26 +19144,18 @@ Partial Class Compras_Compras Dim tCveSubProyeto As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero ObjCompras.IniciaTransacSQL() - If ChkEsDevolucionDevInv.Checked Then - - End If - Dim ImporteCompra As Decimal = 0 - If EstatusAlmacen = 0 Then For Each gvr As GridViewRow In GvSolDev.Rows - Dim Cantidad As Decimal = gvr.FCTextBox("TxtCant").Text.ToDecimal Dim PU As Decimal = gvr.DataKey("PU").ToDecimal - If gvr.FCTextBox("TxtCant").Text.ToDecimal > 0 Then ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 0, UsuarioActual.CveUsuario, CantidadDevolucion:=gvr.FCTextBox("TxtCant").Text.ToDecimal) ImporteCompra = ImporteCompra + ((PU * Cantidad)) Else ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 1, UsuarioActual.CveUsuario, CantidadDevolucion:=0) End If - Next End If From 125447db65d1c6b866db2c2f06242b2420a9daa5 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Dec 2024 22:10:00 -0700 Subject: [PATCH 04/32] -- filtro de promciones --- Ventas/CatPromociones.aspx | 31 +++------------ Ventas/CatPromociones.aspx.vb | 9 +---- Ventas/Promociones.aspx.vb | 71 ++++++++++------------------------- 3 files changed, 26 insertions(+), 85 deletions(-) diff --git a/Ventas/CatPromociones.aspx b/Ventas/CatPromociones.aspx index 97dec0a5a..7e08eec13 100644 --- a/Ventas/CatPromociones.aspx +++ b/Ventas/CatPromociones.aspx @@ -57,16 +57,16 @@ - + - + - - - + + + @@ -82,25 +82,6 @@ - - + diff --git a/Ventas/CatPromociones.aspx.vb b/Ventas/CatPromociones.aspx.vb index 6c5e2393d..e5a6f525f 100644 --- a/Ventas/CatPromociones.aspx.vb +++ b/Ventas/CatPromociones.aspx.vb @@ -36,7 +36,7 @@ Partial Class Ventas_CatPromociones Private Sub CargaDatos() Dim ObjVentas As New ClsVentas - If ObjVentas.GetPromociones(-1, "-1", -1, -1, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero) Then + If ObjVentas.GetPromociones(-1, MinFecha, -1, -1, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, CveUsuario:=UsuarioActual.CveUsuario) Then DtDatos = ObjVentas.DtResultados Else DtDatos = Nothing @@ -58,12 +58,5 @@ Partial Class Ventas_CatPromociones Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) CargaDatos() End Sub - Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - - e.Row.FCHyperLink("HLPromocion").NavigateUrl = String.Format("/Ventas/Promociones.aspx?CvePromocion={0}", e.Row.DBCampo("CvePromocion")) - - End If - End Sub End Class \ No newline at end of file diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index 745338230..ced8bff96 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -20,12 +20,12 @@ Partial Class Ventas_Promociones End Set End Property - Private Property TempDTOrigial As DataTable + Private Property TempDTOriginal As DataTable Get - Return CType(ViewState("TempDTOrigial"), DataTable) + Return CType(ViewState("TempDTOriginal"), DataTable) End Get Set(value As DataTable) - ViewState("TempDTOrigial") = value + ViewState("TempDTOriginal") = value End Set End Property @@ -146,8 +146,6 @@ Partial Class Ventas_Promociones End Set End Property - - #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load @@ -176,8 +174,7 @@ Partial Class Ventas_Promociones CargaDatos() LnkAgrgarPlantillaPS.Visible = False - - ValidaPromosiones(False) + 'ValidaPromociones(False) If EmpresaGrupoDiaz Then If ChkEstatus.Checked = False AndAlso BloqueadoPromocionPorcentaje AndAlso Not PermisoAutorizPromocionPorcentaje Then @@ -198,7 +195,6 @@ Partial Class Ventas_Promociones CreaDT() End If - CargaGvBitacora() @@ -346,7 +342,7 @@ Partial Class Ventas_Promociones TempDT.Columns.Add("UtilidadPorcentaje", GetType(Decimal)) - TempDTOrigial = TempDT.Copy + TempDTOriginal = TempDT.Copy '366 Estatus '367 CvePS @@ -419,7 +415,7 @@ Partial Class Ventas_Promociones Private Sub CargaDatos() Dim ObjVentas As New ClsVentas - If ObjVentas.GetPromociones(CvePromocion, "-1", -1, -1, -1, UsuarioActual.CveEmpresa, -1) AndAlso ObjVentas.DtResultados.Rows.Count = 1 Then + If ObjVentas.GetPromociones(CvePromocion, MinFecha, -1, -1, -1, UsuarioActual.CveEmpresa, -1) AndAlso ObjVentas.DtResultados.Rows.Count = 1 Then Dim Dr As DataRow = ObjVentas.DtResultados.Rows(0) TxtPromocion.Text = Dr("Promocion").ToString TxtFechaI.Text = Dr("FechaInicio").ToString.ToDate.ToShortDateString @@ -438,11 +434,6 @@ Partial Class Ventas_Promociones Else DdlClientes.SelectedValue = Dr("CveCliente").ToString End If - - - - - End If ChkEstatus.Checked = If(Dr("Estatus").ToString = "True", True, False) @@ -455,12 +446,12 @@ Partial Class Ventas_Promociones If ObjVentas.GetPromocionesDetalle(CvePromocion, UsuarioActual.CveEmpresa) Then TempDT = ObjVentas.DtResultados.Copy - TempDTOrigial = ObjVentas.DtResultados.Copy + TempDTOriginal = ObjVentas.DtResultados.Copy CargaGrid() Else Alert("Ocurrió un error al consultar los detalles de la promoción. Por favor vuelva a intentar.", TipoMensaje.MsgError) End If - + CargaGvBitacora() Else Alert("Ocurrió un error al consultar la promoción. Por favor vuelva a intentar.", TipoMensaje.MsgError) End If @@ -480,7 +471,6 @@ Partial Class Ventas_Promociones UpDatos.Update() End Sub - Private Sub CargaMonedas() DdlMoneda.DataSource = GlobalDTMonedas DdlMoneda.DataBind() @@ -633,8 +623,6 @@ Partial Class Ventas_Promociones Dr("UltimoCosto") = UltimoCosto Dr("CostoPromedio") = CostoPromedio - - If UltimoCosto > 0 Then Dim Promocion As Decimal = TxtPromocionConcepto.Text.ToDecimal @@ -654,12 +642,6 @@ Partial Class Ventas_Promociones Dr("UtilidadPorcentaje") = 0.0D End If - - - - - - If CveConsecutivo >= 0 Then Dr.AcceptChanges() Else @@ -669,20 +651,18 @@ Partial Class Ventas_Promociones CargaGrid() RegistraScript("$('#DivAgregar').modal('hide')") - ValidaPromosiones(True) + ValidaPromociones(True) End Sub - Private Sub ValidaPromosiones(Bloquear As Boolean) - + Private Sub ValidaPromociones(Bloquear As Boolean) If Not EmpresaGrupoDiaz Then BloqueadoPromocionPorcentaje = False Exit Sub End If - Dim DTPSUltimoCosto = New DataTable Dim ObjInv As New ClsInventarios @@ -691,8 +671,6 @@ Partial Class Ventas_Promociones End If ObjInv.Dispose() - - If PorMinMasCostoVentaFnc129 > 0 Then For Each dRow As DataRow In TempDT.Rows @@ -724,11 +702,9 @@ Partial Class Ventas_Promociones Exit For End If End If - Else BloqueadoPromocionPorcentaje = True End If - Next End If @@ -736,7 +712,6 @@ Partial Class Ventas_Promociones ChkEstatus.Checked = False ChkEstatus.Enabled = False End If - UpGenerales.Update() End Sub @@ -751,7 +726,6 @@ Partial Class Ventas_Promociones #End Region - #Region " GV PS " Private Sub GvDatos_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvDatos.RowCommand @@ -835,7 +809,7 @@ Partial Class Ventas_Promociones End If - ValidaPromosiones(True) + ValidaPromociones(True) Dim CveCliente As Integer = If(DdlClientes.SelectedValue = "", -1, DdlClientes.SelectedValue.ToEntero) Dim ObjVentas As New ClsVentas @@ -950,7 +924,7 @@ Partial Class Ventas_Promociones - Dim Dr2 As DataRow = TempDTOrigial.FiltraParametros($"CvePromocionDetalle = {Dr("CvePromocionDetalle").ToString}").Rows(0) + Dim Dr2 As DataRow = TempDTOriginal.FiltraParametros($"CvePromocionDetalle = {Dr("CvePromocionDetalle").ToString}").Rows(0) If Not TieneError And Dr("CvePS").ToString <> Dr2("CvePS").ToString Then If Not ObjGral.AddHistorialBitacora(367, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Dr("CodigoPS").ToString, Dr2("CodigoPS").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, "Se elimino " & Dr("CodigoPS").ToString, "PS", "", CvePromocion:=CvePromocion) Then @@ -1271,14 +1245,12 @@ Partial Class Ventas_Promociones Dim contenido As Byte() = System.IO.File.ReadAllBytes(rutaArchivoPlantilla) Response.BinaryWrite(contenido) - Response.Flush() Response.End() End Sub - Protected Sub BrnAgregarPlantilla_Click(sender As Object, e As EventArgs) If TxtExcel.getfiles().Archivos.Count > 0 Then @@ -1374,15 +1346,13 @@ Partial Class Ventas_Promociones CargaGrid() RegistraScript("$('#DivAgregarPlantilla').modal('hide')") - ValidaPromosiones(True) + ValidaPromociones(True) End Sub Private Function ValidaDTPlantilla(ByRef DTPlantilla As DataTable) As Boolean Dim Errores As New StringBuilder - - DTPlantilla.Columns.Add("CveClasificacion", GetType(Integer)) DTPlantilla.Columns.Add("CvePS", GetType(Integer)) DTPlantilla.Columns.Add("CveTipoPromosicion", GetType(Integer)) @@ -1396,13 +1366,13 @@ Partial Class Ventas_Promociones Dim DTPS As DataTable = New DataTable Dim DTRines As DataTable = New DataTable - Dim ObjPS As New ClsProductosServicios - If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa) Then - DTPS = ObjPS.DtResultados - End If - ObjPS.Dispose() - + 'Dim ObjPS As New ClsProductosServicios + 'If ObjPS.GetPS(-1, -1, UsuarioActual.CveEmpresa) Then + ' DTPS = ObjPS.DtResultados + 'End If + 'ObjPS.Dispose() + DTPS = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) DTRines = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa) Dim RegistroActual As Integer = 1 @@ -1436,7 +1406,6 @@ Partial Class Ventas_Promociones If ClasificacionStr.Length > 0 And CodigoStr.Length > 0 Then SBErrorRegistro.Append($"No se puede agregar Clasificación y codigo en un mismo registro. ") Else - If ClasificacionStr.Length > 0 Then SBErrorRegistro.Append(If(CveClasificacion > 0, "", $"No se encontro Clasificación '{ClasificacionStr}'.
")) Else @@ -1513,9 +1482,7 @@ Partial Class Ventas_Promociones LblCostoPromedio.Text = DTPSUltimoCosto.FiltroPrimeroValor("CostoPromedio", "").FormatoNumero(4) LbPUActual.Text = DTPSUltimoCosto.FiltroPrimeroValor("Importe", "").FormatoNumero(4) - UpAgregar.Update() End Sub - End Class \ No newline at end of file From a10e86c4f15b0ef407404fb186bebb37d1fcb18d Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Dec 2024 22:11:24 -0700 Subject: [PATCH 05/32] =?UTF-8?q?--activaci=C3=B3n=20de=20toast=20al=20sel?= =?UTF-8?q?eccionar=20anticipo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/PVCobranza.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index ad6a57fbe..a690e3c00 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -1850,11 +1850,11 @@ Partial Class Ventas_PVCobranza If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then For Each dr As DataRow In dtt.Rows Dim NumeroTelefono = "526621143532" - 'If EsProduccion Then - ' NumeroTelefono = String.Format("52{0}", dr("Celular").ToString()) - 'End If + If EsProduccion Then + NumeroTelefono = String.Format("52{0}", dr("Celular").ToString()) + End If EnvioMsg = ModExtensiones.EnviarNotificacionWhatsApp2(NumeroTelefono, "", $"Solicitud de activación de anticipo.\\nFolio: {Folio}.\\nCliente: {NombreCliente}.") - 'ClsSisNotificaciones.EnviarAlerta("Solicitud de Anticipo", $"Solicitud de activación de anticipo Folio: {Folio}
Ir Activar", dr("CveUsuario").ToString, Tipo:=TipoNotificacion.ToastInformacionB) + ClsSisNotificaciones.EnviarAlerta("Solicitud de Anticipo", $"Solicitud de activación de anticipo Folio: {Folio}
Ir Activar", dr("CveUsuario").ToString, Tipo:=TipoNotificacion.ToastInformacionB) Next End If From 6b79e8ca42b641b8c8be10bb2e7d22287d2cbea1 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 27 Dec 2024 22:11:41 -0700 Subject: [PATCH 06/32] - --- Ventas/CatAutorizacionLimites.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/CatAutorizacionLimites.aspx.vb b/Ventas/CatAutorizacionLimites.aspx.vb index 55a9110c2..3783e7562 100644 --- a/Ventas/CatAutorizacionLimites.aspx.vb +++ b/Ventas/CatAutorizacionLimites.aspx.vb @@ -247,7 +247,7 @@ Partial Class Ventas_CatAutorizacionLimites Dim DiasVencidosAutorizacion As Integer = gvRow.DataKey("DiasVencidosAutorizacion").ToEntero() If DiasVencidos > DiasVencidosAutorizacion Then - Alert($"No se puede autorizar, los días vencidos del cliente son mayores a la autorización. Dias Vencidos: {DiasVencidos:N0} . Dias autorizados. {DiasVencidosAutorizacion:N0}", TipoMensaje.MsgAdvertencia) + Alert($"No se puede autorizar, los días vencidos del cliente son mayores a la autorización.
Dias Vencidos: {DiasVencidos:N0} . Dias autorizados. {DiasVencidosAutorizacion:N0}", TipoMensaje.MsgAdvertencia) Exit Sub End If From 3a792597fcf28fd8af55faf6acc7c07dfe95a827 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 27 Dec 2024 23:52:42 -0700 Subject: [PATCH 07/32] GDias 2024-12-22 Traslados con un articulo y mas de los solicitados, Pop up buscar venta por Vendedor, promosiones ocultar ultimo costo y % de ganancia --- App_Code/ClsInventarios.vb | 39 +++++++++++++++++++++++++-- App_Code/ClsVentas.vb | 3 ++- Inventarios/TrasladoSolicitud.aspx | 2 +- Inventarios/TrasladoSolicitud.aspx.vb | 26 +++++++++++++++--- Ventas/PopUpBuscarFolio.aspx | 12 +++++++++ Ventas/PopUpBuscarFolio.aspx.vb | 5 +++- Ventas/Promociones.aspx | 18 ++++++------- Ventas/Promociones.aspx.vb | 8 +++++- 8 files changed, 94 insertions(+), 19 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index c2a581513..82049c6a4 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -4565,7 +4565,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function AddTrasladoSolicitudDetalle(CveTrasladoSolicitud As Integer, Cantidad As Integer, CveUM As Integer, CvePS As Integer, Precio As Decimal, Observaciones As String, + Public Function AddTrasladoSolicitudDetalle(CveTrasladoSolicitud As Integer, Cantidad As Decimal, CveUM As Integer, CvePS As Integer, Precio As Decimal, Observaciones As String, CveContratoDetalle As Integer, Optional Serie As String = "-1", Optional Lote As String = "-1", Optional FechaCaducidad As Date = MinFecha) As Boolean Dim Retorno As Boolean = False Dim CveTraspasoSolicitud As Integer = 0 @@ -4573,7 +4573,7 @@ Public Class ClsInventarios With SqlAdapter.SelectCommand.Parameters .Add("@CveTrasladoSolicitud", SqlDbType.Int).Value = CveTrasladoSolicitud - .Add("@Cantidad", SqlDbType.Int).Value = Cantidad + .Add("@Cantidad", SqlDbType.Money).Value = Cantidad .Add("@CveUM", SqlDbType.Int).Value = CveUM .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@Precio", SqlDbType.Float).Value = Precio @@ -4597,6 +4597,41 @@ Public Class ClsInventarios Return Retorno End Function + + Public Function UpdateTrasladoSolicitudDetalle(CveTrasladoSolicitudDetalle As Integer, CveEmpresa As Integer, CveTrasladoSolicitud As Integer, Cantidad As Decimal, CveUM As Integer, CvePS As Integer, Precio As Decimal, Observaciones As String, + CveContratoDetalle As Integer, Optional Serie As String = "-1", Optional Lote As String = "-1", Optional FechaCaducidad As Date = MinFecha) As Boolean + Dim Retorno As Boolean = False + Dim CveTraspasoSolicitud As Integer = 0 + DataAdapter("PA_Inv_TraspasoSolicitudDetalleUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTrasladoSolicitudDetalle", SqlDbType.Int).Value = CveTrasladoSolicitudDetalle + .Add("@CveTrasladoSolicitud", SqlDbType.Int).Value = CveTrasladoSolicitud + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Cantidad", SqlDbType.Money).Value = Cantidad + .Add("@CveUM", SqlDbType.Int).Value = CveUM + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@Precio", SqlDbType.Float).Value = Precio + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones + .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle + .Add("@Serie", SqlDbType.NVarChar).Value = Serie + .Add("@Lote", SqlDbType.NVarChar).Value = Lote + .Add("@FechaCaducidad", SqlDbType.Date).Value = FechaCaducidad + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al actualizar los detalles del movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al actualizar los detalles del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function AddTrasladoSolicitudGet(CveTrasladoSolicitud As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False Dim CveTraspasoSolicitud As Integer = 0 diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 3d72b5bff..7c81bf728 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -293,7 +293,7 @@ Public Class ClsVentas Public Function GetVentas(CveEmpresa As Integer, TipoDocto As String, Serie As String, Folio As Integer, Codigo As String, CveCliente As Integer, CveSubProyecto As Integer, CveEstatus As Integer, CveUsuario As Integer, FechaI As String, FechaF As String, FolioFiscal As String, Optional CveClienteSucursal As Integer = -1, Optional CvePS As Integer = -1, Optional PedidoContrato As String = "-1", Optional OrdenCompra As String = "-1", Optional CveUsuarioConsulta As Integer = -1, Optional ClienteRFC As String = "-1", - Optional CveEmpresaCRM As Integer = -1, Optional CveAcercamientoCRM As Integer = -1, Optional TopSelect As Integer = 1000) As Boolean + Optional CveEmpresaCRM As Integer = -1, Optional CveAcercamientoCRM As Integer = -1, Optional TopSelect As Integer = 1000, Optional CveVendedor As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasGetBuscar") @@ -319,6 +319,7 @@ Public Class ClsVentas .Add("@CveEmpresaCRM", SqlDbType.Int).Value = CveEmpresaCRM .Add("@CveAcercamientoCRM", SqlDbType.Int).Value = CveAcercamientoCRM .Add("@TopSelect", SqlDbType.Int).Value = TopSelect + .Add("@CveVendedorFiltro", SqlDbType.Int).Value = CveVendedor End With Try diff --git a/Inventarios/TrasladoSolicitud.aspx b/Inventarios/TrasladoSolicitud.aspx index fbb09ad01..a12e04e17 100644 --- a/Inventarios/TrasladoSolicitud.aspx +++ b/Inventarios/TrasladoSolicitud.aspx @@ -299,7 +299,7 @@
diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index bcd68055d..a6ddafa5f 100644 --- a/Inventarios/TrasladoSolicitud.aspx.vb +++ b/Inventarios/TrasladoSolicitud.aspx.vb @@ -503,8 +503,9 @@ Partial Class Inventarios_TrasladoSolicitud TextoExistencia.Append("Los siguiente productos no tienen existencia:
") For Each gvr As GridViewRow In GvSolicitudes.Rows - Dim Existencia As Decimal = 0 + + Dim Existencia As Decimal = 0 Dim MsgAdicional As String = "" If ObjInventario.GetExistenciasProducto(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, CveAlmacenOrigen, FechaMovto:=NowADS.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=-1, Serie:="-1", Lote:="-1", Caducidad:=MinFecha) Then @@ -606,15 +607,32 @@ Partial Class Inventarios_TrasladoSolicitud For Each gvr As GridViewRow In GvSolicitudes.Rows - Dim Cantidad As Decimal = gvr.FCTextBox("TxtCantidad").Text.ToDecimal - If gvr.FCCheckBox("Chk").Checked AndAlso Cantidad > 0 Then - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Cantidad, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, 0, CveAF:=-1, CveSeccionAlmacen:=-1, Serie:="-1", Lote:="-1", FechaCaducidad:=MinFecha, Observaciones:="") Then + Dim CveTrasladoSolicitudDetalle As Integer = gvr.DataKey("CveTrasladoSolicitudDetalle").ToEntero + Dim CantidadOriginal As Decimal = gvr.DataKey("Cantidad").ToDecimal + Dim CantidadAceptada As Decimal = gvr.FCTextBox("TxtCantidad").Text.ToDecimal + + + If gvr.FCCheckBox("Chk").Checked AndAlso CantidadAceptada > 0 Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadAceptada, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, 0, CveAF:=-1, CveSeccionAlmacen:=-1, Serie:="-1", Lote:="-1", FechaCaducidad:=MinFecha, Observaciones:="") Then ErrorMovInv = True TextoError = "Ocurrió un error al guardar los movimientos de salida" Exit For End If + + If CantidadOriginal <> CantidadAceptada Then + If Not ObjInventario.UpdateTrasladoSolicitudDetalle(CveTrasladoSolicitudDetalle, UsuarioActual.CveEmpresa, -1, CantidadAceptada, -1, -1, -1, "-1", -1, "-1", "-1", MinFecha) Then + ErrorMovInv = True + TextoError = "Ocurrió un error al actuazliar el detalle de traslado" + Exit For + End If + End If + Cont += 1 + End If + + + Next 'For Each Dr As DataRow In DtMovimientos.RowsF diff --git a/Ventas/PopUpBuscarFolio.aspx b/Ventas/PopUpBuscarFolio.aspx index 770e98c2c..9e0fcc890 100644 --- a/Ventas/PopUpBuscarFolio.aspx +++ b/Ventas/PopUpBuscarFolio.aspx @@ -164,6 +164,18 @@ + + Vendedor: + + + + + + + + + + diff --git a/Ventas/PopUpBuscarFolio.aspx.vb b/Ventas/PopUpBuscarFolio.aspx.vb index 99876fa9b..99717874d 100644 --- a/Ventas/PopUpBuscarFolio.aspx.vb +++ b/Ventas/PopUpBuscarFolio.aspx.vb @@ -30,6 +30,9 @@ Partial Class PopUpBuscarFolio CargaPS(-1) 'CargaCodigoCliente() + DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros("VendedorTipo = 1") + DdlVendedor.DataBind() + RegistraScript($"$('#{TxtFolio.ClientID}').focus();", "A1") End If End Sub @@ -138,7 +141,7 @@ Partial Class PopUpBuscarFolio Dim ObjVentas As New ClsVentas() If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, DdlTipoDocto.SelectedValue, Serie, Folio, Codigo, Cliente.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatusFactura.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, FechaI, FechaF, FolioFiscal, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedValue.ToEntero, -1), - DdlPS.SelectedValue.ToEntero, PedidoContrato:=PeidoContrato, OrdenCompra:=OrdenCompra, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TopSelect:=100) Then + DdlPS.SelectedValue.ToEntero, PedidoContrato:=PeidoContrato, OrdenCompra:=OrdenCompra, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TopSelect:=100, CveVendedor:=DdlVendedor.SelectedValue.ToEntero) Then If ObjVentas.DtResultados.Rows.Count > 0 Then LtlTotalRegistros.Text = ObjVentas.DtResultados.Rows.Count.ToString.FormatoNumero(0) GV.DataSource = ObjVentas.DtResultados diff --git a/Ventas/Promociones.aspx b/Ventas/Promociones.aspx index 5b8f32de4..1aa380ef7 100644 --- a/Ventas/Promociones.aspx +++ b/Ventas/Promociones.aspx @@ -217,23 +217,23 @@ <%--5--%> - - - - <%--6--%> - + <%--7--%> - + <%--8--%> - + <%--9--%> + + <%--10--%> + + <%--11--%> - <%--10--%> + <%--12--%> @@ -333,7 +333,7 @@
-
+
diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index ced8bff96..de8564cf0 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -184,7 +184,6 @@ Partial Class Ventas_Promociones If ChkEstatus.Checked = True And Not PermisoAutorizPromocionPorcentaje Then BtnGuardar.Visible = False ButBtnEliminar.Visible = False - 'UpBotones.Update() End If End If @@ -195,6 +194,13 @@ Partial Class Ventas_Promociones CreaDT() End If + If EmpresaGrupoDiaz AndAlso Not PermisoAutorizPromocionPorcentaje Then + DVUltimoCostoCostoPromedio.Visible = False + GvDatos.Columns(6).Visible = False + GvDatos.Columns(7).Visible = False + End If + + CargaGvBitacora() From 4224157a7d20ddc8f77b8ba8fb71d1aea8587040 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 28 Dec 2024 07:09:55 -0700 Subject: [PATCH 08/32] =?UTF-8?q?--estatus=20enviaod=20tambien=20por=20par?= =?UTF-8?q?=C3=A1metro.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OC/PopUpBuscarReq.aspx.vb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/OC/PopUpBuscarReq.aspx.vb b/OC/PopUpBuscarReq.aspx.vb index b547f75b3..331f62b03 100644 --- a/OC/PopUpBuscarReq.aspx.vb +++ b/OC/PopUpBuscarReq.aspx.vb @@ -143,13 +143,14 @@ Partial Class OC_PopUpBuscarReq ViewState("CveProveedor") = DdlProveedorMultiple.SelectedValue tCveProveedor = DdlProveedorMultiple.SelectedValue.ToEntero End If + Dim CveEstatus As Integer = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatus", "Tipo = 'OC' and TipoTermino = 3").ToEntero 'Cargar Datos Dim ObjOC As New ClsOC - ObjOC.GetOrdenesCompraVinculacion("OC", -1, -1, -1, MinFecha, MaxFecha, -1, tCveProveedor, -1, -1, UsuarioActual.CveEmpresa) + ObjOC.GetOrdenesCompraVinculacion("OC", -1, -1, CveEstatus, MinFecha, MaxFecha, -1, tCveProveedor, -1, -1, UsuarioActual.CveEmpresa) Dim DtOC As Data.DataTable = ObjOC.DtResultados ObjOC.Dispose() - If DtOC.Rows.Count > 0 Then ' tipotermino, esattus inicial + If DtOC.Rows.Count > 0 Then ' tipotermino, estatus inicial BtnVincularOC.Visible = True End If From d675379454909fcd35449b3a2feb69ee96cdd092 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 28 Dec 2024 07:12:41 -0700 Subject: [PATCH 09/32] -- cambiar vista en combos, que no se vea seleccione, por "-" para mayor limpieza --- RH/PopUpBuscarPersonal.aspx | 30 ++++++++++++++---------------- 1 file changed, 14 insertions(+), 16 deletions(-) diff --git a/RH/PopUpBuscarPersonal.aspx b/RH/PopUpBuscarPersonal.aspx index 9bf6f2f1b..40a763c65 100644 --- a/RH/PopUpBuscarPersonal.aspx +++ b/RH/PopUpBuscarPersonal.aspx @@ -34,7 +34,7 @@ Nombre: - + NSS: @@ -43,7 +43,7 @@ Puesto: - + RFC: @@ -54,19 +54,19 @@ Tipo de Período: - + Tipo de Contrato: - + Departamento: - + @@ -74,19 +74,19 @@ Género: - + Estado Civil: - + Escolaridad: - + @@ -101,13 +101,13 @@ Turno: - + Cliente: - + @@ -115,19 +115,19 @@ Proyecto: - + Sub Proyecto: - + Ruta: - + @@ -135,7 +135,7 @@ Estatus: - + clasificación: @@ -175,8 +175,6 @@ - - Date: Sat, 28 Dec 2024 07:51:00 -0700 Subject: [PATCH 10/32] =?UTF-8?q?--=20modal=20anticipo=20m=C3=A1s=20ancho?= =?UTF-8?q?=20--=20solo=20visualizar=20los=20anticipos=20del=20cliente.=20?= =?UTF-8?q?se=20quit=C3=B3=20los=20pub=20general?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/PVCobranza.aspx | 4 ++-- Ventas/PVCobranza.aspx.vb | 26 +++++++++++++------------- 2 files changed, 15 insertions(+), 15 deletions(-) diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx index 31f0620f8..d23c3b2fb 100644 --- a/Ventas/PVCobranza.aspx +++ b/Ventas/PVCobranza.aspx @@ -1108,7 +1108,7 @@