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

2
App_Code/ClsBancos.vb
View File

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

10
App_Code/ClsSisEmpresas.vb
View File

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

2
App_Code/Empresa.vb
View File

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

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