.

Bancos/PopIEVentas.aspx.vb

@@ -1556,6 +1556,7 @@ Partial Class Bancos_PopIEVentas
                                         Select Case ConceptoContable
                                             Case 2 'Pago Cliente
                                                 If RBLContado.SelectedValue.Contiene("3", "4", "5") Then
+                                                    'If CveMonedaVenta > 1 Then ConceptoContable = 292
                                                     For Each rw As GridViewRow In GvIngresos.Rows
                                                         If rw.FCCheckBox("Chk").Checked Then
                                                             If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then

Compras/Compras.aspx.vb

@@ -19052,7 +19052,7 @@ Partial Class Compras_Compras
         Dim ObjPS As New ClsProductosServicios
         If ObjPS.AddPSSimplificado(PS) > 0 Then
             Alert("El P/S fue agregado correctamente.")
-            RecargaGlobalEquivalencias()
+            GeneraGlobalDT(Nothing)
         End If
         ObjPS.Dispose()
 
@@ -19064,18 +19064,11 @@ Partial Class Compras_Compras
 
         UpAgregarPS.Update()
 
-        RegistraScript("$('#DivAgregarPS').modal('hide');")
+        RegistraScript("$('#DivAgregarPS').modal('hide');")
-        RecargaPSGlobal()
-    End Sub
-    Private Sub RecargaPSGlobal()
-        'GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing
-        'Dim ObjPS As New ClsProductosServicios
 
-        'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable()
-
-        'ObjPS.Dispose()
     End Sub
 
+
 #End Region
 
 #Region "TIPO DE COMPRA"

Ventas/ClientesAbonar.aspx.vb

@@ -900,6 +900,7 @@ Partial Class Ventas_ClientesAbonar
 
                                         Select Case ConceptoContable
                                             Case 2 'Pago Cliente
+                                                'If gvr.DataKey("CveMoneda").ToEntero > 1 Then ConceptoContable = 292
                                                 If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                     ImporteMovimiento = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
                                                     importeMX = ImporteMovimiento

Ventas/Ventas.aspx.vb

@@ -9512,6 +9512,7 @@ Partial Class Ventas
                     Select Case ConceptoContable
                         Case 1 'Cliente
                             If Not ObjFactura.TipoDocto.Contiene("Egs", "Rem", "RNC") Then
+                                If ObjFactura.CveMoneda > 1 Then ConceptoContable = 291
                                 importeMovimiento = (ObjFactura.Total - TotalOtrosConceptos) * ValorMultiplicador
                                 importeMX = importeMovimiento * tipoCambio * Multiplicador
                                 FechaMovimiento = ObjFactura.FechaPago
@@ -9542,6 +9543,7 @@ Partial Class Ventas
                                 CveCuentaCliente = CveCuenta
                             End If
 
+
                         Case 3 'Cliente
 
                             If ObjFactura.TipoDocto = "Ant" Then
@@ -11685,6 +11687,7 @@ Partial Class Ventas
 
                                 Select Case ConceptoContable
                                     Case 2 'Cliente
+                                        'If CveMonedaVenta > 1 Then ConceptoContable = 292
                                         If Not (gvr.DataKey("CveIE").ToString.ToEntero > 0 AndAlso gvr.DataKey("CveConceptoContable").ToString().ToEntero = 66) Then
                                             If DdlMoneda.SelectedValue.ToEntero = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                 importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal

asmx/WSApp.asmx

@@ -67,52 +67,41 @@ Public Class WSApp
             Application("GlobalDTVtaFormaPago") = value
         End Set
     End Property
-    'Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
+    Public Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
-    '    Get
+        Get
+            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
+                If P.GetSubProyectos(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = P.DtResultados
+                P.Dispose()
 
-    '        If DirectCast(Application("GlobalDTSubProyectos"), DataTable) Is Nothing Or (DirectCast(Application("GlobalDTSubProyectos"), DataTable) IsNot Nothing AndAlso DirectCast(Application("GlobalDTSubProyectos"), DataTable).Rows.Count = 0) Then
+                Dim msg As String = "aqui no se carga subproyectos"
-    '            Dim P As New ClsSubProyectos
+                msg.GuardaLog()
-    '            If P.GetSubProyectos Then
-    '                Application("GlobalDTSubProyectos") = P.DtResultados
-    '            End If
-    '            P.Dispose()
 
-    '            Dim msg As String = "aqui no se carga subproyectos"
+            End If
-    '            'If Request IsNot Nothing Then
-    '            '    msg = msg & Request.ServerVariables("URL")
-    '            'End If
-    '            msg.GuardaLog()
 
-    '        End If
+            If CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse Estatus <> -1 Then
+                Dim StrSQL As New StringBuilder
+                If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
+                If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto)
+                If Estatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", Estatus)
+                If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
 
-    '        If CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse Estatus <> -1 Then
+                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
-    '            Dim StrSQL As New StringBuilder
+                GlobalDTSubProyectos = Dv.ToTable
-    '            If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
+                Dv.Dispose()
-    '            If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto)
-    '            If Estatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", Estatus)
-    '            If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
 
-    '            Dim Dv As New DataView(DirectCast(Application("GlobalDTSubProyectos"), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
+            Else
-    '            GlobalDTSubProyectos = Dv.ToTable
+                GlobalDTSubProyectos = DirectCast(Application(AppNombre), DataTable)
-    '            Dv.Dispose()
+            End If
 
-    '        Else
+        End Get
-    '            GlobalDTSubProyectos = DirectCast(Application("GlobalDTSubProyectos"), DataTable)
+        Set(ByVal value As DataTable)
-    '        End If
+            Dim AppNombre As String = String.Format("GlobalDTSubProyectos{0}", CveEmpresa)
-
+            Application(AppNombre) = value
-    '    End Get
+        End Set
-    '    Set(ByVal value As DataTable)
+    End Property
-    '        If value Is Nothing OrElse value.Rows.Count = 0 Then
-    '            Dim msg As String = "aqui no se carga subproyectos"
-    '            'If Request IsNot Nothing Then
-    '            '    msg = msg & Request.ServerVariables("URL")
-    '            'End If
-    '            msg.GuardaLog()
-
-    '        End If
-    '        Application("GlobalDTSubProyectos") = value
-    '    End Set
-    'End Property
     Property GlobalDTSATUsosCFDI(Optional EsPersonaFisica As Integer = -1) As DataTable
         Get
             If EsPersonaFisica <> -1 Then