From d3167378f39541268ba4a198f3022c9d4e78978a Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 11 Jul 2022 17:25:56 -0700 Subject: [PATCH 1/9] --cvemoviientorelacionado transitorio --- App_Code/ClsInventarios.vb | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 04f11c855..81a59e8f0 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -65,6 +65,8 @@ Public Class ClsInventarios Public Property ConceptoRelacionado As String Public Property CveMovimientoVirtual As Integer Public Property FolioVirtual As Integer + Public Property CveMovimientoTransitorio As Integer + Public Property FolioTransitorio As Integer Public Property Folio As Integer Public Property IDPoliza As Integer Public Property CvePrePoliza As Integer @@ -829,7 +831,10 @@ Public Class ClsInventarios TieneRelacionado = If(dr("TieneRelacionado").ToString.ToEntero > 0, 1, -1) ConceptoRelacionado = dr("ConceptoRelacionado").ToString CveMovimientoVirtual = dr("CveMovimientoVirtual").ToString.ToEntero + FolioVirtual = dr("FolioVirtual").ToString.ToEntero + CveMovimientoTransitorio = dr("CveMovimientoTransitorio").ToString.ToEntero + FolioTransitorio = dr("FolioTransitorio").ToString.ToEntero TipoCambio = dr("TipoCambio").ToString.ToDouble FolioVenta = dr("FolioVenta").ToString From 3ad9bcae77106707dc8ea7b66c66531afc4f1804 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 11 Jul 2022 17:26:05 -0700 Subject: [PATCH 2/9] =?UTF-8?q?cambio=20en=20m=C3=B3dulo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/PagoDeudor.aspx.cs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index 4a6183671..c4e0bac4f 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -336,7 +336,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas // DATOS PREPOLIZA if (DdlTipoTransaccionPrestamo.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolioPrestamo.Text.ToEntero(); - CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE PRESTAMO DEUDORES", CvePlantillaPoliza, TxtImportePrestamo.Text.Trim().ToDouble(), TxtImportePrestamo.Text.Trim().ToDouble(), CveMonedaPrestamo, TxtFechaPrestamo.Text.ToDate(), DdlProveedorPrestamo.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransaccionPrestamo.SelectedValue, "-1", UsuarioActual.CveEmpresa)); + CvePrePoliza = ObjMov.AddPrePolizas("PRESTAMO DEUDORES", CvePlantillaPoliza, TxtImportePrestamo.Text.Trim().ToDouble(), TxtImportePrestamo.Text.Trim().ToDouble(), CveMonedaPrestamo, TxtFechaPrestamo.Text.ToDate(), DdlProveedorPrestamo.SelectedText.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransaccionPrestamo.SelectedValue, "-1", UsuarioActual.CveEmpresa)); if (CvePrePoliza > 0) { @@ -671,7 +671,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas // DATOS PREPOLIZA if (DdlTipoTransaccion.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolio.Text.ToEntero(); - CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE PAGO DEUDORES", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), CveMoneda, 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 DEUDORES", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), CveMoneda, 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) { From 63ba2f3d8365f04276afdc8cb60ec08c97cb0630 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 11 Jul 2022 17:26:21 -0700 Subject: [PATCH 3/9] -- cvemovtorelacionado transitorio --- Inventarios/EntradasSalidas.aspx | 8 ++++++ Inventarios/EntradasSalidas.aspx.vb | 41 ++++++++++++++++++----------- 2 files changed, 33 insertions(+), 16 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index caa056712..1ce8ec81e 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -513,6 +513,14 @@ Virtual +
+ +
+ Transitorio +
+
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index ebc7303a3..c57e02d42 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -730,8 +730,17 @@ Partial Class Inventarios_EntradasSalidas If Mov.CveMovimientoVirtual > 0 Then DivMovtoVirtual.Visible = True HplMtoVirtual.NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveMovimiento=" & Mov.CveMovimientoVirtual + HplMtoVirtual.Text = Mov.FolioVirtual.ToString End If + If Mov.CveMovimientoTransitorio > 0 Then + DivMovtoTransitorio.Visible = True + HplMtoTransitorio.NavigateUrl = "/Inventarios/EntradasSalidas.aspx?CveMovimiento=" & Mov.CveMovimientoTransitorio + HplMtoTransitorio.Text = Mov.FolioTransitorio.ToString + End If + + + If (DdlAlmacen.Items.FindByValue(Mov.CveAlmacen.ToString()) Is Nothing) Then Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=-1).FiltroPrimero(String.Format("CveAlmacen = {0}", Mov.CveAlmacen)) If dr IsNot Nothing Then @@ -1798,7 +1807,7 @@ Partial Class Inventarios_EntradasSalidas If DdlConcepto.SelectedValue.ToEntero = 31 Then IdCtaContableOtro = 1319 End If - + EsContabilizable = False Case 30 CveConceptoContable = 181 TipoMovtoOtro = False @@ -3805,26 +3814,26 @@ Partial Class Inventarios_EntradasSalidas End If Else If DdlConcepto.SelectedValue.Contiene("6", "22", "23", "7", "16", "21", "24") Then - 'genero las prepolizas manuales - Dim tCveConcepto As Integer = 95 - Dim CveCuenta As Integer - If UsuarioActual.CveEmpresa = 119 Then CveCuenta = 55519 - IdCtaContable = 1 - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total"), Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total"), CveSubProyecto:=-1, CveCuenta:=CveCuenta, Contabilizable:=Contabilizable) Then - ErrorMovInv = True + 'genero las prepolizas manuales + Dim tCveConcepto As Integer = 95 + Dim CveCuenta As Integer + If UsuarioActual.CveEmpresa = 119 Then CveCuenta = 55519 + IdCtaContable = 1 + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total"), Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total"), CveSubProyecto:=-1, CveCuenta:=CveCuenta, Contabilizable:=Contabilizable) Then + ErrorMovInv = True - End If + End If - Else + Else - Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero + Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero Dim tCveConcepto As Integer = 69 - If DdlConcepto.SelectedValue = "30" Then - tCveConcepto = 181 - IdCtaContable = UsuarioActual.Empresa.Funcionalidad(342).ToEntero - End If + If ObjInventario.CveConcepto = 37 Then + tCveConcepto = 181 + IdCtaContable = UsuarioActual.Empresa.Funcionalidad(342).ToEntero + End If - For Each RowInv As DataRow In tmpCostos.Rows + For Each RowInv As DataRow In tmpCostos.Rows ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL If tCveConcepto = 69 Then IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero From 43c130cb4b3a170366cd94677c75841236730a74 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 11 Jul 2022 17:26:44 -0700 Subject: [PATCH 4/9] -- modulo de prepolizas --- Bancos/PrestamoPersonal.aspx.cs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/PrestamoPersonal.aspx.cs b/Bancos/PrestamoPersonal.aspx.cs index 038100bf5..09dbde1c3 100644 --- a/Bancos/PrestamoPersonal.aspx.cs +++ b/Bancos/PrestamoPersonal.aspx.cs @@ -263,7 +263,7 @@ public partial class Bancos_PrestamoPersonal : 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(), CveMoneda, TxtFechaDocumento.Text.ToDate(), DdlFuncionarioEmpleadoPago.SelectedItem.Text, 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("Bancos/IE PAGO PRESTAMOPER", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), CveMoneda, TxtFechaDocumento.Text.ToDate(), DdlFuncionarioEmpleadoPago.SelectedItem.Text, 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) { From 476f4accb43dbdeb75ba2acdede6da9ed19b41d7 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 12 Jul 2022 13:37:07 -0700 Subject: [PATCH 5/9] -- formato de usados, no manda bien la fecha --- Compras/PopUpVerFactura.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 9dfcbe489..c148ba7af 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -5196,7 +5196,7 @@ Partial Class PopUpVerFactura Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("Direccion", Almacen)) - params.Add(New ReportParameter("FechaConFormato", Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("FechaConFormato", Fecha)) 'params.Add(New ReportParameter("FechaInicial", Fecha)) 'params.Add(New ReportParameter("FechaFinal", Today.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("Sucursal", "Sucursal")) From 5a3f64cb65aba764943cb9c0b7fa649f52624085 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 13 Jul 2022 16:49:55 -0700 Subject: [PATCH 6/9] -- prepoliza sin costo --- Inventarios/EntregaAlmacen.aspx.vb | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index be7ba0a55..7006cc25e 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -2064,9 +2064,25 @@ Partial Class Inventarios_EntregaAlmacen End If If ErrorMovInv Then Exit For - Next End If + + If Not ErrorMovInv Then + Dim CvePrePolizaSinCosto As Integer = ObjConta.AddPrePolizas("EA/SinCost", 53, 0, 0, 1, TxtFecha.Text.ToDate, "Entrega", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If CvePrePolizaSinCosto > 0 Then + + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaSinCosto, False, 0, 0, 68, TxtObservaciones.Text, TxtObservaciones.Text, -1, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=False) Then + ErrorMovInv = True + End If + + If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaSinCosto, True, 0, 0, 68, TxtObservaciones.Text, TxtObservaciones.Text, -1, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=False) Then + ErrorMovInv = True + End If + Else + ErrorMovInv = True + End If + End If + End If If Not ErrorMovInv Then From c1e594a24eefc685f261ef7fd749cd48c7f8871a Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 14 Jul 2022 12:00:46 -0700 Subject: [PATCH 7/9] -- acomodo de columnas --- Ventas/Clientes.aspx | 198 +++++++++++++++++++++---------------------- 1 file changed, 96 insertions(+), 102 deletions(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index a66411c6f..410f079fb 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -453,62 +453,49 @@
- +
-
- - - -
-
- - - - +
+
+ + + +
+
+ + + + +
+ +
+
+ + + + + + - <%--
- - - - -
+ + + +
-
- - - - -
+
+ + + + + + +
+
- --%> - -
- - - - - - - - - - -
- - -
- - - - - - -
-
@@ -600,7 +587,6 @@
-
@@ -617,64 +603,71 @@
- +
-
- - + + +
+
+ + + + + +
+
+ + +
- <%--
- - -
--%> -
- - - - - -
-
- - -
-
- - - - + +
+
+ + +
+
+ +
+
+
+
+ + + + +
-
- - - +
+ + + +
+
+
+ +
+ + + +
+ +
+ + + + + +
- -
- - - -
- -
- - - - - -
-
-
- - -
+
@@ -692,19 +685,20 @@
-
- - -
+
-
+
+ + +
+
-
+
From 05e1372561c8d98e4319970c5bd868279911a9bc Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 14 Jul 2022 12:01:52 -0700 Subject: [PATCH 8/9] -- --- Inventarios/EntregaAlmacenRuta.aspx.cs | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/Inventarios/EntregaAlmacenRuta.aspx.cs b/Inventarios/EntregaAlmacenRuta.aspx.cs index 33d7a6cb2..7cc6f2788 100644 --- a/Inventarios/EntregaAlmacenRuta.aspx.cs +++ b/Inventarios/EntregaAlmacenRuta.aspx.cs @@ -204,8 +204,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas StringBuilder MensajeAlert = new StringBuilder(); //recorrer para timbrar MensajeAlert.Append(" Entregas creadas correctamente

"); - bool huboerror = false; - + foreach (int cvetimbre in ListaTimbres) { Timbres ObjTimbres = new Timbres("Ent", cvetimbre, UsuarioActual); @@ -225,8 +224,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas SeleccionarGenerar(1); } else - { - huboerror = true; + { MensajeAlert.AppendFormat("
  • {0}
", ObjTimbres.MsgError); } } @@ -287,7 +285,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas if (CveEntregaAlmacen > 0) { // se actualizan los datos de unidad, chofer, fechas y Carta porte - if (ObjGeneral.AsignaEntregaAlmacenRuta(DdlUnidadRec.SelectedValue.ToEntero(), DdlChoferRec.SelectedValue.ToEntero(), TxtFechaRec.Text.ToDate(), CveEntregaAlmacen, UsuarioActual.CveEmpresa)) + if (ObjGeneral.AsignaEntregaAlmacenRuta(DdlUnidadRec.SelectedValue.ToEntero(), DdlChoferRec.SelectedValue.ToEntero(), TxtFechaRec.Text.ToDate(), (TxtFechaRec.Text + " 23:59").ToDate(), CveEntregaAlmacen, UsuarioActual.CveEmpresa)) { int CveTimbre = ObjGeneral.AddGralTimbre("Rec", row.DataKey("CveSubProyecto").ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen: CveEntregaAlmacen, AplicaCP: ChkEmitirPorteRec.Checked); @@ -856,7 +854,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas } else { - ProcesoOK = ObjGenerales.UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen, DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1, DdlChoferRec.SelectedValue.ToEntero(), DdlUnidadRec.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveEmpresa,FolioReferencia:TxtFolioReferencia.Text,Referencia: TxtReferencia.Text,CveSubProyecto: DdlSubProyectoRecoleccion.SelectedValue.ToEntero()); + ProcesoOK = ObjGenerales.UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen, DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1, DdlChoferRec.SelectedValue.ToEntero(), DdlUnidadRec.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveEmpresa,FolioReferencia:TxtFolioReferencia.Text,Referencia: TxtReferencia.Text,CveSubProyecto: DdlSubProyectoRecoleccion.SelectedValue.ToEntero()); } if (ProcesoOK) From 4553cd1e149c7d27276b794b72e0325b6da4c50c Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 14 Jul 2022 15:35:14 -0700 Subject: [PATCH 9/9] BDH. Cancelar usados cuando no tiene movimientos de ExA --- App_Code/Modelos.vb | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index c557b907e..df4f9c307 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -5308,6 +5308,8 @@ Namespace Modelos If Not ErrorCancelar Then Dim Filtro As String = "" Dim FiltroDevAlmacen As String = "" + Dim FiltroEntradaUsados As String = "" + Select Case ObjFactura.TipoDocto Case "Ing" Filtro = "CveConcepto IN (3, 40)" @@ -5318,6 +5320,10 @@ Namespace Modelos Filtro = "CveConcepto = 18" Case Else Filtro = "CveConcepto = 9" + 'VERIFICA SI TIENE ENTRADAS DE USADOS TAMBIEN + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjFactura.TipoDocto = "Rem" Then + FiltroEntradaUsados = "CveConcepto = 42" + End If End Select 'CARGA REMISIONES DE LA VENTA DEVUELTA @@ -5342,6 +5348,14 @@ Namespace Modelos DtExistencias = DtInventario.FiltraParametros($"CvePS IS NOT NULL AND {Filtro} AND CveTipoPS = 2") TieneSalida = DtExistencias.Rows.Count > 0 + + 'VERIFICA SI SOLO TIENE CARGA DE USADOS EN CASO DE NO TENER SALIDAS DE ALMACEN + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjFactura.TipoDocto = "Rem" Then + FiltroEntradaUsados = "CveConcepto = 42" + If Not TieneSalida Then + TieneSalida = DtInventario.FiltraParametros($"CvePS IS NOT NULL AND {FiltroEntradaUsados}").Rows.Count > 0 + End If + End If Else ErrorCancelar = True MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar."