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

Correcion de acuse de cancelacion

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-07-06 16:36:19 -07:00
parent 4d3dfca414
commit df391f3731
1 changed files with 10 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Compras/PopUpVerFactura.aspx.vb
View File

@@ -5782,17 +5782,16 @@ Partial Class PopUpVerFactura
Dim EstadoCancelacion = drv("EstadoCancelacion").ToString()
Dim FechaCancelacion = drv("FechaCancelacion").ToString.ToDateTime
Dim MotivoCancelacion As String = "" ' drv("MotivoCancelacion").ToString()
Dim FolioSustitucion As String = "" ' drv("FolioFiscalPadre").ToString()
Dim MotivoCancelacion As String = ""
Dim FolioSustitucion As String = ""
Dim DirectorioArchivo As String = String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacion.mrt", ModExtensiones.DirectorioBaseEmpresas)
Dim DirectorioArchivo As String = "Empresas/Grales/Formatos/AcuseCancelacion.mrt"
Dim RFCEmisor = UsuarioActual.Empresa.RFC
Dim Titulo As String = "Acuse de cancelación de CFDI"
Dim EstadoCFDI As String = "Cancelado"
'SI NO TIENE EL SELLO BUSCA OBTNERLO DE NUEVO
If String.IsNullOrEmpty(SelloCancelacion) Then
Dim ObjCancelacion As New Timbrado
@@ -5807,7 +5806,7 @@ Partial Class PopUpVerFactura
If CveEstatusFactura = 20 Then
DirectorioArchivo = String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacionSolicitud.mrt", ModExtensiones.DirectorioBaseEmpresas)
DirectorioArchivo = "Empresas/Grales/Formatos/AcuseCancelacionSolicitud.mrt"
Titulo = "Acuse de solicitud de cancelación de CFDI"
EstadoCFDI = "Vigente"
@@ -5851,8 +5850,6 @@ Partial Class PopUpVerFactura
End If
End If
Dim Archivo As New System.IO.FileInfo(DirectorioArchivo)
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Titulo", Titulo))
params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
@@ -5864,16 +5861,13 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("MsgError", ""))
params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString("dd/MM/yyyy HH:mm:ss")))
'ImprimirPDF(Archivo.FullName, DtDetalle, params, "AcuseCancelacion" & CveVenta)
Dim DtAcuse As DataTable = Nothing
Dim DtAcuse = New DataTable("DtAcuse")
DtAcuse.Columns.Add(New DataColumn("FolioFiscal", GetType(String)))
DtAcuse.Columns.Add(New DataColumn("Estatus", GetType(String)))
DtAcuse.Columns.Add(New DataColumn("MotivoCancelacion", GetType(String)))
DtAcuse.Columns.Add(New DataColumn("FolioSustitucion", GetType(String)))
If CveEstatusFactura = 20 Then
DtAcuse = New DataTable("DtAcuse")
DtAcuse.Columns.Add(New DataColumn("FolioFiscal", GetType(String)))
DtAcuse.Columns.Add(New DataColumn("Estatus", GetType(String)))
DtAcuse.Columns.Add(New DataColumn("MotivoCancelacion", GetType(String)))
DtAcuse.Columns.Add(New DataColumn("FolioSustitucion", GetType(String)))
Dim RowCFDI = DtAcuse.NewRow()
@@ -5886,7 +5880,7 @@ Partial Class PopUpVerFactura
End If
ImprimirPDFStimulsoft(Archivo.FullName, DtAcuse, params, "AcuseCancelacion" & CveVenta)
ImprimirPDFStimulsoft(DirectorioArchivo, DtAcuse, params, "AcuseCancelacion" & CveVenta)
End If