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

-- quitar idcta de empresas

Browse Source
This commit is contained in:
rrene
2023-08-16 18:39:37 -07:00
parent 4880a48dc2
commit adc0014237
3 changed files with 21 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
App_Code/ClsSisEmpresas.vb
View File

@@ -461,22 +461,20 @@ Public Class ClsSisEmpresas
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, 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, 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,
Buzon_Server As String, Buzon_Puerto As Integer, Buzon_SSL As Boolean, Buzon_USR As String, Buzon_PWD As String, Buzon_Tipo As String, Soporte_Mail As String, Buzon_Server As String, Buzon_Puerto As Integer, Buzon_SSL As Boolean, Buzon_USR As String, Buzon_PWD As String, Buzon_Tipo As String, Soporte_Mail As String,
Soporte_Server As String, Soporte_Puerto As Integer, Soporte_SSL As Boolean, Soporte_USR As String, Soporte_PWD As String, Soporte_Tipo As String, IdCuentaIVAxAcreditar As Integer, IdCuentaIVAAcreditable As Integer, Soporte_Server As String, Soporte_Puerto As Integer, Soporte_SSL As Boolean, Soporte_USR As String, Soporte_PWD As String, Soporte_Tipo As String,
IdCuentaIVAxTrasladar As Integer, IdCuentaIVATrasladado As Integer, IdCuentaRetIVACirculacion As Integer, IdCuentaOtrosIngresos As Integer, IdCuentaDescuentoVentas As Integer, RegistroPatronal As String, AreaGeografica As String,
IdCuentaRetISRCirculacion As Integer, RegistroPatronal As String, AreaGeografica As String, NombreCorto As String, CURP As String, CveRegimenFiscal As Integer, Importe As Decimal,
Conta_IdCuentaPerdidaCambiaria As Integer, Conta_IdCuentaGananciaCambiaria As Integer, NombreCorto As String, CURP As String, CveRegimenFiscal As Integer, Importe As Decimal,
CIEC As String, CvePlataforma As Integer, UsaAC As Boolean, PorDepreciacion As Decimal, Extension As String, Localidad As String, MetodoInventario As Integer, AsientoContableComprasContado As Boolean, CIEC As String, CvePlataforma As Integer, UsaAC As Boolean, PorDepreciacion As Decimal, Extension As String, Localidad As String, MetodoInventario As Integer, AsientoContableComprasContado As Boolean,
PeriodoActual As Integer, EjercicioActual As Integer, RH_DefaultAsistencias As Boolean, DiasPermitidos As Integer, TipoCentroCosto As Integer, RequiereCentroCosto As Boolean, PV_TerminalTipo As Integer, PeriodoActual As Integer, EjercicioActual As Integer, RH_DefaultAsistencias As Boolean, DiasPermitidos As Integer, TipoCentroCosto As Integer, RequiereCentroCosto As Boolean, PV_TerminalTipo As Integer,
Optional CveMetodoPago As Integer = 0, Optional CvePAC As Integer = 0, Optional IdCuentaDSV As Integer = -1, Optional CveMetodoPago As Integer = 0, Optional CvePAC As Integer = 0,
Optional IdCuentaImpuestosLocales As Integer = -1, Optional RegistroCompleto As Boolean = False, Optional IdCuentaIEPSxAcreditar As Integer = -1, Optional IdCuentaIEPSAcreditable As Integer = -1, Optional IdCuentaIEPSxTrasladar As Integer = -1, Optional RegistroCompleto As Boolean = False
Optional IdCuentaIEPSTrasladado As Integer = -1) As Boolean ) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Sis_EmpresasAdd") DataAdapter("PA_Sis_EmpresasAdd")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Empresa", SqlDbType.VarChar).Value = Empresa .Add("@Empresa", SqlDbType.VarChar).Value = Empresa
.Add("@Direccion", SqlDbType.VarChar).Value = Direccion .Add("@Direccion", SqlDbType.VarChar).Value = Direccion
@@ -535,27 +533,12 @@ Public Class ClsSisEmpresas
'Nuevos Datos 'Nuevos Datos
.Add("@Buzon_Tipo", SqlDbType.VarChar).Value = Buzon_Tipo .Add("@Buzon_Tipo", SqlDbType.VarChar).Value = Buzon_Tipo
.Add("@IdCuentaIVAxAcreditar", SqlDbType.VarChar).Value = IdCuentaIVAxAcreditar
.Add("@IdCuentaIVAAcreditable", SqlDbType.VarChar).Value = IdCuentaIVAAcreditable
.Add("@IdCuentaIVAxTrasladar", SqlDbType.VarChar).Value = IdCuentaIVAxTrasladar
.Add("@IdCuentaIVATrasladado", SqlDbType.VarChar).Value = IdCuentaIVATrasladado
.Add("@IdCuentaRetIVACirculacion", SqlDbType.VarChar).Value = IdCuentaRetIVACirculacion
.Add("@IdCuentaRetISRCirculacion", SqlDbType.VarChar).Value = IdCuentaRetISRCirculacion
.Add("@RegistroPatronal", SqlDbType.VarChar).Value = RegistroPatronal .Add("@RegistroPatronal", SqlDbType.VarChar).Value = RegistroPatronal
.Add("@AreaGeografica", SqlDbType.VarChar).Value = AreaGeografica .Add("@AreaGeografica", SqlDbType.VarChar).Value = AreaGeografica
.Add("@Conta_IdCuentaPerdidaCambiaria", SqlDbType.VarChar).Value = Conta_IdCuentaPerdidaCambiaria
.Add("@Conta_IdCuentaGananciaCambiaria", SqlDbType.VarChar).Value = Conta_IdCuentaGananciaCambiaria
.Add("@NombreCorto", SqlDbType.VarChar).Value = NombreCorto .Add("@NombreCorto", SqlDbType.VarChar).Value = NombreCorto
.Add("@CvePAC", SqlDbType.Int).Value = CvePAC .Add("@CvePAC", SqlDbType.Int).Value = CvePAC
.Add("@IdCuentaDSV", SqlDbType.Int).Value = IdCuentaDSV
.Add("@IdCuentaImpuestosLocales", SqlDbType.Int).Value = IdCuentaImpuestosLocales
.Add("@CveEmpresaNew", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@CveEmpresaNew", SqlDbType.Int).Direction = ParameterDirection.Output
.Add("@RegistroCompleto", SqlDbType.Bit).Value = RegistroCompleto .Add("@RegistroCompleto", SqlDbType.Bit).Value = RegistroCompleto
.Add("@IdCuentaIEPSxAcreditar", SqlDbType.VarChar).Value = IdCuentaIEPSxAcreditar
.Add("@IdCuentaIEPSAcreditable", SqlDbType.VarChar).Value = IdCuentaIEPSAcreditable
.Add("@IdCuentaIEPSxTrasladar", SqlDbType.VarChar).Value = IdCuentaIEPSxTrasladar
.Add("@IdCuentaIEPSTrasladado", SqlDbType.VarChar).Value = IdCuentaIEPSTrasladado
.Add("@Soporte_Tipo", SqlDbType.VarChar).Value = Soporte_Tipo .Add("@Soporte_Tipo", SqlDbType.VarChar).Value = Soporte_Tipo
.Add("@Soporte_SSL", SqlDbType.Bit).Value = Soporte_SSL .Add("@Soporte_SSL", SqlDbType.Bit).Value = Soporte_SSL
.Add("@Soporte_USR", SqlDbType.VarChar).Value = Soporte_USR .Add("@Soporte_USR", SqlDbType.VarChar).Value = Soporte_USR
@@ -571,7 +554,6 @@ Public Class ClsSisEmpresas
.Add("@Extension", SqlDbType.VarChar).Value = Extension .Add("@Extension", SqlDbType.VarChar).Value = Extension
.Add("@Localidad", SqlDbType.VarChar).Value = Localidad .Add("@Localidad", SqlDbType.VarChar).Value = Localidad
.Add("@MetodoInventario", SqlDbType.Int).Value = MetodoInventario .Add("@MetodoInventario", SqlDbType.Int).Value = MetodoInventario
.Add("@AsientoContableComprasContado", SqlDbType.Bit).Value = AsientoContableComprasContado
.Add("@PeriodoActual", SqlDbType.Int).Value = PeriodoActual .Add("@PeriodoActual", SqlDbType.Int).Value = PeriodoActual
.Add("@EjercicioActual", SqlDbType.Int).Value = EjercicioActual .Add("@EjercicioActual", SqlDbType.Int).Value = EjercicioActual
.Add("@RH_DefaultAsistencias", SqlDbType.Bit).Value = RH_DefaultAsistencias .Add("@RH_DefaultAsistencias", SqlDbType.Bit).Value = RH_DefaultAsistencias
@@ -579,11 +561,8 @@ Public Class ClsSisEmpresas
.Add("@TipoCentroCosto", SqlDbType.Int).Value = TipoCentroCosto .Add("@TipoCentroCosto", SqlDbType.Int).Value = TipoCentroCosto
.Add("@RequiereCentroCosto", SqlDbType.Bit).Value = RequiereCentroCosto .Add("@RequiereCentroCosto", SqlDbType.Bit).Value = RequiereCentroCosto
.Add("@PV_TerminalTipo", SqlDbType.Int).Value = PV_TerminalTipo .Add("@PV_TerminalTipo", SqlDbType.Int).Value = PV_TerminalTipo
.Add("@IdCuentaDescuentoVentas", SqlDbType.Int).Value = IdCuentaDescuentoVentas
.Add("@IdCuentaOtrosIngresos", SqlDbType.Int).Value = IdCuentaOtrosIngresos
.Add("@Importe", SqlDbType.Decimal).Value = Importe .Add("@Importe", SqlDbType.Decimal).Value = Importe
End With End With
Try Try

10
Sistemas/Empresa.aspx.vb
View File

@@ -530,14 +530,12 @@ Partial Class Sistemas_Empresa
ChkUsaCompras.Checked, ChkUsaInventarios.Checked, ChkUsaRH.Checked, ChkUsaNomina.Checked, ChkUsaOS.Checked, TxtBDContPAQi.Text.Trim, TxtServerContPAQi.Text.Trim, ChkUsaCompras.Checked, ChkUsaInventarios.Checked, ChkUsaRH.Checked, ChkUsaNomina.Checked, ChkUsaOS.Checked, TxtBDContPAQi.Text.Trim, TxtServerContPAQi.Text.Trim,
TxtUsrContPAQi.Text.Trim, TxtPwdContPAQi.Text.Trim, TxtBuzon_Mail.Text.Trim, TxtBuzon_Server.Text.Trim, TxtBuzon_Puerto.Text.Trim.ToEntero, ChkBuzon_SSL.Checked, TxtUsrContPAQi.Text.Trim, TxtPwdContPAQi.Text.Trim, TxtBuzon_Mail.Text.Trim, TxtBuzon_Server.Text.Trim, TxtBuzon_Puerto.Text.Trim.ToEntero, ChkBuzon_SSL.Checked,
TxtBuzon_USR.Text.Trim, TxtBuzon_PWD.Text.Trim, DdlProtocolo.SelectedValue, TxtMailSoporte.Text.Trim, TxtServidorSoporte.Text.Trim, TxtPuertoSoporte.Text.Trim.ToEntero, ChkSSLSoporte.Checked, TxtBuzon_USR.Text.Trim, TxtBuzon_PWD.Text.Trim, DdlProtocolo.SelectedValue, TxtMailSoporte.Text.Trim, TxtServidorSoporte.Text.Trim, TxtPuertoSoporte.Text.Trim.ToEntero, ChkSSLSoporte.Checked,
TxtUsuarioSoporte.Text.Trim, TxtContraseñaSoporte.Text.Trim, DdlProtocoloSoporte.SelectedValue, DdlIVAxAcreditar.SelectedValue.ToEntero, DdlIVAAcreditable.SelectedValue.ToEntero, TxtUsuarioSoporte.Text.Trim, TxtContraseñaSoporte.Text.Trim, DdlProtocoloSoporte.SelectedValue,
DdlIVAxTrasladar.SelectedValue.ToEntero, DdlIVATrasladado.SelectedValue.ToEntero, DdlIVARetenciones.SelectedValue.ToEntero, DdlCuentaOtrosIngresos.SelectedValue.ToEntero, DdlCuentaDescuentoVenta.SelectedValue.ToEntero, DdlISRCirculacion.SelectedValue.ToEntero, "".Trim, TxtAreaGeografica.Text.Trim,
"".Trim, TxtAreaGeografica.Text.Trim, DdlCuentaPerdidaCambiaria.SelectedValue.ToEntero, DddlCuentaGananciaCambiaria.SelectedValue.ToEntero,
TxtNombreCorto.Text, TxtCURP.Text.Trim, DdlRegimen.SelectedValue.ToEntero, TxtImporte.Text.ToDecimal, TxtCIEC.Text, DdlPlataforma.SelectedValue.ToEntero, ChkUsaAC.Checked, TxtNombreCorto.Text, TxtCURP.Text.Trim, DdlRegimen.SelectedValue.ToEntero, TxtImporte.Text.ToDecimal, TxtCIEC.Text, DdlPlataforma.SelectedValue.ToEntero, ChkUsaAC.Checked,
TxtPorDepreciacion.Text.ToDecimal, TxtExtension.Text, TxtLocalidad.Text, DdlMetodoInventario.SelectedValue.ToEntero, ChkAsientoContable.Checked, TxtPeriodoActual.Text.ToEntero, TxtPorDepreciacion.Text.ToDecimal, TxtExtension.Text, TxtLocalidad.Text, DdlMetodoInventario.SelectedValue.ToEntero, ChkAsientoContable.Checked, TxtPeriodoActual.Text.ToEntero,
TxtEjercicioActual.Text.ToEntero, ChkDefaultAsistencias.Checked, TxtDiasPermitidos.Text.ToEntero, DdlTipoCentroDeCostos.SelectedValue.ToEntero, ChkReqCentroCostos.Checked, DdlTerminalTipo.SelectedValue.ToEntero, CvePAC:=DdlCvePac.SelectedValue.ToEntero, IdCuentaDSV:=DdlDSV.SelectedValue.ToEntero, IdCuentaImpuestosLocales:=DdlImpuestosLocales.SelectedValue.ToEntero, TxtEjercicioActual.Text.ToEntero, ChkDefaultAsistencias.Checked, TxtDiasPermitidos.Text.ToEntero, DdlTipoCentroDeCostos.SelectedValue.ToEntero, ChkReqCentroCostos.Checked, DdlTerminalTipo.SelectedValue.ToEntero, CvePAC:=DdlCvePac.SelectedValue.ToEntero
IdCuentaIEPSxAcreditar:=DdlIEPSxAcreditar.SelectedValue.ToEntero, IdCuentaIEPSAcreditable:=DdlIEPSAcreditable.SelectedValue.ToEntero, IdCuentaIEPSxTrasladar:=DdlIEPSxTrasladar.SelectedValue.ToEntero, ) Then
IdCuentaIEPSTrasladado:=DdlIEPSTrasladado.SelectedValue.ToEntero) Then
'Movemos el Archivo Fisicamente 'Movemos el Archivo Fisicamente
If Session("FileUpload") IsNot Nothing AndAlso Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(Request.PhysicalApplicationPath + "Banners\Temp\" & Session("FileUpload").ToString) Then If Session("FileUpload") IsNot Nothing AndAlso Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(Request.PhysicalApplicationPath + "Banners\Temp\" & Session("FileUpload").ToString) Then

23
Sistemas/RegistroEmpresa.aspx.vb
View File

@@ -76,18 +76,17 @@ Partial Class Sistemas_RegistroEmpresa
Dim objEmpresa As New ClsSisEmpresas() Dim objEmpresa As New ClsSisEmpresas()
Try Try
If objEmpresa.AddEmpresa(-1, Nombre, "", "", "", "", "", "", RFC, 0, "", "", Email, "CFDi", "", "", "", "", "", "", "", 100, False, False, False, "", False, "", "", "", 0, False, 'If objEmpresa.AddEmpresa(-1, Nombre, "", "", "", "", "", "", RFC, 0, "", "", Email, "CFDi", "", "", "", "", "", "", "", 100, False, False, False, "", False, "", "", "", 0, False,
False, False, False, False, False, False, False, False, False, "", "", "", "", "", "", 0, False, "", "", "", "", "", 0, False, "", "", "", 0, 0, 0, 0, 0, 0, 0, 0, "", "", 0, 0, "", "", -1, ' False, False, False, False, False, False, False, False, False, "", "", "", "", 0, False, "", 0, False, 0, CveMetodoPago:=MetodoPago.ToEntero) Then
0.0D, "", 0, False, 0.0D, "", "", 0, False, 0, 0, False, 0, 0, False, 0, CveMetodoPago:=MetodoPago.ToEntero) Then ' Alert("Su solicitud ha sido procesada correctamente, en breve recibira un correo para completar el registro.", TipoMensaje.MsgInformacion)
Alert("Su solicitud ha sido procesada correctamente, en breve recibira un correo para completar el registro.", TipoMensaje.MsgInformacion) ' Liga = String.Format("sig.adsistemas.mx/Sistemas/WizardRegistro.aspx?P={0}", Encripta(String.Format("CveEmpresa={0}", objEmpresa.CveEmpresa)))
Liga = String.Format("sig.adsistemas.mx/Sistemas/WizardRegistro.aspx?P={0}", Encripta(String.Format("CveEmpresa={0}", objEmpresa.CveEmpresa))) ' EnviaCorreo()
EnviaCorreo() ' RegistraScript("$('#C_DivRegistro').css('display', 'none')")
RegistraScript("$('#C_DivRegistro').css('display', 'none')") ' RegistraScript("$('#C_DvFinalizado').css('display', '')")
RegistraScript("$('#C_DvFinalizado').css('display', '')") ' UpRegistro.Update()
UpRegistro.Update() 'Else
Else ' Alert("OCurrió un error al guardar la empresa", TipoMensaje.MsgError)
Alert("OCurrió un error al guardar la empresa", TipoMensaje.MsgError) 'End If
End If
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al guardar la emrpresa desde registro basico.", ex) OnError("Ocurrió un error al guardar la emrpresa desde registro basico.", ex)
Finally Finally