From f6b3dbb9e0e82763f898d8b6e3a34907e4e65369 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 12 Nov 2019 13:46:28 -0700
Subject: [PATCH] cuando el estatusinvenario, es 5, solo recibidas por almacen

---
 App_Code/ClsTSoft.vb                    | 8 +++++---
 Bancos/RepEgresosSinComprobante.aspx.vb | 8 ++++++--
 Compras/Compras.aspx.vb                 | 2 +-
 3 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/App_Code/ClsTSoft.vb b/App_Code/ClsTSoft.vb
index 201d58cd6..02b128961 100644
--- a/App_Code/ClsTSoft.vb
+++ b/App_Code/ClsTSoft.vb
@@ -30,10 +30,12 @@ Public Class ClsTSoft
         End With
 
         Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex2 As SqlClient.SqlException
+            GuardaLogAD(String.Format("Ocurrió un Error al agregar la Remision.{0}{1}", ex2.ToString, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()), "LogGPS")
         Catch ex As Exception
-            OnError("Ocurrió un Error al agregar la Remision.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            OnError("Ocurrió un Error al agregar la Remision.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
 
         Return Retorno
diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb
index 33322b9bd..6f69c7760 100644
--- a/Bancos/RepEgresosSinComprobante.aspx.vb
+++ b/Bancos/RepEgresosSinComprobante.aspx.vb
@@ -206,6 +206,8 @@ Partial Class Bancos_RepEgresosSinComprobante
                 If gr.FCCheckBox("Chk").Checked Then
                     Dim CveCuenta As Integer = 0
                     Dim IdCtaContable As Integer = 0
+                    Dim TipoMovtoOtIngresos As Boolean = True
+                    Dim TipoMovtoConcepto As Boolean = False
                     Dim CveConceptoContable As Integer
 
                     Select Case gr.DataKey("CveConceptoContable").ToEntero
@@ -213,6 +215,8 @@ Partial Class Bancos_RepEgresosSinComprobante
                             CveConceptoContable = 21
                         Case 28
                             CveConceptoContable = 29
+                            TipoMovtoOtIngresos = False
+                            TipoMovtoConcepto = True
                         Case 37
                             CveConceptoContable = 43
                         Case 42
@@ -236,14 +240,14 @@ Partial Class Bancos_RepEgresosSinComprobante
                     CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now,
                                                           "Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1,
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1,
                                                          gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
                                                          ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                         Exit For
                     End If
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero,
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero,
                                                          ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveCuenta:=CveCuenta) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                         Exit For
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 4472026cd..fd5cdfd60 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -14369,7 +14369,7 @@ Partial Class Compras_Compras
             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 = 3 AND CveTipoPS = 2) OR CveTipoPS = 1")
+                        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