E13, Correcion de formato de factura

This commit is contained in:
2022-06-22 01:29:05 -07:00
parent 569890147f
commit d2255c1a54
3 changed files with 182 additions and 16 deletions

View File

@@ -1865,6 +1865,11 @@ Partial Class PopUpVerFactura
Dim SelloCFDi As String = ""
Dim SelloSAT As String = ""
Dim TipoDocto As String = ""
Dim PermisoSCTR1 As String = ""
Dim PermisoSCTR2 As String = ""
Dim ConfATR1 As String = ""
Dim ConfATR2 As String = ""
Dim ObjInv As New ClsGenerales
@@ -1875,6 +1880,14 @@ Partial Class PopUpVerFactura
SerieFolio = Dr("SerieFolio").ToString
Telefono = Dr("FiguraTelefono").ToString
TipoDocto = Dr("TipoDocto").ToString
If UsuarioActual.CveEmpresa = 13 Then
PermisoSCTR1 = Dr("PermisoSCTR1").ToString
PermisoSCTR2 = Dr("PermisoSCTR2").ToString
ConfATR1 = Dr("ConfATR1").ToString
ConfATR2 = Dr("ConfATR2").ToString
End If
End If
End If
End If
@@ -2244,9 +2257,18 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("RemolquePlaca1", RemolquePlaca1))
params.Add(New ReportParameter("RemolqueSubtimo1", RemolqueSubtimo1))
params.Add(New ReportParameter("RemolquePlaca2", RemolquePlaca2))
params.Add(New ReportParameter("RemolqueSubtimo2", RemolqueSubtimo2))
If UsuarioActual.CveEmpresa = 13 Then
params.Add(New ReportParameter("PermisoSCTRemolque1", PermisoSCTR1))
params.Add(New ReportParameter("PermisoSCTRemolque2", PermisoSCTR2))
params.Add(New ReportParameter("ConfATR1", ConfATR1))
params.Add(New ReportParameter("ConfATR2", ConfATR2))
End If
' [@CertificadoContribuyente]
'[@CadenaOriginal]