From f1bdb4f7f01a758837a1f500fdc8b83175a244f8 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 16 Dec 2024 05:59:08 -0700
Subject: [PATCH] cambio a globaldtpssimpl

---
 Inventarios/EntradasSalidas.aspx.vb | 59 +++++++++++++----------------
 1 file changed, 26 insertions(+), 33 deletions(-)

diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index d9436f340..4f0d0d4c4 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -4143,12 +4143,12 @@ Partial Class Inventarios_EntradasSalidas
             Dim Lote As String = If(TxtLoteEntrada.Text = "", "", TxtLoteEntrada.Text)
             Dim Caducidad As String = If(TxtCaducidadEntrada.Text = "", MinFecha.ToShortDateString, TxtCaducidadEntrada.Text)
 
-            Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS")
+            Dim dr As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
             If dr IsNot Nothing Then
                 CveClasificacion = dr("CveClasificacion").ToString.ToEntero
-                CveUM = dr("CveUM").ToString.ToEntero
+                CveUM = dr("CveUnidadMedida").ToString.ToEntero
                 CodigoPS = dr("PSCodigo").ToString.ToString
-                PS = dr("PS").ToString.ToString
+                PS = dr("PSCodigo").ToString.ToString
             End If
 
             Dim registro As DataRow = DtMovimientosEntradaInvFisico.NewRow
@@ -4238,16 +4238,17 @@ Partial Class Inventarios_EntradasSalidas
 
 #Region "SALIDAS"
     Private Sub BtnAgregarSalida_Click(sender As Object, e As EventArgs) Handles BtnAgregarSalida.Click
-        Dim ObjProductosServicios As New ClsProductosServicios()
+
         Dim ObjInventario As New ClsInventarios
         Dim CveUM As Integer
+        Dim PS As String = ""
         Dim Mensaje As String = ""
         'Dim FechaCaducidad As Date
         'Dim lote As String
-        If ObjProductosServicios.GetPS(DdlPSSalida.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
-            If ObjProductosServicios.DtResultados.Rows.Count > 0 Then
-                CveUM = ObjProductosServicios.CveUnidadMedida.ToString.ToEntero
-            End If
+        Dim drps As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
+        If drps IsNot Nothing Then
+            CveUM = drps("CveUnidadMedida").ToString.ToEntero
+            PS = drps("PSCodigo").ToString
         End If
 
         Dim Lote As String = If(TxtLoteSalida.Text = "", "", TxtLoteSalida.Text)
@@ -4262,13 +4263,13 @@ Partial Class Inventarios_EntradasSalidas
 
             AddPSSalida(DdlPSSalida.SelectedValue.ToEntero, TxtCantidadSalidaInv.Text.ToDouble)
         Else
-            Mensaje = String.Format("No hay existencias suficientes del producto: {0}", ObjProductosServicios.PS)
+            Mensaje = String.Format("No hay existencias suficientes del producto: {0}", PS)
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
             Alert(Mensaje, TipoMensaje.MsgError)
         End If
 
         ObjInventario.Dispose()
-        ObjProductosServicios.Dispose()
+
 
     End Sub
 
@@ -5853,7 +5854,6 @@ Partial Class Inventarios_EntradasSalidas
 
     Protected Sub DdlUnidadCamionActivoFijo_SelectedIndexChanged(sender As Object, e As EventArgs)
 
-
         DvRemolque1.Visible = False
         DvRemolque2.Visible = False
 
@@ -5861,18 +5861,19 @@ Partial Class Inventarios_EntradasSalidas
         DdlRemolque2.SelectedValueExist(-1)
 
         If DdlUnidadCamion.SelectedValue.ToEntero > 0 Then
+            Dim drc As DataRow = GlobalDTInvCamiones(UsuarioActual.CveEmpresa, DdlUnidadCamion.SelectedValue.ToEntero).FiltroPrimero("")
+            If drc IsNot Nothing Then
+                DdlConfigAuto.SelectedValueExist(drc("CveConfigAutoTransporte"))
+                DdlConfigAuto_SelectedIndexChanged(Nothing, Nothing)
+            End If
+            'Using ObjInv As New ClsInventarios
 
+            '    If ObjInv.GetCamiones(DdlUnidadCamion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1) Then
+            '        DdlConfigAuto.SelectedValueExist(ObjInv.DtResultados.FiltroPrimeroValor("CveConfigAutoTransporte"))
+            '        DdlConfigAuto_SelectedIndexChanged(Nothing, Nothing)
+            '    End If
 
-            Using ObjInv As New ClsInventarios
-
-                If ObjInv.GetCamiones(DdlUnidadCamion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1) Then
-                    DdlConfigAuto.SelectedValueExist(ObjInv.DtResultados.FiltroPrimeroValor("CveConfigAutoTransporte"))
-                    DdlConfigAuto_SelectedIndexChanged(Nothing, Nothing)
-                End If
-
-            End Using
-
-
+            'End Using
         End If
 
         UpEmitirTransitorio.Update()
@@ -5927,25 +5928,17 @@ Partial Class Inventarios_EntradasSalidas
     Protected Sub DdlRemolque1_SelectedIndexChanged(sender As Object, e As EventArgs)
 
         DdlRemolque2.Items.Clear()
-
         If DdlRemolque1.SelectedValue.ToEntero > 0 Then
             DvRemolque2.Visible = True
-
-            Using ObjInv As New ClsInventarios
-                If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then
-                    DdlRemolque2.DataSource = ObjInv.DtResultados.FiltraParametros($"CveCamion <> {DdlRemolque1.SelectedValue.ToEntero}")
-                End If
-            End Using
-
+            Dim dtt As DataTable = GlobalDTInvCamiones(UsuarioActual.CveEmpresa, -1, CveTipoCamion:=2)
+            If dtt IsNot Nothing Then
+                DdlRemolque2.DataSource = dtt.FiltraParametros($"CveCamion <> {DdlRemolque1.SelectedValue.ToEntero}")
+            End If
             DdlRemolque2.DataBind()
-
-
         Else
             DvRemolque2.Visible = False
         End If
-
         DdlRemolque2.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
-
         UpEmitirTransitorio.Update()
 
     End Sub