diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 4ddd2d56a..5c05914f1 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1185,7 +1185,7 @@ Public Class ClsBancos 'End Function Public Function UpdateComplementoPago(CveComplementoPago As Integer, FolioFiscal As String, CvePAC As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional CvePACCancelacion As Integer = -1, - Optional FechaCancelacion As Date = MinFecha, Optional SelloCancelacion As String = "") As Boolean + Optional FechaCancelacion As Date = MinFecha, Optional SelloCancelacion As String = "", Optional CveSATMotivoCancelacion As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Banc_ComplementoPagoUpdate") @@ -1199,6 +1199,7 @@ Public Class ClsBancos .Add("@CvePACCancelacion", SqlDbType.Int).Value = CvePACCancelacion .Add("@FechaCancelacion", SqlDbType.Date).Value = FechaCancelacion .Add("@SelloCancelacion", SqlDbType.VarChar).Value = SelloCancelacion + .Add("@CveSATMotivoCancelacion", SqlDbType.Int).Value = CveSATMotivoCancelacion End With diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index d0bf4fcef..53cd7fdc2 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -1370,11 +1370,13 @@ - + - - + + + + diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 431c75456..8290aef4f 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -5847,6 +5847,8 @@ Partial Class Bancos_IE Else GvComplementoPagos.DataSource = Nothing End If + + GvComplementoPagos.Columns(8).Visible = False Else If CveIE > 0 Then If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) Then @@ -5862,13 +5864,14 @@ Partial Class Bancos_IE ' GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "SerieFolio", "Fecha", "CveIE"}) - GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "FolioFiscal", "Folio", "SerieFolio", "FechaComplemento", "Importe", "RFCReceptor", "StrEstatus", "FechaCancelacion", "Tipo", "Estatus", "CveIE", "CvePAC"}) + GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "FolioFiscal", "Folio", "SerieFolio", "FechaComplemento", "Importe", "RFCReceptor", "StrEstatus", "FechaCancelacion", "Tipo", "Estatus", "CveIE", "CvePAC", "MotivoCancelacion"}) '"CveComplementoPago","FolioFiscal","Folio","SerieFolio","FechaComplemento","Importe","RFCReceptor","StrEstatus","FechaCancelacion","Tipo,Estatus","CveIE","CvePAC" End If End If + GvComplementoPagos.Columns(8).Visible = True End If ObjBancos.Dispose() @@ -5904,6 +5907,12 @@ Partial Class Bancos_IE e.Row.FCDropDownList("DdlMotivoCancelacion").Visible = False End If + If e.Row.DataKey("Estatus").ToEntero = 2 Then + e.Row.FCLiteral("LtlMotivoCancelacion").Visible = True + Else + e.Row.FCDropDownList("DdlMotivoCancelacion").Visible = False + End If + ElseIf e.Row.DataKey("Tipo") = "Egs" Then e.Row.Cells(3).Text = String.Format("", Encripta(String.Format("OP=Fact&EXT=xml&CveFactura={0}&RFC={1}", e.Row.DBCampo("CveFactura"), e.Row.DBCampo(("RFCde").ToString.Replace("&", "%26%"))))) @@ -6676,7 +6685,7 @@ Partial Class Bancos_IE If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then - If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then + If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then Alert("El complemento se cancelo correctamente.") End If