From 50e68673413ada653d67b33cf0446b54ddc578b1 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 5 Mar 2024 16:45:16 -0700 Subject: [PATCH 1/4] FIX. -- Correcion de asignacion de variable "MetodoPagoOC" --- Compras/Compras.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 2bb05d1a2..163bd8c57 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -13726,7 +13726,7 @@ Partial Class Compras_Compras HdnVCveOC.Value += String.Format("{0}{1}", If(HdnVCveOC.Value <> "", ",", ""), OC.DtResultados.Rows(0)("CveOrdenCompra").ToString) HdnCveEstatusOC.Value += String.Format("{0}{1}", If(HdnCveEstatusOC.Value <> "", ",", ""), OC.DtResultados.Rows(0)("CveEstatusSiguiente").ToString) EntregaDirecta += If(OC.DtResultados.Rows(0)("EntregaDirecta").ToString = "True", 1, 0) - MetodoPagoOC = OC.DtResultados.Rows(0)("EntregaDirecta").ToString.ToEntero + MetodoPagoOC = OC.DtResultados.Rows(0)("MetodoPagoOC").ToString.ToEntero End If End If Next @@ -13742,7 +13742,7 @@ Partial Class Compras_Compras HdnVCveOC.Value += String.Format("{0}{1}", If(HdnVCveOC.Value <> "", ",", ""), OC.DtResultados.Rows(0)("CveOrdenCompra").ToString) HdnCveEstatusOC.Value += String.Format("{0}{1}", If(HdnCveEstatusOC.Value <> "", ",", ""), OC.DtResultados.Rows(0)("CveEstatusSiguiente").ToString) EntregaDirecta += If(OC.DtResultados.Rows(0)("EntregaDirecta").ToString = "True", 1, 0) - MetodoPagoOC = OC.DtResultados.Rows(0)("EntregaDirecta").ToString.ToEntero + MetodoPagoOC = OC.DtResultados.Rows(0)("MetodoPagoOC").ToString.ToEntero End If End If Next From a16d48836c263ebf00bd51d6d8a9f05131c30128 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 5 Mar 2024 19:54:53 -0700 Subject: [PATCH 2/4] Retro EMD - Mejoras Propuestas - Sayri --- Compras/Compras.aspx.vb | 6 +----- General/SaldosIniciales.aspx.vb | 3 ++- OC/OC.aspx | 18 +++++++++--------- OC/OC.aspx.vb | 13 ++++++++++--- 4 files changed, 22 insertions(+), 18 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 163bd8c57..3855b52f3 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -3998,6 +3998,7 @@ Partial Class Compras_Compras Exit Sub End If + Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal() If Not CveSubProyectoPrincipal > 0 Then @@ -14504,11 +14505,6 @@ Partial Class Compras_Compras CalculaTotales() CompraEstaVinculadaOC = True - - If MetodoPagoOC = 0 AndAlso RBLPago.SelectedValue.ToEntero <> 2 Then - Alert("La orden de compra se definió de contado, favor de especificar la compra de contado.", TipoMensaje.MsgAdvertencia) - End If - End Sub Private Sub VinculacionAsync(Optional VinculacionCompleta As Boolean = False) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 21187f697..51bc19045 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -2502,7 +2502,8 @@ Partial Class General_SaldosIniciales For Each nuevaEntrada As DataRow In dt.FiltraParametros($"TRIM(Almacen) = '{almacenActual}'").Rows contadorMovimientos += 1 - Dim RowPS As DataRow = ProductosServiciosRef.FiltroPrimero($"Codigo = '{nuevaEntrada("CodigoPS")}' ") + 'Dim RowPS As DataRow = ProductosServiciosRef.FiltroPrimero($"Codigo = '{nuevaEntrada("CodigoPS").ToString.Trim}' ") + Dim RowPS As DataRow = ProductosServiciosRef.FiltroPrimero($"Codigo = '{nuevaEntrada("CodigoPS").ToString.Trim(" "c)}' ") If RowPS IsNot Nothing Then Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero() diff --git a/OC/OC.aspx b/OC/OC.aspx index a0f785195..f6003cce7 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -1584,9 +1584,9 @@
-
-
- +
+
+ @@ -1598,9 +1598,9 @@
-
-
- +
+
+ @@ -1613,7 +1613,7 @@
-
+
@@ -1621,7 +1621,7 @@
-
+

@@ -3020,7 +3020,7 @@ function SAImporteContadokeyup() { var importe = (100 * ToDouble($('#TxtSAImporteContado').val())) / ToDouble($get("LblTotal").value.replace(/,/g, "")); - $('#TxtSAImPorcentajeContado%>').val(FormatoNumero(importe, 2).replace(/,/g, "")); + $('#TxtSAImPorcentajeContado').val(FormatoNumero(importe, 2).replace(/,/g, "")); } function showDivEC(CveCotizacion) { diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 5f11e2541..38415f4f5 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -5399,7 +5399,7 @@ Partial Class OC_OC End If End Sub - Private Sub EnviaCorreoSolicitudAnticipo(CveEvento As Integer) + Private Sub EnviaCorreoSolicitudAnticipo(CveEvento As Integer, Optional ImporteAnticipo As Decimal = 0) Dim Param As New List(Of String) Dim DtPara As DataTable = GlobalDTUsuarios(DdlSAUsuario.SelectedValue.ToString.ToEntero, CveEmpresaActual) @@ -5409,7 +5409,14 @@ Partial Class OC_OC Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para Param.Add("Solicitud de anticipo de Orden de Compra") 'Asunto - Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), TxtSAImporte.Text, DdlProveedores.SelectedText)) + + + If ImporteAnticipo = 0 Then + ImporteAnticipo = TxtSAImporte.Text.ToDecimal + End If + + + Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), ImporteAnticipo.ToString, DdlProveedores.SelectedText)) Param.Add(String.Format("{0}PDF\OC-{1}.pdf", UsuarioActual.Empresa.Ruta, CveOrdenCompra)) Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo) Hilo.Start(Param) @@ -8922,7 +8929,7 @@ Partial Class OC_OC End If If Not TieneError Then - EnviaCorreoSolicitudAnticipo(ObjOI.CveEvento) + EnviaCorreoSolicitudAnticipo(ObjOI.CveEvento, TxtSAImporteContado.Text.ToDecimal) 'LIMPIA DdlSAUsuarioContado.SelectedValue = "-1" TxtSAImporteContado.Text = "" From d3ba63041cbf493fee96a097280bf204f357c6bf Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 6 Mar 2024 11:33:52 -0700 Subject: [PATCH 3/4] -- ocultar txt --- RH/Personal.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 9053f04f4..75fe17619 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -391,7 +391,7 @@
-
+ From 98cc9b6c6afb30487fe23df22cc225b89ed80f12 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 6 Mar 2024 11:34:16 -0700 Subject: [PATCH 4/4] - cargar datos al iniciar --- OS/RepOSMedicas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/OS/RepOSMedicas.aspx.vb b/OS/RepOSMedicas.aspx.vb index 52e6d7f4a..e26d6ac2a 100644 --- a/OS/RepOSMedicas.aspx.vb +++ b/OS/RepOSMedicas.aspx.vb @@ -12,7 +12,7 @@ Partial Class OS_RepOSMedicas If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx") CargaCombos() - + CargaDatos() End If End Sub