Regimen fiscal en Empresa.VB

App_Code/ClsPaginas.vb

@@ -7999,6 +7999,8 @@ Public Class ClsPaginas
                 Dim ArchivoStimulsfot As New System.IO.FileInfo(RutaFormato.Replace(".rdlc", ".mrt"))
                 If ArchivoStimulsfot.Exists Then
                     UsarStimulsoft = True
+
+                    params.Add(New ReportParameter("RegimenFiscalEmpresa", String.Format("{0} - {1}", UsuarioActual.Empresa.CodigoRegimenFiscal, UsuarioActual.Empresa.RegimenFiscal)))
                 End If
             End If
 

App_Code/ClsSisEmpresas.vb

@@ -341,6 +341,7 @@ Public Class ClsSisEmpresas
                 _Empresa.CP = Data.Rows(0)("CP").ToString().ToEntero
                 _Empresa.Regimen = Data.Rows(0)("Regimen").ToString
                 _Empresa.CodigoRegimenFiscal = Data.Rows(0)("CodigoRegimenFiscal").ToString
+                _Empresa.RegimenFiscal = Data.Rows(0)("RegimenFiscal").ToString
                 _Empresa.RFC = Data.Rows(0)("RFC").ToString
                 _Empresa.CURP = Data.Rows(0)("CURP").ToString
                 _Empresa.Telefono = Data.Rows(0)("Telefono").ToString

App_Code/Empresa.vb

@@ -64,7 +64,8 @@ Public Class Empresa
     Public Property Importe As Decimal
     Public Property CveMetodoPago As Integer
 
-    Public Property CodigoRegimenFiscal As String
+    Public Property CodigoRegimenFiscal As String
+    Public Property RegimenFiscal As String
     Public Property EstatusFacturacion As Boolean
     Public Property Estatus As Boolean
     Public Property UsaContabilidad As Boolean