Sistemas/Empresa.aspx.vb

@@ -454,7 +454,7 @@ Partial Class Sistemas_Empresa
     End Sub
     Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
         Dim ObjEmpresas As New ClsSisEmpresas
-        Dim ObjGral As New ClsGenerales(ObjEmpresas.IniciaTransacSQL())
+        Dim ObjGral As New ClsGenerales()
         Dim ObjContPAQ As ClsContPAQi = Nothing
         Dim Indicador As New ClsIndicadores(ObjEmpresas.IniciaTransacSQL())
 
@@ -487,6 +487,7 @@ Partial Class Sistemas_Empresa
 
                 End If
                 ViewState("CveEmpresa") = ObjEmpresas.CveEmpresa
+                InicializaClasificacionIVA()
                 TextoOK = "La nueva Empresa se guardó correctamente."
             Else
                 TextoError = "Ocurrió un error al agregar la empresa"
@@ -1549,7 +1550,7 @@ Partial Class Sistemas_Empresa
             If Not File.Exists(pfxname) Then
                 Archivopfx = ""
                 Password = ""
-            End If
+            End If
             Dim objempresa As New ClsSisEmpresas
             objempresa.UpEmpresaFiel(ViewState("CveEmpresa").ToString().ToEntero(), Password, $"{Archivopfx}.pfx")
             objempresa.Dispose()