-- quitar idcta de empresas
This commit is contained in:
@@ -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,
|
||||
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,
|
||||
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,
|
||||
IdCuentaIVAxTrasladar As Integer, IdCuentaIVATrasladado As Integer, IdCuentaRetIVACirculacion As Integer, IdCuentaOtrosIngresos As Integer, IdCuentaDescuentoVentas As Integer,
|
||||
IdCuentaRetISRCirculacion As Integer, RegistroPatronal As String, AreaGeografica As String,
|
||||
Conta_IdCuentaPerdidaCambiaria As Integer, Conta_IdCuentaGananciaCambiaria As Integer, NombreCorto As String, CURP As String, CveRegimenFiscal As Integer, Importe As Decimal,
|
||||
Soporte_Server As String, Soporte_Puerto As Integer, Soporte_SSL As Boolean, Soporte_USR As String, Soporte_PWD As String, Soporte_Tipo As String,
|
||||
RegistroPatronal As String, AreaGeografica As String,
|
||||
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,
|
||||
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 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 IdCuentaIEPSTrasladado As Integer = -1) As Boolean
|
||||
Optional CveMetodoPago As Integer = 0, Optional CvePAC As Integer = 0,
|
||||
Optional RegistroCompleto As Boolean = False
|
||||
) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Sis_EmpresasAdd")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@Empresa", SqlDbType.VarChar).Value = Empresa
|
||||
.Add("@Direccion", SqlDbType.VarChar).Value = Direccion
|
||||
@@ -535,27 +533,12 @@ Public Class ClsSisEmpresas
|
||||
|
||||
'Nuevos Datos
|
||||
.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("@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("@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("@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_SSL", SqlDbType.Bit).Value = Soporte_SSL
|
||||
.Add("@Soporte_USR", SqlDbType.VarChar).Value = Soporte_USR
|
||||
@@ -571,7 +554,6 @@ Public Class ClsSisEmpresas
|
||||
.Add("@Extension", SqlDbType.VarChar).Value = Extension
|
||||
.Add("@Localidad", SqlDbType.VarChar).Value = Localidad
|
||||
.Add("@MetodoInventario", SqlDbType.Int).Value = MetodoInventario
|
||||
.Add("@AsientoContableComprasContado", SqlDbType.Bit).Value = AsientoContableComprasContado
|
||||
.Add("@PeriodoActual", SqlDbType.Int).Value = PeriodoActual
|
||||
.Add("@EjercicioActual", SqlDbType.Int).Value = EjercicioActual
|
||||
.Add("@RH_DefaultAsistencias", SqlDbType.Bit).Value = RH_DefaultAsistencias
|
||||
@@ -579,11 +561,8 @@ Public Class ClsSisEmpresas
|
||||
.Add("@TipoCentroCosto", SqlDbType.Int).Value = TipoCentroCosto
|
||||
.Add("@RequiereCentroCosto", SqlDbType.Bit).Value = RequiereCentroCosto
|
||||
.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
|
||||
|
||||
|
||||
End With
|
||||
|
||||
Try
|
||||
|
||||
@@ -530,14 +530,12 @@ Partial Class Sistemas_Empresa
|
||||
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,
|
||||
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,
|
||||
DdlIVAxTrasladar.SelectedValue.ToEntero, DdlIVATrasladado.SelectedValue.ToEntero, DdlIVARetenciones.SelectedValue.ToEntero, DdlCuentaOtrosIngresos.SelectedValue.ToEntero, DdlCuentaDescuentoVenta.SelectedValue.ToEntero, DdlISRCirculacion.SelectedValue.ToEntero,
|
||||
"".Trim, TxtAreaGeografica.Text.Trim, DdlCuentaPerdidaCambiaria.SelectedValue.ToEntero, DddlCuentaGananciaCambiaria.SelectedValue.ToEntero,
|
||||
TxtUsuarioSoporte.Text.Trim, TxtContraseñaSoporte.Text.Trim, DdlProtocoloSoporte.SelectedValue,
|
||||
"".Trim, TxtAreaGeografica.Text.Trim,
|
||||
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,
|
||||
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,
|
||||
IdCuentaIEPSxAcreditar:=DdlIEPSxAcreditar.SelectedValue.ToEntero, IdCuentaIEPSAcreditable:=DdlIEPSAcreditable.SelectedValue.ToEntero, IdCuentaIEPSxTrasladar:=DdlIEPSxTrasladar.SelectedValue.ToEntero,
|
||||
IdCuentaIEPSTrasladado:=DdlIEPSTrasladado.SelectedValue.ToEntero) Then
|
||||
TxtEjercicioActual.Text.ToEntero, ChkDefaultAsistencias.Checked, TxtDiasPermitidos.Text.ToEntero, DdlTipoCentroDeCostos.SelectedValue.ToEntero, ChkReqCentroCostos.Checked, DdlTerminalTipo.SelectedValue.ToEntero, CvePAC:=DdlCvePac.SelectedValue.ToEntero
|
||||
) Then
|
||||
|
||||
'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
|
||||
|
||||
@@ -76,18 +76,17 @@ Partial Class Sistemas_RegistroEmpresa
|
||||
|
||||
Dim objEmpresa As New ClsSisEmpresas()
|
||||
Try
|
||||
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,
|
||||
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)
|
||||
Liga = String.Format("sig.adsistemas.mx/Sistemas/WizardRegistro.aspx?P={0}", Encripta(String.Format("CveEmpresa={0}", objEmpresa.CveEmpresa)))
|
||||
EnviaCorreo()
|
||||
RegistraScript("$('#C_DivRegistro').css('display', 'none')")
|
||||
RegistraScript("$('#C_DvFinalizado').css('display', '')")
|
||||
UpRegistro.Update()
|
||||
Else
|
||||
Alert("OCurrió un error al guardar la empresa", TipoMensaje.MsgError)
|
||||
End If
|
||||
'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, CveMetodoPago:=MetodoPago.ToEntero) Then
|
||||
' 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)))
|
||||
' EnviaCorreo()
|
||||
' RegistraScript("$('#C_DivRegistro').css('display', 'none')")
|
||||
' RegistraScript("$('#C_DvFinalizado').css('display', '')")
|
||||
' UpRegistro.Update()
|
||||
'Else
|
||||
' Alert("OCurrió un error al guardar la empresa", TipoMensaje.MsgError)
|
||||
'End If
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al guardar la emrpresa desde registro basico.", ex)
|
||||
Finally
|
||||
|
||||
Reference in New Issue
Block a user