Merge branch 'master' of http://jperez@adsistemasof.sytes.net:8383/SIG.git

.gitignore

@@ -271,3 +271,4 @@ __pycache__/
 /Utilerias
 /Default.aspx
 /Default.aspx.cs
+/App_WebReferences/WSRDLC

App_Code/ClsContabilidad.vb

@@ -5770,6 +5770,104 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
+    Public Function GetCuentasAsignaciones(CveEmpresa As Integer) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Conta_CuentasAsignacionesGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener el catálogo de cuentas asignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
+                                           Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1,
+                                           Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Conta_CuentasAsignacionesAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
+            .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+            .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al agregar la cuenta asignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveCuentasAsignaciones(CveCuentaAsignacion As Integer) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Conta_CuentasAsignacionesDelete")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCuentaAsignacion", SqlDbType.Int).Value = CveCuentaAsignacion
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al eliminar el catálogo de cuentas asignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateCuentasAsignaciones(CveConceptoAsignacion As Integer, Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1,
+                                              Optional IdCtaContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1,
+                                              Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1,
+                                              Optional PorcentajeIVA As Decimal = -1) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Conta_CuentasAsignacionesAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCuentaAsignacion", SqlDbType.Int).Value = CveConceptoAsignacion
+            .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
+            .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+            .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al agregar la cuenta asignación", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
 #Region "  RECONSTRUCCION DE PREPOLIZAS  "
     Public Function ReconstruirPP_PagoCompra(CvePrePoliza As Integer) As Boolean
         Dim Retorno = False

App_Code/ClsPaginas.vb

@@ -3,7 +3,6 @@ Option Explicit On
 
 Imports System
 Imports System.Data
-Imports System.Security.Cryptography
 Imports Extensiones
 Imports System.Web.Security
 Imports System.Web
@@ -14,10 +13,6 @@ Imports CrystalDecisions.CrystalReports.Engine
 Imports CrystalDecisions.Shared
 Imports CrystalDecisions.ReportSource
 Imports Stimulsoft.Report
-Imports Stimulsoft.Report.Dictionary
-Imports Stimulsoft.Report.MobileDesign
-Imports System.Linq
-Imports Stimulsoft.Report.Export
 Imports System.Xml
 
 
@@ -431,7 +426,7 @@ Public Class ClsPaginas
     End Property
     Property GlobalDTProveedorClasificacion(CveEmpresa As Integer) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTProveedorClasificacion{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTProveedorClasificacion-{0}", CveEmpresa)
             'sino existe, recarga los datos
             If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
                 Dim P As New ClsCompProveedores
@@ -449,14 +444,14 @@ Public Class ClsPaginas
 
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTProveedorClasificacion{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTProveedorClasificacion-{0}", CveEmpresa)
             Application(AppNombre) = value
 
         End Set
     End Property
     Property GlobalDTProveedorSucursales(CveProveedor As Integer, CveEmpresa As Integer) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTProveedorSucursales{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTProveedorSucursales-{0}", CveEmpresa)
             'sino existe, recarga los datos
             If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
                 Dim P As New ClsCompProveedores
@@ -474,7 +469,7 @@ Public Class ClsPaginas
 
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTProveedorSucursales{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTProveedorSucursales-{0}", CveEmpresa)
             Application(AppNombre) = value
 
         End Set
@@ -551,7 +546,7 @@ Public Class ClsPaginas
     End Property
     Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1, Optional UsoClasificacion As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTClasificaciones{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTClasificaciones-{0}", CveEmpresa)
             'sino existe, recarga los datos
             If Application(AppNombre) Is Nothing Then
                 Dim ObjClasificaciones As New ClsClasificaciones
@@ -575,27 +570,35 @@ Public Class ClsPaginas
 
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTClasificaciones{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTClasificaciones-{0}", CveEmpresa)
             Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTClasificaciones2(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1) As DataTable
         Get
+            Dim AppNombre As String = String.Format("GlobalDTClasificaciones2-{0}", CveEmpresa)
+            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjClasificaciones As New ClsClasificaciones
+                If ObjClasificaciones.GetClasificaciones(CveEmpresa, Tipo:=4) Then Application(AppNombre) = ObjClasificaciones.DtResultados
+                ObjClasificaciones.Dispose()
+            End If
             If CveEmpresa <> -1 Then
                 Dim Str As New StringBuilder
                 Str.AppendFormat("CveEmpresa = {0}", CveEmpresa)
                 If CveCategoria <> -1 Then Str.AppendFormat(" AND CveCategoria = {0}", CveCategoria)
 
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTClasificaciones2"), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
+                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
                 GlobalDTClasificaciones2 = Dv.ToTable
                 Dv.Dispose()
             Else
-                GlobalDTClasificaciones2 = DirectCast(Application("GlobalDTClasificaciones2"), DataTable)
+                GlobalDTClasificaciones2 = DirectCast(Application(AppNombre), DataTable)
             End If
 
         End Get
         Set(value As DataTable)
-            Application("GlobalDTClasificaciones2") = value
+            Dim AppNombre As String = String.Format("GlobalDTClasificaciones2-{0}", CveEmpresa)
+            Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTClasificacionesSubProyectos(Optional CveClasificacion As Integer = -1, Optional CveEmpresa As Integer = -1) As DataTable
@@ -768,7 +771,7 @@ Public Class ClsPaginas
     End Property
     Public Property GlobalDTUnidadesMedida(Optional CveEmpresa As Integer = -1) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTUnidadesMedida{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTUnidadesMedida-{0}", CveEmpresa)
             'sino existe, recarga los datos
             If DirectCast(Application(AppNombre), DataTable) Is Nothing Or (DirectCast(Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(Application(AppNombre), DataTable).Rows.Count = 0) Then
                 Dim ObjUnidadesMedida As New ClsUnidadesMedida()
@@ -785,13 +788,13 @@ Public Class ClsPaginas
             End If
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTUnidadesMedida{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTUnidadesMedida-{0}", CveEmpresa)
             Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTUnidadesMedidaAlias(Optional CveEmpresa As Integer = -1) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTUnidadesMedidaAlias{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTUnidadesMedidaAlias-{0}", CveEmpresa)
             'sino existe, recarga los datos
             If DirectCast(Application(AppNombre), DataTable) Is Nothing Or (DirectCast(Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(Application(AppNombre), DataTable).Rows.Count = 0) Then
                 Dim ObjUnidadesMedida As New ClsUnidadesMedida()
@@ -807,7 +810,7 @@ Public Class ClsPaginas
             End If
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTUnidadesMedidaAlias{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTUnidadesMedidaAlias-{0}", CveEmpresa)
             Application(AppNombre) = value
             'Dim ObjUnidadesMedida As New ClsUnidadesMedida()
             'If ObjUnidadesMedida.GetUnidadesMedidaAlias(CveEmpresa, -1) Then Application(AppNombre) = ObjUnidadesMedida.DtResultados
@@ -894,7 +897,7 @@ Public Class ClsPaginas
     End Property
     Public Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTSubProyectos{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
             'sino existe, recarga los datos
             If DirectCast(Application(AppNombre), DataTable) Is Nothing Or (DirectCast(Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(Application(AppNombre), DataTable).Rows.Count = 0) Then
                 Dim P As New ClsSubProyectos
@@ -926,13 +929,13 @@ Public Class ClsPaginas
 
         End Get
         Set(ByVal value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTSubProyectos{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
             Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTSubProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEstatus As Integer = -1) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTSubProyectosUsuarios{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTSubProyectosUsuarios-{0}", CveEmpresa)
             If Application(AppNombre) Is Nothing Then
                 Dim ObjSubProyectos As New ClsSubProyectos()
                 If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = ObjSubProyectos.DtResultados Else Alert("Ocurrió un error al cargar los SubProyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError)
@@ -965,7 +968,7 @@ Public Class ClsPaginas
 
         End Get
         Set(ByVal value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTSubProyectosUsuarios{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTSubProyectosUsuarios-{0}", CveEmpresa)
             Application(AppNombre) = value
         End Set
     End Property
@@ -1177,7 +1180,7 @@ Public Class ClsPaginas
     End Property
     Public Property GlobalDTPSSimplificado(CveEmpresa As Integer, Optional CveClasificacion As Integer = -1, Optional PSCodigo As String = "-1", Optional Estatus As Integer = 1, Optional AplicaParaVenta As Integer = -1, Optional CvePS As Integer = -1) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTPSSimplificado{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)
             If CveEmpresa <> -1 Then
                 'sino existe, recarga los datos
                 If Application(AppNombre) Is Nothing Then
@@ -1208,13 +1211,13 @@ Public Class ClsPaginas
             End If
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTPSSimplificado{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTPSSimplificado-{0}", CveEmpresa)
             Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTProductosServiciosAlias(CveEmpresa As Integer, Optional Estatus As Integer = 1) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTProductosServiciosAlias{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTProductosServiciosAlias-{0}", CveEmpresa)
             'sino existe, recarga los datos
             If Application(AppNombre) Is Nothing Then
                 Dim ObjPS As New ClsProductosServicios
@@ -1237,13 +1240,13 @@ Public Class ClsPaginas
             End If
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTProductosServiciosAlias{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTProductosServiciosAlias-{0}", CveEmpresa)
             Application(AppNombre) = value
         End Set
     End Property
     Public Property GlobalDTProductosServiciosEquivalencias(CvePS As Integer, CveUM As Integer, CveEmpresa As Integer) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTProductosServiciosEquivalencias{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTProductosServiciosEquivalencias-{0}", CveEmpresa)
             If CveEmpresa <> -1 Then
                 'sino existe, recarga los datos
                 If Application(AppNombre) Is Nothing Then
@@ -1267,7 +1270,7 @@ Public Class ClsPaginas
             End If
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTProductosServiciosEquivalencias{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTProductosServiciosEquivalencias-{0}", CveEmpresa)
             Application(AppNombre) = value
 
         End Set
@@ -1290,7 +1293,7 @@ Public Class ClsPaginas
 
     Property GlobalDTPSAdicionales(CvePS As Integer, CveEmpresa As Integer) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTPSAdicionales{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTPSAdicionales-{0}", CveEmpresa)
             If CveEmpresa <> -1 Then
                 'sino existe, recarga los datos
                 If Application(AppNombre) Is Nothing Then
@@ -1313,7 +1316,7 @@ Public Class ClsPaginas
             End If
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTPSAdicionales{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTPSAdicionales-{0}", CveEmpresa)
             Application(AppNombre) = value
 
         End Set
@@ -1367,7 +1370,7 @@ Public Class ClsPaginas
     End Property
     Property GlobalDTImpuestosLocales(CvePS As Integer, CveEmpresa As Integer) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTImpuestosLocales{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTImpuestosLocales-{0}", CveEmpresa)
             'sino existe, recarga los datos
             If Application(AppNombre) Is Nothing Then
                 Dim ObjPS As New ClsProductosServicios
@@ -1388,7 +1391,7 @@ Public Class ClsPaginas
             End If
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTImpuestosLocales{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTImpuestosLocales-{0}", CveEmpresa)
             Application(AppNombre) = value
             'Dim ObjPS As New ClsProductosServicios
             'If ObjPS.GetPSImpuestosLocales(-1, CveEmpresa) Then Application(AppNombre) = ObjPS.DtResultados
@@ -1512,7 +1515,7 @@ Public Class ClsPaginas
     'Cliente
     Property GlobalDTCliente(CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional CveCliente As Integer = -1) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTCliente{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTCliente-{0}", CveEmpresa)
             'sino existe, recarga los datos
             If Application(AppNombre) Is Nothing Then
                 Dim ObjClientes As New ClsClientes
@@ -1537,13 +1540,13 @@ Public Class ClsPaginas
             End If
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTCliente{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTCliente-{0}", CveEmpresa)
             Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTClienteClasificaciones(CveEmpresa As Integer) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones-{0}", CveEmpresa)
             'sino existe, recarga los datos
             If Application(AppNombre) Is Nothing Then
                 Dim ObjClientes As New ClsClientes
@@ -1560,7 +1563,7 @@ Public Class ClsPaginas
             End If
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTClienteClasificaciones-{0}", CveEmpresa)
             Application(AppNombre) = value
         End Set
     End Property
@@ -1581,7 +1584,7 @@ Public Class ClsPaginas
     'Variables para Ventas
     Property GlobalDTVendedores(CveEmpresa As Integer, Optional Estatus As Boolean = True, Optional VendedorTipo As Integer = 1) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTVendedores{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTVendedores-{0}", CveEmpresa)
             'sino existe, recarga los datos
             If Application(AppNombre) Is Nothing Then
                 Dim ObjVendedores As New ClsVtaVendedores
@@ -1597,7 +1600,7 @@ Public Class ClsPaginas
             End If
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTVendedores{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTVendedores-{0}", CveEmpresa)
             Application(AppNombre) = value
         End Set
     End Property
@@ -1617,7 +1620,7 @@ Public Class ClsPaginas
     End Property
     Property GlobalDTCompProveedores(CveEmpresa As Integer) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTCompProveedores{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTCompProveedores-{0}", CveEmpresa)
             'sino existe, recarga los datos
             If Application(AppNombre) Is Nothing Then
                 Dim ObjProveedores As New ClsCompProveedores
@@ -1635,7 +1638,7 @@ Public Class ClsPaginas
 
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTCompProveedores{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTCompProveedores-{0}", CveEmpresa)
             Application(AppNombre) = value
             'Dim ObjProveedores As New ClsCompProveedores
             'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then Application(AppNombre) = ObjProveedores.DtResultados
@@ -1669,7 +1672,7 @@ Public Class ClsPaginas
     End Property
     Property GlobalDTContratosTipos(CveEmpresa As Integer) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTContratosTipos{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTContratosTipos-{0}", CveEmpresa)
 
             'sino existe, recarga los datos
             If Application(AppNombre) Is Nothing Then
@@ -1682,7 +1685,7 @@ Public Class ClsPaginas
 
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTContratosTipos{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTContratosTipos-{0}", CveEmpresa)
             Application(AppNombre) = value
         End Set
     End Property
@@ -2850,7 +2853,7 @@ Public Class ClsPaginas
     Property GlobalDTRHPersonal(CveEmpresa As Integer, Optional CvePersonal As Integer = -1) As DataTable
 
         Get
-            Dim AppNombre As String = String.Format("GlobalDTRHPersonal{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTRHPersonal-{0}", CveEmpresa)
             'sino existe, recarga los datos
             If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
                 Dim ObjPersonal As New ClsRH
@@ -2872,7 +2875,7 @@ Public Class ClsPaginas
 
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTRHPersonal{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTRHPersonal-{0}", CveEmpresa)
             Application(AppNombre) = value
         End Set
 
@@ -3275,7 +3278,7 @@ Public Class ClsPaginas
 
     Property GlobalDTAcumGarantiasMesesTipoUso(CveEmpresa As Integer, CveMarca As Integer) As DataTable
         Get
-            Dim AppNombre As String = String.Format("GlobalDTAcumGarantiasMesesTipoUso{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTAcumGarantiasMesesTipoUso-{0}", CveEmpresa)
             If Application(AppNombre) Is Nothing Then
                 Dim ObjAcumuladores As New ClsAcumuladores()
                 If ObjAcumuladores.GarantiasMesesGet(-1, -1) Then Application(AppNombre) = ObjAcumuladores.DtResultados.FiltraParametros("", DistinctColumns:={"CveMarca", "CveTipoUso", "TipoUso"})
@@ -3295,7 +3298,7 @@ Public Class ClsPaginas
 
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = String.Format("GlobalDTAcumGarantiasMesesTipoUso{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTAcumGarantiasMesesTipoUso-{0}", CveEmpresa)
             Application(AppNombre) = value
         End Set
     End Property
@@ -4067,6 +4070,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Contabilidad2/RepAnexoCatalogoSAT.aspx".ToUpper(), 618)
             PaginaDict.Add("/Contabilidad2/MovimientosConProveedores.aspx".ToUpper(), 619)
             PaginaDict.Add("/Contabilidad2/RepBalanceGeneral.aspx".ToUpper(), 530)
+            PaginaDict.Add("/Contabilidad2/CatCuentasAsignaciones.aspx".ToUpper(), 724)
 #End Region
             'CONTRATOS
 #Region "Contratos"
@@ -5132,20 +5136,55 @@ Public Class ClsPaginas
         'limpio ReportViwer   
         Dim sw As New System.Diagnostics.Stopwatch()
         sw.Start()
+        'Dim Bytes As Byte() = Nothing
+        'Try
+        '    Dim fllreport As New ADSReportLib.FullTrustReportviewer()
+        '    fllreport.Initialize("DisplayName", RutaReporte, Parametros, New List(Of String()), True)
+        '    For Each RDS As ReportDataSource In DataSource
+        '        fllreport.AddDataSources(RDS)
+        '    Next
+        '    Dim Warnings As Warning() = Nothing
+        '    Dim StreamIds As String() = Nothing
+        '    Dim MimeType As String = Nothing
+        '    Dim Encoding As String = Nothing
+        '    Dim Extension As String = Nothing
+        '    Bytes = fllreport.Render(Formato, Nothing, MimeType, Encoding, Extension, StreamIds, Warnings)
+        '    fllreport = Nothing
+        'Catch ex As Microsoft.Reporting.WebForms.ScriptManagerNotFoundException
+        '    GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) }  | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}")
+        '    'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017
+        '    'GuardaLog($"Error: {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}")
+        'Catch ex As Exception
+        '    GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) }  | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}")
+        ''HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017
+        ''GuardaLog($"Error {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}")
+        'End Try
+
+        If IsNothing(MR) Then MR = New ReportViewer
 
         Dim Bytes As Byte() = Nothing
         Try
-            Dim fllreport As New ADSReportLib.FullTrustReportviewer()
+
-            fllreport.Initialize("DisplayName", RutaReporte, Parametros, New List(Of String()), True)
             For Each RDS As ReportDataSource In DataSource
-                fllreport.AddDataSources(RDS)
+                MR.LocalReport.DataSources.Add(RDS)
             Next
+            'Dim permissions As New Security.PermissionSet(Security.Permissions.PermissionState.None)
+            'permissions.AddPermission(New Security.Permissions.FileIOPermission(Security.Permissions.PermissionState.Unrestricted))
+            'permissions.AddPermission(New Security.Permissions.SecurityPermission(Security.Permissions.SecurityPermissionFlag.Execution))
+            'MR.LocalReport.SetBasePermissionsForSandboxAppDomain(permissions)
+
+            MR.LocalReport.ReportPath = RutaReporte
+            MR.ProcessingMode = ProcessingMode.Local
+            MR.LocalReport.EnableExternalImages = True
+            MR.LocalReport.SetParameters(Parametros)
+            MR.LocalReport.Refresh()
             Dim Warnings As Warning() = Nothing
             Dim StreamIds As String() = Nothing
             Dim MimeType As String = Nothing
             Dim Encoding As String = Nothing
             Dim Extension As String = Nothing
-            Bytes = fllreport.Render(Formato, Nothing, MimeType, Encoding, Extension, StreamIds, Warnings)
+            Bytes = MR.LocalReport.Render(Formato, Nothing, MimeType, Encoding, Extension, StreamIds, Warnings)
+
         Catch ex As Microsoft.Reporting.WebForms.ScriptManagerNotFoundException
             GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) }  | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}")
             'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017
@@ -5155,6 +5194,8 @@ Public Class ClsPaginas
             'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017
             'GuardaLog($"Error {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}")
         End Try
+        MR.LocalReport.ReleaseSandboxAppDomain()
+        MR.Dispose()
 
         sw.Stop()
         If sw.Elapsed.TotalSeconds > 10 Then
@@ -5285,7 +5326,7 @@ Public Class ClsPaginas
 
     Public Function ImprimirPDFPyME(RutaReporte As String, DataSource As DataSet, Parametros As List(Of CrystalParametro), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional MR As StiReport = Nothing) As Byte()
 
-        If IsNothing(MR) Then MR = New StiReport()
+        If IsNothing(MR) Then MR = New Stimulsoft.Report.StiReport()
         Dim Bytes As Byte() = Nothing
         Try
             MR.Load(RutaReporte)
@@ -5301,15 +5342,19 @@ Public Class ClsPaginas
             MR.Dictionary.Synchronize()
             MR.IsRendered = False
             MR.Render(False)
-            Dim pdfSettings As New StiPdfExportSettings()
+            Dim pdfSettings As New Stimulsoft.Report.Export.StiPdfExportSettings()
             Dim MemoryStream As New MemoryStream
             Select Case Formato
                 Case "PDF"
-                    MR.ExportDocument(StiExportFormat.Pdf, MemoryStream, pdfSettings)
+                    MR.ExportDocument(Stimulsoft.Report.StiExportFormat.Pdf, MemoryStream, pdfSettings)
                 Case "EXCEL"
-                    MR.ExportDocument(StiExportFormat.Excel2007, MemoryStream, pdfSettings)
+                    MR.ExportDocument(Stimulsoft.Report.StiExportFormat.Excel2007, MemoryStream, pdfSettings)
             End Select
+
             Bytes = MemoryStream.ToArray
+            MR.RenderedPages.Clear()
+            MR.Dispose()
+            MemoryStream.Dispose()
         Catch ex As Exception
             GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, ex.Message) }  | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))} - Ruta {RutaReporte}")
             'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017

App_Code/ClsSisUsuarios.vb

@@ -3156,7 +3156,7 @@ End Class
 '            ' TODO: Establecer campos grandes como Null.
 '        End If
 '        Me.disposedValue = True
-'    End Sub
+'    End Sub 
 
 '#Region " IDisposable Support "
 '    ' Visual Basic agregó este código para implementar correctamente el modelo descartable.

Compras/Compras.aspx.vb

@@ -6357,7 +6357,7 @@ Partial Class Compras_Compras
                                                                                     CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
                                                                                 End If
                                                                             End If
-                                                                            If importeMovimiento <> 0 Then
+                                                                            If importeMN <> 0 Then
                                                                                 'Conta ContPAQ
                                                                                 If IdCtaContable = 0 Then
                                                                                     CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
@@ -6368,7 +6368,7 @@ Partial Class Compras_Compras
                                                                                     CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
                                                                                     CveCuentaContabilizacion = 0
                                                                                 End If
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
                                                                                     ErrorPrepoliza = True
                                                                                 End If
                                                                             End If
@@ -14820,14 +14820,14 @@ Partial Class Compras_Compras
     End Sub
     Private Sub CargaVinculacionOC(Optional CargaInicial As Boolean = False)
         'FILTRAMOS SOLO PENDIENTES POR SURTIR
-        DTOCGV = DTOCTemp.FiltraParametros("CantidadDisponible > 0", "CveOrdenCompra").Copy
+        DTOCGV = DTOCTemp.FiltraParametros("CantidadPendienteVincular > 0", "CveOrdenCompra").Copy
 
         'SI PUEDE RECIBIR POR OC Y COMPRA
         If UsuarioActual.CveEmpresa.Contiene(119) Then
             If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 And Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
                 Select Case DdlOCVinculaInv.SelectedValue.ToEntero
                     Case 176
-                        DTOCGV = DTOCGV.FiltraParametros("((EstatusInventario IN (3,5) AND CveTipoPS = 2) OR CveTipoPS = 1) AND CantidadPorAdelantado > 0")
+                        DTOCGV = DTOCGV.FiltraParametros("((EstatusInventario IN (3,5) AND CveTipoPS = 2) OR CveTipoPS = 1)")
                     Case 205
                         DTOCGV = DTOCGV.FiltraParametros("(EstatusInventario IN (1,2) AND CveTipoPS = 2) OR CveTipoPS = 1")
                 End Select
@@ -14896,7 +14896,7 @@ Partial Class Compras_Compras
 
         Dim Cont As Integer = 0
         For Each gvr As GridViewRow In GvOC1.Rows
-            RegistraScript($"CalculaTotalOCEdit('{gvr.DataKey("PS").Replace("'", "")}', {gvr.DataKey("CantidadDisponible").ToString.ToDouble}, {gvr.FCTextBox("TxtCantidad").ClientID}, {gvr.FCTextBox("TxtPU").ClientID}, {gvr.FCTextBox("TxtTotalOC1").ClientID}, {gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {gvr.DataKey("IVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IVA").ClientID},{gvr.DataKey("RetIVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetIVA").ClientID},{gvr.DataKey("RetISR").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetISR").ClientID},{gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSIVA").ClientID},{gvr.DataKey("Descuento")},{gvr.FCHiddenField("HdnOC1Descuento").ClientID},{gvr.DataKey("IVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetIVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetISRPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSIVAPorcentaje").ToString.ToDouble});", $"Gv{Cont}")
+            RegistraScript($"CalculaTotalOCEdit('{gvr.DataKey("PS").Replace("'", "")}', {gvr.DataKey("CantidadPendienteVincular").ToString.ToDouble}, {gvr.FCTextBox("TxtCantidad").ClientID}, {gvr.FCTextBox("TxtPU").ClientID}, {gvr.FCTextBox("TxtTotalOC1").ClientID}, {gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {gvr.DataKey("IVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IVA").ClientID},{gvr.DataKey("RetIVA").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetIVA").ClientID},{gvr.DataKey("RetISR").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1RetISR").ClientID},{gvr.DataKey("IEPSPS").ToString.ToDouble},{gvr.FCHiddenField("HdnOC1IEPSIVA").ClientID},{gvr.DataKey("Descuento")},{gvr.FCHiddenField("HdnOC1Descuento").ClientID},{gvr.DataKey("IVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetIVAPorcentaje").ToString.ToDouble},{gvr.DataKey("RetISRPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSPorcentaje").ToString.ToDouble},{gvr.DataKey("IEPSPSIVAPorcentaje").ToString.ToDouble});", $"Gv{Cont}")
             Cont += 1
         Next
 
@@ -14912,8 +14912,8 @@ Partial Class Compras_Compras
     Protected Sub GvOC1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOC1.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            Dim JSCambiaScript = $"CalculaTotalOCEdit('{e.Row.DBCampo("PS").Replace("'", "")}', {e.Row.DBCampo("CantidadDisponible").ToString.ToDouble}, {e.Row.FCTextBox("TxtCantidad").ClientID}, {e.Row.FCTextBox("TxtPU").ClientID}, {e.Row.FCTextBox("TxtTotalOC1").ClientID}, {e.Row.DBCampo("IEPSPS").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {e.Row.DBCampo("IVA").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IVA").ClientID},{e.Row.DBCampo("RetIVA").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1RetIVA").ClientID},{e.Row.DBCampo("RetISR").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1RetISR").ClientID},{e.Row.DBCampo("IEPSPS").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IEPSIVA").ClientID},{e.Row.DBCampo("Descuento")},{e.Row.FCHiddenField("HdnOC1Descuento").ClientID},{e.Row.DBCampo("IVAPorcentaje").ToString.ToDouble},{e.Row.DBCampo("RetIVAPorcentaje").ToString.ToDouble},{e.Row.DBCampo("RetISRPorcentaje").ToString.ToDouble},{e.Row.DBCampo("IEPSPSPorcentaje").ToString.ToDouble},{e.Row.DBCampo("IEPSPSIVAPorcentaje").ToString.ToDouble});"
+            Dim JSCambiaScript = $"CalculaTotalOCEdit('{e.Row.DBCampo("PS").Replace("'", "")}', {e.Row.DBCampo("CantidadPendienteVincular").ToString.ToDouble}, {e.Row.FCTextBox("TxtCantidad").ClientID}, {e.Row.FCTextBox("TxtPU").ClientID}, {e.Row.FCTextBox("TxtTotalOC1").ClientID}, {e.Row.DBCampo("IEPSPS").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IEPSImporte").ClientID}, {e.Row.DBCampo("IVA").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IVA").ClientID},{e.Row.DBCampo("RetIVA").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1RetIVA").ClientID},{e.Row.DBCampo("RetISR").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1RetISR").ClientID},{e.Row.DBCampo("IEPSPS").ToString.ToDouble},{e.Row.FCHiddenField("HdnOC1IEPSIVA").ClientID},{e.Row.DBCampo("Descuento")},{e.Row.FCHiddenField("HdnOC1Descuento").ClientID},{e.Row.DBCampo("IVAPorcentaje").ToString.ToDouble},{e.Row.DBCampo("RetIVAPorcentaje").ToString.ToDouble},{e.Row.DBCampo("RetISRPorcentaje").ToString.ToDouble},{e.Row.DBCampo("IEPSPSPorcentaje").ToString.ToDouble},{e.Row.DBCampo("IEPSPSIVAPorcentaje").ToString.ToDouble});"
-            e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", $"LimitaCantidadOC({e.Row.DBCampo("CantidadDisponible")}, this);{JSCambiaScript}")
+            e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", $"LimitaCantidadOC({e.Row.DBCampo("CantidadPendienteVincular")}, this);{JSCambiaScript}")
             e.Row.FCTextBox("TxtPU").Attributes.Add("onkeyup", JSCambiaScript)
 
             e.Row.FCTextBox("TxtCantidad").Attributes.Add("onblur", $"ValidaImporteCero('{e.Row.DBCampo("PS").Replace("'", "")}',{e.Row.FCTextBox("TxtCantidad").ClientID}, {e.Row.FCTextBox("TxtPU").ClientID});")
@@ -15225,7 +15225,7 @@ Partial Class Compras_Compras
                     TmpDT.Rows(Index)("TipoAF") = 1
                 End If
                 'actualizo los movimientos registrados 
-                DTOCGV.Rows(gvr.RowIndex)("CantidadDisponible") = Cantidad
+                DTOCGV.Rows(gvr.RowIndex)("CantidadPendienteVincular") = Cantidad
                 DTOCGV.Rows(gvr.RowIndex)("Importe") = PU
                 DTOCGV.Rows(gvr.RowIndex)("Total") = Total
 
@@ -15485,7 +15485,7 @@ Partial Class Compras_Compras
             TmpDT.Rows(IndexVinculacionOC)("TipoAF") = 1
         End If
         'actualizo los movimientos registrados 
-        DTOCGV.Rows(gvr.RowIndex)("CantidadDisponible") = Cantidad
+        DTOCGV.Rows(gvr.RowIndex)("CantidadPendienteVincular") = Cantidad
         DTOCGV.Rows(gvr.RowIndex)("Importe") = PU
         DTOCGV.Rows(gvr.RowIndex)("Total") = Total
     End Sub

Contabilidad2/CatCuentasAsignaciones.aspx

@@ -0,0 +1,124 @@
+<%@ Page Title="Contabilidad2 - Catálogo Cuentas Asignación" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatCuentasAsignaciones.aspx.vb" Inherits="Contabilidad2_CatCuentasAsignaciones" %>
+
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Catálogo de Cuentas Asignación.
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpAgregar">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton runat="server" ID="BtnAgregarMotivoD" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Motivo Baja"></asp:LinkButton>
+            </li>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:GridView runat="server" ID="GvDatos" EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Motivo de Baja" CssClass="table table-striped table-advance table-hover ScrollAD" 
+                DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,IdCuenta,CveProveedor,CveCliente,CvePersonal,CveClasificacion,CveAlmacen,PorcentajeIVA" AutoGenerateColumns="False" 
+                Style="margin-top: -10px; text-align: center;width:100%" GridLines="None">
+                <Columns>
+                    <asp:BoundField DataField="ConceptoContable" HeaderText="Concepto Contable" ItemStyle-HorizontalAlign="Left"/>
+                    <asp:BoundField DataField="CuentaNombre" HeaderText="Nombre Cuenta" ItemStyle-HorizontalAlign="Left"/>
+                    <asp:BoundField DataField="IdCuenta" HeaderText="Id Cuenta" ItemStyle-HorizontalAlign="Left"/>
+                    <asp:BoundField DataField="ProveedorNombre" HeaderText="Nombre Proveedor" ItemStyle-HorizontalAlign="Left"/>
+                    <asp:BoundField DataField="ClienteNombre" HeaderText="Nombre Cliente" ItemStyle-HorizontalAlign="Left"/>
+                    <asp:BoundField DataField="PersonalNombre" HeaderText="Nombre Personal" ItemStyle-HorizontalAlign="Left"/>
+                    <asp:BoundField DataField="Clasificacion" HeaderText="Clasificación" ItemStyle-HorizontalAlign="Left"/>
+                    <asp:BoundField DataField="Almacen" HeaderText="Almacén" ItemStyle-HorizontalAlign="Left"/>
+                    <asp:BoundField DataField="PorcentajeIVA" HeaderText="Porcentaje IVA" ItemStyle-HorizontalAlign="Left"/>
+                    <asp:TemplateField ItemStyle-Width="99px">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="ImgE" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="ActualizaModulo" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField ItemStyle-Width="83px">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="ImgEE" runat="server" AlternateText="Eliminar" CausesValidation="False" OnClick="EliminarRow" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                </Columns>
+            </asp:GridView>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpModal">
+        <ContentTemplate>
+            <div id="ModalCat" class="modal ADS fade" role="dialog">
+                <div class="modal-dialog" style="width: 450px;">
+                    <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalModulos" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <div class="modal-header ">
+                                <button type="button" class="close" data-dismiss="modal">×</button>
+                                <h4 class="modal-title">
+                                    <asp:Literal ID="LtlTituloModalTiposD" runat="server">Cuentas Asignación</asp:Literal>
+                                </h4>
+                            </div>
+                            <div class="modal-body" style="text-align:center">
+                                <div class="row">
+
+                                    <div class="col-md-1" style="width:50%;text-align:left">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlCconceptosContables" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
+                                            <label for="<%= DdlCconceptosContables.ClientID.ToString()%>">Concepto Contable: </label>
+                                        </div>
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlCuenta" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
+                                            <label for="<%= DdlCuenta.ClientID.ToString()%>">Concepto Contable: </label>
+                                        </div>
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtIdCuentaContable" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true" style="width:100%"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RFVClave" runat="server" ControlToValidate="TxtIdCuentaContable" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨IdCuentaContable''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo"></asp:RequiredFieldValidator>
+                                            <label for="<%= TxtIdCuentaContable.ClientID.ToString()%>">IdCuentaContable:</label>
+                                        </div>
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlProveedor" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
+                                            <label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor: </label>
+                                        </div>
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <label for="<%= DdlClientes.ClientID.ToString()%>">Cliente: </label><br />
+                                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="90%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-1" style="width:50%;text-align:left">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <label for="<%= DdlPersonal.ClientID.ToString()%>">Personal: </label><br />
+                                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlPersonal" Width="90%" data-metodo="getpersonal" runat="server" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssStyle="width: 100%;"></ADS:Dropdownlost>
+                                        </div>
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlClasificacion" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
+                                            <label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación: </label>
+                                        </div>
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlAlmacen" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Almacen" DataValueField="CveAlmacen" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
+                                            <label for="<%= DdlAlmacen.ClientID.ToString()%>">Almacén: </label>
+                                        </div>
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtPorcentajeIVA" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true" style="width:100%"></asp:TextBox>
+                                            <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtPorcentajeIVA" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨PorcentajeIVA''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo"></asp:RequiredFieldValidator>
+                                            <label for="<%= TxtPorcentajeIVA.ClientID.ToString()%>">PorcentajeIVA:</label>
+                                        </div>
+                                    </div>
+                                </div>
+                            </div>
+                            <div class="modal-footer">
+                                <asp:LinkButton ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpModulo" />
+                                <button id="BtnCancelarProyecto" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                            </div>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -0,0 +1,147 @@
+Imports System.Data
+Imports System.Linq
+Imports Extensiones
+
+Partial Class Contabilidad2_CatCuentasAsignaciones
+    Inherits ClsPaginas
+
+    Private Property CveConceptoAsignacion() As Integer 'Guardamos el ID de registro para saber cual registro Editar
+        Get
+            Return If(IsNothing(ViewState("CveConceptoAsignacion")), -1, CInt(ViewState("CveConceptoAsignacion")))
+        End Get
+        Set
+            ViewState("CveConceptoAsignacion") = Value
+        End Set
+    End Property
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CargaDatos()
+            CargaDatosModal()
+        End If
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetCuentasAsignaciones(UsuarioActual.CveEmpresa) Then
+            GvDatos.DataSource = ObjConta.DtResultados
+        End If
+        ObjConta.Dispose()
+        GvDatos.DataBind()
+    End Sub
+
+    Private Sub CargaDatosModal()
+        Dim ObjConta As New ClsContabilidad
+        Dim ObjProveedores As New ClsCompProveedores
+        Dim ObjRH As New ClsRH
+        Dim ObjClasificaciones As New ClsClasificaciones
+        Dim ObjInv As New ClsInventarios
+
+        If ObjConta.GetConta_ConceptosContables() Then
+            DdlCconceptosContables.DataSource = ObjConta.DtResultados
+        End If
+
+        If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+            DdlCuenta.DataSource = ObjConta.DtResultados
+        End If
+
+        If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+            DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        End If
+
+        DdlClientes.setEsWebService(True)
+
+        If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
+            DdlPersonal.DataSource = ObjRH.DtResultados
+        End If
+
+        If ObjClasificaciones.GetClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa) Then
+            DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
+        End If
+
+        If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
+            DdlAlmacen.DataSource = ObjInv.DtResultados
+        End If
+
+        ObjConta.Dispose()
+        ObjProveedores.Dispose()
+        ObjRH.Dispose()
+        ObjClasificaciones.Dispose()
+        ObjInv.Dispose()
+
+
+        DdlCconceptosContables.DataBind()
+        DdlCuenta.DataBind()
+        DdlProveedor.DataBind()
+        DdlPersonal.DataBind()
+        DdlClasificacion.DataBind()
+        DdlAlmacen.DataBind()
+
+        DdlCconceptosContables.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    End Sub
+
+    Protected Sub ActualizaModulo(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        CveConceptoAsignacion = GvRow.DataKey("CveCuentaAsignacion").ToEntero
+        DdlCconceptosContables.SelectedValue = GvRow.DataKey("CveConceptoContable").ToEntero
+        DdlCuenta.SelectedValue = GvRow.DataKey("CveCuenta").ToEntero
+        DdlProveedor.SelectedValue = GvRow.DataKey("CveProveedor").ToEntero
+        DdlClasificacion.SelectedValue = GvRow.DataKey("CveClasificacion").ToEntero
+        DdlAlmacen.SelectedValue = GvRow.DataKey("CveAlmacen").ToEntero
+        TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta")
+        TxtPorcentajeIVA.Text = GvRow.DataKey("PorcentajeIVA")
+        LbAgregar.Text = "Actualizar"
+        UpModalModulos.Update()
+        RegistraScript("$('#ModalCat').modal();")
+    End Sub
+
+    Protected Sub EliminarRow(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.RemoveCuentasAsignaciones(GvRow.DataKey("CveCuentaAsignacion").ToEntero) Then
+            Alert("se elimino correctamente")
+        End If
+        ObjConta.Dispose()
+    End Sub
+
+    Protected Sub BtnAgregarMotivoD_Click(sender As Object, e As EventArgs) Handles BtnAgregarMotivoD.Click
+        CveConceptoAsignacion = -1
+        DdlCconceptosContables.SelectedValue = -1
+        DdlCuenta.SelectedValue = -1
+        DdlProveedor.SelectedValue = -1
+        DdlClasificacion.SelectedValue = -1
+        DdlAlmacen.SelectedValue = -1
+        TxtIdCuentaContable.Text = ""
+        TxtPorcentajeIVA.Text = ""
+        LbAgregar.Text = "Agregar"
+        UpModalModulos.Update()
+        RegistraScript("$('#ModalCat').modal();")
+    End Sub
+
+    Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
+        Dim ObjConta As New ClsContabilidad
+        Dim ErrorString As String = ""
+        If LbAgregar.Text = "Agregar" Then
+            If ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
+                                               DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
+                                               DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
+                ErrorString = "Error al Agregar"
+            End If
+        ElseIf LbAgregar.Text = "Actualizar" Then
+            If ObjConta.UpdateCuentasAsignaciones(CveConceptoAsignacion, DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
+                                               DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
+                                               DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
+                ErrorString = "Error al Actualizar"
+            End If
+        End If
+        ObjConta.Dispose()
+        RegistraScript("$('#ModalCat').modal('hide');")
+        If ErrorString.Length > 0 Then
+            Alert(ErrorString)
+        End If
+    End Sub
+End Class

Inventarios/PopUpExistenciasAlmacen.aspx

@@ -121,6 +121,7 @@
                                 <asp:BoundField DataField="Existencia" ItemStyle-HorizontalAlign="Right" HeaderText="Existencia" DataFormatString="{0:#,###.######}" />
                                 <asp:BoundField DataField="PendientePorSurtir" ItemStyle-HorizontalAlign="Right" HeaderText="Pendiente Por Surtir" DataFormatString="{0:#,###.######}" />                              
                                 <asp:BoundField DataField="ExistenciaFinal" ItemStyle-HorizontalAlign="Right" HeaderText="Existencia Real" DataFormatString="{0:#,###.######}" />
+                                <asp:BoundField DataField="Importe" ItemStyle-HorizontalAlign="Right" HeaderText="Precio" DataFormatString="{0:N2}"/>
                                 <asp:BoundField DataField="CantidadDisponibleInv" ItemStyle-HorizontalAlign="Right" HeaderText="Pendiente Por Recibir" DataFormatString="{0:#,###.######}" Visible="false"/>
                             </Columns>
                         </asp:GridView>                    

Sistemas/CatSesiones.aspx.vb

@@ -107,6 +107,7 @@ Partial Class Sistemas_CatSesiones
     Private Sub CargaSATMotivoTraslado()
         Dim ObjGrales As New ClsGenerales
         If ObjGrales.GetSATMotivoTraslado Then Application("GlobalDTSATMotivoTraslado") = ObjGrales.DtResultados Else Application("GlobalDTSATMotivoTraslado") = Nothing
+        If ObjGrales.GetSATProductosServicios Then Application("GlobalDTPSATPS") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATPS") = Nothing
         ObjGrales.Dispose()
     End Sub
 

Ventas/Ventas.aspx.vb

@@ -8767,12 +8767,16 @@ Partial Class Ventas
         Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)
         Timbre.Comprobante.Total = Obj.Total
 
-        Try
+        'Try
-            Obj.SetSubProyecto(Me)
+        'Obj.SetSubProyecto(Me)
-            Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
+        Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
-        Catch ex As Exception
+            If Timbre.Comprobante.LugarExpedicion = "" Then
+                Dim aa As String = "no se guardo lugar de expedicion"
+                aa.GuardaLog()
+            End If
+        'Catch ex As Exception
 
-        End Try
+        'End Try
 
         Timbre.Comprobante.Confirmacion = ""
 

vwd.webinfo

@@ -38,8 +38,6 @@
     
   
     
-  
-