1217 lines
57 KiB
VB.net
1217 lines
57 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports System.Data
|
|
Imports Extensiones
|
|
Imports System.Runtime.InteropServices
|
|
Imports System.IO
|
|
Imports Microsoft.Reporting.WebForms
|
|
Imports Microsoft.Owin.Security.Provider
|
|
Imports log4net.Util
|
|
Imports MoreLinq
|
|
|
|
Partial Class Sistemas_DefinicionEmpresa
|
|
Inherits ClsPaginas
|
|
|
|
#Region " PROPIEDADES "
|
|
|
|
Private Property DtCuentasContables As Data.DataTable
|
|
Get
|
|
Return CType(ViewState("DtCuentasContables"), DataTable)
|
|
End Get
|
|
Set(value As Data.DataTable)
|
|
ViewState("DtCuentasContables") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property EmpresaEditar As Empresa
|
|
Get
|
|
Return CType(ViewState("EmpresaEditar"), Empresa)
|
|
End Get
|
|
Set(value As Empresa)
|
|
ViewState("EmpresaEditar") = value
|
|
End Set
|
|
End Property
|
|
Private Property DtCuentasContablesSIG As Data.DataTable
|
|
Get
|
|
Return CType(ViewState("DtCuentasContablesSIG"), DataTable)
|
|
End Get
|
|
Set(value As Data.DataTable)
|
|
ViewState("DtCuentasContablesSIG") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property DtFuncionalidades As Data.DataTable
|
|
Get
|
|
Return CType(ViewState("DtFuncionalidades"), DataTable)
|
|
End Get
|
|
Set(value As Data.DataTable)
|
|
ViewState("DtFuncionalidades") = value
|
|
End Set
|
|
End Property
|
|
Private Property BDContPAQ As String
|
|
Get
|
|
BDContPAQ = ViewState("BDContPAQ").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("BDContPAQ") = value
|
|
End Set
|
|
End Property
|
|
Private Property ServerContPAQ As String
|
|
Get
|
|
ServerContPAQ = ViewState("ServerContPAQ").ToString
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("ServerContPAQ") = value
|
|
End Set
|
|
End Property
|
|
Public Property DtCuentas As DataTable
|
|
Get
|
|
Return CType((ViewState("DtCuentas")), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtCuentas") = value
|
|
End Set
|
|
End Property
|
|
Public Property DtClasificacionIVA As DataTable
|
|
Get
|
|
If ViewState("DtClasificacionIVA") Is Nothing Then
|
|
ViewState("DtClasificacionIVA") = New DataTable
|
|
End If
|
|
Return CType((ViewState("DtClasificacionIVA")), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtClasificacionIVA") = value
|
|
End Set
|
|
End Property
|
|
Public Property CveClasificacionPorcentaje As Integer
|
|
Get
|
|
Return CType((ViewState("CveClasificacionPorcentaje")), Integer)
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("CveClasificacionPorcentaje") = value
|
|
End Set
|
|
End Property
|
|
Public Property Modalidad As String
|
|
Get
|
|
Return CType((ViewState("Modalidad")), String)
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("Modalidad") = value
|
|
End Set
|
|
End Property
|
|
Public Property Index As Integer
|
|
Get
|
|
Return CType((ViewState("Index")), Integer)
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("Index") = value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property TipoContabilidad As Integer
|
|
Get
|
|
If ViewState("TipoContabilidad") Is Nothing Then
|
|
ViewState("TipoContabilidad") = -1
|
|
End If
|
|
|
|
Return CType((ViewState("TipoContabilidad")), Integer)
|
|
End Get
|
|
Set(value As Integer)
|
|
ViewState("TipoContabilidad") = value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
|
|
Enum EnumOpActualizaArchivosCer
|
|
SinOpcion
|
|
KEY
|
|
CER
|
|
PFX
|
|
End Enum
|
|
|
|
|
|
Property OpActualizaArchivosCer As EnumOpActualizaArchivosCer
|
|
|
|
Get
|
|
If ViewState("OpActualizaArchivosCer") Is Nothing Then
|
|
ViewState("OpActualizaArchivosCer") = EnumOpActualizaArchivosCer.SinOpcion
|
|
End If
|
|
|
|
Return DirectCast(ViewState("OpActualizaArchivosCer"), EnumOpActualizaArchivosCer)
|
|
|
|
End Get
|
|
Set(value As EnumOpActualizaArchivosCer)
|
|
ViewState("OpActualizaArchivosCer") = value
|
|
End Set
|
|
|
|
End Property
|
|
|
|
Public Property SSLSoporte As Boolean
|
|
Get
|
|
If ViewState("SSLSoporte") Is Nothing Then
|
|
ViewState("SSLSoporte") = False
|
|
End If
|
|
|
|
Return Boolean.Parse(ViewState("SSLSoporte").ToString)
|
|
|
|
End Get
|
|
Set(value As Boolean)
|
|
ViewState("SSLSoporte") = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property UsaAC As Boolean
|
|
Get
|
|
If ViewState("UsaAC") Is Nothing Then
|
|
ViewState("UsaAC") = False
|
|
End If
|
|
|
|
Return Boolean.Parse(ViewState("UsaAC").ToString)
|
|
|
|
End Get
|
|
Set(value As Boolean)
|
|
ViewState("UsaAC") = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Estatus As Boolean
|
|
Get
|
|
If ViewState("Estatus") Is Nothing Then
|
|
ViewState("Estatus") = False
|
|
End If
|
|
|
|
Return Boolean.Parse(ViewState("Estatus").ToString)
|
|
|
|
End Get
|
|
Set(value As Boolean)
|
|
ViewState("Estatus") = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property FacturaProduccion As Boolean
|
|
Get
|
|
If ViewState("FacturaProduccion") Is Nothing Then
|
|
ViewState("FacturaProduccion") = False
|
|
End If
|
|
|
|
Return Boolean.Parse(ViewState("FacturaProduccion").ToString)
|
|
|
|
End Get
|
|
Set(value As Boolean)
|
|
ViewState("FacturaProduccion") = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property EstatusFacturacion As Boolean
|
|
Get
|
|
If ViewState("EstatusFacturacion") Is Nothing Then
|
|
ViewState("EstatusFacturacion") = False
|
|
End If
|
|
|
|
Return Boolean.Parse(ViewState("EstatusFacturacion").ToString)
|
|
|
|
End Get
|
|
Set(value As Boolean)
|
|
ViewState("EstatusFacturacion") = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property UsaContabilidad As Boolean
|
|
Get
|
|
If ViewState("UsaContabilidad") Is Nothing Then
|
|
ViewState("UsaContabilidad") = False
|
|
End If
|
|
|
|
Return Boolean.Parse(ViewState("UsaContabilidad").ToString)
|
|
|
|
End Get
|
|
Set(value As Boolean)
|
|
ViewState("UsaContabilidad") = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property UsaBancos As Boolean
|
|
Get
|
|
If ViewState("UsaBancos") Is Nothing Then
|
|
ViewState("UsaBancos") = False
|
|
End If
|
|
|
|
Return Boolean.Parse(ViewState("UsaBancos").ToString)
|
|
|
|
End Get
|
|
Set(value As Boolean)
|
|
ViewState("UsaBancos") = value
|
|
End Set
|
|
End Property
|
|
Public Property UsaVentas As Boolean
|
|
Get
|
|
If ViewState("UsaVentas") Is Nothing Then
|
|
ViewState("UsaVentas") = False
|
|
End If
|
|
|
|
Return Boolean.Parse(ViewState("UsaVentas").ToString)
|
|
|
|
End Get
|
|
Set(value As Boolean)
|
|
ViewState("UsaVentas") = value
|
|
End Set
|
|
End Property
|
|
Public Property UsaCxC As Boolean
|
|
Get
|
|
If ViewState("UsaCxC") Is Nothing Then
|
|
ViewState("UsaCxC") = False
|
|
End If
|
|
|
|
Return Boolean.Parse(ViewState("UsaCxC").ToString)
|
|
|
|
End Get
|
|
Set(value As Boolean)
|
|
ViewState("UsaCxC") = value
|
|
End Set
|
|
End Property
|
|
Public Property UsaCompras As Boolean
|
|
Get
|
|
If ViewState("UsaCompras") Is Nothing Then
|
|
ViewState("UsaCompras") = False
|
|
End If
|
|
|
|
Return Boolean.Parse(ViewState("UsaCompras").ToString)
|
|
|
|
End Get
|
|
Set(value As Boolean)
|
|
ViewState("UsaCompras") = value
|
|
End Set
|
|
End Property
|
|
Public Property UsaInventarios As Boolean
|
|
Get
|
|
If ViewState("UsaInventarios") Is Nothing Then
|
|
ViewState("UsaInventarios") = False
|
|
End If
|
|
|
|
Return Boolean.Parse(ViewState("UsaInventarios").ToString)
|
|
|
|
End Get
|
|
Set(value As Boolean)
|
|
ViewState("UsaInventarios") = value
|
|
End Set
|
|
End Property
|
|
Public Property UsaRH As Boolean
|
|
Get
|
|
If ViewState("UsaRH") Is Nothing Then
|
|
ViewState("UsaRH") = False
|
|
End If
|
|
|
|
Return Boolean.Parse(ViewState("UsaRH").ToString)
|
|
|
|
End Get
|
|
Set(value As Boolean)
|
|
ViewState("UsaRH") = value
|
|
End Set
|
|
End Property
|
|
Public Property UsaNomina As Boolean
|
|
Get
|
|
If ViewState("UsaNomina") Is Nothing Then
|
|
ViewState("UsaNomina") = False
|
|
End If
|
|
|
|
Return Boolean.Parse(ViewState("UsaNomina").ToString)
|
|
|
|
End Get
|
|
Set(value As Boolean)
|
|
ViewState("UsaNomina") = value
|
|
End Set
|
|
End Property
|
|
Public Property UsaOS As Boolean
|
|
Get
|
|
If ViewState("UsaOS") Is Nothing Then
|
|
ViewState("UsaOS") = False
|
|
End If
|
|
|
|
Return Boolean.Parse(ViewState("UsaOS").ToString)
|
|
|
|
End Get
|
|
Set(value As Boolean)
|
|
ViewState("UsaOS") = value
|
|
End Set
|
|
End Property
|
|
|
|
'AsientoContable
|
|
Public Property AsientoContable As Boolean
|
|
Get
|
|
If ViewState("AsientoContable") Is Nothing Then
|
|
ViewState("AsientoContable") = False
|
|
End If
|
|
|
|
Return Boolean.Parse(ViewState("AsientoContable").ToString)
|
|
|
|
End Get
|
|
Set(value As Boolean)
|
|
ViewState("AsientoContable") = value
|
|
End Set
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
|
|
If Not IsPostBack Then
|
|
|
|
If UsuarioActual.CveRol <> 1 AndAlso (Request("CveEmpresa") IsNot Nothing AndAlso Request("CveEmpresa").ToEntero > 0) Then
|
|
|
|
If Not ValidaCveEmpresaUsaurio(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
|
Alert("No tiene acceso a esta empresa.", TipoMensaje.MsgAdvertencia, "document.location.href = ""../Inicio.aspx""")
|
|
Exit Sub
|
|
End If
|
|
|
|
End If
|
|
|
|
CargaDdlPac()
|
|
CargaRegimenFiscal()
|
|
CargaZonasHorarias()
|
|
'CargaGridIndicadores()
|
|
DtCuentasContables = Nothing
|
|
DtFuncionalidades = Nothing
|
|
DtCuentas = Nothing
|
|
CveClasificacionPorcentaje = 0
|
|
|
|
'Session("FileUpload") = CveEmpresa
|
|
'CargaTareasProgramadas()
|
|
CargaDatos()
|
|
|
|
'Configuración de Modalidad Update
|
|
'TxtTimbres.Enabled = False
|
|
LbArchivoKeyDescarga.Visible = True
|
|
LbArchivoCerDescarga.Visible = True
|
|
|
|
LbArchivoPfxDescarga.Visible = True
|
|
BtnGuardar.Text = "Guardar Cambios"
|
|
'Plantilla Correo
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CargaZonasHorarias()
|
|
Dim GPS As New ClsGPS
|
|
If GPS.GetZonasHorarias() Then
|
|
DdlZonaHoraria.DataSource = GPS.DtResultados
|
|
Else
|
|
DdlZonaHoraria.DataSource = Nothing
|
|
End If
|
|
DdlZonaHoraria.DataBind()
|
|
DdlZonaHoraria.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
GPS.Dispose()
|
|
End Sub
|
|
|
|
Private Function ValidaCveEmpresaUsaurio(CveUsuario As Integer, CveEmpresaValidar As Integer) As Boolean
|
|
|
|
Dim Respuesta As Boolean = False
|
|
Using ObjEmpresas As New ClsSisEmpresas()
|
|
If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1", UsuarioActual.CveUsuario) Then
|
|
If ObjEmpresas.DtResultados.FiltraParametros($"CveEmpresa = {CveEmpresaValidar}").Rows.Count = 1 Then
|
|
Respuesta = True
|
|
End If
|
|
End If
|
|
End Using
|
|
Return Respuesta
|
|
|
|
End Function
|
|
|
|
Private Sub CargaDatos()
|
|
|
|
Dim ObjEmpresas As New ClsSisEmpresas()
|
|
If ObjEmpresas.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
|
|
If ObjEmpresas.DtResultados.Rows.Count > 0 Then
|
|
Me.EmpresaEditar = ObjEmpresas.Empresa
|
|
With ObjEmpresas.Empresa
|
|
|
|
'Campos para Modificación
|
|
|
|
TxtEmpresa.Text = .Empresa : LtlTitulo.Text = "Consulta de Empresa: " & .Empresa
|
|
TxtNombreCorto.Text = .NombreCorto
|
|
TxtDireccion.Text = .Direccion
|
|
TxtNoExt.Text = .NoExt
|
|
TxtNoInt.Text = .NoInt
|
|
TxtColonia.Text = .Colonia
|
|
TxtCiudad.Text = .Ciudad
|
|
TxtEstado.Text = .Estado
|
|
TxtCP.Text = .CP.ToString
|
|
TxtRFC.Text = .RFC
|
|
TxtTelefono.Text = .Telefono
|
|
TxtContacto.Text = .Contacto 'Representante legal
|
|
TxtMail.Text = .Mail
|
|
'TxtBIUsuario.Text = .BIUsuario
|
|
'TxtBIContraseña.Text = .BIContraseña
|
|
TxtContraseñaKey.Text = .ContraseñaKey
|
|
TxtArchivoKey.Text = .ArchivoKey
|
|
TxtArchivoCer.Text = .ArchivoCer
|
|
TxtArchivoPfx.Text = .ArchivoPfx
|
|
Estatus = .Estatus
|
|
'TxtFecha.Text = .FechaIng.ToString
|
|
'TxtCveUsuario.Text = .Usuario
|
|
FacturaProduccion = .FacturaProduccion
|
|
TxtSendMail.Text = .SendMail
|
|
TxtSendMailPassword.Text = .SendMailPassword
|
|
TxtSendMailServer.Text = .SendMailServer
|
|
TxtSendMailPort.Text = .SendMailPuerto.ToString
|
|
ChkSendMailSSL.Checked = .SendMailSSL
|
|
ChkMostrarRetIVA.Checked = .MostrarRetIVA
|
|
ChkMostrarRetISR.Checked = .MostrarRetISR
|
|
'TxtRegimen.Text = .Regimen
|
|
EstatusFacturacion = .EstatusFacturacion
|
|
'TxtTimbres.Text = .Timbres.ToString
|
|
UsaContabilidad = .UsaContabilidad
|
|
UsaBancos = .UsaBancos
|
|
UsaVentas = .UsaVentas
|
|
UsaCxC = .UsaCxC
|
|
UsaCompras = .UsaCompras
|
|
UsaInventarios = .UsaInventarios
|
|
UsaRH = .UsaRH
|
|
UsaNomina = .UsaNomina
|
|
UsaOS = .UsaOS
|
|
'TxtBDContPAQi.Text = .BDContPAQi
|
|
'TxtServerContPAQi.Text = .ServerContPAQi
|
|
'TxtUsrContPAQi.Text = .UsrContPAQi
|
|
'TxtPwdContPAQi.Text = .PwdContPAQi
|
|
TxtBuzon_Mail.Text = .Buzon_Mail
|
|
TxtBuzon_Server.Text = .Buzon_Server
|
|
TxtBuzon_Puerto.Text = .Buzon_Puerto.ToString
|
|
ChkBuzon_SSL.Checked = .Buzon_SSL
|
|
TxtBuzon_USR.Text = .Buzon_USR
|
|
TxtBuzon_PWD.Text = .Buzon_PWD
|
|
'TxtMailSoporte.Text = .Soporte_Mail
|
|
'TxtServidorSoporte.Text = .Soporte_Server
|
|
'TxtPuertoSoporte.Text = .Soporte_Puerto.ToString
|
|
SSLSoporte = .Soporte_SSL
|
|
'TxtUsuarioSoporte.Text = .Soporte_USR
|
|
'DdlProtocoloSoporte.SelectedValue = .Soporte_Tipo
|
|
'TxtContraseñaSoporte.Text = .Soporte_PWD
|
|
'DdlCvePac.SelectedValueExist(.CvePAC.ToString)
|
|
DdlRegimen.SelectedValue = .CveRegimenFiscal.ToString
|
|
DdlZonaHoraria.SelectedValueExist(.CveZonaHoraria)
|
|
TxtCURP.Text = .CURP
|
|
'TxtImporte.Text.ToDecimal
|
|
TxtCIEC.Text = .CIEC
|
|
'DdlPlataforma.SelectedValue = .CvePlataforma.ToString
|
|
UsaAC = .UsaAC
|
|
TxtPorDepreciacion.Text = .PorDepreciacion.ToString
|
|
TxtExtension.Text = .Extension
|
|
TxtLocalidad.Text = .Localidad
|
|
DdlMetodoInventario.SelectedValue = .CveMetodoInventario.ToString
|
|
AsientoContable = False
|
|
TxtPeriodoActual.Text = .PeriodoActual.ToString
|
|
TxtEjercicioActual.Text = .EjercicioActual.ToString
|
|
ChkDefaultAsistencias.Checked = .DefaultAsistencias
|
|
TxtDiasPermitidos.Text = .DiasPermitidos.ToString
|
|
DdlTipoCentroDeCostos.SelectedValue = .Tipo_CentroCosto.ToString
|
|
ChkReqCentroCostos.Checked = .RequiereCentroCostos
|
|
DdlTerminalTipo.SelectedValue = .PV_TerminalTipo.ToString
|
|
'TxtImporte.Text = .Importe.ToString
|
|
TipoContabilidad = .TipoContabilidad
|
|
|
|
TxtPlantillaVenta.Text = .PlantillaMailVenta
|
|
TxtAsunto.Text = .AsuntoPlantillaMailVenta
|
|
|
|
TxtPlantillaCotizacion.Text = .PlantillaMailVentaCotizacion
|
|
TxtAsuntoCotizacion.Text = .AsuntoPlantillaMailVentaCotizacion
|
|
|
|
'NUEVOS
|
|
TxtAreaGeografica.Text = .AreaGeografica
|
|
DdlProtocolo.Text = .Buzon_Tipo
|
|
|
|
'Fiel
|
|
'LblPfx.Text = .FielPFX
|
|
'lblPassFiel.Text = .FielPassword
|
|
|
|
'PARA PROPIEDAD - TRIGGER
|
|
BDContPAQ = .BDContPAQi
|
|
ServerContPAQ = .ServerContPAQi
|
|
|
|
'If TxtBDContPAQi.Text.Trim <> "" And TxtBDContPAQi.Text.Trim <> "" And TxtBDContPAQi.Text.Trim <> "" And TxtBDContPAQi.Text.Trim <> "" Then
|
|
' CargaCuentasContables()
|
|
' CargaDDLs()
|
|
|
|
' 'Dim Row As DataRow
|
|
' 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxAcreditar.ToString))
|
|
' 'If Not IsNothing(Row) Then
|
|
' ' DdlIVAxAcreditar.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAxAcreditar.ToString))
|
|
' ' DdlIVAxAcreditar.SelectedValue = .IdCuentaIVAxAcreditar.ToString
|
|
' 'End If
|
|
|
|
' 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAAcreditable.ToString))
|
|
' 'If Not IsNothing(Row) Then
|
|
' ' DdlIVAAcreditable.Items.Add(New ListItem(Row("CtaCodigo").ToString, .IdCuentaIVAAcreditable.ToString))
|
|
' ' ' DdlIVAAcreditable.SelectedValue = .IdCuentaIVAAcreditable.ToString
|
|
' 'End If
|
|
|
|
' 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString))
|
|
' 'If Not IsNothing(Row) Then
|
|
' ' DdlIVAxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIVAxTrasladar.ToString))
|
|
' ' DdlIVAxTrasladar.SelectedValue = .IdCuentaIVAxTrasladar.ToString
|
|
' 'End If
|
|
|
|
' 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString))
|
|
' 'If Not IsNothing(Row) Then
|
|
' ' DdlIVATrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVATrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIVATrasladado.ToString))
|
|
' ' DdlIVATrasladado.SelectedValue = .IdCuentaIVATrasladado.ToString
|
|
' 'End If
|
|
|
|
' 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString))
|
|
' 'If Not IsNothing(Row) Then
|
|
' ' DdlIVARetenciones.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetIVACirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetIVACirculacion.ToString))
|
|
' ' DdlIVARetenciones.SelectedValue = .IdCuentaRetIVACirculacion.ToString
|
|
' 'End If
|
|
|
|
' 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString))
|
|
' 'If Not IsNothing(Row) Then
|
|
' ' DdlISRCirculacion.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaRetISRCirculacion.ToString))("CtaCodigo").ToString, .IdCuentaRetISRCirculacion.ToString))
|
|
' ' DdlISRCirculacion.SelectedValue = .IdCuentaRetISRCirculacion.ToString
|
|
' 'End If
|
|
|
|
' 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString))
|
|
' 'If Not IsNothing(Row) Then
|
|
' ' DdlCuentaPerdidaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaPerdidaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaPerdidaCambiaria.ToString))
|
|
' ' DdlCuentaPerdidaCambiaria.SelectedValue = .IdCuentaPerdidaCambiaria.ToString
|
|
' 'End If
|
|
|
|
' 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString))
|
|
' 'If Not IsNothing(Row) Then
|
|
' ' DddlCuentaGananciaCambiaria.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaGananciaCambiaria.ToString))("CtaCodigo").ToString, .IdCuentaGananciaCambiaria.ToString))
|
|
' ' DddlCuentaGananciaCambiaria.SelectedValue = .IdCuentaGananciaCambiaria.ToString
|
|
' 'End If
|
|
|
|
' 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString))
|
|
' 'If Not IsNothing(Row) Then
|
|
' ' DdlDSV.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaDSV.ToString))("CtaCodigo").ToString, .IdCuentaDSV.ToString))
|
|
' ' DdlDSV.SelectedValue = .IdCuentaDSV.ToString
|
|
' 'End If
|
|
|
|
' 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString))
|
|
' 'If Not IsNothing(Row) Then
|
|
' ' DdlImpuestosLocales.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaImpuestosLocales.ToString))("CtaCodigo").ToString, .IdCuentaImpuestosLocales.ToString))
|
|
' ' DdlImpuestosLocales.SelectedValue = .IdCuentaImpuestosLocales.ToString
|
|
' 'End If
|
|
|
|
|
|
' 'NUEVOS DATOS
|
|
|
|
' 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString))
|
|
' 'If Not IsNothing(Row) Then
|
|
' ' DdlIEPSxAcreditar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxAcreditar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxAcreditar.ToString))
|
|
' ' DdlIEPSxAcreditar.SelectedValue = .IdCuentaIEPSxAcreditar.ToString
|
|
' 'End If
|
|
|
|
' 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString))
|
|
' 'If Not IsNothing(Row) Then
|
|
' ' DdlIEPSAcreditable.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSAcreditable.ToString))("CtaCodigo").ToString, .IdCuentaIEPSAcreditable.ToString))
|
|
' ' DdlIEPSAcreditable.SelectedValue = .IdCuentaIEPSAcreditable.ToString
|
|
' 'End If
|
|
|
|
' 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString))
|
|
' 'If Not IsNothing(Row) Then
|
|
' ' DdlIEPSxTrasladar.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSxTrasladar.ToString))("CtaCodigo").ToString, .IdCuentaIEPSxTrasladar.ToString))
|
|
' ' DdlIEPSxTrasladar.SelectedValue = .IdCuentaIEPSxTrasladar.ToString
|
|
' 'End If
|
|
|
|
' 'Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString))
|
|
' 'If Not IsNothing(Row) Then
|
|
' ' DdlIEPSTrasladado.Items.Add(New ListItem(DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIEPSTrasladado.ToString))("CtaCodigo").ToString, .IdCuentaIEPSTrasladado.ToString))
|
|
' ' DdlIEPSTrasladado.SelectedValue = .IdCuentaIEPSTrasladado.ToString
|
|
' 'End If
|
|
|
|
'End If
|
|
|
|
'CUENTAS PADRES
|
|
ObjEmpresas.GetEmpresasFuncionalidades(UsuarioActual.CveEmpresa)
|
|
DtFuncionalidades = ObjEmpresas.DtResultados
|
|
|
|
'CargaFuncionalidad(201, DdlProveedores)
|
|
'CargaFuncionalidad(211, DdlClientes)
|
|
'CargaFuncionalidad(205, DdlDeudores)
|
|
'CargaFuncionalidad(202, DdlAcreedores)
|
|
'CargaFuncionalidad(203, DdlDocxPagar)
|
|
'CargaFuncionalidad(212, DdlAnticipoCliente)
|
|
'CargaFuncionalidad(204, DdlAnticipoProveedores)
|
|
'CargaFuncionalidad(208, DdlInventario)
|
|
'CargaFuncionalidad(216, DdlGasto)
|
|
'CargaFuncionalidad(209, DdlBancos)
|
|
'CargaFuncionalidad(218, DdlCaja)
|
|
'CargaFuncionalidad(215, DdlFyE)
|
|
'CargaFuncionalidad(221, DdlActivoFijo)
|
|
|
|
'CargaFuncionalidad(232, DdlProveedoresSIG)
|
|
'CargaFuncionalidad(233, DdlClientesSIG)
|
|
'CargaFuncionalidad(234, DdlDeudoresSIG)
|
|
'CargaFuncionalidad(235, DdlAcreedoresSIG)
|
|
'CargaFuncionalidad(236, DdlDocxPagarSIG)
|
|
'CargaFuncionalidad(237, DdlAnticipoClienteSIG)
|
|
'CargaFuncionalidad(238, DdlAnticipoProveedoresSIG)
|
|
'CargaFuncionalidad(239, DdlInventarioSIG)
|
|
'CargaFuncionalidad(240, DdlGastoSIG)
|
|
'CargaFuncionalidad(241, DdlBancosSIG)
|
|
'CargaFuncionalidad(242, DdlCajaSIG)
|
|
'CargaFuncionalidad(243, DdlFyESIG)
|
|
'CargaFuncionalidad(244, DdlActivoFijoSIG)
|
|
|
|
Session("FileUpload") = .Banner
|
|
Session("FileUpload") = .ArchivoKey
|
|
Session("FileUpload") = .ArchivoCer
|
|
Session("FileUpload") = .ArchivoPfx
|
|
End With
|
|
'InicializaClasificacionIVA(ObjEmpresas)
|
|
Else
|
|
Alert("La Empresa Solicitada no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
|
|
BtnGuardar.Enabled = False
|
|
|
|
End If
|
|
End If
|
|
|
|
ObjEmpresas.Dispose()
|
|
'CargarGrupoEmpresas()
|
|
UpDatos.Update()
|
|
End Sub
|
|
'Protected Sub CargarGrupoEmpresas()
|
|
' Dim ObjEmpresas As New ClsSisEmpresas()
|
|
|
|
' 'Gridview
|
|
' ObjEmpresas.GetEmpresasGrupos(UsuarioActual.CveEmpresa)
|
|
' GVGrupoEmpresas.DataSource = ObjEmpresas.DtResultados
|
|
' GVGrupoEmpresas.DataBind()
|
|
|
|
' 'DropdownList Empresas
|
|
' ObjEmpresas.GetEmpresasGruposNot(UsuarioActual.CveEmpresa)
|
|
' DdlEmpresas.Items.Clear()
|
|
' DdlEmpresas.DataSource = ObjEmpresas.DtResultados
|
|
' DdlEmpresas.DataBind()
|
|
|
|
' ObjEmpresas.Dispose()
|
|
|
|
' updategrupoempresa.Update()
|
|
'End Sub
|
|
'Protected Sub LinkButton1_Click(sender As Object, e As EventArgs) Handles AddGrupoEmpresa.Click
|
|
|
|
' Dim ObjEmpresas As New ClsSisEmpresas()
|
|
' ObjEmpresas.AddEmpresasGrupos(UsuarioActual.CveEmpresa, DdlEmpresas.SelectedValue.ToEntero)
|
|
' ObjEmpresas.Dispose()
|
|
' CargarGrupoEmpresas()
|
|
'End Sub
|
|
'Protected Sub GrupoEmpresas_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GVGrupoEmpresas.RowDeleting
|
|
' Dim ObjEmpresas As New ClsSisEmpresas()
|
|
' ObjEmpresas.RemoveEmpresasGrupos(UsuarioActual.CveEmpresa, CType(GVGrupoEmpresas.Rows(e.RowIndex).FindControl("GVColCVeEmpresa"), HiddenField).Value.ToEntero())
|
|
' ObjEmpresas.Dispose()
|
|
' CargarGrupoEmpresas()
|
|
'End Sub
|
|
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
|
|
Dim ObjEmpresas As New ClsSisEmpresas
|
|
Dim ObjGral As New ClsGenerales()
|
|
Dim ObjContPAQ As ClsContPAQi = Nothing
|
|
Dim Indicador As New ClsIndicadores(ObjEmpresas.IniciaTransacSQL())
|
|
|
|
Dim TextoError As String = ""
|
|
Dim TextoOK As String = ""
|
|
|
|
If False 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,
|
|
' 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,
|
|
' TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, ChkUsaContabilidad.Checked, ChkUsaBancos.Checked, ChkUsaVentas.Checked, ChkUsaCxC.Checked,
|
|
' 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,
|
|
' 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
|
|
|
|
' '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
|
|
' Dim Extension As String = Path.GetExtension(Request.PhysicalApplicationPath + "Banners\Temp\" & Session("FileUpload").ToString)
|
|
' File.Move(Request.PhysicalApplicationPath + "Banners\Temp\" & Session("FileUpload").ToString, Request.PhysicalApplicationPath + "Banners\" & ObjEmpresas.CveEmpresa.ToString & Extension)
|
|
|
|
' End If
|
|
' ViewState("CveEmpresa") = ObjEmpresas.CveEmpresa
|
|
' 'InicializaClasificacionIVA(ObjEmpresas)
|
|
' TextoOK = "La nueva Empresa se guardó correctamente."
|
|
'Else
|
|
' TextoError = "Ocurrió un error al agregar la empresa"
|
|
'End If
|
|
|
|
|
|
|
|
''Agregar Indicadores
|
|
'For Each Row As GridViewRow In GvIndicadores.Rows
|
|
' If Row.DataKey("CveIndicador") <> "" And Row.DataKey("CveEmpresa") = "" Then
|
|
' If Row.FCCheckBox("chkIndicador").Checked Then
|
|
' If Not Indicador.AddIndicadorEmpresa(Row.DataKey("CveIndicador").ToEntero, UsuarioActual.CveEmpresa) Then
|
|
' Exit For
|
|
' End If
|
|
' End If
|
|
' End If
|
|
'Next
|
|
|
|
|
|
|
|
|
|
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, "CFDi", "-1",
|
|
' "-1", TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", Estatus,
|
|
' FacturaProduccion, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "-1", EstatusFacturacion, TxtSendMail.Text.Trim,
|
|
' TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, UsaContabilidad, UsaBancos,
|
|
' UsaVentas, UsaCxC, UsaCompras, UsaInventarios, UsaRH, UsaNomina, UsaOS, "-1",
|
|
' "-1", "-1", "-1", TxtBuzon_Mail.Text.Trim, TxtBuzon_Server.Text.Trim, TxtBuzon_Puerto.Text.Trim.ToEntero,
|
|
' ChkBuzon_SSL.Checked, TxtBuzon_USR.Text.Trim, TxtBuzon_PWD.Text.Trim, UsuarioActual.CveEmpresa, DdlProtocolo.SelectedValue,
|
|
' "-1", "-1", -1, SSLSoporte, "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, "", TxtAreaGeografica.Text.Trim,
|
|
' -1, -1, TxtNombreCorto.Text, TxtCURP.Text.Trim, DdlRegimen.SelectedValue.ToEntero, -1,
|
|
' -1, TxtCIEC.Text, 1, UsaAC,
|
|
' TxtPorDepreciacion.Text.ToDecimal, TxtExtension.Text, TxtLocalidad.Text, DdlMetodoInventario.SelectedValue.ToEntero, AsientoContable, TxtPeriodoActual.Text.ToEntero,
|
|
' TxtEjercicioActual.Text.ToEntero, ChkDefaultAsistencias.Checked, TxtDiasPermitidos.Text.ToEntero, DdlTipoCentroDeCostos.SelectedValue.ToEntero, ChkReqCentroCostos.Checked,
|
|
' DdlTerminalTipo.SelectedValue.ToEntero, IdCuentaDSV:=-1, IdCuentaImpuestosLocales:=-1, IdCuentaIEPSxAcreditar:=-1, IdCuentaIEPSAcreditable:=-1,
|
|
' IdCuentaIEPSxTrasladar:=-1, IdCuentaIEPSTrasladado:=-1) Then
|
|
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, TxtTelefono.Text.Trim, TxtContacto.Text.Trim, TxtMail.Text.Trim, "CFDi", "-1",
|
|
"-1", TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", Estatus,
|
|
FacturaProduccion, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "", EstatusFacturacion, TxtSendMail.Text.Trim,
|
|
TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, UsaContabilidad, UsaBancos,
|
|
UsaVentas, UsaCxC, UsaCompras, UsaInventarios, UsaRH, UsaNomina, UsaOS, "-1",
|
|
"-1", "-1", "-1", TxtBuzon_Mail.Text.Trim, TxtBuzon_Server.Text.Trim, TxtBuzon_Puerto.Text.Trim.ToEntero,
|
|
ChkBuzon_SSL.Checked, TxtBuzon_USR.Text.Trim, TxtBuzon_PWD.Text.Trim, UsuarioActual.CveEmpresa, DdlProtocolo.SelectedValue,
|
|
"-1", "-1", -1, SSLSoporte,
|
|
"-1", "-1", "-1", "", TxtAreaGeografica.Text.Trim,
|
|
TxtNombreCorto.Text, TxtCURP.Text.Trim, DdlRegimen.SelectedValue.ToEntero, -1,
|
|
-1, TxtCIEC.Text, 1, UsaAC,
|
|
TxtPorDepreciacion.Text.ToDecimal, TxtExtension.Text, TxtLocalidad.Text, DdlMetodoInventario.SelectedValue.ToEntero, TxtPeriodoActual.Text.ToEntero,
|
|
TxtEjercicioActual.Text.ToEntero, ChkDefaultAsistencias.Checked, TxtDiasPermitidos.Text.ToEntero, DdlTipoCentroDeCostos.SelectedValue.ToEntero, ChkReqCentroCostos.Checked,
|
|
DdlTerminalTipo.SelectedValue.ToEntero, CveZonaHoraria:=DdlZonaHoraria.SelectedValue.ToEntero) Then
|
|
|
|
'Movemos el Archivo Fisicamente
|
|
If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(Request.PhysicalApplicationPath + "Banners\Temp\" & Session("FileUpload").ToString) Then
|
|
Dim Extension As String = Path.GetExtension(Request.PhysicalApplicationPath + "Banners\Temp\" & Session("FileUpload").ToString)
|
|
If File.Exists(Request.PhysicalApplicationPath + "Banners\" & UsuarioActual.CveEmpresa & Extension) Then
|
|
File.Delete(Request.PhysicalApplicationPath + "Banners\" & UsuarioActual.CveEmpresa & Extension)
|
|
File.Move(Request.PhysicalApplicationPath + "Banners\Temp\" & Session("FileUpload").ToString, Request.PhysicalApplicationPath + "Banners\" & UsuarioActual.CveEmpresa & Extension)
|
|
Else
|
|
File.Move(Request.PhysicalApplicationPath + "Banners\Temp\" & Session("FileUpload").ToString, Request.PhysicalApplicationPath + "Banners\" & UsuarioActual.CveEmpresa & Extension)
|
|
End If
|
|
End If
|
|
|
|
TextoOK = "Los cambios de guardaron correctamente."
|
|
Else
|
|
TextoError = "Ocurrió un error al guardar los cambios de la empresa"
|
|
End If
|
|
|
|
'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, "CFDi", "-1",
|
|
' "-1", TxtContraseñaKey.Text.Trim, TxtArchivoKey.Text.Trim, TxtArchivoCer.Text.Trim, TxtArchivoPfx.Text.Trim, "", Estatus,
|
|
' FacturaProduccion, ChkMostrarRetIVA.Checked, ChkMostrarRetISR.Checked, "", EstatusFacturacion, TxtSendMail.Text.Trim,
|
|
' TxtSendMailPassword.Text.Trim, TxtSendMailServer.Text.Trim, TxtSendMailPort.Text.Trim.ToEntero, ChkSendMailSSL.Checked, UsaContabilidad, UsaBancos,
|
|
' UsaVentas, UsaCxC, UsaCompras, UsaInventarios, UsaRH, UsaNomina, UsaOS, "-1",
|
|
' "-1", "-1", "-1", TxtBuzon_Mail.Text.Trim, TxtBuzon_Server.Text.Trim, TxtBuzon_Puerto.Text.Trim.ToEntero,
|
|
' ChkBuzon_SSL.Checked, TxtBuzon_USR.Text.Trim, TxtBuzon_PWD.Text.Trim, UsuarioActual.CveEmpresa, DdlProtocolo.SelectedValue,
|
|
' "-1", "-1", -1, SSLSoporte,
|
|
' "-1", "-1", "-1", "", TxtAreaGeografica.Text.Trim,
|
|
' TxtNombreCorto.Text, TxtCURP.Text.Trim, DdlRegimen.SelectedValue.ToEntero, -1,
|
|
' -1, TxtCIEC.Text, 1, UsaAC,
|
|
' TxtPorDepreciacion.Text.ToDecimal, TxtExtension.Text, TxtLocalidad.Text, DdlMetodoInventario.SelectedValue.ToEntero, TxtPeriodoActual.Text.ToEntero,
|
|
' TxtEjercicioActual.Text.ToEntero, ChkDefaultAsistencias.Checked, TxtDiasPermitidos.Text.ToEntero, DdlTipoCentroDeCostos.SelectedValue.ToEntero, ChkReqCentroCostos.Checked, DdlTerminalTipo.SelectedValue.ToEntero) Then
|
|
|
|
'End If
|
|
|
|
'Agregar Indicadores
|
|
'For Each Row As GridViewRow In GvIndicadores.Rows
|
|
' If Row.DataKey("CveIndicador") <> "" AndAlso Row.DataKey("CveEmpresa") <> "" And Row.FCCheckBox("chkIndicador").Checked = False Then
|
|
' If Not Indicador.RemoveIndicadoresEmpresas(Row.DataKey("CveIndicador").ToEntero, UsuarioActual.CveEmpresa) Then
|
|
' Exit For
|
|
' End If
|
|
' End If
|
|
|
|
' If Row.DataKey("CveIndicador") <> "" And Row.DataKey("CveEmpresa") = "" Then
|
|
' If Row.FCCheckBox("chkIndicador").Checked Then
|
|
' If Not Indicador.AddIndicadorEmpresa(Row.DataKey("CveIndicador").ToEntero, UsuarioActual.CveEmpresa) Then
|
|
' Exit For
|
|
' End If
|
|
' End If
|
|
' End If
|
|
'Next
|
|
|
|
End If
|
|
|
|
|
|
'RECARGA EMPRESA
|
|
If TextoError = "" Then
|
|
If ObjEmpresas.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
|
|
GlobalDTEmpresas(UsuarioActual.CveEmpresa) = Nothing
|
|
|
|
'verifico si existe la carpeta de la empresa, sino la crea
|
|
For Each dr As Data.DataRow In ObjEmpresas.DtResultados.Rows
|
|
If Not IO.Directory.Exists(String.Format("{0}\{1}", ModExtensiones.DirectorioBaseEmpresas, dr("CveEmpresa"))) Then
|
|
IO.Directory.CreateDirectory(String.Format("{0}Empresas\{1}", ModExtensiones.DirectorioBaseEmpresas, dr("CveEmpresa")))
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
|
|
If TextoError = "" Then
|
|
ObjEmpresas.Commit()
|
|
If ObjContPAQ IsNot Nothing Then ObjContPAQ.Commit()
|
|
Alert(TextoOK, TipoMensaje.MsgInformacion, "document.location.href=""/Sistemas/DefinicionEmpresa.aspx"";")
|
|
Session("FileUpload") = ""
|
|
CargaDatos()
|
|
UpDatos.Update()
|
|
Else
|
|
ObjEmpresas.RollBack()
|
|
If ObjContPAQ IsNot Nothing Then ObjContPAQ.RollBack()
|
|
Alert(TextoError, TipoMensaje.MsgError)
|
|
End If
|
|
|
|
ObjEmpresas.Dispose()
|
|
ObjGral.Dispose()
|
|
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 As String = ""
|
|
|
|
If Not ObjEmpresas.AddUpdateEmpresaFuncionalidades(UsuarioActual.CveEmpresa, CveFuncionalidad, Ddl.SelectedValue) Then
|
|
Retorno = "Ocurrió un error al vincular la cuenta contable"
|
|
End If
|
|
|
|
Return Retorno
|
|
End Function
|
|
|
|
|
|
'Nuevo Código
|
|
Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1)
|
|
DtCuentasContables = Nothing
|
|
|
|
If UsuarioActual.Empresa.UsaContabilidad Then
|
|
Dim ObjEmpresa As New ClsSisEmpresas
|
|
Dim Empresa As Empresa = Nothing
|
|
If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
|
|
|
|
Empresa = ObjEmpresa.Empresa
|
|
|
|
If Empresa.TipoContabilidad = 2 Then
|
|
Dim ObjContabilidad As New ClsContPAQi(Empresa)
|
|
If ObjContabilidad.GetCuentas(-1, "-1", -1, IdPadre:=IdCuentaPadre) Then
|
|
DtCuentasContables = ObjContabilidad.DtResultados
|
|
End If
|
|
ObjContabilidad.Dispose()
|
|
End If
|
|
|
|
|
|
|
|
End If
|
|
ObjEmpresa.Dispose()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CargaCuentasContablesSIG(Optional IdCuentaPadre As Integer = -1)
|
|
DtCuentasContablesSIG = Nothing
|
|
|
|
Dim ObjEmpresa As New ClsSisEmpresas
|
|
Dim Empresa As Empresa = Nothing
|
|
If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
|
|
Empresa = ObjEmpresa.Empresa
|
|
Dim ObjContabilidad As New ClsContabilidad
|
|
If ObjContabilidad.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa, CvePadre:=IdCuentaPadre) Then
|
|
DtCuentasContablesSIG = ObjContabilidad.DtResultados
|
|
End If
|
|
ObjContabilidad.Dispose()
|
|
End If
|
|
ObjEmpresa.Dispose()
|
|
End Sub
|
|
|
|
|
|
Public Sub CargaFuncionalidad(CveFuncionalidad As Integer, ByRef Ddl As DropDownList)
|
|
Dim Dr As DataRow = DtFuncionalidades.FiltroPrimero($"CveFuncionalidad = {CveFuncionalidad}")
|
|
If Dr IsNot Nothing Then
|
|
Dim DrC As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", Dr("Valor").ToString))
|
|
If Not IsNothing(DrC) Then
|
|
Ddl.Items.Add(New ListItem(DrC("CtaCodigo").ToString, Dr("Valor").ToString))
|
|
End If
|
|
Ddl.SelectedValue = Dr("Valor").ToString
|
|
End If
|
|
|
|
|
|
End Sub
|
|
Private Sub CargaDdlPac()
|
|
Dim Objeto As New ClsSisEmpresas
|
|
If Objeto.GetPacs() Then
|
|
'DdlCvePac.DataSource = Objeto.DtResultados
|
|
'DdlCvePac.DataBind()
|
|
'DdlCvePac.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
End If
|
|
Objeto.Dispose()
|
|
End Sub
|
|
Private Sub CargaRegimenFiscal()
|
|
Dim ObjSis As New ClsSisEmpresas
|
|
If ObjSis.GetRegimenFiscal(-1) Then
|
|
DdlRegimen.DataSource = ObjSis.DtResultados
|
|
DdlRegimen.DataBind()
|
|
DdlRegimen.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
|
End If
|
|
ObjSis.Dispose()
|
|
End Sub
|
|
|
|
|
|
|
|
'#Region "TAB - INDICADORES "
|
|
' Public Sub CargaGridIndicadores()
|
|
' Dim Objeto As New ClsIndicadores
|
|
' If Objeto.GetEmpresasIndicadores(UsuarioActual.CveEmpresa) Then
|
|
' GvIndicadores.DataSource = Objeto.DtResultados
|
|
' End If
|
|
' GvIndicadores.DataBind()
|
|
' Objeto.Dispose()
|
|
' End Sub
|
|
|
|
' Private Sub GvIndicadores_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvIndicadores.RowDataBound
|
|
' If e.Row.RowType = DataControlRowType.DataRow Then
|
|
' If e.Row.DBCampo("CveEmpresa") <> "" Then
|
|
' e.Row.FCCheckBox("chkIndicador").Checked = True
|
|
' End If
|
|
' End If
|
|
' End Sub
|
|
|
|
|
|
|
|
'#End Region
|
|
|
|
#Region "P L A N T I L L A C O R R E O"
|
|
|
|
Private Sub BtnGuardarPlantilla_Click(sender As Object, e As EventArgs) Handles BtnGuardarPlantilla.Click
|
|
If UsuarioActual.Empresa.PlantillaMailVenta.Length > 0 Then
|
|
|
|
End If
|
|
Dim ObjEmpresa As New ClsSisEmpresas()
|
|
If ObjEmpresa.UpdatePlantillaMail("AsuntoPlantillaMailVenta", TxtAsunto.Text.Trim, "PlantillaMailVenta", TxtPlantillaVenta.Text.Trim, UsuarioActual.CveEmpresa) Then
|
|
|
|
If ObjEmpresa.UpdatePlantillaMail("AsuntoPlantillaMailVentaCotizacion", TxtAsuntoCotizacion.Text.Trim, "PlantillaMailVentaCotizacion", TxtPlantillaCotizacion.Text.Trim, UsuarioActual.CveEmpresa) Then
|
|
|
|
End If
|
|
Alert("La plantilla de mail de ventas se guardó correctamente.", TipoMensaje.MsgInformacion)
|
|
|
|
UsuarioActual.Empresa.PlantillaMailVenta = TxtPlantillaVenta.Text.Trim
|
|
UsuarioActual.Empresa.AsuntoPlantillaMailVenta = TxtAsunto.Text.Trim
|
|
|
|
UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion = TxtPlantillaCotizacion.Text.Trim
|
|
UsuarioActual.Empresa.PlantillaMailVentaCotizacion = TxtAsuntoCotizacion.Text.Trim
|
|
|
|
'TxtPlantillaVenta.Text = ""
|
|
'TxtAsunto.Text = ""
|
|
End If
|
|
ObjEmpresa.Dispose()
|
|
Alert(TxtPlantillaVenta.Text.Trim, TipoMensaje.MsgInformacion)
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
Protected Sub LnkRegistrarPAC3_Click(sender As Object, e As EventArgs)
|
|
If UsuarioActual.CveEmpresa > 0 Then
|
|
RegistrarPAC3()
|
|
Else
|
|
Alert("Debe registrar la empresa para poder registrarla en el PAC", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
|
|
End Sub
|
|
Private Sub RegistrarPAC3()
|
|
Try
|
|
|
|
Dim Credenciales As String = "vSGxMFWnNRy/nDoowxqrqw==|Sia123654"
|
|
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 As Byte() = System.IO.File.ReadAllBytes(ArchivoLLave)
|
|
Dim certByte As Byte() = System.IO.File.ReadAllBytes(ArchivoCertificado)
|
|
|
|
Dim RFCEmisor As String = TxtRFC.Text.Trim()
|
|
Dim contrasena As String = TxtContraseñaKey.Text.Trim()
|
|
|
|
Dim conector As New Profact.TimbraCFDI33.Conector(EmpresaEditar.FacturaProduccion)
|
|
|
|
If Not EmpresaEditar.FacturaProduccion OrElse EmpresaEditar.CveEmpresa = 1 Then
|
|
conector.EstableceCredenciales("mvpNUXmQfK8=")
|
|
Else
|
|
conector.EstableceCredenciales(Credenciales)
|
|
End If
|
|
|
|
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)
|
|
Else
|
|
Alert("Ocurrió un error al registrar el emisor.<br>" & result.Descripcion & ".<br> Numero Error: " & result.NumeroError, TipoMensaje.MsgError)
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
OnError("Ocurrió un error al registrar el emisor", ex)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Protected Sub LnkArchivoKey_Click(sender As Object, e As EventArgs) Handles LnkArchivoKey.Click
|
|
TxtCargaImg.getfiles().Archivos = Nothing
|
|
TxtCargaImg.Text = "[]"
|
|
OpActualizaArchivosCer = EnumOpActualizaArchivosCer.KEY
|
|
LblModalCertificadosTitulo.Text = "Archivo KEY"
|
|
UpModalCertificados.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
|
|
End Sub
|
|
|
|
Protected Sub LnkArchivoCer_Click(sender As Object, e As EventArgs) Handles LnkArchivoCer.Click
|
|
TxtCargaImg.getfiles().Archivos = Nothing
|
|
TxtCargaImg.Text = "[]"
|
|
OpActualizaArchivosCer = EnumOpActualizaArchivosCer.CER
|
|
LblModalCertificadosTitulo.Text = "Archivo CER"
|
|
UpModalCertificados.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
|
|
End Sub
|
|
|
|
Protected Sub LnkArchivoPfx_Click(sender As Object, e As EventArgs) Handles LnkArchivoPfx.Click
|
|
TxtCargaImg.getfiles().Archivos = Nothing
|
|
TxtCargaImg.Text = "[]"
|
|
OpActualizaArchivosCer = EnumOpActualizaArchivosCer.PFX
|
|
LblModalCertificadosTitulo.Text = "Archivo PFX"
|
|
UpModalCertificados.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
|
|
End Sub
|
|
|
|
Protected Sub BtnGuardarArchivo_Click(sender As Object, e As EventArgs)
|
|
Dim FileExtension As String = "-1"
|
|
Dim filesgral As List(Of Archivo) = TxtCargaImg.getfiles().Archivos
|
|
Dim filemove As String = ""
|
|
Dim TieneError As Boolean = False
|
|
|
|
For Each fileItem As Archivo In filesgral
|
|
|
|
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
|
filemove = fileItem.filename
|
|
|
|
Dim Patron As String = "(^\d{1,}-)|(\.\w{1,}$)"
|
|
Dim NombreArchivo As String = Regex.Replace(filemove, Patron, "")
|
|
|
|
Dim yaExistente As String = String.Format("{0}Empresas\{1}\Certificados\{2}.{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, NombreArchivo, FileExtension)
|
|
|
|
Dim ArchivoCertificado As String = $"{NombreArchivo}.{FileExtension}"
|
|
|
|
If File.Exists(yaExistente) Then
|
|
File.Delete(yaExistente)
|
|
End If
|
|
Try
|
|
If filemove <> "" Then
|
|
Dim Ruta As String = String.Format("Empresas\{0}\Certificados\", UsuarioActual.CveEmpresa)
|
|
filemove.FilesMove(NombreArchivo, Ruta)
|
|
End If
|
|
Catch ex As Exception
|
|
TieneError = True
|
|
End Try
|
|
|
|
|
|
If UsuarioActual.CveEmpresa > 0 AndAlso Not TieneError Then
|
|
|
|
Dim ObjEmpresas As New ClsSisEmpresas
|
|
|
|
|
|
Dim ArchivoKey As String = "-1"
|
|
Dim ArchivoCer As String = "-1"
|
|
Dim ArchivoPfx As String = "-1"
|
|
|
|
|
|
If OpActualizaArchivosCer = EnumOpActualizaArchivosCer.KEY Then
|
|
ArchivoKey = ArchivoCertificado
|
|
TxtArchivoKey.Text = ArchivoKey
|
|
ElseIf OpActualizaArchivosCer = EnumOpActualizaArchivosCer.CER Then
|
|
ArchivoCer = ArchivoCertificado
|
|
TxtArchivoCer.Text = ArchivoCer
|
|
ElseIf OpActualizaArchivosCer = EnumOpActualizaArchivosCer.PFX Then
|
|
ArchivoPfx = ArchivoCertificado
|
|
TxtArchivoPfx.Text = ArchivoPfx
|
|
End If
|
|
|
|
If Not ObjEmpresas.UpdateEmpresasCertificados(ArchivoKey, ArchivoCer, ArchivoPfx, UsuarioActual.CveEmpresa) Then
|
|
TieneError = True
|
|
End If
|
|
|
|
|
|
ObjEmpresas.Dispose()
|
|
|
|
End If
|
|
|
|
|
|
|
|
Next
|
|
|
|
|
|
|
|
|
|
|
|
If Not TieneError Then
|
|
Alert("Certificado cargado con exito")
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalArchvivo"))
|
|
End If
|
|
TxtCargaImg.getfiles().Archivos = Nothing
|
|
UpAddArchivo.Update()
|
|
|
|
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Protected Sub LbArchivoKeyDescarga_Download(sender As Object, e As EventArgs) Handles LbArchivoKeyDescarga.Click
|
|
|
|
Dim NombreArchivo As String = TxtArchivoKey.Text
|
|
DescargarArchivo(NombreArchivo)
|
|
|
|
End Sub
|
|
|
|
Protected Sub LbArchivoCerDescarga_Download(sender As Object, e As EventArgs) Handles LbArchivoCerDescarga.Click
|
|
|
|
Dim NombreArchivo As String = TxtArchivoCer.Text
|
|
DescargarArchivo(NombreArchivo)
|
|
|
|
End Sub
|
|
|
|
Protected Sub LbArchivoPfxDescarga_Download(sender As Object, e As EventArgs) Handles LbArchivoPfxDescarga.Click
|
|
|
|
Dim NombreArchivo As String = TxtArchivoPfx.Text
|
|
DescargarArchivo(NombreArchivo)
|
|
|
|
End Sub
|
|
|
|
Private Sub DescargarArchivo(NombreArchivo As String)
|
|
|
|
Dim FilePath As String = String.Format("{0}Empresas\{1}\Certificados\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, NombreArchivo)
|
|
Dim byteArray As Byte() = File.ReadAllBytes(FilePath)
|
|
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = "application/octet-stream"
|
|
HttpContext.Current.Response.AddHeader("Content-Disposition", String.Format("attachment;filename={0}", NombreArchivo))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", byteArray.Length.ToString())
|
|
HttpContext.Current.Response.OutputStream.Write(byteArray, 0, byteArray.Length)
|
|
HttpContext.Current.Response.End()
|
|
|
|
End Sub
|
|
|
|
End Class
|