diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 81a6e7ee9..66fdf8815 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1903,14 +1903,15 @@ Public Class ClsBancos Return Retorno End Function - Public Function GetIngresoEgresosDelDia(Fecha As Date, Tipo As String, CveEmpresa As Integer) As Boolean + Public Function GetIngresoEgresosDelDia(Fecha As Date, Tipo As String, CveEmpresa As Integer, Optional Opcion As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Banc_IngresoEgresosDiariosGet") With SqlAdapter.SelectCommand.Parameters .Add("@Fecha", SqlDbType.Date).Value = Fecha .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@Tipo", SqlDbType.VarChar).Value = Tipo + .Add("@Tipo", SqlDbType.VarChar).Value = Tipo 'Ing Ingresp Egs Egreso + .Add("@Opcion", SqlDbType.VarChar).Value = Opcion ' 1 Bancos 2 caja chica End With Try diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 3ee4bfbb3..bf0830527 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -366,7 +366,7 @@ Public Class ClsPaginas Property GlobalDTTipoOperacion() As DataTable Get Dim AppNombre As String = "GlobalDTTipoOperacion" - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGrales As New ClsGenerales If ObjGrales.GetSATTipoOperacion() Then Application(AppNombre) = ObjGrales.DtResultados ObjGrales.Dispose() @@ -381,7 +381,7 @@ Public Class ClsPaginas Property GlobalDTSATMotivoTraslado() As DataTable Get Dim AppNombre As String = "GlobalDTSATMotivoTraslado" - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGrales As New ClsGenerales If ObjGrales.GetSATMotivoTraslado() Then Application(AppNombre) = ObjGrales.DtResultados ObjGrales.Dispose() @@ -396,7 +396,7 @@ Public Class ClsPaginas Property GlobalDTUnidadAduana() As DataTable Get Dim AppNombre As String = "GlobalDTUnidadAduana" - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGrales As New ClsGenerales If ObjGrales.GetSATUnidadesAduana() Then Application(AppNombre) = ObjGrales.DtResultados ObjGrales.Dispose() @@ -411,7 +411,7 @@ Public Class ClsPaginas Property GlobalDTGralPaises() As DataTable Get Dim AppNombre As String = "GlobalDTGralPaises" - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGrales As New ClsGenerales If ObjGrales.GetSATPais() Then Application(AppNombre) = ObjGrales.DtResultados ObjGrales.Dispose() @@ -589,7 +589,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTCuentasDepositosClientes-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim P As New ClsGenerales If P.GetCuentasDepositos(CveEmpresa:=CveEmpresa, CveCliente:=-2) Then Application(AppNombre) = P.DtResultados P.Dispose() @@ -612,7 +612,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTProveedorClasificacion-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim P As New ClsCompProveedores If P.GetProveedorClasificacion(CveEmpresa) Then Application(AppNombre) = P.DtResultados P.Dispose() @@ -634,7 +634,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTProveedorSucursales-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim P As New ClsCompProveedores If P.GetSucursales(-1, CveEmpresa) Then Application(AppNombre) = P.DtResultados P.Dispose() @@ -922,19 +922,23 @@ Public Class ClsPaginas End Property Property GlobalDTClasificacionesDetalle(Optional CveEmpresa As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable Get - If CveEmpresa <> -1 Then - Dim Str As New StringBuilder - Str.AppendFormat("CveEmpresa = {0}", CveEmpresa) - If CveClasificacion <> -1 Then Str.AppendFormat(" AND CveClasificacion = {0}", CveClasificacion) - Dim Dv As New DataView(DirectCast(Application("GlobalDTClasificacionesDetalle"), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows) - GlobalDTClasificacionesDetalle = Dv.ToTable - Dv.Dispose() - Else - GlobalDTClasificacionesDetalle = DirectCast(Application("GlobalDTClasificacionesDetalle"), DataTable) + Dim AppNombre As String = $"GlobalDTClasificacionesDetalle-{CveEmpresa}" + If Application(AppNombre) Is Nothing Then + Using ObjVenta As New ClsVentas + If ObjVenta.GetClasificacionDetalle(CveEmpresa, CveClasificacion:=-1) Then Application(AppNombre) = ObjVenta.DtResultados + End Using End If + + Dim Str As New StringBuilder + If CveClasificacion <> -1 Then Str.AppendFormat(" CveClasificacion = {0}", CveClasificacion) + Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows) + GlobalDTClasificacionesDetalle = Dv.ToTable + Dv.Dispose() + End Get Set(value As DataTable) - Application("GlobalDTClasificacionesDetalle") = value + Dim AppNombre As String = $"GlobalDTClasificacionesDetalle-{CveEmpresa}" + Application(AppNombre) = value End Set End Property Property GlobalDTSubFamilias(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1) As DataTable @@ -958,7 +962,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTFamilias-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGenerales As New ClsGenerales If ObjGenerales.GetCategorias(CveEmpresa, 2) Then Application(AppNombre) = ObjGenerales.DtResultados ObjGenerales.Dispose() @@ -974,7 +978,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTCategoriasPresupuestos-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGenerales As New ClsGenerales If ObjGenerales.GetCategorias(CveEmpresa, 3) Then Application(AppNombre) = ObjGenerales.DtResultados ObjGenerales.Dispose() @@ -1676,21 +1680,25 @@ Public Class ClsPaginas End Property Property GlobalDTInvMetodosInventario() As DataTable Get - GlobalDTInvMetodosInventario = DirectCast(Application("GlobalDTInvMetodosInventario"), DataTable) + Dim AppNombre As String = $"GlobalDTInvMetodosInventario" + If Application(AppNombre) Is Nothing Then + Dim ObjPS As New ClsProductosServicios + If ObjPS.GetMetodosInv() Then Application(AppNombre) = ObjPS.DtResultados + ObjPS.Dispose() + End If + GlobalDTInvMetodosInventario = DirectCast(Application(AppNombre), DataTable) End Get Set(value As DataTable) - Application("GlobalDTInvMetodosInventario") = value + Dim AppNombre As String = $"GlobalDTInvMetodosInventario" + Application(AppNombre) = value End Set End Property Property GlobalDTInvCamiones(CveEmpresa As Integer, Optional CveCamion As Integer = -1) As DataTable Get Dim AppNombre As String = $"GlobalDTInvCamiones-{CveEmpresa}" - 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjInventarios As New ClsInventarios - If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) Then - Application(AppNombre) = ObjInventarios.DtResultados - End If + If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) Then Application(AppNombre) = ObjInventarios.DtResultados ObjInventarios.Dispose() End If Dim Str As New StringBuilder @@ -1715,7 +1723,6 @@ Public Class ClsPaginas Public Shared Property GlobalDTAFCaracteristicas(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTAFCaracteristicas-{CveEmpresa}" - 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjActivosFijos As New ClsAF If ObjActivosFijos.GetCaracteristicas(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados @@ -1731,7 +1738,6 @@ Public Class ClsPaginas Public Shared Property GlobalDTAFCaracteristicasClasificaciones(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTAFCaracteristicasClasificaciones-{CveEmpresa}" - 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjActivosFijos As New ClsAF If ObjActivosFijos.GetCaracteristicasClasificaciones(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados @@ -1747,7 +1753,6 @@ Public Class ClsPaginas Property GlobalDTImpuestosLocales(CvePS As Integer, CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTImpuestosLocales-{CveEmpresa}" - 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjPS As New ClsProductosServicios If ObjPS.GetPSImpuestosLocales(-1, CveEmpresa) Then Application(AppNombre) = ObjPS.DtResultados @@ -1767,9 +1772,6 @@ Public Class ClsPaginas Set(value As DataTable) Dim AppNombre As String = $"GlobalDTImpuestosLocales-{CveEmpresa}" Application(AppNombre) = value - 'Dim ObjPS As New ClsProductosServicios - 'If ObjPS.GetPSImpuestosLocales(-1, CveEmpresa) Then Application(AppNombre) = ObjPS.DtResultados - 'ObjPS.Dispose() End Set End Property 'Bancos @@ -1803,7 +1805,6 @@ Public Class ClsPaginas Public Shared Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1, Optional CveTipoCuenta As Integer = -1) As DataTable Get Dim AppNombre As String = $"GlobalDTBancosCuentas-{CveEmpresa}" - 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Using ObjBancos As New ClsBancos If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then @@ -1821,7 +1822,6 @@ Public Class ClsPaginas Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str, "", DataViewRowState.CurrentRows) GlobalDTBancosCuentas = Dv.ToTable Dv.Dispose() - 'GlobalDTBancosCuentas = DirectCast(Application("GlobalDTBancosCuentas"), DataTable) End Get Set(value As DataTable) Dim AppNombre As String = $"GlobalDTBancosCuentas-{CveEmpresa}" @@ -2315,7 +2315,6 @@ Public Class ClsPaginas Public Shared Property GlobalDTVtaCobranzaEstatus(CveEmpresa As Integer, Optional CveCobranzaEstatus As Integer = -1) As DataTable Get Dim AppNombre As String = $"GlobalDTVtaCobranzaEstatus-{CveEmpresa}" - 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjVentas As New ClsVentas If ObjVentas.GetCobranzaEstatus(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjVentas.DtResultados @@ -2337,10 +2336,18 @@ Public Class ClsPaginas #Region "***********************************************************************DT EVENTOS****************************************************************************************" Property GlobalDTTiposEventos() As DataTable Get - GlobalDTTiposEventos = DirectCast(Application("GlobalDTTiposEventos"), DataTable) + Dim AppNombre As String = $"GlobalDTTiposEventos" + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Dim ObjTiposEventos As New ClsTiposEventos + If ObjTiposEventos.GetTiposEventos() Then HttpContext.Current.Application(AppNombre) = ObjTiposEventos.DtResultados + ObjTiposEventos.Dispose() + End If + GlobalDTTiposEventos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) + End Get Set(value As DataTable) - Application("GlobalDTTiposEventos") = value + Dim AppNombre As String = $"GlobalDTTiposEventos" + Application(AppNombre) = value End Set End Property Property GlobalDTEventos() As DataTable @@ -2438,20 +2445,22 @@ Public Class ClsPaginas #Region "***********************************************************************DT ACTIVOS FIJOS**********************************************************************************" Property GlobalDTActivoFijos(CveEmpresa As Integer, Optional CveSubTipoActivoFijo As Integer = -1, Optional CveActivoFijo As Integer = -1) As DataTable Get - Dim dt As DataTable = Nothing - 'Dim Str As New StringBuilder - 'Str.AppendFormat("CveEmpresa = {0}", CveEmpresa) - 'If CveSubTipoActivoFijo <> -1 Then Str.AppendFormat(" AND CveSubTipoActivoFijo = {0}", CveSubTipoActivoFijo) - Dim ObjAF As New ClsAF - 'If ObjAF.GetActivosFijos(CveActivoFijo, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, -1, "-1", -1, -1, -1, -1, -1) Then - If ObjAF.GetActivosFijos(CveActivoFijo, CveEmpresa, "-1", "-1", -1, CveSubTipoActivoFijo, "-1", -1, -1, -1, -1, -1, "", -1) Then - dt = ObjAF.DtResultados + Dim AppNombre As String = $"GlobalDTActivoFijo-{CveEmpresa}" + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Dim ObjActivosFijos As New ClsAF + If ObjActivosFijos.GetActivosFijos(-1, CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados + ObjActivosFijos.Dispose() End If - ObjAF.Dispose() - GlobalDTActivoFijos = dt + Dim Str As New StringBuilder + If CveSubTipoActivoFijo <> -1 Then Str.AppendFormat(" CveSubTipoActivoFijo = {0} ", CveSubTipoActivoFijo) + If CveActivoFijo > 0 Then Str.AppendFormat("{0} CveActivoFijo = {1}", IIf(Str.Length > 0, " AND ", ""), CveActivoFijo) + Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + GlobalDTActivoFijos = Dv.ToTable + Dv.Dispose() End Get Set(ByVal value As DataTable) - Application("GlobalDTActivoFijos") = value + Dim AppNombre As String = $"GlobalDTActivoFijo-{CveEmpresa}" + Application(AppNombre) = value End Set End Property Public Shared Property GlobalDTEstadoActivoFijo() As DataTable @@ -2488,14 +2497,13 @@ Public Class ClsPaginas Public Shared Property GlobalDTModeloActivoFijo(CveEmpresa As Integer, CveMarca As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTModeloActivoFijo-{CveEmpresa}" - 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjActivosFijos As New ClsAF If ObjActivosFijos.GetModelosActivosFijos(CveEmpresa, -1) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados ObjActivosFijos.Dispose() End If If CveMarca > 0 Then - Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), $"CveMarca = {CveMarca}", "", DataViewRowState.CurrentRows) + Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), $"CveMarcaActivoFijo = {CveMarca}", "", DataViewRowState.CurrentRows) GlobalDTModeloActivoFijo = Dv.ToTable Dv.Dispose() Else @@ -2510,7 +2518,6 @@ Public Class ClsPaginas Public Shared Property GlobalDTSubTipoActivoFijo(CveEmpresa As Integer, Optional CveTipoActivoFijo As Integer = -1) As DataTable Get Dim AppNombre As String = $"GlobalDTSubTipoActivoFijo-{CveEmpresa}" - 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjSubTipos As New ClsAF If ObjSubTipos.GetSubTiposActivosFijos(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubTipos.DtResultados @@ -2531,10 +2538,9 @@ Public Class ClsPaginas Public Shared Property GlobalDTTipoActivoFijo(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTTipoActivoFijo-{CveEmpresa}" - 'sino existe, recarga los datos If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim GetTiposActivosFijos As New ClsAF - If GetTiposActivosFijos.GetCaracteristicas(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = GetTiposActivosFijos.DtResultados + If GetTiposActivosFijos.GetTiposActivosFijos(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = GetTiposActivosFijos.DtResultados GetTiposActivosFijos.Dispose() End If GlobalDTTipoActivoFijo = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) @@ -2550,7 +2556,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTGralCategorias-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGenerales As New ClsGenerales If ObjGenerales.GetCategorias(CveEmpresa) Then Application(AppNombre) = ObjGenerales.DtResultados ObjGenerales.Dispose() @@ -2572,7 +2578,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTGralCategorias2-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGenerales As New ClsGenerales If ObjGenerales.GetCategorias(CveEmpresa, 4) Then Application(AppNombre) = ObjGenerales.DtResultados ObjGenerales.Dispose() @@ -2593,7 +2599,7 @@ Public Class ClsPaginas Property GlobalDTGralEscolaridades() As DataTable Get Dim AppNombre As String = "GlobalDTGralEscolaridades" - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGenerales As New ClsGenerales If ObjGenerales.GetEscolaridades() Then Application(AppNombre) = ObjGenerales.DtResultados ObjGenerales.Dispose() @@ -2608,7 +2614,7 @@ Public Class ClsPaginas Property GlobalDTGralColectivas(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTGralColectivas-{CveEmpresa}" - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGenerales As New ClsGenerales If ObjGenerales.GetColectivas(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = ObjGenerales.DtResultados ObjGenerales.Dispose() @@ -2624,7 +2630,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTGralMarcas-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjMarcas As New ClsProductosServicios If ObjMarcas.GetMarcas(CveEmpresa) Then Application(AppNombre) = ObjMarcas.DtResultados Else Application(AppNombre) = Nothing ObjMarcas.Dispose() @@ -3255,7 +3261,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTOCEstatusUsuarios-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjOC As New ClsOC If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, CveEmpresa) Then Application(AppNombre) = ObjOC.DtResultados @@ -3363,7 +3369,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTAsistenciaDetalle" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetAsistenciasDetalle() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3379,7 +3385,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTAsistenciasInasistencias" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetAsistenciasInasistencias() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3395,7 +3401,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTEstatusPersonal" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetEstatusPersonal() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3411,7 +3417,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTRHPersonal-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetPersonal(-1, CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3423,27 +3429,25 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Property GlobalDTDepartamentos() As DataTable + Property GlobalDTDepartamentos(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = "GlobalDTDepartamentos" - 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + Dim AppNombre As String = $"GlobalDTDepartamentos-{CveEmpresa}" + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH - If ObjPersonal.GetDepartamentos() Then Application(AppNombre) = ObjPersonal.DtResultados + If ObjPersonal.GetDepartamentos(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() End If GlobalDTDepartamentos = DirectCast(Application(AppNombre), DataTable) End Get Set(value As DataTable) - Dim AppNombre As String = "GlobalDTDepartamentos" + Dim AppNombre As String = $"GlobalDTDepartamentos-{CveEmpresa}" Application(AppNombre) = value End Set End Property Property GlobalDTRHPuestos(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = $"GlobalDTRHPuestos-{CveEmpresa}" - 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetPuestos(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3459,7 +3463,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTEscolaridad" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetEscolaridades() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3475,7 +3479,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTEstadoCivil" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetEstadoCivil() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3491,7 +3495,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTDocumentos" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetDocumentos() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3507,7 +3511,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTGenero" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetGeneros() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3519,19 +3523,18 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Property GlobalDTMotivoBaja() As DataTable + Property GlobalDTMotivoBaja(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = "GlobalDTMotivoBaja" - 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + Dim AppNombre As String = $"GlobalDTMotivoBaja-{CveEmpresa}" + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH - If ObjPersonal.GetMotivoBaja() Then Application(AppNombre) = ObjPersonal.DtResultados + If ObjPersonal.GetMotivoBaja(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() End If GlobalDTMotivoBaja = DirectCast(Application(AppNombre), DataTable) End Get Set(value As DataTable) - Dim AppNombre As String = "GlobalDTMotivoBaja" + Dim AppNombre As String = $"GlobalDTMotivoBaja-{CveEmpresa}" Application(AppNombre) = value End Set End Property @@ -3539,7 +3542,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTTiposContrato" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetTiposContrato() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3551,35 +3554,33 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Property GlobalDTRutas() As DataTable + Property GlobalDTRutas(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = "GlobalDTRutas" - 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + Dim AppNombre As String = $"GlobalDTRutas-{CveEmpresa}" + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH - If ObjPersonal.GetRutas() Then Application(AppNombre) = ObjPersonal.DtResultados + If ObjPersonal.GetRutas(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() End If GlobalDTRutas = DirectCast(Application(AppNombre), DataTable) End Get Set(value As DataTable) - Dim AppNombre As String = "GlobalDTRutas" + Dim AppNombre As String = $"GlobalDTRutas-{CveEmpresa}" Application(AppNombre) = value End Set End Property - Property GlobalDTTurno() As DataTable + Property GlobalDTTurno(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = "GlobalDTTurno" - 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + Dim AppNombre As String = $"GlobalDTTurno-{CveEmpresa}" + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH - If ObjPersonal.GetTurnos() Then Application(AppNombre) = ObjPersonal.DtResultados + If ObjPersonal.GetTurnos(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() End If GlobalDTTurno = DirectCast(Application(AppNombre), DataTable) End Get Set(value As DataTable) - Dim AppNombre As String = "GlobalDTTurno" + Dim AppNombre As String = $"GlobalDTTurno-{CveEmpresa}" Application(AppNombre) = value End Set End Property @@ -3587,7 +3588,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTJornadas" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetJornadas() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3599,19 +3600,18 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Property GlobalDTMotivosHorasExtras() As DataTable + Property GlobalDTMotivosHorasExtras(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = "GlobalDTMotivosHorasExtras" - 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + Dim AppNombre As String = $"GlobalDTMotivosHorasExtras-{CveEmpresa}" + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH - If ObjPersonal.GetMotivoHorasExtras() Then Application(AppNombre) = ObjPersonal.DtResultados + If ObjPersonal.GetMotivoHorasExtras(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() End If GlobalDTMotivosHorasExtras = DirectCast(Application(AppNombre), DataTable) End Get Set(value As DataTable) - Dim AppNombre As String = "GlobalDTMotivosHorasExtras" + Dim AppNombre As String = $"GlobalDTMotivosHorasExtras-{CveEmpresa}" Application(AppNombre) = value End Set End Property @@ -3619,7 +3619,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = "GlobalDTTipoBuzon" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH If ObjPersonal.GetTipoBuzon() Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() @@ -3820,7 +3820,7 @@ Public Class ClsPaginas Get Dim AppNombre As String = $"GlobalDTPaqueteriaGuiaTipos-{CveEmpresa}" 'sino existe, recarga los datos - If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + If Application(AppNombre) Is Nothing Then Dim ObjGenerales As New ClsGenerales If ObjGenerales.GetGralPaqueteriasGuiasTipo(CveEmpresa) Then Application(AppNombre) = ObjGenerales.DtResultados ObjGenerales.Dispose() @@ -3832,24 +3832,26 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Public Shared Property GlobalDTClasificacionPorcentaje(CveEmpresa As Integer, Optional CveClasicacionPorcentaje As Integer = -1, Optional CveClasicacion As Integer = -1, - Optional PorcentajeIVA As Double = -1) As DataTable + Public Shared Property GlobalDTClasificacionPorcentaje(CveEmpresa As Integer, Optional CveClasicacionPorcentaje As Integer = -1, Optional CveClasicacion As Integer = -1, Optional PorcentajeIVA As Double = -1) As DataTable Get - Dim Str As StringBuilder = New StringBuilder() - If CveEmpresa <> -1 Or CveClasicacionPorcentaje <> -1 Or CveClasicacion <> -1 Or PorcentajeIVA <> -1 Then - If CveEmpresa <> -1 Then Str.AppendFormat("CveEmpresa = {0}", CveEmpresa) - If CveClasicacionPorcentaje <> -1 Then Str.AppendFormat(" {0} CveClasicacionPorcentaje = {1}", If(Str.Length > 0, "AND", ""), CveClasicacionPorcentaje) - If CveClasicacion <> -1 Then Str.AppendFormat(" {0} CveClasicacion = {1}", If(Str.Length > 0, "AND", ""), CveClasicacion) - If PorcentajeIVA <> -1 Then Str.AppendFormat(" {0} PorcentajeIVA = {1}", If(Str.Length > 0, "AND", ""), PorcentajeIVA) - Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTClasificacionPorcentaje"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) - GlobalDTClasificacionPorcentaje = Dv.ToTable - Dv.Dispose() - Else - GlobalDTClasificacionPorcentaje = DirectCast(HttpContext.Current.Application("GlobalDTClasificacionPorcentaje"), DataTable) + Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}" + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Using ObjVenta As New ClsGenerales + If ObjVenta.GetClasificacionPorcentaje(CveEmpresa, CveClasificacion:=-1) Then HttpContext.Current.Application(AppNombre) = ObjVenta.DtResultados + End Using End If + + Dim Str As StringBuilder = New StringBuilder() + If CveClasicacionPorcentaje <> -1 Then Str.AppendFormat(" {0} CveClasicacionPorcentaje = {1}", If(Str.Length > 0, "AND", ""), CveClasicacionPorcentaje) + If CveClasicacion <> -1 Then Str.AppendFormat(" {0} CveClasicacion = {1}", If(Str.Length > 0, "AND", ""), CveClasicacion) + If PorcentajeIVA <> -1 Then Str.AppendFormat(" {0} PorcentajeIVA = {1}", If(Str.Length > 0, "AND", ""), PorcentajeIVA) + Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + GlobalDTClasificacionPorcentaje = Dv.ToTable + Dv.Dispose() End Get Set(value As DataTable) - HttpContext.Current.Application("GlobalDTClasificacionPorcentaje") = value + Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}" + HttpContext.Current.Application(AppNombre) = value End Set End Property Property GlobalDTPaqueterias(CveEmpresa As Integer, Optional TipoPaqueteria As Integer = -1) As DataTable @@ -4293,25 +4295,29 @@ Public Class ClsPaginas ObjUsuario.Dispose() Return Retorno End Function - Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LthProyectoP As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing) + Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LblProyecto As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing, Optional divProyecto As HtmlControl = Nothing) + Select Case UsuarioActual.Empresa.Tipo_CentroCosto Case 1 If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False - If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False + If LblProyecto IsNot Nothing Then LblProyecto.Visible = False + If divProyecto IsNot Nothing Then divProyecto.Visible = False If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Centro de costo" Case 2 If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False - If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False + If LblProyecto IsNot Nothing Then LblProyecto.Visible = False + If divProyecto IsNot Nothing Then divProyecto.Visible = False If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal" Case 3 If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False - If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False + If LblProyecto IsNot Nothing Then LblProyecto.Visible = False + If divProyecto IsNot Nothing Then divProyecto.Visible = False If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Proyecto" Case 4 - If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto
" + If LblProyecto IsNot Nothing Then LblProyecto.Text = "Proyecto
" If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Subproyecto" Case 5 - If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto
" + If LblProyecto IsNot Nothing Then LblProyecto.Text = "Proyecto
" If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal" End Select If DdlProyecto IsNot Nothing Then @@ -7490,18 +7496,11 @@ Public Class ClsPaginas Dim tFechaUltimaFluctuacion As Date Dim tImportePago As Decimal Dim tImporteCompra As Decimal = Pago.ImportePago - Dim CveConceptoContableComplementaria As Integer = 206 - Pago.CveConceptoPago = If(Pago.CveConceptoPago = -1, 17, Pago.CveConceptoPago) 'si viene en parametro lo toma com primera opcion, sino el 17 - If CompraActual.CveTipoConceptoProveedor = 2 Then Pago.CveConceptoPago = 308 'cuando es acreedor - ' - If Pago.CveConceptoPago = 272 And CompraActual.CveMoneda = 2 Then Pago.CveConceptoPago = 304 'pago nota de crédito ME - If CompraActual.CveMoneda <> 1 Then - Select Case Pago.CveConceptoPago - Case 17 : Pago.CveConceptoPago = 312 - Case 308 : Pago.CveConceptoPago = 309 : CveConceptoContableComplementaria = 310 - Case Else - End Select - End If + + Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(1, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor) + 'cuando el Pago viene por NC, se utiliza un concepto + If Pago.TipoPago.Contiene("NC", "DEV") Then If CompraActual.CveMoneda = 2 Then ConPreP.CveConcepto = 304 Else ConPreP.CveConcepto = 272 'pago nota de crédito ME + Dim Concepto As String = String.Format("{0} F:{1}", CompraActual.ProveedorNombre, CompraActual.SerieFolio) Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False) Dim tFecha As Date = Pago.Fecha @@ -7534,10 +7533,10 @@ Public Class ClsPaginas ImportePagoMN = (Pago.ImportePago * TCValuacionCompra).RoundSQL End If 'movimiento de pago proveedor - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImportePagoMN, Pago.CveConceptoPago, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImportePagoMN, ConPreP.CveConcepto, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True 'movimiento de pago proveedor Complementaria If Not ErrorMovtos AndAlso CompraActual.CveMoneda > 1 AndAlso UsaComplementaria Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, (ImporteME * TCValuacionCompra - ImporteME).RoundSQL, CveConceptoContableComplementaria, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, (ImporteME * TCValuacionCompra - ImporteME).RoundSQL, ConPreP.CveConceptoComplementario, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True End If If Pago.AplicaAcreditable Then 'si tiene iva y su proporcion @@ -7619,35 +7618,36 @@ Public Class ClsPaginas 'concepto pago Concepto = String.Format("{0} NC:{1}", CompraActual.ProveedorNombre, Pago.Referencia) If Pago.TipoPago = "Egsc" AndAlso Not ErrorMovtos Then ' A N T I C I P O / E G R E S O S X C O M P R O B A R - Dim Ret As New ConceptosRetenciones + Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(11, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor) If Pago.CveMonedaPago > 1 Then 'Agregamos la Extranjera - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, ConPrepAplicacion.CveConcepto, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, 266, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, ConPrepAplicacion.CveConceptoComplementario, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True Else 'Agregamos Nacional - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, ConPrepAplicacion.CveConcepto, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True End If End If If Pago.TipoPago.Contiene("NC", "DEV") AndAlso Not ErrorMovtos Then ' N O T A D E C R E D I T O - Dim Ret As New ConceptosRetenciones + Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(15, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor) If Pago.CveMonedaPago > 1 Then 'Agregamos la Extranjera - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 342, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, ConPrepAplicacion.CveConcepto, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, 235, Pago.Referencia, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=Pago.CveCompraAmortizacion, CveVentaAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, ConPrepAplicacion.CveConceptoComplementario, Pago.Referencia, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=Pago.CveCompraAmortizacion, CveVentaAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True Else 'Agregamos Nacional - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 60, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, ConPrepAplicacion.CveConcepto, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True End If End If - If Pago.TipoPago = "DD" AndAlso Not ErrorMovtos Then ' D E U D O R D I V E R S O - Dim Ret As New ConceptosRetenciones - If UsuarioActual.Empresa.TipoContabilidad = 2 Then - If ObjConta.GetRetCuenta(66, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero - If Pago.CveMonedaPago > 1 AndAlso ObjConta.GetRetCuenta(207, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero - End If + If Pago.TipoPago = "DD" AndAlso Not ErrorMovtos Then ' D E U D O R D I V E R S O + 'Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(1, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor) + 'Dim Ret As New ConceptosRetenciones + 'If UsuarioActual.Empresa.TipoContabilidad = 2 Then + ' If ObjConta.GetRetCuenta(66, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero + ' If Pago.CveMonedaPago > 1 AndAlso ObjConta.GetRetCuenta(207, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero + 'End If If Pago.CveMonedaPago > 1 Then 'Agregamos la Extranjera If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True @@ -7658,22 +7658,7 @@ Public Class ClsPaginas If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveVenta:=Pago.CveCompraAmortizacion, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CveSubProyecto:=CompraActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True End If End If - 'If Pago.TipoPago = "Egsc" AndAlso Not ErrorMovtos Then ' I N G R E S O S X C O M P R O B A R - ' Dim Ret As New ConceptosRetenciones - ' If UsuarioActual.Empresa.TipoContabilidad = 2 Then - ' If ObjConta.GetRetCuenta(66, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero - ' If Pago.CveMonedaPago > 1 AndAlso ObjConta.GetRetCuenta(207, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero - ' End If - ' If Pago.CveMonedaPago > 1 Then - ' 'Agregamos la Extranjera - ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipo, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True - ' ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL - ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 207, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True - ' Else - ' 'Agregamos Nacional - ' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True - ' End If - 'End If + If Not ErrorMovtos AndAlso TCValuacionCompra <> TCValuacionPago Then Dim ConceptoContable, IdCtaContable As Integer Dim TipoMovimiento As Boolean @@ -7861,6 +7846,71 @@ Public Class ClsPaginas End Get End Property End Class + ' 1. Proveedores, 11. anticipos proveedores, 15. Notas de crédito de proveedores + Public Shared ReadOnly Property ObtenerCveConceptoPrePoliza(CveTipoSaldo As Integer, CveMoneda As Integer, EsAplicacionPago As Boolean, CveTipoProveedor As Integer) As ConceptosTipoSaldo + Get + Dim Retorno As New ConceptosTipoSaldo + If EsAplicacionPago Then + Select Case CveTipoSaldo + Case 1 ' proveedores/acreedores + Select Case CveMoneda + Case 1 'pesos + Retorno.CveConcepto = If(CveTipoProveedor = 1, 17, 308) + Case 2 'dólares + Retorno.CveConcepto = If(CveTipoProveedor = 1, 312, 309) + Retorno.CveConceptoComplementario = If(CveTipoProveedor = 1, 206, 310) + End Select + Case 11 ' anticipos + Select Case CveMoneda + Case 1 'pesos + Retorno.CveConcepto = If(CveTipoProveedor = 1, 21, 56) + Case 2 'dólares + Retorno.CveConcepto = If(CveTipoProveedor = 1, 339, 346) + Retorno.CveConceptoComplementario = If(CveTipoProveedor = 1, 266, 340) + End Select + Case 15 ' notas de crédito + Select Case CveMoneda + Case 1 'pesos + Retorno.CveConcepto = If(CveTipoProveedor = 1, 60, 324) + Case 2 'dólares + Retorno.CveConcepto = If(CveTipoProveedor = 1, 342, 344) + Retorno.CveConceptoComplementario = If(CveTipoProveedor = 1, 235, 235) + End Select + End Select + Else 'cuando es la provisión + Select Case CveTipoSaldo + Case 1 ' proveedores/acreedores + Select Case CveMoneda + Case 1 'pesos + Retorno.CveConcepto = If(CveTipoProveedor = 1, 5, 305) + Case 2 'dólares + Retorno.CveConcepto = If(CveTipoProveedor = 1, 311, 306) + Retorno.CveConceptoComplementario = If(CveTipoProveedor = 1, 201, 307) + End Select + Case 11 ' anticipos + Select Case CveMoneda + Case 1 'pesos + Retorno.CveConcepto = If(CveTipoProveedor = 1, 10, 48) + Case 2 'dólares + Retorno.CveConcepto = If(CveTipoProveedor = 1, 338, 345) + Retorno.CveConceptoComplementario = If(CveTipoProveedor = 1, 266, 340) + End Select + Case 15 ' notas de crédito + Select Case CveMoneda + Case 1 'pesos + Retorno.CveConcepto = If(CveTipoProveedor = 1, 18, 323) + Case 2 'dólares + Retorno.CveConcepto = If(CveTipoProveedor = 1, 341, 343) + Retorno.CveConceptoComplementario = If(CveTipoProveedor = 1, 234, 234) + End Select + End Select + + End If + + Return Retorno + End Get + End Property + Public Class ConceptosRetenciones Public Property CveConceptoxAcreditar As Integer Public Property CveConceptoAcreditable As Integer @@ -7868,6 +7918,10 @@ Public Class ClsPaginas Public Property IdCtaContableAcreditable As Integer Public Property IdCtaContIVANoAcreditable As Integer End Class + Public Class ConceptosTipoSaldo + Public Property CveConcepto As Integer + Public Property CveConceptoComplementario As Integer + End Class #End Region #Region "P A G O D E V E N T A S " @@ -8547,8 +8601,8 @@ Public Class ClsPaginas PaginaDict.Add("/Compras/RepEvaluacionesProveedores.aspx".ToUpper(), 754) PaginaDict.Add("/Ventas/RepTopClientesVentas.aspx".ToUpper(), 755) PaginaDict.Add("/OI/Circular.aspx".ToUpper(), 756) - PaginaDict.Add("/OI/CircularDetalle.aspx".ToUpper(), 757) - PaginaDict.Add("/OI/CircularDetalleB.aspx".ToUpper(), 757) + PaginaDict.Add("/OI/CircularDetalle.aspx".ToUpper(), 756) + PaginaDict.Add("/OI/CircularDetalleB.aspx".ToUpper(), 756) PaginaDict.Add("/Compras/CatTipoGasto.aspx".ToUpper(), 759) #End Region #Region "Contabilidad" diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 9e98ac57a..49613218c 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -448,9 +448,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo #End Region #Region "ClsRHDepartamentos" - Public Function GetDepartamentos() As Boolean + Public Function GetDepartamentos(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_RH_DepartamentosGet") + DataAdapter("PA_RH_DepartamentosGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try SqlAdapter.Fill(Data) Retorno = True @@ -982,7 +986,6 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo SqlAdapter.SelectCommand.Parameters.Add("@CveGenero", SqlDbType.Int).Value = CveGenero - Try SqlAdapter.Fill(Data) Retorno = True @@ -1074,9 +1077,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo #End Region #Region "ClsRHMotivoBaja" - Public Function GetMotivoBaja() As Boolean + Public Function GetMotivoBaja(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_RH_MotivoBajaGet") + DataAdapter("PA_RH_MotivoBajaGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With Try SqlAdapter.Fill(Data) Retorno = True @@ -1164,9 +1170,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo #End Region #Region "ClsRHMotivosHorasExtras" - Public Function GetMotivoHorasExtras() As Boolean + Public Function GetMotivoHorasExtras(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_MotivosHorasExtrasGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With Try SqlAdapter.Fill(Data) Retorno = True @@ -3249,9 +3258,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo #End Region #Region "ClsRHRuta" - Public Function GetRutas() As Boolean + Public Function GetRutas(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_RH_RutaGet") + DataAdapter("PA_RH_RutaGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With Try SqlAdapter.Fill(Data) Retorno = True diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 9f9cd4c4e..38efe79a1 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -24,8 +24,7 @@ Imports iText.Layout Imports iText.Html2pdf Imports iText.Html2pdf.Resolver.Font Imports iText.Layout.Properties -Imports Newtonsoft.Json - +Imports Newtonsoft.Json Namespace Extensiones #Region "E X T E N S I O N E S" @@ -1647,20 +1646,32 @@ Namespace Extensiones Public Function FBColumn(gv As GridView, name As String) As DataControlField - name = name.ToLower - For Each col As DataControlField In gv.Columns - If TypeOf col Is BoundField Then - Dim field As BoundField = CType(col, BoundField) - If field.DataField.ToLower = name OrElse field.SortExpression.ToLower = name OrElse field.HeaderText.Trim.ToLower = name Then - Return col + name = name.ToLower() + Dim headerCells As TableCellCollection = Nothing + If gv.Columns.Count > 0 Then + For i = 0 To gv.Columns.Count - 1 'Si las columnas son autogeneradas, el número de columnas siempre es 0 + Dim col = gv.Columns(i) + If TypeOf col Is BoundField Then + Dim field As BoundField = CType(col, BoundField) + If field.DataField.ToLower() = name OrElse field.SortExpression.ToLower() = name OrElse field.HeaderText.Trim().ToLower() = name Then + Return col + End If + Continue For + ElseIf TypeOf col Is HyperLinkField Then + Dim field As HyperLinkField = CType(col, HyperLinkField) + If field.DataTextField.ToLower() = name OrElse field.SortExpression.ToLower() = name OrElse field.HeaderText.Trim().ToLower() = name Then + Return col + End If + Continue For End If - ElseIf TypeOf col Is HyperLinkField Then - Dim field As HyperLinkField = CType(col, HyperLinkField) - If field.DataTextField.ToLower = name OrElse field.SortExpression.ToLower = name OrElse field.HeaderText.Trim.ToLower = name Then - Return col + If headerCells Is Nothing Then headerCells = gv.HeaderRow?.Cells + If headerCells IsNot Nothing Then + If headerCells(i).Text.Trim().ToLower() = name Then + Return col + End If End If - End If - Next + Next + End If Return Nothing End Function diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx index 3bcda13fb..86dfc5f45 100644 --- a/Ashx/E119.ashx +++ b/Ashx/E119.ashx @@ -196,7 +196,7 @@ Public Class E119 : Implements IHttpHandler TieneError = True End If End Using - Dim Msg As String = "Consultado día: " & Fecha.ToShortDateString + Dim Msg As String = "Información día " & Fecha.ToShortDateString & If(RespuestaError.message <> "", " Error: " & RespuestaError.message, "") Msg.GuardaLogAD("LogE119") Else RespuestaError.message = "la fecha no es leida correctamente" diff --git a/Bancos/FlujoDiario.aspx.vb b/Bancos/FlujoDiario.aspx.vb index f1edf7256..8eab374df 100644 --- a/Bancos/FlujoDiario.aspx.vb +++ b/Bancos/FlujoDiario.aspx.vb @@ -60,21 +60,40 @@ Partial Class Bancos_FlujoDiario params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + 'SE LLENA TmpDTSaldosIniciales Dim Ban As New ClsBancos + Dim TmpDTIngresosDelDiaCajaChica As New DataTable + Dim TmpDTGastosDelDiaCajaChica As New DataTable + If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text.ToDate.AddDays(-1).ToShortDateString, 0, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then TmpDTSaldosIniciales = Ban.DtResultados End If 'Se Llena TmpDTIngresosDelDia - If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", UsuarioActual.CveEmpresa) Then - TmpDTIngresosDelDia = Ban.DtResultados'.FiltraParametros("CveTipoTransaccion <> 8") + If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", UsuarioActual.CveEmpresa, 1) Then + TmpDTIngresosDelDia = Ban.DtResultados + TmpDTIngresosDelDia = Ban.DtResultados + End If + + If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", UsuarioActual.CveEmpresa, 2) Then + TmpDTIngresosDelDiaCajaChica = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 8") End If 'Se Llena TmpDTGastosDelDia - If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Egs", UsuarioActual.CveEmpresa) Then - TmpDTGastosDelDia = Ban.DtResultados'.FiltraParametros("CveTipoTransaccion <> 2") + If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Egs", UsuarioActual.CveEmpresa, 1) Then + TmpDTGastosDelDia = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 2") + End If + + If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Egs", UsuarioActual.CveEmpresa, 2) Then + TmpDTGastosDelDiaCajaChica = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 2") End If 'Se Llena TmpDTSaldosActuales @@ -91,10 +110,15 @@ Partial Class Bancos_FlujoDiario Dim rds5 As New ReportDataSource With {.Name = "DataSet5", .Value = If(TmpDTGastosDelDia IsNot Nothing, TmpDTGastosDelDia, New DataTable)} Dim rds4 As New ReportDataSource With {.Name = "DataSet4", .Value = If(TmpDTSaldosActuales IsNot Nothing, TmpDTSaldosActuales, New DataTable)} + Dim rds6 As New ReportDataSource With {.Name = "DataSet6", .Value = If(TmpDTIngresosDelDiaCajaChica IsNot Nothing, TmpDTIngresosDelDiaCajaChica, New DataTable)} + Dim rds7 As New ReportDataSource With {.Name = "DataSet7", .Value = If(TmpDTGastosDelDiaCajaChica IsNot Nothing, TmpDTGastosDelDiaCajaChica, New DataTable)} + lrds.Add(rds) lrds.Add(rds2) lrds.Add(rds3) lrds.Add(rds4) + lrds.Add(rds6) + lrds.Add(rds7) 'lrds.Add(rds5)- diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs index fb4ab7a2d..7079468f1 100644 --- a/Bancos/PagoAcreedor.aspx.cs +++ b/Bancos/PagoAcreedor.aspx.cs @@ -302,7 +302,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas // DATOS PREPOLIZA if (DdlTipoTransaccion.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolio.Text.ToEntero(); - CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE PAGO ACRREDORES", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), CveMonedaPago, TxtFechaDocumento.Text.ToDate(), DdlProveedores.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)); + CvePrePoliza = ObjMov.AddPrePolizas("PAGO ACRREDORES", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), CveMonedaPago, TxtFechaDocumento.Text.ToDate(), DdlProveedores.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)); if (CvePrePoliza > 0) { @@ -727,7 +727,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas // DATOS PREPOLIZA if ((DdlTipoTransanccionPrestamo.SelectedValue == "1")) FolioFijo = TxtFolioPrestamo.Text.ToEntero(); - CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE PRESTAMO ACRREDORES", CvePlantillaPoliza, TxtImportePrestamo.Text.Trim().ToDouble(), TxtImportePrestamo.Text.Trim().ToDouble(), CveMoneda, TxtFechaPrestamo.Text.ToDate(), DdlProveedorPrestamo.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransanccionPrestamo.SelectedValue, "-1", UsuarioActual.CveEmpresa)); + CvePrePoliza = ObjMov.AddPrePolizas("PRESTAMO ACRREDORES", CvePlantillaPoliza, TxtImportePrestamo.Text.Trim().ToDouble(), TxtImportePrestamo.Text.Trim().ToDouble(), CveMoneda, TxtFechaPrestamo.Text.ToDate(), DdlProveedorPrestamo.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransanccionPrestamo.SelectedValue, "-1", UsuarioActual.CveEmpresa)); if (CvePrePoliza > 0) { diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 0de6f650c..aa2a73f8c 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1582,8 +1582,6 @@ Partial Class Compras_Compras CargaFletesAgregados() End If - - InicializaOC() 'Valida si el IVA del XML es está bien calculado @@ -3210,6 +3208,10 @@ Partial Class Compras_Compras InventarioMov() HabilitaNCInv() + If Request("RG") IsNot Nothing Then + BtnRegenerarPrePolizaAlmacen_Click(Nothing, Nothing) + End If + Else Alert("La compra solicitada no se encontró. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) End If @@ -7143,13 +7145,14 @@ Partial Class Compras_Compras 'PROVISION de NC IdCtaContable = CtaProveedorExtranjera - Dim CveCon As Integer = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, False) + Dim ConPreP As ConceptosTipoSaldo = ClsPaginas.ObtenerCveConceptoPrePoliza(15, DdlMoneda.SelectedValue.ToEntero, False, CveTipoConcepto) + 'Dim CveCon As Integer = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, False) - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, CveCon, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza) Then + If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, ConPreP.CveConcepto, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza) Then IdCtaContable = CtaProveedorComplementaria - CveCon = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, True) + 'CveCon = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, True) - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMN - importeMovimiento, Referencia, CveCon, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN - importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMN - importeMovimiento, Referencia, ConPreP.CveConceptoComplementario, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN - importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then ErrorPrepoliza = True Exit Select End If @@ -7168,7 +7171,7 @@ Partial Class Compras_Compras Dim CveMonedaNC As Integer = If(TipoCambioFactura = 1, 1, 2) IdCtaContable = CtaProveedorExtranjera - CveCon = ObtConceptoContableProvisionCompra(Gvr.DataKey("CveTipoConcepto").ToEntero, "NC", CveMonedaNC, False) + 'CveCon = ObtConceptoContableProvisionCompra(Gvr.DataKey("CveTipoConcepto").ToEntero, "NC", CveMonedaNC, False) CompraActual.CveCompra = Gvr.DataKey("CveCompra").ToEntero CompraActual.SerieFolio = Gvr.DataKey("SerieFolio") @@ -7241,17 +7244,8 @@ Partial Class Compras_Compras ErrorPrepoliza = True End If - - - End If - - - - - - Case 21 'Anticipo If ArrAnticipos.Count > 0 Then @@ -8116,6 +8110,10 @@ Partial Class Compras_Compras Msg.AppendFormat("

Ver Póliza", IdPoliza) End If + If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros + Msg.AppendFormat("

Ver Póliza", CvePrePoliza) + End If + If CveMovimientoInventario > 0 Then Dim TempParametros = Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoInventario)) Msg.AppendFormat("
Ver Movimiento de Almacen", CveMovimientoInventario) @@ -8677,14 +8675,7 @@ Partial Class Compras_Compras CveIE = gvr.DataKey("CveIE").ToEntero End Select - PorcentajePago = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal / TxtTotal.Text.ToDecimal - - If CveMonedaAnticipo > 1 Then - Dim ImporteAntMN As Decimal = TipoCambioAnt * ImporteAnt - ImporteAnt - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimientoCompra, ImporteAntMN, "", CveConceptoCompraComplementaria, "", TxtFechaPago.Text.ToDate, IdCtaContableComp, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMN, ImporteME:=If(TipoCambioAnt = 1, 0, ImporteAnt), TipoCambio:=TipoCambioAnt, CveSubProyecto:=CveSubProyectoAnticipo) Then - ErrorMovtosCxP = 1 - End If - End If + 'PorcentajePago = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal / TxtTotal.Text.ToDecimal Pago.CveIE = CveIE Pago.CveCompraAmortizacion = CveCompraNC @@ -20574,34 +20565,34 @@ Partial Class Compras_Compras End Sub - Private Function ObtConceptoContableProvisionCompra(CveTipoConcepto As Integer, TipoDocto As String, CveMoneda As Integer, Optional EsComplementaria As Boolean = False) As Integer - Dim Retorno As Integer = -1 + 'Private Function ObtConceptoContableProvisionCompra(CveTipoConcepto As Integer, TipoDocto As String, CveMoneda As Integer, Optional EsComplementaria As Boolean = False) As Integer + ' Dim Retorno As Integer = -1 - If CveTipoConcepto = 1 Then ''PROVEEDOR - If EsComplementaria Then - Retorno = If(TipoDocto = "Fac", 201, 234) - Return Retorno - End If - If CveMoneda = 1 Then - Retorno = If(TipoDocto = "Fac", 5, 18) - Else - Retorno = If(TipoDocto = "Fac", 311, 341) - End If - Else ''ACREEDOR - If EsComplementaria Then - Retorno = If(TipoDocto = "Fac", -1, -1) - Return Retorno - End If - If CveMoneda = 1 Then - Retorno = If(TipoDocto = "Fac", 305, 323) - Else - Retorno = If(TipoDocto = "Fac", 306, 309) - End If - End If + ' 'If CveTipoConcepto = 1 Then ''PROVEEDOR + ' If EsComplementaria Then + ' Retorno = If(TipoDocto = "Fac", 201, 234) + ' Return Retorno + ' End If + ' If CveMoneda = 1 Then + ' Retorno = If(TipoDocto = "Fac", 5, 18) + ' Else + ' Retorno = If(TipoDocto = "Fac", 311, 341) + ' End If + ' Else ''ACREEDOR + ' If EsComplementaria Then + ' Retorno = If(TipoDocto = "Fac", -1, -1) + ' Return Retorno + ' End If + ' If CveMoneda = 1 Then + ' Retorno = If(TipoDocto = "Fac", 305, 323) + ' Else + ' Retorno = If(TipoDocto = "Fac", 306, 343) + ' End If + ' End If - Return Retorno + ' Return Retorno - End Function + 'End Function End Class diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 9d79517f9..5f998a8ad 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -1247,8 +1247,7 @@
- - +
@@ -1257,6 +1256,10 @@ + + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + @@ -1267,11 +1270,7 @@
-
-
- " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
+
- - - - - - - - - - - - - - - - <%--PASO 4: CATALOGOS--%> -
- - - - - - - -
-
-
-
- -
-
-
-
-
-
- - - - -
-
-
-
-
-
-
-
-
-
- - Agregar Clasificaciones -
-
-
- - - Descargar Excel - - - - Subir Excel - -
-
-
-
-
-
-
-
- - - - - -
-
-
-
- - -
- - - - - - - - - - - - -
- - -
-
-
-
-
-
-
-
-
-
-
- - Agregar Unidades de Medida -
-
-
- - - Descargar Excel - - - - Subir Excel - -
-
-
-
-
-
-
-
- - - - - -
-
-
-
- - -
- - - - - - - - - - - - - - - - - - - - - - - -
- - -
-
-
-
-
-
-
-
- <%-- - --%> -
-
-
- - Agregar Producto Servicio -
-
-
- - - Descargar Excel - - - - Subir Excel - -
-
-
-
- <%--
-
- - - -
-
- - - -
-
-
- - - - - -
-
- - - - - -
-
- - - - - - - - - -
-
- - - - - - - -
-
- - - - - - - -
-
- - -
-
- -
--%> -
-
- - - - - -
-
-
-
- - -
- - - - - - - - - - - - - - - - - - - - - - - - - - -
- - -
-
- <%-- - --%> -
-
-
-
-
- - -
- - <%--PASO ????: INVENTARIOS--%> -
-
-
-
-
- - -
-
-
-
-
-
-
- método de costeo -
-
-
-
-
-
-
-
-
-
-
-
- - <%--PASO 5: CARGA INICIAL--%> -
- - - - - - - -
-
-
-
- -
-
-
-
-
-
- - - - -
-
-
-
-
-
-
-
-
-
- - Agregar Proveedores -
-
-
- - - Descargar Excel - - - - Subir Excel - -
-
-
-
-
-
-
-
- - - - - -
-
-
-
- - - - - - - - - - - - - - - - - - - - - - - - -
-
-
-
-
-
-
-
-
-
-
- - Agregar Clientes -
-
-
- - - Descargar Excel - - - - Subir Excel - -
-
-
-
-
-
-
-
- - - - - -
-
-
-
- - - - - - - - - - - - - - - - - - - - - - - - -
-
-
-
-
-
- -
-
-

Agregar Factura Proveedor Cliente

-
- -
- Seleccione el tipo de factura: -
- -
- - - - - -
- -
-
-

Arraste o haga click para subir el archivo Excel

-
-
- -
-
- -
-
- -
-
- -
-
- - -
-
-
-
-
-
- - -
- <%--PASO 7: Finalizar--%> -
- - -
-
-
-
- -
-
-
-
-
-
- - <%-- --%> - <%----%> - <%-- --%> -
-
-
-
-
-
-
- -
-
-
-
-
-
- -
-
-
-
-
-
- -
-
-
-
-
- - -
- - - - <%--SABE--%> -
-
- -
-
- - - - - - - - <%--BOTONES PARA GUARDADO GENERAL - ES EL QUE MANEJA TODO--%> - - - - - <%--EMPIEZAN MODALES DE UPLOAD--%> - - <%--FIEL--%> - - - - <%--CSD--%> - - - <%-- PLANTILLA DE CORREO - MUESTRA ETIQUETAS --%> - - - - <%--AGREGAR PERFIL--%> -
@@ -1770,7 +1769,7 @@
- Devolución múltiple Pagar múltiples facturas      +
@@ -1783,17 +1782,22 @@
- - - +
+ + Devolución múltiple Pagar múltiples facturas   + + + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + @@ -1805,8 +1809,7 @@
- " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
- - - +
@@ -1877,6 +1878,10 @@ + + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + @@ -1888,8 +1893,7 @@
- " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
@@ -1957,10 +1961,7 @@ -
- - - +
@@ -1969,6 +1970,11 @@ + + + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + @@ -2082,9 +2088,7 @@
- - - +
@@ -2093,6 +2097,10 @@ + + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + @@ -2103,11 +2111,7 @@
-
-
- " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
+
- -
-
-
-
- -
- - -
-
-
- -
-
- - - - - - - - - -
-
-
- -
- - - - -
-
-
-
-
- - - - - - - - - - - -
-
Fecha:
- -
-
- - - - - - - - - -
-
- -
Tipo Póliza:
-
- - - -
- -
- : -
- -
- - -
-
- -
-
Poliza Complementaria:
-
- -
-
- -
-
Concepto:
-
- - - -
-
- -
- -
- - -
@@ -2197,6 +2201,10 @@ + + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + @@ -2208,8 +2216,7 @@
- " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
diff --git a/Compras/RepCompras.aspx b/Compras/RepCompras.aspx index 2b3afe529..9b735f488 100644 --- a/Compras/RepCompras.aspx +++ b/Compras/RepCompras.aspx @@ -158,9 +158,7 @@
- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - Referencia - - - - - - - Centro Costo - -  /  - Concepto - - - - - Cargo ME - - - - Abono ME - - - - - Cargo - - - - Abono - - - Comandos
- - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - -   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   - - - - - - - - - - - - - - - - -
- - - - - - - -
Sumas Iguales:  - - - - - -
- - - - - - -
Diferencia:  - 0.00
-
- - - - - - - - - -
- - - - -
- - - - - - - - - - - - - - - diff --git a/PyME/Contabilidad/RegPoliza.aspx.vb b/PyME/Contabilidad/RegPoliza.aspx.vb deleted file mode 100644 index 492688cb2..000000000 --- a/PyME/Contabilidad/RegPoliza.aspx.vb +++ /dev/null @@ -1,1267 +0,0 @@ -Option Explicit On -Option Strict On - -Imports System.Data -Imports Extensiones - - -Partial Class RegPoliza - Inherits ClsPaginas - -#Region "P R O P E R T Y" - Private Shared missing As Object = System.Reflection.Missing.Value - Private Property RemoveMovimientos As New ArrayList() - - Private Property CvePoliza As Integer - Get - Return CType(ViewState("CvePoliza"), Integer) - End Get - Set(value As Integer) - ViewState("CvePoliza") = value - End Set - End Property - - Private Property Opcion As String - Get - Return CType(ViewState("Opcion"), String) - End Get - Set(value As String) - ViewState("Opcion") = value - End Set - End Property - - Private Property TmpDT As DataTable - Get - Return CType(ViewState("TmpDT"), DataTable) - End Get - Set(value As DataTable) - ViewState("TmpDT") = value - End Set - End Property - - Private Property DTCuentas As DataTable - Get - Return CType(ViewState("DTCuentas"), DataTable) - End Get - Set(value As DataTable) - ViewState("DTCuentas") = value - End Set - End Property - - Private Property DTSegmentosNegocio As DataTable - Get - Return CType(ViewState("DTSegmentosNegocio"), DataTable) - End Get - Set(value As DataTable) - ViewState("DTSegmentosNegocio") = value - End Set - End Property - - Private Property DtDevoluciones As DataTable - Get - DtDevoluciones = DirectCast(ViewState("DtDevoluciones"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtDevoluciones") = value - End Set - End Property - - Private Property DtProveedoresConta As DataTable - Get - DtProveedoresConta = DirectCast(ViewState("DtProveedoresConta"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtProveedoresConta") = value - End Set - End Property - - Private Property DrParametros As DataRow - Get - DrParametros = If(ViewState("drParametros") IsNot Nothing AndAlso DirectCast(ViewState("drParametros"), DataTable).Rows.Count > 0, DirectCast(ViewState("drParametros"), DataTable).Rows(0), Nothing) - End Get - Set(value As DataRow) - ViewState("drParametros") = value.Table - End Set - End Property - - Private Property UsaMonedaExtranjera As Boolean - Get - UsaMonedaExtranjera = CBool(ViewState("UsaMonedaExtranjera")) - End Get - Set(value As Boolean) - ViewState("UsaMonedaExtranjera") = value - End Set - End Property -#End Region - - Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.LoadComplete - If Not IsPostBack Then - ViewState("Orden0") = "" - ViewState("Orden1") = "" - Me.Form.DefaultButton = BtnConsultar.UniqueID - - TxtFecha.Text = Now.ToShortDateString - TxtFechaPoliza.Text = Now.ToShortDateString - - If Not UsuarioActual.Empresa.UsaAC Then - tdPolizaComplementaria.Visible = True - End If - - Dim ObjConta As New ClsContabilidad - If ObjConta.GetConta_TiposPoliza(UsuarioActual.CveEmpresa) Then - DdlTipo.DataSource = ObjConta.DtResultados.FiltraParametros($"CveEmpresa={UsuarioActual.CveEmpresa} OR CveEmpresa IS NULL") - DdlTipo.DataBind() - DdlTipoPoliza.DataSource = ObjConta.DtResultados.FiltraParametros($"CveEmpresa={UsuarioActual.CveEmpresa} OR CveEmpresa IS NULL") - DdlTipoPoliza.DataBind() - End If - - If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then - DTCuentas = ObjConta.DtResultados - End If - - DTSegmentosNegocio = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) - - Dim dr As DataRow = DTSegmentosNegocio.NewRow - dr("CveSubProyecto") = "0" - dr("SubProyecto") = "" - DTSegmentosNegocio.Rows.InsertAt(dr, 0) - - DdlSegNeg.DataSource = DTSegmentosNegocio - DdlSegNeg.DataBind() - - If ObjConta.GetParametros(UsuarioActual.CveEmpresa) Then - If ObjConta.DtResultados IsNot Nothing AndAlso ObjConta.DtResultados.Rows.Count > 0 Then - DrParametros = ObjConta.DtResultados.Rows(0) - 'vienen datos agruapdos ejemplo 'SSSSSSNNNNSSSSSS, Y un digito significa una opcion - UsaMonedaExtranjera = DrParametros("ParFunc").ToString.Substring(5, 1) = "S" - - If UsaMonedaExtranjera Then - GvDatos.Columns(5).Visible = True - GvDatos.Columns(6).Visible = True - td1CargoME.Visible = True - td1AbonoME.Visible = True - td2CargoME.Visible = True - td2AbonoME.Visible = True - End If - End If - End If - - ObjConta.Dispose() - - LblAbono.Text = "0.00" - LblCargo.Text = "0.00" - - If TmpDT Is Nothing Then CreaDTRegPoliza() - - If Request("CvePoliza") IsNot Nothing AndAlso Request("CvePoliza").ToEntero() > 0 Then - - ChkPolizaComplementaria.Enabled = False - CvePoliza = Request("CvePoliza").ToEntero() - - Limpia() - - If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString <> "" Then - Opcion = Request("Opcion").ToString - End If - - If Opcion = "Com" Then - CargaPolizaComplementaria(CvePoliza) - Else - CargaDatos(CvePoliza) - tdPolizaComplementaria.Visible = False - End If - - Else - TxtFechaPoliza.Text = Date.Now.ToShortDateString - CvePoliza = -1 - SiguienteFolio() - End If - - If UsuarioActual.Empresa.UsaAC Then - LBDevIVA.Visible = False - PnlDevIVA.Visible = False - End If - - End If - End Sub - - -#Region "C A R G A - V A L O R E S" - Private Sub CreaDTRegPoliza() - TmpDT = New DataTable - Dim column As DataColumn = New DataColumn("IdConsec", GetType(Integer)) - With column - .AutoIncrement = True - .AutoIncrementSeed = 1 - .AutoIncrementStep = 1 - End With - TmpDT.Columns.Add(column) - TmpDT.Columns.Add("CvePolizaDetalle", GetType(Integer)) - TmpDT.Columns.Add("CvePoliza", GetType(Integer)) - TmpDT.Columns.Add("Referencia", GetType(String)) - TmpDT.Columns.Add("CveCuenta", GetType(Integer)) - TmpDT.Columns.Add("Cuenta", GetType(String)) - TmpDT.Columns.Add("CtaCodigo", GetType(String)) - TmpDT.Columns.Add("CveSubProyecto", GetType(Integer)) - TmpDT.Columns.Add("SubProyecto", GetType(String)) - TmpDT.Columns.Add("Concepto", GetType(String)) - TmpDT.Columns.Add("Estado", GetType(String)) - TmpDT.Columns.Add("Cargo", GetType(Double)) - TmpDT.Columns.Add("Abono", GetType(Double)) - TmpDT.Columns.Add("CargoME", GetType(Double)) - TmpDT.Columns.Add("AbonoME", GetType(Double)) - TmpDT.Columns.Add("Folio", GetType(Integer)) - End Sub -#End Region - -#Region "G R I D - V I E W" - Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit - GvDatos.EditIndex = -1 - CargaGrid() - End Sub - - Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - - If e.Row.RowIndex <= 4 Then 'mayor a cero, por si borran los primeros 3 renglones que se conserve el ancho - LblAbono.Text = TmpDT.FiltraParametros("Estado<>'D'").SUM("Abono").FormatoNumero - LblCargo.Text = TmpDT.FiltraParametros("Estado<>'D'").SUM("Cargo").FormatoNumero - LblDiferencia.Text = (LblCargo.Text.Trim.ToDouble - LblAbono.Text.Trim.ToDouble).FormatoNumero - End If - - e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(2).Style.Add("text-align", "left") - e.Row.FCLiteral("LtlNo").Text = (e.Row.RowIndex + 1).ToString - - If e.Row.DBCampo("Cargo") = "0" AndAlso e.Row.FCLiteral("LtlCargo") IsNot Nothing Then e.Row.FCLiteral("LtlCargo").Text = "" - If e.Row.DBCampo("Abono") = "0" AndAlso e.Row.FCLiteral("LtlAbono") IsNot Nothing Then e.Row.FCLiteral("LtlAbono").Text = "" - - If e.Row.DBCampo("CargoME") = "0" AndAlso e.Row.FCLiteral("LtlCargoME") IsNot Nothing Then e.Row.FCLiteral("LtlCargoME").Text = "" - If e.Row.DBCampo("AbonoME") = "0" AndAlso e.Row.FCLiteral("LtlAbonoME") IsNot Nothing Then e.Row.FCLiteral("LtlAbonoME").Text = "" - - If e.Row.DBCampo("Cargo").ToDouble < 0 AndAlso e.Row.FCLiteral("LtlCargo") IsNot Nothing Then e.Row.FCLiteral("LtlCargo").Text = String.Format("{0}", e.Row.DBCampo("Cargo").FormatoNumero()) - If e.Row.DBCampo("Abono").ToDouble < 0 AndAlso e.Row.FCLiteral("LtlAbono") IsNot Nothing Then e.Row.FCLiteral("LtlAbono").Text = String.Format("{0}", e.Row.DBCampo("Abono").FormatoNumero()) - - If e.Row.DBCampo("Estado").ToString.Trim = "D" Then e.Row.Visible = False - - If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then - e.Row.FCDropDownList("DdlCuenta").DataSource = DTCuentas.FiltraParametros("Afectable=1") - e.Row.FCDropDownList("DdlCuenta").DataBind() - e.Row.FCDropDownList("DdlCuenta").SelectedValue = e.Row.DBCampo("CveCuenta") - - e.Row.FCDropDownList("DdlSegNeg").DataSource = DTSegmentosNegocio - e.Row.FCDropDownList("DdlSegNeg").DataBind() - e.Row.FCDropDownList("DdlSegNeg").SelectedValue = e.Row.DBCampo("CveSubProyecto") - - e.Row.FCTextBox("TxtCargo").Text = e.Row.DBCampo("Cargo").ToString - e.Row.FCTextBox("TxtAbono").Text = e.Row.DBCampo("Abono").ToString - - e.Row.FCTextBox("TxtCargoME").Text = e.Row.DBCampo("CargoME").ToString - e.Row.FCTextBox("TxtAbonoME").Text = e.Row.DBCampo("AbonoME").ToString - Else - 'e.Row.FCHyperLink("Ref").NavigateUrl = e.Row.DBCampo("SIGReferencia").ContaReferenciaLiga - End If - End If - End Sub - - Protected Sub GvDatos_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting - Dim dr() As DataRow = TmpDT.Select(String.Format("IdConsec = {0}", e.Keys("IdConsec"))) - - dr(0)("Estado") = "D" - TmpDT.AcceptChanges() - BtnNuevo.OnClientClick = "return confirm('Se han hecho cambios que no fueron guardados, ¿Continuar?');" - - CargaGrid() - End Sub - - Protected Sub GvDatos_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvDatos.RowEditing - GvDatos.EditIndex = e.NewEditIndex - CargaGrid() - End Sub - - Protected Sub GvDatos_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvDatos.RowUpdating - - If (GvDatos.Rows(e.RowIndex).FCTextBox("TxtCargo").Text.Length = 0 AndAlso - GvDatos.Rows(e.RowIndex).FCTextBox("TxtAbono").Text.Length = 0) OrElse - (GvDatos.Rows(e.RowIndex).FCTextBox("TxtCargo").Text.Trim.ToDouble > 0 AndAlso - GvDatos.Rows(e.RowIndex).FCTextBox("TxtAbono").Text.Trim.ToDouble > 0) Then - Alert("Debes asignar un valor para CARGO o para ABONO", TipoMensaje.MsgAdvertencia) - Else - Dim dr() As DataRow = TmpDT.Select(String.Format("IdConsec = {0}", e.Keys("IdConsec"))) - - BtnNuevo.OnClientClick = "return confirm('Se han hecho cambios que no fueron guardados, ¿Continuar?');" - dr(0)("Referencia") = GvDatos.Rows(e.RowIndex).FCTextBox("TxtReferencia").Text.Trim - dr(0)("CveCuenta") = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuenta").SelectedValue - dr(0)("CtaCodigo") = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuenta").SelectedItem.Text - dr(0)("Cuenta") = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCuenta").SelectedItem.Text - dr(0)("CveSubProyecto") = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlSegNeg").SelectedValue - dr(0)("SubProyecto") = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlSegNeg").SelectedItem.Text - dr(0)("Concepto") = GvDatos.Rows(e.RowIndex).FCTextBox("TxtNombreConcepto").Text.Trim - dr(0)("Cargo") = GvDatos.Rows(e.RowIndex).FCTextBox("TxtCargo").Text.Trim.ToDouble - dr(0)("Abono") = GvDatos.Rows(e.RowIndex).FCTextBox("TxtAbono").Text.Trim.ToDouble - dr(0)("CargoME") = GvDatos.Rows(e.RowIndex).FCTextBox("TxtCargoME").Text.Trim.ToDouble - dr(0)("AbonoME") = GvDatos.Rows(e.RowIndex).FCTextBox("TxtAbonoME").Text.Trim.ToDouble - dr(0)("Estado") = "U" - TmpDT.AcceptChanges() - GvDatos.EditIndex = -1 - CargaGrid() - End If - - End Sub - - Public Function WSCuentas() As String - Dim Str As New StringBuilder - Dim i As Integer = 0 - Dim dt As DataTable = DTCuentas.FiltraParametros("Afectable = 1") - - If dt IsNot Nothing Then - For Each dr As DataRow In dt.Rows - i += 1 - Str.AppendFormat("{{value:""{0}"",label:""{1}""}}{2}", dr("CveCuenta"), dr("CtaCodigo").ToString.Replace("""", ""), If(i < dt.Rows.Count, ",", "")) - Next - End If - - Return Str.ToString - End Function - -#End Region - -#Region "O R D E N A M I E N T O" - Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs) - Dim Orden As String = "" - Dim Campo As String = "" - Dim gvi As Integer = 0 - Dim Literal As Literal = Nothing - Const OrdenInicial As String = "" - Dim Arg(2) As String - - Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c) - Campo = Arg(0) - gvi = Arg(1).ToEntero - Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal) - Campo = Campo.Substring(0, Campo.Length - 1) - - If ViewState(String.Format("O{0}", Campo, gvi)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo, gvi)).ToString = String.Format("{0} DESC", Campo) Then - ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo) - Literal.Text = String.Format("") - Else - ViewState(String.Format("O{0}", Campo, gvi)) = String.Format("{0} DESC", Campo) - Literal.Text = String.Format("") - End If - Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo, gvi)).ToString - ViewState("Orden") = Orden - CargaGridDevoluciones(Orden, gvi) - End Sub - - Protected Sub CargaGridDevoluciones(Orden As String, gvi As Integer) - Dim DV As DataView = Nothing - - DV = New DataView(DtDevoluciones, "", Orden, DataViewRowState.CurrentRows) - If Orden <> String.Empty Then - GvDevoluciones.DataSource = DV.ToTable() - Else - GvDevoluciones.DataSource = DtDevoluciones - End If - ViewState("Orden1") = Orden - - GvDevoluciones.DataBind() - UpDevoluciones.Update() - DV.Dispose() - End Sub - -#End Region - -#Region "I M A G E - B U T T O N Y L I N K S" - Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click - Limpia() - CargaDatos(-1, DdlTipo.SelectedValue.ToEntero, TxtFecha.Text.Trim.ToDate, TxtNumero.Text.Trim.ToEntero) - End Sub - - Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click - If GvDatos.Rows.Count = 0 Then - Alert("Debe agregar movimientos a la póliza.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - If LblCargo.Text.Trim.ToDouble <> LblAbono.Text.Trim.ToDouble Then - Alert("El total del CARGO debe coincidir con el total del ABONO.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - BtnGuardar.OnClientClick = "FncVerifica();" - - If ChkPolizaComplementaria.Checked Then - If CvePoliza < 0 Then - GuardaPolizaComplementaria() - ElseIf HdnGuardar.Value = "" Or HdnGuardar.Value = "True" Then - ActualizaPolizaComplementaria() - ElseIf HdnGuardar.Value = "False" Then - Alert("Los datos no se guardaron", TipoMensaje.MsgError) - End If - Else - If CvePoliza < 0 Then - GuardaPoliza() - ElseIf HdnGuardar.Value = "" Or HdnGuardar.Value = "True" Then - ActualizaPoliza() - ElseIf HdnGuardar.Value = "False" Then - Alert("Los datos no se guardaron", TipoMensaje.MsgError) - End If - End If - - - End Sub - Protected Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles BtnNuevo.Click - CvePoliza = -1 - DdlTipo.SelectedIndex = 0 - DdlTipoPoliza.SelectedIndex = 0 - DdlSegNeg.SelectedIndex = 0 - - BtnGuardar.OnClientClick = "" - TxtFecha.Text = "" - TxtNumero.Text = "" - TxtFechaPoliza.Text = "" - TxtNumeroPoliza.Text = "" - TxtConcepto.Text = "" - TxtReferencia.Text = "" - TxtCuenta.Text = "" - HdnCveCuenta.Value = "" - TxtNombreConcepto.Text = "" - TxtCargo.Text = "" - TxtAbono.Text = "" - LblCargo.Text = "0.00" - LblAbono.Text = "0.00" - - HdnFechaPoliza.Value = TxtFechaPoliza.Text - HdnFolioPoliza.Value = TxtNumeroPoliza.Text - HdnTipoPoliza.Value = DdlTipoPoliza.SelectedValue - - BtnEliminar.Visible = False - - GvDatos.DataBind() - UpConsultar.Update() - UpTitulos.Update() - UpDatos.Update() - - If TmpDT Is Nothing Then CreaDTRegPoliza() Else TmpDT.Rows.Clear() - - Limpia() - End Sub - - Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click - If HdnCveCuenta.Value.ToEntero <= 0 Then Alert("Debe de seleccionar la cuenta.", TipoMensaje.MsgAdvertencia) : TxtCuenta.Focus() : Exit Sub - - If (TxtCargo.Text.Length = 0 And TxtAbono.Text.Length = 0) Or (TxtCargo.Text.Trim.ToDouble > 0 And TxtAbono.Text.Trim.ToDouble > 0) Then - Alert("Debes asignar un valor para CARGO o para ABONO", TipoMensaje.MsgAdvertencia) - Else - If TxtCargo.Text = "" Then TxtCargo.Text = "0" - If TxtAbono.Text = "" Then TxtAbono.Text = "0" - AddRegPolizaDetalle(-1, TxtReferencia.Text, HdnCveCuenta.Value.ToEntero, TxtCuenta.Text, DdlSegNeg.SelectedValue, DdlSegNeg.SelectedItem.Text, TxtNombreConcepto.Text, TxtCargo.Text.ToDouble, TxtAbono.Text.ToDouble) - CargaGrid() - UpDatos.Update() - TxtReferencia.Focus() - - DdlSegNeg.SelectedIndex = 0 - TxtCargo.Text = "" - TxtAbono.Text = "" - HdnCveCuenta.Value = "" - TxtCuenta.Text = "" - BtnNuevo.OnClientClick = "return confirm('Se han hecho cambios que no fueron guardados, ¿Continuar?')" - End If - End Sub - -#End Region - - Private Sub CargaGrid() - GvDatos.DataBind() - GvDatos.DataSource = TmpDT - GvDatos.DataBind() - - LblAbono.Text = TmpDT.SUM("Abono", "Estado<>'D'").FormatoNumero - LblCargo.Text = TmpDT.SUM("Cargo", "Estado<>'D'").FormatoNumero - LblDiferencia.Text = (LblCargo.Text.Trim.ToDouble - LblAbono.Text.Trim.ToDouble).FormatoNumero - - If LblDiferencia.Text.ToDouble >= 0 Then - LblDiferencia.ForeColor = Drawing.Color.Black - Else - BtnGuardar.Enabled = True - LblDiferencia.ForeColor = Drawing.Color.Red - End If - - End Sub - -#Region " P O L I Z A S - C O M P L E M E N T A R I A S " - Private Sub CargaPolizaComplementaria(tCvePoliza As Integer) - Dim ObjPoliza As New ClsContabilidad - Dim DT As DataTable = Nothing - - If ObjPoliza.GetPoliza(tCvePoliza, UsuarioActual.CveEmpresa) Then - DT = ObjPoliza.DtResultados - BtnGuardar.OnClientClick = "FncVerifica();" - - ChkPolizaComplementaria.Checked = True - - If DT.Rows.Count = 0 Then - TxtFechaPoliza.Text = Now.ToShortDateString - TxtNumeroPoliza.Text = "" - LblCargo.Text = "" - LblAbono.Text = "" - TxtConcepto.Text = "" - Alert("No se encontró ninguna póliza, verifique los datos.", TipoMensaje.MsgAdvertencia) - Else - Dim dr As DataRow = DT.Rows(0) - TxtFechaPoliza.Text = dr("FechaPol").ToString.ToDate.ToShortDateString - HdnFechaPoliza.Value = dr("FechaPol").ToString.ToDate.ToShortDateString - HdnTipoPoliza.Value = DdlTipoPoliza.SelectedValue - TxtNumeroPoliza.Text = dr("Folio").ToString - HdnFolioPoliza.Value = dr("Folio").ToString - TxtConcepto.Text = dr("ConceptoPoliza").ToString - HdnlCargo.Value = dr("Cargos").ToString - HdnlAbono.Value = dr("Abonos").ToString - LblCargo.Text = dr("Cargos").ToString - LblAbono.Text = dr("Abonos").ToString - LblNumPoliza.ToolTip = dr("CvePoliza").ToString - - If Math.Abs(dr("Cargos").ToString.ToDecimal - DT.SUM("Cargo")) > 0.001 OrElse Math.Abs(dr("Abonos").ToString.ToDecimal - DT.SUM("Abono")) > 0.001 Then - Dim Str As New StringBuilder - Str.AppendFormat("Los Totales de la póliza no coinciden con los movimientos
Cargos en Póliza: {0} Cargos en Movimientos: {1}
Abonos en Póliza: {2} Abonos en Movimientos: {3}
", dr("Cargos").ToString, DT.SUM("Cargo").ToString, dr("Abonos").ToString, DT.SUM("Abono").ToString) - Alert(Str.ToString, TipoMensaje.MsgError) - End If - - CvePoliza = dr("CvePoliza").ToString.ToEntero - End If - - End If - ObjPoliza.Dispose() - - If TmpDT Is Nothing Then CreaDTRegPoliza() - TmpDT.Clear() - If DT IsNot Nothing Then TmpDT.Merge(DT) - - If LblDiferencia.Text.Trim.ToDouble <> 0 Then - Alert("Verifique los cargos y abonos de los movimientos", TipoMensaje.MsgInformacion) - ElseIf HdnlCargo.Value.ToDouble <> LblCargo.Text.ToDouble Then - Alert("El cargo de la póliza " + HdnlCargo.Value + " no coincide con la sumatoria de cargos de los movimientos", TipoMensaje.MsgInformacion) - ElseIf HdnlAbono.Value.ToDouble <> LblAbono.Text.ToDouble Then - Alert("El abono de la póliza " + HdnlAbono.Value + " no coincide con la sumatoria de abonos de los movimientos", TipoMensaje.MsgInformacion) - End If - - CargaGrid() - UpTitulos.Update() - UpDatos.Update() - - If DT IsNot Nothing Then DT.Dispose() - End Sub - - Private Sub GuardaPolizaComplementaria() - Dim OcurrioError As Boolean = False - Dim ObjConta As New ClsContabilidad - Dim tCvePoliza As Integer - Dim NumPoliza As String = "-1" - Dim Tipo As String = "" - - ObjConta.IniciaTransacSQL() - - If TxtNumeroPoliza.Text.Trim <> "" Then - NumPoliza = TxtNumeroPoliza.Text.Trim - Tipo = "CHQ" - Else - - End If - - tCvePoliza = ObjConta.AddPoliza(DdlTipoPoliza.SelectedValue.ToEntero, TxtFolio.Text.ToEntero, TxtFechaPoliza.Text.Trim.ToDate, TxtConcepto.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - - If tCvePoliza > 0 Then - - 'Agrega Movimientos de la poliza - For Each Row As DataRow In TmpDT.Rows - If Row("Cargo").ToString.ToDecimal <> 0 Then - If Not ObjConta.AddPolizaDetalle(tCvePoliza, Row("CveCuenta").ToString.ToEntero, Row("Cuenta").ToString, Row("CveSubProyecto").ToString.ToEntero, False, - Row("Cargo").ToString.ToDouble, Row("Referencia").ToString, Row("Concepto").ToString, - TxtFechaPoliza.Text.Trim.ToDate) Then - OcurrioError = True - End If - Else - If Not ObjConta.AddPolizaDetalle(tCvePoliza, Row("CveCuenta").ToString.ToEntero, Row("Cuenta").ToString, Row("CveSubProyecto").ToString.ToEntero, True, - Row("Abono").ToString.ToDouble, Row("Referencia").ToString, Row("Concepto").ToString, - TxtFechaPoliza.Text.Trim.ToDate) Then - OcurrioError = True - End If - End If - Next - - - If OcurrioError Then - ObjConta.RollBack() - Alert("Ocurrió un error al guardar la póliza.", TipoMensaje.MsgAdvertencia) - Else - Alert(String.Format("La información se guardó correctamente."), TipoMensaje.MsgInformacion) - ObjConta.Commit() - CvePoliza = tCvePoliza - Limpia() - CargaPolizaComplementaria(CvePoliza) - BtnNuevo.OnClientClick = "" - End If - End If - - UpTitulos.Update() - UpDatos.Update() - UpConsultar.Update() - ObjConta.Dispose() - End Sub - - Private Sub ActualizaPolizaComplementaria() - Dim OcurrioError As Boolean = False - Dim ObjConta As New ClsContabilidad - Dim Row As DataRow - ObjConta.IniciaTransacSQL() - - - If ObjConta.UpdatePoliza(TxtFechaPoliza.Text.Trim.ToDate, TxtNumeroPoliza.Text.ToEntero, CvePoliza, TxtConcepto.Text.Trim, DdlTipoPoliza.SelectedValue.ToEntero) Then - - For Each Row In TmpDT.Rows - If Row("Estado").ToString.Trim = "D" AndAlso Row("CvePolizaDetalle").ToString.ToEntero > 0 Then - ObjConta.RemovePolizaDetalle(Row("CvePolizaDetalle").ToString.ToEntero) - Else - Dim Importe As Double = If(Row("Cargo").ToString.ToDouble <> 0, Row("Cargo"), Row("Abono")).ToString.ToDouble - Dim TipoMovto As Boolean = Not Row("Cargo").ToString.ToDouble <> 0 - - If Row("CvePolizaDetalle").ToString.ToEntero <> -1 Then - - If Not ObjConta.UpdatePolizaDetalle(Row("CvePolizaDetalle").ToString.ToEntero, Row("CveCuenta").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, TipoMovto, Importe, Row("Referencia").ToString, Row("Concepto").ToString) Then - OcurrioError = True - End If - - Else - - If Not ObjConta.AddPolizaDetalle(CvePoliza.ToString.ToEntero, Row("CveCuenta").ToString.ToEntero, Row("Cuenta").ToString, Row("CveSubProyecto").ToString.ToEntero, TipoMovto, Importe, Row("Referencia").ToString, Row("Concepto").ToString, TxtFechaPoliza.Text.Trim.ToDate) Then - OcurrioError = True - End If - - End If - End If - Next - - If OcurrioError Then - ObjConta.RollBack() - Alert("Ocurrió un error al actualizar los movimientos de la póliza complementaria", TipoMensaje.MsgAdvertencia) - Else - Alert("La póliza se actualizó correctamente.", TipoMensaje.MsgInformacion) - ObjConta.Commit() - HdnFechaPoliza.Value = TxtFechaPoliza.Text.ToDate.ToShortDateString - HdnTipoPoliza.Value = DdlTipoPoliza.SelectedValue - CargaPolizaComplementaria(CvePoliza) - BtnNuevo.OnClientClick = "" - End If - Else - ObjConta.RollBack() - End If - - ObjConta.Dispose() - End Sub -#End Region - -#Region "P R O C E D I M I E N T O S" - Private Sub CargaDatos(tCvePoliza As Integer, Optional CveTipoPoliza As Integer = -1, Optional Fecha As Date = MinFecha, Optional Folio As Integer = -1) - Dim ObjPoliza As New ClsContabilidad - Dim DT As DataTable = Nothing - - If (tCvePoliza = -1 And ObjPoliza.GetPoliza(CveTipoPoliza, Fecha, Folio, UsuarioActual.CveEmpresa)) OrElse ObjPoliza.GetPoliza(tCvePoliza, UsuarioActual.CveEmpresa) Then - DT = ObjPoliza.DtResultados - - BtnGuardar.OnClientClick = "FncVerifica();" - - If DT.Rows.Count = 0 Then - TxtFechaPoliza.Text = Now.ToShortDateString - TxtNumeroPoliza.Text = "" - LblCargo.Text = "" - LblAbono.Text = "" - TxtConcepto.Text = "" - Alert("No se encontró ninguna Póliza, verifique los datos.", TipoMensaje.MsgAdvertencia) - Else - Dim dr As DataRow = DT.Rows(0) - - HLImprimir.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta($"OP=POL&CvePoliza={dr("CvePoliza").ToString.ToEntero}")) - - TxtFechaPoliza.Text = dr("Fecha").ToString.ToDate.ToShortDateString - HdnFechaPoliza.Value = dr("Fecha").ToString.ToDate.ToShortDateString - DdlTipoPoliza.SelectedValue = dr("CveTipoPoliza").ToString.Trim - HdnTipoPoliza.Value = DdlTipoPoliza.SelectedValue - TxtNumeroPoliza.Text = dr("Folio").ToString - HdnFolioPoliza.Value = dr("Folio").ToString - TxtConcepto.Text = dr("ConceptoPoliza").ToString - HdnlCargo.Value = dr("Cargos").ToString - HdnlAbono.Value = dr("Abonos").ToString - LblCargo.Text = dr("Cargos").ToString - LblAbono.Text = dr("Abonos").ToString - LblNumPoliza.ToolTip = dr("CvePoliza").ToString - - If Math.Abs(dr("Cargos").ToString.ToDecimal - DT.SUM("Cargo")) > 0.001 OrElse Math.Abs(dr("Abonos").ToString.ToDecimal - DT.SUM("Abono")) > 0.001 Then - Dim Str As New StringBuilder - Str.AppendFormat("Los Totales de la póliza no coinciden con los movimientos
Cargos en Póliza: {0} Cargos en Movimientos: {1}
Abonos en Póliza: {2} Abonos en Movimientos: {3}
", dr("Cargos").ToString, DT.SUM("Cargo").ToString, dr("Abonos").ToString, DT.SUM("Abono").ToString) - Alert(Str.ToString, TipoMensaje.MsgError) - End If - - CvePoliza = dr("CvePoliza").ToString.ToEntero - - If UsuarioActual.TienePermisoProceso(145) Then - BtnEliminar.Visible = True - End If - End If - End If - - ObjPoliza.Dispose() - - TmpDT = DT - TmpDT.Columns.Add("CtaCodigo", GetType(String)) - - For Each dr As DataRow In TmpDT.Rows - dr("CtaCodigo") = DTCuentas.FiltroPrimeroValor("CtaCodigo", $"CveCuenta={dr("CveCuenta")}") - Next - - TmpDT.AcceptChanges() - - If LblDiferencia.Text.Trim.ToDouble <> 0 Then - Alert("Verifique los cargos y abonos de los movimientos", TipoMensaje.MsgAdvertencia) - ElseIf HdnlCargo.Value.ToDouble <> LblCargo.Text.ToDouble Then - Alert("El cargo de la póliza " + HdnlCargo.Value + " no coincide con la sumatoria de cargos de los movimientos", TipoMensaje.MsgAdvertencia) - ElseIf HdnlAbono.Value.ToDouble <> LblAbono.Text.ToDouble Then - Alert("El abono de la póliza " + HdnlAbono.Value + " no coincide con la sumatoria de abonos de los movimientos", TipoMensaje.MsgAdvertencia) - End If - - RegistraScript("PrendeGVS();") 'Aseguramos que se cargue el gridViewScroll - CargaGrid() - - UpTitulos.Update() - UpDatos.Update() - - If DT IsNot Nothing Then DT.Dispose() - End Sub - - Private Sub GuardaPoliza() - Dim OcurrioError As Boolean = False - Dim ObjConta As New ClsContabilidad - ObjConta.IniciaTransacSQL() - Dim tCvePoliza As Integer - Dim NumPoliza As String = TxtNumeroPoliza.Text.Trim - Dim Tipo As String = "" - - If Not TxtNumeroPoliza.Text.Trim <> "" Then - Tipo = "CHQ" - End If - - tCvePoliza = ObjConta.AddPoliza(DdlTipoPoliza.SelectedValue.ToEntero, NumPoliza.ToEntero, TxtFechaPoliza.Text.Trim.ToDate, TxtConcepto.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - - If tCvePoliza > 0 Then - - 'Agrega Movimientos de la poliza - For Each Row As DataRow In TmpDT.Rows - If Row("Cargo").ToString.ToDecimal <> 0 Then - If Not ObjConta.AddPolizaDetalle(tCvePoliza, Row("CveCuenta").ToString.ToEntero, Row("Cuenta").ToString, Row("CveSubProyecto").ToString.ToEntero, False, - Row("Cargo").ToString.ToDouble, Row("Referencia").ToString, Row("Concepto").ToString, - TxtFechaPoliza.Text.Trim.ToDate) Then - OcurrioError = True - End If - Else - If Not ObjConta.AddPolizaDetalle(tCvePoliza, Row("CveCuenta").ToString.ToEntero, Row("Cuenta").ToString, Row("CveSubProyecto").ToString.ToEntero, True, - Row("Abono").ToString.ToDouble, Row("Referencia").ToString, Row("Concepto").ToString, - TxtFechaPoliza.Text.Trim.ToDate) Then - OcurrioError = True - End If - End If - Next - - If DtDevoluciones IsNot Nothing AndAlso DtDevoluciones.Rows.Count > 0 Then - 'Agrega Devoluciones - For Each row As DataRow In DtDevoluciones.Rows - If Not ObjConta.AddDevolucionesIVA(tCvePoliza, row("IdCuenta").ToString.ToEntero, row("IdProveedor").ToString.ToEntero, row("Tasa").ToString.ToDouble, row("ImporteBase").ToString.ToDouble, - row("ImporteIVA").ToString.ToDouble, row("RetIVA").ToString.ToDouble, row("RetISR").ToString.ToDouble, TxtFechaPoliza.Text.ToDate, row("Referencia").ToString, row("Serie").ToString, row("Folio").ToString.ToEntero, "") Then - OcurrioError = True - End If - Next - End If - - If Not OcurrioError Then - If Not ObjConta.AjustaPoliza(tCvePoliza) Then - OcurrioError = True - End If - End If - - If OcurrioError Then - ObjConta.RollBack() - Alert("Ocurrió un error al guardar la póliza.", TipoMensaje.MsgAdvertencia) - Else - ObjConta.Commit() - CvePoliza = tCvePoliza - Limpia() - CargaDatos(CvePoliza) - BtnNuevo.OnClientClick = "" - Alert(String.Format("La información se guardó correctamente con el numero de póliza: {0}", ObjConta.ContaFolio), TipoMensaje.MsgInformacion) - End If - End If - - UpTitulos.Update() - UpDatos.Update() - UpConsultar.Update() - ObjConta.Dispose() - End Sub - - Private Sub AddRegPolizaDetalle(CvePoliza As Integer, Referencia As String, CveCuenta As Integer, Cuenta As String, CveSubProyecto As String, SubProyecto As String, NombreConcepto As String, Cargo As Double, Abono As Double) - Dim Row As DataRow = Nothing - Row = TmpDT.NewRow() - Row("CvePoliza") = CvePoliza - Row("Referencia") = Referencia - Row("CveCuenta") = CveCuenta - Row("Cuenta") = Cuenta - Row("CtaCodigo") = Cuenta - Row("CveSubProyecto") = CveSubProyecto - Row("SubProyecto") = SubProyecto - Row("Concepto") = NombreConcepto - Row("Estado") = "I" - Row("Cargo") = Cargo - Row("Abono") = Abono - TmpDT.Rows.Add(Row) - CargaGrid() - End Sub - - Private Sub ActualizaPoliza() - Dim OcurrioError As Boolean = False - Dim ObjConta As New ClsContabilidad - Dim Row As DataRow - ObjConta.IniciaTransacSQL() - - If ObjConta.UpdatePoliza(TxtFechaPoliza.Text.Trim.ToDate, TxtNumeroPoliza.Text.ToEntero, CvePoliza.ToString.ToEntero, TxtConcepto.Text.Trim, DdlTipoPoliza.SelectedValue.ToEntero) Then - - For Each Row In TmpDT.Rows - - If Row("Estado").ToString.Trim = "D" AndAlso Row("CvePolizaDetalle").ToString.ToEntero > 0 Then - ObjConta.RemovePolizaDetalle(Row("CvePolizaDetalle").ToString.ToEntero) - Else - Dim Importe As Double = If(Row("Cargo").ToString.ToDouble <> 0, Row("Cargo"), Row("Abono")).ToString.ToDouble - Dim ImporteME As Double = If(Row("CargoME").ToString.ToDouble <> 0, Row("CargoME"), Row("AbonoME")).ToString.ToDouble - Dim TipoMovto As Boolean = Not Row("Cargo").ToString.ToDouble <> 0 - - If Row("CvePolizaDetalle").ToString.ToEntero > 0 Then - If Not ObjConta.UpdatePolizaDetalle(Row("CvePolizaDetalle").ToString.ToEntero, Row("CveCuenta").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, TipoMovto, Importe, Row("Referencia").ToString, Row("Concepto").ToString) Then - OcurrioError = True - End If - Else - If Not ObjConta.AddPolizaDetalle(CvePoliza.ToString.ToEntero, Row("CveCuenta").ToString.ToEntero, Row("Cuenta").ToString, Row("CveSubProyecto").ToString.ToEntero, TipoMovto, Importe, Row("Referencia").ToString, Row("Concepto").ToString, TxtFechaPoliza.Text.Trim.ToDate) Then - OcurrioError = True - End If - End If - - End If - - Next - - If OcurrioError Then - ObjConta.RollBack() - Alert("Ocurrió un error al actualizar los movimientos de la póliza", TipoMensaje.MsgAdvertencia) - Else - Alert("La póliza se actualizó correctamente.", TipoMensaje.MsgInformacion) - ObjConta.Commit() - HdnFechaPoliza.Value = TxtFechaPoliza.Text.ToDate.ToShortDateString - HdnTipoPoliza.Value = DdlTipoPoliza.SelectedValue - CargaDatos(CvePoliza) - BtnNuevo.OnClientClick = "" - End If - Else - ObjConta.RollBack() - End If - - - ObjConta.Dispose() - End Sub - -#End Region - - Private Sub Limpia() - HdnCveCuenta.Value = "" - HdnlAbono.Value = "" - HdnlCargo.Value = "" - LblDiferencia.Text = "" - DtDevoluciones = Nothing - GvDevoluciones.DataBind() - End Sub - - -#Region "G R I D - V I E W" - Protected Sub GvDevoluciones_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDevoluciones.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - - If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then - e.Row.FCDropDownList("DdlProveedor").SelectedIndex = -1 - e.Row.FCDropDownList("DdlProveedor").DataSource = DtProveedoresConta - e.Row.FCDropDownList("DdlProveedor").DataBind() - e.Row.FCDropDownList("DdlProveedor").SelectedValueExist(e.Row.DataKey("IdProveedor")) - e.Row.FCTextBox("TxtImporteBase").Attributes.Add("onkeyup", String.Format("FormatoMoneda(this);CalculaImporteIVA({0},{1},{2});CalculaImporteSinRet({0},{2},{3});CalculaTotalErogacion({3},{4},{5},{6});", e.Row.FCTextBox("TxtImporteBase").ClientID, e.Row.FCDropDownList("DdlTasa").ClientID, e.Row.FCTextBox("TxtImporteIVA").ClientID, e.Row.FCLabel("LbImporteSinRet").ClientID, e.Row.FCTextBox("TxtRetIVA").ClientID, e.Row.FCTextBox("TxtRetISR").ClientID, e.Row.FCLabel("LbGranTotalAdd").ClientID)) - e.Row.FCTextBox("TxtImporteIVA").Attributes.Add("onkeyup", String.Format("FormatoMoneda(this);CalculaImporteSinRet({0},{2},{3});CalculaTotalErogacion({3},{4},{5},{6});", e.Row.FCTextBox("TxtImporteBase").ClientID, e.Row.FCDropDownList("DdlTasa").ClientID, e.Row.FCTextBox("TxtImporteIVA").ClientID, e.Row.FCLabel("LbImporteSinRet").ClientID, e.Row.FCTextBox("TxtRetIVA").ClientID, e.Row.FCTextBox("TxtRetISR").ClientID, e.Row.FCLabel("LbGranTotalAdd").ClientID)) - e.Row.FCTextBox("TxtRetIVA").Attributes.Add("onkeyup", String.Format("FormatoMoneda(this);CalculaTotalErogacion({3},{4},{5},{6});", e.Row.FCTextBox("TxtImporteBase").ClientID, e.Row.FCDropDownList("DdlTasa").ClientID, e.Row.FCTextBox("TxtImporteIVA").ClientID, e.Row.FCLabel("LbImporteSinRet").ClientID, e.Row.FCTextBox("TxtRetIVA").ClientID, e.Row.FCTextBox("TxtRetISR").ClientID, e.Row.FCLabel("LbGranTotalAdd").ClientID)) - e.Row.FCTextBox("TxtRetISR").Attributes.Add("onkeyup", String.Format("FormatoMoneda(this);CalculaTotalErogacion({3},{4},{5},{6});", e.Row.FCTextBox("TxtImporteBase").ClientID, e.Row.FCDropDownList("DdlTasa").ClientID, e.Row.FCTextBox("TxtImporteIVA").ClientID, e.Row.FCLabel("LbImporteSinRet").ClientID, e.Row.FCTextBox("TxtRetIVA").ClientID, e.Row.FCTextBox("TxtRetISR").ClientID, e.Row.FCLabel("LbGranTotalAdd").ClientID)) - End If - - End If - End Sub - - Protected Sub GvDevoluciones_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GvDevoluciones.RowCancelingEdit - GvDevoluciones.EditIndex = -1 - CargaGridDevoluciones("", 0) - UpDevoluciones.Update() - End Sub - - 'Protected Sub GvDevoluciones_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDevoluciones.RowDeleting - ' Dim ErrorEliminar = False - - ' If CvePoliza > 0 Then - ' Dim ObjConta As New ClsContabilidad - - ' If Not ObjConta.RemoveDevolucionesIVA(e.Keys("Id").ToString.ToEntero) Then - ' ErrorEliminar = True - ' End If - - ' ObjConta.Dispose() - ' CargaDevoluciones() - ' Else - ' DtDevoluciones.Rows().RemoveAt(e.Keys("Id").ToString.ToEntero - 1) - ' CargaGridDevoluciones("", 0) - ' End If - - ' If Not ErrorEliminar Then - ' Alert("La Devolución fue eliminada correctamente.", TipoMensaje.MsgInformacion) - ' Else - ' Alert("Ocurrió un error al eliminar la Devolución", TipoMensaje.MsgError) - ' End If - 'End Sub - - Protected Sub GvDevoluciones_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvDevoluciones.RowEditing - GvDevoluciones.EditIndex = e.NewEditIndex - CargaGridDevoluciones("", 0) - End Sub - - 'Protected Sub GvDevoluciones_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvDevoluciones.RowUpdating - ' Dim ErrorDevolucion = False - - ' If CvePoliza > 0 Then - ' Dim gvr As GridViewRow = GvDevoluciones.Rows(e.RowIndex) - ' Dim ObjConta As New ClsContabilidad - - ' If ObjConta.UpdateDevolucionesIVA(gvr.DataKey("Id").ToEntero, CvePoliza, DdlCuenta.SelectedValue.ToEntero, - ' gvr.FCDropDownList("DdlProveedor").SelectedValue.ToEntero, gvr.FCDropDownList("DdlTasa").SelectedValue.ToDouble, - ' gvr.FCTextBox("TxtImporteBase").Text.ToDouble, gvr.FCTextBox("TxtImporteIVA").Text.ToDouble, - ' gvr.FCTextBox("TxtRetIVA").Text.ToDouble, gvr.FCTextBox("TxtRetISR").Text.ToDouble, Date.Now, - ' gvr.FCTextBox("TxtReferenciaDevolucion").Text, gvr.FCTextBox("TxtSerie").Text, gvr.FCTextBox("TxtFolio").Text.ToEntero) Then - ' Alert("Devolución Actualizada con Éxito", TipoMensaje.MsgInformacion) - ' Else - ' Alert("Ocurrió un error al Actualizar la Devolución", TipoMensaje.MsgError) - ' ErrorDevolucion = True - ' End If - - ' ObjConta.Dispose() - - ' If Not ErrorDevolucion Then - ' GvDevoluciones.EditIndex = -1 - ' CargaDevoluciones() - ' End If - ' Else - ' Dim row() = DtDevoluciones.Select(String.Format("Id = {0}", e.Keys("Id"))) - - ' row(0)("IdProveedor") = GvDevoluciones.Rows(e.RowIndex).FCDropDownList("DdlProveedor").SelectedValue - ' row(0)("Tasa") = GvDevoluciones.Rows(e.RowIndex).FCDropDownList("DdlTasa").SelectedValue - ' row(0)("ImporteBase") = GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtImporteBase").Text - ' row(0)("ImporteIVA") = GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtImporteIVA").Text - ' row(0)("RetIVA") = GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtRetIVA").Text - ' row(0)("RetISR") = GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtRetISR").Text - ' row(0)("Referencia") = GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtReferenciaDevolucion").Text - ' row(0)("Serie") = GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtSerie").Text - ' row(0)("Folio") = GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtFolio").Text - ' row(0)("Proveedor") = GvDevoluciones.Rows(e.RowIndex).FCDropDownList("DdlProveedor").SelectedItem.Text - ' row(0)("ImporteAntesRet") = GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtImporteBase").Text.ToDouble + GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtImporteIVA").Text.ToDouble - ' row(0)("GranTotal") = row(0)("ImporteAntesRet").ToString.ToDouble - GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtRetIVA").Text.ToDouble - GvDevoluciones.Rows(e.RowIndex).FCTextBox("TxtRetISR").Text.ToDouble - - - ' GvDevoluciones.EditIndex = -1 - ' CargaGridDevoluciones("", 0) - ' End If - - 'End Sub - -#End Region - -#Region "D E V O L U C I O N E S - I V A" - Protected Sub LbAgregarDevolucion_Click(sender As Object, e As EventArgs) - ' Dim ErrorDevolucion = False - - ' If CvePoliza > 0 Then - ' Dim ObjConta As New ClsContabilidad - - ' If ObjConta.AddDevolucionesIVA(CvePoliza, DdlCuenta.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero, DdlTasa.SelectedValue.ToDouble, TxtImporteBase.Text.ToDouble, TxtImporteIVA.Text.ToDouble, - ' TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtFechaPoliza.Text.ToDate, TxtReferenciaDevolucion.Text, TxtSerie.Text, TxtFolio.Text.ToEntero, "") Then - ' Alert("Devolución Agregada con Éxito", TipoMensaje.MsgInformacion) - ' Else - ' ErrorDevolucion = True - ' Alert("Ocurrió un error al agregar la Devolución", TipoMensaje.MsgAdvertencia) - ' End If - - ' ObjConta.Dispose() - - ' If Not ErrorDevolucion Then - ' CargaDevoluciones() - ' End If - ' Else - ' Dim row = DtDevoluciones.NewRow - - ' row("ID") = (DtDevoluciones.Rows.Count + 1).ToString - ' row("IdProveedor") = DdlProveedor.SelectedValue - ' row("Tasa") = DdlTasa.SelectedValue - ' row("ImporteBase") = TxtImporteBase.Text - ' row("ImporteIVA") = TxtImporteIVA.Text - ' row("RetIVA") = TxtRetIVA.Text - ' row("RetISR") = TxtRetISR.Text - ' row("Referencia") = TxtReferenciaDevolucion.Text - ' row("Serie") = TxtSerie.Text - ' row("Folio") = TxtFolio.Text - ' row("Proveedor") = DdlProveedor.SelectedItem.Text - ' row("ImporteAntesRet") = TxtImporteBase.Text.ToDouble + TxtImporteIVA.Text.ToDouble - ' row("GranTotal") = row("ImporteAntesRet").ToString.ToDouble - TxtRetIVA.Text.ToDouble - TxtRetISR.Text.ToDouble - ' DtDevoluciones.Rows.Add(row) - - ' CargaGridDevoluciones("", 0) - - ' End If - - ' LimpiaDevoluciones() - End Sub - - Protected Sub LbAgregarCausacion_Click(sender As Object, e As EventArgs) - ' Dim ErrorDevolucion = False - - ' If CvePoliza > 0 Then - ' Dim ObjConta As New ClsContabilidad - - ' Dim TotalTasa16 As Double = TxtImporteTotalC.Text.ToDouble - ' Dim BaseTasa16 As Double = TxtImporteBaseC.Text.ToDouble - ' Dim IVATasa16 As Double = TxtIVAC.Text.ToDouble - ' Dim IVATasaNoAcreditable As Double = TxtIvaNoAcreditableC.Text.ToDouble - ' Dim ISRRetenido As Double = TxtISRRetenidoC.Text.ToDouble - ' Dim IVARetenido As Double = TxtIVARetenidoC.Text.ToDouble - ' Dim ietu As Double = TxtIETU.Text.ToDouble - ' Dim cuenta As String - ' Dim CuentasConcatenadas As New StringBuilder - ' Dim importeMaximo As Double - - ' If DrParametros IsNot Nothing Then - ' cuenta = DrParametros("CtaFlujo").ToString - - ' ObjConta.GetCuentasCausaciones(cuenta) - - ' For Each row As DataRow In ObjConta.DtResultados.Rows - ' Dim ct As String = row("IdSubCtade").ToString - ' CuentasConcatenadas.AppendFormat("{0},", ct) - - ' Next - ' End If - - ' importeMaximo = TmpDT.SUM("Cargo", String.Format("CveCuenta IN ( {0} )", CuentasConcatenadas.ToString.TrimEnd(","c))).ToString.ToDecimal - - ' If LbAgregarCausacion.Text = "Agregar" And importeMaximo = TotalTasa16 Then - ' If ObjConta.AddCausacionesIVA(CvePoliza, TotalTasa16, BaseTasa16, IVATasa16, IVATasaNoAcreditable, ISRRetenido, IVARetenido, ChkNoCausar.Checked, IETU:=ietu) Then - ' Alert("El movimiento se realizó correctamente", TipoMensaje.MsgInformacion) - ' End If - ' ElseIf LbAgregarCausacion.Text = "Actualizar" And importeMaximo = TotalTasa16 Then - ' If ObjConta.UpdateCausacionesIVA(CvePoliza, TotalTasa16, BaseTasa16, IVATasa16, IVATasaNoAcreditable, ISRRetenido, IVARetenido, ChkNoCausar.Checked, ietu:=ietu) Then - ' Alert("El movimiento se realizó correctamente", TipoMensaje.MsgInformacion) - ' End If - ' Else - ' Alert("El importe total desglosado con coincide con el importe de la cuenta de flujo de efectivo", TipoMensaje.MsgAdvertencia) - ' End If - - ' ObjConta.Dispose() - ' End If - - ' CargaCausaciones() - End Sub - - Private Sub LimpiaDevoluciones() - TxtSerie.Text = "" - TxtFolio.Text = "" - TxtReferenciaDevolucion.Text = "" - TxtImporteBase.Text = "" - TxtImporteIVA.Text = "" - TxtRetIVA.Text = "" - TxtRetISR.Text = "" - - DdlProveedor.SelectedValue = "-1" - TxtSerie.Focus() - End Sub - - 'Private Sub CargaDevoluciones() - - ' If CvePoliza > 0 Then - ' Dim ObjConta As New ClsContabilidad - - ' PnlDevIVA.Visible = True - - ' If ObjConta.GetDevolucionesIVA(-1, CvePoliza) Then - ' DtDevoluciones = ObjConta.DtResultados - ' Else - ' DtDevoluciones = Nothing - ' Alert("Ocurrió un error al cargar Devoluciones", TipoMensaje.MsgError) - ' End If - - ' If DtDevoluciones IsNot Nothing Then - ' CargaGridDevoluciones("", 0) - ' DdlCuenta.SelectedValueExist(DtDevoluciones.MAX("CveCuenta")) - ' End If - - ' ObjConta.Dispose() - ' Else - ' CreaDtDevoluciones() - ' End If - - 'End Sub - - 'Private Sub CargaCausaciones() - - ' If CvePoliza > 0 Then - ' Dim ObjConta As New ClsContabilidad - - ' PnlCauIVA.Visible = True - - ' If ObjConta.GetCausacionesIVA(-1, CvePoliza) Then - - ' If ObjConta.DtResultados IsNot Nothing AndAlso ObjConta.DtResultados.Rows.Count > 0 Then - ' TxtImporteTotalC.Text = ObjConta.DtResultados.Rows(0)("ImporteTotal").ToString - ' TxtImporteBaseC.Text = ObjConta.DtResultados.Rows(0)("ImporteBase").ToString - ' TxtIVAC.Text = ObjConta.DtResultados.Rows(0)("IVA").ToString - ' TxtIvaNoAcreditableC.Text = ObjConta.DtResultados.Rows(0)("IVANoAcreditable").ToString - ' lblEjercicioTexto.Text = ObjConta.DtResultados.Rows(0)("Año").ToString - ' LblPeriodoTexto.Text = StrConv(MonthName(ObjConta.DtResultados.Rows(0)("Mes").ToString.ToEntero, False), VbStrConv.ProperCase) - ' TxtIVARetenidoC.Text = ObjConta.DtResultados.Rows(1)("ImporteTotal").ToString - ' TxtISRRetenidoC.Text = ObjConta.DtResultados.Rows(2)("ImporteTotal").ToString - ' LblTotalImporte.Text = ObjConta.DtResultados.Rows(3)("ImporteTotal").ToString - ' LblTotalBase.Text = ObjConta.DtResultados.Rows(3)("ImporteBase").ToString - ' LblTotalIVA.Text = ObjConta.DtResultados.Rows(3)("IVA").ToString - ' LblTotalIvaNoAcreditable.Text = ObjConta.DtResultados.Rows(3)("IVANoAcreditable").ToString - ' TxtIETU.Text = ObjConta.DtResultados.Rows(3)("ImporteBase").ToString - - ' If ObjConta.DtResultados.Rows(0)("NoCausar").ToString = "True" Then - ' ChkNoCausar.Checked = True - ' Else - ' ChkNoCausar.Checked = False - ' End If - - ' If TxtImporteTotalC.Text <> "" Then - ' LbAgregarCausacion.Text = "Actualizar" - ' End If - - ' End If - - ' Else - ' Alert("Ocurrió un error al cargar Causaciones", TipoMensaje.MsgError) - ' End If - - ' ObjConta.Dispose() - - ' End If - - 'End Sub - - Private Sub CreaDtDevoluciones() - DtDevoluciones = New DataTable - - DtDevoluciones.Columns.Add("IdProveedor", GetType(Integer)) - DtDevoluciones.Columns.Add("Tasa", GetType(String)) - DtDevoluciones.Columns.Add("ImporteBase", GetType(Double)) - DtDevoluciones.Columns.Add("ImporteIVA", GetType(Double)) - DtDevoluciones.Columns.Add("RetIVA", GetType(Double)) - DtDevoluciones.Columns.Add("RetISR", GetType(Double)) - DtDevoluciones.Columns.Add("Referencia", GetType(String)) - DtDevoluciones.Columns.Add("Serie", GetType(String)) - DtDevoluciones.Columns.Add("Folio", GetType(String)) - - DtDevoluciones.Columns.Add("Id", GetType(Integer)) - DtDevoluciones.Columns.Add("Proveedor", GetType(String)) - DtDevoluciones.Columns.Add("ImporteAntesRet", GetType(Double)) - DtDevoluciones.Columns.Add("GranTotal", GetType(Double)) - - End Sub -#End Region - - Protected Sub LBDevIVA_Click(sender As Object, e As EventArgs) - ' UpDevoluciones.Update() - ' RegistraScript("$get('divDevIVA').style.display='';") - - ' Dim cont As New ClsContabilidad - - ' If cont.GetProveedores() Then - ' DtProveedoresConta = cont.DtResultados - ' DdlProveedor.DataSource = DtProveedoresConta - ' DdlProveedor.DataBind() - ' DdlProveedor.Items.Insert(0, New ListItem("Seleccione uno", "-1")) - ' Else - ' DtProveedoresConta = Nothing - ' Alert("Ocurrió un error al cargar los Proveedores. Por favor recargue la página.", TipoMensaje.MsgError) - ' End If - - ' cont.Dispose() - - ' DdlCuenta.DataSource = DTCuentas - ' DdlCuenta.DataBind() - - ' CargaDevoluciones() - End Sub - - Protected Sub LBCauIVA_Click(sender As Object, e As EventArgs) - ' UpCausaciones.Update() - ' RegistraScript("$get('divCauIVA').style.display='';") - - ' CargaCausaciones() - End Sub - - Protected Sub DdlTipoPoliza_SelectedIndexChanged(sender As Object, e As EventArgs) - RegistraScript("ApagaGVS();") - SiguienteFolio() - End Sub - - Private Sub SiguienteFolio() - Dim ObjConta As New ClsContabilidad - Dim NumPoliza As Integer = 0 - - If ObjConta.GetNumeroPoliza(DdlTipoPoliza.SelectedValue.ToEntero, "", TxtFechaPoliza.Text.ToDate, UsuarioActual.CveEmpresa) Then - NumPoliza = ObjConta.DtResultados(0)("NumPoliza").ToString.ToEntero - If NumPoliza > 0 Then - TxtNumeroPoliza.Text = NumPoliza.ToString - Else - Alert("Ocurrió un error al obtener el número de póliza. Por favor recargue la página", TipoMensaje.MsgError) - End If - End If - - ObjConta.Dispose() - UpTitulos.Update() - End Sub - -#Region " ELIMINAR POLIZA " - Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) - Dim ObjConta As New ClsContabilidad - ObjConta.IniciaTransacSQL() - Dim ObjMov As New ClsContabilidad() - - If ObjConta.RemovePoliza(CvePoliza) Then - If ObjMov.DesvincularPrePolizaContabilizada(CvePoliza, UsuarioActual.CveEmpresa) Then - ObjConta.Commit() - Alert("La Póliza fue eliminada correctamente.", TipoMensaje.MsgInformacion) - BtnNuevo_Click(BtnNuevo, EventArgs.Empty) - Else - ObjConta.RollBack() - Alert("Ocurrió un error al eliminar la Póliza. Por favor vuelva a intentar.", TipoMensaje.MsgError) - End If - Else - ObjConta.RollBack() - Alert("Ocurrió un error al eliminar la Póliza. Por favor vuelva a intentar.", TipoMensaje.MsgError) - End If - - ObjConta.Dispose() - End Sub -#End Region - -End Class diff --git a/PyME/Contabilidad/RegPrePoliza.aspx b/PyME/Contabilidad/RegPrePoliza.aspx deleted file mode 100644 index 395402e56..000000000 --- a/PyME/Contabilidad/RegPrePoliza.aspx +++ /dev/null @@ -1,556 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegPrePoliza.aspx.vb" Inherits="Contabilidad_RegPrePoliza" %> - - - - - - - - - - - - - - - - - - -
- - - -
-
-
- -
-
- - - - -
- - - - - - - - -
-
- -
- - -
-
-
- -
-
-
-
- -
- -
- -
- - -
- - - -
- -
-
- -
- -
-
-
- -
- - - - -
-
-
-
-
-
-
-
-
-
-
- - - - - - - - - - - - - - - - - - - - - - - -
ConceptoCta. ContableReferenciaDescripciónSubProyectoCargoAbonoComandos
- -
- 		- -
- 		- - - - - -
- 		- - - - - -
-
-
-
-
- - -
- - - - - - - - - - - - - - -
CuentaReferenciaDescripciónSubProyectoRef. BancariaCargoAbono
- -
- - - - Cuenta - -
- - - - - - Referencia - - - - - - - Concepto - - - - - - - SubProyecto - - - - - - - Ref. Bancaria - - - - - - - Cargo - - - - - - - Abono - - - - - - - - - - - - - - - -
- - - - - - -
- - - - Movimiento - -
- - - - - Concepto - -
- - - - - SubProyecto - -
- - - - - Cuenta - -
- - - - - Cargo - -
- - - - - - Abono - -
- - - - - - - - - -
- - - - - - - - - - - - -
  - -
- - - - - - -
- - - - - - - diff --git a/PyME/Contabilidad/RegPrePoliza.aspx.vb b/PyME/Contabilidad/RegPrePoliza.aspx.vb deleted file mode 100644 index 43da76101..000000000 --- a/PyME/Contabilidad/RegPrePoliza.aspx.vb +++ /dev/null @@ -1,560 +0,0 @@ -Imports System.Data -Imports Extensiones -Imports System.Linq -Imports System.Web.Services - -Partial Class Contabilidad_RegPrePoliza - Inherits ClsPaginas - - -#Region "Propiedades" - - - Public Property ArregloMovs As ArrayList - Get - Return CType(ViewState("ArregloMovs"), ArrayList) - End Get - Set(value As ArrayList) - ViewState("ArregloMovs") = value - End Set - End Property - - Public Property DtMovimientos As DataTable - Get - Return CType(ViewState("DtMovimientos"), DataTable) - End Get - Set(value As DataTable) - ViewState("DtMovimientos") = value - End Set - End Property - - Public Property DtCuentasContables As DataTable - Get - Return CType(ViewState("DtCuentasContables"), DataTable) - End Get - Set(value As DataTable) - ViewState("DtCuentasContables") = value - End Set - End Property - - Public Property TipoPlantilla As Integer - Get - Return CType(ViewState("TipoPlantilla"), Integer) - End Get - Set(value As Integer) - ViewState("TipoPlantilla") = value - End Set - End Property - - Public Property CveMoneda As Integer - Get - Return CType(ViewState("CveMoneda"), Integer) - End Get - Set(value As Integer) - ViewState("CveMoneda") = value - End Set - End Property - - Private ReadOnly Property CvePrePoliza As Integer - Get - Return ViewState("CvePrePoliza").ToString.ToEntero - End Get - End Property -#End Region - - Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load - - If Not Page.IsPostBack Then - CveMoneda = 1 - ViewState("CvePrePoliza") = 0 - - Dim dt As DataTable = Nothing - Dim Conta As New ClsContabilidad - - If Conta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then - dt = Conta.DtResultados - DtCuentasContables = Conta.DtResultados - Session("DtCuentas") = Conta.DtResultados - End If - Conta.Dispose() - - If Request("CvePrePoliza") IsNot Nothing AndAlso IsNumeric(Request("CvePrePoliza")) AndAlso Request("CvePrePoliza").ToEntero > 0 Then - ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero - CargaPrePoliza() - Exit Sub - End If - - TipoPlantilla = 0 - If IfNull(Request("Tipo"), "").ToString = "Ing" Then - TipoPlantilla = 1 - LblEncabezado.Text = "Otros Ingresos" - Else - - - End If - - CargaPlantillas(TipoPlantilla) - - If UsuarioActual.CveEmpresa = 66 Then trNotificar.Visible = True - - CargaConceptos() - CargaSubProyectos() - CargaCuentasContables() - - 'crea tabla temporal - ArregloMovs = New ArrayList - DtMovimientos = New DataTable("Movimientos") - Dim IDMov As DataColumn = DtMovimientos.Columns.Add("IdMov", Type.GetType("System.Int32")) : IDMov.AutoIncrement = True - With DtMovimientos.Columns - .Add("IdCuenta", Type.GetType("System.Int32")) - .Add("CodigoCuenta", Type.GetType("System.String")) - .Add("Cuenta", Type.GetType("System.String")) - .Add("Referencia", Type.GetType("System.String")) - .Add("Concepto", Type.GetType("System.String")) - .Add("Cargo", Type.GetType("System.Double")) - .Add("Abono", Type.GetType("System.Double")) - .Add("TipoMovto", Type.GetType("System.Int32")) - .Add("EsComodin", Type.GetType("System.Int32")) - .Add("CveConcepto", Type.GetType("System.Int32")) - .Add("CveSubProyecto", Type.GetType("System.Int32")) - .Add("Descripcion", Type.GetType("System.String")) - .Add("CveProveedor", Type.GetType("System.Int32")) - .Add("CvePersonal", Type.GetType("System.Int32")) - End With - - - - End If - - End Sub - - Private Sub CargaPrePoliza() - - LblEncabezado.Text = "Edicion de Póliza" - - Dim ObjContabilidad As New ClsContabilidad - ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza) - - GvPrePoliza.DataSource = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") - GvPrePoliza.DataBind() - - DivConceptoPrePoliza.Visible = False - UPMovs.Visible = False - UPMovs.Update() - UPPDocumento.Update() - UpPrePoliza.Update() - - RegistraScript("comparar();") - - If Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").ToEntero = 1 AndAlso UsuarioActual.CveUsuario <> 100 Then - For Each row As GridViewRow In GvPrePoliza.Rows - row.FCTextBox("TxtCargo").Enabled = False - row.FCTextBox("TxtAbono").Enabled = False - Next - End If - - ObjContabilidad.Dispose() - End Sub - - Private Sub GvPrePoliza_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPrePoliza.RowDataBound - - If e.Row.RowType = DataControlRowType.DataRow Then - - 'Asignamos los Subproyectos - e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) - e.Row.FCDropDownList("DdlSubProyecto").DataBind() - e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1")) - e.Row.FCDropDownList("DdlSubProyecto").SelectedValueExist(e.Row.DataKey("CveSubProyecto")) - - 'ASignamos las CuentasContables - e.Row.FCDropDownList("DdlCtaContable").DataSource = Session("DtCuentas") - e.Row.FCDropDownList("DdlCtaContable").DataBind() - e.Row.FCDropDownList("DdlCtaContable").Items.Insert(0, New ListItem("Sin Asignar", "0")) - e.Row.FCDropDownList("DdlCtaContable").SelectedValueExist(e.Row.DataKey("IdCtaContable")) - - TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + e.Row.FCTextBox("TxtCargo").Text.ToDouble) - TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + e.Row.FCTextBox("TxtAbono").Text.ToDouble) - - End If - - End Sub - - Private Sub CargaPlantillas(TipoPlantilla As Integer) - - 'GvPlantillas.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla) - 'GvPlantillas.DataBind() - - DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla) - DdlPlantilla.DataBind() - DdlPlantilla.Items.Insert(0, New ListItem("Plantilla Personalizada", "53")) - End Sub - - Private Sub CargaConceptos() - DdlConceptosContables.DataSource = GlobalDTContaConceptosContables(-1) - DdlConceptosContables.DataBind() - End Sub - - Private Sub CargaSubProyectos() - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) - DdlSubProyecto.DataBind() - DdlSubProyecto.Items.Insert(0, New ListItem(" - ", "-1")) - End Sub - - Private Sub CargaCuentasContables() - DdlCtaContable.DataSource = Session("DtCuentas") - DdlCtaContable.DataBind() - DdlCtaContable.Items.Insert(0, New ListItem("Sin Asignar", "0")) - End Sub - - Protected Sub DdlPlantilla_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPlantilla.SelectedIndexChanged - - TxtTotalAbonos.Text = "" - TxtTotalCargos.Text = "" - - If DdlPlantilla.SelectedValue.ToEntero <= 0 Then - Alert("Seleccione un Movimiento Válido", TipoMensaje.MsgAdvertencia) - DdlPlantilla.SelectedValue = "-1" - Exit Sub - End If - - If DdlPlantilla.SelectedValue.ToEntero = 53 Then 'Plantilla Personalizada - DivAgregarConceptos.Visible = True - Else - DivAgregarConceptos.Visible = False - End If - - - - Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero - - Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") - Dim Cuenta As String = "" - Dim IdCuenta As Integer = 0 - Dim CodigoCuenta As String = "" - Dim NombreCuenta As String = "" - Dim EsComodin As Integer = 0 - DtMovimientos.Clear() - - For Each drt As DataRow In Dt.Rows - - Cuenta = drt("ConceptoContable").ToString - IdCuenta = 0 - CodigoCuenta = "" - NombreCuenta = "" - If drt("IdCtaContable").ToString.ToEntero > 0 Then 'DtCuentasContables - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString)) - If drr IsNot Nothing Then - IdCuenta = drt("IdCtaContable").ToString.ToEntero - CodigoCuenta = drr("CuentaFormato").ToString() - NombreCuenta = drr("Nombre").ToString() - 'Cuenta = drr("Nombre").ToString() - End If - EsComodin = 0 - End If - - Dim dr As DataRow = DtMovimientos.NewRow - dr("IdCuenta") = IdCuenta - dr("CodigoCuenta") = CodigoCuenta & "
" & NombreCuenta - dr("Cuenta") = Cuenta 'TxtCuentaContable.Text - dr("Referencia") = If(drt("CveConcepto").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial")) - dr("Concepto") = TxtObservaciones.Text - dr("TipoMovto") = If(drt("TipoMovto").ToString = "False", 0, 1) - dr("EsComodin") = EsComodin - dr("CveConcepto") = drt("CveConcepto") - dr("CveSubProyecto") = drt("CveSubProyectoNegativo") - dr("Cargo") = TxtCargo.Text.ToDouble - dr("Abono") = TxtAbono.Text.ToDouble - dr("CveProveedor") = drt("CveProveedor") - dr("CvePersonal") = drt("CvePersonal") - DtMovimientos.Rows.Add(dr) - Next - - - GvMov.DataSource = DtMovimientos - GvMov.DataBind() - UPMovs.Update() - - End Sub - - Protected Sub GvMov_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvMov.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - - e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left - e.Row.Height = Unit.Pixel(1) - e.Row.Cells(0).ToolTip = e.Row.DBCampo("IdCuenta") - If e.Row.DBCampo("TipoMovto") = "1" Then - e.Row.FCTextBox("TxtAbono").Visible = True - Else - e.Row.FCTextBox("TxtCargo").Visible = True - End If - - e.Row.FCTextBox("TxtAbono").Text = If(e.Row.DBCampo("Abono") = 0, "", e.Row.DBCampo("Abono")) - e.Row.FCTextBox("TxtCargo").Text = If(e.Row.DBCampo("Cargo") = 0, "", e.Row.DBCampo("Cargo")) - e.Row.FCTextBox("TxtConcepto").Text = e.Row.DBCampo("Descripcion") - - e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) - e.Row.FCDropDownList("DdlSubProyecto").DataBind() - e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem(" - ", "-1")) - e.Row.FCDropDownList("DdlSubProyecto").SelectedValue = e.Row.DBCampo("CveSubProyecto") - - If DdlPlantilla.SelectedValue.ToEntero = 53 Then - e.Row.FCDropDownList("DdlSubProyecto").Enabled = True - Else - e.Row.FCDropDownList("DdlSubProyecto").Enabled = False - End If - - 'Agregamos la opcion para vincular los movimientos bancarios - If e.Row.DataKey("CveConcepto").ToEntero.Contiene(41) Then - Dim ObjMovimientos As New ClsMovimientos - Dim DdlSaldos As DropDownList = e.Row.FCDropDownList("DdlSaldos") - - Select Case e.Row.DataKey("CveConcepto").ToEntero - - 'Acreedores - Case 41 - If (ObjMovimientos.GetAcreedoresSaldosDetalles(-1,-1, UsuarioActual.CveEmpresa)) Then - DdlSaldos.Visible = True - DdlSaldos.DataSource = ObjMovimientos.DtResultados.FiltraParametros($"CveIE > 0 AND CveProveedor = {e.Row.DataKey("CveProveedor").ToEntero}") - DdlSaldos.DataBind() - DdlSaldos.Items.Insert(0, New ListItem("Seleccione", "-1")) - End If - - End Select - - ObjMovimientos.Dispose() - End If - - End If - End Sub - - Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click - - Dim TotalCargos, TotalAbonos As Decimal - - If CvePrePoliza > 0 Then - TotalCargos = TxtTotalCargos.Text.ToDouble - TotalAbonos = TxtTotalAbonos.Text.ToDouble - Else - For Each Gvr As GridViewRow In GvMov.Rows - TotalCargos += Gvr.FCTextBox("TxtCargo").Text.ToDecimal - TotalAbonos += Gvr.FCTextBox("TxtAbono").Text.ToDecimal - Next - End If - - If TotalCargos = TotalAbonos AndAlso TotalCargos <> 0 Then - - If CvePrePoliza > 0 Then - - 'Nuevo Modulo Charlie - ActualizarPrePoliza() - - Else - Dim MensajeAlert = New StringBuilder - Dim ObjIE As New ClsBancos() - Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL) - 'Dim Conta As ClsContPAQi = Nothing - Dim IDPoliza As Integer = 0 - Dim MsgError As String = "" - - - If MsgError = "" Then - - - Try - Dim CvePrePoliza As Integer - Dim ConceptoPoliza As String = TxtObservaciones.Text - CvePrePoliza = ObjMov.AddPrePolizas("Contabilidad/RegPrePoliza", DdlPlantilla.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - - - If CvePrePoliza > 0 Then - Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:

" - Dim idCuentaContabilizacion As Long = 1 - Dim Importe As Double = 0 - Dim TipoMovto As Boolean = False - Dim IdCtaContable As Integer = 0 - 'inserto las compras que voy a pagar - For Each gvr As GridViewRow In GvMov.Rows - - If gvr.DataKey("IDCuenta").ToEntero > 0 Then - IdCtaContable = gvr.DataKey("IDCuenta") - End If - - If gvr.DataKey("TipoMovto").ToDouble > 0 Then - Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble - TipoMovto = True - Else - Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble - TipoMovto = False - End If - - - If MsgError = "" Then - - If idCuentaContabilizacion = 1 AndAlso (IdCtaContable = 0) Then - idCuentaContabilizacion = 0 - End If - If Importe > 0 Then - If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text, TxtFecha.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe) Then - - Else - MsgError = "No se pudo insertar el detalle de la póliza2" - End If - End If - End If - - - Next - - 'El movimiento 2 es el de Pago - If ChkAutoConta.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then - If idCuentaContabilizacion > 0 Then - If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - - 'MENSAJE PRINCIPAL - MensajeAlert.AppendFormat("

Folio de Salida: {1}", ObjMov.ContaIdPoliza, ObjMov.ContaFolio) - Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion) - Else - Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico") - End If - Else - Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas") - End If - End If - - - Else - MsgError = "No se pudo insertar la póliza" - End If - - - - Catch ex As Exception - MsgError = "Error" - End Try - - If MsgError = "" Then - ObjIE.Commit() - - - Alert("El movimiento se guardó correctamente.") - - 'If Conta IsNot Nothing Then Conta.Commit() - - UPPDocumento.Update() - - - TxtObservaciones.Text = "" - GvMov.DataBind() - TxtFecha.Text = "" - TxtObservaciones.Text = "" - - RegistraScript("window.location.reload()") - Else - ObjIE.RollBack() - 'If Conta IsNot Nothing Then Conta.RollBack() - End If - - - Else - 'If Conta IsNot Nothing Then Conta.RollBack() - End If - - ObjIE.Dispose() - ObjMov.Dispose() - 'If Conta IsNot Nothing Then Conta.Dispose() - End If - Else - Alert("La suma de los movimientos no son iguales", TipoMensaje.MsgAdvertencia) - End If - - End Sub - - Private Sub ActualizarPrePoliza() - - Dim OcurrioError As Boolean = False - Dim ObjContabilidad As New ClsContabilidad - ObjContabilidad.IniciaTransacSQL() - - For Each row As GridViewRow In GvPrePoliza.Rows - If Not ObjContabilidad.UpdatePrepolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCTextBox("TxtConcepto").Text, row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, - row.FCDropDownList("DdlCtaContable").SelectedValue.ToEntero, If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCTextBox("TxtCargo").Text.ToDecimal <> 0, - row.FCTextBox("TxtCargo").Text.ToDecimal, row.FCTextBox("TxtAbono").Text.ToDecimal), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then - OcurrioError = True - End If - Next - - If Not OcurrioError Then - ObjContabilidad.Commit() - Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion) - Else - ObjContabilidad.RollBack() - Alert("Ocurrio un error al actualizar la PrePoliza.", TipoMensaje.MsgError) - End If - - ObjContabilidad.Dispose() - End Sub - - Protected Sub GvMov_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvMov.RowDeleting - - Dim idMov As Integer = GvMov.DataKeys(e.RowIndex).Value.ToString.ToEntero - - Dim Rows As DataRow() = DtMovimientos.Select("IDMov = " & idMov) - If Rows.Count > 0 Then - DtMovimientos.Rows.Remove(Rows(0)) - DtMovimientos.AcceptChanges() - End If - GvMov.DataSource = DtMovimientos - GvMov.DataBind() - - TxtTotalAbonos.Text = DtMovimientos.SUM("Abono").FormatoNumero - TxtTotalCargos.Text = DtMovimientos.SUM("Cargo").FormatoNumero - - 'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria - - End Sub - - Private Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click - - Dim dr As DataRow = DtMovimientos.NewRow - Dim CodigoCuenta As String = "" - Dim NombreCuenta As String = "" - - dr("IdCuenta") = DdlCtaContable.SelectedValue - - If DdlCtaContable.SelectedValue.ToEntero > 0 Then - Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", DdlCtaContable.SelectedValue)) - If drr IsNot Nothing Then - CodigoCuenta = drr("CuentaFormato").ToString() - NombreCuenta = drr("Nombre").ToString() - End If - End If - - dr("CodigoCuenta") = CodigoCuenta & "
" & NombreCuenta - dr("Cuenta") = DdlConceptosContables.SelectedItem - dr("Referencia") = TxtReferencia.Text - dr("Concepto") = TxtObservaciones.Text - dr("TipoMovto") = If(TxtCargo.Text.ToDouble > 0, 0, 1) - dr("EsComodin") = 0 - dr("CveConcepto") = DdlConceptosContables.SelectedValue - dr("Cargo") = TxtCargo.Text.ToDouble - dr("Abono") = TxtAbono.Text.ToDouble - dr("Descripcion") = TxtDescripcion.Text - dr("CveSubProyecto") = DdlSubProyecto.SelectedValue - - TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero - TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero - - DtMovimientos.Rows.Add(dr) - GvMov.DataSource = DtMovimientos - GvMov.DataBind() - UPMovs.Update() - - TxtCargo.Text = "" - TxtAbono.Text = "" - TxtReferencia.Text = "" - TxtDescripcion.Text = "" - - End Sub - -End Class - diff --git a/PyME/Contabilidad/TiposPoliza.aspx b/PyME/Contabilidad/TiposPoliza.aspx deleted file mode 100644 index ce3c4dc03..000000000 --- a/PyME/Contabilidad/TiposPoliza.aspx +++ /dev/null @@ -1,115 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="TiposPoliza.aspx.vb" Inherits="Contabilidad_TiposPoliza" %> - -<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> - - - - - - - - Catálogo de Tipos de Póliza - - - - - - - - - - - - - - - - - - - - - - - -
- - Tipo de Póliza - - - - Estatus - - - - Fecha Ing - - - - Usuario - - Comandos
- - - -     -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- -   -
- - - - - - - - - - - - - - - - - - - diff --git a/PyME/Contabilidad/TiposPoliza.aspx.vb b/PyME/Contabilidad/TiposPoliza.aspx.vb deleted file mode 100644 index 9a0bbdca1..000000000 --- a/PyME/Contabilidad/TiposPoliza.aspx.vb +++ /dev/null @@ -1,175 +0,0 @@ -Option Explicit On -Option Strict On - -Imports System.Data -Imports System.Linq -Imports Extensiones - -Partial Class Contabilidad_TiposPoliza - Inherits ClsPaginas - - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not Page.IsPostBack Then - ViewState("Orden") = "" - CargaDatos() - End If - End Sub - - Public Sub CargaDatos() - Dim ObjTipoPoliza As New ClsContabilidad - If ObjTipoPoliza.GetConta_TiposPoliza(UsuarioActual.CveEmpresa) Then - ViewState("DTTipoPoliza") = ObjTipoPoliza.DtResultados - 'GlobalDTTipoPoliza = ObjTipoPoliza.DtResultados - Else - Me.GvDatos.DataSource = Nothing - End If - - ObjTipoPoliza.Dispose() - - If ViewState("Orden").ToString() <> String.Empty Then - CargaGrid(ViewState("Orden").ToString()) - Else - CargaGrid("") - End If - End Sub - - Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click - Dim ObjTipoPoliza As New ClsContabilidad - If ObjTipoPoliza.AddConta_TiposPoliza(TxtTipoPoliza.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - TxtTipoPoliza.Text = "" - Alert("El Tipo de Póliza se guardó correctamente.", TipoMensaje.MsgInformacion) - UpTitulos.Update() - ViewState("DTTipoPoliza") = ObjTipoPoliza.DtResultados - 'GlobalDTTipoPoliza = ObjTipoPoliza.DtResultados - - If ViewState("Orden").ToString() <> String.Empty Then - CargaGrid(ViewState("Orden").ToString()) - Else - CargaGrid("") - End If - End If - ObjTipoPoliza.Dispose() - End Sub - -#Region "G V D A T O S" - Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.RowIndex = 0 Then - e.Row.Cells(0).Width = Unit.Pixel(256) - e.Row.Cells(1).Width = Unit.Pixel(100) - e.Row.Cells(2).Width = Unit.Pixel(100) - e.Row.Cells(3).Width = Unit.Pixel(100) - e.Row.Cells(4).Width = Unit.Pixel(100) - e.Row.Cells(5).Width = Unit.Pixel(61) - End If - e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left - End If - End Sub - - Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting - Dim ObjTipoPoliza As New ClsContabilidad - Dim CveTipoPoliza As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero - Dim CveEmpresa As Integer = GvDatos.Rows(e.RowIndex).DataKey("CveEmpresa").ToEntero - - If CveEmpresa = UsuarioActual.CveEmpresa Then - If ObjTipoPoliza.RemoveConta_TipoPoliza(CveTipoPoliza) Then - TxtTipoPoliza.Text = "" - GvDatos.EditIndex = -1 - ViewState("DTTipoPoliza") = ObjTipoPoliza.DtResultados - 'GlobalDTTipoPoliza = ObjTipoPoliza.DtResultados - Alert("El Tipo de Póliza se eliminó correctamente.", TipoMensaje.MsgInformacion) - End If - Else - Alert("Los Tipos de Póliza principales no pueden ser eliminados.", TipoMensaje.MsgAdvertencia) - End If - - ObjTipoPoliza.Dispose() - - If ViewState("Orden").ToString() <> String.Empty Then - CargaGrid(ViewState("Orden").ToString()) - Else - CargaGrid("") - End If - End Sub - - Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit - GvDatos.EditIndex = -1 - If ViewState("Orden").ToString() <> String.Empty Then - CargaGrid(ViewState("Orden").ToString()) - Else - CargaGrid("") - End If - End Sub - - Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating - - Dim ObjTipoPoliza As New ClsContabilidad - - Dim TipoPoliza As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtTipoPoliza"), TextBox).Text.Trim - Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked - Dim CveTipoPoliza As Integer = GvDatos.Rows(e.RowIndex).DataKey("CveTipoPoliza").ToEntero - - If ObjTipoPoliza.UpdateConta_TiposPoliza(TipoPoliza, Estatus, CveTipoPoliza) Then - GvDatos.EditIndex = -1 - ViewState("DTTipoPoliza") = ObjTipoPoliza.DtResultados - Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) - End If - - ObjTipoPoliza.Dispose() - - If ViewState("Orden").ToString() <> String.Empty Then - CargaGrid(ViewState("Orden").ToString()) - Else - CargaGrid("") - End If - - End Sub - - Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing - GvDatos.EditIndex = e.NewEditIndex - - If ViewState("Orden").ToString() <> String.Empty Then - CargaGrid(ViewState("Orden").ToString()) - Else - CargaGrid("") - End If - End Sub -#End Region - -#Region "O R D E N A M I E N T O" - Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs) - Dim Orden As String = "" - Dim Campo As String = "" - Dim Literal As Literal = Nothing - Const OrdenInicial As String = "" - Dim Arg(2) As String - - Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c) - Campo = Arg(0) - Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal) - - If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then - ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo) - Literal.Text = String.Format("") - Else - ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo) - Literal.Text = String.Format("") - End If - Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString - ViewState("Orden") = Orden - CargaGrid(Orden) - End Sub - - Private Sub CargaGrid(Orden As String) - If Orden <> String.Empty Then - Dim DV As New DataView(CType(ViewState("DTTipoPoliza"), DataTable), "", Orden, DataViewRowState.CurrentRows) - GvDatos.DataSource = DV.ToTable() - DV.Dispose() - Else - GvDatos.DataSource = CType(ViewState("DTTipoPoliza"), DataTable) - End If - GvDatos.DataBind() - UpDatos.Update() - End Sub -#End Region -End Class diff --git a/PyME/Contabilidad/vssver2.scc b/PyME/Contabilidad/vssver2.scc deleted file mode 100644 index f7e68392f..000000000 Binary files a/PyME/Contabilidad/vssver2.scc and /dev/null differ diff --git a/PyME/Sistemas/RegistroEmpresa.aspx b/PyME/Sistemas/RegistroEmpresa.aspx deleted file mode 100644 index 7926978a7..000000000 --- a/PyME/Sistemas/RegistroEmpresa.aspx +++ /dev/null @@ -1,248 +0,0 @@ -<%@ Page Language="VB" AutoEventWireup="false" CodeFile="RegistroEmpresa.aspx.vb" Inherits="Sistemas_RegistroEmpresa" %> - -<%@ Import Namespace="System.Web.Optimization" %> - - - - - - SIG | Sistema de Información Gerencial - - - - - - <%: Scripts.Render("~/bundles/modernizr") %> - <%: Styles.Render("~/Content/AjaxControlToolkit/Styles/Bundle") %> - - - <%: Styles.Render("~/Metronic/assets/global/css/css") %> - - - - - - - - - - - -
- - - - - - - - - - - - - - - - <%--Site Scripts--%> - - - - <%: Scripts.Render("~/bundles/scripts") %> - <%: Scripts.Render("~/Metronic/assets/global/scripts/JS") %> - - -
-
- -
-
-

Registra tu empresa

-
-
- -
-
- -
-
- -
-
-
-
-

Tenga el control de su empresa con una sola herramienta

-
-
-
- -
-
-
-
-
-
-
- - - -
-
-
-
-
-
-
- -
- - - - -
- Nombre o Razón Social de la empresa -
-
-
-
-
-
- - - - - - - RFC de la empresa -
-
-
-
-
-
- -
- - - - - - - El correo que ingresó es inválido -
-
-
-
-
-
-
- -
- - - - -
-
-
-
-
-
-
- - - - - - -
- - -
-
- -
-
-
-
- -
-
-
- -
-
-
-
- - - -
-
- - - -
-
- - - -
- - - diff --git a/PyME/Sistemas/RegistroEmpresa.aspx.vb b/PyME/Sistemas/RegistroEmpresa.aspx.vb deleted file mode 100644 index 30b5da7cb..000000000 --- a/PyME/Sistemas/RegistroEmpresa.aspx.vb +++ /dev/null @@ -1,180 +0,0 @@ -Option Strict On -Option Explicit On - -Imports Extensiones - -Partial Class Sistemas_RegistroEmpresa - Inherits ClsPaginas - -#Region "PROPIEDADES" - Private Property Nombre As String - Get - Nombre = ViewState("Nombre").ToString - End Get - Set(value As String) - ViewState("Nombre") = value - End Set - End Property - Private Property RFC As String - Get - RFC = ViewState("RFC").ToString - End Get - Set(value As String) - ViewState("RFC") = value - End Set - End Property - - Private Property Email As String - Get - Email = ViewState("Email").ToString - End Get - Set(value As String) - ViewState("Email") = value - End Set - End Property - - Private Property MetodoPago As String - Get - MetodoPago = ViewState("MetodoPago").ToString - End Get - Set(value As String) - ViewState("MetodoPago") = value - End Set - End Property - - - Private Property Liga As String - Get - Liga = ViewState("Liga").ToString - End Get - Set(value As String) - ViewState("Liga") = 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 - - End If - End Sub - -#Region " GUARDAR " - - Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) - Nombre = txtNombre.Text.ToUpper() - RFC = TxtRFC.Text.ToUpper() - Email = TxtEmail.Text - MetodoPago = DdlMetodoPago.SelectedValue - - Dim objEmpresa As New ClsSisEmpresas() - Try - If objEmpresa.AddEmpresa(-1, Nombre, "", "", "", "", "", "", RFC, 0, "", "", Email, "CFDi", "", "", "", "", "", "", "", 100, False, False, False, "", False, "", "", "", 0, False, False, False, False, False, False, False, False, False, False, - "", "", "", "", "", "", 0, False, "", "", "", "", "", 0, False, "", "", "", 0, 0, 0, 0, 0, 0, 0, 0, "", "", 0, 0, "", "", -1, 0.0D, "", 2, False, 0.0D, "", "", 0, False, 0, 0, False, 0, 0, False, 0, - CveMetodoPago:=MetodoPago.ToEntero, CvePAC:=1) Then - Alert("Su solicitud ha sido procesada correctamente, en breve recibira un correo para completar el registro.", TipoMensaje.MsgInformacion) - Liga = String.Format("sig.adsistemas.mx/PyME/Sistemas/WizardRegistro.aspx?P={0}", Encripta(String.Format("CveEmpresa={0}", objEmpresa.CveEmpresa))) - EnviaCorreo() - RegistraScript("$('#C_DivRegistro').css('display', 'none');$('#C_DvFinalizado').css('display', '');") - UpRegistro.Update() - RecargaGlobal() - - - Else - Alert("OCurrió un error al guardar la empresa", TipoMensaje.MsgError) - End If - Catch ex As Exception - OnError("Ocurrió un error al guardar la emrpresa desde registro basico.", ex) - Finally - objEmpresa.Dispose() - End Try - - End Sub -#End Region - - Private Sub RecargaGlobal() - Dim ObjEmpresa As New ClsSisEmpresas - If ObjEmpresa.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then - GlobalDTEmpresas(-1) = ObjEmpresa.DtResultados - End If - ObjEmpresa.Dispose() - End Sub - -#Region " ENVIAR CORREO " - Protected Sub REVContactoEmail_Load(sender As Object, e As EventArgs) - RegistraScript("$('#FirstEmail').addClass('has-error');$('#helpMail').css('color', 'red')") - End Sub - Protected Sub EnviaCorreo() - Dim objMail As New ClsSisMail() - Dim body = GeneraCorreo(Nombre) - objMail.SendMail(ClsPaginas.EmpresaNotificaciones, Email, "Activación de empresa", body, "") - End Sub - Private Function GeneraCorreo(Nombre As String) As String - Dim strBody As New StringBuilder - strBody.Append("") - strBody.Append(" ") - strBody.Append("") - strBody.Append("") - strBody.Append("
") - strBody.Append("

AD Sistemas Soluciones en TI

") - strBody.Append("
") - strBody.Append("
") - strBody.Append("
") - strBody.Append(" Completar Registro") - strBody.Append("
") - strBody.Append("
") - strBody.Append("
") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.AppendFormat(" ", Nombre) - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append(" ") - strBody.Append("", Liga) - strBody.Append("") - strBody.Append("") - strBody.Append("
Fecha: ") - strBody.Append(DateTime.Now.ToString("dd/MM/yy")) - strBody.Append(" ") - strBody.Append("
{0}
") - strBody.Append("
Para continuar con el proceso de registro y activación, por favor haga click en la siguiente liga:
") - strBody.AppendFormat("Continuar

Le recomendamos tener la siguiente información a la mano:
") - strBody.Append("
    ") - strBody.Append("
  • Datos Fiscales (Direccion, Contacto, Regimen, Certificados digitales, etc. )
    • ") - strBody.Append("
  • Roles/Puestos, Permisos y Usuarios que usaran el SIG )
    • ") - strBody.Append("
  • Correos para envío de notificaciones y Para recepción de facturas (si no cuenta con un correo, se le proporcionará uno)
    • ") - strBody.Append("
  • Formatos de factura, plantillas de correo y logo
    • ") - strBody.Append("
  • Clasificaciones contables, Productos / Servicios y las unidades de medida de éstos
    • ") - strBody.Append("
  • Almacenes que se utilizand, y el método de salida de inventario
    • ") - strBody.Append("
  • Proveedores, clientes y proyectos de la empresa
    • ") - strBody.Append("
") - strBody.Append("
") - strBody.Append("
") - strBody.Append("
") - strBody.Append("
") - strBody.Append("
") - strBody.Append("") - strBody.Append("") - Return strBody.ToString - End Function -#End Region - -End Class diff --git a/PyME/Sistemas/WizardRegistro.aspx b/PyME/Sistemas/WizardRegistro.aspx deleted file mode 100644 index e928e0f0e..000000000 --- a/PyME/Sistemas/WizardRegistro.aspx +++ /dev/null @@ -1,3658 +0,0 @@ -<%@ Page EnableEventValidation="false" ValidateRequest="false" Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="WizardRegistro.aspx.vb" Inherits="Sistemas_WizardRegistro" %> - -<%@ Register - Assembly="AjaxControlToolkit" - Namespace="AjaxControlToolkit.HTMLEditor" - TagPrefix="HTMLEditor" %> - - - - - - - - - - - - - - - - - - -
-
- - <%--TITULO WIZARD--%> -
- - Asistente de registro. - Paso 1 de 6 - -
- -
-
-
-
- <%--PASOS GENERALES--%> - - - <%--BARRA DE PROGESO--%> -
-
-
- - <%--PASOS GENERALES CONTENIDO--%> -
- - <%--PASO 1: DATOS FISCALES--%> -
- - - - <%--PASOS INTERNOS--%> -
-
- -
-
- - <%--BOTONES--%> -
-
-
- - - -
-
-
- -
- - <%--PASO 1.1: DATOS FISCALES--%> -
- -
- - <%--PASO 1.2 ESTA ESCONDIDO--%> -
- - - - - - - - - - - - - - - - - - - - - - - - - -
IVA por Acreditar: - - -
IVA Acreditable: - - -
IVA por Trasladar: - - -
IVA Trasladado - - -
IVA Retenciones: - - -
ISR Circulación: - - -
-
- - <%--PASO 1.3: CERTIFICADOS--%> -
- - -
-
- -
-
-
- -
- - -
-
-
-
-
-
- -
-
-
-
- - -
-
-
-
-
-
- -
-
-
- -
- -
-
-
-
- -
-
-
- -
-
-
- - -
- -
- - - -
- - <%--PASO 2: USUARIOS--%> -
- - - - <%--PASOS INTERNOS--%> -
-
-
- -
-
-
- - <%--BOTONES--%> -
-
-
- - - - -
-
-
- -
- - <%--PASO 2.1: PERFILES--%> -
- - -
-
- -
-
- -
-
- - -
- -
-
-
-
-
- - Agregar Perfiles -
-
-
-
-
-
-
-
-
- - -
- - - - - - - - - - - - - - - - - - - - - - -
- - -
-
-
-
-
- - <%--PASO 2.2: USUARIOS--%> -
- -
-
- - - - - -
-
- -
- -
-
-
-
-
- - Agregar Usuarios -
-
-
-
-
-
-
-
-
- - -
- - - - - - - - - - - - - - -
- - -
-
-
-
-
- -
- - - -
- - <%--PASO 3: CONFIGURACION--%> -
- - -
- - <%--PASOS INTERNOS--%> -
-
-
- -
-
-
- - <%--BOTONES--%> -
-
-
- - - - -
-
-
- -
- - <%--PASO 3.1: LOGO--%> -
-
-
-

Logo de su empresa

-
-
-
-
- - -
-
- -
- - <%--PASO 3.2: CORREOS--%> -
-
- - <%--COLUMNA 1--%> -
-
-

Envío de Correos

-
-
- - - - -
-
-
-
- - -
-
-
-
- - -
-
-
-
- - - - -
-
- -
-
- - -
-
-
-
- - <%--COLUMNA 2--%> -
-
-

Recepción de facturas

-
-
- - - - -
-
-
-
- - -
-
-
-
- - -
-
-
-
- - - - -
-
-
-
- - - - - -
-
-
-
- - -
-
- - -
-
- -
-
- - <%--3.3: PLANTILLAS CORREO--%> -
-
-
-
-

Plantilla para el envío de correo:

-
-
-
Asunto:
-
- -
-
- - - - - - Etiquetas - - - - - -
-
-
-
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
-
- - <%--
-
-

Etiquetas

- -

{NOMBRECLIENTE} Nombre del Cliente.

-

{SERIEFOLIO} Folio de la Factura Generada.

-

{FECHA} Fecha de la Factura Generada.

-

{SUCURSAL} Sucursal de la Factura Generada.

-

{IMPORTETOTAL} Importe Total de la Factura Generada.

- -

Ejemplo

-

- 

Plantilla:
Estimado Cliente {NOMBRECLIENTE} le hago entrega del documento {SERIEFOLIO} generado en la Sucursal {SUCURSAL} con fecha de {FECHA} e Importe de {IMPORTETOTAL}.

Correo:
Estimado Cliente Juan Pérez le hago entrega del documento FAC-123 generado en la Sucursal Matriz Hermosillo con fecha de 30/04/2018 e Importe de $1000.00.
-

- -
-
--%> -
-
- - <%--3.4: FORMATO FACTURA--%> -
-
- - - -
-
-
- - Formato Factura -
-
-
- -
-
-
-
-
-
-
-
- - <%-- --%> - <%----%> - - - -
-
-
-
-

Arraste o haga click para subir el formato de factura

-
-
-
-
- -
-
-
-
-
-
- - - - - -
-
- - - <%--3.5: CENTRO COSTOS--%> -
- - -
-
- Tipo de Centro de Costos: -
-
- - - - - - - - -
-
- - - - - -
-
- - -
- -
-
- - - - - - - - - - - - - - - - - - - - - - - -
-
- -
- - <%--3.6: FOLIOS--%> -
- -
-
- - - - - -
-
- -
- -
-
- - - - - - - - - - - - - - - - - - - - - - - -
-
- -
- - <%--3.7: INVENTARIOS--%> -
-
-
-

Método de costeo

-
-
- -
-
-
- Seleccione el Método de costeo de su empresa: -
-
- -
-
- -
- -
- - - - - -
-
-
- - -
-
- - -
- - - - -   - - - - -   - - - - -   - - - - -   - - - - -   - - - - -   - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
-
- <%--REQUISICIONES--%> -
- - - -
-
-

Asignación de Estatus de Requisiciones

-
-
- -
- -
- Centro de Costo: -
- -
- -
- -
-
- - - - - USUARIO - - - - - - - - - - - - <%-- --%> -
- - - - - -
- - - - - - - - - <%-- --%> - -
- - - - - -
- - - - - - - - - - <%----%> - -
- - - - - -
- - - - -
- -
-
-
- -
- - - -
- -
-
-
- - -
-
- - - - - <%--AGREGAR USUARIO--%> - - - - <%--AGREGAR SUCURSAL--%> - - - - - - - - - - - - - - - <%-- --%> - - - - - - - - - - - - - - - - - - - - <%-- MODALES UPLOAD--%> - - - - - - - - - - - - - - - - diff --git a/PyME/Sistemas/WizardRegistro.aspx.vb b/PyME/Sistemas/WizardRegistro.aspx.vb deleted file mode 100644 index ca9193bc0..000000000 --- a/PyME/Sistemas/WizardRegistro.aspx.vb +++ /dev/null @@ -1,3464 +0,0 @@ -Option Strict On -Option Explicit On - -Imports Extensiones -Imports System.Data -Imports System.IO - - -Partial Class Sistemas_WizardRegistro - Inherits Page - -#Region " PROPIEDADES " - Private Property CveEmpresaTemp As Integer - Get - CveEmpresaTemp = ViewState("CveEmpresaTemp").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("CveEmpresaTemp") = value - End Set - End Property - Private Property CveEmpresa As Integer - Get - CveEmpresa = ViewState("CveEmpresa").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("CveEmpresa") = value - End Set - End Property - Private Property CveRol As Integer - Get - CveRol = ViewState("CveRol").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("CveRol") = value - End Set - End Property - Private Property DtRoles As DataTable - Get - Return CType(ViewState("DtRoles"), DataTable) - End Get - Set(value As DataTable) - ViewState("DtRoles") = value - End Set - End Property - Private Property DtProyectos As DataTable - Get - Return CType(ViewState("DtProyectos"), DataTable) - End Get - Set(value As DataTable) - ViewState("DtProyectos") = value - End Set - End Property - Private Property DtUsuarios As DataTable - Get - Return CType(ViewState("DtUsuarios"), DataTable) - End Get - Set(value As DataTable) - ViewState("DtUsuarios") = value - End Set - End Property - Private Property DtClasificaciones As DataTable - Get - Return CType(ViewState("DtClasificaciones"), DataTable) - End Get - Set(value As DataTable) - ViewState("DtClasificaciones") = value - End Set - End Property - Private Property DtModulos As DataTable - Get - Return CType(ViewState("DtModulos"), DataTable) - End Get - Set(value As DataTable) - ViewState("DtModulos") = value - End Set - End Property - Private Property DtPS As DataTable - Get - Return CType(ViewState("DtPS"), DataTable) - End Get - Set(value As DataTable) - ViewState("DtPS") = value - End Set - End Property - Private Property DTEstatusUsuarios As DataTable - Get - Return CType(ViewState("DTEstatusUsuarios"), DataTable) - End Get - Set(value As DataTable) - ViewState("DTEstatusUsuarios") = value - End Set - End Property - Private Property DtUM As DataTable - Get - Return CType(ViewState("DtUM"), DataTable) - End Get - Set(value As DataTable) - ViewState("DtUM") = value - End Set - End Property - Private Property DtProcesos As DataTable - Get - Return CType(ViewState("DtProcesos"), DataTable) - End Get - Set(value As DataTable) - ViewState("DtProcesos") = value - End Set - End Property - Private Property FIEL As String - Get - FIEL = ViewState("FIEL").ToString - End Get - Set(value As String) - ViewState("FIEL") = value - End Set - End Property - Private Property CSD As String - Get - CSD = ViewState("CSD").ToString - End Get - Set(value As String) - ViewState("CSD") = value - End Set - End Property - Private Property NombreEmpresaPropiedad As String - Get - NombreEmpresaPropiedad = ViewState("NombreEmpresaPropiedad").ToString - End Get - Set(value As String) - ViewState("NombreEmpresaPropiedad") = value - End Set - End Property - Private Property RFCPropiedad As String - Get - RFCPropiedad = ViewState("RFCPropiedad").ToString - End Get - Set(value As String) - ViewState("RFCPropiedad") = value - End Set - End Property - Private Property Correo As String - Get - Correo = ViewState("Correo").ToString - End Get - Set(value As String) - ViewState("Correo") = value - End Set - End Property - - Private Property MetodoPAgo As Integer - Get - MetodoPAgo = ViewState("MetodoPAgo").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("MetodoPAgo") = value - End Set - End Property - - - -#End Region - -#Region " PROPIEDADES PARA MODAL DE CATALOGOS " - Private Property ModalidadModal As String - Get - ModalidadModal = ViewState("ModalidadModal").ToString - End Get - Set(value As String) - ViewState("ModalidadModal") = value - End Set - End Property - Private Property CveModal As Integer - Get - CveModal = ViewState("CveModal").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("CveModal") = value - End Set - End Property -#End Region - - Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load - If Not IsPostBack Then - RegistraScript("$('#mBody').addClass('page-sidebar-closed');$('#divMenu').css('display','none');QuitarBarras();") - If Request("P") IsNot Nothing AndAlso Decripta((Request("P").ToString)) <> "" Then - Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString))) - CveRol = 0 - If UrlParametros("CVEEMPRESA") IsNot Nothing AndAlso UrlParametros("CVEEMPRESA").ToString.ToEntero > 0 Then - CveEmpresa = UrlParametros("CVEEMPRESA").ToString.ToEntero - CargaDatos() - Else - DivEsconder.Style.Add("display", "none") - Alert("No se seleccionó ninguna empresa", TipoMensaje.MsgAdvertencia) - End If - Else - DivEsconder.Style.Add("display", "none") - Alert("No se seleccionó ninguna empresa", TipoMensaje.MsgAdvertencia) - End If - End If - End Sub - - -#Region " FUNCIONES - POSIBLE LLEVARSE PARA TODO EL SITIO " - Private Function Parametros(Cadena As String) As Hashtable - Dim P1() As String = Cadena.Split("&"c) - Dim Tmp As String - Dim P2() As String - - Dim URLParametros As New Hashtable - - For Each Tmp In P1 - P2 = Tmp.Replace("%26%", "&").Split("="c) - URLParametros.Add(P2(0).ToString.ToUpper, P2(1)) - Next - Return URLParametros - End Function - Private Function EsDuplicado(Dt As DataTable, Filtro As String) As Boolean - Dim Tabla As New DataTable() - Tabla = Dt.FiltraParametros(Filtro) - If Tabla.Rows.Count > 0 Then - Return True - Else - Return False - End If - End Function - Public Function FormatearNombreArchivo(nombreArchivoOriginal As String) As String - Dim nombreArchivoFormateado As String - nombreArchivoFormateado = nombreArchivoOriginal.Replace(" ", "_") - nombreArchivoFormateado = nombreArchivoFormateado.Replace("'", "") - nombreArchivoFormateado = nombreArchivoFormateado.Replace(Chr(34), "") - nombreArchivoFormateado = nombreArchivoFormateado.Replace("$", "_") - nombreArchivoFormateado = nombreArchivoFormateado.Replace("#", "_") - nombreArchivoFormateado = nombreArchivoFormateado.Replace("%", "_") - nombreArchivoFormateado = nombreArchivoFormateado.Replace("!", "_") - nombreArchivoFormateado = nombreArchivoFormateado.Replace("&", "_") - nombreArchivoFormateado = nombreArchivoFormateado.Replace("?", "_") - nombreArchivoFormateado = nombreArchivoFormateado.Replace("¿", "_") - nombreArchivoFormateado = nombreArchivoFormateado.Replace("¡", "_") - nombreArchivoFormateado = nombreArchivoFormateado.Replace("*", "_") - nombreArchivoFormateado = nombreArchivoFormateado.Replace("~", "_") - nombreArchivoFormateado = nombreArchivoFormateado.Replace("^", "_") - Return nombreArchivoFormateado - End Function -#End Region - -#Region " CARGA DATOS " - Protected Sub CargaDatos() - Dim ObjEmpresa As New ClsSisEmpresas - If ObjEmpresa.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") AndAlso ObjEmpresa.DtResultados.Rows.Count > 0 Then - - Dim DrEmpresa = ObjEmpresa.DtResultados.Rows(0) - 'PROPIEDADES - NombreEmpresaPropiedad = DrEmpresa("Empresa").ToString - RFCPropiedad = DrEmpresa("RFC").ToString - 'TITULO - ltlEmpresa.Text = $"Registro de {NombreEmpresaPropiedad} ({RFCPropiedad})" - - 'CARGA PASO 1.1 - DATOS FISCALES - TxtNomEmpresa.Text = DrEmpresa("Empresa").ToString - TxtRFC.Text = DrEmpresa("RFC").ToString - TxtEmail.Text = DrEmpresa("Mail").ToString - DdlRegimen.SelectedValueExist(DrEmpresa("Regimen").ToString) - TxtContacto.Text = DrEmpresa("Contacto").ToString - TxtTelefono.Text = DrEmpresa("Telefono").ToString - TxtExtension.Text = DrEmpresa("Extension").ToString - TxtDireccion.Text = DrEmpresa("Direccion").ToString - TxtNoExt.Text = DrEmpresa("NoExt").ToString - TxtNoInt.Text = DrEmpresa("NoInt").ToString - TxtColonia.Text = DrEmpresa("Colonia").ToString - TxtCiudad.Text = DrEmpresa("Ciudad").ToString - TxtLocalidad.Text = DrEmpresa("Localidad").ToString - TxtEstado.Text = DrEmpresa("Estado").ToString - TxtCP.Text = DrEmpresa("CP").ToString - - 'CARGA PASO 1.3 - DATOS FISCALES - TxtContraKey.Text = DrEmpresa("ContraseñaKey").ToString - TxtCIEC.Text = DrEmpresa("CIEC").ToString - - DtClasificaciones.FiltraParametros("", "", {"CveProyecto", "Proyecto"}) - - Correo = DrEmpresa("Mail").ToString - MetodoPAgo = DrEmpresa("CveMetodoPago").ToString.ToEntero - - 'CARGA PASO 3.2 - CORREOS - txtEnvioCorreo.Text = DrEmpresa("SendMail").ToString - TxtEnvioContraseña.Text = DrEmpresa("SendMailPassword").ToString - TxtEnvioServidor.Text = DrEmpresa("SendMailServer").ToString - TxtEnvioPuerto.Text = DrEmpresa("SendMailPuerto").ToString - ChkEnvioSSL.Checked = CBool(DrEmpresa("SendMailSSL").ToString) - txtRecepCorreo.Text = DrEmpresa("Buzon_Mail").ToString - TxtRecepContraseña.Text = DrEmpresa("Buzon_PWD").ToString - TxtRecepServidor.Text = DrEmpresa("Buzon_Server").ToString - TxtRecepPuerto.Text = DrEmpresa("Buzon_Puerto").ToString - DdlRecepProtocolo.SelectedValueExist(DrEmpresa("Buzon_Tipo").ToString) - ChkRecepSSL.Checked = CBool(DrEmpresa("Buzon_SSL").ToString) - - - DdlTipoCentroCostos.SelectedValueExist(DrEmpresa("Tipo_CentroCosto")) - CargaSubProyectos() - CargaGvFolio() - - Dim ObjRoles As New ClsSisRoles - Dim objUsuarios As New ClsSisUsuarios - Dim objunidadesMedida As New ClsUnidadesMedida - Dim objClasi As New ClsClasificaciones - Dim objPS As New ClsProductosServicios - Dim objInv As New ClsInventarios - - DivRegistroInicial.Style.Add("display", "") - RFVNombre.ValidationGroup = "GrpGuardar" - REVRFC.ValidationGroup = "GrpGuardar" - RFVRFC.ValidationGroup = "GrpGuardar" - REVContactoEmail.ValidationGroup = "GrpGuardar" - RequiredFieldValidator1.ValidationGroup = "GrpGuardar" - 'cvEmail.ValidationGroup = "GrpGuardar" - - - If objUsuarios.GetUsuarios(-1) Then - GvUsuarios.DataSource = objUsuarios.DtResultados.FiltraParametros(String.Format("CveEmpresa={0}", CveEmpresa)) - ' - GvUsuarios.DataBind() - End If - If objClasi.GetClasificaciones(CveEmpresa) AndAlso objClasi.DtResultados.Rows.Count > 0 Then - DtClasificaciones = objClasi.DtResultados - CargaDdlClasificaciones() - End If - CargaGVClasificacion() - - If objunidadesMedida.GetUnidadesMedida(CveEmpresa) Then - DtUM = objunidadesMedida.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresa)) - GvUM.DataSource = DtUM - GvUM.DataBind() - CargaDdlUM() - End If - - If objPS.GetPS(-1, -1, CveEmpresa) Then - GVPS.DataSource = objPS.DtResultados - GVPS.DataBind() - Else - GVPS.DataSource = Nothing - End If - - If objPS.GetMetodosInv() Then - DdlMetodos.DataSource = objPS.DtResultados.FiltraParametros("CveMetodoInventario <> 0") - DdlMetodos.DataBind() - Else - DdlMetodos.DataSource = Nothing - End If - - If objInv.GetTiposAlmacenes Then - DdlTipoAlmacen.DataSource = objInv.DtResultados - DdlTipoAlmacen.DataBind() - Else - DdlTipoAlmacen.DataSource = Nothing - End If - - CargaGvInventario() - CargaSubProyectosInventario() - - CargaGVProveedor() - - - ObjRoles.Dispose() - ObjEmpresa.Dispose() - objClasi.Dispose() - objUsuarios.Dispose() - objunidadesMedida.Dispose() - objPS.Dispose() - objInv.Dispose() - - Dim DirFactura = ModExtensiones.DirectorioBaseEmpresas + String.Format("Empresas\{0}\Formatos\Factura.mrt", CveEmpresa) - Dim Factura As New FileInfo(DirFactura) - RblFormatoFactura.Items.Item(1).Enabled = Factura.Exists - RblFormatoFactura.Items.Item(1).Selected = Factura.Exists - - - CargaGVRoles() - CargaGVUsuarios() - CargaGVCC() - CargaGvCliente() - CargaDdlUsuario() - CargaDdlRegimen() - CreaGrid() - 'CargaGridEstatusUsuarios() - - - Else - Alert("No se encontraron datos con la empresa seleccionada.", TipoMensaje.MsgAdvertencia) - DivEsconder.Style.Add("display", "none") - End If - End Sub -#End Region - -#Region " GUARDAR PASO " - Protected Sub BtnGuardarPaso_Click(sender As Object, e As EventArgs) - Dim paso = HdnPaso.Value.ToEntero - Dim subpaso = HdnSubPaso.Value.ToEntero - Pasos(paso, subpaso) - End Sub - Protected Sub Pasos(Paso As Integer, subpaso As Integer) - Dim ObjEmpresa As New ClsSisEmpresas - - - Dim HuboError = False - - 'PASO 1.1: DATOS FISCALES - Dim NombreEmpresa, RFC, CorreoElectronico, Regimen, Contacto, Telefono, Extension, Calle, NoExt, NoInt, Colonia, Ciudad, Localidad, Estado, CP As String - NombreEmpresa = TxtNomEmpresa.Text.Trim - RFC = TxtRFC.Text.Trim - CorreoElectronico = TxtEmail.Text.Trim - Regimen = DdlRegimen.SelectedValue - Contacto = TxtContacto.Text.Trim - Telefono = TxtTelefono.Text.Trim.Replace("("c, "").Replace(")"c, "").Replace("-"c, "").Replace(" ", "") - Extension = TxtExtension.Text.Trim - Calle = TxtDireccion.Text.Trim - NoExt = TxtNoExt.Text.Trim - NoInt = TxtNoInt.Text.Trim - Colonia = TxtColonia.Text.Trim - Ciudad = TxtCiudad.Text.Trim - Localidad = TxtLocalidad.Text.Trim - Estado = TxtEstado.Text.Trim - CP = TxtCP.Text.Trim - - 'PASO 1.3: CERTIFICADOS - Dim CSD, CIEC As String - CSD = TxtContraKey.Text.Trim - CIEC = TxtCIEC.Text.Trim - - 'PASO 3.2: CORREOS - Dim EnvioCorreo, EnvioContraseña, EnvioServidor, RecepCorreo, RecepContraseña, RecepServidor, RecepProtocolo As String - Dim EnvioSSL, RecepSSL As Boolean - Dim EnvioPuerto, RecepPuerto As Integer - EnvioCorreo = txtEnvioCorreo.Text.Trim - EnvioContraseña = TxtEnvioContraseña.Text.Trim - EnvioServidor = TxtEnvioServidor.Text.Trim - EnvioPuerto = TxtEnvioPuerto.Text.Trim.ToEntero - EnvioSSL = ChkEnvioSSL.Checked - RecepCorreo = txtRecepCorreo.Text.Trim - RecepContraseña = TxtRecepContraseña.Text.Trim - RecepServidor = TxtRecepServidor.Text.Trim - RecepPuerto = TxtRecepPuerto.Text.Trim.ToEntero - RecepProtocolo = DdlRecepProtocolo.SelectedValue - RecepSSL = ChkRecepSSL.Checked - - Select Case Paso - Case 1 - Select Case subpaso - Case 1 - 'DATOS FISCALES - If ObjEmpresa.RegistroEmpresasDatosFiscales(NombreEmpresa, RFC, CorreoElectronico, Regimen, Contacto, Telefono, Extension, Calle, NoExt, NoInt, Colonia, Ciudad, Localidad, Estado, CP, CveEmpresa) Then - NombreEmpresaPropiedad = NombreEmpresa - RFCPropiedad = RFC - ltlEmpresa.Text = $"Registro de {NombreEmpresaPropiedad} ({RFCPropiedad})" - Else - RegistraScript("$('a.antfiscal').click()") - End If - - 'ESTATUS DE REQUISICIONES PREDEFINIDAS - Dim ObjOC As New ClsOC - If ObjOC.GetEstatus() Then - If Not ObjOC.DtResultados.FiltraParametros($"CveEmpresa={CveEmpresa}").Rows.Count > 0 Then - ObjOC.AddEstatusRequisicionesPredefinidas(CveEmpresa) - ObjOC.Dispose() - End If - End If - - - Case 2 - 'ESTA ESCONDIDO - Case 3 - 'CERTIFICADOS - If Not ObjEmpresa.RegistroEmpresasCertificados(CSD, CIEC, CveEmpresa) Then - RegistraScript("$('#globalprevious').click()") - End If - End Select - Case 3 - Select Case subpaso - Case 1 - 'LOGO - GuardaLogo() - Case 2 - 'CORREO - If Not ObjEmpresa.RegistroEmpresasCorreos(EnvioCorreo, EnvioContraseña, EnvioServidor, EnvioPuerto, EnvioSSL, RecepCorreo, RecepContraseña, RecepServidor, RecepPuerto, RecepProtocolo, RecepSSL, CveEmpresa) Then - RegistraScript("$('a.antfiscal').click()") - End If - Case 3 - If TxtPlantillaVenta.Text <> String.Empty Then - If Not ObjEmpresa.UpdatePlantillaMail("AsuntoPlantillaMailVenta", TxtAsunto.Text.Trim, "PlantillaMailVenta", TxtPlantillaVenta.Text.Trim, CveEmpresa) Then - Alert("La plantilla de mail de ventas se guardó correctamente.", TipoMensaje.MsgInformacion) - HuboError = True - End If - End If - Case 4 - If TxtFormatoFactura.getfiles().Archivos().Count > 0 Then - Dim FormatoFactura As Archivo = TxtFormatoFactura.getfiles().Archivos(0) - Dim PathFormato = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\Formatos\" - Dim dirFormato As String = String.Format("{0}\Factura.{1}", PathFormato, FormatoFactura.Extension) - If File.Exists(dirFormato) Then - My.Computer.FileSystem.DeleteFile(dirFormato) - End If - My.Computer.FileSystem.MoveFile(FormatoFactura.FileUrl, dirFormato) - ObjEmpresa.UpdateFormatoImpresion(CveEmpresa, 2) - Else - ObjEmpresa.UpdateFormatoImpresion(CveEmpresa, 1) - End If - End Select - Case 5 - If Not True Then - RegistraScript("$('#globalprevious').click()") - End If - End Select - - ObjEmpresa.Dispose() - - End Sub - - -#End Region - -#Region " PASO 1: DATOS FISCALES" - -#Region " 1.1 DATOS FISCALES " - Private Sub CargaDdlRegimen() - Dim ObjEmpresa As New ClsSisEmpresas - If ObjEmpresa.GetRegimenFiscal(-1) Then - DdlRegimen.DataSource = ObjEmpresa.DtResultados() - Else - DdlRegimen.DataSource = Nothing - End If - ObjEmpresa.Dispose() - DdlRegimen.DataBind() - End Sub -#End Region - -#Region " 1.2: CERTIFICADOS " - Protected Sub BtnModalFiel_Click(sender As Object, e As EventArgs) - If Not TxtModalFielArchivo.getfiles().Archivos.Count > 0 Then - Alert("No se ha cargado ningun archivo. Por favor seleccione uno o espere se termine de cargar el archivo y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - Dim ArchivoFiel As Archivo = TxtModalFielArchivo.getfiles().Archivos(0) - - If ArchivoFiel.filenameO.Length > 114 Then - Alert("El nombre del archivo excede los 115 caracteres permitidos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - Dim ObjEmpresas As New ClsSisEmpresas - ObjEmpresas.IniciaTransacSQL() - Try - Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\Certificados" - DirectoryExistsCreate(Path) - Dim ArchivoDestino As String = String.Format("{0}\{1}", Path, ArchivoFiel.filename) - If File.Exists(ArchivoDestino) Then - My.Computer.FileSystem.DeleteFile(ArchivoDestino) - End If - If ObjEmpresas.RegistroEmpresasCertificadosFIEL($"{ArchivoFiel.filenameO}", CveEmpresa) Then - My.Computer.FileSystem.MoveFile(ArchivoFiel.FileUrl, ArchivoDestino) - TxtFiel.Text = ArchivoFiel.filenameO - ObjEmpresas.Commit() - - Else - ObjEmpresas.RollBack() - End If - Catch ex As Exception - ObjEmpresas.RollBack() - Alert("Ocurrió un error al guardar el archivo FIEL. Por favor vuelva a intentar.", TipoMensaje.MsgError) - Finally - ObjEmpresas.Dispose() - End Try - UPSat.Update() - RegistraScript("$('#ModalFiel').modal('hide');") - End Sub - - Protected Sub BtnCSD_Click(sender As Object, e As EventArgs) - If Not TxtModalCSDArchivo.getfiles().Archivos.Count > 0 Then - Alert("No hay seleccionado ningun archivo. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - Dim ArchivoCSD As Archivo = TxtModalCSDArchivo.getfiles().Archivos(0) - - If ArchivoCSD.filenameO.Length > 114 Then - Alert("El nombre del archivo excede los 115 caracteres permitidos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - - Dim ObjEmpresas As New ClsSisEmpresas - ObjEmpresas.IniciaTransacSQL() - Try - Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\Certificados" - DirectoryExistsCreate(Path) - Dim ArchivoDestino As String = String.Format("{0}\{1}", Path, ArchivoCSD.filenameO) - If File.Exists(ArchivoDestino) Then - My.Computer.FileSystem.DeleteFile(ArchivoDestino) - End If - If ObjEmpresas.RegistroEmpresasCertificadosCSD($"{ArchivoCSD.filenameO}", CveEmpresa) Then - My.Computer.FileSystem.MoveFile(ArchivoCSD.FileUrl, ArchivoDestino) - TxtCSD.Text = ArchivoCSD.filenameO - ObjEmpresas.Commit() - Else - ObjEmpresas.RollBack() - End If - Catch ex As Exception - ObjEmpresas.RollBack() - Alert("Ocurrió un error al guardar el archivo CSD. Por favor vuelva a intentar.", TipoMensaje.MsgError) - Finally - ObjEmpresas.Dispose() - End Try - UPSat.Update() - RegistraScript("$('#ModalCSD').modal('hide');") - End Sub -#End Region - -#End Region - -#Region " PASO 2: USUARIOS " - -#Region " 2.1: ROLES - PERFILES " - Protected Sub LBAgregarPerfil_Click(sender As Object, e As EventArgs) - TxtPerfil.Text = "" - BtnPerfil.Text = "Agregar Perfil" - ModalidadModal = "Insertar" - CveModal = -1 - UpPerfil.Update() - RegistraScript(" $('#ModalPerfil').modal('show');") - End Sub - Private Sub CargaGVRoles() - - Dim ObjRoles As New ClsSisRoles - If ObjRoles.GetRoles(-1, CveEmpresa) Then - DtRoles = ObjRoles.DtResultados - End If - ObjRoles.Dispose() - - GVRoles.DataSource = ObjRoles.DtResultados - GVRoles.DataBind() - - CargaDdlRoles() - - UPRoles.Update() - End Sub - - Protected Sub LBAgregarPerfilesSugeridos_Click(sender As Object, e As EventArgs) Handles LBAgregarPerfilesSugeridos.Click - Dim ObjRoles As New ClsSisRoles - If ObjRoles.AddRolesPredefinidos(CveEmpresa) Then - Alert("Los perfiles predefinidos se agregaron correctamente.", TipoMensaje.MsgInformacion) - End If - ObjRoles.Dispose() - CargaGVRoles() - End Sub - - Protected Sub BtnAddUpdatePerfil_Click(sender As Object, e As EventArgs) Handles BtnPerfil.Click - - 'INSERTAR DE NUEVO PERFIL - If ModalidadModal = "Insertar" Then - Dim ObjRoles As New ClsSisRoles - If ObjRoles.AddRol(1, TxtPerfil.Text, 100, CveEmpresa) Then - Alert("El nuevo perfil se guardó correctamente.", TipoMensaje.MsgInformacion) - End If - ObjRoles.Dispose() - End If - - 'ACTUALIZACION DE PERFIL - If ModalidadModal = "Actualizar" Then - If CveModal > 0 Then - Dim ObjRoles As New ClsSisRoles - Dim CveRol = CveModal - If ObjRoles.UpdateRol(1, TxtPerfil.Text, 100, CveRol) Then - Alert("El perfil se actualizó correctamente.", TipoMensaje.MsgInformacion) - End If - ObjRoles.Dispose() - End If - End If - - CargaGVRoles() - RegistraScript(" $('#ModalPerfil').modal('hide');") - End Sub - Protected Sub GVRoles_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GVRoles.RowCommand - If e.CommandName = "Permisos" Then - Dim Array = e.CommandArgument.ToString.Split("|"c) - If Array.Length = 2 Then - Dim ObjPermisos As New ClsSisRoles() - ViewState("CveRol") = Array(0).ToEntero - If ObjPermisos.GetRolesModulos(Array(0).ToEntero, -1, CvePlataforma:=1, CveEmpresa:=CveEmpresa) Then - GvPermisos.DataSource = ObjPermisos.DtResultados.FiltraParametros("AGRUPACION ='N'") - Else - GvPermisos.DataSource = Nothing - End If - ObjPermisos.Dispose() - GvPermisos.DataBind() - LbPermisos.Text = String.Format("Asignación de Permisos: {0}", Array(1).ToString) - - UPPAltaRep.Update() - UPAlta.Update() - RegistraScript("$('#DivPermisos').modal();") - End If - End If - If e.CommandName = "Procesos" Then - Dim Array = e.CommandArgument.ToString.Split("|"c) - If Array.Length = 2 Then - Dim ObjPermisos As New ClsSisRoles() - ViewState("CveProceso") = Array(0).ToEntero - If ObjPermisos.GetRolesProcesos(Array(0).ToEntero, -1) Then - GvProcesos.DataSource = ObjPermisos.DtResultados - Else - GvProcesos.DataSource = Nothing - End If - ObjPermisos.Dispose() - GvProcesos.DataBind() - LbProcesos.Text = String.Format("Asignación de Procesos: {0}", Array(1).ToString) - - UPPAltaProcesos.Update() - UpAltaP.Update() - RegistraScript("$('#DivProcesos').modal();") - End If - End If - If e.CommandName = "Editar" Then - Dim GvRow As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).NamingContainer, GridViewRow) - TxtPerfil.Text = GvRow.DataKey("Rol") - BtnPerfil.Text = "Actualizar Perfil" - ModalidadModal = "Actualizar" - CveModal = GvRow.DataKey("CveRol").ToEntero - UpPerfil.Update() - RegistraScript(" $('#ModalPerfil').modal('show');") - End If - End Sub - - Protected Sub GVRoles_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GVRoles.RowDeleting - Dim ObjRoles As New ClsSisRoles - If ObjRoles.RemoveRol(GVRoles.Rows(e.RowIndex).DataKey("CveRol").ToEntero) Then - Alert("El perfil se eliminó correctamente.", TipoMensaje.MsgInformacion) - End If - ObjRoles.Dispose() - - CargaGVRoles() - End Sub - -#End Region - -#Region " 2.2: USUARIOS " - - Private Sub RecargaGlobal() - Dim ObjUsuarios As New ClsSisUsuarios - If ObjUsuarios.GetUsuariosEmpresas(-1) Then - Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados - ' GlobalDTUsuarios() = ObjUsuario.DtResultados - - End If - ObjUsuarios.Dispose() - End Sub - - Private Sub CargaGVUsuarios() - Dim ObjUsuarios As New ClsSisUsuarios - If ObjUsuarios.GetUsuarios(-1) Then - GvUsuarios.DataSource = ObjUsuarios.DtResultados.FiltraParametros($"CveEmpresa={CveEmpresa}") - End If - ObjUsuarios.Dispose() - GvUsuarios.DataBind() - UpGVUsuarios.Update() - End Sub - Private Sub CargaDdlRoles() - DdlRoles.Items.Clear() - DdlRoles.DataSource = DtRoles - DdlRoles.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlRoles.DataBind() - End Sub - Protected Sub LBAgregarUsuario_Click(sender As Object, e As EventArgs) - TxtNombre.Text = "" - TxtCorreo.Text = "" - DdlRoles.SelectedValueExist("-1") - BtnUsuario.Text = "Agregar Usuario" - ModalidadModal = "Insertar" - CveModal = -1 - UpUsuario.Update() - RegistraScript(" $('#ModalUsuario').modal('show');") - End Sub - Protected Sub BtnAddUpdateUsuario_Click(sender As Object, e As EventArgs) Handles BtnUsuario.Click - Dim Usuario As New ClsSisUsuarios - Dim Rol As String = "" - Dim CveUsuario As Integer = 0 - If DdlRoles.SelectedItem.ToString = "Compras" Then Rol = DdlRoles.SelectedItem.ToString - If DdlRoles.SelectedItem.ToString = "Director General" Then Rol = DdlRoles.SelectedItem.ToString - If DdlRoles.SelectedItem.ToString = "Ventas" Then Rol = DdlRoles.SelectedItem.ToString - If DdlRoles.SelectedItem.ToString = "Almacen" Then Rol = DdlRoles.SelectedItem.ToString - If DdlRoles.SelectedItem.ToString = "Bancos" Then Rol = DdlRoles.SelectedItem.ToString - 'INGRESA UN NUEVO USUARIO - If ModalidadModal = "Insertar" Then - CveUsuario = Usuario.AddUsuario(TxtCorreo.Text, ClsPaginas.ContraseñaPredeterminadaEncriptada, TxtNombre.Text, DdlRoles.SelectedValue.ToEntero, TxtCorreo.Text, -1, -1, True, 100, CveEmpresa, -1, DdlRoles.SelectedValue) - If CveUsuario > 0 Then - Alert("El nuevo Usuario se guardó correctamente con la contraseña temporal -acceso-.", TipoMensaje.MsgInformacion) - If Rol <> "" Then - Usuario.AddUsuariosModulosPyMe(CveUsuario, Rol) - End If - Usuario.AddUsuariosEmpresas(CveUsuario, CveEmpresa) - End If - End If - - 'ACTUALIZA USUARIO - If ModalidadModal = "Actualizar" Then - If CveModal > 0 Then - Dim CveUsuarioUpdate = CveModal - If Usuario.UpdateUsuario(TxtCorreo.Text, TxtNombre.Text, DdlRoles.SelectedValue.ToEntero, TxtCorreo.Text, -1, -1, True, True, CveEmpresa, CveUsuarioUpdate, -1, -1) Then - Alert("El Usuario se actualizó correctamente", TipoMensaje.MsgInformacion) - If Rol <> "" Then - Usuario.UpdateUsuariosModulosPyMe(CveUsuarioUpdate, Rol) - End If - End If - End If - End If - - Usuario.Dispose() - RegistraScript(" $('#ModalUsuario').modal('hide');") - CargaGVUsuarios() - CargaDdlUsuario() - RecargaGlobal() - CargaGridEstatusUsuarios() - End Sub - Protected Sub GVUsuarios_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvUsuarios.RowCommand - If e.CommandName = "Editar" Then - Dim GvRow As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).NamingContainer, GridViewRow) - TxtNombre.Text = GvRow.DataKey("Nombre") - TxtCorreo.Text = GvRow.DataKey("Correo") - DdlRoles.SelectedValueExist(GvRow.DataKey("CveRol")) - BtnUsuario.Text = "Actualizar Usuario" - ModalidadModal = "Actualizar" - CveModal = GvRow.DataKey("CveUsuario").ToEntero - UpUsuario.Update() - RegistraScript(" $('#ModalUsuario').modal('show');") - End If - End Sub - Protected Sub GVUsuarios_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvUsuarios.RowDeleting - Dim Usuario As New ClsSisUsuarios - If Usuario.RemoveUsuario(GvUsuarios.Rows(e.RowIndex).DataKey("CveUsuario").ToEntero) Then - Alert("El usuario se eliminó correctamente.", TipoMensaje.MsgInformacion) - End If - Usuario.Dispose() - CargaGVUsuarios() - CargaGridEstatusUsuarios() - End Sub -#End Region - - Protected Sub CmdGuardar_Click(sender As Object, e As EventArgs) Handles CmdGuardar.Click - Dim Roles As New ClsSisRoles - For Each Row As GridViewRow In GvPermisos.Rows - Roles.UpdateRolesModulos(Row.DataKey("CveRol").ToEntero, Row.DataKey("CveModulo").ToEntero, If(Row.FCCheckBox("ChkP").Checked, 1, 0), 100) - Next - Roles.Dispose() - UPPAltaRep.Update() - RegistraScript("$('#DivPermisos').modal('hide');") - End Sub - Protected Sub BtnGuardaProcesos_Click(sender As Object, e As EventArgs) Handles BtnGuardaProcesos.Click - Dim Roles As New ClsSisRoles - For Each Row As GridViewRow In GvProcesos.Rows - Roles.UpdateRolesProcesos(Row.DataKey("CveRol").ToEntero, Row.DataKey("CveProceso").ToEntero, If(Row.FCCheckBox("ChkP").Checked, 1, 0), 100) - Next - Roles.Dispose() - RegistraScript("$('#DivProcesos').modal('hide');") - UPPAltaProcesos.Update() - End Sub - - Protected Sub GvPermisos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPermisos.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - If CveEmpresa > 0 Then - If (e.Row.DBCampo("CveModuloAcceso")) <> "" Then e.Row.FCCheckBox("ChkP").Checked = True - End If - End If - End Sub - - Protected Sub GvProcesos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvProcesos.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - If CveEmpresa > 0 Then - If (e.Row.DBCampo("CveModuloAcceso")) <> "" Then - e.Row.Cells(0).CssClass = "bg-yellow" - End If - If (e.Row.DBCampo("CveProcesoAcceso")) <> "" Then e.Row.FCCheckBox("ChkP").Checked = True - End If - End If - End Sub - -#End Region - -#Region " PASO 3: CONFIGURACION " - -#Region " 3.1: LOGO " - Protected Sub GuardaLogo() - If TextLogo.getfiles().Archivos().Count = 1 Then - Dim ArchivoLogo As Archivo = TextLogo.getfiles().Archivos(0) - If ArchivoLogo.filenameO.Length <= 114 Then - Try - Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}" - DirectoryExistsCreate(Path) - Dim ArchivoDestino As String = String.Format("{0}\Logo.{1}", Path, ArchivoLogo.Extencion) - If File.Exists(ArchivoDestino) Then - My.Computer.FileSystem.DeleteFile(ArchivoDestino) - End If - My.Computer.FileSystem.CopyFile(ArchivoLogo.FileUrl, ArchivoDestino) - Catch ex As Exception - Alert("Ocurrió un error al guardar el Logo de la empresa. Por favor vuelva a intentar.", TipoMensaje.MsgError) - End Try - Else - Alert("El nombre del archivo excede los 115 caracteres permitidos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - End If - End If - End Sub -#End Region - -#Region " 3.2: CORREOS " - -#End Region - -#Region " 3.3: PLANTILLA PARA ENVIO DE CORREOS" - Protected Sub LnkBtnMuestraEtiquetas_Click(sender As Object, e As EventArgs) - RegistraScript("$('#ModalEtiquetas').modal();") - End Sub -#End Region - -#Region " 3.4: FORMATO FACTURA" - - Protected Sub linkActualizar_Click(sender As Object, e As EventArgs) - VerEditarFactura() - End Sub - Protected Sub RblFormatoFactura_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblFormatoFactura.SelectedIndexChanged - Dim StrParams As New StringBuilder - Dim Directorio = ModExtensiones.DirectorioBaseEmpresas + String.Format("Empresas\{0}\Formatos\Factura.mrt", CveEmpresa) - Dim Archivo As New FileInfo(Directorio) - RblFormatoFactura.Items.Item(1).Enabled = Archivo.Exists - DivSubirFactura.Visible = (RblFormatoFactura.SelectedValue = "2") - HlFormatoFactura.Visible = (RblFormatoFactura.SelectedValue.Contiene("3", "4")) - HlFormatoFactura.Text = If(RblFormatoFactura.SelectedValue = "3", "Agregar", "Editar") - StrParams.Append("TIPO=Ing") - StrParams.Append($"&CVEEMPRESA={CveEmpresa}") - StrParams.Append($"&EMPRESA={NombreEmpresaPropiedad}") - StrParams.Append($"&RFC={RFCPropiedad}") - StrParams.Append($"&DOMICILIO={TxtDireccion.Text}") - - If RblFormatoFactura.SelectedValue = "4" AndAlso Archivo.Exists Then - HlFormatoFactura.NavigateUrl = $"/Ventas/ReporteDetalle.aspx?Op={Encripta(StrParams.ToString)}&Mod=Editar" - Else - HlFormatoFactura.NavigateUrl = $"/Ventas/ReporteDetalle.aspx?Op={Encripta(StrParams.ToString)}" - End If - UpFormatoFactura.Update() - End Sub - Private Sub VerEditarFactura() - Dim Directorio = ModExtensiones.DirectorioBaseEmpresas + String.Format("Empresas\{0}\Formatos\Factura.mrt", CveEmpresa) - Dim Archivo As New FileInfo(Directorio) - RblFormatoFactura.Items.Item(1).Enabled = Archivo.Exists - If Archivo.Exists Then - Alert("Formato de factura guardado correctamente", TipoMensaje.MsgInformacion) - Else - Alert("Hubo un error al guardar el formato de factura. Favor de llamar a soporte tecnico", TipoMensaje.MsgInformacion) - End If - UpFormatoFactura.Update() - End Sub - -#End Region - -#Region " 3.5: CENTRO COSTOS " - - Private Sub CargaRequired() - If ChkEsSucursal.Checked = True Then - RFVSerie.Enabled = True - RFVIVA.Enabled = True - RFVCalle.Enabled = True - RFVNoExtCC.Enabled = True - RFVColoniaCC.Enabled = True - RFVLocalidadCC.Enabled = True - RFVMunicipio.Enabled = True - RFVEstadoCC.Enabled = True - RFVPais.Enabled = True - RFVCPCC.Enabled = True - - RFVSerie.Visible = True - RFVIVA.Visible = True - RFVCalle.Visible = True - RFVNoExtCC.Visible = True - RFVColoniaCC.Visible = True - RFVLocalidadCC.Visible = True - RFVMunicipio.Visible = True - RFVEstadoCC.Visible = True - RFVPais.Visible = True - RFVCPCC.Visible = True - - Else - - RFVSerie.Enabled = False - RFVIVA.Enabled = False - RFVCalle.Enabled = False - RFVNoExtCC.Enabled = False - RFVColoniaCC.Enabled = False - RFVLocalidadCC.Enabled = False - RFVMunicipio.Enabled = False - RFVEstadoCC.Enabled = False - RFVPais.Enabled = False - RFVCPCC.Enabled = False - - RFVSerie.Visible = False - RFVIVA.Visible = False - RFVCalle.Visible = False - RFVNoExtCC.Visible = False - RFVColoniaCC.Visible = False - RFVLocalidadCC.Visible = False - RFVMunicipio.Visible = False - RFVEstadoCC.Visible = False - RFVPais.Visible = False - RFVCPCC.Visible = False - - End If - End Sub - - Private Sub ChkEsSucursal_CheckedChanged(sender As Object, e As EventArgs) Handles ChkEsSucursal.CheckedChanged - CargaRequired() - - End Sub - - Private Sub CargaGVCC() - Dim ObjSubProyectos As New ClsSubProyectos - If ObjSubProyectos.GetSubProyectos() Then - GvCC.DataSource = ObjSubProyectos.DtResultados.FiltraParametros($"CveEmpresa = {CveEmpresa}") - End If - ObjSubProyectos.Dispose() - GvCC.DataBind() - - CargaDdlProyectos() - - UpGVCC.Update() - End Sub - Private Sub CargaDdlProyectos() - DdlProyecto.Items.Clear() - Dim ObjProyectos As New ClsProyectos - If ObjProyectos.GetProyectos() Then - DdlProyecto.DataSource = ObjProyectos.DtResultados.FiltraParametros($"CveEmpresa = {CveEmpresa}") - End If - ObjProyectos.Dispose() - DdlProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlProyecto.DataBind() - End Sub - Protected Sub LBAgregarCC_Click(sender As Object, e As EventArgs) - - TxtCentroCosto.Text = "" - DdlProyecto.SelectedValueExist("-1") - - TxtSerie.Text = "" - TxtIVA.Text = "" - TxtCalle.Text = "" - TxtNoExtCC.Text = "" - TxtNoIntCC.Text = "" - TxtColoniaCC.Text = "" - TxtLocalidadCC.Text = "" - TxtMunicipio.Text = "" - TxtEstadoCC.Text = "" - TxtPais.Text = "" - TxtCPCC.Text = "" - If DdlProyecto.SelectedValue.ToEntero.Contiene(1, 2) Then - DivProyecto.Style.Add("display", "none") - Else - DivProyecto.Style.Add("display", "") - End If - ChkEsMatriz.Checked = False - ChkEsSucursal.Checked = False - - BtnCC.Text = "Agregar Centro Costo" - ModalidadModal = "Insertar" - CveModal = -1 - UpCC.Update() - RegistraScript(" $('#ModalCC').modal('show');") - End Sub - Protected Sub BtnCC_Click(sender As Object, e As EventArgs) Handles BtnCC.Click - If DdlProyecto.SelectedValue = "-1" And ModalidadModal = "Actualizar" Then - Alert("Tiene que seleccionar un proyecto", TipoMensaje.MsgAdvertencia) - Else - Dim TieneError As Boolean = False - Dim ObjSubproyectos As New ClsSubProyectos - Dim ObjProyecto As New ClsProyectos(ObjSubproyectos.IniciaTransacSQL()) - Dim TipoSucursal As Integer - Dim EsSucursal As Integer - Dim CveProyecto As Integer - If ChkEsMatriz.Checked = True Then TipoSucursal = 1 Else TipoSucursal = 0 - If ChkEsSucursal.Checked = True Then EsSucursal = 1 Else EsSucursal = 0 - - 'INGRESA UN NUEVO CC - If ModalidadModal = "Insertar" Then - If DdlProyecto.SelectedValue = "-1" Then - If Not ObjProyecto.AddProyecto(TxtCentroCosto.Text, 100, CveEmpresa) Then - TieneError = True - End If - End If - If TieneError = False Then - If DdlProyecto.SelectedValue = "-1" Then CveProyecto = ObjProyecto.CveProyecto Else CveProyecto = DdlProyecto.SelectedValue.ToEntero - If ObjSubproyectos.AddCentroCosto(TxtCentroCosto.Text.Trim, 0, 100, CveEmpresa, CveProyecto, Serie:=TxtSerie.Text.Trim, IVA:=TxtIVA.Text.ToDecimal, Calle:=TxtCalle.Text.Trim, NoExt:=TxtNoExtCC.Text.Trim, - NoInt:=TxtNoIntCC.Text.Trim, Colonia:=TxtColoniaCC.Text.Trim, Localidad:=TxtLocalidadCC.Text.Trim, Municipio:=TxtMunicipio.Text.Trim, Estado:=TxtEstadoCC.Text.Trim, Pais:=TxtPais.Text.Trim, CP:=TxtCPCC.Text.Trim, TipoSucursal:=TipoSucursal, EsSucursal:=EsSucursal) Then - Alert("El nuevo Centro Costo se guardó correctamente", TipoMensaje.MsgInformacion) - Else - TieneError = True - End If - End If - End If - - 'ACTUALIZA CC - If ModalidadModal = "Actualizar" Then - If CveModal > 0 Then - Dim CveCentroCosto = CveModal - If ObjSubproyectos.UpdateCentroCosto(CveCentroCosto, TxtCentroCosto.Text.Trim, 0, 1, 100, CveEmpresa, DdlProyecto.SelectedValue.ToEntero, Serie:=TxtSerie.Text.Trim, IVA:=TxtIVA.Text.ToDecimal, Calle:=TxtCalle.Text.Trim, NoExt:=TxtNoExtCC.Text.Trim, - NoInt:=TxtNoIntCC.Text.Trim, Colonia:=TxtColoniaCC.Text.Trim, Localidad:=TxtLocalidadCC.Text.Trim, Municipio:=TxtMunicipio.Text.Trim, Estado:=TxtEstadoCC.Text.Trim, Pais:=TxtPais.Text.Trim, CP:=TxtCPCC.Text.Trim, TipoSucursal:=TipoSucursal, EsSucursal:=EsSucursal) Then - Alert("El Centro Costo se actualizó correctamente", TipoMensaje.MsgInformacion) - Else - TieneError = True - End If - End If - End If - - If TieneError = True Then - ObjProyecto.RollBack() - Else - ObjProyecto.Commit() - End If - ObjProyecto.Dispose() - ObjSubproyectos.Dispose() - - RegistraScript(" $('#ModalCC').modal('hide');") - CargaGVCC() - CargaSubProyectos() - UpRequisiciones.Update() - End If - End Sub - Protected Sub GVCC_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvCC.RowCommand - If e.CommandName = "Editar" Then - Dim GvRow As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).NamingContainer, GridViewRow) - TxtCentroCosto.Text = GvRow.DataKey("SubProyecto") - DdlProyecto.SelectedValueExist(GvRow.DataKey("CveProyecto")) - - TxtSerie.Text = GvRow.DataKey("Serie") - TxtIVA.Text = GvRow.DataKey("IVA") - TxtCalle.Text = GvRow.DataKey("Calle") - TxtNoExtCC.Text = GvRow.DataKey("NoExt") - TxtNoIntCC.Text = GvRow.DataKey("NoInt") - TxtColoniaCC.Text = GvRow.DataKey("Colonia") - TxtLocalidadCC.Text = GvRow.DataKey("Localidad") - TxtMunicipio.Text = GvRow.DataKey("Municipio") - TxtEstadoCC.Text = GvRow.DataKey("Estado") - TxtPais.Text = GvRow.DataKey("Pais") - TxtCPCC.Text = GvRow.DataKey("CP") - ChkEsMatriz.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False) - ChkEsMatriz.Checked = If(GvRow.DataKey("TipoSucursal").ToString.ToEntero = 1, True, False) - ChkEsSucursal.Checked = If(GvRow.DataKey("EsSucursal").ToString.ToEntero = 1, True, False) - - BtnCC.Text = "Actualizar Centro Costo" - ModalidadModal = "Actualizar" - CveModal = GvRow.DataKey("CveSubProyecto").ToEntero - CargaRequired() - UpCC.Update() - RegistraScript(" $('#ModalCC').modal('show');") - End If - End Sub - Protected Sub GVCC_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvCC.RowDeleting - Dim ObjSubproyectos As New ClsSubProyectos - If ObjSubproyectos.RemoveSubProyecto(GvCC.Rows(e.RowIndex).DataKey("CveSubProyecto").ToEntero) Then - Alert("El Centro Costo se eliminó correctamente.", TipoMensaje.MsgInformacion) - End If - ObjSubproyectos.Dispose() - - CargaGVCC() - End Sub - - Private Sub DdlTipoCentroCostos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoCentroCostos.SelectedIndexChanged - If DdlTipoCentroCostos.SelectedValue <> "-1" Then - Dim ObjEmpresas As New ClsSisEmpresas - ObjEmpresas.UpdateTipoCentroCosto(DdlTipoCentroCostos.SelectedValue.ToEntero, CveEmpresa) - ObjEmpresas.Dispose() - End If - - End Sub -#End Region - -#Region " 3.6: FOLIOS" - Private Sub CargaSubProyectos() - DdlSubProyecto.Items.Clear() - DdlSubProyectoClientes.Items.Clear() - DdlEstatusSubProyecto.Items.Clear() - DdlSubProyectoInventario.Items.Clear() - Dim ObjSubProyectos As New ClsSubProyectos - If ObjSubProyectos.GetSubProyectos() Then - DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlSubProyecto.DataSource = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & CveEmpresa) - DdlSubProyecto.DataBind() - DdlSubProyectoClientes.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlSubProyectoClientes.DataSource = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & CveEmpresa) - DdlSubProyectoClientes.DataBind() - DdlEstatusSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlEstatusSubProyecto.DataSource = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & CveEmpresa) - DdlEstatusSubProyecto.DataBind() - DdlSubProyectoInventario.DataSource = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & CveEmpresa) - DdlSubProyectoInventario.DataBind() - End If - ObjSubProyectos.Dispose() - UpRequisiciones.Update() - End Sub - - Private Sub CargaGvFolio() - Dim ObjFolio As New ClsGralFolios - If ObjFolio.GetFolios(CveEmpresa:=CveEmpresa) Then - GvFolios.DataSource = ObjFolio.DtResultados - GvFolios.DataBind() - End If - UpFolio.Update() - ObjFolio.Dispose() - End Sub - - Protected Sub LnkAgregarFolio_Click(sender As Object, e As EventArgs) Handles LnkAgregarFolio.Click - - DdlSubProyecto.SelectedValueExist("-1") - DdlTipoDocto.SelectedValueExist("-1") - TxtFolioInicial.Text = "" - TxtFolioFinal.Text = "" - TxtFolioActual.Text = "" - BtnGuardarFolio.Text = "Agregar Folio" - ModalidadModal = "Insertar" - ChkEstatus.Checked = True - CveModal = -1 - UpAddFolio.Update() - RegistraScript(String.Format("$('#{0}').modal('show');", "DivAgregarFolio")) - End Sub - - - Protected Sub GVFolios_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvFolios.RowCommand - If e.CommandName = "Editar" Then - Dim GvRow As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).NamingContainer, GridViewRow) - TxtFolioActual.Text = GvRow.DataKey("FActual") - TxtFolioFinal.Text = GvRow.DataKey("FFinal") - TxtFolioInicial.Text = GvRow.DataKey("FInicial") - DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto")) - DdlTipoDocto.SelectedValueExist(GvRow.DataKey("TipoDocto")) - ChkEstatus.Checked = If(GvRow.DataKey("Estado").ToString = "Activo", True, False) - DivFactual.Visible = True - BtnGuardarFolio.Text = "Actualizar Folio" - ModalidadModal = "Actualizar" - CveModal = GvRow.DataKey("CveFolio").ToEntero - UpAddFolio.Update() - RegistraScript(String.Format("$('#{0}').modal('show');", "DivAgregarFolio")) - End If - End Sub - - Protected Sub GvFolios_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvFolios.RowDeleting - Dim ObjFolio As New ClsGralFolios - If ObjFolio.RemoveFolios(GvFolios.Rows(e.RowIndex).DataKey("CveFolio").ToEntero) Then - Alert("El Folio se eliminó correctamente.", TipoMensaje.MsgInformacion) - End If - ObjFolio.Dispose() - - CargaGvFolio() - End Sub - - Protected Sub BtnGuardarFolio_Click(sender As Object, e As EventArgs) Handles BtnGuardarFolio.Click - If DdlSubProyecto.SelectedValue = "-1" Then - Alert("Tiene que seleccionar un centro de costos.", TipoMensaje.MsgAdvertencia) - ElseIf DdlTipoDocto.SelectedValue = "-1" Then - Alert("Tiene que seleccionar un tipo docto.", TipoMensaje.MsgAdvertencia) - Else - Dim ObjFolio As New ClsGralFolios - If ModalidadModal = "Insertar" Then - If ObjFolio.AddFolios(DdlSubProyecto.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue, "", TxtFolioInicial.Text.ToEntero, TxtFolioInicial.Text.ToEntero, TxtFolioFinal.Text.ToEntero, "", 100, CveEmpresa) Then - Alert("El Folio se agrego correctamente.", TipoMensaje.MsgInformacion) - RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarFolio")) - End If - End If - If ModalidadModal = "Actualizar" Then - If CveModal > 0 Then - Dim CveFolio = CveModal - If ObjFolio.UpdateFolios(DdlSubProyecto.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue, "", TxtFolioInicial.Text.ToEntero, TxtFolioActual.Text.ToEntero, TxtFolioFinal.Text.ToEntero, "", If(ChkEstatus.Checked, True, False), 100, CveFolio) Then - Alert("El Folio se actualizo correctamente.", TipoMensaje.MsgInformacion) - RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarFolio")) - End If - End If - End If - ObjFolio.Dispose() - CargaGvFolio() - End If - End Sub - - - -#End Region - -#Region " 3.7: ALMACEN" - - Private Sub CargaSubProyectosInventario() - Dim ObjSubProyectos As New ClsSubProyectos - If ObjSubProyectos.GetSubProyectos() Then - DdlSubProyectoInventario.DataSource = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & CveEmpresa) - DdlSubProyectoInventario.DataBind() - - End If - ObjSubProyectos.Dispose() - End Sub - - Private Sub CargaGvInventario() - Dim ObjInventario As New ClsInventarios - If ObjInventario.GetAlmacenes(-1, -1, CveEmpresa, -1) Then - GvInventario.DataSource = ObjInventario.DtResultados - GvInventario.DataBind() - End If - UpInventario.Update() - ObjInventario.Dispose() - End Sub - - Protected Sub LnkAgregarInventario_Click(sender As Object, e As EventArgs) Handles LnkAgregarInventario.Click - - DdlSubProyectoInventario.SelectedValueExist("-1") - TxtAlmacen.Text = "" - DdlTipoAlmacen.SelectedValueExist("-1") - DdlModalidad.SelectedValueExist("0") - DdlInventariable.SelectedValueExist("1") - BtnAgregarAlmacen.Text = "Agregar Almacen" - ModalidadModal = "Insertar" - ChkEstatusInventario.Checked = True - CveModal = -1 - UpAddAlmacen.Update() - RegistraScript(String.Format("$('#{0}').modal('show');", "divAddAlmacen")) - End Sub - - - Protected Sub GvInventario_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvInventario.RowCommand - If e.CommandName = "Editar" Then - Dim GvRow As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).NamingContainer, GridViewRow) - TxtAlmacen.Text = GvRow.DataKey("Almacen") - DdlSubProyectoInventario.SelectedValueExist(GvRow.DataKey("CveSubProyecto")) - DdlTipoAlmacen.SelectedValueExist(GvRow.DataKey("CveTipoAlmacen")) - DdlModalidad.SelectedValueExist(GvRow.DataKey("CveModalidad")) - DdlInventariable.SelectedValueExist(GvRow.DataKey("Inventariable")) - ChkEstatusInventario.Checked = If(GvRow.DataKey("Estatus").ToString = "Activo", True, False) - BtnAgregarAlmacen.Text = "Actualizar Almacen" - ModalidadModal = "Actualizar" - CveModal = GvRow.DataKey("CveAlmacen").ToEntero - UpAddAlmacen.Update() - RegistraScript(String.Format("$('#{0}').modal('show');", "divAddAlmacen")) - End If - End Sub - - Protected Sub GvInventario_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvInventario.RowDeleting - Dim ObjInventario As New ClsInventarios - If ObjInventario.RemoveAlmacen(GvInventario.Rows(e.RowIndex).DataKey("CveAlmacen").ToEntero) Then - Alert("El Almacen se eliminó correctamente.", TipoMensaje.MsgInformacion) - End If - ObjInventario.Dispose() - - CargaGvInventario() - End Sub - - Protected Sub BtnAgregarAlmacen_Click(sender As Object, e As EventArgs) Handles BtnAgregarAlmacen.Click - If DdlSubProyectoInventario.SelectedValue = "-1" Then - Alert("Tiene que seleccionar un centro de costos.", TipoMensaje.MsgAdvertencia) - Else - Dim ObjInventario As New ClsInventarios - If ModalidadModal = "Insertar" Then - If ObjInventario.AddAlmacen(TxtAlmacen.Text, DdlTipoAlmacen.SelectedValue.ToEntero, Nothing, DdlModalidad.SelectedValue.ToEntero, 100, CveEmpresa, CByte(DdlInventariable.SelectedValue), DdlSubProyectoInventario.SelectedValue.ToEntero) Then - Alert("El Almacen se agrego correctamente.", TipoMensaje.MsgInformacion) - RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddAlmacen")) - End If - End If - If ModalidadModal = "Actualizar" Then - If CveModal > 0 Then - Dim CveAlmacen = CveModal - If ObjInventario.UpdateAlmacen(TxtAlmacen.Text, DdlTipoAlmacen.SelectedValue.ToEntero, Nothing, DdlModalidad.SelectedValue.ToEntero, If(ChkEstatusInventario.Checked, True, False), CveAlmacen, CByte(DdlInventariable.SelectedValue), DdlSubProyectoInventario.SelectedValue.ToEntero) Then - Alert("El Almacen se actualizo correctamente.", TipoMensaje.MsgInformacion) - RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddAlmacen")) - End If - End If - End If - ObjInventario.Dispose() - CargaGvInventario() - End If - End Sub - - Private Sub GvInventario_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInventario.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.FCLiteral("LtlInventariable").Text = "True" Then - e.Row.FCLiteral("LtlInventariable").Text = "Si" - Else - e.Row.FCLiteral("LtlInventariable").Text = "No" - End If - End If - End Sub - - - -#End Region - -#Region " 3.8: REQUISICIONES" - - - Private Sub DdlEstatusSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusSubProyecto.SelectedIndexChanged - If DdlEstatusSubProyecto.SelectedValue = "-1" Then - GvEstatusUsuariosREQ.Enabled = False - GvEstatusUsuariosREQ.Visible = False - btnGuardarEstatusUsuariosREQ.Visible = False - Else - GvEstatusUsuariosREQ.Enabled = True - GvEstatusUsuariosREQ.Visible = True - btnGuardarEstatusUsuariosREQ.Visible = True - End If - - CargaGridEstatusUsuarios() - - End Sub - - Private Sub CreaGrid() - Dim i As Integer = 1 - Dim ObjOC As New ClsOC - If ObjOC.GetEstatus() Then - For Each Row As DataRow In ObjOC.DtResultados.FiltraParametros(String.Format(" CveEmpresa = '{0}' And Tipo = '{1}' ", CveEmpresa, "Req"), "Orden").Rows - GvEstatusUsuariosREQ.Columns(i).HeaderText = Row("Estatus").ToString.ToUpper - GvEstatusUsuariosREQ.Columns(i).FooterText = Row("CveEstatus").ToString - i += 1 - Next - End If - ObjOC.Dispose() - End Sub - - Protected Sub btnGuardarEstatusUsuariosREQ_Click(sender As Object, e As EventArgs) Handles btnGuardarEstatusUsuariosREQ.Click - If DdlEstatusSubProyecto.SelectedValue = "-1" Then - Alert("Tiene que seleccionar un centro de costo", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - Dim objEstatusOC As New ClsOC - objEstatusOC.IniciaTransacSQL() - Dim HuboErrores As Boolean = False - - For Each Row As GridViewRow In GvEstatusUsuariosREQ.Rows - - Dim r As Integer = 1 - For i = 0 To Row.Cells.Count - 1 - - Dim CveEstatus As Integer = If(IsNumeric(GvEstatusUsuariosREQ.Columns(i).FooterText), GvEstatusUsuariosREQ.Columns(i).FooterText.ToEntero, 0) - If CveEstatus > 0 Then - - If Row.FCCheckBox("chkEstatus" + r.ToString).Checked = False And Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero > 0 Then - 'Eliminar el registro existente - If Not objEstatusOC.RemoveEstatusUsuarios(Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero, -1) Then - HuboErrores = True - Exit For - End If - ElseIf Row.FCCheckBox("chkEstatus" + r.ToString).Checked = True And Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero = -1 Then - If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, DdlEstatusSubProyecto.SelectedValue.ToEntero, Row.DataKey("CveUsuario").ToString.ToEntero, True) Then - HuboErrores = True - Exit For - End If - If HuboErrores Then - Exit For - End If - End If - r += 1 - End If - Next - - 'Si tubo algun error terminamos el proceso (FOR) - If HuboErrores Then - Exit For - End If - Next - - If Not HuboErrores Then - objEstatusOC.Commit() - Alert("Se guardaron los Cambios exitosamente", TipoMensaje.MsgInformacion) - Else - objEstatusOC.RollBack() - Alert("Ocurrió un error al guardar los cambios. Por favor vuelva a intentar", TipoMensaje.MsgError) - End If - - objEstatusOC.Dispose() - CargaGridEstatusUsuarios() - End Sub - - Protected Sub CargaGridEstatusUsuarios() - - 'If Tipo = "OC" Then TmpDTOC.Rows.Clear() Else TmpDTReq.Rows.Clear() - If DdlEstatusSubProyecto.SelectedValue = "-1" Then - GvEstatusUsuariosREQ.DataSource = Nothing - GvEstatusUsuariosREQ.DataBind() - - Exit Sub - End If - - Dim objEstatusOC As New ClsOC - - If objEstatusOC.GetEstatusUsuariosPyME(-1, -1, DdlEstatusSubProyecto.SelectedValue.ToEntero, -1, CveEmpresa) Then - DTEstatusUsuarios = objEstatusOC.DtResultados - GvEstatusUsuariosREQ.DataSource = DTEstatusUsuarios.FiltraParametros("", "Nombre", {"CveUsuario", "Nombre"}) - GvEstatusUsuariosREQ.DataBind() - End If - objEstatusOC.Dispose() - UpRequisiciones.Update() - End Sub - - Private Sub CreaGrid(Tipo As String) - Dim i As Integer = 1 - Dim ObjOC As ClsOC = New ClsOC - - If ObjOC.GetEstatus() Then - For Each Row As DataRow In ObjOC.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0} AND Tipo = '{1}' ", CveEmpresa, Tipo), "Orden").Rows - GvEstatusUsuariosREQ.Columns(i).HeaderText = Row("Estatus").ToString.ToUpper - GvEstatusUsuariosREQ.Columns(i).FooterText = Row("CveEstatus").ToString - i += 1 - Next - End If - - ObjOC.Dispose() - - While i <= 10 - GvEstatusUsuariosREQ.Columns(i).Visible = False - i += 1 - End While - End Sub - - Protected Sub GvEstatusUsuariosREQ_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstatusUsuariosREQ.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - Dim tmpT As DataTable = DTEstatusUsuarios.FiltraParametros(String.Format("CveUsuario = {0}", e.Row.DBCampo("CveUsuario").ToString)) - - For i As Integer = 1 To 3 - Dim CveEstatus As Integer = GvEstatusUsuariosREQ.Columns(i).FooterText.ToEntero - - If CveEstatus > 0 Then - Dim chkEstatus As CheckBox = e.Row.FCCheckBox(String.Format("chkEstatus{0}", i)) - 'Dim ibOpciones As ImageButton = e.Row.FCImageButton(String.Format("ibOpciones{0}", i)) - Dim hdnCveEstatusUsuarios As HiddenField = e.Row.FCHiddenField(String.Format("hdnCveEstatusUsuarios{0}", i)) - 'Dim lblSuperior As Label = e.Row.FCLabel(String.Format("lblSuperior{0}", i)) - 'Dim lblLimites As Label = e.Row.FCLabel(String.Format("lblLimites{0}", i)) - - - - 'ibOpciones.CommandArgument = GlobalDTOCEstatus(CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows(0)("CveEstatusSiguiente").ToString - - Dim RowEU As DataRowCollection = tmpT.FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows - Dim CveEstatusUsuarios As Integer = If(RowEU.Count > 0 AndAlso Not IsDBNull(RowEU(0)("CveEstatusUsuarios")), RowEU(0)("CveEstatusUsuarios").ToString.ToEntero, -1) - 'Dim LimiteInferior As Decimal = If(RowEU.Count > 0 AndAlso Not IsDBNull(RowEU(0)("LimiteInferior")), RowEU(0)("LimiteInferior").ToString.ToDecimal, -1) - 'Dim LimiteSuperior As Decimal = If(RowEU.Count > 0 AndAlso Not IsDBNull(RowEU(0)("LimiteSuperior")), RowEU(0)("LimiteSuperior").ToString.ToDecimal, -1) - Dim CveSuperior As Integer = If(RowEU.Count > 0 AndAlso Not IsDBNull(RowEU(0)("CveSuperior")), RowEU(0)("CveSuperior").ToString.ToEntero, -1) - Dim CveUsuario As Integer = If(RowEU.Count > 0 AndAlso Not IsDBNull(RowEU(0)("CveUsuario")), RowEU(0)("CveUsuario").ToString.ToEntero, -1) - Dim TipoTermino As Integer = If(RowEU.Count > 0 AndAlso Not IsDBNull(RowEU(0)("TipoTermino")), RowEU(0)("TipoTermino").ToString.ToEntero, -1) ' 0. supervisada, 1. autorizada, 2. rechazada - - If RowEU.Count > 0 Then - chkEstatus.Checked = True - 'chkEstatus.Attributes.Add("onclick", String.Format("javascript:chk1Change(this, '{0}');", ibOpciones.ClientID)) - hdnCveEstatusUsuarios.Value = RowEU(0)("CveEstatusUsuarios").ToString - - 'ibOpciones.Style.Add("display", "inline") - - Dim script As New StringBuilder - script.AppendFormat("javascript:hdnCveEstatusUsuarios.value='{0}'; ", CveEstatusUsuarios) - script.AppendFormat("IDhdnCveEstatusUsuarios.value='{0}'; ", hdnCveEstatusUsuarios.ClientID) - script.Append("hdnCveEstatus.value = '-1';") - script.Append("hdnCveUsuario.value = '-1';") - script.AppendFormat("hdnCveSuperior.value = '{0}'; ", CveSuperior) - 'script.AppendFormat("chkMostrarLimites.checked = {0};chkMostrarLimitesCambio();", If(LimiteInferior > 0 Or LimiteSuperior > 0 Or TipoTermino.Contiene(0, 1, 2), "true", "false")) - 'script.AppendFormat("$get('DivLimites').style.display = '{0}';", If(LimiteInferior > 0 Or LimiteSuperior > 0, "inline", "none")) - 'script.AppendFormat("txtLimiteInferior.value = '{0}'; ", If(LimiteInferior > 0, LimiteInferior.FormatoNumero, "")) - 'script.AppendFormat("txtLimiteSuperior.value = '{0}'; ", If(LimiteSuperior > 0, LimiteSuperior.FormatoNumero, "")) - 'ibOpciones.Attributes.Add("onclick", script.ToString) - - 'lblSuperior.Text = RowEU(0)("Superior").ToString - - 'If LimiteSuperior = -1 And LimiteInferior = -1 Then - ' 'Sin Limite - 'ElseIf LimiteSuperior > 0 And LimiteInferior = -1 Then - ' 'Solo Limite Superior - ' lblLimites.Text = String.Format("Hasta {0}", LimiteSuperior.ToString("N")) - 'ElseIf LimiteInferior > 0 And LimiteSuperior = -1 Then - ' 'Solo limite Inferior - ' lblLimites.Text = String.Format("Desde {0}", LimiteInferior.ToString("N")) - 'Else - ' 'Con Limites - ' lblLimites.Text = String.Format("{0} - {1}", LimiteInferior.ToString("N"), LimiteSuperior.ToString("N")) - 'End If - - e.Row.Cells(i).BackColor = Drawing.Color.Yellow - - If DTEstatusUsuarios.FiltraParametros(String.Format("CveEstatusSiguiente = {0} AND CveSuperior = {1}", CveEstatus, CveUsuario)).Rows.Count > 0 Then - chkEstatus.Attributes.Add("onclick", "javascript:var retorno = true; if (this.checked == false) retorno = confirm('Estas seguro????'); return retorno;") - End If - Else - chkEstatus.Checked = False - hdnCveEstatusUsuarios.Value = "-1" - 'ibOpciones.Style.Add("display", "none") - Dim script As New StringBuilder - script.AppendFormat("javascript:hdnCveEstatusUsuarios.value='{0}'; ", CveEstatusUsuarios) - script.AppendFormat("IDhdnCveEstatusUsuarios.value='{0}'; ", hdnCveEstatusUsuarios.ClientID) - script.AppendFormat("hdnCveEstatus.value = '{0}';", CveEstatus) - script.AppendFormat("hdnCveUsuario.value = '{0}';", e.Row.DBCampo("CveUsuario").ToString) - script.AppendFormat("hdnCveSuperior.value = '-1'; ") - 'script.AppendFormat("chkMostrarLimites.checked = {0};chkMostrarLimitesCambio();", If(LimiteInferior > 0 Or LimiteSuperior > 0, "true", "false")) - 'script.AppendFormat("txtLimiteInferior.value = '0.00'; ") - 'script.AppendFormat("txtLimiteSuperior.value = '0.00'; ") - 'ibOpciones.Attributes.Add("onclick", script.ToString) - End If - End If - Next - End If - End Sub - - - -#End Region - -#End Region - -#Region " PASO 4: CATALOGOS " - -#Region " 4.1: CLASIFICACIONES " - Private Sub CargaDdlClasificaciones() - DdlClasificacion.Items.Clear() - Dim ObjClasi As New ClsClasificaciones - If ObjClasi.GetClasificaciones(CveEmpresa) Then - DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlClasificacion.DataSource = ObjClasi.DtResultados - DdlClasificacion.DataBind() - End If - UpEditPS.Update() - UpAddPS.Update() - End Sub - Protected Sub BtnClasificacion_Click(sender As Object, e As EventArgs) Handles btnClasificacion.Click - If TxtAddClasificacion.getfiles().Archivos.Count > 0 Then - Dim file As Archivo = TxtAddClasificacion.getfiles().Archivos(0) - Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch - Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") - CargarExcelClasificaciones(Directorio, file.filename, Tipo) - Else - Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError) - End If - - 'If TxtAddClasificacion.getfiles().Archivos.Count > 0 Then - 'Dim file As Archivo = TxtAddClasificacion.getfiles().Archivos(0) - 'Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch & file.filename - 'CargarExcelClasificaciones(Directorio) - ' Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") - ' ' CargarArchivoClasificaciones(ModExtensiones.DirectorioBaseEmpresas & file.patch, file.filename, Tipo) - 'Else - ' Alert("No existe el archivo.Favor de subir un archivo de excel a la plataforma", TipoMensaje.MsgError) - 'End If - End Sub - Private Sub CargarExcelClasificaciones(Ruta As String, FileName As String, Tipo As String) - Dim dtClasificacion As New DataTable - Dim ErrorExcel = False - - 'Verificamos que el archivo tenga el formato correcto - If Tipo <> "EXCEL" Then - Alert("El archivo no tiene el formato correcto.", TipoMensaje.MsgError) - Exit Sub - End If - - Dim strConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + Ruta + FileName + ";Extended Properties=Excel 8.0;" - Dim objDbFactory As Common.DbProviderFactory = Common.DbProviderFactories.GetFactory("System.Data.OleDb") - - Using objDbConnection = objDbFactory.CreateConnection(), objDbAdapter = objDbFactory.CreateDataAdapter(), Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";") - - objDbConnection.ConnectionString = strConnString - objDbConnection.Open() - Dim objSheetNames As DataTable = objDbConnection.GetSchema("Tables") - Dim HojaExcel As String = objSheetNames.FiltroPrimeroValor("TABLE_NAME") - Try - Conexion.Open() - Dim cmd = Conexion.CreateCommand() - cmd.CommandType = CommandType.Text - cmd.CommandText = $"SELECT * FROM [{HojaExcel}]" - Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) - DataAdapter.Fill(dtClasificacion) - Conexion.Close() - - Catch ex As Exception - ErrorExcel = True - OnError("Ocurrio un error al leer el archivo Excel
" & ex.Message, ex) - End Try - Conexion.Close() - - End Using - - - If Not ErrorExcel Then - Dim NumRows As Integer = 0 - If Not dtClasificacion.Columns(0).ColumnName = "Clasificacion" Then - Alert("El nombre de la primera columna debe ser 'Clasificacion'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - - Dim ObjClasificaciones As New ClsClasificaciones - - For Each Row As DataRow In dtClasificacion.Rows - Dim Clasificacion As String = Row("Clasificacion").ToString - If ObjClasificaciones.AddClasificaciones(Clasificacion, "", 0, "", 0, "", 0, "", 0, 100, CveEmpresa, UsoClasificacion:=0) Then - NumRows = NumRows + 1 - End If - Next - Alert(String.Format("Se agregaron: {0} Clasificaciones correctamente.", NumRows), TipoMensaje.MsgInformacion) - If ObjClasificaciones.GetClasificaciones(CveEmpresa) Then - GvClasificaciones.DataSource = ObjClasificaciones.DtResultados - GvClasificaciones.DataBind() - End If - ObjClasificaciones.Dispose() - UpClasificaciones.Update() - RegistraScript("$('#DivAddClasificaciones').modal('hide');") - End If - End Sub - - Protected Sub GVClasificaciones_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvClasificaciones.RowDeleting - If CveEmpresa = 0 Then - DtClasificaciones.Rows.RemoveAt(e.RowIndex) - DtClasificaciones.AcceptChanges() - GvClasificaciones.DataSource = DtClasificaciones - GvClasificaciones.DataBind() - 'UPGVClasi.Update() - ElseIf CveEmpresa > 0 Then - Dim ObjClasificaciones As New ClsClasificaciones - If ObjClasificaciones.RemoveClasificacion(GvClasificaciones.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then - GvClasificaciones.EditIndex = -1 - GvClasificaciones.DataSource = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & CveEmpresa) - GvClasificaciones.DataBind() - Alert("La clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion) - Else - Alert("Ocurrió un error al eliminar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError) - End If - ObjClasificaciones.Dispose() - End If - End Sub - - Private Sub LnkAgregarClasificacion_Click(sender As Object, e As EventArgs) Handles LnkAgregarClasificacion.Click - TxtClasificacion.Text = "" - BtnAgregarClasificacion.Text = "Agregar Clasificacion" - ModalidadModal = "Insertar" - CveModal = -1 - UpAddClasificacion.Update() - RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddClasificacion")) - End Sub - - Private Sub BtnAgregarClasificacion_Click(sender As Object, e As EventArgs) Handles BtnAgregarClasificacion.Click - Dim ObjClasificacion As New ClsClasificaciones - - - If ModalidadModal = "Insertar" Then - If ObjClasificacion.AddClasificaciones(TxtClasificacion.Text, "", 0, "", 0, "", 0, "", 0, 100, CveEmpresa, UsoClasificacion:=0) Then - Alert("La clasificacion se agrego correctamente", TipoMensaje.MsgInformacion) - End If - End If - - - If ModalidadModal = "Actualizar" Then - If CveModal > 0 Then - Dim CveClasificacion = CveModal - If ObjClasificacion.UpdateClasificacion(TxtClasificacion.Text, "", 0, "", 0, "", 0, "", True, False, 0, 100, CveClasificacion) Then - Alert("La clasificacion se actualizo correctamente", TipoMensaje.MsgInformacion) - End If - End If - End If - - ObjClasificacion.Dispose() - RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddClasificacion")) - CargaGVClasificacion() - End Sub - - Private Sub CargaGVClasificacion() - Dim ObjClasificacion As New ClsClasificaciones - If ObjClasificacion.GetClasificaciones(CveEmpresa) Then - GvClasificaciones.DataSource = ObjClasificacion.DtResultados - GvClasificaciones.DataBind() - End If - ObjClasificacion.Dispose() - UpClasificaciones.Update() - End Sub - - Public Sub EditClasificacion_Click(sender As Object, e As EventArgs) - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - ModalidadModal = "Actualizar" - CveModal = GvRow.DataKey("CveClasificacion").ToEntero - TxtClasificacion.Text = GvRow.DataKey("Clasificacion") - BtnAgregarClasificacion.Text = "Actualizar Clasificacion" - UpAddClasificacion.Update() - RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddClasificacion")) - End Sub - -#End Region - -#Region " 4.2: UNIDADES DE MEDIDA " - Private Sub CargaDdlUM() - DdlUM.Items.Clear() - Dim ObjUM As New ClsUnidadesMedida - If ObjUM.GetUnidadesMedida(CveEmpresa) Then - DdlUM.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlUM.DataSource = ObjUM.DtResultados.FiltraParametros("CveEmpresa = " & CveEmpresa) - DdlUM.DataBind() - End If - UpEditPS.Update() - UpAddPS.DataBind() - End Sub - - Private Sub CargarExcelUnidadesMedida(Ruta As String, FileName As String, Tipo As String) - Dim dtUM As New DataTable - Dim ErrorExcel = False - - 'Verificamos que el archivo tenga el formato correcto - If Tipo <> "EXCEL" Then - Alert("El archivo no tiene el formato correcto.", TipoMensaje.MsgError) - Exit Sub - End If - - Dim strConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + Ruta + FileName + ";Extended Properties=Excel 8.0;" - Dim objDbFactory As Common.DbProviderFactory = Common.DbProviderFactories.GetFactory("System.Data.OleDb") - - Using objDbConnection = objDbFactory.CreateConnection(), objDbAdapter = objDbFactory.CreateDataAdapter(), Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";") - - objDbConnection.ConnectionString = strConnString - objDbConnection.Open() - Dim objSheetNames As DataTable = objDbConnection.GetSchema("Tables") - Dim HojaExcel As String = objSheetNames.FiltroPrimeroValor("TABLE_NAME") - Try - - Conexion.Open() - Dim cmd = Conexion.CreateCommand() - cmd.CommandType = CommandType.Text - cmd.CommandText = $"SELECT * FROM [{HojaExcel}]" - Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) - DataAdapter.Fill(dtUM) - Conexion.Close() - - Catch ex As Exception - ErrorExcel = True - OnError("Ocurrio un error al leer el archivo Excel
" & ex.Message, ex) - End Try - Conexion.Close() - - End Using - - If Not ErrorExcel AndAlso dtUM.Rows.Count > 0 Then - Dim NumRows As Integer = 0 - - ' Verificamos que el archivo tenga la estructura de la plantilla - If Not dtUM.Columns(0).ColumnName = "UnidadMedida" Then - Alert("El nombre de la primera columna debe ser 'UnidadMedida'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtUM.Columns(1).ColumnName = "Abreviatura" Then - Alert("El nombre de la segunda columna debe ser 'Abreviatura'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - - Dim ObjUnidadesMedida As New ClsUnidadesMedida - - For Each Row As DataRow In dtUM.Rows - Dim UnidadMedida As String = Row("UnidadMedida").ToString - Dim Abreviatura As String = Row("Abreviatura").ToString - If ObjUnidadesMedida.AddUnidadMedida(UnidadMedida, Abreviatura, "", "", "", 100, CveEmpresa, -1) > -1 Then - NumRows = NumRows + 1 - End If - Next - - Alert(String.Format("Se agregaron: {0} Unidades de Medida correctamente.", NumRows), TipoMensaje.MsgInformacion) - - If ObjUnidadesMedida.GetUnidadesMedida(CveEmpresa) Then - GvUM.DataSource = ObjUnidadesMedida.DtResultados.FiltraParametros($"CveEmpresa = {CveEmpresa}") - GvUM.DataBind() - End If - ObjUnidadesMedida.Dispose() - End If - UpGVUM.Update() - RegistraScript("$('#DivAddUnidadesMedida').modal('hide');") - End Sub - Protected Sub GvUM_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvUM.RowDeleting - If CveEmpresa = 0 Then - DtUM.Rows.RemoveAt(e.RowIndex) - DtUM.AcceptChanges() - GvUM.DataSource = DtUM - GvUM.DataBind() - UpGVUM.Update() - Else - Dim ObjUnidadesMedida As New ClsUnidadesMedida - If ObjUnidadesMedida.RemoveUnidadMedida(GvUM.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then - GvUM.EditIndex = -1 - GvUM.DataSource = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & CveEmpresa) - GvUM.DataBind() - Alert("La Unidad de Medida se eliminó correctamente.", TipoMensaje.MsgInformacion) - End If - ObjUnidadesMedida.Dispose() - End If - End Sub - - Public Sub EditUM_Click(sender As Object, e As EventArgs) - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - ModalidadModal = "Actualizar" - CveModal = GvRow.DataKey("CveUnidadMedida").ToEntero - TxtUM.Text = GvRow.DataKey("UnidadMedida") - TxtAbreviatura.Text = GvRow.DataKey("Abreviatura") - BtnAddUM.Text = "Actualizar Unidad de Medida" - UpAddUM.Update() - RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddUM")) - End Sub - - Private Sub CargaGVUM() - Dim ObjUM As New ClsUnidadesMedida - If ObjUM.GetUnidadesMedida(CveEmpresa) Then - GvUM.DataSource = ObjUM.DtResultados.FiltraParametros(String.Format("CveEmpresa={0}", CveEmpresa)) - GvUM.DataBind() - End If - ObjUM.Dispose() - UpGVUM.Update() - End Sub - - Private Sub LnkAddUM_Click(sender As Object, e As EventArgs) Handles LnkAddUM.Click - TxtUM.Text = "" - TxtAbreviatura.Text = "" - BtnAddUM.Text = "Agregar Unidad de Medida" - ModalidadModal = "Insertar" - CveModal = -1 - UpAddUM.Update() - RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddUM")) - End Sub - - Private Sub BtnAddUM_Click(sender As Object, e As EventArgs) Handles BtnAddUM.Click - Dim ObjUM As New ClsUnidadesMedida - - - If ModalidadModal = "Insertar" Then - If ObjUM.AddUnidadMedida(TxtUM.Text, TxtAbreviatura.Text, "", "", "", 100, CveEmpresa, -1) <> -1 Then - Alert("La clasificacion se agrego correctamente", TipoMensaje.MsgInformacion) - End If - End If - - - If ModalidadModal = "Actualizar" Then - If CveModal > 0 Then - Dim CveUM = CveModal - If ObjUM.UpdateUnidadMedida(TxtUM.Text, TxtAbreviatura.Text, "", "", "", True, 100, CveUM, -1) Then - Alert("La clasificacion se actualizo correctamente", TipoMensaje.MsgInformacion) - End If - End If - End If - - ObjUM.Dispose() - RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddUM")) - CargaGVUM() - End Sub - - Protected Sub BtnDivAddUnidadesMedida_Click(sender As Object, e As EventArgs) Handles BtnDivAddUnidadesMedida.Click - If TxtAddUnidadesMedida.getfiles().Archivos.Count > 0 Then - Dim file As Archivo = TxtAddUnidadesMedida.getfiles().Archivos(0) - Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch - Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") - CargarExcelUnidadesMedida(Directorio, file.filename, Tipo) - Else - Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError) - End If - End Sub - -#End Region - -#Region " 4.3: PRODUCTOS / SERVICIOS " - - Private Sub GVPS_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVPS.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - e.Row.Cells(3).Text = "$" + FormatNumber(e.Row.DBCampo("Precio").ToString, 2, , , TriState.True) - End If - End Sub - - Private Sub CargarExcelPS(rutaExcel As String, Tipo As String) - Dim DtExcel As New DataTable - Dim ErrorExcel = False - - If Tipo <> "EXCEL" Then - Alert("El archivo no tiene el formato correcto.", TipoMensaje.MsgError) - Exit Sub - End If - - Dim strConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + rutaExcel + ";Extended Properties=Excel 8.0;" - Dim objDbFactory As Common.DbProviderFactory = Common.DbProviderFactories.GetFactory("System.Data.OleDb") - - Using objDbConnection = objDbFactory.CreateConnection, - objDbAdapter = objDbFactory.CreateDataAdapter(), - Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + rutaExcel + ";") - - objDbConnection.ConnectionString = strConnString - objDbConnection.Open() - Dim objSheetNames As DataTable = objDbConnection.GetSchema("Tables") - Dim HojaExcel As String = objSheetNames.FiltroPrimeroValor("TABLE_NAME") - Try - - Conexion.Open() - Dim cmd = Conexion.CreateCommand() - cmd.CommandType = CommandType.Text - cmd.CommandText = $"SELECT * FROM [{HojaExcel}]" - Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) - DataAdapter.Fill(DtExcel) - Conexion.Close() - Catch ex As Exception - ErrorExcel = True - OnError("Ocurrio un error al leer el Excel
" & ex.Message, ex) - End Try - - End Using - - If Not ErrorExcel Then - 'Verificamos que la estructura del archivo coincida con la plantilla - - If Not DtExcel.Columns(0).ColumnName = "Codigo" Then - Alert("El nombre de la primera columna debe ser 'Codigo'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not DtExcel.Columns(1).ColumnName = "Descripcion" Then - Alert("El nombre de la segunda columna debe ser 'Descripcion'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not DtExcel.Columns(2).ColumnName = "Tipo" Then - Alert("El nombre de la primera columna debe ser 'Tipo'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not DtExcel.Columns(3).ColumnName = "Código Barras" Then - Alert("El nombre de la segunda columna debe ser 'Código Barras'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not DtExcel.Columns(4).ColumnName = "Unidad Medida" Then - Alert("El nombre de la primera columna debe ser 'Unidad Medida'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not DtExcel.Columns(5).ColumnName = "Clasificacion" Then - Alert("El nombre de la segunda columna debe ser 'Clasificacion'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not DtExcel.Columns(6).ColumnName = "Marca" Then - Alert("El nombre de la segunda columna debe ser 'Marca'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not DtExcel.Columns(7).ColumnName = "AplicaSerie" Then - Alert("El nombre de la primera columna debe ser 'AplicaSerie'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not DtExcel.Columns(8).ColumnName = "Precio" Then - Alert("El nombre de la segunda columna debe ser 'Precio'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not DtExcel.Columns(9).ColumnName = "IEPS" Then - Alert("El nombre de la segunda columna debe ser 'IEPS'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - - - - Dim NumRows As Integer = DtExcel.Rows.Count - - Dim ErrorPS As Boolean = False - Dim ExistePS As Boolean = False - Dim Contador As Integer = 0 - - 'Obtengo Productos - Dim ObjPS As New ClsProductosServicios - Dim DTPS As New DataTable - ObjPS.IniciaTransacSQL() - If ObjPS.GetPS(-1, -1, CveEmpresa) Then - DTPS = ObjPS.DtResultados - End If - 'Obtengo Clasificaciones - Dim ObjClasificaciones As New ClsClasificaciones - Dim DTClasificaciones As New DataTable - If ObjClasificaciones.GetClasificaciones(CveEmpresa) Then - DTClasificaciones = ObjClasificaciones.DtResultados - End If - ObjClasificaciones.Dispose() - - 'Obtengo Unidades de medida - Dim ObjUM As New ClsUnidadesMedida - Dim DTUM As New DataTable - If ObjUM.GetUnidadesMedida(CveEmpresa) Then - DTUM = ObjUM.DtResultados.FiltraParametros(String.Format("CveEmpresa={0}", CveEmpresa)) - End If - ObjUM.Dispose() - - For Each Row As DataRow In DtExcel.Rows - Dim Codigo As String = Row("Codigo").ToString - Dim Descripcion As String = Row("Descripcion").ToString - Dim TipoPS As String = Row("Tipo").ToString.Trim - Dim CodigoBarras As String = Row("Código Barras").ToString - Dim UnidadMedida As String = Row("Unidad Medida").ToString - Dim Clasificacion As String = Row("Clasificacion").ToString - Dim Marca As Decimal = Row("Marca").ToString.ToDecimal - Dim AplicaSerie As String = Row("AplicaSerie").ToString - Dim Precio As String = Row("Precio").ToString - Dim IEPS As String = Row("IEPS").ToString - - Dim CvePS As Integer - If DTPS.FiltraParametros($"Codigo = '{Codigo}'").Rows.Count > 0 Then - CvePS = DTPS.FiltraParametros($"Codigo = '{Codigo}'").Rows(0)("CvePS").ToString.ToEntero - Else - CvePS = 0 - End If - - Dim CveUnidadMedida As Integer - If DTUM.FiltraParametros($"UnidadMedida = '{UnidadMedida}'").Rows.Count > 0 Then - CveUnidadMedida = DTUM.FiltraParametros($"UnidadMedida = '{UnidadMedida}'").Rows(0)("CveUnidadMedida").ToString.ToEntero - Else - CveUnidadMedida = 0 - End If - - Dim CveClasificacion As Integer - If DTClasificaciones.FiltraParametros($"Clasificacion = '{Clasificacion}'").Rows.Count > 0 Then - CveClasificacion = DTClasificaciones.FiltraParametros($"Clasificacion = '{Clasificacion}'").Rows(0)("CveClasificacion").ToString.ToEntero - Else - CveClasificacion = 0 - End If - - If Not CveClasificacion > 0 Then Alert("No se encontró la Clasificación: " + Clasificacion, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For - If Not CveUnidadMedida > 0 Then Alert("No se encontró la Unidad de Medida: " + UnidadMedida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For - - If CveClasificacion < 0 Then CveClasificacion = 1 - - If CvePS > 0 Then - ExistePS = True - Contador = Contador + 1 - If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, Precio.ToDouble, 1, 1, False, 0, True, True, True, 100, CvePS, -1, -1, -1) Then - ErrorPS = True - Codigo.GuardaLog - Exit For - End If - Else - If Not ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, Precio.ToDouble, 0, 0, False, 0, False, True, 100, CveEmpresa, 1, 1) <> -1 Then - ErrorPS = True - Codigo.GuardaLog - Exit For - End If - End If - Next - - If Not ErrorPS Then - ObjPS.Commit() - If Contador > 0 Then - Alert(String.Format("Se agregaron: {0} Productos/Servicios correctamente.
Se Actualizaron: {1} Productos/Servicios ya que ya se encontraban registrados.", NumRows - Contador, Contador), TipoMensaje.MsgInformacion) - Else - Alert(String.Format("Se agregaron: {0} Productos/Servicios correctamente.", NumRows), TipoMensaje.MsgInformacion) - End If - TxtAddPS.Text = "" - Else - ObjPS.RollBack() - End If - End If - - RegistraScript("$('#DivAddPS').modal('hide');") - - CargaGVPS() - UPGvPS.Update() - End Sub - Protected Sub GvPS_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GVPS.RowDeleting - Dim objPS As New ClsProductosServicios() - If objPS.RemovePS(GVPS.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then - If objPS.GetPS(-1, -1, CveEmpresa) Then - GVPS.DataSource = objPS.DtResultados - GVPS.DataBind() - Else - GVPS.DataSource = Nothing - End If - Else - Alert("Ocurrió un Error al elimiar el Producto o Servicio. Por favor vuelva a intentar.", TipoMensaje.MsgError) - End If - UPGvPS.Update() - objPS.Dispose() - End Sub - - Public Sub EditPS_Click(sender As Object, e As EventArgs) - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - CargaDdlClasificaciones() - CargaDdlUM() - ModalidadModal = "Actualizar" - CveModal = GvRow.DataKey("CvePS").ToEntero - TxtPS.Text = GvRow.DataKey("PS") - TxtCodigo.Text = GvRow.DataKey("Codigo") - TxtCodigoBarras.Text = GvRow.DataKey("CodigoBarras") - TxtPrecio.Text = GvRow.DataKey("Precio") - DdlUM.SelectedValueExist(GvRow.DataKey("CveUnidadMedida")) - DdlTipoPS.SelectedValueExist(GvRow.DataKey("CveTipoPS")) - DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion")) - BtnDivUpdatePS.Text = "Actualizar Producto/Servicio" - ChkAplicaParaVenta.Checked = CBool(GvRow.DataKey("AplicaParaVenta")) - UpEditPS.Update() - RegistraScript("$('#DivUpdatePS').modal('show');") - End Sub - - Private Sub CargaGVPS() - Dim ObjPS As New ClsProductosServicios - If ObjPS.GetPS(-1, -1, CveEmpresa) Then - GVPS.DataSource = ObjPS.DtResultados - GVPS.DataBind() - End If - ObjPS.Dispose() - UPGvPS.Update() - End Sub - - Private Sub LnkAgregarPS_Click(sender As Object, e As EventArgs) Handles LnkAgregarPS.Click - CargaDdlClasificaciones() - CargaDdlUM() - ModalidadModal = "Insertar" - TxtPS.Text = "" - TxtCodigo.Text = "" - TxtCodigoBarras.Text = "" - TxtPrecio.Text = "" - DdlUM.SelectedValue = "-1" - DdlTipoPS.SelectedValue = "-1" - DdlClasificacion.SelectedValue = "-1" - ChkAplicaParaVenta.Checked = False - BtnDivUpdatePS.Text = "Agregar Producto/Servicio" - ModalidadModal = "Insertar" - CveModal = -1 - UpEditPS.Update() - RegistraScript(String.Format("$('#{0}').modal('show');", "DivUpdatePS")) - End Sub - - Protected Sub BtnDivUpdatePS_Click(sender As Object, e As EventArgs) Handles BtnDivUpdatePS.Click - If DdlClasificacion.SelectedValue = "-1" Then - Alert("Tiene que seleccionar una clasificacion", TipoMensaje.MsgAdvertencia) - ElseIf DdlUM.SelectedValue = "-1" Then - Alert("Tiene que seleccionar una unidad de medida", TipoMensaje.MsgAdvertencia) - Else - - Dim ObjPS As New ClsProductosServicios - If ModalidadModal = "Insertar" Then - If ObjPS.AddPS(DdlClasificacion.SelectedValue.ToEntero, 1, DdlUM.SelectedValue.ToEntero, TxtCodigo.Text, "", TxtCodigoBarras.Text, TxtPS.Text, TxtPrecio.Text.ToDouble, 0, 0, False, 0, False, True, 100, CveEmpresa, 1, 1) <> -1 Then - Alert("El prodtco/servicio se agrego correctamente", TipoMensaje.MsgInformacion) - End If - End If - - If ModalidadModal = "Actualizar" Then - Dim CvePS As Integer - CvePS = CveModal.ToEntero - If ObjPS.UpdatePS(DdlClasificacion.SelectedValue.ToEntero, 1, DdlUM.SelectedValue.ToEntero, TxtCodigo.Text, "", TxtCodigoBarras.Text, TxtPS.Text, TxtPrecio.Text.ToDouble, 0, 0, False, 0, False, True, True, 100, CvePS, 1, 1, -1) Then - Alert("El prodtco/servicio se actualizo correctamente", TipoMensaje.MsgInformacion) - End If - End If - - - ObjPS.Dispose() - UPGvPS.Update() - UpEditPS.Update() - CargaGVPS() - RegistraScript("$('#DivUpdatePS').modal('hide');") - - End If - End Sub - - Protected Sub BtnDivAddPS_Click(sender As Object, e As EventArgs) Handles BtnDivAddPS.Click - If TxtAddPS.getfiles().Archivos.Count > 0 Then - Dim ArchivoExcel As Archivo = TxtAddPS.getfiles().Archivos(0) - Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & ArchivoExcel.patch & ArchivoExcel.filename - Dim Tipo As String = If(ArchivoExcel.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "OTRO") - CargarExcelPS(Directorio, Tipo) - Else - Alert("No existe el archivo.Favor de subir un archivo de excel a la plataforma", TipoMensaje.MsgError) - End If - End Sub - -#End Region - -#End Region - -#Region " PASO 5: CARGA INICIAL" - -#Region " 5.1: PROVEEDORES" - Private Sub GvProvedoores_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvProvedoores.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - e.Row.Cells(7).Text = "$" + FormatNumber(e.Row.DBCampo("LimiteCredito").ToString, 2, , , TriState.True) - e.Row.Cells(8).Text = FormatNumber(e.Row.DBCampo("PlazoPago").ToString, 0, , , TriState.True) - End If - End Sub - - Private Sub CargarArchivoProveedor(Ruta As String, FileName As String, Tipo As String) - Dim dtProveedor As New DataTable - Dim ErrorExcel = False - - 'Verificamos que el archivo tenga el formato correcto - If Tipo <> "EXCEL" Then - Alert("El archivo no tiene el formato correcto.", TipoMensaje.MsgError) - Exit Sub - End If - - Dim strConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + Ruta + FileName + ";Extended Properties=Excel 8.0;" - Dim objDbFactory As Common.DbProviderFactory = Common.DbProviderFactories.GetFactory("System.Data.OleDb") - - Using objDbConnection = objDbFactory.CreateConnection(), objDbAdapter = objDbFactory.CreateDataAdapter(), Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";") - - objDbConnection.ConnectionString = strConnString - objDbConnection.Open() - Dim objSheetNames As DataTable = objDbConnection.GetSchema("Tables") - Dim HojaExcel As String = objSheetNames.FiltroPrimeroValor("TABLE_NAME") - Try - Conexion.Open() - Dim cmd = Conexion.CreateCommand() - cmd.CommandType = CommandType.Text - cmd.CommandText = $"SELECT * FROM [{HojaExcel}]" - Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) - DataAdapter.Fill(dtProveedor) - Conexion.Close() - - Catch ex As Exception - ErrorExcel = True - OnError("Ocurrio un error al leer el archivo Excel
" & ex.Message, ex) - End Try - Conexion.Close() - - End Using - - If Not ErrorExcel Then - - If Not dtProveedor.Columns(0).ColumnName = "Codigo" Then - Alert("El nombre de la primera columna debe ser 'Codigo'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtProveedor.Columns(1).ColumnName = "RazonSocial" Then - Alert("El nombre de la segunda columna debe ser 'Fecha'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtProveedor.Columns(2).ColumnName = "RFC" Then - Alert("El nombre de la tercera columna debe ser 'RFC'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtProveedor.Columns(3).ColumnName = "Calle" Then - Alert("El nombre de la cuarta columna debe ser 'Calle'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtProveedor.Columns(4).ColumnName = "Número exterior" Then - Alert("El nombre de la quinta columna debe ser 'Número exterior'.Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtProveedor.Columns(5).ColumnName = "Colonia" Then - Alert("El nombre de la sexta columna debe ser 'Colonia'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtProveedor.Columns(6).ColumnName = "Código postal" Then - Alert("El nombre de la séptima columna debe ser 'Código postal'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtProveedor.Columns(7).ColumnName = "Población" Then - Alert("El nombre de la octava columna debe ser 'Población'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtProveedor.Columns(8).ColumnName = "Estado" Then - Alert("El nombre de la novena columna debe ser 'Estado'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtProveedor.Columns(9).ColumnName = "Teléfono" Then - Alert("El nombre de la décima columna debe ser 'Teléfono'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtProveedor.Columns(10).ColumnName = "Contacto" Then - Alert("El nombre de la onceava columna debe ser 'Contacto'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtProveedor.Columns(11).ColumnName = "Celular Contacto" Then - Alert("El nombre de la doceava columna debe ser 'Celular Contacto'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtProveedor.Columns(12).ColumnName = "Limite Credito" Then - Alert("El nombre de la treceava columna debe ser 'Limite Credito'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtProveedor.Columns(13).ColumnName = "Plazo Cobranza" Then - Alert("El nombre de la treceava columna debe ser 'Plazo Cobranza'. Favor de verificar el archivo.", TipoMensaje.MsgError) - Exit Sub - End If - - Dim NumRows As Integer = dtProveedor.Rows.Count - Dim ObjProv As New ClsCompProveedores - Dim ErrorProv As Boolean = False - Dim Contador As Integer = 0 - Dim ExisteProveedor As Boolean = False - - ObjProv.IniciaTransacSQL() - - For Each Row As DataRow In dtProveedor.Rows - Dim Codigo As String = Row("Codigo").ToString - Dim RazonSocial As String = Row("RazonSocial").ToString - Dim RFC As String = Row("RFC").ToString.Trim - Dim Calle As String = Row("Calle").ToString - Dim NumExt As Decimal = Row("Número exterior").ToString.ToDecimal - Dim Colonia As String = Row("Colonia").ToString - Dim CodigoPostal As Decimal = Row("Código Postal").ToString.ToDecimal - Dim Poblacion As String = Row("Población").ToString - Dim Estado As String = Row("Estado").ToString - Dim Telefono As String = Row("Teléfono").ToString - Dim Contacto As String = Row("Contacto").ToString - Dim CelularContacto As String = Row("Celular Contacto").ToString - Dim LimiteCredito As Integer = Row("Limite Credito").ToString.ToEntero - Dim PlazoCobranza As Integer = Row("Plazo Cobranza").ToString.ToEntero - Dim CveProveedor As Integer = 0 - Dim CveProveedor2 As Integer = 0 - - Dim ObjProveedor As New ClsCompProveedores - If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then - CveProveedor = ObjProveedor.DtResultados.FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString.ToEntero - CveProveedor2 = ObjProveedor.DtResultados.FiltroPrimeroValor("CveProveedor", $"RazonSocial = '{RazonSocial}'").ToString.ToEntero - End If - 'ObjProveedor.Dispose() - - If CveProveedor > 0 Or CveProveedor2 > 0 Then - 'ExisteProveedor = True - Contador = Contador + 1 - If Not ObjProv.UpdateProveedor(Codigo, RazonSocial, RazonSocial, "", RFC, Calle, Telefono, - Contacto, "", Telefono, LimiteCredito, PlazoCobranza, "", 0, 0, 0, -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", - -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", 1, "", -1, -1, True, "", "", False, CveProveedor) Then - ErrorProv = True - Exit For - End If - Else - If Not ObjProv.AddProveedor(Codigo, RazonSocial, RazonSocial, "", RFC, Calle, Telefono, - Contacto, "", Telefono, LimiteCredito, PlazoCobranza, "", 0, 0, 0, -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", - -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", 1, "", -1, -1, "", "", False, 100, CveEmpresa) Then - ErrorProv = True - Exit For - End If - End If - Next - - If Not ErrorProv Then - ObjProv.Commit() - If ObjProv.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", 1, -1) Then Application("GlobalDTCompProveedores") = ObjProv.DtResultados - If Contador > 0 Then - Alert(String.Format("Se agregaron: {0} Proveedores correctamente.
Se Omitieron: {1} Clientes ya que ya se encontraban registrados.", NumRows - Contador, Contador), TipoMensaje.MsgInformacion) - Else - Alert(String.Format("Se agregaron: {0} Proveedores correctamente.", NumRows), TipoMensaje.MsgInformacion) - End If - TxtAddProveedor.Text = "" - CargaGVProveedor() - RegistraScript("$('#DivExcelProveedor').modal('hide');") - Else - ObjProv.RollBack() - End If - ObjProv.Dispose() - - End If - End Sub - - - Protected Sub BtnCargaExcelProveedor_Click(sender As Object, e As EventArgs) Handles BtnCargaExcelProveedor.Click - If TxtAddProveedor.getfiles().Archivos.Count > 0 Then - Dim file As Archivo = TxtAddProveedor.getfiles().Archivos(0) - Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch - Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") - CargarArchivoProveedor(Directorio, file.filename, Tipo) - Else - Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError) - End If - End Sub - - Public Sub EditProveedor_Click(sender As Object, e As EventArgs) - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - ModalidadModal = "Actualizar" - CveModal = GvRow.DataKey("CveProveedor").ToEntero - TxtCodigoProveedor.Text = GvRow.DataKey("Codigo") - TxtRazonSocial.Text = GvRow.DataKey("RazonSocial") - TxtNombreCorto.Text = GvRow.DataKey("NombreCorto") - TxtRFCProv.Text = GvRow.DataKey("RFC") - TxtCalleProveedor.Text = GvRow.DataKey("Direccion") - TxtLimiteCredito.Text = GvRow.DataKey("LimiteCredito") - TxtTelefonoProveedor.Text = GvRow.DataKey("Telefono") - TxtPlazoCobranza.Text = GvRow.DataKey("PlazoPago") - TxtContactoNombre.Text = GvRow.DataKey("ContactoNombre") - BtnAddProveedor.Text = "Actualizar Proveedor" - UpAddProveedor.Update() - RegistraScript("$('#DivAddProveedor').modal('show');") - End Sub - - Private Sub LnkAddProveedor_Click(sender As Object, e As EventArgs) Handles LnkAddProveedor.Click - ModalidadModal = "Insertar" - TxtCodigoProveedor.Text = "" - TxtRazonSocial.Text = "" - TxtNombreCorto.Text = "" - TxtRFCProv.Text = "" - TxtCalleProveedor.Text = "" - TxtLimiteCredito.Text = "" - TxtTelefonoProveedor.Text = "" - TxtPlazoCobranza.Text = "" - TxtContactoNombre.Text = "" - BtnAddProveedor.Text = "Agregar Proveedor" - ModalidadModal = "Insertar" - CveModal = -1 - UpAddProveedor.Update() - RegistraScript("$('#DivAddProveedor').modal('show');") - End Sub - - Private Sub CargaGVProveedor() - Dim ObjProveedor As New ClsCompProveedores - If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then - GvProvedoores.DataSource = ObjProveedor.DtResultados - GvProvedoores.DataBind() - End If - ObjProveedor.Dispose() - UpGvProveedor.Update() - End Sub - - Protected Sub BtnAddProveedor_Click(sender As Object, e As EventArgs) Handles BtnAddProveedor.Click - Dim ObjProveedor As New ClsCompProveedores - If ModalidadModal = "Insertar" Then - If ObjProveedor.AddProveedor(TxtCodigoProveedor.Text, TxtRazonSocial.Text, TxtRazonSocial.Text, TxtNombreCorto.Text, TxtRFCProv.Text, TxtCalleProveedor.Text, TxtTelefonoProveedor.Text, - TxtContactoNombre.Text, "", TxtTelefonoProveedor.Text, TxtLimiteCredito.Text.ToDouble, TxtPlazoCobranza.Text.ToEntero, "", 0, 0, 0, -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", - -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", 1, "", -1, -1, "", "", False, 100, CveEmpresa) Then - Alert("El proveedor se agrego correctamente", TipoMensaje.MsgInformacion) - End If - End If - - If ModalidadModal = "Actualizar" Then - Dim CveProveedor As Integer - CveProveedor = CveModal.ToEntero - If ObjProveedor.UpdateProveedor(TxtCodigoProveedor.Text, TxtRazonSocial.Text, TxtRazonSocial.Text, TxtNombreCorto.Text, TxtRFCProv.Text, TxtCalleProveedor.Text, TxtTelefonoProveedor.Text, - TxtContactoNombre.Text, "", TxtTelefonoProveedor.Text, TxtLimiteCredito.Text.ToDouble, TxtPlazoCobranza.Text.ToEntero, "", 0, 0, 0, -1, "", -1, "", -1, "", - -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, "", -1, -1, True, "", "", - False, CveProveedor) Then - - Alert("El proveedor se actualizo correctamente", TipoMensaje.MsgInformacion) - End If - End If - - - ObjProveedor.Dispose() - CargaGVProveedor() - RegistraScript("$('#DivAddProveedor').modal('hide');") - End Sub - - Protected Sub GvProvedoores_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvProvedoores.RowDeleting - Dim ObjProveedor As New ClsCompProveedores - If ObjProveedor.RemoveProveedor(GvProvedoores.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then - Alert("El Proveedor se eliminó correctamente.", TipoMensaje.MsgInformacion) - End If - ObjProveedor.Dispose() - CargaGVProveedor() - End Sub - -#End Region - -#Region " 5.2: CLIENTES" - - Protected Sub GvCliente_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvCliente.RowDeleting - Dim ObjCliente As New ClsClientes - If ObjCliente.RemoveCliente(GvCliente.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then - Alert("El Cliente se eliminó correctamente.", TipoMensaje.MsgInformacion) - End If - ObjCliente.Dispose() - CargaGvCliente() - End Sub - - Protected Sub BtnAddCliente_Click(sender As Object, e As EventArgs) Handles BtnAddCliente.Click - If DdlSubProyectoClientes.SelectedValue <> "-1" Then - - Dim ObjCliente As New ClsClientes - If ModalidadModal = "Insertar" Then - If ObjCliente.AddCliente(TxtRazonSocialCliente.Text, TxtRazonSocialCliente.Text, TxtDireccionCliente.Text, "", "", TxtColoniaCliente.Text, "", "", TxtEstadoCliente.Text, "", TxtRFCCliente.Text, TxtCPCliente.Text, "", TxtContactoCliente.Text, "", "", "", "", "", -1, False, 1, -1, False, 100, CveEmpresa, "", -1, -1, -1, - "-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", "", "", 0, "", 1, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, DdlSubProyectoClientes.SelectedValue.ToEntero, -1) Then - Alert("El cliente se agrego correctamente", TipoMensaje.MsgInformacion) - End If - End If - - If ModalidadModal = "Actualizar" Then - Dim CveCliente As Integer - CveCliente = CveModal.ToEntero - If ObjCliente.UpdateCliente(TxtRazonSocialCliente.Text, TxtRazonSocialCliente.Text, TxtDireccionCliente.Text, "", "", TxtColoniaCliente.Text, "", "", TxtEstadoCliente.Text, "", TxtRFCCliente.Text, TxtCPCliente.Text, "", TxtContactoCliente.Text, "", "", "", "", "", -1, False, 0.0, 0.0, False, True, "", -1, -1, -1, - "-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", -1, "", -1, "", "", "", "", 0.0, "", 1, False, "", "", "", False, "", "", "", "", "", False, "", 100, CveCliente, 100, CveEmpresa, "", "", False, DdlSubProyectoClientes.SelectedValue.ToEntero, -1) Then - Alert("El cliente se actualizo correctamente", TipoMensaje.MsgInformacion) - End If - End If - - - ObjCliente.Dispose() - CargaGvCliente() - RegistraScript("$('#DivAddCliente').modal('hide');") - Else - Alert("Tiene que seleccionar un a sucursal", TipoMensaje.MsgAdvertencia) - End If - End Sub - - Public Sub EditCliente_Click(sender As Object, e As EventArgs) - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - CargaSubProyectos() - ModalidadModal = "Actualizar" - CveModal = GvRow.DataKey("CveCliente").ToEntero - TxtRazonSocialCliente.Text = GvRow.DataKey("Nombre") - DdlSubProyectoClientes.SelectedValueExist(GvRow.DataKey("CveSubProyecto")) - TxtRFCCliente.Text = GvRow.DataKey("RFC") - TxtDireccionCliente.Text = GvRow.DataKey("Direccion") - TxtColoniaCliente.Text = GvRow.DataKey("Colonia") - TxtEstadoCliente.Text = GvRow.DataKey("Estado") - TxtCPCliente.Text = GvRow.DataKey("CP") - TxtContactoCliente.Text = GvRow.DataKey("Contacto") - BtnAddCliente.Text = "Actualizar Cliente" - UpAddCliente.Update() - RegistraScript("$('#DivAddCliente').modal('show');") - End Sub - - Private Sub LnkAddCliente_Click(sender As Object, e As EventArgs) Handles LnkAddCliente.Click - CargaSubProyectos() - ModalidadModal = "Insertar" - TxtRazonSocialCliente.Text = "" - DdlSubProyectoClientes.SelectedValue = "-1" - TxtRFCCliente.Text = "" - TxtDireccionCliente.Text = "" - TxtColoniaCliente.Text = "" - TxtEstadoCliente.Text = "" - TxtCPCliente.Text = "" - TxtContactoCliente.Text = "" - BtnAddCliente.Text = "Agregar Cliente" - ModalidadModal = "Insertar" - CveModal = -1 - UpAddCliente.Update() - RegistraScript("$('#DivAddCliente').modal('show');") - End Sub - - Private Sub CargaGvCliente() - Dim ObjCliente As New ClsClientes - If ObjCliente.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then - GvCliente.DataSource = ObjCliente.DtResultados - GvCliente.DataBind() - End If - ObjCliente.Dispose() - UpGvCliente.Update() - End Sub - - Protected Sub BtnCargaExcelCliente_Click(sender As Object, e As EventArgs) Handles BtnCargaExcelCliente.Click - If TxtAddClientes.getfiles().Archivos.Count > 0 Then - Dim file As Archivo = TxtAddClientes.getfiles().Archivos(0) - Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch - Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") - CargarArchivoCliente(Directorio, file.filename, Tipo) - Else - Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError) - End If - End Sub - - Private Sub CargarArchivoCliente(Ruta As String, FileName As String, Tipo As String) - Dim dtCliente As New DataTable - Dim ErrorExcel = False - - - 'Verificamos que el archivo tenga el formato correcto - If Tipo <> "EXCEL" Then - Alert("El archivo no tiene el formato correcto.", TipoMensaje.MsgError) - Exit Sub - End If - - Dim strConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + Ruta + FileName + ";Extended Properties=Excel 8.0;" - Dim objDbFactory As Common.DbProviderFactory = Common.DbProviderFactories.GetFactory("System.Data.OleDb") - - Using objDbConnection = objDbFactory.CreateConnection(), objDbAdapter = objDbFactory.CreateDataAdapter(), Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";") - - objDbConnection.ConnectionString = strConnString - objDbConnection.Open() - Dim objSheetNames As DataTable = objDbConnection.GetSchema("Tables") - Dim HojaExcel As String = objSheetNames.FiltroPrimeroValor("TABLE_NAME") - Try - Conexion.Open() - Dim cmd = Conexion.CreateCommand() - cmd.CommandType = CommandType.Text - cmd.CommandText = $"SELECT * FROM [{HojaExcel}]" - Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) - DataAdapter.Fill(dtCliente) - Conexion.Close() - - Catch ex As Exception - ErrorExcel = True - OnError("Ocurrio un error al leer el archivo Excel
" & ex.Message, ex) - End Try - Conexion.Close() - - End Using - - If Not ErrorExcel Then - - If Not dtCliente.Columns(0).ColumnName = "Codigo" Then - Alert("El nombre de la primera columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtCliente.Columns(1).ColumnName = "RazonSocial" Then - Alert("El nombre de la segunda columna debe ser 'Fecha'.Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtCliente.Columns(2).ColumnName = "RFC" Then - Alert("El nombre de la tercera columna debe ser 'RFC'.Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtCliente.Columns(3).ColumnName = "Calle" Then - Alert("El nombre de la cuarta columna debe ser 'Calle'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtCliente.Columns(4).ColumnName = "Número exterior" Then - Alert("El nombre de la quinta columna debe ser 'Número exterior' .Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtCliente.Columns(5).ColumnName = "Colonia" Then - Alert("El nombre de la sexta columna debe ser 'Colonia'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtCliente.Columns(6).ColumnName = "Código postal" Then - Alert("El nombre de la séptima columna debe ser 'Código postal'.Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtCliente.Columns(7).ColumnName = "Población" Then - Alert("El nombre de la octava columna debe ser 'Población'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtCliente.Columns(8).ColumnName = "Estado" Then - Alert("El nombre de la novena columna debe ser 'Estado'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtCliente.Columns(9).ColumnName = "Teléfono" Then - Alert("El nombre de la décima columna debe ser 'Teléfono'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtCliente.Columns(10).ColumnName = "Contacto" Then - Alert("El nombre de la onceava columna debe ser 'Contacto'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtCliente.Columns(11).ColumnName = "Celular Contacto" Then - Alert("El nombre de la doceava columna debe ser 'Celular Contacto'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtCliente.Columns(12).ColumnName = "Limite Credito" Then - Alert("El nombre de la treceava columna debe ser 'Limite Credito'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtCliente.Columns(13).ColumnName = "Plazo Cobranza" Then - Alert("El nombre de la treceava columna debe ser 'Plazo Cobranza'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - - Dim NumRows As Integer = dtCliente.Rows.Count - Dim ObjClientes As New ClsClientes - Dim ErrorClientes As Boolean = False - Dim ExisteCliente As Boolean = False - Dim Contador As Integer = 0 - Dim NumRow As Integer = 0 - - Try - ObjClientes.IniciaTransacSQL() - For Each Row As DataRow In dtCliente.FiltraParametros("RFC <> ''").Rows - NumRow = NumRow + 1 - Dim Codigo As String = Row("Codigo").ToString - Dim RazonSocial As String = Row("RazonSocial").ToString - Dim RFC As String = Row("RFC").ToString.Trim - Dim Calle As String = Row("Calle").ToString - Dim NumExt As Decimal = Row("Número exterior").ToString.ToDecimal - Dim Colonia As String = Row("Colonia").ToString - Dim CodigoPostal As String = Row("Código Postal").ToString - Dim Poblacion As String = Row("Población").ToString - Dim Estado As String = Row("Estado").ToString - Dim Pais As String = Row("Pais").ToString - Dim Telefono As String = Row("Teléfono").ToString - Dim Contacto As String = Row("Contacto").ToString - Dim CelularContacto As String = Row("Celular Contacto").ToString - Dim CveCliente As Integer = 0 - Dim ObjCliente As New ClsClientes - If ObjCliente.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then - CveCliente = ObjCliente.DtResultados.FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString.ToEntero - End If - ObjCliente.Dispose() - - If CveCliente > 0 Then - ExisteCliente = True - Contador = Contador + 1 - If Not ObjClientes.UpdateCliente(RazonSocial, RazonSocial, Calle, "", "", Colonia, "", "", Estado, Pais, RFC, CodigoPostal, "", Contacto, "", "", "", "", "", -1, False, 0.0, 0.0, False, True, "", -1, -1, -1, - "-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", -1, "", -1, "", "", "", "", 0.0, "", 1, False, "", "", "", False, "", "", "", "", "", False, "", 100, CveCliente, 100, CveEmpresa, "", "", False, -1, -1) Then - ErrorClientes = True - RFC.GuardaLog - Exit For - End If - Else - If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, "", "", Colonia, "", "", Estado, Pais, RFC, CodigoPostal, "", Contacto, "", "", "", "", "", -1, False, 1, -1, False, 100, CveEmpresa, "", -1, -1, -1, - "-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", "", "", 0, "", 1, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, -1, -1) Then - ErrorClientes = True - RFC.GuardaLog - Exit For - End If - End If - Next - - - - Catch ex As Exception - GuardaLog($"Ocurrio un error al agregar el Cliente: {ex}, {NumRow}") - ObjClientes.RollBack() - - Finally - 'ObjClientes.Dispose() - End Try - - If Not ErrorClientes Then - ObjClientes.Commit() - 'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCliente") = ObjClientes.DtResultados - - If Contador > 0 Then - Alert(String.Format("Se agregaron: {0} Clientes correctamente.
Se Omitieron: {1} Clientes ya que ya se encontraban registrados.", NumRows - Contador, Contador), TipoMensaje.MsgInformacion) - Else - Alert(String.Format("Se agregaron: {0} Clientes correctamente.", NumRows), TipoMensaje.MsgInformacion) - End If - TxtAddClientes.Text = "" - CargaGvCliente() - Else - ObjClientes.RollBack() - End If - ObjClientes.Dispose() - - - End If - End Sub - - - -#End Region - -#Region " 5.3: FACTURAS" - Private Sub BtnCargaExcelFacturas_Click(sender As Object, e As EventArgs) Handles BtnCargaExcelFacturas.Click - If TxtAddFactura.getfiles().Archivos.Count > 0 Then - Dim file As Archivo = TxtAddFactura.getfiles().Archivos(0) - Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch - Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") - CargarArchivoFactura(Directorio, file.filename, Tipo) - Else - Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError) - End If - End Sub - - Private Sub BtnDescargarFacturas_Click(sender As Object, e As EventArgs) Handles BtnDescargarFacturas.Click - DescargarExcel("Fact") - End Sub - - Private Sub CargarArchivoFactura(Ruta As String, FileName As String, Tipo As String) - Dim dtFactura As New DataTable - Dim ErrorExcel = False - If Tipo <> "EXCEL" Then - Alert("El archivo no tiene el formato correcto.", TipoMensaje.MsgError) - Exit Sub - End If - - Dim strConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + Ruta + FileName + ";Extended Properties=Excel 8.0;" - Dim objDbFactory As Common.DbProviderFactory = Common.DbProviderFactories.GetFactory("System.Data.OleDb") - - Using objDbConnection = objDbFactory.CreateConnection(), objDbAdapter = objDbFactory.CreateDataAdapter(), Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";") - - objDbConnection.ConnectionString = strConnString - objDbConnection.Open() - Dim objSheetNames As DataTable = objDbConnection.GetSchema("Tables") - Dim HojaExcel As String = objSheetNames.FiltroPrimeroValor("TABLE_NAME") - Try - Conexion.Open() - Dim cmd = Conexion.CreateCommand() - cmd.CommandType = CommandType.Text - cmd.CommandText = $"SELECT * FROM [{HojaExcel}]" - Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) - DataAdapter.Fill(dtFactura) - Conexion.Close() - - Catch ex As Exception - ErrorExcel = True - OnError("Ocurrio un error al leer el archivo Excel
" & ex.Message, ex) - End Try - Conexion.Close() - - End Using - - If Not ErrorExcel Then - - If Not dtFactura.Columns(0).ColumnName = "Sucursal" Then - Alert("El nombre de la primera columna debe ser 'Sucursal'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - - If Not dtFactura.Columns(1).ColumnName = "RFC" Then - Alert("El nombre de la segunda columna debe ser 'RFC'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - - If Not dtFactura.Columns(2).ColumnName = "Serie" Then - Alert("El nombre de la tercera columna debe ser 'Serie'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - - If Not dtFactura.Columns(3).ColumnName = "Folio" Then - Alert("El nombre de la cuarta columna debe ser 'Folio'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - - If Not dtFactura.Columns(4).ColumnName = "Fecha" Then - Alert("El nombre de la quinta columna debe ser 'Fecha'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtFactura.Columns(5).ColumnName = "SubTotal" Then - Alert("El nombre de la sexta columna debe ser 'SubTotal'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtFactura.Columns(6).ColumnName = "IVA" Then - Alert("El nombre de la séptima columna debe ser 'IVA'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtFactura.Columns(7).ColumnName = "Total" Then - Alert("El nombre de la octava columna debe ser 'Total'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtFactura.Columns(8).ColumnName = "Saldo" Then - Alert("El nombre de la novena columna debe ser 'Saldo'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtFactura.Columns(9).ColumnName = "Tipo Documento" Then - Alert("El nombre de la décima columna debe ser 'Tipo Documento'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtFactura.Columns(10).ColumnName = "Ret IVA" Then - Alert("El nombre de la onceava columna debe ser 'Ret IVA'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtFactura.Columns(11).ColumnName = "Ret ISR" Then - Alert("El nombre de la doceava columna debe ser 'Ret ISR'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - - If Not dtFactura.Columns(12).ColumnName = "Moneda" Then - Alert("El nombre de la treceava columna debe ser 'Moneda'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - - If Not dtFactura.Columns(13).ColumnName = "Tipo Cambio" Then - Alert("El nombre de la catorceava columna debe ser 'Tipo Cambio'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If Not dtFactura.Columns(14).ColumnName = "Fecha Vencimiento" Then - Alert("El nombre de la quinceava columna debe ser 'Fecha Vencimiento'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If - If RblFormato.SelectedValue = "1" Then - Dim NumRows As Integer = dtFactura.Rows.Count - Dim ObjCompras As New ClsCompras - Dim ErrorCompras As Boolean = False - Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL()) - Dim CveCompra As Integer - Dim Contador As Integer = 0 - Dim ExisteCompra As Boolean = False - Dim DtProveedores = New DataTable - Dim ObjProve As New ClsCompProveedores - - If ObjProve.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then - DtProveedores = ObjProve.DtResultados - End If - ObjProve.Dispose() - - For Each Row As DataRow In dtFactura.FiltraParametros("RFC <> '' AND Folio <> '' ").Rows - Dim Sucursal As String = Row("Sucursal").ToString - Dim RFC As String = Row("RFC").ToString.Trim - Dim Serie As String = Row("Serie").ToString - Dim Folio As String = Row("Folio").ToString - Dim Fecha As Date = Row("Fecha").ToString.ToDate - Dim SubTotal As Decimal = Row("SubTotal").ToString.ToDecimal - Dim IVA As Decimal = Row("IVA").ToString.ToDecimal - Dim Total As Decimal = Row("Total").ToString.ToDecimal - Dim Saldo As Decimal = Row("Saldo").ToString.ToDecimal - Dim TipoDocto As String = Row("Tipo Documento").ToString - Dim CveProveedor As Integer = DtProveedores.FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString.ToEntero - Dim CvePS As Integer = 0 - Dim CveUnidadMedida As Integer = 0 - - Dim ObjPS As New ClsProductosServicios - If ObjPS.GetPS(-1, -1, CveEmpresa) Then - CvePS = ObjPS.DtResultados.FiltroPrimeroValor("CvePS").ToString.ToEntero - End If - ObjPS.Dispose() - - Dim ObjUM As New ClsUnidadesMedida - If ObjUM.GetUnidadesMedida(CveEmpresa) Then - CveUnidadMedida = ObjUM.DtResultados.FiltraParametros($"CveEmpresa={CveEmpresa}").FiltroPrimeroValor("CveUnidadMedida").ToString.ToEntero - End If - ObjUM.Dispose() - - Dim RetIVA As Double = Row("Ret IVA").ToString.ToDouble - Dim RetISR As Double = Row("Ret ISR").ToString.ToDouble - Dim Moneda As String = Row("Moneda").ToString - Dim TipoCambio As String = Row("Tipo Cambio").ToString - Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString.ToDate - Dim CveMoneda As Integer = 1 - - If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorCompras = True - If Not CveUnidadMedida > 0 Then Alert(String.Format("No se encontró la Unidad de Medida."), TipoMensaje.MsgError) : ErrorCompras = True - If Not CveProveedor > 0 Then Alert(String.Format("No se encontró el Proveedor con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorCompras = True : Exit For - TipoDocto = IIf(TipoDocto = "Ingresos", "Fac", "NC").ToString - - 'Moneda - If Moneda = "Pesos" Then - CveMoneda = 1 - ElseIf Moneda = "Dólares" Then - CveMoneda = 2 - End If - - 'Si no se especifica TC, se manda como pesos. - If TipoCambio = "" Then TipoCambio = "1" - - 'PrePóliza - Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Compras/SaldoInicial", 1, Total, Total, CveMoneda, Fecha, "", 100, CveEmpresa) - If Not CvePrePoliza > 0 Then - ErrorCompras = True - Exit For - End If - - 'Compra - If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, "", CveProveedor.ToEntero, SubTotal, 0, 0, IVA, RetIVA, RetISR, 0, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDouble, FechaVencimiento, - True, "", 1, CvePrePoliza, 100, CveEmpresa) Then - ErrorCompras = True - Exit For - End If - CveCompra = ObjCompras.CveCompra - - 'Compra Detalle - If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, -1, -1, 0, 1, SubTotal, 0.16, SubTotal, 0, "Carga Inicial", -1) Then - ErrorCompras = True - Exit For - End If - - 'PrePólizaDetalle - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Folio, IIf(TipoDocto = "Fac", 5, 18).ToString.ToEntero, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor) Then ErrorCompras = True : Exit For - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, Folio, 6, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor) Then ErrorCompras = True : Exit For - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Folio, 14, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor) Then ErrorCompras = True : Exit For - - 'Saldo - If Saldo < Total Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total - Saldo, Folio, 17, Folio, Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor) Then ErrorCompras = True : Exit For - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total - Saldo, Folio, 95, Folio, Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor) Then ErrorCompras = True : Exit For - End If - - - Next - If Not ErrorCompras Then - If Contador > 0 Then - Alert(String.Format("Se agregaron: {0} Compras correctamente.
Se Omitieron: {1} Compras ya que ya se encuentran registradas.", NumRows - Contador, Contador), TipoMensaje.MsgInformacion) - Else - Alert(String.Format("Se agregaron: {0} Compras correctamente.", NumRows), TipoMensaje.MsgInformacion) - End If - Alert(String.Format("Se agregaron: {0} Compras correctamente.", NumRows), TipoMensaje.MsgInformacion) - ObjCompras.Commit() - TxtAddFactura.Text = "" - UpCarga.Update() - Else - ObjCompras.RollBack() - End If - ObjCompras.Dispose() - - End If - - Else - - - Dim ObjVentas As New ClsVentas - Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL()) - Dim ErrorVentas As Boolean = False - Dim CveVenta As Integer - Dim NumRows As Integer = 0 - Dim DtClientes = New DataTable - Dim CvePS As Integer = 0 - Dim CveUnidadMedida As Integer = 0 - ' Dim ExisteVenta As Boolean = False - 'Dim Contador As Integer = 0 - Dim ObjCliente As New ClsClientes - If ObjCliente.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then - DtClientes = ObjCliente.DtResultados - End If - ObjCliente.Dispose() - - Dim ObjPS As New ClsProductosServicios - If ObjPS.GetPS(-1, -1, CveEmpresa) Then - CvePS = ObjPS.DtResultados.FiltroPrimeroValor("CvePS").ToString.ToEntero - End If - ObjPS.Dispose() - - Dim ObjUM As New ClsUnidadesMedida - If ObjUM.GetUnidadesMedida(CveEmpresa) Then - CveUnidadMedida = ObjUM.DtResultados.FiltraParametros($"CveEmpresa={CveEmpresa}").FiltroPrimeroValor("CveUnidadMedida").ToString.ToEntero - End If - ObjUM.Dispose() - - - If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorVentas = True - ' If Not CveSucursal > 0 Then Alert("No se encontró la sucursal.", TipoMensaje.MsgError) : ErrorVentas = True - If Not CveUnidadMedida > 0 Then Alert(String.Format("No se encontró la Unidad de Medida."), TipoMensaje.MsgError) : ErrorVentas = True - - For Each Row As DataRow In dtFactura.Rows - Dim Sucursal As String = Row("Sucursal").ToString - Dim TipoDocto As String = Row("Tipo Documento").ToString - Dim RFC As String = Row("RFC").ToString.Trim - Dim Serie As String = Row("Serie").ToString - Dim Folio As Integer = Row("Folio").ToString.ToEntero - Dim Fecha As Date = Row("Fecha").ToString.ToDate - Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString.ToDate - Dim SubTotal As Decimal = Row("SubTotal").ToString.ToDecimal - Dim IVA As Decimal = Row("IVA").ToString.ToDecimal - Dim Total As Decimal = Row("Total").ToString.ToDecimal - Dim Saldo As Decimal = Row("Saldo").ToString.ToDecimal - Dim CveCliente As Integer = DtClientes.FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString.ToEntero - Dim RetIVA As Double = Row("Ret IVA").ToString.ToDouble - Dim RetISR As Double = Row("Ret ISR").ToString.ToDouble - Dim Moneda As String = Row("Moneda").ToString - Dim TipoCambio As String = Row("Tipo Cambio").ToString - Dim CveMoneda As Integer = 1 - - If Not CveCliente > 0 Then Alert(String.Format("No se encontró el cliente con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorVentas = True : RFC.GuardaLog : Exit For - TipoDocto = IIf(TipoDocto = "Ingresos", "Ing", IIf(TipoDocto = "Egresos", "Egs", "Rem")).ToString - 'PrePóliza - Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Venta/SaldoIncial", 1, Total, Total, 1, Fecha, "", 100, CveEmpresa) - - 'Moneda - If Moneda = "Pesos" Then - CveMoneda = 1 - ElseIf Moneda = "Dólares" Then - CveMoneda = 2 - End If - - 'Si no se especifica TC, se manda como pesos. - If TipoCambio = "" Then TipoCambio = "1" - - - 'Venta - If Not ObjVentas.AddVenta(TipoDocto, Folio, CveCliente.ToEntero, -1, SubTotal, 0, 0, IVA, RetIVA, RetISR, Total, CveMoneda, TipoCambio.ToDouble, - 0, 0, 0, FechaVencimiento, Fecha, "", "", Fecha, 0, "", "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, -1, 0, CvePrePoliza, - 100, CveEmpresa, Serie:=Serie, CveSubProyecto:=Sucursal.ToEntero, CveSubProyectoEjecucion:=Sucursal.ToEntero, CveSubProyectoCobranza:=Sucursal.ToEntero) Then - ErrorVentas = True - Exit For - End If - CveVenta = ObjVentas.CveVenta - - If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, 0.16, SubTotal, "Saldo Inicial", 0, 0, -1, 0) Then - ErrorVentas = True - Exit For - End If - - - 'PrePólizaDetalle - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SubTotal, Folio.ToString, 4, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveClasificacion:=1) Then ErrorVentas = True : Exit For - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Folio.ToString, 1, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente) Then ErrorVentas = True : Exit For - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, Folio.ToString, 13, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente) Then ErrorVentas = True : Exit For - - 'Saldo - If Saldo < Total Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total - Saldo, Folio.ToString, 2, Folio.ToString, Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente) Then ErrorVentas = True : Exit For - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total - Saldo, Folio.ToString, 95, Folio.ToString, Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente) Then ErrorVentas = True : Exit For - End If - - Next - If Not ErrorVentas Then - Alert(String.Format("Se agregaron: {0} Ventas correctamente.", NumRows), TipoMensaje.MsgInformacion) - ObjVentas.Commit() - TxtAddFactura.Text = "" - UpCarga.Update() - Else - ObjVentas.RollBack() - End If - ObjVentas.Dispose() - End If - End Sub - - -#End Region - -#End Region - -#Region " PASO 6: FINALIZAR" - - Private Sub CargaDdlUsuario() - DdlUsuario.Items.Clear() - Dim ObjUsuario As New ClsSisUsuarios - If ObjUsuario.GetUsuarios(-1) Then - DdlUsuario.DataSource = ObjUsuario.DtResultados.FiltraParametros($"CveEmpresa={CveEmpresa}") - DdlUsuario.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlUsuario.DataBind() - End If - ObjUsuario.Dispose() - UpFinalizar.Update() - End Sub - - Private Sub BtnIniciarSesion_Click(sender As Object, e As EventArgs) Handles BtnIniciarSesion.Click - If DdlUsuario.SelectedValue = "-1" Then - Alert("Tiene que seleccionar un usuario.", TipoMensaje.MsgAdvertencia) - Else - Dim Liga As String = "/LogIn.aspx" - Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & DdlUsuario.SelectedValue.ToEntero & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks& & "&CveE=" & CveEmpresa) - Response.Redirect(LigaActivar, True) - End If - End Sub - -#End Region - -#Region " DESCARGA FORMATOS EXCEL " - Private Sub DescargarExcel(Tipo As String) - Dim Directorio As String = "" - Select Case Tipo - Case "Clasi" - Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\FormatoClasificaciones.xlsx" - Case "UM" - Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\FormatoUnidadesMedida.xlsx" - Case "PS" - Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoPS.xlsx" - Case "Prove" - Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoProveedores.xlsx" - Case "Cli" - Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoClientes.xlsx" - Case "Fact" - If RblFormato.SelectedValue = "1" Then - Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoProveedores-Facturas.xlsx" - End If - If RblFormato.SelectedValue = "2" Then - Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoClientes-Facturas.xlsx" - End If - - - End Select - Dim Archivo As New IO.FileInfo(Directorio) - If Archivo.Exists Then - Response.Clear() - Response.ClearHeaders() - Response.ClearContent() - Response.AddHeader("Content-Disposition", "attachment; filename=" + Archivo.Name) - Response.AddHeader("Content-Length", Archivo.Length.ToString()) - Response.ContentType = "text/plain" - Response.Flush() - Response.TransmitFile(Archivo.FullName) - Response.End() - End If - End Sub - Protected Sub LnkDescargarExcelClasi_Click(sender As Object, e As EventArgs) Handles LnkDescargarExcelClasi.Click - DescargarExcel("Clasi") - End Sub - Protected Sub LnkDescargarExcelUM_Click(sender As Object, e As EventArgs) Handles LnkDescargarExcelUM.Click - DescargarExcel("UM") - End Sub - Protected Sub LnkDescargarExcelPS_Click(sender As Object, e As EventArgs) Handles LnkDescargarExcelPS.Click - DescargarExcel("PS") - End Sub - Protected Sub LnkDescargaProveedor(sender As Object, e As EventArgs) Handles LnkDescargaExcelProveedor.Click - DescargarExcel("Prove") - End Sub - - Protected Sub LnkDescargarExcelCliente(sender As Object, e As EventArgs) Handles LnkDescargarExcelClientes.Click - DescargarExcel("Cli") - End Sub - - - -#End Region - - - -#Region " GUARDAR - NO SE DEBERIA USAR UN GUARDAR GENERAL, PORQUE SE GUARDA PESTAÑA POR PESTAÑA " - 'Protected Sub LBGuardar_Click(sender As Object, e As EventArgs) Handles LBGuardar.Click - ' Alert("Metodo guardar raro", TipoMensaje.MsgAdvertencia) - ' Exit Sub - - ' Dim ObjEmpresa As New ClsSisEmpresas - ' Dim ObjRoles As New ClsSisRoles(ObjEmpresa.IniciaTransacSQL) - ' Dim ObjUsuarios As New ClsSisUsuarios(ObjEmpresa.IniciaTransacSQL) - ' Dim objClasi As New ClsClasificaciones(ObjEmpresa.IniciaTransacSQL) - ' Dim objGenerales As New ClsGenerales(ObjEmpresa.IniciaTransacSQL) - ' Dim Mensaje As New StringBuilder - - ' 'DatosFiscales - ' Dim Direccion, NoExt, NoInt, Colonia, Ciudad, Estado, CP, Regimen, Contacto, Telefono, Ciec, Localidad, Extension As String - - ' 'Envio de correos - ' Dim MailEnvio, ContraseñaEnvio, ServidorEnvio, PuertoEnvio, Protocolo As String - ' Dim UsaSSLEnvio As Boolean - - ' 'RecepcionDeCorreos - ' Dim MailRecep, ServidorRecep, PuertoRecep, UsuarioRecep, ContraseñaRecep As String - ' Dim UsaSSLRecep As Boolean - - ' Dim CorrectoEmpresa = False - ' Dim HuboError = False - - ' Direccion = TxtDireccion.Text.Trim - ' NoExt = TxtNoExt.Text.Trim - ' NoInt = TxtNoInt.Text.Trim - ' Colonia = TxtColonia.Text.Trim - ' Ciudad = TxtCiudad.Text.Trim - ' Estado = TxtEstado.Text.Trim - ' CP = TxtCP.Text.Trim - ' Localidad = TxtLocalidad.Text - ' Extension = TxtExtension.Text - - ' Regimen = DdlRegimen.SelectedValue - ' Contacto = TxtContacto.Text.Trim - ' Telefono = TxtTelefono.Text.Trim - ' Ciec = TxtCIEC.Text.Trim - ' MailEnvio = txtEnvioMail.Text.Trim - ' ContraseñaEnvio = TxtContraseñaSend.Text.Trim - ' ServidorEnvio = TxtServidor.Text.Trim - ' PuertoEnvio = TxtSendMailPort.Text.Trim - ' Protocolo = DDLProtocolo.SelectedValue.Trim - ' UsaSSLEnvio = chkSSL.Checked - ' MailRecep = txtRecepMail.Text.Trim - ' ServidorRecep = TxtServidorRecep.Text.Trim - ' PuertoRecep = TxtRecepMailPort.Text.Trim - ' UsuarioRecep = TxtUsuarioRecep.Text.Trim - ' ContraseñaRecep = TxtUsuarioRecep.Text.Trim - ' UsaSSLRecep = chkSSLRecep.Checked - - - ' If CveEmpresa = 0 Then - ' If ObjEmpresa.AddEmpresa(-1, Empresa, Direccion, NoExt, NoInt, Colonia, Ciudad, Estado, RFC, CP.ToEntero, Telefono, Contacto, Correo, "CFDi", "", "", TxtContraKey.Text, TxtFiel.Text, TxtCSD.Text, "", "", 100, False, False, False, Regimen, False, MailEnvio, ContraseñaEnvio, ServidorEnvio, PuertoEnvio.ToEntero, UsaSSLEnvio, False, False, False, False, False, False, False, False, False, - ' "", "", "", "", MailRecep, ServidorRecep, PuertoRecep.ToEntero, UsaSSLRecep, UsuarioRecep, ContraseñaRecep, Protocolo, "", "", 0, False, "", "", "", 0, 0, 0, 0, 0, 0, 0, 0, "", "", 0, 0, "", "", -1, 0.0D, "", 0, False, 0.0D, "", "", 0, False, 0, 0, False, 0, 0, False, 0, CveMetodoPago:=MetodoPAgo, CvePAC:=1) Then - ' CveEmpresa = ObjEmpresa.CveEmpresa - ' If CveEmpresa > 0 Then - ' CorrectoEmpresa = True - ' Mensaje.Append("Agregar Empresa: Correcto ") - ' Else - ' HuboError = True - ' Mensaje.Append("Agregar Empresa: Incorrecto") - ' End If - ' End If - ' If CorrectoEmpresa Then - ' For Each row As DataRow In DtRoles.Rows - ' Try - ' If Not ObjRoles.AddRol(1, row("Rol").ToString, 100, CveEmpresa) Then - ' HuboError = True - ' Mensaje.Append("Agregar Roles: Incorrecto") - ' End If - ' If Not HuboError Then - ' For Each ModRow As DataRow In DtModulos.FiltraParametros(String.Format("CveRol = {0} ", row("CveRol").ToString)).Rows - ' If Not ObjRoles.UpdateRolesModulos(ObjRoles.CveRol, ModRow("CveModulo").ToString.ToEntero, ModRow("Valor").ToString.ToEntero, 100) Then - ' HuboError = True - ' End If - ' Next - ' End If - ' If Not HuboError Then - ' For Each ProcRow As DataRow In DtProcesos.FiltraParametros(String.Format("CveRol = {0} ", row("CveRol").ToString)).Rows - ' If Not ObjRoles.UpdateRolesProcesos(ObjRoles.CveRol, ProcRow("CveProceso").ToString.ToEntero, ProcRow("Valor").ToString.ToEntero, 100) Then - ' HuboError = True - ' End If - ' Next - ' End If - ' Catch ex As Exception - ' HuboError = True - ' Mensaje.Append("Agregar Roles: Incorrecto") - ' OnError(ex.Message, ex) - ' End Try - ' Next - ' End If - ' If CorrectoEmpresa AndAlso TxtPlantillaVenta.Text <> String.Empty Then - ' If Not ObjEmpresa.UpdatePlantillaMail("AsuntoPlantillaMailVenta", TxtAsunto.Text.Trim, "PlantillaMailVenta", TxtPlantillaVenta.Text.Trim, CveEmpresa) Then - ' Alert("La plantilla de mail de ventas se guardó correctamente.", TipoMensaje.MsgInformacion) - ' HuboError = True - ' End If - ' End If - ' If CorrectoEmpresa AndAlso Not HuboError Then - ' Mensaje.Append("Agregar Roles: Correcto") - ' For Each row As DataRow In DtUsuarios.Rows - ' Try - ' If ObjUsuarios.AddUsuario(row("Usuario").ToString, ContraseñaPredeterminadaEncriptada, row("Nombre").ToString, -2, row("Correo").ToString, 0, 0, 0, True, 100, CveEmpresa, -1, row("rol").ToString) = -1 Then - ' HuboError = True - ' Mensaje.Append("Agregar Usuarios: Incorrecto") - ' End If - ' Catch ex As Exception - ' HuboError = True - ' Mensaje.Append("Agregar Usuarios: Incorrecto") - ' OnError(ex.Message, ex) - ' End Try - ' Next - ' End If - ' If CorrectoEmpresa AndAlso Not HuboError Then - ' Mensaje.Append("Agregar Usuarios: Correcto") - ' If DtClasificaciones.Rows.Count > 0 Then - ' objGenerales.AddCategorias("Categoria General", 100, CveEmpresa) - ' For Each row As DataRow In DtClasificaciones.Rows - ' If Not objClasi.AddClasificaciones(row("Clasificacion").ToString, "", 0, "", 0, "", 0, "", 0, 100, CveEmpresa) Then - ' HuboError = True - ' Mensaje.Append("Agregar Clasificaciones: Incorrecto") - ' End If - ' Next - ' End If - ' End If - ' If CorrectoEmpresa AndAlso Not HuboError Then - ' Try - ' If TxtModalFielArchivo.getfiles().Archivos.Count > 0 Then - ' Dim ArchivoFiel As Archivo = TxtModalFielArchivo.getfiles().Archivos(0) - ' Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\Certificados" - ' If Not Directory.Exists(Path) Then - ' Directory.CreateDirectory(Path) - ' End If - ' Dim directorioNew As String = String.Format("{0}\{1}.{2}", Path, FIEL, ArchivoFiel.Extencion) - ' If File.Exists(directorioNew) Then - ' My.Computer.FileSystem.DeleteFile(directorioNew) - ' End If - ' My.Computer.FileSystem.MoveFile(ArchivoFiel.FileUrl, directorioNew) - ' End If - - ' If TxtCSD.getfiles().Archivos.Count > 0 Then - ' Dim ArchivoCSD As Archivo = TxtCSD.getfiles().Archivos(0) - ' Dim PathCSD As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\Certificados" - ' Dim dirCSD As String = String.Format("{0}\{1}.{2}", PathCSD, CSD, ArchivoCSD.Extencion) - ' If File.Exists(dirCSD) Then - ' My.Computer.FileSystem.DeleteFile(dirCSD) - ' End If - ' My.Computer.FileSystem.MoveFile(ArchivoCSD.FileUrl, dirCSD) - ' End If - - ' If TextLogo.getfiles().Archivos().Count > 0 Then - ' Dim Logo As Archivo = TextLogo.getfiles().Archivos(0) - ' Dim PathLogo As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\" - ' Dim dirLogo As String = String.Format("{0}\logo.{1}", PathLogo, Logo.Extencion) - ' If File.Exists(dirLogo) Then - ' My.Computer.FileSystem.DeleteFile(dirLogo) - ' End If - ' My.Computer.FileSystem.MoveFile(Logo.FileUrl, dirLogo) - ' End If - - ' If TxtFormatoFactura.getfiles().Archivos().Count > 0 Then - ' Dim FormatoFactura As Archivo = TxtFormatoFactura.getfiles().Archivos(0) - ' Dim PathFormato = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\Formatos\" - ' Dim dirFormato As String = String.Format("{0}\Factura.{1}", PathFormato, FormatoFactura.Extencion) - ' If File.Exists(dirFormato) Then - ' My.Computer.FileSystem.DeleteFile(dirFormato) - ' End If - ' My.Computer.FileSystem.MoveFile(FormatoFactura.FileUrl, dirFormato) - ' End If - ' Catch ex As Exception - ' HuboError = True - ' OnError(ex.Message, ex) - ' End Try - ' End If - - ' If Not HuboError AndAlso CorrectoEmpresa Then - ' ObjEmpresa.Commit() - ' Alert("La información de la nueva empresa de guardó correctamente", TipoMensaje.MsgInformacion) - ' Else - ' ObjEmpresa.RollBack() - ' Alert("Ocurrió un error al guardar los datos de la empresa", TipoMensaje.MsgError) - ' End If - ' ObjEmpresa.Dispose() - ' ElseIf CveEmpresa > 0 Then - ' If ObjEmpresa.UpdateEmpresaXWizard(TxtNomEmpresa.Text, Direccion, NoExt, NoInt, Colonia, Ciudad, Estado, TxtRFC.Text, CP.ToEntero, Telefono, Contacto, TxtEmail.Text, Regimen, MailEnvio, ContraseñaEnvio, ServidorEnvio, PuertoEnvio.ToEntero, UsaSSLEnvio, MailRecep, ServidorRecep, PuertoRecep.ToEntero, - ' UsaSSLRecep, UsuarioRecep, ContraseñaRecep, CveEmpresa, Protocolo, Localidad, Extension, Ciec, TxtFiel.Text, TxtCSD.Text, TxtContraKey.Text) Then - ' CorrectoEmpresa = True - ' End If - ' If CorrectoEmpresa Then - ' If Not ObjEmpresa.UpdatePlantillaMail("AsuntoPlantillaMailVenta", TxtAsunto.Text.Trim, "PlantillaMailVenta", TxtPlantillaVenta.Text.Trim, CveEmpresa) Then - ' CorrectoEmpresa = False - ' End If - ' End If - - ' If DtModulos IsNot Nothing Then - ' For Each ModRow As DataRow In DtModulos.Rows - ' If Not ObjRoles.UpdateRolesModulos(ModRow("CveRol").ToString.ToEntero, ModRow("CveModulo").ToString.ToEntero, ModRow("Valor").ToString.ToEntero, 100) Then - ' CorrectoEmpresa = False - ' End If - ' Next - ' End If - - ' If DtProcesos IsNot Nothing Then - ' For Each ProcRow As DataRow In DtProcesos.Rows - ' If Not ObjRoles.UpdateRolesProcesos(ProcRow("CveRol").ToString.ToEntero, ProcRow("CveProceso").ToString.ToEntero, ProcRow("Valor").ToString.ToEntero, 100) Then - ' HuboError = True - ' End If - ' Next - ' End If - - ' If CorrectoEmpresa Then - ' ObjEmpresa.Commit() - ' Alert("Se actualizaron los datos de la empresa", TipoMensaje.MsgInformacion) - ' Else - ' ObjEmpresa.RollBack() - ' Alert("Ocurrió un error al acualizar los datos de la empresa", TipoMensaje.MsgError) - ' End If - ' ObjEmpresa.Dispose() - ' End If - 'End Sub -#End Region - -End Class diff --git a/PyME/Sistemas/vssver2.scc b/PyME/Sistemas/vssver2.scc deleted file mode 100644 index 773e4fcfc..000000000 Binary files a/PyME/Sistemas/vssver2.scc and /dev/null differ diff --git a/RH/ActualizacionMasiva.aspx.vb b/RH/ActualizacionMasiva.aspx.vb index 07ea75a6a..31871c530 100644 --- a/RH/ActualizacionMasiva.aspx.vb +++ b/RH/ActualizacionMasiva.aspx.vb @@ -90,7 +90,7 @@ Partial Class RH_ActualizacionMasiva End Sub Private Sub CargaTurnos() - Dim dt = GlobalDTTurno.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) + Dim dt = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataSource = dt DdlTurno.DataBind() Dim row = dt.NewRow diff --git a/RH/Asistencias.aspx.vb b/RH/Asistencias.aspx.vb index 3a5c22951..efea4804b 100644 --- a/RH/Asistencias.aspx.vb +++ b/RH/Asistencias.aspx.vb @@ -87,7 +87,7 @@ Partial Class RH_Asistencias End Sub Private Sub CargaTurnos() - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() End Sub @@ -201,7 +201,7 @@ Partial Class RH_Asistencias If e.Row.DBCampo("CveAsistenciasInasistencias") <> "-1" Then e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias") 'Carga Motivos Horas Extras - e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlMotivoHoraExtra").DataBind() If e.Row.DBCampo("CveMotivoHoraExtra") <> "-1" Then e.Row.FCDropDownList("DdlMotivoHoraExtra").SelectedValue = e.Row.DBCampo("CveMotivoHoraExtra") diff --git a/RH/CatDepartamentos.aspx.vb b/RH/CatDepartamentos.aspx.vb index 7f1ac0b2a..9d3bb40fc 100644 --- a/RH/CatDepartamentos.aspx.vb +++ b/RH/CatDepartamentos.aspx.vb @@ -43,9 +43,8 @@ Partial Class RH_CatDepartamentos Public Sub CargaDatos() Dim ObjDepartamentos As New ClsRH - If ObjDepartamentos.GetDepartamentos() Then - ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTDepartamentos = ObjDepartamentos.DtResultados + If ObjDepartamentos.GetDepartamentos(UsuarioActual.CveEmpresa) Then + ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados Else Me.GvDatos.DataSource = Nothing End If @@ -75,7 +74,7 @@ Partial Class RH_CatDepartamentos Alert("El nuevo Departamento se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulos.Update() ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTDepartamentos = ObjDepartamentos.DtResultados + GlobalDTDepartamentos(UsuarioActual.CveEmpresa) = Nothing If ViewState("Orden").ToString() <> String.Empty Then CargaGrid(ViewState("Orden").ToString()) @@ -106,7 +105,7 @@ Partial Class RH_CatDepartamentos If ObjDepartamentos.RemoveDepartamento(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatos.EditIndex = -1 ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTDepartamentos = ObjDepartamentos.DtResultados + GlobalDTDepartamentos(UsuarioActual.CveEmpresa) = Nothing Alert("El Departamento se eliminó correctamente.", TipoMensaje.MsgInformacion) End If ObjDepartamentos.Dispose() @@ -136,7 +135,7 @@ Partial Class RH_CatDepartamentos If ObjDepartamentos.UpdateDepartamento(Departamento, Estatus, CveDepartamento) Then GvDatos.EditIndex = -1 ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTDepartamentos = ObjDepartamentos.DtResultados + GlobalDTDepartamentos(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If ObjDepartamentos.Dispose() diff --git a/RH/CatMotivoBaja.aspx.vb b/RH/CatMotivoBaja.aspx.vb index a199cec61..f8819100a 100644 --- a/RH/CatMotivoBaja.aspx.vb +++ b/RH/CatMotivoBaja.aspx.vb @@ -57,9 +57,8 @@ Partial Class RH_CatMotivoBaja Public Sub CargaDatos() Dim ObjMotivoBaja As New ClsRH - If ObjMotivoBaja.GetMotivoBaja() Then - ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTMotivoBaja = ObjMotivoBaja.DtResultados + If ObjMotivoBaja.GetMotivoBaja(UsuarioActual.CveEmpresa) Then + ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados Else Me.GvDatos.DataSource = Nothing End If @@ -79,7 +78,7 @@ Partial Class RH_CatMotivoBaja MotivoTxt.Text = "" Alert("El nuevo Motivo de Baja se guardó correctamente.", TipoMensaje.MsgInformacion) ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTMotivoBaja = ObjMotivoBaja.DtResultados + GlobalDTMotivoBaja(UsuarioActual.CveEmpresa) = Nothing If ViewState("Orden").ToString() <> String.Empty Then CargaGrid(ViewState("Orden").ToString()) @@ -110,7 +109,7 @@ Partial Class RH_CatMotivoBaja If ObjMotivoBaja.RemoveMotivoBaja(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatos.EditIndex = -1 ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTMotivoBaja = ObjMotivoBaja.DtResultados + GlobalDTMotivoBaja(UsuarioActual.CveEmpresa) = Nothing Alert("El Motivo de Baja se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -145,7 +144,7 @@ Partial Class RH_CatMotivoBaja If ObjMotivoBaja.UpdateMotivoBaja(MotivoBaja, Estatus, CveMotivoBaja) Then GvDatos.EditIndex = -1 ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTMotivoBaja = ObjMotivoBaja.DtResultados + GlobalDTMotivoBaja(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If diff --git a/RH/CatMotivosHorasExtras.aspx.vb b/RH/CatMotivosHorasExtras.aspx.vb index cf1091d8d..fbd6ecfb5 100644 --- a/RH/CatMotivosHorasExtras.aspx.vb +++ b/RH/CatMotivosHorasExtras.aspx.vb @@ -44,9 +44,8 @@ Partial Class RH_CatMotivosHorasExtras Public Sub CargaDatos() Dim ObjMotivosHorasExtras As New ClsRH - If ObjMotivosHorasExtras.GetMotivoHorasExtras() Then - ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados + If ObjMotivosHorasExtras.GetMotivoHorasExtras(UsuarioActual.CveEmpresa) Then + ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados Else Me.GvDatos.DataSource = Nothing End If @@ -77,7 +76,7 @@ Partial Class RH_CatMotivosHorasExtras Alert("El nuevo Motivo de Horas Extras se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulos.Update() ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados + GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) = Nothing If ViewState("Orden").ToString() <> String.Empty Then CargaGrid(ViewState("Orden").ToString()) @@ -108,7 +107,7 @@ Partial Class RH_CatMotivosHorasExtras If ObjMotivosHorasExtras.RemoveMotivoHoraExtra(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatos.EditIndex = -1 ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados + GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) = Nothing Alert("El MotivoHoraExtra se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -138,8 +137,8 @@ Partial Class RH_CatMotivosHorasExtras If ObjMotivosHorasExtras.UpdateMotivoHoraExtra(MotivoHoraExtra, Estatus, CveMotivoHoraExtra) Then GvDatos.EditIndex = -1 - ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados + ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados + GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index bd9b83708..a7c1e2095 100644 --- a/RH/CatPersonal.aspx.vb +++ b/RH/CatPersonal.aspx.vb @@ -246,14 +246,14 @@ Partial Class RH_CatPersonal End Sub Private Sub CargaTurno() - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - DdlTurno2.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) + DdlTurno2.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno2.DataBind() DdlTurno.DataBind() End Sub Private Sub CargaDepartamento() - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa) DdlDepartamentoAdd.DataSource = DdlDepartamento.DataSource DdlDepartamentoAdd.DataBind() DdlDepartamento.DataBind() @@ -267,12 +267,12 @@ Partial Class RH_CatPersonal End Sub Private Sub CargaRuta() - DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa) DdlRuta.DataBind() End Sub Private Sub CargaMotivoBaja() - DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlMotivoBaja.DataSource = GlobalDTMotivoBaja(UsuarioActual.CveEmpresa) DdlMotivoBaja.DataBind() End Sub @@ -901,7 +901,7 @@ Partial Class RH_CatPersonal crow = 1 ccol = ccol + 1 Catalogos.Cell(crow, ccol).Value = "Departamento" - For Each row As DataRow In GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).Rows + For Each row As DataRow In GlobalDTDepartamentos(UsuarioActual.CveEmpresa).Rows crow = crow + 1 Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveDepartamento"), row("Departamento")) Next @@ -915,7 +915,7 @@ Partial Class RH_CatPersonal crow = 1 ccol = ccol + 1 Catalogos.Cell(crow, ccol).Value = "Turno" - For Each row As DataRow In GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).Rows + For Each row As DataRow In GlobalDTTurno(UsuarioActual.CveEmpresa).Rows crow = crow + 1 Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveTurno"), row("Turno")) Next diff --git a/RH/CatPersonalRequerido.aspx.vb b/RH/CatPersonalRequerido.aspx.vb index f7c42d6bf..1d99a4bae 100644 --- a/RH/CatPersonalRequerido.aspx.vb +++ b/RH/CatPersonalRequerido.aspx.vb @@ -94,13 +94,13 @@ Partial Class RH_CatPersonalRequerido End Sub Private Sub CargaTurno() - ReqTurnoDdl.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + ReqTurnoDdl.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) ReqTurnoDdl.DataBind() End Sub Private Sub CargaDepartamento() DdlDepartamento.Items.Clear() - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa) DdlDepartamento.DataBind() End Sub diff --git a/RH/CatRuta.aspx.vb b/RH/CatRuta.aspx.vb index 526853e57..fc3da8787 100644 --- a/RH/CatRuta.aspx.vb +++ b/RH/CatRuta.aspx.vb @@ -42,9 +42,8 @@ Partial Class RH_CatRuta Public Sub CargaDatos() Dim ObjRuta As New ClsRH - If ObjRuta.GetRutas() Then - ViewState("DTRuta") = ObjRuta.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTRutas = ObjRuta.DtResultados + If ObjRuta.GetRutas(UsuarioActual.CveEmpresa) Then + ViewState("DTRuta") = ObjRuta.DtResultados Else Me.GvDatos.DataSource = Nothing End If @@ -85,7 +84,7 @@ Partial Class RH_CatRuta Alert("La nueva Ruta se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulos.Update() ViewState("DTRuta") = ObjRuta.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTRutas = ObjRuta.DtResultados + GlobalDTRutas(UsuarioActual.CveEmpresa) = Nothing If ViewState("Orden").ToString() <> String.Empty Then CargaGrid(ViewState("Orden").ToString()) @@ -116,7 +115,7 @@ Partial Class RH_CatRuta If ObjRuta.RemoveRuta(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatos.EditIndex = -1 ViewState("DTRuta") = ObjRuta.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTRutas = ObjRuta.DtResultados + GlobalDTRutas(UsuarioActual.CveEmpresa) = Nothing Alert("La Ruta se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -147,7 +146,7 @@ Partial Class RH_CatRuta If ObjRuta.UpdateRuta(Ruta, Estatus, CveRuta) Then GvDatos.EditIndex = -1 ViewState("DTRuta") = ObjRuta.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTRutas = ObjRuta.DtResultados + GlobalDTRutas(UsuarioActual.CveEmpresa) = Nothing Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If diff --git a/RH/ListaAsistenciaRH.aspx.vb b/RH/ListaAsistenciaRH.aspx.vb index fcc4debf5..19655741b 100644 --- a/RH/ListaAsistenciaRH.aspx.vb +++ b/RH/ListaAsistenciaRH.aspx.vb @@ -40,7 +40,7 @@ Partial Class RH_ListaAsistenciaRH DdlClientes.DataBind() DdlClientes.Items.Insert(0, New ListItem("Todos", "-1")) - DdlDepartamento.DataSource = GlobalDTDepartamentos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa) DdlDepartamento.DataBind() DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/RH/MiPerfil.aspx.vb b/RH/MiPerfil.aspx.vb index a4715bbc4..bc0b91c37 100644 --- a/RH/MiPerfil.aspx.vb +++ b/RH/MiPerfil.aspx.vb @@ -1216,7 +1216,7 @@ Partial Class RH_MiPerfil DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) DdlPersonal.DataBind() - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) + DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa) DdlDepartamento.DataBind() DdlSupervisor.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 9f77fa72f..f44258e3d 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -1177,7 +1177,7 @@ Partial Class RH_Personal End Sub Private Sub CargaTurno() - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() End Sub @@ -1187,12 +1187,12 @@ Partial Class RH_Personal End Sub Private Sub CargaMotivoHoraExtra() - DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) DdlMotivoHoraExtra.DataBind() End Sub Private Sub CargaDepartamento() - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa) DdlDepartamento.DataBind() End Sub @@ -1202,12 +1202,12 @@ Partial Class RH_Personal End Sub Private Sub CargaRuta() - DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa) DdlRuta.DataBind() End Sub Private Sub CargaMotivoBaja() - DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlMotivoBaja.DataSource = GlobalDTMotivoBaja(UsuarioActual.CveEmpresa) DdlMotivoBaja.DataBind() End Sub @@ -1318,7 +1318,7 @@ Partial Class RH_Personal End Sub Private Sub CargaMotivosHorasExtras() - DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) DdlMotivoHoraExtra.DataBind() End Sub @@ -1543,7 +1543,7 @@ Partial Class RH_Personal If e.Row.DBCampo("CveAsistenciasInasistencias") <> "-1" Then e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias") 'Carga Motivos Horas Extras - e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlMotivoHoraExtra").DataBind() If e.Row.DBCampo("CveMotivoHoraExtra") <> "-1" Then e.Row.FCDropDownList("DdlMotivoHoraExtra").SelectedValue = e.Row.DBCampo("CveMotivoHoraExtra") diff --git a/RH/PopUpBuscarPersonal.aspx.vb b/RH/PopUpBuscarPersonal.aspx.vb index 3e59a99ec..d52e5f3a4 100644 --- a/RH/PopUpBuscarPersonal.aspx.vb +++ b/RH/PopUpBuscarPersonal.aspx.vb @@ -64,7 +64,7 @@ Partial Class RH_PopUpBuscarPersonal End Sub Private Sub CargaTurno() - DdlTurnos.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurnos.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurnos.DataBind() End Sub @@ -98,7 +98,7 @@ Partial Class RH_PopUpBuscarPersonal End Sub Private Sub CargaDepartamento() - DdlDepartamentos.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlDepartamentos.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa) DdlDepartamentos.DataBind() End Sub @@ -128,7 +128,7 @@ Partial Class RH_PopUpBuscarPersonal End Sub Private Sub CargaRuta() - DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa) DdlRuta.DataBind() End Sub diff --git a/RH/Reclutamiento.aspx.vb b/RH/Reclutamiento.aspx.vb index 2a4efd573..aa802fcca 100644 --- a/RH/Reclutamiento.aspx.vb +++ b/RH/Reclutamiento.aspx.vb @@ -5418,11 +5418,11 @@ Partial Class RH_Reclutamiento 'If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then DdlCliente.DataSource = GlobalDTCliente(7) - 'End If - 'End If - DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & DdlEmpresaAsiganada.SelectedValue) + 'End If + + DdlRuta.DataSource = GlobalDTRutas(DdlEmpresaAsiganada.SelectedValue.ToEntero) If Not UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then DDLUsuarioNomina.DataSource = GlobalDTUsuarios(-1, DdlEmpresaAsiganada.SelectedValue.ToEntero) diff --git a/RH/RepAusentismoLaboral.aspx.vb b/RH/RepAusentismoLaboral.aspx.vb index 290053c49..3bdb52e05 100644 --- a/RH/RepAusentismoLaboral.aspx.vb +++ b/RH/RepAusentismoLaboral.aspx.vb @@ -21,7 +21,7 @@ Partial Class RH_RepAusentismoLaboral Private Sub CargaTurnos() - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() DdlTurno.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/RH/RepChecadorPreAsistencia.aspx.vb b/RH/RepChecadorPreAsistencia.aspx.vb index 8cbbadcc3..c032b790e 100644 --- a/RH/RepChecadorPreAsistencia.aspx.vb +++ b/RH/RepChecadorPreAsistencia.aspx.vb @@ -156,7 +156,7 @@ Partial Class RH_RepChecadorPreAsistencia DdlTipoPeriodo.DataBind() DdlTipoPeriodo.Items.Insert(0, New ListItem("Seleccione uno", "-1")) - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() ' DdlTurno.Items.Insert(0, New ListItem("Seleccione uno", "-1")) DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) @@ -365,7 +365,7 @@ Partial Class RH_RepChecadorPreAsistencia DTHorarios = objRH.DtResultados If DdlTurno.SelectedIndex > 0 Then - Dim DTTemp As DataTable = GlobalDTTurno.FiltraParametros("CveTurno = " & DdlTurno.SelectedValue) + Dim DTTemp As DataTable = GlobalDTTurno(UsuarioActual.CveEmpresa).FiltraParametros("CveTurno = " & DdlTurno.SelectedValue) Dim TMCveChecadorHorario As Integer = -1 If DTTemp.Rows.Count > 0 Then diff --git a/RH/RepCursos.aspx.vb b/RH/RepCursos.aspx.vb index 1ee537f4c..a004e13e6 100644 --- a/RH/RepCursos.aspx.vb +++ b/RH/RepCursos.aspx.vb @@ -20,7 +20,7 @@ Partial Class RH_RepCursos Private Sub CargaCombos() - DdlDepartamentos.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlDepartamentos.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa) DdlDepartamentos.DataBind() DdlDepartamentos.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/RH/RepDocumentacionVencida.aspx.vb b/RH/RepDocumentacionVencida.aspx.vb index 6bd981f64..203178fa7 100644 --- a/RH/RepDocumentacionVencida.aspx.vb +++ b/RH/RepDocumentacionVencida.aspx.vb @@ -100,7 +100,7 @@ Partial Class RH_RepDocumentacionVencida DdlSupervisor.DataBind() - DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa) DdlRuta.DataBind() diff --git a/RH/RepIndiceRotacionPersonal.aspx.vb b/RH/RepIndiceRotacionPersonal.aspx.vb index 950bf76b8..edf2ac6fc 100644 --- a/RH/RepIndiceRotacionPersonal.aspx.vb +++ b/RH/RepIndiceRotacionPersonal.aspx.vb @@ -35,7 +35,7 @@ Partial Class Ventas_RepIndiceRotacionPersonal Private Sub CargaTurnos() - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() DdlTurno.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/RH/RepPersonalNecesidades.aspx.vb b/RH/RepPersonalNecesidades.aspx.vb index a591c9271..6d8a86f5d 100644 --- a/RH/RepPersonalNecesidades.aspx.vb +++ b/RH/RepPersonalNecesidades.aspx.vb @@ -27,7 +27,7 @@ Partial Class RH_RepPersonalNecesidades End Sub Private Sub CargaTurnos() - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() DdlTurno.Items.Insert(0, New ListItem("Todos", "-1")) End Sub @@ -52,7 +52,7 @@ Partial Class RH_RepPersonalNecesidades Private Sub CargaDepartamento() DdlDepartamento.Items.Clear() - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa) DdlDepartamento.DataBind() DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/RH/RepUniformes.aspx.vb b/RH/RepUniformes.aspx.vb index 95f9d9283..33003e1ca 100644 --- a/RH/RepUniformes.aspx.vb +++ b/RH/RepUniformes.aspx.vb @@ -29,7 +29,7 @@ Partial Class RH_RepUniformes DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa =" & UsuarioActual.CveEmpresa & " AND Departamento <> 'Seleccione' ") + DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa).FiltraParametros(" Departamento <> 'Seleccione' ") DdlDepartamento.DataBind() DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/RH/RepUniformesResguardo.aspx.vb b/RH/RepUniformesResguardo.aspx.vb index f2d8f10c5..ebca77f58 100644 --- a/RH/RepUniformesResguardo.aspx.vb +++ b/RH/RepUniformesResguardo.aspx.vb @@ -29,7 +29,7 @@ Partial Class RH_RepUniformesResguardo DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa =" & UsuarioActual.CveEmpresa & " AND Departamento <> 'Seleccione' ") + DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa).FiltraParametros(" Departamento <> 'Seleccione' ") DdlDepartamento.DataBind() DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/RH/RepVacaciones.aspx.vb b/RH/RepVacaciones.aspx.vb index 0c034ddd7..dfcc245a5 100644 --- a/RH/RepVacaciones.aspx.vb +++ b/RH/RepVacaciones.aspx.vb @@ -39,10 +39,10 @@ Partial Class RH_RepVacaciones DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ") DdlSupervisor.DataBind() - DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa) DdlRuta.DataBind() - DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa) DdlTurno.DataBind() DdlTurno.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/RH/ReporteViaticos.aspx.cs b/RH/ReporteViaticos.aspx.cs index 056cb5308..380f367d0 100644 --- a/RH/ReporteViaticos.aspx.cs +++ b/RH/ReporteViaticos.aspx.cs @@ -25,7 +25,7 @@ public partial class RH_ReporteViaticos : ClsPaginas DdlPersonal.DataBind(); DdlPersonal.Items.Insert(0, new ListItem("Todos ", "-1")); - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)); + DdlDepartamento.DataSource = get_GlobalDTDepartamentos(UsuarioActual.CveEmpresa); DdlDepartamento.DataBind(); DdlDepartamento.Items.Insert(0, new ListItem("Todos ", "-1")); } diff --git a/RH/SolicitudViaticos.aspx.cs b/RH/SolicitudViaticos.aspx.cs index 912959049..39f049ba5 100644 --- a/RH/SolicitudViaticos.aspx.cs +++ b/RH/SolicitudViaticos.aspx.cs @@ -111,7 +111,7 @@ public partial class RH_SolicitudViaticos : ClsPaginas DdlPersonal.DataSource = get_GlobalDTRHPersonal(UsuarioActual.CveEmpresa); DdlPersonal.DataBind(); - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)); + DdlDepartamento.DataSource = get_GlobalDTDepartamentos(UsuarioActual.CveEmpresa); DdlDepartamento.DataBind(); DdlSupervisor.DataSource = get_GlobalDTRHPersonal(UsuarioActual.CveEmpresa); diff --git a/Scripts/custom.js b/Scripts/custom.js index c630cc62c..5790d58f4 100644 --- a/Scripts/custom.js +++ b/Scripts/custom.js @@ -90,7 +90,7 @@ function FiltrarTabla(idtxt, idtable, idcontador) { } function FiltrarTablaStr(str, idtable, idcontador) { - if (str == '' || str == 'Todos') { $('table#' + idtable + ' tr').css('display', ''); } + if (str == '' || str == "-1" || str == 'Todos') { $('table#' + idtable + ' tr').css('display', ''); } else { $('table#' + idtable + ' tr:not(.ADtr)').css('display', 'none'); $('table#' + idtable + ' tr:contains("' + str + '")').css('display', ''); @@ -106,7 +106,7 @@ function FiltrarTablaStrMulti(idtable, idcontador /*, str1, str2, str3...*/ ) { let strc = ''; for (let i = 2 /*a partir del 3er argumento obtiene los str*/; i < arguments.length; i++) { let str = arguments[i]; - if (str != '' && str != 'Todos') { + if (str != '' && str != "-1" && str != 'Todos') { strc += ':contains("' + str + '")'; } } diff --git a/Sistemas/CatSesiones.aspx b/Sistemas/CatSesiones.aspx index a311a8d4f..45c8d4313 100644 --- a/Sistemas/CatSesiones.aspx +++ b/Sistemas/CatSesiones.aspx @@ -61,6 +61,7 @@ +    diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index a8b3bda14..85a382108 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -101,12 +101,18 @@ Partial Class Sistemas_CatSesiones CargaGlobalDTTipoTransacciones() ElseIf DdlVariable.SelectedItem.Value = "GlobalSATGenerales" Then CargaSATGenerales() + ElseIf DdlVariable.SelectedItem.Value = "GlobalDTActivoFijos" Then + CargaActivoFijos() End If - - End Sub + + Private Sub CargaActivoFijos() + GlobalDTActivoFijos(UsuarioActual.CveEmpresa) = Nothing + GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa, -1) = Nothing + End Sub + Private Sub CargaSATGenerales() Using ObjGrales As New ClsGenerales If ObjGrales.GetSATUsosCFDI Then Application("GlobalDTSATUsosCFDI") = ObjGrales.DtResultados @@ -210,20 +216,20 @@ Partial Class Sistemas_CatSesiones Private Sub CargaRH() Dim ObjRH As New ClsRH If ObjRH.GetTipoBuzon() Then Application("GlobalDTTipoBuzon") = ObjRH.DtResultados Else Application("GlobalDTTipoBuzon") = Nothing - If ObjRH.GetDepartamentos Then Application("GlobalDTDepartamentos") = ObjRH.DtResultados Else Application("GlobalDTDepartamentos") = Nothing + If ObjRH.GetDepartamentos(UsuarioActual.CveEmpresa) Then Application("GlobalDTDepartamentos") = ObjRH.DtResultados Else Application("GlobalDTDepartamentos") = Nothing If ObjRH.GetDocumentos() Then Application("GlobalDTDocumentos") = ObjRH.DtResultados Else Application("GlobalDTDocumentos") = Nothing If ObjRH.GetEscolaridades() Then Application("GlobalDTEscolaridad") = ObjRH.DtResultados Else Application("GlobalDTEscolaridad") = Nothing If ObjRH.GetEstadoCivil() Then Application("GlobalDTEstadoCivil") = ObjRH.DtResultados Else Application("GlobalDTEstadoCivil") = Nothing If ObjRH.GetEstatusPersonal() Then Application("GlobalDTEstatusPersonal") = ObjRH.DtResultados Else Application("GlobalDTEstatusPersonal") = Nothing If ObjRH.GetGeneros() Then Application("GlobalDTGenero") = ObjRH.DtResultados Else Application("GlobalDTGenero") = Nothing - If ObjRH.GetMotivoBaja() Then Application("GlobalDTMotivoBaja") = ObjRH.DtResultados Else Application("GlobalDTMotivoBaja") = Nothing + If ObjRH.GetMotivoBaja(UsuarioActual.CveEmpresa) Then Application("GlobalDTMotivoBaja") = ObjRH.DtResultados Else Application("GlobalDTMotivoBaja") = Nothing If ObjRH.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = ObjRH.DtResultados Else Application("GlobalDTRHPuestos") = Nothing - If ObjRH.GetRutas() Then Application("GlobalDTRutas") = ObjRH.DtResultados Else Application("GlobalDTRutas") = Nothing + If ObjRH.GetRutas(UsuarioActual.CveEmpresa) Then Application("GlobalDTRutas") = ObjRH.DtResultados Else Application("GlobalDTRutas") = Nothing If ObjRH.GetTiposContrato() Then Application("GlobalDTTiposContrato") = ObjRH.DtResultados Else Application("GlobalDTTiposContrato") = Nothing If ObjRH.GetTurnos() Then Application("GlobalDTTurno") = ObjRH.DtResultados Else Application("GlobalDTTurno") = Nothing If ObjRH.GetJornadas() Then Application("GlobalDTJornadas") = ObjRH.DtResultados Else Application("GlobalDTJornadas") = Nothing If ObjRH.GetAsistenciasInasistencias() Then Application("GlobalDTAsistenciasInasistencias") = ObjRH.DtResultados Else Application("GlobalDTAsistenciasInasistencias") = Nothing - If ObjRH.GetMotivoHorasExtras() Then Application("GlobalDTMotivosHorasExtras") = ObjRH.DtResultados Else Application("GlobalDTMotivosHorasExtras") = Nothing + If ObjRH.GetMotivoHorasExtras(UsuarioActual.CveEmpresa) Then Application("GlobalDTMotivosHorasExtras") = ObjRH.DtResultados Else Application("GlobalDTMotivosHorasExtras") = Nothing If ObjRH.GetAsistenciasDetalle() Then Application("GlobalDTAsistenciaDetalle") = ObjRH.DtResultados Else Application("GlobalDTAsistenciaDetalle") = Nothing ObjRH.Dispose() @@ -489,9 +495,10 @@ Partial Class Sistemas_CatSesiones End Sub Private Sub CargaOCEstatus() - Dim ObjOC As New ClsOC - If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing - ObjOC.Dispose() + 'Dim ObjOC As New ClsOC + 'If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing + 'ObjOC.Dispose() + GlobalDTOCEstatus(UsuarioActual.CveEmpresa) = Nothing End Sub Private Sub CargaOCEstatusUsuarios() diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 8105b1328..f485c6faa 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -473,17 +473,9 @@ Partial Class Sistemas_UsuarioDetalle CargaEmpresasAsignaciones() CreaDtAsignacionesMultiEmpresa() CveEmpresaAnterior = DdlEmpresaAsignaciones.SelectedValue.ToEntero - - Using ObjOc As New ClsOC - - If ObjOc.GetEstatus() Then - DTOCEstatus = ObjOc.DtResultados - Else - DTOCEstatus = New DataTable - End If - - End Using - + DTOCEstatus = GlobalDTOCEstatus(UsuarioActual.CveEmpresa) + + End If End Sub @@ -1371,12 +1363,10 @@ Partial Class Sistemas_UsuarioDetalle 'RECARGA GLOBAL BANCOS 'If ObjBancos.GetBancosCuentasUsuarios(-1) Then - GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing 'ObjBancos.DtResultados - ' End If - - 'RECARGA GLOBAL ESTATUS - If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing - + GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing 'ObjBancos.DtResultados + ' End If + + 'RECARGA GLOBAL ESTATUS GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa) = Nothing 'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb index b61522066..3bc89f608 100644 --- a/Ventas/RepProductosServicios.aspx.vb +++ b/Ventas/RepProductosServicios.aspx.vb @@ -158,7 +158,7 @@ Partial Class Ventas_RepProductosServicios DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1")) CargaGrupo() - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing) TipoCambio = 1 diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb index 96710610b..19dc8e898 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx.vb +++ b/Ventas/RepProductosServiciosDetalle.aspx.vb @@ -189,7 +189,7 @@ Partial Class Ventas_RepProductosServiciosDetalle DdlTipoPSDes.DataBind() CargaGrupo() - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing) TCEspecifico = 0 @@ -406,7 +406,6 @@ Partial Class Ventas_RepProductosServiciosDetalle CveMoneda = If(Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero() > 0, Request("CveMoneda").ToEntero(), -1).ToEntero DdlProyecto.SelectedValueExist(CveProyecto) - If DivProyecto.Visible Then CargaSubProyecto() DdlSubProyecto.SelectedValueExist(CveSubProyecto) DdlCategoria.SelectedValueExist(CveCategoria) DdlClasificacion.SelectedValueExist(CveClasificacion) diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index e8ba3f14d..04073217c 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -288,7 +288,7 @@ Partial Class RepVentaDetalle End Sub Private Sub CargaCombos() - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) CargaClientes() 'DdlClientes.setEsWebService(False) diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index 6817935ac..afec7c32d 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -135,6 +135,7 @@ Partial Class Ventas_RepVentas DdlGrupo.Items.Insert(2, New ListItem("Año/Mes", "3")) DdlGrupo.Items.Insert(3, New ListItem("Fecha", "4")) DdlGrupo.Items.Insert(4, New ListItem("Cliente", "5")) + DdlGrupo.Items.Insert(4, New ListItem("SubProyecto", "6")) DdlGrupo.Items.Insert(5, New ListItem("Corte", "16")) DdlGrupo.Items.Insert(6, New ListItem("Vendedor", "7")) DdlGrupo.Items.Insert(7, New ListItem("Usuario", "8")) @@ -158,7 +159,7 @@ Partial Class Ventas_RepVentas Private Sub CargaCombos() - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) 'CargaClientes Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)