From 8bd5eff6b90d1c697174b7cca9fc44a056f2cb1a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 3 Dec 2024 08:04:22 -0700
Subject: [PATCH] -- mejora con busqueda de ps

---
 Inventarios/CartaPorteManual.aspx.vb | 24 ++++++------------------
 1 file changed, 6 insertions(+), 18 deletions(-)

diff --git a/Inventarios/CartaPorteManual.aspx.vb b/Inventarios/CartaPorteManual.aspx.vb
index 0619d16a4..a65f16e65 100644
--- a/Inventarios/CartaPorteManual.aspx.vb
+++ b/Inventarios/CartaPorteManual.aspx.vb
@@ -195,9 +195,7 @@ Partial Class Inventarios_CartaPorteManual
             TxtFecha.Text = NowADS().ToShortDateString
             CEFecha.EndDate = NowADS().AddDays(-1)
             RVFecha.MaximumValue = NowADS().ToShortDateString
-
             Folio = 0
-
             CargaCombos()
             CreaDT()
 
@@ -222,7 +220,6 @@ Partial Class Inventarios_CartaPorteManual
 
             End If
 
-
             'If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
 
             '    TxtFecha.Enabled = False
@@ -233,7 +230,6 @@ Partial Class Inventarios_CartaPorteManual
     End Sub
 
 #Region "CARGA DATOS"
-
     Protected Sub CreaDT()
         Dim dt As New DataTable
 
@@ -247,8 +243,6 @@ Partial Class Inventarios_CartaPorteManual
 
         dt.Columns.Add(column)
 
-
-
         dt.Columns.Add("Cantidad", Type.GetType("System.Double"))
         dt.Columns.Add("CveUM", Type.GetType("System.Int32"))
         dt.Columns.Add("UnidadMedida")
@@ -265,8 +259,6 @@ Partial Class Inventarios_CartaPorteManual
         dt.Columns.Add("Lote")
         dt.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime"))
 
-
-
         dt.Columns.Add("CveClasificacion", Type.GetType("System.Int32"))
         dt.Columns.Add("EstatusExistencia")
 
@@ -285,14 +277,10 @@ Partial Class Inventarios_CartaPorteManual
         dt.Columns.Add("Embalaje")
         dt.Columns.Add("PesoKg", Type.GetType("System.Decimal"))
 
-
         DtMovimientos = dt
-
         CargaGvDatos()
 
     End Sub
-
-
     Private Sub CargaCombos()
         'CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, AplicaTodos:="")
 
@@ -307,17 +295,12 @@ Partial Class Inventarios_CartaPorteManual
         ' TxtFechaEntrega.Text = NowADS().ToShortDateString
         TxtFechaLlegada.Text = NowADS().ToShortDateString
 
-
-
         CargaPS()
-
-
         CargarCamiones()
     End Sub
 
     Private Sub CargaPS()
 
-
         Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
         DdlProducto2.setEsWebService(EsWS)
 
@@ -328,7 +311,12 @@ Partial Class Inventarios_CartaPorteManual
                 DdlProducto2.ddlWS.Attributes.Add("Data-onresult", "CargaExistenciaAlmacenes")
 
             End If
-
+        Else
+            DdlProducto2.ddl.Items.Clear()
+            'Objeto.ddl.DataSource = GlobalDTProductosServicios(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, AplicaParaVenta:=1, Estatus:=1)
+            DdlProducto2.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=-1, Estatus:=1, AplicaParaVenta:=-1)
+            DdlProducto2.ddl.DataBind()
+            DdlProducto2.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
         End If
 
     End Sub