diff --git a/Acumuladores/RepAcumuladoresVigencia.aspx b/Acumuladores/RepAcumuladoresVigencia.aspx new file mode 100644 index 000000000..01f7b200e --- /dev/null +++ b/Acumuladores/RepAcumuladoresVigencia.aspx @@ -0,0 +1,98 @@ +<%@ Page Language="C#" AutoEventWireup="true" MasterPageFile="~/Site.master" CodeFile="RepAcumuladoresVigencia.aspx.cs" Inherits="Acumuladores_RepAcumuladoresVigencia" %> + + + + + + + Reporte de Vigencia de Acumuladores + + + + + + + + + + +
+
+
+ + +
+
+
+ +
+ +
+ +
+ +
+ +
+
+ + + + +
+ + + + + + +
+ +
+
+ + + + +
+ + + + + + +
+
+
+
+
+
+
+
+
+ " style="display: inline-block; margin-right: -20px; width: 200px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
+
+ + + + + + + + + + + + + + + + + + + + diff --git a/Acumuladores/RepAcumuladoresVigencia.aspx.cs b/Acumuladores/RepAcumuladoresVigencia.aspx.cs new file mode 100644 index 000000000..6cc28d9bb --- /dev/null +++ b/Acumuladores/RepAcumuladoresVigencia.aspx.cs @@ -0,0 +1,66 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Web; +using System.Web.UI.WebControls; +using Extensiones; +using System.Data; +using Microsoft.Reporting.WebForms; +using System.Activities.Expressions; + +public partial class Acumuladores_RepAcumuladoresVigencia : ClsPaginas +{ + protected void Page_Load(object sender, EventArgs e) + { + if (!IsPostBack) + { + InicializaValores(); + } + } + + private void InicializaValores() + { + CargaCombos(); + txtFechaI.Text = DateTime.Now.FirstDayOfMonth().AddMonths(-9).ToShortDateString(); + txtFechaF.Text = DateTime.Now.LastDayOfMonth().AddMonths(-6).ToShortDateString(); + UpFiltros.Update(); + } + + private void CargaCombos() + { + CargarCentrosDeCosto(null, DdlSubProyecto, null, LblSubProyecto); + DdlClasificaciones.DataSource = get_GlobalDTClasificaciones(UsuarioActual.CveEmpresa); + DdlClasificaciones.DataBind(); + DdlClasificaciones.Items.Insert(0, new ListItem("Todos", "-1")); + } + + protected void BtnConsultar_Click(object sender, EventArgs e) + { + Consulta(); + } + + private void Consulta() + { + ClsAcumuladores ObjAcum = new ClsAcumuladores(); + + if (ObjAcum.GetVigencias(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlClasificaciones.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero())) + { + GvAcum.DataSource = ObjAcum.DtResultados; + } + ObjAcum.Dispose(); + GvAcum.DataBind(); + UpDatos.Update(); + } + + /*protected void GvAcum_RowDataBound(object sender, GridViewRowEventArgs e) + { + if (e.Row.RowType == DataControlRowType.DataRow) + { + if (e.Row.RowIndex == 0) + { + e.Row.Cells[0].Text = "Total"; + e.Row.CssClass = "Totales"; + } + } + }*/ +} \ No newline at end of file diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index 1fbcf36dd..354172fa2 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -1312,11 +1312,35 @@ Public Class ClsAcumuladores End Try Return Retorno - End Function - - + End Function + +#Region "VIGENCIA ACUMULADORES" + Public Function GetVigencias(FechaInicio As Date, FechaFin As Date, CveClasificacion As Integer, CveEmpresa As Integer, CveSubProyecto As Integer) As Boolean + Dim Retorno As Boolean = False + SqlDataAdapter("PA_Inv_ProductosFechasComprasSerie") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@FechaIni", SqlDbType.Date).Value = FechaInicio + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al consultar los productos por serie.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + +#End Region + #Region " IDisposable Support " - ' IDisposable + ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) If Not disposedValue Then If disposing Then 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..6458bcae7 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" @@ -9300,6 +9354,8 @@ Public Class ClsPaginas PaginaDict.Add("/Acumuladores/RepEntradasUsadosClientes.aspx".ToUpper(), 543) PaginaDict.Add("/Acumuladores/EntradasUsadosResumenRep.aspx".ToUpper(), 1032) PaginaDict.Add("/Acumuladores/RepPolizasVirtuales.aspx".ToUpper(), 1322) + PaginaDict.Add("/Acumuladores/RepAcumuladoresVigencia.aspx".ToUpper(), 174) + #End Region 'Antes de aquí. Application("GlobalSIGAppPaginas") = PaginaDict 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/Modelos.vb b/App_Code/Modelos.vb index 47d5bf7b6..5e0d0eaea 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -5031,7 +5031,7 @@ Namespace Modelos 'SI YA ESTA TIMBRADA, NUEVO PROCESO REFACTURACION, ASIGNA LA CANCELACION PENDIENTE 'EL ESTATUS REFACTURACION 4 ES PARA LAS QUE NO SE PUDIERON CANCELAR, DEBE OBLIGAR A CANCELAR ANTE EL SAT - If EsRefacturacion AndAlso Me.CveEstatusFactura = 3 AndAlso CveMotivoCancelacion > 0 AndAlso CveEstatusRefacturacion <> 4 Then + If EsRefacturacion AndAlso Me.CveEstatusFactura.Contiene(2, 3) AndAlso CveMotivoCancelacion > 0 AndAlso CveEstatusRefacturacion <> 4 Then CveEstatusFacturaAsignado = 23 End If 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/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb index ff4a419e3..e198bbd5b 100644 --- a/Bancos/Transferencias.aspx.vb +++ b/Bancos/Transferencias.aspx.vb @@ -447,6 +447,20 @@ Partial Class Bancos_Transferencias MsgError = "Error al guardar" End If + + + If MsgError = "" Then + If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then + If ObjMov.ValorPolizaDescuadre > 0 Then + MsgError = ObjMov.MensajePolizaDescuadre + GuardaLogAD($"Bancos/Transferencias | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") + End If + Else + MsgError = "No se pudo validar la prepoliza de cuadre." + End If + End If + + If MsgError = "" Then ObjIE.Commit() Alert(String.Format("El Movimiento se realizo correctamente.
{0}", AlertaGlobal), TipoMensaje.MsgInformacion) 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"> -
+
- -
-
-
-
- -
- - -
-
-
- -
-
- - - - - - - - - -
-
-
- -
- - - - -
-
-
-
-
- - - - - - - - - - - -
-
Fecha:
- -
-
- - - - - - - - - -
-
- -
Tipo Póliza:
-
- - - -
- -
- : -
- -
- - -
-
- -
-
Poliza Complementaria:
-
- -
-
- -
-
Concepto:
-
- - - -
-
- -
- -
- - -
@@ -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"> -
+
- + diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index 4edcd7ef5..a62db7b56 100644 --- a/CxC/RepCxCDetalle.aspx.vb +++ b/CxC/RepCxCDetalle.aspx.vb @@ -247,13 +247,9 @@ Partial Class RepCxCDetalle #Region "CARGAS" Private Sub CargaCombos() Dim CveCliente, CveVendedor, CveUsuario, CveSubProyecto, - CveEstatus, CveResponsable, CveAgrupador, CveClienteClasificacion As Integer - - 'CargaClientes - 'CargaClientes - 'txtFechaI.Text = Now.AddMonths(-12).FirstDayOfMonth.ToShortDateString - txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString + CveEstatus, CveResponsable, CveAgrupador, CveClienteClasificacion As Integer + txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlClientesWS.setEsWebService(True) @@ -269,7 +265,7 @@ Partial Class RepCxCDetalle DdlSubProyecto.DataBind() 'CargaUsuarios - DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) DdlUsuario.DataBind() 'CargaResponsable @@ -427,6 +423,10 @@ Partial Class RepCxCDetalle If UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) Then ChkAnticipos.Visible = True DdlTieneLineaAdicional.SelectedValueExist(If(Request("TieneLineaAdicional") IsNot Nothing, Request("TieneLineaAdicional").ToString, "-1").ToString) + If UsuarioActual.CveEmpresa = 119 Then + divLineaAdicional1.Visible = True + divLineaAdicional2.Visible = True + End If If UsuarioActual.CveEmpresa = 13 Then CargaContratos() @@ -438,8 +438,9 @@ Partial Class RepCxCDetalle Dim ObjContratos As New ClsContratos If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, CveCliente:=-1) Then DdlContrato.DataSource = ObjContratos.DtResultados - End If - divContrato.Visible = True + End If + divContrato.Visible = True + divContrato1.Visible = True ObjContratos.Dispose() DdlContrato.DataBind() @@ -877,6 +878,12 @@ Partial Class RepCxCDetalle GvDatos.Columns(46).Visible = False End If + If ChkContrato.Checked Then + GvDatos.Columns(47).Visible = True + SePersonalizo = 1 + Else + GvDatos.Columns(47).Visible = False + End If If SePersonalizo = 1 Then @@ -896,50 +903,72 @@ Partial Class RepCxCDetalle Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click GenerarImpresion("EXCEL") End Sub - Private Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click - SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet()) - - Dim ef As ExcelFile = New ExcelFile - Dim ws As ExcelWorksheet = ef.Worksheets.Add("DataTable to Sheet") - Dim dt As DataTable = New DataTable - Dim response As HttpResponse = Me.Response - - 'Recorrer columnas - For index = 0 To GvDatos.Columns.Count - 1 - If GvDatos.Columns(index).Visible Then - dt.Columns.Add(GvDatos.Columns(index).HeaderText) - End If - Next - - 'Recorrer filas - For Each fila As GridViewRow In GvDatos.Rows - Dim dr As DataRow = dt.NewRow() - - For index = 0 To GvDatos.Columns.Count - 1 - If GvDatos.Columns(index).Visible Then - If TypeOf GvDatos.Columns(index) Is TemplateField Then - If GvDatos.Columns(index).HeaderText = "Folio" Then - dr(GvDatos.Columns(index).HeaderText) = fila.FCHyperLink("HlFolio").Text.Replace(" ", "") - End If - ElseIf TypeOf GvDatos.Columns(index) Is HyperLinkField Then - dr(GvDatos.Columns(index).HeaderText) = DirectCast(fila.Cells(index).Controls(0), HyperLink).Text.Replace(" ", "") - Else - dr(GvDatos.Columns(index).HeaderText) = fila.Cells(index).Text.Replace(" ", "") - End If - End If - Next - dt.Rows.Add(dr) - Next - - ' Insert DataTable into an Excel worksheet. - ws.InsertDataTable(dt, - New InsertDataTableOptions() With - { - .ColumnHeaders = True, - .StartRow = 1 - }) - - ef.Save(response, "RepCxC.xlsx") + Private Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click + + Dim Cliente = If(DdlClientesWS.SelectedValue = "-1", "", $" Cliente: {DdlClientesWS.SelectedText}") + Dim Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $" Sucursal: {DdlSubProyecto.SelectedItem.Text}") + Dim Grupo = $" Agrupado Por: {DdlGrupo.SelectedItem.Text}" 'If(DdlGrupo.SelectedValue = "3", "", $" Agrupado Por: {DdlGrupo.SelectedItem.Text}") + Dim TipoDocto = If(DdlTipoDocto.GetSelectedText = "", "", $" Documentos: {DdlTipoDocto.GetSelectedText}") + Dim Vendedor = If(DdlVendedor.SelectedValue = "-1", "", $" Vendedor: {DdlVendedor.SelectedItem.Text}") + Dim FechaIn As String = If(txtFechaI.Text = "", "", $" Fecha Inicio Docto: {txtFechaI.Text}") + Dim FechaFn As String = If(txtFechaF.Text = "", "", $" Fecha Fin Docto: {txtFechaF.Text}") + Dim FVI As String = If(txtFechaVI.Text = "", "", $" Fecha Venc. Inic.: {txtFechaVI.Text}") + Dim FVF As String = If(txtFechaVF.Text = "", "", $" Fecha Venc. Final: ;{txtFechaVF.Text}") + Dim Registro = If(DdlUsuario.SelectedValue = "-1", "", $" Registró: ;{DdlUsuario.SelectedItem.Text}") + Dim Responsable = If(DdlResponsable.SelectedValue = "-1", "", $" Responsable: ;{DdlResponsable.SelectedItem.Text}") + Dim EstatusCob = If(DdlCobranzaEstatusFiltro.SelectedValue = "-1", "", $"status Cobranza: ;{DdlCobranzaEstatusFiltro.SelectedItem.Text}") + Dim CorteA As String = If(txtCorteA.Text = "31/12/2019", "", $"Corte A {txtCorteA.Text}") + Dim ClasificacionCli = If(DdlClienteClasificacion.SelectedValue = "-1", "", $" Clasificación Cliente: {DdlClienteClasificacion.SelectedItem.Text}") + + Dim Filtro As String = $"{Cliente}{Sucursal}{Grupo}{Vendedor}{FechaIn}{FechaFn}{Registro}{Responsable}{TipoDocto}{EstatusCob}{FVI}{FVF}{ClasificacionCli}{CorteA}" + + ExportToExcelGembox(GvDatos, "ReporteCxCDetalle", UsuarioActual, "REPORTE DE CUENTAS POR COBRAR DEL CLIENTE CON DETALLE", DatoTituloExtra:=$"", DatosFiltros:=Filtro) + 'GvDatos.ExportToExcelG("ReporteCxCDetalle", "REPORTE DE CUENTAS POR COBRAR DEL CLIENTE CON DETALLE", UsuarioActual, Filtro) + + 'SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet()) + + 'Dim ef As ExcelFile = New ExcelFile + 'Dim ws As ExcelWorksheet = ef.Worksheets.Add("DataTable to Sheet") + 'Dim dt As DataTable = New DataTable + 'Dim response As HttpResponse = Me.Response + + ''Recorrer columnas + 'For index = 0 To GvDatos.Columns.Count - 1 + ' If GvDatos.Columns(index).Visible Then + ' dt.Columns.Add(GvDatos.Columns(index).HeaderText) + ' End If + 'Next + + ''Recorrer filas + 'For Each fila As GridViewRow In GvDatos.Rows + ' Dim dr As DataRow = dt.NewRow() + + ' For index = 0 To GvDatos.Columns.Count - 1 + ' If GvDatos.Columns(index).Visible Then + ' If TypeOf GvDatos.Columns(index) Is TemplateField Then + ' If GvDatos.Columns(index).HeaderText = "Folio" Then + ' dr(GvDatos.Columns(index).HeaderText) = fila.FCHyperLink("HlFolio").Text.Replace(" ", "") + ' End If + ' ElseIf TypeOf GvDatos.Columns(index) Is HyperLinkField Then + ' dr(GvDatos.Columns(index).HeaderText) = DirectCast(fila.Cells(index).Controls(0), HyperLink).Text.Replace(" ", "") + ' Else + ' dr(GvDatos.Columns(index).HeaderText) = fila.Cells(index).Text.Replace(" ", "") + ' End If + ' End If + ' Next + ' dt.Rows.Add(dr) + 'Next + + '' Insert DataTable into an Excel worksheet. + 'ws.InsertDataTable(dt, + ' New InsertDataTableOptions() With + ' { + ' .ColumnHeaders = True, + ' .StartRow = 1 + ' }) + + 'ef.Save(response, "RepCxC.xlsx") + End Sub Private Sub GenerarImpresion(Optional TipoImpresion As String = "PDF") @@ -953,8 +982,8 @@ Partial Class RepCxCDetalle TCEspecifico = TxtEspecifico.Text.ToDouble Else TCEspecifico = -1 - End If - + End If + Dim Cliente = If(DdlClientesWS.SelectedValue = "-1", "", $" Cliente: {DdlClientesWS.SelectedText}") Dim Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $" Sucursal: {DdlSubProyecto.SelectedItem.Text}") Dim Grupo = $" Agrupado Por: {DdlGrupo.SelectedItem.Text}" 'If(DdlGrupo.SelectedValue = "3", "", $" Agrupado Por: {DdlGrupo.SelectedItem.Text}") @@ -968,8 +997,8 @@ Partial Class RepCxCDetalle Dim Responsable = If(DdlResponsable.SelectedValue = "-1", "", $" Responsable: {DdlResponsable.SelectedItem.Text}") Dim EstatusCob = If(DdlCobranzaEstatusFiltro.SelectedValue = "-1", "", $" Estatus Cobranza: {DdlCobranzaEstatusFiltro.SelectedItem.Text}") Dim CorteA As String = If(txtCorteA.Text = "31/12/2019", "", $" Corte A: {txtCorteA.Text}") - Dim ClasificacionCli = If(DdlClienteClasificacion.SelectedValue = "-1", "", $" Clasificación Cliente: {DdlClienteClasificacion.SelectedItem.Text}") - + Dim ClasificacionCli = If(DdlClienteClasificacion.SelectedValue = "-1", "", $" Clasificación Cliente: {DdlClienteClasificacion.SelectedItem.Text}") + Dim TituloReporte As String = "REPORTE DE CUENTAS POR COBRAR DEL CLIENTE CON DETALLE" 'If UsuarioActual.CveEmpresa = 72 Then ' TituloReporte = "Antigüedad de Saldos de Clientes" @@ -1150,4 +1179,220 @@ Partial Class RepCxCDetalle #End Region + + Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) + End Sub + + + Public Sub ExportToExcelGembox(GridView As GridView, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional DatoTituloExtra As String = "", Optional DatosFiltros As String = "", Optional AnchoImagen As Integer = 100, Optional AlturaImagen As Integer = 100, Optional DTExtra As DataTable = Nothing) + + Dim sw1 As New StringWriter() + Dim htw1 As New HtmlTextWriter(sw1) + GridView.RenderControl(htw1) + + Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault + + Dim htmlStream1 = New MemoryStream(options.Encoding.GetBytes(sw1.ToString())) + + htmlStream1.Position = 0 + Dim sr1 As New StreamReader(htmlStream1) + Dim myStr1 = sr1.ReadToEnd() + sr1.Dispose() + htmlStream1.Dispose() + sw1.Dispose() + + Dim HtmlCompleto As String = myStr1 + + HtmlCompleto = Regex.Replace(HtmlCompleto, "\<[\/]*a[^\>]*\>", "") + + Dim htmlStream5 = New MemoryStream(options.Encoding.GetBytes(HtmlCompleto)) + + GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet) + + Dim excel As GemBox.Spreadsheet.ExcelFile + + excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream5, options) + + If Usuario IsNot Nothing Then + + Dim TotalRowHeader As Integer = 6 + Dim TotalRowFooter As Integer = 2 + + + Dim worksheet = excel.Worksheets(0) + worksheet.Rows.InsertEmpty(0, TotalRowHeader) + Dim celdasConTexto = worksheet.GetUsedCellRange(True) + If celdasConTexto Is Nothing Then Exit Sub 'No se recuperaron datos, salir de sin guardar porque soltará error + celdasConTexto.Style.Font.Name = "Calibri Light" + + Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex) + RangoNombreEmpresa.Merged = True + RangoNombreEmpresa.Value = Usuario.Empresa.Empresa + RangoNombreEmpresa.Style.Font.Size = 18 * 20 + RangoNombreEmpresa.Style.Font.Name = "Calibri Light" + RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + + Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex) + RangoTitulo.Merged = True + RangoTitulo.Value = Titulo + RangoTitulo.Style.Font.Size = 20 * 20 + RangoTitulo.Style.Font.Name = "Calibri Light" + RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + If DatoTituloExtra.Length > 0 Then + Dim RangoDatoTituloExtra = worksheet.Cells.GetSubrangeAbsolute(TotalRowHeader, celdasConTexto.FirstColumnIndex, TotalRowHeader, celdasConTexto.LastColumnIndex) + RangoDatoTituloExtra.Merged = True + RangoDatoTituloExtra.Value = DatoTituloExtra + RangoDatoTituloExtra.Style.Font.Size = 20 * 20 + RangoDatoTituloExtra.Style.Font.Name = "Calibri Light" + RangoDatoTituloExtra.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left + RangoDatoTituloExtra.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + End If + + If DatosFiltros.Length > 0 Then + + Dim Arreglo As String() = DatosFiltros.Split("|"c) + worksheet.Rows.InsertEmpty(TotalRowHeader, Arreglo.Count) + For Each TextoFiltro As String In Arreglo + Dim RangoDatoTituloExtra = worksheet.Cells.GetSubrangeAbsolute(TotalRowHeader, celdasConTexto.FirstColumnIndex, TotalRowHeader, celdasConTexto.LastColumnIndex) + RangoDatoTituloExtra.Merged = True + RangoDatoTituloExtra.Value = TextoFiltro + RangoDatoTituloExtra.Style.Font.Size = 12 * 20 + RangoDatoTituloExtra.Style.Font.Name = "Calibri Light" + RangoDatoTituloExtra.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left + RangoDatoTituloExtra.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + TotalRowHeader += 1 + + Next + End If + + ' TotalRowHeader += 2 + + For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex + + worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Size = 12 * 20 + worksheet.Rows(TotalRowHeader).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + worksheet.Rows(TotalRowHeader).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + worksheet.Rows(TotalRowHeader).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) + + If i > 0 Then + Try + worksheet.Columns(i).AutoFit(1) + Catch ex As Exception + End Try + End If + + Next + + Dim IndexEndTable As Integer = GridView.Rows.Count + TotalRowHeader + TotalRowFooter + + worksheet.Rows(IndexEndTable).Cells(1).Value = "Usuario Imprimió" + worksheet.Rows(IndexEndTable + 1).Cells(1).Value = Usuario.Nombre + + worksheet.Rows(IndexEndTable).Cells(3).Value = "Fecha Impresión" + worksheet.Rows(IndexEndTable + 1).Cells(3).Value = DateTime.Now.ToString("dd/MM/yyyy") + + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)) + + If Imagen.Exists Then + Dim Ruta As String = String.Format("{0}/Logo.png", Usuario.Empresa.Ruta) + Using sr As New StreamReader(Ruta) + Dim ms As New MemoryStream() + sr.BaseStream.CopyTo(ms) + worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel) + End Using + End If + + + For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex - 2 + + If I > 0 Then + + If 1 = 1 Then + worksheet.Columns(I + 1).Style.NumberFormat = "#,##0.00" + Else + worksheet.Columns(I + 1).Style.NumberFormat = "#,##" + End If + + Try + worksheet.Columns(I).AutoFit(1) + Catch ex As Exception + End Try + + End If + Next + + + + If DTExtra IsNot Nothing Then + + Dim NombreTabla As String = "" + + If DTExtra.TableName IsNot Nothing Then + NombreTabla = DTExtra.TableName + End If + + If NombreTabla.Trim = "" Then + NombreTabla = "hoja2" + End If + + 'excel.Worksheets.Add(NombreTabla) + + Dim workbookDTExtra = New ExcelFile + Dim worksheetDTExtra = workbookDTExtra.Worksheets.Add(NombreTabla) + + + worksheetDTExtra.InsertDataTable(DTExtra, + New InsertDataTableOptions() With + { + .ColumnHeaders = True, + .StartRow = 0 + }) + + + + Dim columnCount = worksheetDTExtra.CalculateMaxUsedColumns() + For i As Integer = 0 To columnCount - 1 + worksheetDTExtra.Columns(i).AutoFit(1, worksheetDTExtra.Rows(1), worksheetDTExtra.Rows(worksheetDTExtra.Rows.Count - 1)) + worksheetDTExtra.Cells(0, i).Style.FillPattern.SetSolid(Drawing.ColorTranslator.FromHtml("#4b77be")) + worksheetDTExtra.Cells(0, i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) + + Next + + + excel.Worksheets.AddCopy(NombreTabla, worksheetDTExtra) + excel.Worksheets(0).Name = Titulo + + + + End If + + + + Dim indexRow As Integer = 8 + + + For indexRow = 8 To worksheet.Rows.Count - 4 + + If worksheet.Cells(indexRow, 0).Value.ToString.Trim = "" Then + worksheet.Cells.GetSubrangeRelative(indexRow, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(Drawing.ColorTranslator.FromHtml("#c0c0c0")) + End If + + Next + + + End If + + excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx") + + + End Sub + + End Class diff --git a/Empresas/119/Formatos/RepCxCDetalle.rdlc b/Empresas/119/Formatos/RepCxCDetalle.rdlc index 43ee63af5..80cf87f75 100644 --- a/Empresas/119/Formatos/RepCxCDetalle.rdlc +++ b/Empresas/119/Formatos/RepCxCDetalle.rdlc @@ -1,1967 +1,5 @@  - - - - - - - - 0.8791cm - - - 5.43111cm - - - 2.01211cm - - - 1.97083cm - - - 2.16822cm - - - 2.23839cm - - - 2.34184cm - - - 1.36229cm - - - 1.55364cm - - - 1.29043cm - - - 1.33583cm - - - 1.29092cm - - - 2.5cm - - - - - 0.49417cm - - - - - true - true - - - - - Tipo - - - - - - - Textbox3 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Nombre - - - - - - - Textbox13 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha - - - - - - - Textbox4 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha Venc - - - - - - - Textbox23 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Folio - - - - - - - Textbox12 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Total - - - - - - - Textbox14 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Saldo - - - - - - - Textbox16 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Mon - - - - - - - Textbox26 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Sucursal - - - - - - - Textbox18 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Dias V - - - - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Dias T - - - - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Código - - - - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Vendedor - - - - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - Silver - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.41479cm - - - - - true - true - - - - - - - - - - - - TipoDocto - - - =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox15 - - - =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Fecha.Value Is Nothing, "Cantidad:", Fields!Fecha.Value) - - - - - - - Fecha2 - - - =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox24 - - - =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SerieFolio.Value - - - - - - - SerieFolio4 - - - =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Total.Value - - - - - - - Total2 - - - =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Saldo.Value - - - - - - - Saldo2 - - - =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox27 - - - =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!SubProyecto.Value = "", "Total", Fields!SubProyecto.Value) - - - - - - =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) - 2pt - 2pt - 2pt - 2pt - - - 4 - - - - - - - - - true - true - - - - - - - - - - - =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.36363cm - - - - - true - true - - - - - =Fields!TipoDocto.Value - - - - - - - TipoDocto1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - =Fields!Nombre.Value - - - - - - - Nombre - - - 2pt - 2pt - 2pt - 2pt - - - true - - - - - - true - true - - - - - =Fields!Fecha.Value - - - - - - - Fecha1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!FechaVencimiento.Value - - - - - - - FechaVencimiento - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SerieFolio.Value - - - - - - - SerieFolio1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Total.Value - - - - - - - Total1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Saldo.Value - - - - - - - Saldo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Moneda.Value - - - - - - - Moneda - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SubProyecto.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!DiasVencidos.Value - - - - - - - DiasVencidos1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!DiasTranscurridos.Value - - - - - - - DiasTranscurridos - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Vendedor.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - =iif(Fields!Fecha.Value IS NOTHING, false, true) - - - - - =iif(Fields!Fecha.Value IS NOTHING, True, False) - - - - - - - true - true - DataSet1 - 0.15021cm - 0.0635cm - 1.27259cm - 26.37471cm - - - - - - 0.78933in - - - - - - - Textbox1 - 0.18521cm - 7.41726cm - 0.6cm - 13.02632cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!TituloReporte.Value - - - - - - - Textbox2 - 0.94396cm - 7.41726cm - 0.52945cm - 13.02632cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.0635cm - 1.87966cm - 3.21028cm - 2 - - - - - - true - true - - - - - =Parameters!AgrupadoPor.Value - HTML - - - 2pt - 2pt - 2pt - 2pt - - - - 2.85333cm - 0.0635cm - 0cm - 26.34825cm - 4 - - - - - - - - - - - 0.68792cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.20991cm - 23.83501cm - 0.40039cm - 2.35691cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Globals!ExecutionTime - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 0.11642cm - 0.0635cm - 0cm - 26.34825cm - 5 - - - - - - - - - - 21.59cm - 27.94cm - 0.5cm - 0.5cm - 0.5cm - 0.5cm - 0.13cm - + + + + + + Textbox3 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Nombre + + + + + + + Textbox13 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox4 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + F. Venc. + + + + + + + Textbox23 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Folio + + + + + + + Textbox12 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total + + + + + + + Textbox14 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Saldo + + + + + + + Textbox16 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Mon + + + + + + + Textbox26 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Sucursal + + + + + + + Textbox18 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Dias V + + + + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Dias T + + + + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Código + + + + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Vendedor + + + + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Linea A. + + + + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.36187cm + + + + + true + true + + + + + + + + + + + + TipoDocto + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + + + + + + + + true + true + + + + + + + + + + + + Textbox15 + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Fecha.Value Is Nothing, "Cantidad:", Fields!Fecha.Value) + + + + + + + Fecha2 + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + + + + + + + + true + true + + + + + + + + + + + + Textbox24 + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + + + + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + + SerieFolio4 + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total2 + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + + Saldo2 + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + + + + + + + + true + true + + + + + + + + + + + + Textbox27 + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!SubProyecto.Value = "", "Total", Fields!SubProyecto.Value) + + + + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + + + 4 + + + + + + + + + true + true + + + + + + + + + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + + + + + + + + true + true + + + + + + + + + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + + + + + + + + 0.36363cm + + + + + true + true + + + + + =Fields!TipoDocto.Value + + + + + + + TipoDocto1 + + + + + + + + + + true + true + + + + + =Fields!Nombre.Value + + + + + + + Nombre + + + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha1 + + + + + + + + + + true + true + + + + + =Fields!FechaVencimiento.Value + + + + + + + FechaVencimiento + + + + + + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + + SerieFolio1 + + + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total1 + + + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + + Saldo + + + + + + + + + + true + true + + + + + =Fields!Moneda.Value + + + + + + + Moneda + + + + + + + + + + true + true + + + + + =Fields!SubProyecto.Value + + + + + + + + + + + + + true + true + + + + + =Fields!DiasVencidos.Value + + + + + + + DiasVencidos1 + + + + + + + + + + true + true + + + + + =Fields!DiasTranscurridos.Value + + + + + + + DiasTranscurridos + + + + + + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + + + + + + + true + true + + + + + =Fields!Vendedor.Value + + + + + + + + + + + + + true + true + + + + + =Fields!LineaAdicional.Value + + + + + + + LineaAdicional + + + =iif(Fields!SubProyecto.Value= "", "#67809F" , iif(Fields!Fecha.Value= "", "LightGrey", "No Color")) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + =iif(Fields!Fecha.Value IS NOTHING, false, true) + + + + + =iif(Fields!Fecha.Value IS NOTHING, True, False) + + + + + + + true + true + DataSet1 + 0.15021cm + 0.0635cm + 1.21967cm + 26.34825cm + + + + + + 0.53932in + + + + + + + Textbox1 + 0.18521cm + 7.41726cm + 0.6cm + 13.02632cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!TituloReporte.Value + + + + + + + Textbox2 + 0.94396cm + 7.41726cm + 0.52945cm + 13.02632cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.0635cm + 1.87966cm + 3.21028cm + 2 + + + + + + true + true + + + + + =Parameters!AgrupadoPor.Value + HTML + + + 2pt + 2pt + 2pt + 2pt + + + + 2.85333cm + 0.0635cm + 0cm + 26.34825cm + 4 + + + + + + + + + + + 0.68792cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.20991cm + 23.83501cm + 0.40039cm + 2.35691cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Globals!ExecutionTime + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.11642cm + 0.0635cm + 0cm + 26.34825cm + 5 + + + + + + + + + + 21.59cm + 27.94cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.13cm + - - External - =Parameters!QR.Value - FitProportional - 3.05943in - 0.13977in - 0.68104in - 0.78032in - 30 - - - - - - true - true - - - - - Serie del Certificado del Emisor - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Folio Fiscal - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - No. de Serie del Certificado de l SAT - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha y Hora de Certificación - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!CertificadoContribuyente.Value - - - - - - - Textbox2 - 7.89591cm - 8.37312cm - 0.35889cm - 5.62289cm - 35 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FolioFiscal.Value - - - - - - - Textbox2 - 8.29008cm - 8.37312cm - 0.40122cm - 5.62289cm - 36 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SerieCertificadoSAT.Value - - - - - - - Textbox2 - 8.72658cm - 8.37312cm - 0.3536cm - 5.62289cm - 37 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaCertificacion.Value - - - - - - - Textbox2 - 9.12251cm - 8.37312cm - 0.31479cm - 5.62289cm - 38 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2494,11 +2200,11 @@ Textbox19 - 3.26381in + 3.39026in 14.1724cm - 0.47666in + 0.13921in 2.40844in - 39 + 30 @@ -2615,11 +2321,11 @@ Textbox19 - 4.24278in - 0.10195in + 4.2506in + 0.05612in 0.1296in 7.86825in - 42 + 33 @@ -2693,11 +2399,11 @@ Textbox19 - 4.55448in - 0.09839in + 4.5498in + 0.05256in 0.11805in 7.86825in - 44 + 35 @@ -3204,10 +2910,10 @@ true - 12.06599cm + 11.9011cm 1.93497cm 20.28984cm - 46 + 37 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -3378,10 +3084,10 @@ true - 5.71625cm + 5.65275cm 1.2341cm 20.2229cm - 47 + 38 = Not iif(IsNothing(Parameters!TieneCartaPorte), True, iif(Parameters!TieneCartaPorte.Value , True, False)) @@ -3416,7 +3122,7 @@ 10.5005cm 0.17222in 0.82757in - 48 + 39 + + + + External + =Parameters!QR.Value + FitProportional + 0.06848in + 0.0372in + 0.51336in + 0.79074in + + + + + + true + true + + + + + Serie del Certificado del Emisor + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Folio Fiscal + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + No. de Serie del Certificado de l SAT + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha y Hora de Certificación + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CertificadoContribuyente.Value + + + + + + + Textbox2 + 0cm + 8.1126cm + 0.35889cm + 5.62289cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FolioFiscal.Value + + + + + + + Textbox2 + 0.39417cm + 8.1126cm + 0.33067cm + 5.62289cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SerieCertificadoSAT.Value + + + + + + + Textbox2 + 0.76717cm + 8.1126cm + 0.3536cm + 5.62289cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaCertificacion.Value + + + + + + + Textbox2 + 1.1631cm + 8.1126cm + 0.31479cm + 5.62289cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 7.84409cm + 0.19628cm + 1.6525cm + 13.9708cm + 41 + + + + - 14.00096cm + 13.83608cm - - - - - - - 1pt - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Pesos - - - - - - - Textbox6 - - - - - 1pt - - - - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Dólares - - - - - - - Textbox13 - - - - - 1pt - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.49417cm - - - - - true - true - - - - - =Fields!Banco.Value - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =IIF(Fields!Moneda.Value = "Pesos", Fields!Saldo.Value, "") - - - - - - - Saldo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =IIF(Fields!Moneda.Value = "Dólares", Fields!Saldo.Value, "") - - - - - - - Saldo1 - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - SALDOS - - - - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Saldo.Value - - - - - - - Saldo2 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =SUM(IIF(Fields!Moneda.Value = "Dólares" AND Fields!CveCuenta.Value = "-1", CDbl(Fields!Saldo.Value), 0)) - - - - - - - Saldo3 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - - - - - =IIF(Fields!Banco.Value = "", TRUE,FALSE) - - - - Before - - - - DataSet1 - 0.17639cm - 0.08599cm - 1.69417cm - 17.21559cm - - - - - - - - - 10.07247cm - - - 3.47235cm - - - 3.71048cm - - - - - 0.6cm - - - - - true - true - - - - - INGRESOS DEL DIA - - - - - - - - 1pt - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Pesos - - - - - - - Textbox22 - - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Dólares - - - - - - - Textbox23 - - - - - 1pt - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.52062cm - - - - - true - true - - - - - =Fields!PagueseA.Value - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Pesos", Fields!Importe.Value, "") - - - - - - - Saldo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares", Fields!Importe.Value, "") - - - - - - - Importe - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - TOTAL INGRESOS - - - - - - - - 1pt - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =SUM(IIF(Fields!Moneda.Value = "Pesos", CDbl(Fields!Importe.Value), 0)) - - - - - - - Textbox25 - - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =SUM(IIF(Fields!Moneda.Value = "Dólares", CDbl(Fields!Importe.Value), 0)) - - - - - - - Textbox26 - - - - - 1pt - - - - 1pt - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - - - - - - Before - - - - DataSet2 - 2.08222cm - 0.08599cm - 1.72062cm - 17.25529cm - 1 - - - - - - - - - 10.09232cm - - - 3.4525cm - - - 3.71048cm - - - - - 0.6cm - - - - - true - true - - - - - GASTOS DEL DÍA - - - - - - - - 1pt - - - 1pt - - - 1pt - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Pesos - - - - - - - Textbox6 - - - - - 1pt - - - 1pt - - - - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Dólares - - - - - - - Textbox13 - - - - - 1pt - - - 1pt - - - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.49417cm - - - - - true - true - - - - - =Fields!PagueseA.Value - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Pesos", Fields!Importe.Value, "") - - - - - - - Saldo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares", Fields!Importe.Value, "") - - - - - - - Saldo1 - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - TOTAL GASTOS - - - - - - - 1pt - - - 1pt - - - 1pt - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =SUM(IIF(Fields!Moneda.Value = "Pesos", CDbl(Fields!Importe.Value), 0)) - - - - - - - Saldo2 - - - - - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =SUM(IIF(Fields!Moneda.Value = "Dólares", CDbl(Fields!Importe.Value), 0)) - - - - - - - Saldo3 - - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - - - - - - Before - - - - DataSet3 - 4.05351cm - 0.06614cm - 1.69417cm - 17.25529cm - 2 - - - - - - - - - 10.09232cm - - - 3.43265cm - - - 3.69063cm - - - - - 0.6cm - - - - - true - true - - - - - SALDO AL CIERRE - - - - - - - 1pt - - - 1pt - - - 1pt - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Pesos - - - - - - - Textbox6 - - - - 1pt - - - 1pt - - - - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Dólares - - - - - - - Textbox13 - - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.49417cm - - - - - true - true - - - - - =Fields!Banco.Value - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Pesos", Fields!Saldo.Value, "") - - - - - - - Saldo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares", Fields!Saldo.Value, "") - - - - - - - Saldo1 - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - SALDOS - - - - - - - 1pt - - - 1pt - - - 1pt - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Saldo.Value - - - - - - - Saldo2 - - - - - - - - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Sum(Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares" And Fields!CveCuenta.Value = "-1", CDbl(Fields!Saldo.Value), 0)) - - - - - - - Saldo3 - - - - 1pt - - - 1pt - - - - - - 1pt - - #e0e3da - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - - - - - =Microsoft.VisualBasic.Interaction.IIF(Fields!Banco.Value = "", True, False) - - - - Before - - - - DataSet4 - 6.02637cm - 0.08599cm - 1.69417cm - 17.21559cm - 3 - - - - - - 3.1in - - - - - - - Textbox1 - 0.22833cm - 6.0099cm - 0.6cm - 9.74549cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - FLUJO DIARIO - - - - - - - - - - - - - - - - Textbox2 - 0.86361cm - 6.0099cm - 0.52945cm - 9.74549cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.22833cm - 0.08599cm - 2.40883cm - 4.0834cm - 2 - - - - - - true - true - - - - - =Parameters!Fecha.Value - - - - Textbox3 - 1.91108cm - 14.00032cm - 0.6cm - 6.2766cm - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - 3.01512cm - 0.04947cm - 0cm - 20.22745cm - 4 - - - - - - - - - - - 1.00188cm - true - true - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox3 - 0.2734cm - 17.14236cm - 0.68085cm - 3.13456cm - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Usuario: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!UsuarioImprimio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha Impresión: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 0.15874cm - 0.08599cm - 0cm - 20.21078cm - 5 - - - - - - - - - - 27.94cm - 21.59cm - 0.5cm - 0.5cm - 1cm - 1cm - 0.13cm - + + + + + + + 1pt + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Pesos + + + + + + + Textbox6 + + + + + 1pt + + + + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Dólares + + + + + + + Textbox13 + + + + + 1pt + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.49417cm + + + + + true + true + + + + + =Fields!NumCuenta.Value + + + + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =IIF(Fields!Moneda.Value = "Pesos", Fields!Saldo.Value, "") + + + + + + + Saldo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =IIF(Fields!Moneda.Value = "Dólares", Fields!Saldo.Value, "") + + + + + + + Saldo1 + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + SALDOS + + + + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + + Saldo2 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =SUM(IIF(Fields!Moneda.Value = "Dólares" AND Fields!CveCuenta.Value = "-1", CDbl(Fields!Saldo.Value), 0)) + + + + + + + Saldo3 + + + + + 1pt + + + + 1pt + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + + + =IIF(Fields!Banco.Value = "", TRUE,FALSE) + + + + Before + + + + DataSet1 + 0.17639cm + 0.08599cm + 1.69417cm + 17.2156cm + + + + + + + + + 10.07247cm + + + 3.47235cm + + + 3.71048cm + + + + + 0.6cm + + + + + true + true + + + + + INGRESOS DEL DÍA BANCOS + + + + + + + + 1pt + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Pesos + + + + + + + Textbox22 + + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Dólares + + + + + + + Textbox23 + + + + + 1pt + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + + + true + true + + + + + =Fields!PagueseA.Value + + + + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Pesos", Fields!Importe.Value, "") + + + + + + + Saldo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares", Fields!Importe.Value, "") + + + + + + + Importe + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL INGRESOS BANCOS + + + + + + + + 1pt + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =SUM(IIF(Fields!Moneda.Value = "Pesos", CDbl(Fields!Importe.Value), 0)) + + + + + + + Textbox25 + + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =SUM(IIF(Fields!Moneda.Value = "Dólares", CDbl(Fields!Importe.Value), 0)) + + + + + + + Textbox26 + + + + + 1pt + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + + + + Before + + + + DataSet2 + 2.08222cm + 0.08599cm + 1.72062cm + 17.2553cm + 1 + + + + + + + + + 10.09232cm + + + 3.4525cm + + + 3.71048cm + + + + + 0.6cm + + + + + true + true + + + + + GASTOS DEL DÍA BANCOS + + + + + + + + 1pt + + + 1pt + + + 1pt + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Pesos + + + + + + + Textbox6 + + + + + 1pt + + + 1pt + + + + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Dólares + + + + + + + Textbox13 + + + + + 1pt + + + 1pt + + + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.49417cm + + + + + true + true + + + + + =Fields!PagueseA.Value + + + + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Pesos", Fields!Importe.Value, "") + + + + + + + Saldo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares", Fields!Importe.Value, "") + + + + + + + Saldo1 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL GASTOS BANCOS + + + + + + + 1pt + + + 1pt + + + 1pt + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =SUM(IIF(Fields!Moneda.Value = "Pesos", CDbl(Fields!Importe.Value), 0)) + + + + + + + Saldo2 + + + + + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =SUM(IIF(Fields!Moneda.Value = "Dólares", CDbl(Fields!Importe.Value), 0)) + + + + + + + Saldo3 + + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + + + + + + + + + + + + After + + + + + + Before + + + + DataSet3 + 4.05351cm + 0.06614cm + 1.69417cm + 17.2553cm + 2 + + + + + + + + + 10.09232cm + + + 3.43265cm + + + 3.69063cm + + + + + 0.6cm + + + + + true + true + + + + + SALDO AL CIERRE + + + + + + + 1pt + + + 1pt + + + 1pt + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Pesos + + + + + + + Textbox6 + + + + 1pt + + + 1pt + + + + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Dólares + + + + + + + Textbox13 + + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.49417cm + + + + + true + true + + + + + =Fields!NumCuenta.Value + + + + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Pesos", Fields!Saldo.Value, "") + + + + + + + Saldo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares", Fields!Saldo.Value, "") + + + + + + + Saldo1 + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + SALDOS + + + + + + + 1pt + + + 1pt + + + 1pt + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Saldo.Value + + + + + + + Saldo2 + + + + + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares" And Fields!CveCuenta.Value = "-1", CDbl(Fields!Saldo.Value), 0)) + + + + + + + Saldo3 + + + + 1pt + + + 1pt + + + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Banco.Value = "", True, False) + + + + Before + + + + DataSet4 + 10.05862cm + 0.08599cm + 1.69417cm + 17.2156cm + 3 + + + + + + + + + 10.07247cm + + + 3.47235cm + + + 3.71048cm + + + + + 0.6cm + + + + + true + true + + + + + INGRESOS DEL DÍA CAJA CHICA + + + + + + + + 1pt + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Pesos + + + + + + + Textbox22 + + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Dólares + + + + + + + Textbox23 + + + + + 1pt + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + + + true + true + + + + + =Fields!PagueseA.Value + + + + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Pesos", Fields!Importe.Value, "") + + + + + + + Saldo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares", Fields!Importe.Value, "") + + + + + + + Importe + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL INGRESOS CAJA CHICA + + + + + + + + 1pt + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =SUM(IIF(Fields!Moneda.Value = "Pesos", CDbl(Fields!Importe.Value), 0)) + + + + + + + Textbox25 + + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =SUM(IIF(Fields!Moneda.Value = "Dólares", CDbl(Fields!Importe.Value), 0)) + + + + + + + Textbox26 + + + + + 1pt + + + + 1pt + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + + + + Before + + + + DataSet6 + 6.06259cm + 0.10584cm + 1.72062cm + 17.2553cm + 4 + + + + + + + + + 10.09232cm + + + 3.4525cm + + + 3.71048cm + + + + + 0.6cm + + + + + true + true + + + + + GASTOS DEL DÍA CAJA CHICA + + + + + + + + 1pt + + + 1pt + + + 1pt + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Pesos + + + + + + + Textbox6 + + + + + 1pt + + + 1pt + + + + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Dólares + + + + + + + Textbox13 + + + + + 1pt + + + 1pt + + + + + + 1pt + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.49417cm + + + + + true + true + + + + + =Fields!PagueseA.Value + + + + + + + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Pesos", Fields!Importe.Value, "") + + + + + + + Saldo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.IIF(Fields!Moneda.Value = "Dólares", Fields!Importe.Value, "") + + + + + + + Saldo1 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL GASTOS CAJA CHICA + + + + + + + 1pt + + + 1pt + + + 1pt + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =SUM(IIF(Fields!Moneda.Value = "Pesos", CDbl(Fields!Importe.Value), 0)) + + + + + + + Saldo2 + + + + + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =SUM(IIF(Fields!Moneda.Value = "Dólares", CDbl(Fields!Importe.Value), 0)) + + + + + + + Saldo3 + + + + + + #e0e3da + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + + + + Before + + + + DataSet7 + 8.06563cm + 0.08599cm + 1.69417cm + 17.2553cm + 5 + + + + + + 4.62708in + + + + + + + Textbox1 + 0.22833cm + 6.0099cm + 0.6cm + 9.74549cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + FLUJO DIARIO + + + + + + + + + + + + + + + + Textbox2 + 0.86361cm + 6.0099cm + 0.52945cm + 9.74549cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.22833cm + 0.08599cm + 2.40883cm + 4.0834cm + 2 + + + + + + true + true + + + + + =Parameters!Fecha.Value + + + + Textbox3 + 1.91108cm + 14.00032cm + 0.6cm + 6.2766cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + 3.01512cm + 0.04947cm + 0cm + 20.22745cm + 4 + + + + + + + + + + + 1.00188cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.2734cm + 17.14236cm + 0.68085cm + 3.13456cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.15874cm + 0.08599cm + 0cm + 20.21078cm + 5 + + + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 1cm + 1cm + 0.13cm + - - - - - - - Reporte Conceptos Acumulados - - - - - -
- - - - -
-
-
-
- -
- - - -
- - -
- - - - - - -
- - -
- - - -
- -
- - - -
-
-
-
-
- -
@@ -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/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 975465cb7..ebc6772bf 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -5726,10 +5726,10 @@ Partial Class Compras_Proveedores End Sub Protected Sub DescargarFormatoCarta(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String) Try - Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas + Dim PathRoot As String = Server.MapPath("/") Dim Documento As String = "CartaProveedor.docx" Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}" - Dim PathDestino As String = PathRoot & "Temp\" & Documento + Dim PathDestino As String = PathRoot & "Temp\" & Proveedor & "_" & Documento If File.Exists(PathDestino) Then File.Delete(PathDestino) @@ -5749,10 +5749,10 @@ Partial Class Compras_Proveedores End Sub Protected Sub DescargarFormatoEvaluacion(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String) Try - Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas + Dim PathRoot As String = Server.MapPath("/") Dim Documento As String = "FormatoEvaluacionProveedor.docx" Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}" - Dim PathDestino As String = PathRoot & "Temp\" & Documento + Dim PathDestino As String = PathRoot & "Temp\" & Proveedor & "_" & Documento If File.Exists(PathDestino) Then File.Delete(PathDestino) 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 @@
+
- - - - - - -
-
- Datos del Concepto - - - - - - - - - - - -
Tipo: - Codigo: -
-
-
- 		-
- Datos del Periodo - - - - - - - - - - - - - - -
-
-
-
-
- - -
- - - - - - - Nombre - - - - - - - - - Acumulado Actual - - - - - - - - - - Acumulado Anterior - - - - - - - - - - Acumulado Anual - - - - - - - - - - - - - - - - diff --git a/Nomina/RepConceptosAcumulados.aspx.vb b/Nomina/RepConceptosAcumulados.aspx.vb deleted file mode 100644 index 83680fe73..000000000 --- a/Nomina/RepConceptosAcumulados.aspx.vb +++ /dev/null @@ -1,133 +0,0 @@ -Option Explicit On -Option Strict On - -Imports Extensiones -Imports System.Data - -Partial Class Nomina_RepConceptosAcumulados - Inherits ClsPaginas - -#Region "Propiedades" - - Private ReadOnly Property CveConcepto As Integer - Get - Return ViewState("CveConcepto").ToString.ToEntero - End Get - End Property - - Private ReadOnly Property CveTipoPeriodo As Integer - Get - Return ViewState("CveTipoPeriodo").ToString.ToEntero - End Get - End Property -#End Region - - Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load - If Not IsPostBack Then - CargaConceptos() - CargaTiposPeriodos() - - If Request("CveConcepto") IsNot Nothing AndAlso IsNumeric(Request("CveConcepto")) AndAlso Request("CveConcepto").ToEntero > 0 Then - ViewState("CveConcepto") = Request("CveConcepto") - DdlConcepto.SelectedValue = CveConcepto.ToString - Else - ViewState("CveConcepto") = -1 - End If - - If Request("CveTipoPeriodo") IsNot Nothing AndAlso IsNumeric(Request("CveTipoPeriodo")) AndAlso Request("CveTipoPeriodo").ToEntero > 0 Then - ViewState("CveTipoPeriodo") = Request("CveTipoPeriodo") - DdlTipoPeriodo.SelectedValue = CveTipoPeriodo.ToString - Else - ViewState("CveTipoPeriodo") = -1 - End If - - CargaDatos() - End If - End Sub - - Private Sub CargaConceptos() - DdlConcepto.DataSource = GlobalDTNomConceptos(UsuarioActual.CveEmpresa).FiltraParametros("", "Concepto") - DdlConcepto.DataBind() - End Sub - - Private Sub CargaTiposPeriodos() - Dim ObjTiposPeriodos As New ClsNominas - - If ObjTiposPeriodos.GetTiposPeriodos() Then - DdlTipoPeriodo.DataSource = ObjTiposPeriodos.DtResultados - - End If - - ObjTiposPeriodos.Dispose() - DdlTipoPeriodo.DataBind() - End Sub - - Private Sub CargaDatos() - If CveConcepto > 0 And CveTipoPeriodo > 0 Then - Dim ObjNomina As New ClsNominas() - - If ObjNomina.GetRepConceptosAcumulados(CveConcepto, DDlEjercicio.SelectedValue.ToEntero, CveTipoPeriodo, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then - GvDatos.DataSource = ObjNomina.DtResultados - Else - GvDatos.DataSource = Nothing - End If - ObjNomina.Dispose() - GvDatos.DataBind() - - UPDatos.Update() - End If - End Sub - - Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - Dim Css As String = "Texto" - If e.Row.RowIndex = 0 Then - 'e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left - 'e.Row.Cells(0).Width = Unit.Pixel(200) - '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.CssClass = "Totales" - Css = "Totales" - End If - End If - End Sub - - Protected Sub ImgExcel_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImgExcel.Click - GvDatos.ExportToExcel("ReporteConceptosAcumulados" & Now.ToShortDateString) - End Sub - - Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoPeriodo.SelectedIndexChanged - ViewState("CveTipoPeriodo") = DdlTipoPeriodo.SelectedValue - - 'Saca el periodo activo - CargaPeriodos(DDlEjercicio.SelectedValue.ToEntero, DdlTipoPeriodo.SelectedValue.ToEntero) - CargaDatos() - End Sub - - Private Sub CargaPeriodos(Ejercicio As Integer, CveTipoPeriodo As Integer) - Dim ObjTiposPeriodos As New ClsNominas - - If ObjTiposPeriodos.GetPeriodos(CveTipoPeriodo, UsuarioActual.CveEmpresa, Ejercicio, -1, -1) Then - DdlPeriodo.DataSource = ObjTiposPeriodos.DtResultados - End If - - ObjTiposPeriodos.Dispose() - DdlPeriodo.DataBind() - End Sub - - Protected Sub DdlConcepto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConcepto.SelectedIndexChanged - ViewState("CveConcepto") = DdlConcepto.SelectedValue - - Dim Concepto As DataRow = GlobalDTNomConceptos(UsuarioActual.CveEmpresa).FiltraParametros("CveConcepto = " & CveConcepto)(0) - LblCodigo.Text = Concepto("Codigo").ToString - LblFormula.Text = Concepto("Formula").ToString - LblTipo.Text = Concepto("TipoD").ToString - - CargaDatos() - End Sub - - Private Sub DdlPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPeriodo.SelectedIndexChanged - CargaDatos() - End Sub -End Class diff --git a/Nomina/RepInversiondeNomina.aspx.cs b/Nomina/RepInversiondeNomina.aspx.cs index 61569ef53..dbe7625aa 100644 --- a/Nomina/RepInversiondeNomina.aspx.cs +++ b/Nomina/RepInversiondeNomina.aspx.cs @@ -96,7 +96,7 @@ public partial class Nomina_RepInversiondeNomina : ClsPaginas DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1); DdlSubProyecto.DataBind(); DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1")); - DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros(string.Format("CveEmpresa ={0} AND Departamento <> 'Seleccione' ", UsuarioActual.CveEmpresa)); + DdlDepartamento.DataSource =get_GlobalDTDepartamentos(UsuarioActual.CveEmpresa).FiltraParametros(" Departamento <> 'Seleccione' " ); DdlDepartamento.DataBind(); DdlDepartamento.Items.Insert(0, new ListItem("Todos", "-1")); diff --git a/OI/Circular.aspx b/OI/Circular.aspx index fc7c6ac03..485974134 100644 --- a/OI/Circular.aspx +++ b/OI/Circular.aspx @@ -73,7 +73,7 @@ - + diff --git a/OI/CircularDetalleB.aspx b/OI/CircularDetalleB.aspx index cd5e17ab2..54b74f02c 100644 --- a/OI/CircularDetalleB.aspx +++ b/OI/CircularDetalleB.aspx @@ -234,7 +234,7 @@
- @@ -247,18 +247,11 @@ - - - - - - - - Rol - - - - + + + + + @@ -348,13 +341,15 @@ //} function filtrarx() { //console.log('Entre 3') - //var filtro = sotext($("div[id^='C_DVModalFiltros'] select:first").attr("id")); - //console.log(filtro) - FiltrarTablaStrMulti('<%=GVUsuarios.ClientID %>', null, sotext('<%=DdlRoles.ClientID %>'), $('#TxtBusquedaCorreos').val()); + var filtros = $("div[id^='C_DVModalFiltros'] select").map(function () { + return soval(this.id); + }).get(); + //console.log(filtros) + FiltrarTablaStrMulti('<%=GVUsuarios.ClientID %>', null, $('#TxtBusquedaCorreos').val(), ...filtros); } function ADSBegin() { // loadeventos(); - // showhideUser() + // showhideUser(); } //inicializa tablas select2me etc etc..... function ADSReady() { diff --git a/OI/CircularDetalleB.aspx.cs b/OI/CircularDetalleB.aspx.cs index 9a363615b..4f8fb0736 100644 --- a/OI/CircularDetalleB.aspx.cs +++ b/OI/CircularDetalleB.aspx.cs @@ -157,39 +157,37 @@ public partial class OI_CircularDetalleB : ClsPaginas DVModalFiltrosProveedores.Visible = false; DVModalFiltrosPersonal.Visible = false; DVModalFiltrosCliente.Visible = false; + GVUsuarios.FBColumn("Rol").Visible = false; - switch (RLBTipoEnvioTipo.SelectedValue.ToEntero()) + + switch (RLBTipoEnvioTipo.SelectedValue.ToEntero()) { case 1: DVModalFiltrosUsuarios.Visible = true; - GVUsuarios.Columns[2].Visible = true; + GVUsuarios.FBColumn("Rol").Visible = true; intTipoConsulta = 1; break; case 2: DVModalFiltrosProveedores.Visible = true; - GVUsuarios.Columns[2].Visible = false; intTipoConsulta = 2; break; case 3: DVModalFiltrosPersonal.Visible = true; - GVUsuarios.Columns[2].Visible = false; intTipoConsulta = 3; break; case 4: DVModalFiltrosCliente.Visible = true; - GVUsuarios.Columns[2].Visible = false; intTipoConsulta = 4; break; default: DVModalFiltrosUsuarios.Visible = true; - GVUsuarios.Columns[2].Visible = true; + GVUsuarios.FBColumn("Rol").Visible = true; intTipoConsulta = 1; break; } ClsOIEventos ObjOI = new ClsOIEventos(); - - if (ObjOI.GetCircularCorreos(intTipoConsulta, UsuarioActual.CveEmpresa, -1, DdlSubProyecto.SelectedValue.ToEntero(), DdlCveClasificacionProveedor.SelectedValue.ToEntero(), DdlSubProyectoPersonal.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero())) + if (ObjOI.GetCircularCorreos(intTipoConsulta, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1)) { if (ObjOI.DtResultados.Rows.Count >= 1000) @@ -220,7 +218,7 @@ public partial class OI_CircularDetalleB : ClsPaginas ObjOI.Dispose(); GVUsuarios.DataBind(); - UpModalSeleccionCorreos.Update(); + UpModalSeleccionCorreos.Update(); } protected void GVUsuarios_RowDataBound(object sender, GridViewRowEventArgs e) @@ -527,22 +525,22 @@ public partial class OI_CircularDetalleB : ClsPaginas protected void DdlSubProyecto_SelectedIndexChanged(object sender, EventArgs e) { - ConsultaCorreos(); + //ConsultaCorreos(); } protected void DdlCveClasificacionProveedor_SelectedIndexChanged(object sender, EventArgs e) { - ConsultaCorreos(); + //ConsultaCorreos(); } protected void DdlSubProyectoPersonal_SelectedIndexChanged(object sender, EventArgs e) { - ConsultaCorreos(); + //ConsultaCorreos(); } protected void DdlClasificacion_SelectedIndexChanged(object sender, EventArgs e) { - ConsultaCorreos(); + //ConsultaCorreos(); } protected void LnlActualizarCorreos_Click(object sender, EventArgs e) diff --git a/Prospectos/CatProspectosRedes.aspx.vb b/Prospectos/CatProspectosRedes.aspx.vb index 99b56048f..59bf6ff30 100644 --- a/Prospectos/CatProspectosRedes.aspx.vb +++ b/Prospectos/CatProspectosRedes.aspx.vb @@ -34,7 +34,7 @@ Partial Class Prospectos_CatProspectos DdlClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlClasificacion.DataBind() DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind() DdlRegion.DataSource = GlobalDTProspectosCoordinadores(DdlZona.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlRegion.DataBind() - DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios(26) : DdlMunicipioFiltro.DataBind() + DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios("26") : DdlMunicipioFiltro.DataBind() CargaDatos(True) ImgPersonalizar.Attributes.Add("onclick", "$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');") diff --git a/Prospectos/ProspectoExpediente.aspx.vb b/Prospectos/ProspectoExpediente.aspx.vb index afc5a3463..2d90f538f 100644 --- a/Prospectos/ProspectoExpediente.aspx.vb +++ b/Prospectos/ProspectoExpediente.aspx.vb @@ -197,11 +197,11 @@ Partial Class Prospectos_ProspectoExpediente End Sub Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) - ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() + ddl.DataSource = GlobalDTGralEstados("-1", CvePais) : ddl.DataBind() End Sub Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) - ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() + ddl.DataSource = GlobalDTGralMunicipios("-1", CveEstado) : ddl.DataBind() End Sub Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click diff --git a/Prospectos/ProspectosG15.aspx.vb b/Prospectos/ProspectosG15.aspx.vb index c03bba0eb..2502f1005 100644 --- a/Prospectos/ProspectosG15.aspx.vb +++ b/Prospectos/ProspectosG15.aspx.vb @@ -153,11 +153,11 @@ Partial Class Prospectos_ProspectosG15 Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) - ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() + ddl.DataSource = GlobalDTGralEstados("-1", CvePais) : ddl.DataBind() End Sub Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) - ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() + ddl.DataSource = GlobalDTGralMunicipios("-1", CveEstado) : ddl.DataBind() End Sub Private Sub CargaCoordinadores(ddl As DropDownList, CveSupervisor As Integer) diff --git a/Prospectos/ProspectosSIP.aspx.vb b/Prospectos/ProspectosSIP.aspx.vb index 6eb2749cf..08bbe2ee7 100644 --- a/Prospectos/ProspectosSIP.aspx.vb +++ b/Prospectos/ProspectosSIP.aspx.vb @@ -137,11 +137,11 @@ Partial Class Prospectos_ProspectosSIP End Sub Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) - ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() + ddl.DataSource = GlobalDTGralEstados("-1", CvePais) : ddl.DataBind() End Sub Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) - ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() + ddl.DataSource = GlobalDTGralMunicipios("-1", CveEstado) : ddl.DataBind() End Sub Private Sub CargaCoordinadores(ddl As DropDownList, CveSupervisor As Integer) diff --git a/Prospectos/RepEncuestasDetalle.aspx.vb b/Prospectos/RepEncuestasDetalle.aspx.vb index bed3ee7ef..06f088d48 100644 --- a/Prospectos/RepEncuestasDetalle.aspx.vb +++ b/Prospectos/RepEncuestasDetalle.aspx.vb @@ -24,7 +24,7 @@ Partial Class Prospectos_RepEncuestasDetalle If CveMunicipio > 0 Then - Dim dr As DataRow = GlobalDTGralMunicipios(-1).FiltroPrimero("CveMunicipio =" & CveMunicipio) + Dim dr As DataRow = GlobalDTGralMunicipios("-1", CveEstado:=-1).FiltroPrimero("CveMunicipio =" & CveMunicipio) If dr IsNot Nothing Then LblMunicipio.Text = dr("Municipio").ToString() End If LblSeccion.Text = Seccion.ToString diff --git a/Prospectos/RepProspectosRedes.aspx.vb b/Prospectos/RepProspectosRedes.aspx.vb index 19bc8fc91..e30de1116 100644 --- a/Prospectos/RepProspectosRedes.aspx.vb +++ b/Prospectos/RepProspectosRedes.aspx.vb @@ -36,7 +36,7 @@ Partial Class Prospectos_RepProspectosRedes DdlClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlClasificacion.DataBind() DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind() DdlRegion.DataSource = GlobalDTProspectosCoordinadores(DdlZona.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlRegion.DataBind() - DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios(26) : DdlMunicipioFiltro.DataBind() + DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios("26") : DdlMunicipioFiltro.DataBind() DdlEscolaridad.DataSource = GlobalDTGralEscolaridades : DdlEscolaridad.DataBind() CargaDatos(True) diff --git a/PyME/Contabilidad/CatCuentas.aspx b/PyME/Contabilidad/CatCuentas.aspx deleted file mode 100644 index d6cfae64e..000000000 --- a/PyME/Contabilidad/CatCuentas.aspx +++ /dev/null @@ -1,218 +0,0 @@ -<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatCuentas.aspx.vb" Inherits="Contabilidad_CatCuentas" %> - - - - - - - - - - Catálogo de Cuentas Contables - - - - - - - - - - - - -
-
- Cuentas -
-
- - -
-
-
-
- -
- - - - -
- - - - - - - - diff --git a/PyME/Contabilidad/CatCuentas.aspx.vb b/PyME/Contabilidad/CatCuentas.aspx.vb deleted file mode 100644 index 4028f0a9f..000000000 --- a/PyME/Contabilidad/CatCuentas.aspx.vb +++ /dev/null @@ -1,289 +0,0 @@ -Imports System.Data -Imports Extensiones - -Partial Class Contabilidad_CatCuentas - Inherits ClsPaginas - -#Region "Propiedades" - - Private Property DtDatos As DataTable - Get - Return CType(ViewState("DtDatos"), DataTable) - End Get - Set(value As DataTable) - ViewState("DtDatos") = value - End Set - End Property - Private Property IDSelected As Integer - Get - Return ViewState("idsel").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("idsel") = value - End Set - End Property - -#End Region - - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not Page.IsPostBack Then - CargaMonedas() - CargaDatos() - CargaAgrupadorSAT() - End If - End Sub - - Private Sub CargaMonedas() - DdlMoneda.DataSource = GlobalDTMonedas - DdlMoneda.DataBind() - End Sub - - Private Sub CargaAgrupadorSAT() - Dim ObjConta As New ClsContabilidad - - If ObjConta.GetAgrupadoresSAT() Then - DdlAgrupadorSAT.DataSource = ObjConta.DtResultados - End If - - ObjConta.Dispose() - DdlAgrupadorSAT.DataBind() - DdlAgrupadorSAT.Items.Insert(0, New ListItem("Seleccione", "-1")) - End Sub - - Private Sub CargaDatos() - Dim ObjConta As New ClsContabilidad - - If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then - DtDatos = ObjConta.DtResultados - End If - - 'para obtener la mascara, tomo el primer dato y reemplazo los numeros por cero - Dim Mascara As String = "####-####-###" - If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then - Mascara = "0000" - End If - - MEECuenta.Mask = Mascara.Replace("0", "9") - MEECuenta.AutoComplete = True - MEECuenta.AutoCompleteValue = Mascara - - ArbolCuentas.DataSource = DtDatos - ArbolCuentas.nivel = "CtaInicial" - ArbolCuentas.nodoid = "CveCuenta" - ArbolCuentas.padre = "CvePadre" - ArbolCuentas.titulo = "CtaCodigo" - - ObjConta.Dispose() - End Sub - - Private Function getNodospadreHijos(nodo As Integer) As DataTable - Return DtDatos.FiltraParametros(String.Format("CveCuenta = {0}", nodo)) - End Function - - Protected Sub agregar_Click(sender As Object, e As EventArgs) Handles ArbolCuentas.addclick - - Dim dt As New DataTable - Dim obj As ADServerControl.DragableItem = DirectCast(sender, ADServerControl.DragableItem) - - LimpiarCampos() - - IDSelected = obj.Cve - dt = getNodospadreHijos(IDSelected) - - If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - Dim dr As DataRow = dt.Rows(0) - Tcuenta.Text = Trim(dr("CuentaFormato").ToString.Replace("-", "").ToString) - Tsubcuenta.Text = dr("CuentaFormato").ToString() - DTcuenta.SelectedValue = dr("Tipo").ToString() - DcuentaMayor.SelectedValue = dr("CtaMayor").ToString - LblSubCuenta.Text = dr("Nombre").ToString - End If - - Tcuenta.Enabled = True - nuevacuenta.Visible = True - UpDatos.Visible = True - UpDatos.Update() - - End Sub - - Protected Sub editar_Click(sender As Object, e As EventArgs) Handles ArbolCuentas.editclick - Dim dt As DataTable - Dim obj As ADServerControl.DragableItem = DirectCast(sender, ADServerControl.DragableItem) - - LimpiarCampos() - - IDSelected = obj.Cve - dt = getNodospadreHijos(IDSelected) - - If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - Dim dr As DataRow = dt.Rows(0) - Dim drt As DataRow - Dim Hijos As Integer - - Tcuenta.Text = dr("CuentaFormato").ToString.Replace("-", "").ToString - Tnombre.Text = dr("Nombre").ToString() - DTcuenta.SelectedValue = dr("Tipo").ToString() - DcuentaMayor.SelectedValue = dr("CtaMayor").ToString - DdlMoneda.SelectedValue = dr("CveMoneda").ToString - - If dr("CveAgrupadorSAT").ToString.ToEntero = 0 Then - DdlAgrupadorSAT.SelectedValue = -1 - Else - DdlAgrupadorSAT.SelectedValue = dr("CveAgrupadorSAT").ToString - End If - - TxtDigAgrup.Text = dr("DigAgrup").ToString - TxtNomIngles.Text = dr("NomIdioma").ToString - - Hijos = DtDatos.FiltraParametros(String.Format("CvePadre = {0}", IDSelected)).Rows.Count - - If Hijos = 0 Then BtnEliminar.Visible = True - - dt = getNodospadreHijos(dr("CvePadre").ToString.ToEntero) - If dt.Rows.Count > 0 Then - drt = dt.Rows(0) - Tsubcuenta.Text = drt("Codigo").ToString - LblSubCuenta.Text = drt("Nombre").ToString - End If - - End If - - Guardar.Visible = True - UpDatos.Visible = True - UpDatos.Update() - - End Sub - - Protected Sub Guardar_Click(sender As Object, e As EventArgs) Handles Guardar.Click - - Dim ObjConta As New ClsContabilidad - Dim customerRow As Data.DataRow - Dim item As CheckBox - - If Tnombre.Text.Trim = "" Then Alert("Se debe ingresar un nombre a la Cuenta.", TipoMensaje.MsgError) : Exit Sub - - If Not ObjConta.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToString.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString) Then - Alert("Ocurrió un error al actualizar la Cuenta.", TipoMensaje.MsgError) - Exit Sub - End If - ObjConta.Dispose() - - customerRow = DtDatos.Select(String.Format("CveCuenta = {0}", IDSelected))(0) - customerRow("Nombre") = Tnombre.Text - DtDatos.AcceptChanges() - - CargaDatos() - ArbolCuentas.DataSource = DtDatos - - item = DirectCast(ArbolCuentas.FindControl(String.Format("chk{0}", IDSelected)), CheckBox) - item.Text = String.Format("{0} - {1}", customerRow("CuentaFormato").ToString, Tnombre.Text) - LimpiarCampos() - UpDatos.Update() - - Alert("La Cuenta se guardó correctamente.") - - End Sub - Protected Sub nuevacuenta_Click(sender As Object, e As EventArgs) Handles nuevacuenta.Click - - If Tnombre.Text.Trim = "" Then Alert("Se debe asignar un nombre a la Cuenta.", TipoMensaje.MsgError) : Exit Sub - If Tcuenta.Text.Trim = "" Then Alert("Se debe asignar una Cuenta", TipoMensaje.MsgError) : Exit Sub - - Dim ObjConta As New ClsContabilidad - Dim CuentaEfectivo As Integer = 0 - Dim Afectable As Integer = If(DcuentaMayor.SelectedValue <> 2, 0, 1) ' cuando sea tipo 2, va a ser afectable - - Dim idnew = ObjConta.AddCuenta(IDSelected, Tcuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, - DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString) - - If idnew > 0 Then - Dim dr As DataRow = DtDatos.NewRow - Dim item As ADServerControl.DragableItem - Dim objul As ADServerControl.DragableUL - - dr("CveCuenta") = idnew - dr("CuentaFormato") = Tcuenta.Text - dr("Nombre") = Tnombre.Text - dr("CtaCodigo") = String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text) - dr("Tipo") = DTcuenta.SelectedValue.ToString - dr("CtaMayor") = DcuentaMayor.SelectedValue.ToString - dr("CvePadre") = IDSelected - dr("Codigo") = Tnombre.Text - dr("CveMoneda") = DdlMoneda.SelectedValue.ToEntero - dr("DigAgrup") = TxtDigAgrup.Text.Trim.ToEntero - dr("NomIdioma") = TxtNomIngles.Text.Trim - - DtDatos.Rows.Add(dr) - ArbolCuentas.DataSource = DtDatos - - item = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem) - objul = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL) - - item.Attributes.Item("data-hijos") = item.Attributes.Item("data-hijos").ToEntero + 1 - - If (IsNothing(objul)) Then - objul = New ADServerControl.DragableUL - objul.ID = String.Format("ul{0}", item.Cve) - item.Controls.Add(objul) - End If - - ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text)) - - LimpiarCampos() - - UpDatos.Update() - CargaDatos() - - Alert("La Cuenta se guardó correctamente.") - End If - - ObjConta.Dispose() - End Sub - Private Sub LimpiarCampos() - Tcuenta.Text = "" - Tnombre.Text = "" - DTcuenta.SelectedValue = "-1" - DcuentaMayor.SelectedValue = "-1" - DdlAgrupadorSAT.SelectedValue = "-1" - DdlMoneda.SelectedValue = "1" - TxtDigAgrup.Text = "" - TxtNomIngles.Text = "" - Guardar.Visible = False - nuevacuenta.Visible = False - Tcuenta.Enabled = False - BtnEliminar.Visible = False - End Sub - - Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click - Dim customerRow As Data.DataRow - Dim item As ADServerControl.DragableItem - Dim padre As ADServerControl.DragableItem - Dim ObjConta As New ClsContabilidad - - ObjConta.IniciaTransacSQL() - - If ObjConta.RemoveCuenta(IDSelected.ToEntero) Then - - customerRow = DtDatos.Select(String.Format("CveCuenta = {0}", IDSelected))(0) - customerRow("CvePadre") = "-5" - DtDatos.AcceptChanges() - - ArbolCuentas.DataSource = DtDatos - item = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem) - padre = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", item.CvePadre)), ADServerControl.DragableItem) - padre.Attributes.Item("data-hijos") = padre.Attributes.Item("data-hijos").ToEntero - 1 - ArbolCuentas.Controls.Remove(item) - RegistraScript(String.Format("$('#{0}').click();", editar.ClientID)) - - LimpiarCampos() - UpCuentas.Update() - - ObjConta.Commit() - Alert("La Cuenta ha sido eliminada", TipoMensaje.MsgInformacion) - Else - ObjConta.RollBack() - Alert("La Cuenta no pudo ser eliminada", TipoMensaje.MsgError) - End If - - ObjConta.Dispose() - End Sub -End Class \ No newline at end of file diff --git a/PyME/Contabilidad/ContabilizacionCompras.aspx b/PyME/Contabilidad/ContabilizacionCompras.aspx deleted file mode 100644 index 0a6f7f2ea..000000000 --- a/PyME/Contabilidad/ContabilizacionCompras.aspx +++ /dev/null @@ -1,471 +0,0 @@ -<%@ Page Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="ContabilizacionCompras.aspx.cs" Inherits="Contabilidad_ContabilizacionCompras" %> - - - - - - - - - Diario de Movimientos - - - - - - -
-
-
- - - -
-
-
- -
- - - -
- -
-
- - - - - - - - - - -   -
-
- -
-
- - - - - - - - - - -   -
-
-
-
-
- -
> -
- -
- - - -
-
- -
-
- - -
- - - - - - - - - - -
- -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - -
Fecha: - Concepto: - Poliza: -
Factura: - Proveedor: - Fecha: - Total: - -
-
- - - - - - - - - - - - - - - -
- -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - -
Fecha: - Concepto: - Poliza: -
Número: - Pagador: - Fecha: - Total: - -
-
- - - - - - - - - - - - - - - - -
- -
- - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - -
Fecha: - Concepto: - Poliza: -
Número: - Pagador: - Fecha: - Total: - -
-
- - - - - - - - - - - - - - - - -
- -
- - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - -
Fecha: - Concepto: - Poliza: -
Factura: - Proveedor: - Fecha: - Total: - -
-
- - - - - - - - - - - - - - - - - - - diff --git a/PyME/Contabilidad/ContabilizacionCompras.aspx.cs b/PyME/Contabilidad/ContabilizacionCompras.aspx.cs deleted file mode 100644 index 39ecaa2a7..000000000 --- a/PyME/Contabilidad/ContabilizacionCompras.aspx.cs +++ /dev/null @@ -1,267 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using System.Web; -using System.Web.UI; -using System.Web.UI.WebControls; -using Extensiones; -using System.Data; - -public partial class Contabilidad_ContabilizacionCompras : ClsPaginas -{ - private DataTable DTmpC - { - get - { - return (DataTable)ViewState["DTmpC"]; - } - set - { - ViewState["DTmpC"] = value; - } - } - - protected void Page_Load(object sender, EventArgs e) - { - if (!IsPostBack) - { - ClsContabilidad ObjCont = new ClsContabilidad(); - ObjCont.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa); - string[] columnas = new string[3] { "CveCuenta", "CuentaFormato", "Nombre" }; - DTmpC = ObjCont.DtResultados.FiltraParametros("", "", columnas); - ObjCont.Dispose(); - - DdlProveedores.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa); - DdlProveedores.DataBind(); - - DdlPersonal.DataSource = get_GlobalDTRHPersonal(UsuarioActual.CveEmpresa); - DdlPersonal.DataBind(); - - txtFechaI.Text = DateTime.Now.FirstDayOfMonth().AddMonths(-1).ToShortDateString(); - txtFechaF.Text = DateTime.Now.ToShortDateString(); - //CargaDatos(); - } - - BtnConsultar.Click += new EventHandler(this.BtnConsultar_Click); - BtnContabilizarCompras.Click += new EventHandler(this.BtnGuardarCompras_Click); - BtnContabilizarPagos.Click += new EventHandler(this.BtnGuardarPagos_Click); - BtnContabilizarAnticipos.Click += new EventHandler(this.BtnGuardarAnticipos_Click); - BtnContabilizarAmortizaciones.Click += new EventHandler(this.BtnGuardarAmortizaciones_Click); - } - - protected void OnRowDataBound(object sender, GridViewRowEventArgs e) - { - - if (e.Row.RowType == DataControlRowType.DataRow) - { - GridView GvD = e.Row.FCGridView("GvD"); - int CvePrePoliza = e.Row.DataKey("CvePrePoliza").ToEntero(); - - e.Row.Cells[0].ToolTip = CvePrePoliza.ToString(); - - ClsContabilidad contP = new ClsContabilidad(); - - if (contP.GetContabilizacionDiarioDetalle(CvePrePoliza)) - { - Double Abonos = 0; - Double Cargos = 0; - - Abonos = contP.DtResultados.SUM("Abono"); - Cargos = contP.DtResultados.SUM("Cargo"); - - if (Cargos != Abonos) - { - e.Row.FCCheckBox("Chk").Visible = false; - } - - GvD.DataSource = contP.DtResultados; - } - - if (UsuarioActual.CveRol == 1 || UsuarioActual.CveUsuario == 17 ) - { - e.Row.FCHyperLink("HplEdicion").Visible = true; - } - - contP.Dispose(); - GvD.DataBind(); - - } - - - } - - private void Contabilizar(int CvePrepoliza, DateTime Fecha, string Concepto, ClsContabilidad Obj) - { - if (Obj.ContabilizarPrePoliza(CvePrepoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, Fecha, Concepto)) - { - } - } - - private void BtnGuardarCompras_Click(object sender, EventArgs e) - { - ClsContabilidad ObjMov = new ClsContabilidad(); - - foreach (GridViewRow row in GvPrePolizaCompras.Rows) - { - CheckBox chk = row.FCCheckBox("Chk"); - TextBox txtFecha = row.FCTextBox("TxtFechaCompras"); - TextBox txtConcepto = row.FCTextBox("TxtConceptoCompras"); - - if (chk != null && chk.Checked) - { - DateTime Fecha = txtFecha.Text.ToDate(); - int CvePrepoliza = GvPrePolizaCompras.DataKeys[row.RowIndex]["CvePrePoliza"].ToString().ToEntero(); - string Concepto = txtConcepto.Text; - - Contabilizar(CvePrepoliza, Fecha, Concepto, ObjMov); - } - } - ObjMov.Dispose(); - - Alert("Se Contabilizaron Correctamente los Siguientes Folios:
" + ObjMov.AlertaMensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion); - CargaDatos(); - } - - private void BtnGuardarPagos_Click(object sender, EventArgs e) - { - ClsContabilidad ObjMov = new ClsContabilidad(); - - foreach (GridViewRow row in GvPrePolizaPagos.Rows) - { - CheckBox chk = row.FCCheckBox("Chk"); - TextBox txtFecha = row.FCTextBox("TxtFechaPagos"); - TextBox txtConcepto = row.FCTextBox("TxtConceptoPagos"); - - if (chk != null && chk.Checked) - { - DateTime Fecha = txtFecha.Text.ToDate(); - int CvePrepoliza = GvPrePolizaPagos.DataKeys[row.RowIndex]["CvePrePoliza"].ToString().ToEntero(); - string Concepto = txtConcepto.Text; - - Contabilizar(CvePrepoliza, Fecha, Concepto, ObjMov); - } - } - ObjMov.Dispose(); - - Alert("Se Contabilizaron Correctamente los Siguientes Folios:
" + ObjMov.AlertaMensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion); - CargaDatos(); - } - - private void BtnGuardarAnticipos_Click(object sender, EventArgs e) - { - ClsContabilidad ObjMov = new ClsContabilidad(); - - foreach (GridViewRow row in GvPrePolizaAnticipos.Rows) - { - CheckBox chk = row.FCCheckBox("Chk"); - TextBox txtFecha = row.FCTextBox("TxtFechaAnticipos"); - TextBox txtConcepto = row.FCTextBox("TxtConceptoAnticipos"); - - if (chk != null && chk.Checked) - { - DateTime Fecha = txtFecha.Text.ToDate(); - int CvePrepoliza = GvPrePolizaAnticipos.DataKeys[row.RowIndex]["CvePrePoliza"].ToString().ToEntero(); - string Concepto = txtConcepto.Text; - - Contabilizar(CvePrepoliza, Fecha, Concepto, ObjMov); - } - } - ObjMov.Dispose(); - - Alert("Se Contabilizaron Correctamente los Siguientes Folios:
" + ObjMov.AlertaMensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion); - CargaDatos(); - } - - private void BtnGuardarAmortizaciones_Click(object sender, EventArgs e) - { - ClsContabilidad ObjMov = new ClsContabilidad(); - foreach (GridViewRow row in GvPrePolizaAmortizaciones.Rows) - { - CheckBox chk = row.FCCheckBox("Chk"); - TextBox txtFecha = row.FCTextBox("TxtFechaAmortizaciones"); - TextBox txtConcepto = row.FCTextBox("TxtConceptoAmortizaciones"); - - if (chk != null && chk.Checked) - { - DateTime Fecha = txtFecha.Text.ToDate(); - int CvePrepoliza = GvPrePolizaAmortizaciones.DataKeys[row.RowIndex]["CvePrePoliza"].ToString().ToEntero(); - string Concepto = txtConcepto.Text; - - Contabilizar(CvePrepoliza, Fecha, Concepto, ObjMov); - } - } - ObjMov.Dispose(); - - Alert("Se Contabilizaron Correctamente los Siguientes Folios:
" + ObjMov.AlertaMensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion); - CargaDatos(); - } - - protected void BtnConsultar_Click(object sender, EventArgs e) - { - CargaDatos(); - } - - private void CargaDatos() - { - DateTime FechaI = txtFechaI.Text.ToDate(); - DateTime FechaF = txtFechaF.Text.ToDate(); - - ClsContabilidad cont = new ClsContabilidad(); - - // Cargamos las Compras - if (cont.GetContabilizacionDiario(UsuarioActual.CveEmpresa, 1, FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero(), DdlPersonal.SelectedValue.ToEntero())) - { - GvPrePolizaCompras.DataSource = cont.DtResultados; - GvPrePolizaCompras.DataBind(); - } - - // Cargamos los pagos - if (cont.GetContabilizacionDiario(UsuarioActual.CveEmpresa, 2, FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero(), DdlPersonal.SelectedValue.ToEntero())) - { - - GvPrePolizaPagos.DataSource = cont.DtResultados; - GvPrePolizaPagos.DataBind(); - } - - // Cargamos las amortizaciones - if (cont.GetContabilizacionDiario(UsuarioActual.CveEmpresa, 101, FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero(), DdlPersonal.SelectedValue.ToEntero())) - { - GvPrePolizaAmortizaciones.DataSource = cont.DtResultados; - GvPrePolizaAmortizaciones.DataBind(); - } - - cont.Dispose(); - - UpGvCompras.Update(); - UpGvPagos.Update(); - UpGvAnticipos.Update(); - UpGvAmortizaciones.Update(); - } - - protected void GvD_RowDataBound(object sender, GridViewRowEventArgs e) - { - if (e.Row.RowType == DataControlRowType.DataRow) - { - int cuenta = e.Row.DataKey("IdCtaContable").ToString().ToEntero(); - - - if (cuenta > 0) - { - DataRow dr = DTmpC.FiltroPrimero(String.Format("CveCuenta = {0}", cuenta)); - - if (dr != null) e.Row.Cells[3].Text = string.Format("{0}
{1}", dr["CuentaFormato"], dr["Nombre"]); - } - else - { - e.Row.Cells[0].ForeColor = System.Drawing.Color.Red; - - ((GridViewRow)((GridView)e.Row.NamingContainer).BindingContainer).FCCheckBox("Chk").Visible = false; - } - - if (Convert.ToDecimal(e.Row.DataKey("Cargo").ToString()) == 0) e.Row.Cells[4].Text = ""; - - if (Convert.ToDecimal(e.Row.DataKey("Abono").ToString()) == 0) e.Row.Cells[5].Text = ""; - } - } - -} \ No newline at end of file diff --git a/PyME/Contabilidad/ContabilizacionVentas.aspx b/PyME/Contabilidad/ContabilizacionVentas.aspx deleted file mode 100644 index d13a4ed48..000000000 --- a/PyME/Contabilidad/ContabilizacionVentas.aspx +++ /dev/null @@ -1,423 +0,0 @@ -<%@ Page Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="ContabilizacionVentas.aspx.cs" Inherits="Contabilidad_ContabilizacionVentas" %> - - - - - - - - - Diario de Ventas - - - - - - -
-
-
- -
-
-
- -
- - - -
- -
-
- - - - - - - - - - -   -
-
- -
-
- - - - - - - - - - -
-
-
-
-
-
- - -
- - - - - - - - - - - -
- -
- - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - -
Fecha: - Concepto: - Poliza:
Factura: - Cliente: - Fecha: - Total: - -
-
- - - - - - - - - - - - - - - -
- -
- - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - -
Fecha: - Concepto: - Poliza:
Número: - Pagador: - Fecha: - Total: - -
-
- - - - - - - - - - - - - - - - -
- -
- - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - -
Fecha: - Concepto: - Poliza:
Número: - Pagador: - Fecha: - Total: - -
-
- - - - - - - - - - - - - - - - -
- -
- - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - - -
Fecha: - Concepto: - Poliza:
Factura: - Cliente: - Fecha: - Total: - -
-
- - - - - - - - - - - - - - - - - - - diff --git a/PyME/Contabilidad/ContabilizacionVentas.aspx.cs b/PyME/Contabilidad/ContabilizacionVentas.aspx.cs deleted file mode 100644 index 831b2c44b..000000000 --- a/PyME/Contabilidad/ContabilizacionVentas.aspx.cs +++ /dev/null @@ -1,298 +0,0 @@ -using System; -using System.Web.UI.WebControls; -using Extensiones; -using System.Data; - -public partial class Contabilidad_ContabilizacionVentas : ClsPaginas -{ - private DataTable DTmpC - { - get - { - return (DataTable)ViewState["DTmpC"]; - } - set - { - ViewState["DTmpC"] = value; - } - } - - protected void Page_Load(object sender, EventArgs e) - { - if (!IsPostBack) - { - ClsContabilidad ObjCont = new ClsContabilidad(); - ObjCont.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa); - string[] columnas = new string[3] { "CveCuenta", "CuentaFormato", "Nombre"}; - DTmpC = ObjCont.DtResultados.FiltraParametros("", "", columnas); - ObjCont.Dispose(); - - DdlClientes.DataSource = get_GlobalDTCliente(UsuarioActual.CveEmpresa); - DdlClientes.DataBind(); - - txtFechaI.Text = DateTime.Now.AddMonths(-1).FirstDayOfMonth().ToShortDateString(); - txtFechaF.Text = DateTime.Now.ToShortDateString(); - - //cargaPolizas(); - } - - BtnContabilizarVentas.Click += new EventHandler(this.BtnGuardarVentas_Click); - BtnContabilizarPagos.Click += new EventHandler(this.BtnGuardarPagos_Click); - BtnContabilizarAnticipos.Click += new EventHandler(this.BtnGuardarAnticipos_Click); - BtnContabilizarAmortizaciones.Click += new EventHandler(this.BtnGuardarAmortizaciones_Click); - //BtnConsultar.Click += new EventHandler(this.BtnConsultar_Click); - } - - protected void OnRowDataBound(object sender, GridViewRowEventArgs e) - { - if (e.Row.RowType == DataControlRowType.DataRow) - { - GridView GvD = e.Row.FCGridView("GvD"); - int CvePrePoliza = e.Row.DataKey("CvePrePoliza").ToEntero(); - - ClsContabilidad contP = new ClsContabilidad(); - - if (contP.GetContabilizacionDiarioDetalle(CvePrePoliza)) - { - Double Abonos = 0; - Double Cargos = 0; - - Abonos = contP.DtResultados.SUM("Abono"); - Cargos = contP.DtResultados.SUM("Cargo"); - - if (Cargos != Abonos) - { - e.Row.FCCheckBox("Chk").Visible = false; - } - - GvD.DataSource = contP.DtResultados; - } - - if (UsuarioActual.CveRol == 1 || UsuarioActual.CveUsuario == 17) - { - e.Row.FCHyperLink("HplEdicion").Visible = true; - } - - contP.Dispose(); - GvD.DataBind(); - - } - } - - private void Contabilizar(int CvePrepoliza, DateTime Fecha, string Concepto, ClsContabilidad Obj) - { - if (Obj.ContabilizarPrePoliza(CvePrepoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, Fecha, Concepto)) - { - - } - } - - private void BtnGuardarVentas_Click(object sender, EventArgs e) - { - ClsContabilidad ObjMov = new ClsContabilidad(); - - foreach (GridViewRow row in GvV.Rows) - { - CheckBox chk = row.FCCheckBox("Chk"); - TextBox txtFecha = row.FCTextBox("TxtFechaVentas"); - TextBox txtConcepto = row.FCTextBox("TxtConceptoVentas"); - - if (chk != null && chk.Checked) - { - DateTime Fecha = txtFecha.Text.ToDate(); - int CvePrepoliza = GvV.DataKeys[row.RowIndex]["CvePrePoliza"].ToString().ToEntero(); - string Concepto = txtConcepto.Text; - - Contabilizar(CvePrepoliza, Fecha, Concepto, ObjMov); - } - } - ObjMov.Dispose(); - - Alert("Se Contabilizaron Correctamente los Siguientes Folios:
" + ObjMov.AlertaMensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion); - cargaPolizas(); - - } - - private void BtnGuardarPagos_Click(object sender, EventArgs e) - { - ClsContabilidad ObjMov = new ClsContabilidad(); - - foreach (GridViewRow row in GvP.Rows) - { - CheckBox chk = row.FCCheckBox("Chk"); - TextBox txtFecha = row.FCTextBox("TxtFechaPagos"); - TextBox txtConcepto = row.FCTextBox("TxtConceptoPagos"); - - if (chk != null && chk.Checked) - { - DateTime Fecha = txtFecha.Text.ToDate(); - int CvePrepoliza = GvP.DataKeys[row.RowIndex]["CvePrePoliza"].ToString().ToEntero(); - string Concepto = txtConcepto.Text; - - Contabilizar(CvePrepoliza, Fecha, Concepto, ObjMov); - } - } - ObjMov.Dispose(); - - Alert("Se Contabilizaron Correctamente los Siguientes Folios:
" + ObjMov.AlertaMensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion); - cargaPolizas(); - - } - - private void BtnGuardarAnticipos_Click(object sender, EventArgs e) - { - ClsContabilidad ObjMov = new ClsContabilidad(); - - foreach (GridViewRow row in GvA.Rows) - { - CheckBox chk = row.FCCheckBox("Chk"); - TextBox txtFecha = row.FCTextBox("TxtFechaAnticipos"); - TextBox txtConcepto = row.FCTextBox("TxtConceptoAnticipos"); - - if (chk != null && chk.Checked) - { - DateTime Fecha = txtFecha.Text.ToDate(); - int CvePrepoliza = GvA.DataKeys[row.RowIndex]["CvePrePoliza"].ToString().ToEntero(); - string Concepto = txtConcepto.Text; - - Contabilizar(CvePrepoliza, Fecha, Concepto, ObjMov); - } - } - ObjMov.Dispose(); - - Alert("Se Contabilizaron Correctamente los Siguientes Folios:
" + ObjMov.AlertaMensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion); - cargaPolizas(); - - } - - private void BtnGuardarAmortizaciones_Click(object sender, EventArgs e) - { - ClsContabilidad ObjMov = new ClsContabilidad(); - - foreach (GridViewRow row in GvPrePolizaAmortizaciones.Rows) - { - CheckBox chk = row.FCCheckBox("Chk"); - TextBox txtFecha = row.FCTextBox("TxtFechaAmortizaciones"); - TextBox txtConcepto = row.FCTextBox("TxtConceptoAmortizaciones"); - - if (chk != null && chk.Checked) - { - DateTime Fecha = txtFecha.Text.ToDate(); - int CvePrepoliza = GvPrePolizaAmortizaciones.DataKeys[row.RowIndex]["CvePrePoliza"].ToString().ToEntero(); - string Concepto = txtConcepto.Text; - - Contabilizar(CvePrepoliza, Fecha, Concepto, ObjMov); - } - } - ObjMov.Dispose(); - - Alert("Se Contabilizaron Correctamente los Siguientes Folios:
" + ObjMov.AlertaMensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion); - cargaPolizas(); - - } - - private void cargaPolizas() - { - - DateTime FechaI = txtFechaI.Text.ToDate(); - DateTime FechaF = txtFechaF.Text.ToDate(); - - ClsContabilidad cont = new ClsContabilidad(); - - // Cargamos las ventas - if (cont.GetContabilizacionDiario(UsuarioActual.CveEmpresa, 4, FechaI, FechaF)) - { - if (DdlClientes.SelectedValue.ToEntero() > 0) - { - GvV.DataSource = cont.DtResultados.FiltraParametros($"CveCliente = {DdlClientes.SelectedValue}"); - } - else - { - GvV.DataSource = cont.DtResultados; - } - GvV.DataBind(); - } - - // Cargamos los pagos - if (cont.GetContabilizacionDiario(UsuarioActual.CveEmpresa, 11, FechaI, FechaF)) - { - if (DdlClientes.SelectedValue.ToEntero() > 0) - { - GvP.DataSource = cont.DtResultados.FiltraParametros($"CveCliente = {DdlClientes.SelectedValue}"); - } - else - { - GvP.DataSource = cont.DtResultados; - } - GvP.DataBind(); - } - - // Cargamos los anticipos - if (cont.GetContabilizacionDiario(UsuarioActual.CveEmpresa, 12, FechaI, FechaF)) - { - if (DdlClientes.SelectedValue.ToEntero() > 0) - { - GvA.DataSource = cont.DtResultados.FiltraParametros($"CveCliente = {DdlClientes.SelectedValue}"); - } - else - { - GvA.DataSource = cont.DtResultados; - } - GvA.DataBind(); - } - - // Cargamos las amortizaciones - if (cont.GetContabilizacionDiario(UsuarioActual.CveEmpresa, 10, FechaI, FechaF)) - { - if (DdlClientes.SelectedValue.ToEntero() > 0) - { - GvPrePolizaAmortizaciones.DataSource = cont.DtResultados.FiltraParametros($"CveCliente = {DdlClientes.SelectedValue}"); - } - else - { - GvPrePolizaAmortizaciones.DataSource = cont.DtResultados; - } - GvPrePolizaAmortizaciones.DataBind(); - } - - cont.Dispose(); - - UpGvVentas.Update(); - UpGvPagos.Update(); - UpGvAnticipos.Update(); - UpGvAmortizaciones.Update(); - UPPTabs.Update(); - } - - protected void BtnConsultar_Click(object sender, EventArgs e) - { - cargaPolizas(); - } - - - protected void GvD_RowDataBound(object sender, GridViewRowEventArgs e) - { - if (e.Row.RowType == DataControlRowType.DataRow) - { - int cuenta = e.Row.DataKey("IdCtaContable").ToString().ToEntero(); - - - if (cuenta > 0) { - DataRow dr = DTmpC.FiltroPrimero(String.Format("CveCuenta = {0}", cuenta)); - - if (dr != null) e.Row.Cells[3].Text = string.Format("{0}
{1}", dr["CuentaFormato"], dr["Nombre"]); - } - else - { - e.Row.Cells[0].ForeColor = System.Drawing.Color.Red; - - ((GridViewRow)((GridView)e.Row.NamingContainer).BindingContainer).FCCheckBox("Chk").Visible = false; - } - - if (Convert.ToDecimal(e.Row.DataKey("Cargo").ToString()) == 0) e.Row.Cells[4].Text = ""; - - if (Convert.ToDecimal(e.Row.DataKey("Abono").ToString()) == 0) e.Row.Cells[5].Text = ""; - } - } - -} \ No newline at end of file diff --git a/PyME/Contabilidad/PlantillasPolizas.aspx b/PyME/Contabilidad/PlantillasPolizas.aspx deleted file mode 100644 index a52700e8d..000000000 --- a/PyME/Contabilidad/PlantillasPolizas.aspx +++ /dev/null @@ -1,207 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PlantillasPolizas.aspx.vb" Inherits="Contabilidad_PlantillasPolizas" %> - -<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> - - - - - - - - - - -
  • - Registrar Plantilla Póliza - -
    • -     -     -     - - Catálogo de Plantillas de Pólizas - - - - - - - - - - -   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/PyME/Contabilidad/PlantillasPolizas.aspx.vb b/PyME/Contabilidad/PlantillasPolizas.aspx.vb deleted file mode 100644 index c639d8603..000000000 --- a/PyME/Contabilidad/PlantillasPolizas.aspx.vb +++ /dev/null @@ -1,124 +0,0 @@ -Option Explicit On -Option Strict On - -Imports System.Data -Imports System.Linq -Imports Extensiones - -Partial Class Contabilidad_PlantillasPolizas - Inherits ClsPaginas - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not Page.IsPostBack Then - CargaDatos() - End If - End Sub - - Public Sub CargaDatos() - Dim ObjPlantillaPolizas As New ClsContabilidad - If ObjPlantillaPolizas.GetConta_PlantillasPolizasEmpresas(-1, UsuarioActual.CveEmpresa) Then - - GvDatos.DataSource = ObjPlantillaPolizas.DtResultados - GvDatos.DataBind() - - If ObjPlantillaPolizas.GetConta_PlantillasPolizas(-1, -1) Then - DdlPlantillaPoliza.DataSource = ObjPlantillaPolizas.DtResultados.FiltraParametros("CvePlantillaPoliza NOT IN (1,2,3,4,7,10,11,12,32,60)", "", {"CvePlantillaPoliza", "PlantillaPoliza"}) - DdlPlantillaPoliza.DataBind() - End If - - If ObjPlantillaPolizas.GetConta_TiposPoliza(UsuarioActual.CveEmpresa) Then - DdlTiposPoliza.DataSource = ObjPlantillaPolizas.DtResultados.FiltraParametros($"CveEmpresa={UsuarioActual.CveEmpresa} OR CveEmpresa IS NULL") - DdlTipoPolizaModal.DataSource = ObjPlantillaPolizas.DtResultados.FiltraParametros($"CveEmpresa={UsuarioActual.CveEmpresa} OR CveEmpresa IS NULL") - DdlTiposPoliza.DataBind() - DdlTipoPolizaModal.DataBind() - End If - Else - Me.GvDatos.DataSource = Nothing - End If - OrdenaDatos() - UpDatos.Update() - ObjPlantillaPolizas.Dispose() - End Sub - - Private Sub BtnAgregarPoliza_Click(sender As Object, e As EventArgs) Handles BtnAgregarPoliza.Click - Dim ObjPlantillaPolizas As New ClsContabilidad - - If ObjPlantillaPolizas.AddConta_PlantillasPolizasEmpresas(DdlPlantillaPoliza.SelectedValue.ToEntero, DdlTipoPolizaModal.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - Response.Redirect(String.Format("/Contabilidad/PlantillasPolizasDetalle.aspx?CvePlantillaPoliza={0}", DdlPlantillaPoliza.SelectedValue)) - Else - Alert("Ocurrió un error al agregar la plantilla.", TipoMensaje.MsgError) - End If - - ObjPlantillaPolizas.Dispose() - End Sub - - Private Sub BtnActualizarPlantilla_Click(sender As Object, e As EventArgs) Handles BtnActualizarPlantilla.Click - Dim ObjPlantillaPolizas As New ClsContabilidad - - If ObjPlantillaPolizas.UpdateConta_PlantillasPolizasEmpresas(DdlPlantillaPoliza.SelectedValue.ToEntero, DdlTiposPoliza.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then - RegistraScript(String.Format("$('#{0}').modal('hide');", "DivActualizarPlantilla")) - CargaDatos() - Alert("La plantilla se actualizó correctamente.") - Else - Alert("Ocurrió un error al agregar la plantilla.", TipoMensaje.MsgError) - End If - - ObjPlantillaPolizas.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(5).Width = Unit.Pixel(40) - e.Row.Cells(6).Width = Unit.Pixel(40) - End If - - If e.Row.DataKey("CveEmpresa").ToEntero = 1 Then - e.Row.FCLinkButton("ImgE").Visible = False - e.Row.FCLinkButton("ImgD").Visible = False - End If - e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left - e.Row.FCLiteral("LtlPlantillaPoliza").Text = "" & e.Row.FCLiteral("LtlPlantillaPoliza").Text & "" - End If - End Sub - - Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting - Dim ObjPlantillaPolizas As New ClsContabilidad - If ObjPlantillaPolizas.RemoveConta_PlantillasPolizasDetalle(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then - If ObjPlantillaPolizas.RemoveConta_PlantillasPolizas(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then - GvDatos.EditIndex = -1 - GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = ObjPlantillaPolizas.DtResultados - CargaDatos() - Alert("La Plantilla Poliza se eliminó correctamente.", TipoMensaje.MsgInformacion) - End If - End If - ObjPlantillaPolizas.Dispose() - End Sub - - Public Sub Edit_Click(sender As Object, e As EventArgs) - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - - DdlTiposPoliza.SelectedValueExist(GvRow.DataKey("TipoPoliza")) - - UpModal.Update() - RegistraScript(String.Format("$('#{0}').modal();", "DivActualizarPlantilla")) - CargaDatos() - End Sub - -#End Region - - -#Region " O R D E N A M I E N T O JAVASCRIPT" - Private Sub OrdenaDatos() - If (GvDatos.Rows.Count > 0) Then - GvDatos.UseAccessibleHeader = True - GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader - RegistraScript("OrdenarGV();") - End If - End Sub -#End Region - - - - -End Class diff --git a/PyME/Contabilidad/PlantillasPolizasDetalle.aspx b/PyME/Contabilidad/PlantillasPolizasDetalle.aspx deleted file mode 100644 index 564613012..000000000 --- a/PyME/Contabilidad/PlantillasPolizasDetalle.aspx +++ /dev/null @@ -1,377 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PlantillasPolizasDetalle.aspx.vb" Inherits="Contabilidad_PlantillasPolizasDetalle" %> - -<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> - - - - - - - -
  • - Plantilla Póliza Listado -
    • - - -     - - Catálogo de Pantillas de Pólizas - - - - -
  • - -
    • -     -     -     - - - - - - - -
    - - - - - - - - - - - - -
    - - - - - -
    - - - - - -
    - - - - - - - - - - - - - - - - - - - - - -
    - - - - - - - - - -
    - - - - - - - -
    - - - -
    - - - -
    - - - -
    -
    -     -     - - - - - - - -   - - - - - -   - - - - - -  > - - - - - - - - - - - - - - - - - - - - - - - - - -   - - - - - - - - - - - - - - - - - - - - - - - - - - -
    - -
    - - - - - - - - -     - - - - - - - - - - - diff --git a/PyME/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/PyME/Contabilidad/PlantillasPolizasDetalle.aspx.vb deleted file mode 100644 index 56fd3a6bb..000000000 --- a/PyME/Contabilidad/PlantillasPolizasDetalle.aspx.vb +++ /dev/null @@ -1,418 +0,0 @@ -Option Explicit On -Option Strict On - -Imports System.Data -Imports System.Linq -Imports Extensiones - -Partial Class Contabilidad_PlantillasPolizasDetalle - Inherits ClsPaginas -#Region "PROPIEDADES" - - Private Property DTSubProyectos As DataTable - Get - Return CType(ViewState("DTSubProyectos"), DataTable) - End Get - Set(value As DataTable) - ViewState("DTSubProyectos") = 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 - Private ReadOnly Property CvePlantillaPoliza As Integer - Get - Return ViewState("CvePlantillaPoliza").ToString.ToEntero - End Get - End Property - Public Property DTDetalle As DataTable - Get - Return CType(ViewState("DTDetalle"), DataTable) - End Get - Set(value As DataTable) - ViewState("DTDetalle") = value - End Set - End Property -#End Region - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not Page.IsPostBack Then - ViewState("Orden") = "" - TxtFechaIng.Text = Date.Today.ToString("dd/MM/yyyy") - TxtUsuario.Text = UsuarioActual.CveUsuario.ToString - CreadDTDetalle() - - Dim ObjPlantillaPolizasTipo As New ClsContabilidad - If ObjPlantillaPolizasTipo.GetConta_PlantillasPolizasTipo() Then - Dim row As DataRow = ObjPlantillaPolizasTipo.DtResultados().NewRow() - row("CveTipoPlantillaPoliza") = -1 - row("TipoPlantillaPoliza") = "Seleccione" - ObjPlantillaPolizasTipo.DtResultados.Rows.Add(row) - ObjPlantillaPolizasTipo.DtResultados.AcceptChanges() - DdlTPP.DataSource = ObjPlantillaPolizasTipo.DtResultados() - DdlTPP.DataBind() - End If - ObjPlantillaPolizasTipo.Dispose() - - Dim dt As DataTable = Nothing - If UsuarioActual.Empresa.UsaContabilidad Then - Dim Conta As New ClsContPAQi(UsuarioActual.Empresa) - - If Conta.GetCuentas(-1, "-1", 1) Then - dt = Conta.DtResultados - DTCuentasContables = Conta.DtResultados - Session("DtCuentas") = Conta.DtResultados - End If - Conta.Dispose() - End If - CargaCuenta() - CargaDDL() - CargaDDLProveedor() - CargarConcepto() - ViewState("CvePlantillaPoliza") = 0 - - If Request("CvePlantillaPoliza") IsNot Nothing AndAlso IsNumeric(Request("CvePlantillaPoliza")) AndAlso Request("CvePlantillaPoliza").ToEntero > 0 Then - ViewState("CvePlantillaPoliza") = Request("CvePlantillaPoliza") - TRClave.Visible = False - TxtPlantillaPoliza.Enabled = False - DdlTipoPoliza.Enabled = False - DdlTPP.Enabled = False - ChkEstatus.Enabled = False - BtnGuardar.Visible = False - tableopcional.Visible = False - CargaDatos() - CargaDatosPoliza(CvePlantillaPoliza) - Else - ViewState("CvePlantillaPoliza") = -1 - End If - End If - End Sub - -#Region "C A R G A - D A T O S" - Public Sub CargaDatos() - Dim ObjPlantillaPolizaDetalle As New ClsContabilidad - If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizasDetalle(CvePlantillaPoliza, UsuarioActual.CveEmpresa) Then - GvDatos.DataSource = ObjPlantillaPolizaDetalle.DtResultados - ObjPlantillaPolizaDetalle.Dispose() - GvDatos.DataBind() - Else - Me.GvDatos.DataSource = Nothing - End If - - OrdenaDatos() - End Sub - Public Sub CargaDatosPoliza(CvePlantillaPoliza As Integer) - Dim ObjPlantillaPolizas As New ClsContabilidad - If ObjPlantillaPolizas.GetConta_PlantillasPolizas(CvePlantillaPoliza, -1) Then - TxtPlantillaPoliza.Text = ObjPlantillaPolizas.PlantillaPoliza - DdlTipoPoliza.SelectedValue = ObjPlantillaPolizas.TipoPoliza.ToString - DdlTPP.SelectedValue = ObjPlantillaPolizas.CveTipoPlantillaPoliza.ToString - If ObjPlantillaPolizas.Estatus = "Activo" Then - ChkEstatus.Checked = True - End If - TxtFechaIng.Text = ObjPlantillaPolizas.FechaIng.ToShortDateString - TxtUsuario.Text = ObjPlantillaPolizas.Usuario - BtnGuardar.Text = "Actualizar" - Else - End If - - ObjPlantillaPolizas.Dispose() - End Sub - - Private Sub LimpiaDatos() - TxtPlantillaPoliza.Text = "" - DdlTipoPoliza.SelectedValue = "-1" - DdlTPP.SelectedValue = "-1" - ChkEstatus.Checked = False - ViewState("CvePlantillaPoliza") = -1 - GvDatos.DataSource = Nothing - GvDatos.DataBind() - UpDatos.Update() - End Sub - - Private Sub CargaCuenta() - DdlCtaContable.Items.Clear() - DdlCtaContable.DataSource = DTCuentasContables - DdlCtaContable.DataBind() - DdlCtaContable.Items.Insert(0, New ListItem("Seleccione", "-1")) - End Sub - - Private Sub CargarConcepto() - DdlConcepto.DataSource = GlobalDTContaConceptosContables(-1) - DdlConcepto.DataBind() - End Sub - - Private Sub CreadDTDetalle() - DTDetalle = New DataTable - DTDetalle.Columns.Add("CvePlantillaPolizaDetalle", GetType(Integer)) 'Consec - DTDetalle.Columns.Add("ConceptoContable", GetType(String)) - DTDetalle.Columns.Add("CveConcepto", GetType(Integer)) - DTDetalle.Columns.Add("TipoMovimiento", GetType(String)) - DTDetalle.Columns.Add("TipoMovto", GetType(Integer)) - DTDetalle.Columns.Add("IdCtaContable", GetType(Integer)) - DTDetalle.Columns.Add("Orden", GetType(String)) - DTDetalle.Columns.Add("Usuario", GetType(String)) - End Sub -#End Region - - Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) - Dim ObjPlantillaPoliza As New ClsContabilidad - Dim ErrorPlantilla = False - Dim CvePlantilla = -1 - ObjPlantillaPoliza.IniciaTransacSQL() - - If CvePlantillaPoliza < 0 Then - If ObjPlantillaPoliza.AddConta_PlantillasPolizas(TxtClave.Text.ToEntero, TxtPlantillaPoliza.Text.Trim, DdlTPP.SelectedValue.ToEntero, DdlTipoPoliza.SelectedValue.ToEntero, ChkEstatus.Checked, TxtFechaIng.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - CvePlantilla = ObjPlantillaPoliza.CvePlantillaPoliza - If DTDetalle.Rows.Count > 0 Then - For Each Row As DataRow In DTDetalle.Rows - If Not ObjPlantillaPoliza.AddConta_PlantillasPolizasDetalles(CvePlantilla, Row("CveConcepto").ToString.ToEntero, Row("TipoMovto").ToString.ToEntero, Row("IdCtaContable").ToString.ToEntero, Row("Orden").ToString.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero) Then - ErrorPlantilla = True - Exit For - End If - Next - End If - Else - ErrorPlantilla = True - End If - - Else - If ObjPlantillaPoliza.UpdateConta_PlantillasPolizas(TxtPlantillaPoliza.Text.Trim, DdlTPP.SelectedValue.ToEntero, DdlTipoPoliza.SelectedValue.ToEntero, ChkEstatus.Checked, CvePlantillaPoliza) Then - ObjPlantillaPoliza.Commit() - ObjPlantillaPoliza.Dispose() - LimpiaDatos() - Alert("La Plantilla Póliza y sus Detalles fueron Actualizados correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Contabilidad/PlantillasPolizas.aspx?"";") - Exit Sub - Else - ErrorPlantilla = True - End If - - End If - - If Not ErrorPlantilla Then - ObjPlantillaPoliza.Commit() - LimpiaDatos() - Alert("La Plantilla Póliza y su Detalle fue agregado correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Contabilidad/PlantillasPolizas.aspx?"";") - Else - ObjPlantillaPoliza.RollBack() - Alert("Error al agregar la Plantilla Póliza y el Detalle.", TipoMensaje.MsgError) - End If - ObjPlantillaPoliza.Dispose() - End Sub - Public Sub updatatos() - - Dim ObjPlantillaPolizaDetalle As New ClsContabilidad - If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizasDetalle(-1, -1) Then - ViewState("DTPlantillaPolizaDetalle") = ObjPlantillaPolizaDetalle.DtResultados.FiltraParametros(String.Format(" CvePlantillaPoliza={0} AND CveEmpresa = {1}", CvePlantillaPoliza, UsuarioActual.CveEmpresa)) - - GlobalDTContaPlantillasPolizasDetalle(CvePlantillaPoliza) = ObjPlantillaPolizaDetalle.DtResultados - End If - If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizas(-1, -1) Then - GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = ObjPlantillaPolizaDetalle.DtResultados - End If - ObjPlantillaPolizaDetalle.Dispose() - End Sub - Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click - OcultaDiv() - Dim ObjPlantillaPolizaDetalle As New ClsContabilidad - Dim Row As DataRow - Dim ErrorActualizar = False - Dim ErrorDetalle = False - - - If HdnModalidad.Value = "I" Then - If CvePlantillaPoliza > 0 Then - If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero) Then - TxtOrden.Text = "" - updatatos() - Alert("El nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion) - UpTitulos.Update() - Else - ErrorDetalle = True - End If - Else - Try - Row = DTDetalle.NewRow - Row("CvePlantillaPolizaDetalle") = DTDetalle.Rows.Count + 1 - Row("ConceptoContable") = DdlConcepto.SelectedItem.ToString - Row("CveConcepto") = DdlConcepto.SelectedValue.ToEntero - Row("TipoMovimiento") = DdlTipoMovimiento.SelectedItem.ToString - Row("TipoMovto") = DdlTipoMovimiento.SelectedValue.ToEntero - Row("IdCtaContable") = DdlCtaContable.SelectedValue.ToEntero - Row("Orden") = TxtOrden.Text.Trim.ToEntero - Row("Usuario") = UsuarioActual.Usuario - - DTDetalle.Rows.Add(Row) - - TxtOrden.Text = "" - UpTitulos.Update() - Catch ex As Exception - ErrorDetalle = True - End Try - End If - Else - If HdnID.Value.ToEntero <> -1 Then - If CvePlantillaPoliza > 0 Then - If ObjPlantillaPolizaDetalle.UpdateConta_PlantillasPolizasDetalle(DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero, - HdnID.Value.ToEntero, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero) Then - Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) - updatatos() - Else - ErrorActualizar = True - End If - Else - Try - Row = DTDetalle.NewRow - Row("CvePlantillaPolizaDetalle") = DTDetalle.Rows.Count + 1 - Row("ConceptoContable") = DdlConcepto.SelectedItem.ToString - Row("CveConcepto") = DdlConcepto.SelectedValue.ToEntero - Row("TipoMovimiento") = DdlTipoMovimiento.SelectedItem.ToString - Row("TipoMovto") = DdlTipoMovimiento.SelectedValue.ToEntero - Row("IdCtaContable") = DdlCtaContable.SelectedValue.ToEntero - Row("Orden") = TxtOrden.Text.Trim.ToEntero - Row("Usuario") = UsuarioActual.Usuario - DTDetalle.Rows.Add(Row) - Catch ex As Exception - ErrorActualizar = True - End Try - End If - End If - End If - - ObjPlantillaPolizaDetalle.Dispose() - - CargaDatos() - UpDatos.Update() - - 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 - Dim Cuenta As Integer = e.Row.DataKey("IdCtaContable").ToString.ToEntero - e.Row.FCLiteral("LtlCtaContable").Text = DTCuentasContables.FiltroPrimeroValor("Nombre", $"Id = {Cuenta}") - End If - End Sub - - - Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting - Dim ObjPlantillaPolizaDetalle As New ClsContabilidad - If CvePlantillaPoliza > 0 Then - If ObjPlantillaPolizaDetalle.RemoveConta_PlantillasPolizasDetalle(CvePlantillaPoliza, GvDatos.Rows(e.RowIndex).DataKey("CvePlantillaPolizaDetalle").ToString.ToEntero) Then - GvDatos.EditIndex = -1 - updatatos() - Alert("El Concepto se eliminó correctamente.", TipoMensaje.MsgInformacion) - End If - Else - Dim index = GvDatos.Rows(e.RowIndex).DataKey("CvePlantillaPolizaDetalle").ToString.ToEntero - 1 - DTDetalle.Rows.RemoveAt(index) - End If - ObjPlantillaPolizaDetalle.Dispose() - CargaDatos() - End Sub - -#End Region - - - Public Sub CargaDDL() - - - DTSubProyectos = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) - DDLSubProyecto.DataSource = DTSubProyectos - DDLSubProyecto.DataBind() - DDLSubProyecto.Items.Insert(0, New ListItem(" - ", "-1")) - - - End Sub - - - Private Sub CargaDDLProveedor() - DDLProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DDLProveedor.DataBind() - DDLProveedor.Items.Insert(0, New ListItem(" - ", "-1")) - DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) - DdlPersonal.DataBind() - DdlPersonal.Items.Insert(0, New ListItem(" - ", "-1")) - End Sub - - Private Sub DdlConcepto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConcepto.SelectedIndexChanged - If DdlConcepto.SelectedValue.Contiene("130", "29") Then - DdlPersonal.Visible = True - LblPersonal.Visible = True - Else - DdlPersonal.Visible = False - LblPersonal.Visible = False - End If - End Sub - - - -#Region " O R D E N A M I E N T O JAVASCRIPT" - Private Sub OrdenaDatos() - If (GvDatos.Rows.Count > 0) Then - GvDatos.UseAccessibleHeader = True - GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader - RegistraScript("OrdenarGV();") - End If - End Sub -#End Region - - Private Sub OcultaDiv() - ScriptManager.RegisterStartupScript(Me, Me.GetType, "Llave", "HideDivRegistro();", True) - End Sub - - - Public Sub Edit_Click(sender As Object, e As EventArgs) - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - HdnModalidad.Value = "U" - HdnID.Value = GvRow.DataKey("CvePlantillaPolizaDetalle") - DdlConcepto.SelectedValueExist(GvRow.DataKey("CveConcepto")) - DdlTipoMovimiento.SelectedValueExist(IIf(GvRow.DataKey("TipoMovimiento") = "Abono", 1, 0).ToString) - DdlCtaContable.SelectedValueExist(GvRow.DataKey("IdCtaContable")) - DDLSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto")) - TxtOrden.Text = GvRow.DataKey("Orden") - LbAgregar.Text = "Actualizar" - LtlTituloModal.Text = String.Format("{0}{1}", "Actualizar Concepto: ", DdlConcepto.SelectedItem) - - If DdlConcepto.SelectedValue.Contiene("130", "29") Then - DdlPersonal.SelectedValueExist(GvRow.DataKey("CvePersonal")) - DdlPersonal.Visible = True - LblPersonal.Visible = True - Else - DdlPersonal.SelectedIndex = 0 - DdlPersonal.Visible = False - LblPersonal.Visible = False - End If - UpModal.Update() - RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal")) - CargaDatos() - End Sub - - Public Sub BtnAgregarSucursalModal_Click(sender As Object, e As EventArgs) - DdlPersonal.Visible = False - LblPersonal.Visible = False - LbAgregar.Text = "Agregar" - LtlTituloModal.Text = "Agregar Concepto Contable" - DdlConcepto.SelectedIndex = 0 - DdlTipoMovimiento.SelectedIndex = 0 - DdlCtaContable.SelectedIndex = 0 - DDLSubProyecto.SelectedIndex = 0 - DDLProveedor.SelectedIndex = 0 - DdlPersonal.SelectedIndex = 0 - TxtOrden.Text = "" - UpModal.Update() - HdnModalidad.Value = "I" - RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal")) - End Sub - - -End Class diff --git a/PyME/Contabilidad/RegPoliza.aspx b/PyME/Contabilidad/RegPoliza.aspx deleted file mode 100644 index c54b62bb1..000000000 --- a/PyME/Contabilidad/RegPoliza.aspx +++ /dev/null @@ -1,1073 +0,0 @@ -<%@ Page Title="Contabilidad - Pólizas" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegPoliza.aspx.vb" Inherits="RegPoliza" %> - - - - - - - - - - Pólizas - - - -
  • - - - Imprimir - - - -
    • -
  • - Agregar movtos de IVA -
    • -
  • - Causaciones IVA -
    • -
  • - -
    • - - -     - - - - - -
    -
    -
    - -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    - - - - - 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 - - - - - - - - - - - - <%-- --%> -
    - - - - - -
    -     -     - - - - - - - <%-- --%> - -
    - - - - - -
    -     -     - - - - - - - - <%----%> - -
    - - - - - -
    -     -     -     -     -
    - -
    -
    - -
    -
    - -     -     -
    -
    -
    -     -     -
    - - -
    - - <%--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--%> - - - <%--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/CatMetasVendedores.aspx.vb b/Ventas/CatMetasVendedores.aspx.vb index 22cad0f55..ffc9ae574 100644 --- a/Ventas/CatMetasVendedores.aspx.vb +++ b/Ventas/CatMetasVendedores.aspx.vb @@ -13,6 +13,15 @@ Partial Class CatMetasVendedores End Set End Property + Private Property DtDatos() As DataTable + Get + Return ViewState("DtDatos") + End Get + Set + ViewState("DtDatos") = Value + End Set + End Property + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then txtMesAnio.Text = Now.FirstDayOfMonth.ToShortDateString @@ -33,6 +42,7 @@ Partial Class CatMetasVendedores Dim ObjVentas As New ClsVentas If ObjVentas.GetMetasVendedores(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveMarca:=DdlMarca.SelectedValue.ToEntero(), Mes:=Mes, Anio:=Anio) Then GvDatos.DataSource = ObjVentas.DtResultados + DtDatos = ObjVentas.DtResultados End If ObjVentas.Dispose() GvDatos.DataBind() @@ -164,10 +174,26 @@ Partial Class CatMetasVendedores DtExcel.Columns.Add(New DataColumn("Mes", GetType(String))) DtExcel.Columns.Add(New DataColumn("Año", GetType(String))) DtExcel.Columns.Add(New DataColumn("Cantidad", GetType(Decimal))) - DtExcel.Columns.Add(New DataColumn("Importe", GetType(Decimal))) - - SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) - + DtExcel.Columns.Add(New DataColumn("Importe", GetType(Decimal))) + DtExcel.Columns.Add(New DataColumn("Ventas", GetType(Decimal))) + + Dim dttE As DataTable = DtDatos.Copy + dttE.TableName = "Metas" + For Each drr As DataRow In DtDatos.Rows + Dim dr As DataRow = DtExcel.NewRow + dr("Vendedor") = drr("Vendedor") + dr("Clasificación Superior") = drr("ClasificacionSup") + dr("Clasificación") = drr("Clasificacion") + dr("Marca") = drr("Marca") + dr("Cantidad") = drr("MetaCantidad") + dr("Importe") = drr("MetaImporte") + dr("Mes") = drr("MesAño").ToString.ToDate.Year + dr("Año") = drr("MesAño").ToString.ToDate.Month + dr("Ventas") = drr("VentaCantidad") + + DtExcel.Rows.Add(dr) + Next + Dim FileExcel As New ExcelFile() Dim worksheet = FileExcel.Worksheets.Add(DtExcel.TableName) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 1724cc382..dcea45992 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -4276,16 +4276,15 @@ - Proyecto: -
    - + Proyecto: +
    +
    - SubProyecto: -
    - - + SubProyecto: +
    +
    diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 1d3ca0dca..00a59e542 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1302,6 +1302,7 @@ Partial Class Clientes Private Sub CargaCombos() + CargaSubProyectos() CargaMetodosPago() CargaPrecioLista() CargaVendedores() @@ -1321,6 +1322,11 @@ Partial Class Clientes CargaCombosComercioExterior() + End Sub + Private Sub CargaSubProyectos() + CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, Nothing, AplicaTodos:="Seleccione") + 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + 'DdlSubProyecto.DataBind() End Sub Private Sub CargaMetodosPago() 'DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ") @@ -1576,8 +1582,11 @@ Partial Class Clientes DdlTipoRetencion_SelectedIndexChanged(DdlTipoRetencion, EventArgs.Empty) TxtRetIVA.Text = ObjClientes.RetIVA.ToString() TxtRetISR.Text = ObjClientes.RetISR.ToString() - ChkRetIVAFletesAcarreos.Checked = ObjClientes.RetieneIVAFletes - DdlSubProyecto.SelectedValue = ObjClientes.CveSubProyecto.ToString() + ChkRetIVAFletesAcarreos.Checked = ObjClientes.RetieneIVAFletes + If ObjClientes.CveSubProyecto > 0 Then + DdlSubProyecto.SelectedValueExistInsert(ObjClientes.CveSubProyecto.ToString(), GlobalDTSubProyectos(-1, CveSubProyecto:=ObjClientes.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")) + End If + DdlZonaHoraria.SelectedValueExist(ObjClientes.DtResultados(0)("CveZonaHoraria").ToString()) ChkEstado.Checked = ObjClientes.Estatus EstatusAnteriorCliente = ObjClientes.Estatus @@ -8428,7 +8437,7 @@ Partial Class Clientes Private Sub CargaFiltros() - CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto) + CargarCentrosDeCosto(DdlProyectoFiltro, DdlSubProyectoFiltro, LblProyectoFiltro, LblSubProyectoFiltro) 'Cargo Clasificaciones DdlClasificacionFilto.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) @@ -8465,8 +8474,8 @@ Partial Class Clientes End Sub - Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged - CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue) + Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyectoFiltro.SelectedIndexChanged + CargarSubProyecto(DdlSubProyecto, DdlProyectoFiltro.SelectedValue) End Sub Protected Sub DdlClasificacionFilto_SelectedIndexChanged(sender As Object, e As EventArgs) @@ -8509,7 +8518,7 @@ Partial Class Clientes FechaI = If(IsDate(TxtFechaIFiltro.Text.Trim()), TxtFechaIFiltro.Text.ToDate(), MinFecha) FechaF = If(IsDate(TxtFechaFFiltro.Text.Trim()), TxtFechaFFiltro.Text.ToDate(), MaxFecha) - If ObjVentas.GetRepProductosServiciosDetalle(DdlProyecto.SelectedValue.ToEntero(), DdlSubProyectoFiltro.SelectedValue.ToEntero(), -1, DdlClasificacionFilto.SelectedValue.ToEntero(), + If ObjVentas.GetRepProductosServiciosDetalle(DdlProyectoFiltro.SelectedValue.ToEntero(), DdlSubProyectoFiltro.SelectedValue.ToEntero(), -1, DdlClasificacionFilto.SelectedValue.ToEntero(), DdlPSFiltro.SelectedValue.ToEntero(), FechaI, FechaF, -1, MinFecha, MaxFecha, -1, CveCliente, -1, DdlVendedorFiltro.SelectedValue.ToEntero(), DdlUsuario.SelectedValue.ToEntero(), -1, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:="Ing", GPO:=DdlGrupo.SelectedValue.ToEntero()) Then diff --git a/Ventas/RepCancelacionesPorRespuesta.aspx.cs b/Ventas/RepCancelacionesPorRespuesta.aspx.cs index 2811351fd..e9cc454a2 100644 --- a/Ventas/RepCancelacionesPorRespuesta.aspx.cs +++ b/Ventas/RepCancelacionesPorRespuesta.aspx.cs @@ -201,7 +201,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas } - if (CveVenta > 0 && Uuid != "") + if (CveVenta > 0) { var respCancelacion = CancelarDocumento(CveVenta, -1, CveCliente, Folio, Uuid, "", DateTime.Now, TipoDocto, Total.ToDouble(), UsuarioActual.Empresa.CvePAC, EsRefacturacion: true, FolioSustitucion: FolioSustitucion, CveEstatusRefacturacion: CveEstatusRefacturacion); @@ -258,14 +258,17 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas } else { - var resp = Timbrado.VerificarVigenciaSAT(Uuid, UsuarioActual.Empresa.RFC, RFCReceptor, Total, true); - if (resp != null) + if (!string.IsNullOrEmpty(Uuid)) { - sb.AppendFormat("Folio Fiscal: {0}
    ", Uuid); - sb.AppendFormat("Código Estado: {0}
    ", resp.CodigoEstatus); - sb.AppendFormat("Estado: {0}
    ", resp.Estado); - sb.AppendFormat("Es Cancelable: {0}
    ", string.IsNullOrEmpty(resp.EsCancelable) ? "Desconocido" : resp.EsCancelable); - sb.AppendFormat("Estatus de Cancelación: {0}

    ", string.IsNullOrEmpty(resp.EsCancelable) ? "Desconocido" : resp.EstatusCancelacion); + var resp = Timbrado.VerificarVigenciaSAT(Uuid, UsuarioActual.Empresa.RFC, RFCReceptor, Total, true); + if (resp != null) + { + sb.AppendFormat("Folio Fiscal: {0}
    ", Uuid); + sb.AppendFormat("Código Estado: {0}
    ", resp.CodigoEstatus); + sb.AppendFormat("Estado: {0}
    ", resp.Estado); + sb.AppendFormat("Es Cancelable: {0}
    ", string.IsNullOrEmpty(resp.EsCancelable) ? "Desconocido" : resp.EsCancelable); + sb.AppendFormat("Estatus de Cancelación: {0}

    ", string.IsNullOrEmpty(resp.EsCancelable) ? "Desconocido" : resp.EstatusCancelacion); + } } sb.Append(respCancelacion.Mensaje); @@ -288,6 +291,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas CargaDatos(); } + UPDatos.Update(); } @@ -610,6 +614,11 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas // if (e.Row.FCLinkButton("LnkCancelarFolioSustitucion") != null) e.Row.FCLinkButton("LnkCancelarFolioSustitucion").Visible = true; //} } + + if (string.IsNullOrEmpty(e.Row.DBCampo("FolioFiscal"))) + { + e.Row.FCLinkButton("LnkValidarRefac").Visible = false; + } } } public void BtnEnviarMailCancelacion_Click(object sender, EventArgs e) 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) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 3fb93897b..e654fa7f1 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -555,7 +555,7 @@ - Descripción de factura: + Descripción: @@ -3226,7 +3226,7 @@
    - + OC Cliente diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 6de9db860..b6bda839e 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -14057,7 +14057,13 @@ Partial Class Ventas Exit For End If End If - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe91, Referencia, 91, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=Dr("CveVenta").ToString().ToEntero(), ImporteMX:=ImporteMN91, ImporteME:=If(tipoCambio = 1, 0, Importe91), CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio) Then + Dim CveConceptoAplicacionNC As Integer = 91 + 'SI LA NOTA DE CREDITO ES EN MONEDA EXTRANGERA UTILIZAR EL CONCEPTO DE APLICACION ME + If ConceptoContable = 293 Then + CveConceptoAplicacionNC = 294 + End If + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe91, Referencia, CveConceptoAplicacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=Dr("CveVenta").ToString().ToEntero(), ImporteMX:=ImporteMN91, ImporteME:=If(tipoCambio = 1, 0, Importe91), CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio) Then ErrorPrepoliza = True Exit For End If