AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ocultar checar los complementos sino tiene un ie registrado

Browse Source
This commit is contained in:
Rene Molina
2019-08-27 10:32:22 -07:00
parent c3a3c602ef
commit 8c24d14889
2 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Bancos/IE.aspx.vb
View File

@@ -701,16 +701,16 @@ Partial Class Bancos_IE
LnkAjustarMovimiento.Visible = True LnkAjustarMovimiento.Visible = True
End If End If
If Not VerificaComplementos(True) Then 'If Not VerificaComplementos(True) Then
LnkCancelarComplemento.Visible = False ' LnkCancelarComplemento.Visible = False
LnkCancelarComplementoImporte.Visible = False ' LnkCancelarComplementoImporte.Visible = False
UppEliminarIE.Update() ' UppEliminarIE.Update()
End If 'End If
End If End If
End Sub End Sub
@@ -960,6 +960,10 @@ Partial Class Bancos_IE
HplDepositado.NavigateUrl = $"/Bancos/IE.aspx?CveIE={CveIEDeposito2}" HplDepositado.NavigateUrl = $"/Bancos/IE.aspx?CveIE={CveIEDeposito2}"
End If End If
LnkCancelarComplemento.Visible = False
LnkCancelarComplementoImporte.Visible = False
UppEliminarIE.Update()
CargaEventoBitacora() CargaEventoBitacora()
CargaGvBitacora() CargaGvBitacora()

2
Contratos/Contrato.aspx.vb
View File

@@ -3260,7 +3260,7 @@ Partial Class Contratos_Default
Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper
Dim PrecioUnitario As Double = Row("Precio Unitario").ToString.ToDouble Dim PrecioUnitario As Double = Row("Precio Unitario").ToString.ToDouble
Dim CvePS As Integer = 0 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 CodigoPS As Integer = 0
Dim Total As Double = (Cantidad * PrecioUnitario) Dim Total As Double = (Cantidad * PrecioUnitario)