ADS - Cargar imágenes de productos

Ventas/Ventas.aspx.vb

@@ -3171,6 +3171,11 @@ Partial Class Ventas
                 DivNumTurnos.Visible = True
             End If
 
+            If CveVenta <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(716) = "1" Then
+                UpImagen.Visible = True
+                UpImagen.Update()
+            End If
+
             'SELECCIONA VENDEDOR DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE
             'If UsuarioActual.CveVendedor > 0 Then
             '    If CveVenta = -1 AndAlso Not DdlVendedor.SelectedValue.ToEntero() > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
@@ -17347,6 +17352,29 @@ Partial Class Ventas
 
                 End If
 
+                If UsuarioActual.Empresa.Funcionalidad(716) = "1" Then
+                    Dim Imagen = drPS("Imagen").ToString
+
+                    Dim URLImagen As String = ""
+
+                    If Not String.IsNullOrEmpty(Imagen) Then
+                        URLImagen = String.Format("/ashx/SIGWeb.ashx?Metodo=GetImg&r={0}", Extensiones.Encripta(Imagen))
+                    End If
+
+                    If imgImagen.Attributes.Item("src") Is Nothing Then
+                        imgImagen.Attributes.Add("src", URLImagen)
+                    Else
+                        imgImagen.Attributes.Item("src") = URLImagen
+                    End If
+
+                    UpImagen.Update()
+
+                    If Not String.IsNullOrEmpty(Imagen) Then
+                        RegistraScript("initcarusel();", "I1")
+                    End If
+                End If
+
+
                 If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
                     AgregarPS()
                 End If