From 4737bbde3810212bad66f2525f74023811e53ad1 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 25 Oct 2023 14:14:13 -0700 Subject: [PATCH] -- cambio de tipo de dato de int a string, del campo Empresas.CP --- App_Code/ClsBancos.vb | 2 +- App_Code/ClsSisEmpresas.vb | 10 +++++----- App_Code/Empresa.vb | 2 +- Sistemas/Empresa.aspx.vb | 40 ++++++++++++-------------------------- 4 files changed, 19 insertions(+), 35 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index e7a21f5c5..f12d507c9 100644 --- a/App_Code/ClsBancos.vb +++ b/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) diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb index 7218f50ce..ada1fd59f 100644 --- a/App_Code/ClsSisEmpresas.vb +++ b/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 diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb index ff38fa730..9125fe0bd 100644 --- a/App_Code/Empresa.vb +++ b/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 diff --git a/Sistemas/Empresa.aspx.vb b/Sistemas/Empresa.aspx.vb index 00a305730..907dc904d 100644 --- a/Sistemas/Empresa.aspx.vb +++ b/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 TextoOK = "" + Dim TextoError As String = "" + 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 dirbasepfx = "" ' String.Format("{0}Empresas\{1}\Certificados\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa")) + Dim dirbase As String = "" ' String.Format("{0}Empresas\{1}\Certificados\Fiel\", 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 certByte = System.IO.File.ReadAllBytes(ArchivoCertificado) + Dim llaveByte As Byte() = System.IO.File.ReadAllBytes(ArchivoLLave) + Dim certByte As Byte() = System.IO.File.ReadAllBytes(ArchivoCertificado) - Dim RFCEmisor = TxtRFC.Text.Trim() - Dim contrasena = TxtContraseñaKey.Text.Trim() + Dim RFCEmisor As String = TxtRFC.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.
" & 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