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 @@