IE no emiter compleemntos Con CveIECancelación

This commit is contained in:
rakcsle
2021-05-19 10:18:04 -07:00
parent df8e5a86d6
commit f654c99f2d
3 changed files with 10 additions and 4 deletions

View File

@@ -1212,7 +1212,7 @@ Partial Class Bancos_IE
Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True)
'Dim ExistenComplementos As Boolean = VerificaComplementos(False)
If Not ChkConciliado.Checked And ObjIE.CveEstatusIE <> 2 Then
If Not ChkConciliado.Checked And ObjIE.CveEstatusIE <> 2 And ObjIE.CveIECancelacion <= 0 Then
If (Not ExistenComplementosVigentes) Then
@@ -5706,7 +5706,7 @@ Partial Class Bancos_IE
GvComplementoPagos.DataSource = ObjBancos.DtResultados
If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then
If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 0 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 And ObjBancos.DtResultados.FiltraParametros(" CveIECancelacion > 0 ").Rows.Count = 0 Then
DVGenerarComplementoModal.Visible = True
End If
Else