From f63a98b94e6dcdbf67a531c78e57efea76621791 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 26 Apr 2024 06:14:05 -0700
Subject: [PATCH] -- mejoras uso de almacenes

---
 OS/OrdenesServicios.aspx    |  2 +-
 OS/OrdenesServicios.aspx.vb | 20 +++++++++++++++++++-
 2 files changed, 20 insertions(+), 2 deletions(-)

diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx
index 3a871b528..3d3defc25 100644
--- a/OS/OrdenesServicios.aspx
+++ b/OS/OrdenesServicios.aspx
@@ -1344,7 +1344,7 @@
 
                              </div>
                             <div class="col-md-6">
-                                <asp:TextBox ID="AnexoManerialUtilizado" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
+                                <asp:TextBox ID="AnexoManerialUtilizado" CssClass="ADSdropzone hidden" data-maxFile="5" Text="" runat="server"></asp:TextBox>
                             </div>
                          </div> 
                     
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index e733d5543..120338480 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -3095,7 +3095,8 @@ Partial Class OS_OrdenesServicios
 
         If DdlTipoVenta.SelectedValue = "5" Then 'Consignación - Uso Material
             'genera una salida de almacen.
-            Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, ClsPaginas.NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtilConsig")
+            Dim Fecha As DateTime = ClsPaginas.NowADS()
+            Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtilConsig")
             Dim Folio As Integer = ObjInventario.Folio
 
             If CveMovimientoSalida > 0 Then
@@ -3126,6 +3127,23 @@ Partial Class OS_OrdenesServicios
                         ProcesoOK = False
                     End If
                 End If
+                If ProcesoOK Then
+                    Dim Contabilizable As Boolean = False
+                    Dim Concepto As String = "Material utilizado Consigna"
+                    Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("OS-MatUtil5", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    Dim ImporteAlmacen As Decimal = 0
+                    If CveMovimientoSalida > 0 Then
+                        If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                            ImporteAlmacen = ObjInventario.DtResultados.SUM("Total")
+                        End If
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAlmacen, ImporteAlmacen, 68, "", Concepto, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable) Then
+                            ProcesoOK = False
+                        End If
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAlmacen, ImporteAlmacen, 95, "", Concepto, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable) Then
+                            ProcesoOK = False
+                        End If
+                    End If
+                End If
             Else
                 ProcesoOK = False
             End If