-- cambio de tipo de dato de int a string, del campo Empresas.CP

App_Code/ClsBancos.vb

@@ -1123,7 +1123,7 @@ Public Class ClsBancos
             Timbre = Timbrado.PreparaTimbrePago40(RFCEmpresa, UsuarioActual.Empresa.Empresa, UsuarioActual.Empresa.CodigoRegimenFiscal,
                                     RFCCliente, dr("NombreCliente").ToString, dr("ClienteCP").ToString, dr("CodigoRegimenFiscal").ToString, Serie, Folio.ToString, FechaTimbrado, Cuentapago,
                                      dr("FechaDocumento").ToString.ToDate, dr("ClaveFormaPagoSAT").ToString, dr("AbreviaturaSAT").ToString, dr("VentasTotalPagado").ToString.ToDecimal,
-                                                UsuarioActual.Empresa.CP.ToString, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDecimal, dttpagos, dttpagosimpuestos, CFDIRelacionado:=CFDIRelacionado,
+                                                UsuarioActual.Empresa.CP, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDecimal, dttpagos, dttpagosimpuestos, CFDIRelacionado:=CFDIRelacionado,
                                      RfcACuentaTerceros:=dr("RfcACuentaTerceros").ToString, NombreACuentaTerceros:=dr("NombreACuentaTerceros").ToString, RegimenFiscalACuentaTerceros:=dr("RegimenFiscalACuentaTerceros").ToString, DomicilioFiscalACuentaTerceros:=dr("DomicilioFiscalACuentaTerceros").ToString)
 
 

App_Code/ClsSisEmpresas.vb

@@ -338,7 +338,7 @@ Public Class ClsSisEmpresas
                 _Empresa.Colonia = Data.Rows(0)("Colonia").ToString
                 _Empresa.Ciudad = Data.Rows(0)("Ciudad").ToString
                 _Empresa.Estado = Data.Rows(0)("Estado").ToString
-                _Empresa.CP = Data.Rows(0)("CP").ToString().ToEntero
+                _Empresa.CP = Data.Rows(0)("CP").ToString()
                 _Empresa.Regimen = Data.Rows(0)("Regimen").ToString
                 _Empresa.CodigoRegimenFiscal = Data.Rows(0)("CodigoRegimenFiscal").ToString
                 _Empresa.RegimenFiscal = Data.Rows(0)("RegimenFiscal").ToString
@@ -458,7 +458,7 @@ Public Class ClsSisEmpresas
         Return Retorno
     End Function
     Public Function AddEmpresa(CveEmpresa As Integer, Empresa As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Ciudad As String, Estado As String,
-                               RFC As String, CP As Integer, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String,
+                               RFC As String, CP As String, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String,
                                ArchivoCer As String, ArchivoPfx As String, Banner As String, CveUsuario As Integer, FacturaProduccion As Boolean, MostrarRetIVA As Boolean, MostrarRetISR As Boolean, Regimen As String, EstatusFacturacion As Boolean,
                                SendMail As String, SendMailPassword As String, SendMailServer As String, SendMailPuerto As Integer, SendMailSSL As Boolean, UsaContabilidad As Boolean, UsaBancos As Boolean, UsaVentas As Boolean, UsaCxC As Boolean,
                                UsaCompras As Boolean, UsaInventarios As Boolean, UsaRH As Boolean, UsaNomina As Boolean, UsaOS As Boolean, BDContPAQi As String, ServerContPAQi As String, UsrContPAQi As String, PwdContPAQi As String, Buzon_Mail As String,
@@ -487,7 +487,7 @@ Public Class ClsSisEmpresas
             .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
             .Add("@Estado", SqlDbType.VarChar).Value = Estado
             .Add("@RFC", SqlDbType.VarChar).Value = RFC
-            .Add("@CP", SqlDbType.Int).Value = CP
+            .Add("@CP", SqlDbType.VarChar).Value = CP
             .Add("@Contacto", SqlDbType.VarChar).Value = Contacto
             .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
             .Add("@Mail", SqlDbType.VarChar).Value = Mail
@@ -588,7 +588,7 @@ Public Class ClsSisEmpresas
     End Function
 
     Public Function UpdateEmpresa(Empresa As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Ciudad As String, Estado As String,
-                                  RFC As String, CP As Integer, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String,
+                                  RFC As String, CP As String, Telefono As String, Contacto As String, Mail As String, TipoFacturacion As String, BIUsuario As String, BIContraseña As String, ContraseñaKey As String, ArchivoKey As String,
                                   ArchivoCer As String, ArchivoPfx As String, Banner As String, Estatus As Boolean, FacturaProduccion As Boolean, MostrarRetIVA As Boolean, MostrarRetISR As Boolean, Regimen As String, EstatusFacturacion As Boolean,
                                   SendMail As String, SendMailPassword As String, SendMailServer As String, SendMailPuerto As Integer, SendMailSSL As Boolean, UsaContabilidad As Boolean, UsaBancos As Boolean, UsaVentas As Boolean, UsaCxC As Boolean,
                                   UsaCompras As Boolean, UsaInventarios As Boolean, UsaRH As Boolean, UsaNomina As Boolean, UsaOS As Boolean, BDContPAQi As String, ServerContPAQi As String, UsrContPAQi As String, PwdContPAQi As String, Buzon_Mail As String,
@@ -611,7 +611,7 @@ Public Class ClsSisEmpresas
             .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
             .Add("@Estado", SqlDbType.VarChar).Value = Estado
             .Add("@RFC", SqlDbType.VarChar).Value = RFC
-            .Add("@CP", SqlDbType.Int).Value = CP
+            .Add("@CP", SqlDbType.VarChar).Value = CP
             .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
             .Add("@Contacto", SqlDbType.VarChar).Value = Contacto
             .Add("@Mail", SqlDbType.VarChar).Value = Mail

App_Code/Empresa.vb

@@ -13,7 +13,7 @@ Public Class Empresa
     Public Property Colonia As String
     Public Property Ciudad As String
     Public Property Estado As String
-    Public Property CP As Integer
+    Public Property CP As String
     Public Property RFC As String
     Public Property CURP As String
     Public Property Telefono As String

Sistemas/Empresa.aspx.vb

@@ -5,7 +5,6 @@ Imports System.Data
 Imports Extensiones
 Imports System.IO
 
-
 Partial Class Sistemas_Empresa
     Inherits ClsPaginas
 
@@ -379,12 +378,12 @@ Partial Class Sistemas_Empresa
         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 CveEmpresa = -1 Then
             If ObjEmpresas.AddEmpresa(TxtCveEmpresa.Text.Trim.ToEntero, 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,
+                                      TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim,
                                       DdlTipoFacturacion.SelectedValue, TxtBIUsuario.Text.Trim, TxtBIContraseña.Text.Trim, TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim,
                                       TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", UsuarioActual.CveUsuario, ChkFacturaProduccion.Checked, ChkMostrarRetIVA.Checked,
                                       ChkMostrarRetISR.Checked, "-1", ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim, TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim,
@@ -431,7 +430,7 @@ Partial Class Sistemas_Empresa
 
         Else
             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, DdlTipoFacturacion.SelectedItem.ToString, TxtBIUsuario.Text.Trim,
+                                         TxtCP.Text.Trim, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, DdlTipoFacturacion.SelectedItem.ToString, TxtBIUsuario.Text.Trim,
                                          TxtBIContraseña.Text.Trim, TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", ChkEstatus.Checked,
                                          ChkFacturaProduccion.Checked, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "", ChkEstatusFacturacion.Checked, TxtSendMail.Text.Trim,
                                          TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, ChkUsaContabilidad.Checked, ChkUsaBancos.Checked,
@@ -551,7 +550,7 @@ Partial Class Sistemas_Empresa
         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(TxtCveEmpresa.Text.Trim.ToEntero, CveFuncionalidad, Ddl.SelectedValue) Then
             Retorno = "Ocurrió un error al vincular la cuenta contable"
@@ -683,8 +682,8 @@ Partial Class Sistemas_Empresa
         Dim Archivokey As Archivo = Nothing
         Dim Archivocer As Archivo = Nothing
 
-        Dim dirbase = "" ' String.Format("{0}Empresas\{1}\Certificados\Fiel\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa"))
+        Dim dirbase As String = "" ' String.Format("{0}Empresas\{1}\Certificados\Fiel\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa"))
-        Dim dirbasepfx = "" '  String.Format("{0}Empresas\{1}\Certificados\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa"))
+        Dim dirbasepfx As String = "" '  String.Format("{0}Empresas\{1}\Certificados\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa"))
         If EmpresaEditar IsNot Nothing Then
             dirbase = String.Format("{0}Certificados\Fiel\", EmpresaEditar.Ruta)
             dirbasepfx = String.Format("{0}Certificados\", EmpresaEditar.Ruta)
@@ -832,11 +831,11 @@ Partial Class Sistemas_Empresa
             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)
 
@@ -846,7 +845,7 @@ Partial Class Sistemas_Empresa
                 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)
@@ -860,11 +859,6 @@ Partial Class Sistemas_Empresa
 
     End Sub
 
-
-
-
-
-
     Protected Sub LnkArchivoKey_Click(sender As Object, e As EventArgs) Handles LnkArchivoKey.Click
         TxtCargaImg.getfiles().Archivos = Nothing
         TxtCargaImg.Text = "[]"
@@ -953,14 +947,8 @@ Partial Class Sistemas_Empresa
 
             End If
 
-
-
         Next
 
-
-
-
-
         If Not TieneError Then
             Alert("Certificado cargado con exito")
             RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalArchvivo"))
@@ -968,10 +956,6 @@ Partial Class Sistemas_Empresa
         TxtCargaImg.getfiles().Archivos = Nothing
         UpAddArchivo.Update()
 
-
-
-
-
     End Sub
 
     Protected Sub LbArchivoKeyDescarga_Download(sender As Object, e As EventArgs) Handles LbArchivoKeyDescarga.Click