1890 lines
111 KiB
VB.net
1890 lines
111 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
|
|
|
|
Partial Class Sistemas_Empresa
|
|
Inherits ClsPaginas
|
|
|
|
#Region " PROPIEDADES "
|
|
Private ReadOnly Property CveEmpresa As Integer
|
|
Get
|
|
Return ViewState("CveEmpresa").ToString.ToEntero
|
|
End Get
|
|
End Property
|
|
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
|
|
|
|
#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, Request("CveEmpresa").ToEntero) Then
|
|
'Response.Redirect("../Inicio.aspx")
|
|
Alert("No tiene acceso a esta empresa.", TipoMensaje.MsgAdvertencia, "document.location.href = ""../Inicio.aspx""")
|
|
Exit Sub
|
|
End If
|
|
|
|
End If
|
|
|
|
CargaDdlPac()
|
|
CargaRegimenFiscal()
|
|
CargaGridIndicadores()
|
|
DtCuentasContables = Nothing
|
|
DtFuncionalidades = Nothing
|
|
DtCuentas = Nothing
|
|
CveClasificacionPorcentaje = 0
|
|
|
|
If (Request("CveEmpresa") IsNot Nothing AndAlso IsNumeric(Request("CveEmpresa")) AndAlso Request("CveEmpresa").ToEntero > 0 AndAlso UsuarioActual.CveRol = 1) OrElse UsuarioActual.CveRol <> 1 Then
|
|
ViewState("CveEmpresa") = If(UsuarioActual.CveRol <> 1, UsuarioActual.Empresa.CveEmpresa.ToString, Request("CveEmpresa")) ' Request("CveEmpresa")
|
|
' Session("FileUpload") = CveEmpresa
|
|
CargaTareasProgramadas()
|
|
CargaDatos()
|
|
|
|
'Configuración de Modalidad Update
|
|
TxtTimbres.Enabled = False
|
|
LbArchivoKeyDescarga.Visible = True
|
|
LbArchivoCerDescarga.Visible = True
|
|
LbArchivoPfxDescarga.Visible = True
|
|
|
|
'If LnkArchivoKey.InnerText = "" Then
|
|
' LnkArchivoKey.InnerText = "Reemplazar Archivo Key"
|
|
'End If
|
|
'If LnkArchivoCer.InnerText = "" Then
|
|
' LnkArchivoCer.InnerText = "Reemplazar Archivo Cer"
|
|
'End If
|
|
|
|
'If LnkArchivoPfx.InnerText = "" Then
|
|
' LnkArchivoPfx.InnerText = "Reemplazar Archivo Pfx"
|
|
'End If
|
|
BtnGuardar.Text = "Guardar Cambios"
|
|
|
|
'Plantilla Correo
|
|
|
|
|
|
Else
|
|
'Configuración de Modalidad Insert
|
|
ViewState("CveEmpresa") = -1
|
|
'TAB.ActiveTabIndex = 1
|
|
BtnEliminar.Visible = False
|
|
|
|
End If
|
|
ConfiguracionEmpresa()
|
|
|
|
End If
|
|
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(CveEmpresa, "-1", "-1", "-1", "-1") Then
|
|
If ObjEmpresas.DtResultados.Rows.Count > 0 Then
|
|
Me.EmpresaEditar = ObjEmpresas.Empresa
|
|
With ObjEmpresas.Empresa
|
|
|
|
'Campos para Modificación
|
|
TxtCveEmpresa.Text = .CveEmpresa.ToString
|
|
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
|
|
DdlTipoFacturacion.SelectedValue = .TipoFacturacion
|
|
TxtBIUsuario.Text = .BIUsuario
|
|
TxtBIContraseña.Text = .BIContraseña
|
|
TxtContraseñaKey.Text = .ContraseñaKey
|
|
TxtArchivoKey.Text = .ArchivoKey
|
|
TxtArchivoCer.Text = .ArchivoCer
|
|
TxtArchivoPfx.Text = .ArchivoPfx
|
|
ChkEstatus.Checked = .Estatus
|
|
TxtFecha.Text = .FechaIng.ToString
|
|
TxtCveUsuario.Text = .Usuario
|
|
ChkFacturaProduccion.Checked = .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
|
|
ChkEstatusFacturacion.Checked = .EstatusFacturacion
|
|
TxtTimbres.Text = .Timbres.ToString
|
|
ChkUsaContabilidad.Checked = .UsaContabilidad
|
|
ChkUsaBancos.Checked = .UsaBancos
|
|
ChkUsaVentas.Checked = .UsaVentas
|
|
ChkUsaCxC.Checked = .UsaCxC
|
|
ChkUsaCompras.Checked = .UsaCompras
|
|
ChkUsaInventarios.Checked = .UsaInventarios
|
|
ChkUsaRH.Checked = .UsaRH
|
|
ChkUsaNomina.Checked = .UsaNomina
|
|
ChkUsaOS.Checked = .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
|
|
ChkSSLSoporte.Checked = .Soporte_SSL
|
|
TxtUsuarioSoporte.Text = .Soporte_USR
|
|
DdlProtocoloSoporte.SelectedValue = .Soporte_Tipo
|
|
TxtContraseñaSoporte.Text = .Soporte_PWD
|
|
DdlCvePac.SelectedValueExist(.CvePAC.ToString)
|
|
DdlRegimen.SelectedValue = .CveRegimenFiscal.ToString
|
|
TxtCURP.Text = .CURP
|
|
TxtImporte.Text.ToDecimal
|
|
TxtCIEC.Text = .CIEC
|
|
DdlPlataforma.SelectedValue = .CvePlataforma.ToString
|
|
ChkUsaAC.Checked = .UsaAC
|
|
TxtPorDepreciacion.Text = .PorDepreciacion.ToString
|
|
TxtExtension.Text = .Extension
|
|
TxtLocalidad.Text = .Localidad
|
|
DdlMetodoInventario.SelectedValue = .CveMetodoInventario.ToString
|
|
ChkAsientoContable.Checked = .AsientoContableComprasContado
|
|
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 = .AsuntoPlantillaMailVentaCotizacion
|
|
TxtAsuntoCotizacion.Text = .PlantillaMailVentaCotizacion
|
|
|
|
'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(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(CveEmpresa)
|
|
GVGrupoEmpresas.DataSource = ObjEmpresas.DtResultados
|
|
GVGrupoEmpresas.DataBind()
|
|
|
|
'DropdownList Empresas
|
|
ObjEmpresas.GetEmpresasGruposNot(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(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(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 = ""
|
|
Dim TextoOK = ""
|
|
|
|
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,
|
|
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, 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, "-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, TxtCveEmpresa.Text.Trim.ToEntero, 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,
|
|
DdlISRCirculacion.SelectedValue.ToEntero, DdlCuentaOtrosIngresos.SelectedValue.ToEntero, DdlCuentaDescuentoVenta.SelectedValue.ToEntero, "", TxtAreaGeografica.Text.Trim, DdlCuentaPerdidaCambiaria.SelectedValue.ToEntero,
|
|
DddlCuentaGananciaCambiaria.SelectedValue.ToEntero, TxtNombreCorto.Text, TxtCURP.Text.Trim, DdlRegimen.SelectedValue.ToEntero, DdlCvePac.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, 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").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\" & CveEmpresa & Extension) Then
|
|
File.Delete(Request.PhysicalApplicationPath + "Banners\" & CveEmpresa & Extension)
|
|
File.Move(Request.PhysicalApplicationPath + "Banners\Temp\" & Session("FileUpload").ToString, Request.PhysicalApplicationPath + "Banners\" & CveEmpresa & Extension)
|
|
Else
|
|
File.Move(Request.PhysicalApplicationPath + "Banners\Temp\" & Session("FileUpload").ToString, Request.PhysicalApplicationPath + "Banners\" & 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
|
|
|
|
'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
|
|
|
|
'CLASIFICACIONES DE IVAS
|
|
If DtClasificacionIVA IsNot Nothing OrElse DtClasificacionIVA.Rows.Count > 0 Then
|
|
For Each Dr As DataRow In DtClasificacionIVA.Rows
|
|
If Not Dr("CveClasificacion").ToString.ToEntero > 0 Then
|
|
If Not ObjGral.RemoveClasificacionPorcentaje(Dr("CveClasificacionPorcentaje").ToString.ToEntero) Then
|
|
TextoError = "Ocurrió un error al guardar los cambios de la empresa"
|
|
End If
|
|
ElseIf Dr("CveClasificacionPorcentaje").ToString.ToEntero = 0 Then
|
|
If Not ObjGral.AddClasificacionPorcentaje(Dr("CveClasificacion").ToString.ToEntero, Dr("PorcentajeIVA").ToString.ToDouble,
|
|
Dr("IdCtaIVAXAcreditar").ToString.ToEntero, Dr("IdCtaIVAAcreditable").ToString.ToEntero,
|
|
Dr("IdCtaIVAXTrasladar").ToString.ToEntero, Dr("IdCtaIVATrasladado").ToString.ToEntero, CveEmpresa) Then
|
|
TextoError = "Ocurrió un error al guardar los cambios de la empresa"
|
|
End If
|
|
ElseIf Dr("CveClasificacionPorcentaje").ToString.ToEntero > 0 Then
|
|
If Not ObjGral.UpdateClasificacionPorcentaje(Dr("CveClasificacionPorcentaje").ToString.ToEntero, Dr("CveClasificacion").ToString.ToEntero, Dr("PorcentajeIVA").ToString.ToDouble,
|
|
Dr("IdCtaIVAXAcreditar").ToString.ToEntero, Dr("IdCtaIVAAcreditable").ToString.ToEntero,
|
|
Dr("IdCtaIVAXTrasladar").ToString.ToEntero, Dr("IdCtaIVATrasladado").ToString.ToEntero) Then
|
|
TextoError = "Ocurrió un error al guardar los cambios de la empresa"
|
|
End If
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
'RECARGA EMPRESA
|
|
If TextoError = "" Then
|
|
If ObjEmpresas.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
|
|
GlobalDTEmpresas(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
|
|
|
|
' GlobalDTClasificacionPorcentaje(CveEmpresa) = Nothing
|
|
|
|
End If
|
|
|
|
'AGREGAR FUNCIONALIDADES
|
|
If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 201, DdlProveedores)
|
|
If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 211, DdlClientes)
|
|
If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 208, DdlInventario)
|
|
If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 216, DdlGasto)
|
|
If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 209, DdlBancos)
|
|
If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 205, DdlDeudores)
|
|
If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 202, DdlAcreedores)
|
|
If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 203, DdlDocxPagar)
|
|
If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 212, DdlAnticipoCliente)
|
|
If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 204, DdlAnticipoProveedores)
|
|
If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 218, DdlCaja)
|
|
If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 215, DdlFyE)
|
|
If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 221, DdlActivoFijo)
|
|
If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 246, DdlClientes)
|
|
If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 237, DdlAnticipoCliente)
|
|
|
|
''AGREGAR FUNCIONALIDADES
|
|
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 232, DdlProveedoresSIG)
|
|
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 233, DdlClientesSIG)
|
|
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 239, DdlInventarioSIG)
|
|
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 240, DdlGastoSIG)
|
|
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 241, DdlBancosSIG)
|
|
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 234, DdlDeudoresSIG)
|
|
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 235, DdlAcreedoresSIG)
|
|
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 236, DdlDocxPagarSIG)
|
|
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 237, DdlAnticipoClienteSIG)
|
|
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 238, DdlAnticipoProveedoresSIG)
|
|
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 242, DdlCajaSIG)
|
|
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 243, DdlFyESIG)
|
|
'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 244, DdlActivoFijoSIG)
|
|
|
|
'TRIGGER
|
|
If TextoError = "" And TxtBDContPAQi.Text.Trim <> "" And TxtBDContPAQi.Text.Trim <> "" And TxtBDContPAQi.Text.Trim <> "" And TxtBDContPAQi.Text.Trim <> "" Then
|
|
|
|
If UsuarioActual.Empresa.UsaContabilidad Then
|
|
|
|
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
|
'CREA OBJETO EMPRESA
|
|
If ObjEmpresas.GetEmpresas(TxtCveEmpresa.Text.ToEntero, "-1", "-1", "-1", "-1") Then
|
|
Dim Empresa As New Empresa
|
|
Empresa = ObjEmpresas.Empresa
|
|
|
|
ObjContPAQ = New ClsContPAQi(Empresa)
|
|
|
|
If ObjContPAQ.Conectado Then
|
|
'ADD
|
|
If BDContPAQ = "" Then
|
|
If Not ObjContPAQ.TRIGGER(TxtBDContPAQi.Text.Trim) Then
|
|
TextoError = "Los datos de conexion al servidor de contabilidad son incorrectos"
|
|
End If
|
|
End If
|
|
|
|
'UPDATE
|
|
If BDContPAQ <> "" And (BDContPAQ <> TxtBDContPAQi.Text.Trim Or ServerContPAQ <> TxtServerContPAQi.Text.Trim) Then
|
|
If Not ObjContPAQ.TRIGGER(TxtBDContPAQi.Text.Trim) Then
|
|
TextoError = "Los datos de conexion al servidor de contabilidad son incorrectos"
|
|
End If
|
|
End If
|
|
Else
|
|
TextoError = "Los datos de conexion al servidor de contabilidad son incorrectos"
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
Else
|
|
Alert("La empresa tiene la información para el uso de contabilidad pero no se tiene activada", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
End If
|
|
|
|
If TextoError = "" Then
|
|
ObjEmpresas.Commit()
|
|
If ObjContPAQ IsNot Nothing Then ObjContPAQ.Commit()
|
|
Alert(TextoOK, TipoMensaje.MsgInformacion, "document.location.href=""/Sistemas/Empresa.aspx?CveEmpresa=" & TxtCveEmpresa.Text.Trim & """;")
|
|
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 = ""
|
|
|
|
If Not ObjEmpresas.AddUpdateEmpresaFuncionalidades(TxtCveEmpresa.Text.Trim.ToEntero, CveFuncionalidad, Ddl.SelectedValue) Then
|
|
Retorno = "Ocurrió un error al vincular la cuenta contable"
|
|
End If
|
|
|
|
Return Retorno
|
|
End Function
|
|
Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
|
|
Dim ObjEmpresas As New ClsSisEmpresas
|
|
If ObjEmpresas.RemoveEmpresa(CveEmpresa) Then
|
|
GlobalDTEmpresas = ObjEmpresas.DtResultados
|
|
Alert("La Empresa se Eliminó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Sistemas/Empresa.aspx"";")
|
|
End If
|
|
ObjEmpresas.Dispose()
|
|
End Sub
|
|
|
|
'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(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(CveEmpresa, "-1", "-1", "-1", "-1") Then
|
|
Empresa = ObjEmpresa.Empresa
|
|
Dim ObjContabilidad As New ClsContabilidad
|
|
If ObjContabilidad.GetCuentas(-1, "-1", -1, CveEmpresa, CvePadre:=IdCuentaPadre) Then
|
|
DtCuentasContablesSIG = ObjContabilidad.DtResultados
|
|
End If
|
|
ObjContabilidad.Dispose()
|
|
End If
|
|
ObjEmpresa.Dispose()
|
|
End Sub
|
|
|
|
Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click
|
|
If DtCuentasContables Is Nothing Then
|
|
|
|
End If
|
|
Dim Seleccionado As String
|
|
Select Case HdnCuenta.Value
|
|
Case "1"
|
|
If DdlIVAxAcreditar.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlIVAxAcreditar.SelectedValue
|
|
DdlIVAxAcreditar.Items.Clear() : DdlIVAxAcreditar.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlIVAxAcreditar.DataSource = DtCuentasContables : DdlIVAxAcreditar.DataBind() : DdlIVAxAcreditar.SelectedValueExist(Seleccionado)
|
|
DdlIVAxAcreditar.AutoPostBack = False : DdlIVAxAcreditar.Attributes.Remove("onclick") : DdlIVAxAcreditar.CssClass &= " select2me"
|
|
Case "2"
|
|
If DdlIVAAcreditable.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlIVAAcreditable.SelectedValue
|
|
DdlIVAAcreditable.Items.Clear() : DdlIVAAcreditable.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlIVAAcreditable.DataSource = DtCuentasContables : DdlIVAAcreditable.DataBind() : DdlIVAAcreditable.SelectedValue = Seleccionado
|
|
DdlIVAAcreditable.AutoPostBack = False : DdlIVAAcreditable.Attributes.Remove("onclick") : DdlIVAAcreditable.CssClass &= " select2me"
|
|
Case "3"
|
|
If DdlIVAxTrasladar.Attributes("onclick") <> "" Then CargaCuentasContables(-1)
|
|
Seleccionado = DdlIVAxTrasladar.SelectedValue
|
|
DdlIVAxTrasladar.Items.Clear() : DdlIVAxTrasladar.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlIVAxTrasladar.DataSource = DtCuentasContables : DdlIVAxTrasladar.DataBind() : DdlIVAxTrasladar.SelectedValue = Seleccionado
|
|
DdlIVAxTrasladar.AutoPostBack = False : DdlIVAxTrasladar.Attributes.Remove("onclick") : DdlIVAxTrasladar.CssClass &= " select2me"
|
|
Case "4"
|
|
If DdlIVATrasladado.Attributes("onclick") <> "" Then CargaCuentasContables(-1)
|
|
Seleccionado = DdlIVATrasladado.SelectedValue
|
|
DdlIVATrasladado.Items.Clear() : DdlIVATrasladado.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlIVATrasladado.DataSource = DtCuentasContables : DdlIVATrasladado.DataBind() : DdlIVATrasladado.SelectedValue = Seleccionado
|
|
DdlIVATrasladado.AutoPostBack = False : DdlIVATrasladado.Attributes.Remove("onclick") : DdlIVATrasladado.CssClass &= " select2me"
|
|
Case "5"
|
|
If DdlIVARetenciones.Attributes("onclick") <> "" Then CargaCuentasContables(-1)
|
|
Seleccionado = DdlIVARetenciones.SelectedValue
|
|
DdlIVARetenciones.Items.Clear() : DdlIVARetenciones.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlIVARetenciones.DataSource = DtCuentasContables : DdlIVARetenciones.DataBind() : DdlIVARetenciones.SelectedValue = Seleccionado
|
|
DdlIVARetenciones.AutoPostBack = False : DdlIVARetenciones.Attributes.Remove("onclick") : DdlIVARetenciones.CssClass &= " select2me"
|
|
Case "6"
|
|
If DdlISRCirculacion.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlISRCirculacion.SelectedValue
|
|
DdlISRCirculacion.Items.Clear() : DdlISRCirculacion.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlISRCirculacion.DataSource = DtCuentasContables : DdlISRCirculacion.DataBind() : DdlISRCirculacion.SelectedValue = Seleccionado
|
|
DdlISRCirculacion.AutoPostBack = False : DdlISRCirculacion.Attributes.Remove("onclick") : DdlISRCirculacion.CssClass &= " select2me"
|
|
Case "7"
|
|
If DdlProveedores.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlProveedores.SelectedValue
|
|
DdlProveedores.Items.Clear() : DdlProveedores.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlProveedores.DataSource = DtCuentasContables : DdlProveedores.DataBind() : DdlProveedores.SelectedValueExist(Seleccionado)
|
|
DdlProveedores.AutoPostBack = False : DdlProveedores.Attributes.Remove("onclick") : DdlProveedores.CssClass &= " select2me"
|
|
Case "8"
|
|
If DdlClientes.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlClientes.SelectedValue
|
|
DdlClientes.Items.Clear() : DdlClientes.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlClientes.DataSource = DtCuentasContables : DdlClientes.DataBind() : DdlClientes.SelectedValueExist(Seleccionado)
|
|
DdlClientes.AutoPostBack = False : DdlClientes.Attributes.Remove("onclick") : DdlClientes.CssClass &= " select2me"
|
|
Case "9"
|
|
If DdlInventario.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlInventario.SelectedValue
|
|
DdlInventario.Items.Clear() : DdlInventario.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlInventario.DataSource = DtCuentasContables : DdlInventario.DataBind() : DdlInventario.SelectedValue = Seleccionado
|
|
DdlInventario.AutoPostBack = False : DdlInventario.Attributes.Remove("onclick") : DdlInventario.CssClass &= " select2me"
|
|
Case "10"
|
|
If DdlGasto.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlGasto.SelectedValue
|
|
DdlGasto.Items.Clear() : DdlGasto.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlGasto.DataSource = DtCuentasContables : DdlGasto.DataBind() : DdlGasto.SelectedValue = Seleccionado
|
|
DdlGasto.AutoPostBack = False : DdlGasto.Attributes.Remove("onclick") : DdlGasto.CssClass &= " select2me"
|
|
Case "11"
|
|
If DdlBancos.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlBancos.SelectedValue
|
|
DdlBancos.Items.Clear() : DdlBancos.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlBancos.DataSource = DtCuentasContables : DdlBancos.DataBind() : DdlBancos.SelectedValue = Seleccionado
|
|
DdlBancos.AutoPostBack = False : DdlBancos.Attributes.Remove("onclick") : DdlBancos.CssClass &= " select2me"
|
|
Case "12"
|
|
If DdlDeudores.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlDeudores.SelectedValue
|
|
DdlDeudores.Items.Clear() : DdlDeudores.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlDeudores.DataSource = DtCuentasContables : DdlDeudores.DataBind() : DdlDeudores.SelectedValue = Seleccionado
|
|
DdlDeudores.AutoPostBack = False : DdlDeudores.Attributes.Remove("onclick") : DdlDeudores.CssClass &= " select2me"
|
|
Case "13"
|
|
If DdlAcreedores.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlAcreedores.SelectedValue
|
|
DdlAcreedores.Items.Clear() : DdlAcreedores.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlAcreedores.DataSource = DtCuentasContables : DdlAcreedores.DataBind() : DdlAcreedores.SelectedValue = Seleccionado
|
|
DdlAcreedores.AutoPostBack = False : DdlAcreedores.Attributes.Remove("onclick") : DdlAcreedores.CssClass &= " select2me"
|
|
Case "14"
|
|
If DdlDocxPagar.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlDocxPagar.SelectedValue
|
|
DdlDocxPagar.Items.Clear() : DdlDocxPagar.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlDocxPagar.DataSource = DtCuentasContables : DdlDocxPagar.DataBind() : DdlDocxPagar.SelectedValue = Seleccionado
|
|
DdlDocxPagar.AutoPostBack = False : DdlDocxPagar.Attributes.Remove("onclick") : DdlDocxPagar.CssClass &= " select2me"
|
|
Case "15"
|
|
If DdlAnticipoCliente.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlAnticipoCliente.SelectedValue
|
|
DdlAnticipoCliente.Items.Clear() : DdlAnticipoCliente.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlAnticipoCliente.DataSource = DtCuentasContables : DdlAnticipoCliente.DataBind() : DdlAnticipoCliente.SelectedValue = Seleccionado
|
|
DdlAnticipoCliente.AutoPostBack = False : DdlAnticipoCliente.Attributes.Remove("onclick") : DdlAnticipoCliente.CssClass &= " select2me"
|
|
Case "16"
|
|
If DdlAnticipoProveedores.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlAnticipoProveedores.SelectedValue
|
|
DdlAnticipoProveedores.Items.Clear() : DdlAnticipoProveedores.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlAnticipoProveedores.DataSource = DtCuentasContables : DdlAnticipoProveedores.DataBind() : DdlAnticipoProveedores.SelectedValue = Seleccionado
|
|
DdlAnticipoProveedores.AutoPostBack = False : DdlAnticipoProveedores.Attributes.Remove("onclick") : DdlAnticipoProveedores.CssClass &= " select2me"
|
|
Case "17"
|
|
If DdlCaja.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlCaja.SelectedValue
|
|
DdlCaja.Items.Clear() : DdlCaja.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlCaja.DataSource = DtCuentasContables : DdlCaja.DataBind() : DdlCaja.SelectedValue = Seleccionado
|
|
DdlCaja.AutoPostBack = False : DdlCaja.Attributes.Remove("onclick") : DdlCaja.CssClass &= " select2me"
|
|
Case "18"
|
|
If DdlFyE.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlFyE.SelectedValue
|
|
DdlFyE.Items.Clear() : DdlFyE.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlFyE.DataSource = DtCuentasContables : DdlFyE.DataBind() : DdlFyE.SelectedValue = Seleccionado
|
|
DdlFyE.AutoPostBack = False : DdlFyE.Attributes.Remove("onclick") : DdlFyE.CssClass &= " select2me"
|
|
Case "19"
|
|
If DddlCuentaGananciaCambiaria.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DddlCuentaGananciaCambiaria.SelectedValue
|
|
DddlCuentaGananciaCambiaria.Items.Clear() : DddlCuentaGananciaCambiaria.Items.Add(New ListItem("Seleccione", "0"))
|
|
DddlCuentaGananciaCambiaria.DataSource = DtCuentasContables : DddlCuentaGananciaCambiaria.DataBind() : DddlCuentaGananciaCambiaria.SelectedValueExist(Seleccionado)
|
|
DddlCuentaGananciaCambiaria.AutoPostBack = False : DddlCuentaGananciaCambiaria.Attributes.Remove("onclick") : DddlCuentaGananciaCambiaria.CssClass &= " select2me"
|
|
Case "20"
|
|
If DdlCuentaPerdidaCambiaria.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlCuentaPerdidaCambiaria.SelectedValue
|
|
DdlCuentaPerdidaCambiaria.Items.Clear() : DdlCuentaPerdidaCambiaria.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlCuentaPerdidaCambiaria.DataSource = DtCuentasContables : DdlCuentaPerdidaCambiaria.DataBind() : DdlCuentaPerdidaCambiaria.SelectedValue = Seleccionado
|
|
DdlCuentaPerdidaCambiaria.AutoPostBack = False : DdlCuentaPerdidaCambiaria.Attributes.Remove("onclick") : DdlCuentaPerdidaCambiaria.CssClass &= " select2me"
|
|
|
|
'CUENTAS PADRES
|
|
|
|
Case "21"
|
|
If DdlProveedores.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlProveedores.SelectedValue
|
|
DdlProveedores.Items.Clear() : DdlProveedores.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlProveedores.DataSource = DtCuentasContables : DdlProveedores.DataBind() : DdlProveedores.SelectedValue = Seleccionado
|
|
DdlProveedores.AutoPostBack = False : DdlProveedores.Attributes.Remove("onclick") : DdlProveedores.CssClass &= " select2me"
|
|
Case "22"
|
|
If DdlClientes.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlClientes.SelectedValue
|
|
DdlClientes.Items.Clear() : DdlClientes.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlClientes.DataSource = DtCuentasContables : DdlClientes.DataBind() : DdlClientes.SelectedValue = Seleccionado
|
|
DdlClientes.AutoPostBack = False : DdlClientes.Attributes.Remove("onclick") : DdlClientes.CssClass &= " select2me"
|
|
Case "23"
|
|
If DdlInventario.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlInventario.SelectedValue
|
|
DdlInventario.Items.Clear() : DdlInventario.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlInventario.DataSource = DtCuentasContables : DdlInventario.DataBind() : DdlInventario.SelectedValue = Seleccionado
|
|
DdlInventario.AutoPostBack = False : DdlInventario.Attributes.Remove("onclick") : DdlInventario.CssClass &= " select2me"
|
|
Case "24"
|
|
If DdlGasto.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlGasto.SelectedValue
|
|
DdlGasto.Items.Clear() : DdlGasto.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlGasto.DataSource = DtCuentasContables : DdlGasto.DataBind() : DdlGasto.SelectedValue = Seleccionado
|
|
DdlGasto.AutoPostBack = False : DdlGasto.Attributes.Remove("onclick") : DdlGasto.CssClass &= " select2me"
|
|
Case "25"
|
|
If DdlBancos.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlBancos.SelectedValue
|
|
DdlBancos.Items.Clear() : DdlBancos.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlBancos.DataSource = DtCuentasContables : DdlBancos.DataBind() : DdlBancos.SelectedValue = Seleccionado
|
|
DdlBancos.AutoPostBack = False : DdlBancos.Attributes.Remove("onclick") : DdlBancos.CssClass &= " select2me"
|
|
Case "26"
|
|
If DdlDeudores.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlDeudores.SelectedValue
|
|
DdlDeudores.Items.Clear() : DdlDeudores.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlDeudores.DataSource = DtCuentasContables : DdlDeudores.DataBind() : DdlDeudores.SelectedValue = Seleccionado
|
|
DdlDeudores.AutoPostBack = False : DdlDeudores.Attributes.Remove("onclick") : DdlDeudores.CssClass &= " select2me"
|
|
Case "27"
|
|
If DdlAcreedores.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlAcreedores.SelectedValue
|
|
DdlAcreedores.Items.Clear() : DdlAcreedores.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlAcreedores.DataSource = DtCuentasContables : DdlAcreedores.DataBind() : DdlAcreedores.SelectedValue = Seleccionado
|
|
DdlAcreedores.AutoPostBack = False : DdlAcreedores.Attributes.Remove("onclick") : DdlAcreedores.CssClass &= " select2me"
|
|
Case "28"
|
|
If DdlDocxPagar.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlDocxPagar.SelectedValue
|
|
DdlDocxPagar.Items.Clear() : DdlDocxPagar.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlDocxPagar.DataSource = DtCuentasContables : DdlDocxPagar.DataBind() : DdlDocxPagar.SelectedValue = Seleccionado
|
|
DdlDocxPagar.AutoPostBack = False : DdlDocxPagar.Attributes.Remove("onclick") : DdlDocxPagar.CssClass &= " select2me"
|
|
Case "29"
|
|
If DdlAnticipoCliente.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlAnticipoCliente.SelectedValue
|
|
DdlAnticipoCliente.Items.Clear() : DdlAnticipoCliente.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlAnticipoCliente.DataSource = DtCuentasContables : DdlAnticipoCliente.DataBind() : DdlAnticipoCliente.SelectedValue = Seleccionado
|
|
DdlAnticipoCliente.AutoPostBack = False : DdlAnticipoCliente.Attributes.Remove("onclick") : DdlAnticipoCliente.CssClass &= " select2me"
|
|
Case "30"
|
|
If DdlAnticipoProveedores.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlAnticipoProveedores.SelectedValue
|
|
DdlAnticipoProveedores.Items.Clear() : DdlAnticipoProveedores.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlAnticipoProveedores.DataSource = DtCuentasContables : DdlAnticipoProveedores.DataBind() : DdlAnticipoProveedores.SelectedValue = Seleccionado
|
|
DdlAnticipoProveedores.AutoPostBack = False : DdlAnticipoProveedores.Attributes.Remove("onclick") : DdlAnticipoProveedores.CssClass &= " select2me"
|
|
Case "31"
|
|
If DdlCaja.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlCaja.SelectedValue
|
|
DdlCaja.Items.Clear() : DdlCaja.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlCaja.DataSource = DtCuentasContables : DdlCaja.DataBind() : DdlCaja.SelectedValue = Seleccionado
|
|
DdlCaja.AutoPostBack = False : DdlCaja.Attributes.Remove("onclick") : DdlCaja.CssClass &= " select2me"
|
|
Case "32"
|
|
If DdlFyE.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlFyE.SelectedValue
|
|
DdlFyE.Items.Clear() : DdlFyE.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlFyE.DataSource = DtCuentasContables : DdlFyE.DataBind() : DdlFyE.SelectedValue = Seleccionado
|
|
DdlFyE.AutoPostBack = False : DdlFyE.Attributes.Remove("onclick") : DdlFyE.CssClass &= " select2me"
|
|
Case "33"
|
|
If DdlActivoFijo.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlActivoFijo.SelectedValue
|
|
DdlActivoFijo.Items.Clear() : DdlActivoFijo.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlActivoFijo.DataSource = DtCuentasContables : DdlActivoFijo.DataBind() : DdlActivoFijo.SelectedValue = Seleccionado
|
|
DdlActivoFijo.AutoPostBack = False : DdlActivoFijo.Attributes.Remove("onclick") : DdlActivoFijo.CssClass &= " select2me"
|
|
Case "34"
|
|
If DdlDSV.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlDSV.SelectedValue
|
|
DdlDSV.Items.Clear() : DdlDSV.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlDSV.DataSource = DtCuentasContables : DdlDSV.DataBind() : DdlDSV.SelectedValue = Seleccionado
|
|
DdlDSV.AutoPostBack = False : DdlDSV.Attributes.Remove("onclick") : DdlDSV.CssClass &= " select2me"
|
|
Case "35"
|
|
If DdlImpuestosLocales.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlImpuestosLocales.SelectedValue
|
|
DdlImpuestosLocales.Items.Clear() : DdlImpuestosLocales.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlImpuestosLocales.DataSource = DtCuentasContables : DdlImpuestosLocales.DataBind() : DdlImpuestosLocales.SelectedValue = Seleccionado
|
|
DdlImpuestosLocales.AutoPostBack = False : DdlImpuestosLocales.Attributes.Remove("onclick") : DdlImpuestosLocales.CssClass &= " select2me"
|
|
|
|
|
|
'IEPS
|
|
Case "36"
|
|
If DdlIEPSxAcreditar.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlIEPSxAcreditar.SelectedValue
|
|
DdlIEPSxAcreditar.Items.Clear() : DdlIEPSxAcreditar.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlIEPSxAcreditar.DataSource = DtCuentasContables : DdlIEPSxAcreditar.DataBind() : DdlIEPSxAcreditar.SelectedValue = Seleccionado
|
|
DdlIEPSxAcreditar.AutoPostBack = False : DdlIEPSxAcreditar.Attributes.Remove("onclick") : DdlIEPSxAcreditar.CssClass &= " select2me"
|
|
|
|
Case "37"
|
|
If DdlIEPSAcreditable.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlIEPSAcreditable.SelectedValue
|
|
DdlIEPSAcreditable.Items.Clear() : DdlIEPSAcreditable.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlIEPSAcreditable.DataSource = DtCuentasContables : DdlIEPSAcreditable.DataBind() : DdlIEPSAcreditable.SelectedValue = Seleccionado
|
|
DdlIEPSAcreditable.AutoPostBack = False : DdlIEPSAcreditable.Attributes.Remove("onclick") : DdlIEPSAcreditable.CssClass &= " select2me"
|
|
Case "38"
|
|
If DdlIEPSxTrasladar.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlIEPSxTrasladar.SelectedValue
|
|
DdlIEPSxTrasladar.Items.Clear() : DdlIEPSxTrasladar.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlIEPSxTrasladar.DataSource = DtCuentasContables : DdlIEPSxTrasladar.DataBind() : DdlIEPSxTrasladar.SelectedValue = Seleccionado
|
|
DdlIEPSxTrasladar.AutoPostBack = False : DdlIEPSxTrasladar.Attributes.Remove("onclick") : DdlIEPSxTrasladar.CssClass &= " select2me"
|
|
Case "39"
|
|
If DdlIEPSTrasladado.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlIEPSTrasladado.SelectedValue
|
|
DdlIEPSTrasladado.Items.Clear() : DdlIEPSTrasladado.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlIEPSTrasladado.DataSource = DtCuentasContables : DdlIEPSTrasladado.DataBind() : DdlIEPSTrasladado.SelectedValue = Seleccionado
|
|
DdlIEPSTrasladado.AutoPostBack = False : DdlIEPSTrasladado.Attributes.Remove("onclick") : DdlIEPSTrasladado.CssClass &= " select2me"
|
|
Case "40"
|
|
If DdlCuentaDescuentoVenta.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlCuentaDescuentoVenta.SelectedValue
|
|
DdlCuentaDescuentoVenta.Items.Clear() : DdlCuentaDescuentoVenta.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlCuentaDescuentoVenta.DataSource = DtCuentasContables : DdlCuentaDescuentoVenta.DataBind() : DdlCuentaDescuentoVenta.SelectedValue = Seleccionado
|
|
DdlCuentaDescuentoVenta.AutoPostBack = False : DdlCuentaDescuentoVenta.Attributes.Remove("onclick") : DdlCuentaDescuentoVenta.CssClass &= " select2me"
|
|
Case "41"
|
|
If DdlCuentaOtrosIngresos.Attributes("onclick") <> "" Then CargaCuentasContables()
|
|
Seleccionado = DdlCuentaOtrosIngresos.SelectedValue
|
|
DdlCuentaOtrosIngresos.Items.Clear() : DdlCuentaOtrosIngresos.Items.Add(New ListItem("Seleccione", "0"))
|
|
DdlCuentaOtrosIngresos.DataSource = DtCuentasContables : DdlCuentaOtrosIngresos.DataBind() : DdlCuentaOtrosIngresos.SelectedValue = Seleccionado
|
|
DdlCuentaOtrosIngresos.AutoPostBack = False : DdlCuentaOtrosIngresos.Attributes.Remove("onclick") : DdlCuentaOtrosIngresos.CssClass &= " select2me"
|
|
|
|
|
|
' 'PADRES SIG
|
|
'Case "42"
|
|
' If DdlProveedoresSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
|
' Seleccionado = DdlProveedoresSIG.SelectedValue
|
|
' DdlProveedoresSIG.Items.Clear() : DdlProveedoresSIG.Items.Add(New ListItem("Seleccione", "0"))
|
|
' DdlProveedoresSIG.DataSource = DtCuentasContablesSIG : DdlProveedoresSIG.DataBind() : DdlProveedoresSIG.SelectedValue = Seleccionado
|
|
' DdlProveedoresSIG.AutoPostBack = False : DdlProveedoresSIG.Attributes.Remove("onclick") : DdlProveedoresSIG.CssClass &= " select2me"
|
|
'Case "43"
|
|
' If DdlClientesSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
|
' Seleccionado = DdlClientesSIG.SelectedValue
|
|
' DdlClientesSIG.Items.Clear() : DdlClientesSIG.Items.Add(New ListItem("Seleccione", "0"))
|
|
' DdlClientesSIG.DataSource = DtCuentasContablesSIG : DdlClientesSIG.DataBind() : DdlClientesSIG.SelectedValue = Seleccionado
|
|
' DdlClientesSIG.AutoPostBack = False : DdlClientesSIG.Attributes.Remove("onclick") : DdlClientesSIG.CssClass &= " select2me"
|
|
'Case "44"
|
|
' If DdlInventarioSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
|
' Seleccionado = DdlInventarioSIG.SelectedValue
|
|
' DdlInventarioSIG.Items.Clear() : DdlInventarioSIG.Items.Add(New ListItem("Seleccione", "0"))
|
|
' DdlInventarioSIG.DataSource = DtCuentasContablesSIG : DdlInventarioSIG.DataBind() : DdlInventarioSIG.SelectedValue = Seleccionado
|
|
' DdlInventarioSIG.AutoPostBack = False : DdlInventarioSIG.Attributes.Remove("onclick") : DdlInventarioSIG.CssClass &= " select2me"
|
|
'Case "45"
|
|
' If DdlGastoSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
|
' Seleccionado = DdlGasto.SelectedValue
|
|
' DdlGastoSIG.Items.Clear() : DdlGastoSIG.Items.Add(New ListItem("Seleccione", "0"))
|
|
' DdlGastoSIG.DataSource = DtCuentasContablesSIG : DdlGastoSIG.DataBind() : DdlGastoSIG.SelectedValue = Seleccionado
|
|
' DdlGastoSIG.AutoPostBack = False : DdlGastoSIG.Attributes.Remove("onclick") : DdlGastoSIG.CssClass &= " select2me"
|
|
'Case "46"
|
|
' If DdlBancosSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
|
' Seleccionado = DdlBancosSIG.SelectedValue
|
|
' DdlBancosSIG.Items.Clear() : DdlBancosSIG.Items.Add(New ListItem("Seleccione", "0"))
|
|
' DdlBancosSIG.DataSource = DtCuentasContablesSIG : DdlBancosSIG.DataBind() : DdlBancosSIG.SelectedValue = Seleccionado
|
|
' DdlBancosSIG.AutoPostBack = False : DdlBancosSIG.Attributes.Remove("onclick") : DdlBancosSIG.CssClass &= " select2me"
|
|
'Case "47"
|
|
' If DdlDeudoresSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
|
' Seleccionado = DdlDeudoresSIG.SelectedValue
|
|
' DdlDeudoresSIG.Items.Clear() : DdlDeudoresSIG.Items.Add(New ListItem("Seleccione", "0"))
|
|
' DdlDeudoresSIG.DataSource = DtCuentasContablesSIG : DdlDeudoresSIG.DataBind() : DdlDeudoresSIG.SelectedValue = Seleccionado
|
|
' DdlDeudoresSIG.AutoPostBack = False : DdlDeudoresSIG.Attributes.Remove("onclick") : DdlDeudoresSIG.CssClass &= " select2me"
|
|
'Case "48"
|
|
' If DdlAcreedoresSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
|
' Seleccionado = DdlAcreedoresSIG.SelectedValue
|
|
' DdlAcreedoresSIG.Items.Clear() : DdlAcreedoresSIG.Items.Add(New ListItem("Seleccione", "0"))
|
|
' DdlAcreedoresSIG.DataSource = DtCuentasContablesSIG : DdlAcreedoresSIG.DataBind() : DdlAcreedoresSIG.SelectedValue = Seleccionado
|
|
' DdlAcreedoresSIG.AutoPostBack = False : DdlAcreedoresSIG.Attributes.Remove("onclick") : DdlAcreedoresSIG.CssClass &= " select2me"
|
|
'Case "49"
|
|
' If DdlDocxPagarSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
|
' Seleccionado = DdlDocxPagarSIG.SelectedValue
|
|
' DdlDocxPagarSIG.Items.Clear() : DdlDocxPagarSIG.Items.Add(New ListItem("Seleccione", "0"))
|
|
' DdlDocxPagarSIG.DataSource = DtCuentasContablesSIG : DdlDocxPagarSIG.DataBind() : DdlDocxPagarSIG.SelectedValue = Seleccionado
|
|
' DdlDocxPagarSIG.AutoPostBack = False : DdlDocxPagarSIG.Attributes.Remove("onclick") : DdlDocxPagarSIG.CssClass &= " select2me"
|
|
'Case "50"
|
|
' If DdlAnticipoClienteSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
|
' Seleccionado = DdlAnticipoClienteSIG.SelectedValue
|
|
' DdlAnticipoClienteSIG.Items.Clear() : DdlAnticipoClienteSIG.Items.Add(New ListItem("Seleccione", "0"))
|
|
' DdlAnticipoClienteSIG.DataSource = DtCuentasContablesSIG : DdlAnticipoClienteSIG.DataBind() : DdlAnticipoClienteSIG.SelectedValue = Seleccionado
|
|
' DdlAnticipoClienteSIG.AutoPostBack = False : DdlAnticipoClienteSIG.Attributes.Remove("onclick") : DdlAnticipoClienteSIG.CssClass &= " select2me"
|
|
'Case "51"
|
|
' If DdlAnticipoProveedoresSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
|
' Seleccionado = DdlAnticipoProveedoresSIG.SelectedValue
|
|
' DdlAnticipoProveedoresSIG.Items.Clear() : DdlAnticipoProveedoresSIG.Items.Add(New ListItem("Seleccione", "0"))
|
|
' DdlAnticipoProveedoresSIG.DataSource = DtCuentasContablesSIG : DdlAnticipoProveedoresSIG.DataBind() : DdlAnticipoProveedoresSIG.SelectedValue = Seleccionado
|
|
' DdlAnticipoProveedoresSIG.AutoPostBack = False : DdlAnticipoProveedoresSIG.Attributes.Remove("onclick") : DdlAnticipoProveedoresSIG.CssClass &= " select2me"
|
|
'Case "52"
|
|
' If DdlCajaSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
|
' Seleccionado = DdlCajaSIG.SelectedValue
|
|
' DdlCajaSIG.Items.Clear() : DdlCajaSIG.Items.Add(New ListItem("Seleccione", "0"))
|
|
' DdlCajaSIG.DataSource = DtCuentasContablesSIG : DdlCajaSIG.DataBind() : DdlCajaSIG.SelectedValue = Seleccionado
|
|
' DdlCajaSIG.AutoPostBack = False : DdlCajaSIG.Attributes.Remove("onclick") : DdlCajaSIG.CssClass &= " select2me"
|
|
'Case "53"
|
|
' If DdlFyESIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
|
' Seleccionado = DdlFyESIG.SelectedValue
|
|
' DdlFyESIG.Items.Clear() : DdlFyESIG.Items.Add(New ListItem("Seleccione", "0"))
|
|
' DdlFyESIG.DataSource = DtCuentasContablesSIG : DdlFyESIG.DataBind() : DdlFyESIG.SelectedValue = Seleccionado
|
|
' DdlFyESIG.AutoPostBack = False : DdlFyESIG.Attributes.Remove("onclick") : DdlFyESIG.CssClass &= " select2me"
|
|
'Case "54"
|
|
' If DdlActivoFijoSIG.Attributes("onclick") <> "" Then CargaCuentasContablesSIG()
|
|
' Seleccionado = DdlActivoFijoSIG.SelectedValue
|
|
' DdlActivoFijoSIG.Items.Clear() : DdlActivoFijoSIG.Items.Add(New ListItem("Seleccione", "0"))
|
|
' DdlActivoFijoSIG.DataSource = DtCuentasContablesSIG : DdlActivoFijoSIG.DataBind() : DdlActivoFijoSIG.SelectedValue = Seleccionado
|
|
' DdlActivoFijoSIG.AutoPostBack = False : DdlActivoFijoSIG.Attributes.Remove("onclick") : DdlActivoFijoSIG.CssClass &= " select2me"
|
|
|
|
|
|
End Select
|
|
|
|
End Sub
|
|
Public Sub CargaDDLs()
|
|
DdlIVAxAcreditar.AutoPostBack = True
|
|
DdlIVAAcreditable.AutoPostBack = True
|
|
DdlIVAxTrasladar.AutoPostBack = True
|
|
DdlIVATrasladado.AutoPostBack = True
|
|
DdlIVARetenciones.AutoPostBack = True
|
|
DdlISRCirculacion.AutoPostBack = True
|
|
DdlProveedores.AutoPostBack = True
|
|
DdlClientes.AutoPostBack = True
|
|
DdlInventario.AutoPostBack = True
|
|
DdlGasto.AutoPostBack = True
|
|
DdlBancos.AutoPostBack = True
|
|
DdlDeudores.AutoPostBack = True
|
|
DdlAcreedores.AutoPostBack = True
|
|
DdlDocxPagar.AutoPostBack = True
|
|
DdlAnticipoCliente.AutoPostBack = True
|
|
DdlAnticipoProveedores.AutoPostBack = True
|
|
DdlCaja.AutoPostBack = True
|
|
DdlFyE.AutoPostBack = True
|
|
DddlCuentaGananciaCambiaria.AutoPostBack = True
|
|
DdlCuentaPerdidaCambiaria.AutoPostBack = True
|
|
DdlActivoFijo.AutoPostBack = True
|
|
DdlIEPSxAcreditar.AutoPostBack = True
|
|
DdlIEPSAcreditable.AutoPostBack = True
|
|
DdlIEPSxTrasladar.AutoPostBack = True
|
|
DdlIEPSTrasladado.AutoPostBack = True
|
|
DdlCuentaDescuentoVenta.AutoPostBack = True
|
|
DdlCuentaOtrosIngresos.AutoPostBack = True
|
|
|
|
''CUENTAS PADRES SIG
|
|
'DdlProveedoresSIG.AutoPostBack = True
|
|
'DdlClientesSIG.AutoPostBack = True
|
|
'DdlInventarioSIG.AutoPostBack = True
|
|
'DdlGastoSIG.AutoPostBack = True
|
|
'DdlBancosSIG.AutoPostBack = True
|
|
'DdlDeudoresSIG.AutoPostBack = True
|
|
'DdlAcreedoresSIG.AutoPostBack = True
|
|
'DdlDocxPagarSIG.AutoPostBack = True
|
|
'DdlAnticipoClienteSIG.AutoPostBack = True
|
|
'DdlAnticipoProveedoresSIG.AutoPostBack = True
|
|
'DdlCajaSIG.AutoPostBack = True
|
|
'DdlFyESIG.AutoPostBack = True
|
|
'DdlActivoFijoSIG.AutoPostBack = True
|
|
|
|
|
|
DdlIVAxAcreditar.Attributes.Add("onclick", "CargaCuentas(1);")
|
|
DdlIVAAcreditable.Attributes.Add("onclick", "CargaCuentas(2);")
|
|
DdlIVAxTrasladar.Attributes.Add("onclick", "CargaCuentas(3);")
|
|
DdlIVATrasladado.Attributes.Add("onclick", "CargaCuentas(4);")
|
|
DdlIVARetenciones.Attributes.Add("onclick", "CargaCuentas(5);")
|
|
DdlISRCirculacion.Attributes.Add("onclick", "CargaCuentas(6);")
|
|
DdlProveedores.Attributes.Add("onclick", "CargaCuentas(7);")
|
|
DdlClientes.Attributes.Add("onclick", "CargaCuentas(8);")
|
|
DdlInventario.Attributes.Add("onclick", "CargaCuentas(9);")
|
|
DdlGasto.Attributes.Add("onclick", "CargaCuentas(10);")
|
|
DdlBancos.Attributes.Add("onclick", "CargaCuentas(11);")
|
|
DdlDeudores.Attributes.Add("onclick", "CargaCuentas(12);")
|
|
DdlAcreedores.Attributes.Add("onclick", "CargaCuentas(13);")
|
|
DdlDocxPagar.Attributes.Add("onclick", "CargaCuentas(14);")
|
|
DdlAnticipoCliente.Attributes.Add("onclick", "CargaCuentas(15);")
|
|
DdlAnticipoProveedores.Attributes.Add("onclick", "CargaCuentas(16);")
|
|
DdlCaja.Attributes.Add("onclick", "CargaCuentas(17);")
|
|
DdlFyE.Attributes.Add("onclick", "CargaCuentas(18);")
|
|
DddlCuentaGananciaCambiaria.Attributes.Add("onclick", "CargaCuentas(19);")
|
|
DdlCuentaPerdidaCambiaria.Attributes.Add("onclick", "CargaCuentas(20);")
|
|
DdlActivoFijo.Attributes.Add("onclick", "CargaCuentas(33);")
|
|
DdlDSV.Attributes.Add("onclick", "CargaCuentas(34);")
|
|
DdlImpuestosLocales.Attributes.Add("onclick", "CargaCuentas(35);")
|
|
DdlIEPSxAcreditar.Attributes.Add("onclick", "CargaCuentas(36);")
|
|
DdlIEPSAcreditable.Attributes.Add("onclick", "CargaCuentas(37);")
|
|
DdlIEPSxTrasladar.Attributes.Add("onclick", "CargaCuentas(38);")
|
|
DdlIEPSTrasladado.Attributes.Add("onclick", "CargaCuentas(39);")
|
|
DdlCuentaDescuentoVenta.Attributes.Add("onclick", "CargaCuentas(40);")
|
|
DdlCuentaOtrosIngresos.Attributes.Add("onclick", "CargaCuentas(41);")
|
|
|
|
''CUENTAS PADRES
|
|
'DdlProveedoresSIG.Attributes.Add("onclick", "CargaCuentas(42);")
|
|
'DdlClientesSIG.Attributes.Add("onclick", "CargaCuentas(43);")
|
|
'DdlInventarioSIG.Attributes.Add("onclick", "CargaCuentas(44);")
|
|
'DdlGastoSIG.Attributes.Add("onclick", "CargaCuentas(45);")
|
|
'DdlBancosSIG.Attributes.Add("onclick", "CargaCuentas(46);")
|
|
'DdlDeudoresSIG.Attributes.Add("onclick", "CargaCuentas(47);")
|
|
'DdlAcreedoresSIG.Attributes.Add("onclick", "CargaCuentas(48);")
|
|
'DdlDocxPagarSIG.Attributes.Add("onclick", "CargaCuentas(49);")
|
|
'DdlAnticipoClienteSIG.Attributes.Add("onclick", "CargaCuentas(50);")
|
|
'DdlAnticipoProveedoresSIG.Attributes.Add("onclick", "CargaCuentas(51);")
|
|
'DdlCajaSIG.Attributes.Add("onclick", "CargaCuentas(52);")
|
|
'DdlFyESIG.Attributes.Add("onclick", "CargaCuentas(53);")
|
|
'DdlActivoFijoSIG.Attributes.Add("onclick", "CargaCuentas(54);")
|
|
|
|
UpDatos.Update()
|
|
|
|
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 "CONFIGURACION EMPRESA"
|
|
Private Sub ConfiguracionEmpresa()
|
|
If UsuarioActual.CveRol <> 1 Then
|
|
TabSistema.Visible = False
|
|
BtnCancelar.Visible = False
|
|
BtnEliminar.Visible = False
|
|
BiInform.Visible = False
|
|
End If
|
|
If TipoContabilidad = 2 Then
|
|
TabContabilidad.Visible = True
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
#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, CveEmpresa) Then
|
|
|
|
If ObjEmpresa.UpdatePlantillaMail("AsuntoPlantillaMailVentaCotizacion", TxtAsuntoCotizacion.Text.Trim, "PlantillaMailVentaCotizacion", TxtPlantillaCotizacion.Text.Trim, 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
|
|
|
|
#Region "TAB CONTABILIDAD - CLASIFICACION DE IVA"
|
|
Private Sub ActualizaNombresCuentas()
|
|
|
|
'If Not DtClasificacionIVA.Columns.Contains("CuentaXAcreditar") Then
|
|
' DtClasificacionIVA.Columns.Add("CuentaXAcreditar", GetType(Integer))
|
|
'End If
|
|
'If Not DtClasificacionIVA.Columns.Contains("CuentaAcreditable") Then
|
|
' DtClasificacionIVA.Columns.Add("CuentaAcreditable", GetType(Integer))
|
|
'End If
|
|
'If Not DtClasificacionIVA.Columns.Contains("CuentaXTrasladar") Then
|
|
' DtClasificacionIVA.Columns.Add("CuentaXTrasladar", GetType(Integer))
|
|
'End If
|
|
'If Not DtClasificacionIVA.Columns.Contains("CuentaTrasladado") Then
|
|
' DtClasificacionIVA.Columns.Add("CuentaTrasladado", GetType(Integer))
|
|
'End If
|
|
|
|
For Each Dr As DataRow In DtClasificacionIVA.Rows
|
|
If Dr("IdCtaIVAXAcreditar").ToString.ToEntero > 0 Then
|
|
'Dr("CuentaXAcreditar") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAXAcreditar").ToString}").Rows(0)("CtaCodigo").ToString
|
|
Dr("CuentaXAcreditar") = DtCuentas.FiltroPrimeroValor("CtaCodigo", $"Id = {Dr("IdCtaIVAXAcreditar").ToString}").ToString.ToEntero
|
|
End If
|
|
If Dr("IdCtaIVAAcreditable").ToString.ToEntero > 0 Then
|
|
'Dr("CuentaAcreditable") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAAcreditable").ToString}").Rows(0)("CtaCodigo").ToString
|
|
Dr("CuentaAcreditable") = DtCuentas.FiltroPrimeroValor("CtaCodigo", $"Id = {Dr("IdCtaIVAAcreditable").ToString}").ToString.ToEntero
|
|
End If
|
|
If Dr("IdCtaIVAXTrasladar").ToString.ToEntero > 0 Then
|
|
'Dr("CuentaXTrasladar") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVAXTrasladar").ToString}").Rows(0)("CtaCodigo").ToString
|
|
Dr("CuentaXTrasladar") = DtCuentas.FiltroPrimeroValor("CtaCodigo", $"Id = {Dr("IdCtaIVAXTrasladar").ToString}").ToString.ToEntero
|
|
End If
|
|
If Dr("IdCtaIVATrasladado").ToString.ToEntero > 0 Then
|
|
'Dr("CuentaTrasladado") = DtCuentas.FiltraParametros($"Id = {Dr("IdCtaIVATrasladado").ToString}").Rows(0)("CtaCodigo").ToString
|
|
Dr("CuentaTrasladado") = DtCuentas.FiltroPrimeroValor("CtaCodigo", $"Id = {Dr("IdCtaIVATrasladado").ToString}").ToString.ToEntero
|
|
End If
|
|
Next
|
|
DtClasificacionIVA.AcceptChanges()
|
|
End Sub
|
|
Private Sub InicializaClasificacionIVA(ObjEmpresas As ClsSisEmpresas)
|
|
CreaDtClasificacionIVA()
|
|
CargaCuentasIVA(ObjEmpresas)
|
|
CargaClasificaciones()
|
|
CargaClasificacionesIVA()
|
|
End Sub
|
|
Private Sub CargaClasificacionesIVA()
|
|
Dim ObjGral As New ClsGenerales
|
|
If ObjGral.GetClasificacionPorcentaje(CveEmpresa, Opcion:=2) Then
|
|
DtClasificacionIVA = ObjGral.DtResultados.Copy
|
|
ActualizaNombresCuentas()
|
|
GvClasificacionIVA.DataSource = DtClasificacionIVA
|
|
End If
|
|
ObjGral.Dispose()
|
|
GvClasificacionIVA.DataBind()
|
|
UpClasificacionIVA.Update()
|
|
End Sub
|
|
Private Sub CargaClasificaciones()
|
|
DdlClasificacion.DataSource = GlobalDTClasificaciones(CveEmpresa)
|
|
DdlClasificacion.DataBind()
|
|
DdlClasificacion.Items.Insert(0, New ListItem("-", "-1"))
|
|
End Sub
|
|
Private Sub CreaDtClasificacionIVA()
|
|
DtClasificacionIVA = New DataTable
|
|
DtClasificacionIVA.Columns.Add("CveClasificacionPorcentaje", GetType(Integer))
|
|
DtClasificacionIVA.Columns.Add("CveClasificacion", GetType(Integer))
|
|
DtClasificacionIVA.Columns.Add("Clasificacion", GetType(String))
|
|
DtClasificacionIVA.Columns.Add("PorcentajeIVA", GetType(Double))
|
|
DtClasificacionIVA.Columns.Add("CuentaXAcreditar", GetType(String))
|
|
DtClasificacionIVA.Columns.Add("IdCtaIVAXAcreditar", GetType(Integer))
|
|
DtClasificacionIVA.Columns.Add("CuentaAcreditable", GetType(String))
|
|
DtClasificacionIVA.Columns.Add("IdCtaIVAAcreditable", GetType(Integer))
|
|
DtClasificacionIVA.Columns.Add("CuentaXTrasladar", GetType(String))
|
|
DtClasificacionIVA.Columns.Add("IdCtaIVAXTrasladar", GetType(Integer))
|
|
DtClasificacionIVA.Columns.Add("CuentaTrasladado", GetType(String))
|
|
DtClasificacionIVA.Columns.Add("IdCtaIVATrasladado", GetType(Integer))
|
|
End Sub
|
|
Private Sub CargaCuentasIVA(ByRef ObjEmpresas As ClsSisEmpresas)
|
|
|
|
If ObjEmpresas.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
|
|
If ObjEmpresas.Empresa.UsaContabilidad And ObjEmpresas.Empresa.TipoContabilidad = 2 Then
|
|
|
|
'If ObjEmpresas.Empresa.TipoContabilidad = 2 Then
|
|
Dim Cuenta As New ClsContPAQi(ObjEmpresas.Empresa)
|
|
If Cuenta.GetCuentas(-1, "-1", -1) Then
|
|
DtCuentas = Cuenta.DtResultados
|
|
End If
|
|
Cuenta.Dispose()
|
|
'End If
|
|
|
|
Try
|
|
DdlIVAXAcreditarModal.DataSource = DtCuentas : DdlIVAXAcreditarModal.DataBind()
|
|
Catch ex As Exception
|
|
End Try
|
|
Try
|
|
DdlIVAAcreditableModal.DataSource = DtCuentas : DdlIVAAcreditableModal.DataBind()
|
|
Catch ex As Exception
|
|
End Try
|
|
Try
|
|
DdlIVAXTrasladarModal.DataSource = DtCuentas : DdlIVAXTrasladarModal.DataBind()
|
|
Catch ex As Exception
|
|
End Try
|
|
Try
|
|
DdlIVATrasladadoModal.DataSource = DtCuentas : DdlIVATrasladadoModal.DataBind()
|
|
Catch ex As Exception
|
|
End Try
|
|
End If
|
|
|
|
|
|
End If
|
|
|
|
'ObjEmpresas.Dispose()
|
|
DdlIVAXAcreditarModal.Items.Insert(0, New ListItem("-", "-1"))
|
|
DdlIVAAcreditableModal.Items.Insert(0, New ListItem("-", "-1"))
|
|
DdlIVAXTrasladarModal.Items.Insert(0, New ListItem("-", "-1"))
|
|
DdlIVATrasladadoModal.Items.Insert(0, New ListItem("-", "-1"))
|
|
End Sub
|
|
Protected Sub LnkEliminarClasificacionIVA_Click(sender As Object, e As EventArgs)
|
|
Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
|
|
If DtClasificacionIVA.Rows(gvRow.RowIndex)("CveClasificacionPorcentaje").ToString.ToEntero = 0 Then
|
|
DtClasificacionIVA.Rows(gvRow.RowIndex).Delete()
|
|
Else
|
|
DtClasificacionIVA.Rows(gvRow.RowIndex)("CveClasificacion") = -1
|
|
End If
|
|
DtClasificacionIVA.AcceptChanges()
|
|
GvClasificacionIVA.DataSource = DtClasificacionIVA
|
|
GvClasificacionIVA.DataBind()
|
|
UpClasificacionIVA.Update()
|
|
End Sub
|
|
Protected Sub LnkAgregarClasificacionIVA_Click(sender As Object, e As EventArgs)
|
|
LimpiaClasificacionIVA()
|
|
Modalidad = "A"
|
|
RegistraScript("$('#DModalClasificacionIVA').modal()")
|
|
UpModalClasificacionIVA.Update()
|
|
End Sub
|
|
Protected Sub LnkEditarClasificacionIVA_Click(sender As Object, e As EventArgs)
|
|
LimpiaClasificacionIVA()
|
|
Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
|
|
Modalidad = "U"
|
|
Index = gvRow.RowIndex
|
|
CveClasificacionPorcentaje = gvRow.DataKey("CveClasificacionPorcentaje").ToEntero()
|
|
DdlClasificacion.SelectedValueExist(gvRow.DataKey("CveClasificacion"))
|
|
TxtPorcentajeIVA.Text = gvRow.DataKey("PorcentajeIVA")
|
|
DdlIVAXAcreditarModal.SelectedValueExist(gvRow.DataKey("IdCtaIVAXAcreditar"))
|
|
DdlIVAAcreditableModal.SelectedValueExist(gvRow.DataKey("IdCtaIVAAcreditable"))
|
|
DdlIVAXTrasladarModal.SelectedValueExist(gvRow.DataKey("IdCtaIVAXTrasladar"))
|
|
DdlIVATrasladadoModal.SelectedValueExist(gvRow.DataKey("IdCtaIVATrasladado"))
|
|
RegistraScript("$('#DModalClasificacionIVA').modal()")
|
|
UpModalClasificacionIVA.Update()
|
|
End Sub
|
|
|
|
Private Sub LimpiaClasificacionIVA()
|
|
TxtPorcentajeIVA.Text = ""
|
|
DdlClasificacion.SelectedIndex = 0
|
|
DdlIVAXAcreditarModal.SelectedIndex = 0
|
|
DdlIVAAcreditableModal.SelectedIndex = 0
|
|
DdlIVAXTrasladarModal.SelectedIndex = 0
|
|
DdlIVATrasladadoModal.SelectedIndex = 0
|
|
UpModalClasificacionIVA.Update()
|
|
End Sub
|
|
|
|
Protected Sub BtnClasificacionIVA_Click(sender As Object, e As EventArgs)
|
|
If Modalidad = "A" Then
|
|
Dim Row As DataRow = DtClasificacionIVA.NewRow()
|
|
Row("CveClasificacionPorcentaje") = 0
|
|
Row("CveClasificacion") = DdlClasificacion.SelectedValue.ToEntero
|
|
Row("Clasificacion") = DdlClasificacion.SelectedItem.Text
|
|
Row("PorcentajeIVA") = TxtPorcentajeIVA.Text.ToDouble
|
|
Row("CuentaXAcreditar") = DdlIVAXAcreditarModal.SelectedItem.Text
|
|
Row("IdCtaIVAXAcreditar") = DdlIVAXAcreditarModal.SelectedValue.ToEntero
|
|
Row("CuentaAcreditable") = DdlIVAAcreditableModal.SelectedItem.Text
|
|
Row("IdCtaIVAAcreditable") = DdlIVAAcreditableModal.SelectedValue.ToEntero
|
|
Row("CuentaXTrasladar") = DdlIVAXTrasladarModal.SelectedItem.Text
|
|
Row("IdCtaIVAXTrasladar") = DdlIVAXTrasladarModal.SelectedValue.ToEntero
|
|
Row("CuentaTrasladado") = DdlIVATrasladadoModal.SelectedItem.Text
|
|
Row("IdCtaIVATrasladado") = DdlIVATrasladadoModal.SelectedValue.ToEntero
|
|
DtClasificacionIVA.Rows.InsertAt(Row, DtClasificacionIVA.Rows.Count)
|
|
ElseIf Modalidad = "U" Then
|
|
DtClasificacionIVA.Rows(Index)("CveClasificacion") = DdlClasificacion.SelectedValue.ToEntero
|
|
DtClasificacionIVA.Rows(Index)("Clasificacion") = DdlClasificacion.SelectedItem.Text
|
|
DtClasificacionIVA.Rows(Index)("PorcentajeIVA") = TxtPorcentajeIVA.Text.ToDouble
|
|
DtClasificacionIVA.Rows(Index)("CuentaXAcreditar") = DdlIVAXAcreditarModal.SelectedItem.Text
|
|
DtClasificacionIVA.Rows(Index)("IdCtaIVAXAcreditar") = DdlIVAXAcreditarModal.SelectedValue.ToEntero
|
|
DtClasificacionIVA.Rows(Index)("CuentaAcreditable") = DdlIVAAcreditableModal.SelectedItem.Text
|
|
DtClasificacionIVA.Rows(Index)("IdCtaIVAAcreditable") = DdlIVAAcreditableModal.SelectedValue.ToEntero
|
|
DtClasificacionIVA.Rows(Index)("CuentaXTrasladar") = DdlIVAXTrasladarModal.SelectedItem.Text
|
|
DtClasificacionIVA.Rows(Index)("IdCtaIVAXTrasladar") = DdlIVAXTrasladarModal.SelectedValue.ToEntero
|
|
DtClasificacionIVA.Rows(Index)("CuentaTrasladado") = DdlIVATrasladadoModal.SelectedItem.Text
|
|
DtClasificacionIVA.Rows(Index)("IdCtaIVATrasladado") = DdlIVATrasladadoModal.SelectedValue.ToEntero
|
|
End If
|
|
DtClasificacionIVA.AcceptChanges()
|
|
ActualizaNombresCuentas()
|
|
GvClasificacionIVA.DataSource = DtClasificacionIVA
|
|
GvClasificacionIVA.DataBind()
|
|
UpClasificacionIVA.Update()
|
|
RegistraScript("$('#DModalClasificacionIVA').modal('hide')")
|
|
End Sub
|
|
|
|
Protected Sub GvClasificacionIVA_RowDataBound(sender As Object, e As GridViewRowEventArgs)
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If Not e.Row.DBCampo("CveClasificacion").ToEntero > 0 Then
|
|
e.Row.Visible = False
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
|
|
|
|
|
|
Protected Sub LnkOpenModalDatosFiel_Click(sender As Object, e As EventArgs)
|
|
TxtFielPass.Text = ""
|
|
TxtFielArchivoCER.Text = ""
|
|
TxtFielArchivoKey.Text = ""
|
|
RegistraScript("$('#ModalUpFiel').modal();")
|
|
End Sub
|
|
Protected Sub LnkUpDatosFiel_Click(sender As Object, e As EventArgs)
|
|
Dim Password As String = TxtFielPass.Text
|
|
Dim akey As String
|
|
Dim acer As String
|
|
Dim pemkey As String
|
|
Dim pemcer As String
|
|
Dim pfxname As String
|
|
Dim Archivopfx As String
|
|
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"))
|
|
If EmpresaEditar IsNot Nothing Then
|
|
dirbase = String.Format("{0}Certificados\Fiel\", EmpresaEditar.Ruta)
|
|
dirbasepfx = String.Format("{0}Certificados\", EmpresaEditar.Ruta)
|
|
Else
|
|
dirbase = String.Format("{0}Empresas\{1}\Certificados\Fiel\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa"))
|
|
dirbasepfx = String.Format("{0}Empresas\{1}\Certificados\", ModExtensiones.DirectorioBaseEmpresas, ViewState("CveEmpresa"))
|
|
End If
|
|
|
|
If (Not Directory.Exists(dirbase)) Then
|
|
Directory.CreateDirectory(dirbase)
|
|
End If
|
|
|
|
Dim Filesgral As List(Of Archivo) = TxtFielArchivoCER.getfiles().Archivos
|
|
If Filesgral.Count > 0 Then
|
|
Archivocer = Filesgral(0)
|
|
End If
|
|
Filesgral = TxtFielArchivoKey.getfiles().Archivos
|
|
If Filesgral.Count > 0 Then
|
|
Archivokey = Filesgral(0)
|
|
End If
|
|
If Not IsNothing(Archivokey) AndAlso Not IsNothing(Archivocer) And Password.Length > 0 Then
|
|
akey = String.Format("{0}{1}", dirbase, Archivokey.filenameO)
|
|
If File.Exists(akey) Then
|
|
File.Delete(akey)
|
|
End If
|
|
File.Copy(Archivokey.FileUrl, akey)
|
|
acer = String.Format("{0}{1}", dirbase, Archivocer.filenameO)
|
|
If File.Exists(acer) Then
|
|
File.Delete(acer)
|
|
End If
|
|
File.Copy(Archivocer.FileUrl, acer)
|
|
Archivopfx = Archivokey.filenameO.Substring(0, Archivokey.filenameO.Length - 4)
|
|
pemkey = String.Format("{0}{1}.pem", dirbase, Archivopfx)
|
|
pfxname = String.Format("{0}{1}.pfx", dirbasepfx, Archivopfx)
|
|
pemcer = String.Format("{0}{1}.pem", dirbase, Archivokey.filenameO.Substring(0, Archivocer.filenameO.Length - 4))
|
|
|
|
If File.Exists(pemkey) Then
|
|
File.Delete(pemkey)
|
|
End If
|
|
|
|
If File.Exists(pfxname) Then
|
|
File.Delete(pfxname)
|
|
End If
|
|
|
|
If File.Exists(pemcer) Then
|
|
File.Delete(pemcer)
|
|
End If
|
|
|
|
Dim resultado As New StringBuilder
|
|
resultado.AppendLine("<br/>PAso 1:<br/>")
|
|
resultado.AppendLine(execCommand({"cd C:\Generar PFX\", String.Format("openssl.exe x509 -inform DER -in ""{0}"" -out ""{1}""", acer, pemcer)}))
|
|
resultado.AppendLine("<br/>PAso 2:<br/>")
|
|
resultado.AppendLine(execCommand({"cd C:\Generar PFX\", String.Format("openssl pkcs8 -inform DER -in ""{0}"" -passin pass:""{1}"" -out ""{2}""", akey, Password, pemkey)}))
|
|
resultado.AppendLine("<br/>Paso 3:<br/>")
|
|
resultado.AppendLine(execCommand({"cd C:\Generar PFX\", String.Format("openssl pkcs12 -export -out ""{0}"" -inkey ""{1}"" -in ""{2}"" -passout pass:""{3}""", pfxname, pemkey, pemcer, Password)}))
|
|
resultado.AppendLine("<br/>")
|
|
'Alert(resultado.ToString())
|
|
|
|
If File.Exists(pemkey) Then
|
|
File.Delete(pemkey)
|
|
End If
|
|
If File.Exists(pemcer) Then
|
|
File.Delete(pemcer)
|
|
End If
|
|
If File.Exists(acer) Then
|
|
File.Delete(acer)
|
|
End If
|
|
If File.Exists(akey) Then
|
|
File.Delete(akey)
|
|
End If
|
|
If File.Exists(Archivocer.FileUrl) Then
|
|
File.Delete(Archivocer.FileUrl)
|
|
End If
|
|
If File.Exists(Archivokey.FileUrl) Then
|
|
File.Delete(Archivokey.FileUrl)
|
|
End If
|
|
If Not File.Exists(pfxname) Then
|
|
Archivopfx = ""
|
|
Password = ""
|
|
End If
|
|
Dim objempresa As New ClsSisEmpresas
|
|
objempresa.UpEmpresaFiel(ViewState("CveEmpresa").ToString().ToEntero(), Password, $"{Archivopfx}.pfx")
|
|
objempresa.Dispose()
|
|
lblPassFiel.Text = Password
|
|
LblPfx.Text = $"{Archivopfx}.pfx"
|
|
Alert("La Fiel se ha actualizado")
|
|
UpmodalFiel.Update()
|
|
RegistraScript("$('#ModalUpFiel').modal('hide');")
|
|
Else
|
|
Alert("Favor de llenar todos los campos : <br/>-Contraseña<br/>-Archivo CER<br/>-Archivo KEY", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
End Sub
|
|
Public Function execCommand(command As String()) As String
|
|
|
|
Dim proceso As Diagnostics.Process = New Diagnostics.Process()
|
|
proceso.StartInfo.FileName = "cmd.exe"
|
|
proceso.StartInfo.CreateNoWindow = True
|
|
proceso.StartInfo.RedirectStandardInput = True
|
|
proceso.StartInfo.RedirectStandardOutput = True
|
|
proceso.StartInfo.UseShellExecute = False
|
|
proceso.Start()
|
|
For Each c As String In command
|
|
proceso.StandardInput.WriteLine(c)
|
|
|
|
Next
|
|
proceso.StandardInput.Flush()
|
|
proceso.StandardInput.Close()
|
|
proceso.WaitForExit()
|
|
Return proceso.StandardOutput.ReadToEnd()
|
|
End Function
|
|
Private Sub CargaTareasProgramadas()
|
|
Dim objTP As New ClsTareasProgramadas()
|
|
ChkDescargaMasivaSat.Checked = False
|
|
If objTP.GetTareasProgramadas(ViewState("CveEmpresa").ToString.ToEntero()) AndAlso objTP.DtResultados.Rows.Count > 0 Then
|
|
ChkDescargaMasivaSat.Checked = (objTP.DtResultados.COUNT("CveTareaProgramada", "CveTareaProgramada=1") > 0)
|
|
End If
|
|
objTP.Dispose()
|
|
End Sub
|
|
Protected Sub ChkDescargaMasivaSat_CheckedChanged(sender As Object, e As EventArgs)
|
|
Dim objTP As New ClsTareasProgramadas()
|
|
If ChkDescargaMasivaSat.Checked Then
|
|
If objTP.AddTareasProgramadas(ViewState("CveEmpresa").ToString.ToEntero(), 1, DateTime.Now.ToString("yyyy/MM/dd"), "", 0, "", DateTime.Now.ToString("yyyy/MM/dd"), DateTime.Now.ToString("yyyy/MM/dd"), "", "", 0, 1) Then
|
|
Alert("La tarea programada de descarga masiva del sat a agregado satisfactoriamente")
|
|
End If
|
|
Else
|
|
If objTP.RemoveTareasProgramadas(1, ViewState("CveEmpresa").ToString().ToEntero()) Then
|
|
Alert("La tarea programada de descarga masiva del sat se ha removido satisfactoriamente")
|
|
End If
|
|
End If
|
|
|
|
objTP.Dispose()
|
|
End Sub
|
|
Protected Sub LnkRegistrarPAC3_Click(sender As Object, e As EventArgs)
|
|
If Me.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 = System.IO.File.ReadAllBytes(ArchivoLLave)
|
|
Dim certByte = System.IO.File.ReadAllBytes(ArchivoCertificado)
|
|
|
|
Dim RFCEmisor = TxtRFC.Text.Trim()
|
|
Dim contrasena = 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 = 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, 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\", CveEmpresa)
|
|
filemove.FilesMove(NombreArchivo, Ruta)
|
|
End If
|
|
Catch ex As Exception
|
|
TieneError = True
|
|
End Try
|
|
|
|
|
|
If 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, 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, 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
|