diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index acd968f9e..ca226a78c 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -2176,7 +2176,7 @@ Public Class ClsContPAQi Folio = If(Data IsNot Nothing AndAlso Data.Rows.Count > 0, Data.Rows(0)("Folio").ToString.ToEntero, 0) Catch Ex1 As SqlException If Ex1.Message.Contains("2601;") Then - Alert(String.Format("Póliza ya existente con la siguiente información. Fecha: {0}; Tipo de póliza: {1}; Número de Póliza: {2}", FechaPoliza.ToShortDateString, TipoPol, Folio), TipoMensaje.MsgAdvertencia) + Alert(String.Format("Póliza ya existente con la siguiente información. Fecha: {0}; Tipo de póliza: {1}; Número de Póliza: {2}", FechaPoliza.ToShortDateString, TipoPol, pFolio), TipoMensaje.MsgAdvertencia) Else Me.OnError("Ocurrió un error al Guardar la Poliza.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index c6fb28bb7..6e85da25f 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -953,6 +953,7 @@ Namespace Extensiones If y = 4 Then If (Mid(entero, 4, 1) <> "0") Or + (Mid(entero, 2, 1) <> "0") Or (Mid(entero, 4, 1) = "0" And (Len(entero) >= 4 And Len(entero) <= 6)) Or (Mid(entero, 5, 1) <> "0" And Len(entero) = 5) Or (Mid(entero, 6, 1) <> "0" And Len(entero) = 6) Or diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 143b93038..3624e9180 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -2822,11 +2822,7 @@ Partial Class Compras_eFacturas Dim CveFacturaComplemento As Integer = gvRow.DataKey("CveFactura").ToString.ToEntero Dim CveComplementoPagoCompra As Integer = gvRow.DataKey("CveComplementoPagoCompra").ToString.ToEntero - If CveComplementoPagoCompra > 0 Then - DVMensajecomplementoVinculado.Visible = True - Else - DVMensajecomplementoVinculado.Visible = False - End If + Dim SerieFolioIE As String = "" Dim UUIDPago As String = "" @@ -3279,6 +3275,15 @@ Partial Class Compras_eFacturas End If + + If CveComplementoPagoCompra > 0 Then + DVMensajecomplementoVinculado.Visible = True + BtnVincularPago.Visible = False + Else + DVMensajecomplementoVinculado.Visible = False + End If + + UpVincularPago.Update() diff --git a/Inventarios/InventarioFisicoDetalle.aspx b/Inventarios/InventarioFisicoDetalle.aspx index 0c0c363bc..b5d900cdb 100644 --- a/Inventarios/InventarioFisicoDetalle.aspx +++ b/Inventarios/InventarioFisicoDetalle.aspx @@ -340,9 +340,9 @@
- + - @@ -370,7 +370,7 @@ - + @@ -434,6 +434,18 @@ } + + function validapagina() { + + Page_ClientValidate(); + + if (Page_IsValid) { + return true; + } else { + return false; + } + } + diff --git a/RH/Reclutamiento.aspx.vb b/RH/Reclutamiento.aspx.vb index e5af5dfd0..8f96ec1af 100644 --- a/RH/Reclutamiento.aspx.vb +++ b/RH/Reclutamiento.aspx.vb @@ -798,6 +798,9 @@ Partial Class RH_Reclutamiento AsignaGruposValidacion() End Try + + + If Not Page.IsPostBack Then