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/Compras.aspx.vb b/Compras/Compras.aspx.vb index 7cf89ac61..879a4635a 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -18345,9 +18345,16 @@ Partial Class Compras_Compras End If End If - If DrPS("CvePSCargo").ToString <> "" Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto) - CveTipoPS = 2 - End If + + Try + If (DrPS("CvePSCargo").ToString <> "") Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto) + CveTipoPS = 2 + End If + Catch ex As Exception + + End Try + + Dim DecimalesPermitidos = 6 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/Empresas/119/Formatos/ReciboDePago.rdlc b/Empresas/119/Formatos/ReciboDePago.rdlc index 6df0bec03..21a9869ea 100644 --- a/Empresas/119/Formatos/ReciboDePago.rdlc +++ b/Empresas/119/Formatos/ReciboDePago.rdlc @@ -416,7 +416,7 @@ - 5.35332cm + 7.35332cm 1.8cm @@ -424,9 +424,6 @@ 1.8cm - - 1.99576cm - 1.8cm @@ -549,41 +546,6 @@ - - - - true - true - - - - - METODO - - - - - - #008204 - 2pt - 2pt - 2pt - 2pt - - - - @@ -727,7 +689,7 @@ - 0.6cm + 0.44125cm @@ -825,38 +787,6 @@ - - - - true - true - - - - - =Fields!MetodoDePagoDR.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - @@ -902,10 +832,13 @@ - NumParcialidad @@ -1002,7 +935,6 @@ - @@ -1017,8 +949,8 @@ DataSet2 4.62704cm - 1.09cm - 20.5314cm + 0.93125cm + 20.53564cm 1 - - - 12.29313cm + 11.47645cm - 0.84667cm + 0.41981cm true true @@ -2502,7 +2429,6 @@ Textbox35 - 0.21343cm 17.09769cm 0.41981cm 2.94979cm @@ -2549,7 +2475,6 @@ Textbox29 - 0.21343cm 0.31132cm 0.41981cm 6.8491cm @@ -2598,7 +2523,6 @@ Textbox31 - 0.21343cm 9.1611cm 0.41981cm 6.02198cm diff --git a/Empresas/48/Formatos/OC.rdlc b/Empresas/48/Formatos/OC.rdlc index 898595d80..c50e103fb 100644 --- a/Empresas/48/Formatos/OC.rdlc +++ b/Empresas/48/Formatos/OC.rdlc @@ -2716,12 +2716,6 @@ - - Ing. - - Ing. Hector Manuel Diaz Young