diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 108ab78d3..5fac3a880 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -701,16 +701,16 @@ Partial Class Bancos_IE LnkAjustarMovimiento.Visible = True End If - If Not VerificaComplementos(True) Then + 'If Not VerificaComplementos(True) Then - LnkCancelarComplemento.Visible = False - LnkCancelarComplementoImporte.Visible = False + ' LnkCancelarComplemento.Visible = False + ' LnkCancelarComplementoImporte.Visible = False - UppEliminarIE.Update() + ' UppEliminarIE.Update() - End If + 'End If End If End Sub @@ -960,6 +960,10 @@ Partial Class Bancos_IE HplDepositado.NavigateUrl = $"/Bancos/IE.aspx?CveIE={CveIEDeposito2}" End If + LnkCancelarComplemento.Visible = False + LnkCancelarComplementoImporte.Visible = False + UppEliminarIE.Update() + CargaEventoBitacora() CargaGvBitacora() diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index c75646a73..31701ab12 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -3260,7 +3260,7 @@ Partial Class Contratos_Default Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper Dim PrecioUnitario As Double = Row("Precio Unitario").ToString.ToDouble Dim CvePS As Integer = 0 - Dim CveUM As Integer = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"CvePS = '{CvePS}'").ToString.ToEntero + Dim CveUM As Integer = 0 ' GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"CvePS = '{CvePS}'").ToString.ToEntero Dim CodigoPS As Integer = 0 Dim Total As Double = (Cantidad * PrecioUnitario)