AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2023-10-25 14:14:13 -07:00
parent 7149f23be1
commit 4737bbde38
4 changed files with 19 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
Sistemas/Empresa.aspx.vb
View File

@@ -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.<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