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

23
Sistemas/RegistroEmpresa.aspx.vb
View File

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