From 974d707b64cd2cafef19f7845963109cbf818840 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 24 Feb 2024 12:06:07 -0700
Subject: [PATCH] --campo "Imagen" en clase ClsProductosServicios --fix en
 EntradasSalidas.aspx

---
 App_Code/ClsProductosServicios.vb   | 8 +++++---
 Inventarios/EntradasSalidas.aspx.vb | 2 +-
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb
index de78bfc95..5fcda2cf9 100644
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
@@ -413,7 +413,8 @@ Public Class ClsProductosServicios
                           Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0,
                           Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1,
                           Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0,
-                          Optional CveClasificacionEcommerce As Integer = -1, Optional EcommerceCantidad As Decimal = 0, Optional CodigoAlterno As String = "-1", Optional PSAlterno As String = "-1", Optional ProductoExhibicion As Boolean = False) As Integer
+                          Optional CveClasificacionEcommerce As Integer = -1, Optional EcommerceCantidad As Decimal = 0, Optional CodigoAlterno As String = "-1", Optional PSAlterno As String = "-1", Optional ProductoExhibicion As Boolean = False,
+                          Optional Imagen As String = "") As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_ProductosServiciosAdd")
@@ -522,7 +523,7 @@ Public Class ClsProductosServicios
             .Add("@CodigoAlterno", SqlDbType.VarChar).Value = CodigoAlterno
             .Add("@PSAlterno", SqlDbType.VarChar).Value = PSAlterno
             .Add("@ProductoExhibicion", SqlDbType.Bit).Value = ProductoExhibicion
-
+            .Add("@Imagen", SqlDbType.VarChar).Value = Imagen
         End With
 
         Try
@@ -658,7 +659,7 @@ Public Class ClsProductosServicios
                              Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0,
                              Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1,
                              Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0,
-                             Optional CveClasificacionEcommerce As Integer = -1, Optional EcommerceCantidad As Decimal = 0, Optional CodigoAlterno As String = "-1", Optional PSAlterno As String = "-1", Optional ProductoExhibicion As Boolean = False) As Boolean
+                             Optional CveClasificacionEcommerce As Integer = -1, Optional EcommerceCantidad As Decimal = 0, Optional CodigoAlterno As String = "-1", Optional PSAlterno As String = "-1", Optional ProductoExhibicion As Boolean = False, Optional Imagen As String = "") As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -766,6 +767,7 @@ Public Class ClsProductosServicios
             .Add("@CodigoAlterno", SqlDbType.VarChar).Value = CodigoAlterno
             .Add("@PSAlterno", SqlDbType.VarChar).Value = PSAlterno
             .Add("@ProductoExhibicion", SqlDbType.Bit).Value = ProductoExhibicion
+            .Add("@Imagen", SqlDbType.VarChar).Value = Imagen
         End With
 
         Try
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 403b0c491..21fce62eb 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -148,7 +148,7 @@ Partial Class Inventarios_EntradasSalidas
 
     Public Property CveEntregaAlmacen() As Integer
         Get
-            Return ViewState("CveEntregaAlmacen").ToString.ToEntero
+            Return IfNull(ViewState("CveEntregaAlmacen"), "-1", ViewState("CveEntregaAlmacen")).ToString().ToEntero()
         End Get
         Set(value As Integer)
             ViewState("CveEntregaAlmacen") = value