option explicit

Sistemas/DefinicionEmpresa.aspx.vb

@@ -712,8 +712,8 @@ Partial Class Sistemas_DefinicionEmpresa
         Dim ObjContPAQ As ClsContPAQi = Nothing
         Dim Indicador As New ClsIndicadores(ObjEmpresas.IniciaTransacSQL())
 
-        Dim TextoError = ""
+        Dim TextoError As String = ""
-        Dim TextoOK = ""
+        Dim TextoOK As String = ""
 
         If False Then
 
@@ -781,7 +781,7 @@ Partial Class Sistemas_DefinicionEmpresa
             '                             DdlTerminalTipo.SelectedValue.ToEntero, IdCuentaDSV:=-1, IdCuentaImpuestosLocales:=-1, IdCuentaIEPSxAcreditar:=-1, IdCuentaIEPSAcreditable:=-1,
             '                             IdCuentaIEPSxTrasladar:=-1, IdCuentaIEPSTrasladado:=-1) Then
             If ObjEmpresas.UpdateEmpresa(TxtEmpresa.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim,
-                                         TxtCP.Text.Trim.ToEntero, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, "CFDi", "-1",
+                                         TxtCP.Text.Trim, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, "CFDi", "-1",
                                          "-1", TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", Estatus,
                                          FacturaProduccion, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "", EstatusFacturacion, TxtSendMail.Text.Trim,
                                          TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, UsaContabilidad, UsaBancos,
@@ -884,7 +884,7 @@ Partial Class Sistemas_DefinicionEmpresa
         If ObjContPAQ IsNot Nothing Then ObjContPAQ.Dispose()
     End Sub
     Private Function AgregarFuncionalidad(ObjEmpresas As ClsSisEmpresas, CveFuncionalidad As Integer, ByRef Ddl As DropDownList) As String
-        Dim Retorno = ""
+        Dim Retorno As String = ""
 
         If Not ObjEmpresas.AddUpdateEmpresaFuncionalidades(UsuarioActual.CveEmpresa, CveFuncionalidad, Ddl.SelectedValue) Then
             Retorno = "Ocurrió un error al vincular la cuenta contable"
@@ -1038,11 +1038,11 @@ Partial Class Sistemas_DefinicionEmpresa
             Dim ArchivoLLave As String = String.Format("{0}\Certificados\{1}", EmpresaEditar.Ruta, EmpresaEditar.ArchivoKey)
             Dim ArchivoCertificado As String = String.Format("{0}\Certificados\{1}", EmpresaEditar.Ruta, EmpresaEditar.ArchivoCer)
 
-            Dim llaveByte = System.IO.File.ReadAllBytes(ArchivoLLave)
+            Dim llaveByte As Byte() = System.IO.File.ReadAllBytes(ArchivoLLave)
-            Dim certByte = System.IO.File.ReadAllBytes(ArchivoCertificado)
+            Dim certByte As Byte() = System.IO.File.ReadAllBytes(ArchivoCertificado)
 
-            Dim RFCEmisor = TxtRFC.Text.Trim()
+            Dim RFCEmisor As String = TxtRFC.Text.Trim()
-            Dim contrasena = TxtContraseñaKey.Text.Trim()
+            Dim contrasena As String = TxtContraseñaKey.Text.Trim()
 
             Dim conector As New Profact.TimbraCFDI33.Conector(EmpresaEditar.FacturaProduccion)
 
@@ -1052,7 +1052,7 @@ Partial Class Sistemas_DefinicionEmpresa
                 conector.EstableceCredenciales(Credenciales)
             End If
 
-            Dim result = conector.RegistraEmisor(RFCEmisor, certByte, llaveByte, contrasena)
+            Dim result As Profact.TimbraCFDI.ResultadoRegistro = conector.RegistraEmisor(RFCEmisor, certByte, llaveByte, contrasena)
 
             If result.Exitoso Then
                 Alert("El emisor se registró correctamente.<br>" & result.Descripcion)