diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index fa3deb688..f245e101a 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -647,6 +647,27 @@ Public Class ClsProductosServicios Return Retorno End Function + + Public Function UpdatePSImagen(CvePS As Integer, Imagen As String) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_PSImagenUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@Imagen", SqlDbType.VarChar).Value = Imagen + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al guardar la imagen del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function UpdatePS(CveClasificacion As Integer, CveClasificacionCosto As Integer, CveUnidadMedida As Integer, Codigo As String, NumeroParte As String, CodigoBarras As String, PS As String, Precio As Double, IVA As Double, RetIVA As Double, Inventariable As Boolean, CveProveedorCompra As Integer, AplicaParaConcepto As Boolean, AplicaParaVenta As Boolean, Estado As Boolean, CveUsuario As Integer, CvePS As Integer, CveMetodoInventario As Integer, EsPaquete As Integer, CveSATPS As Integer, CveEmpresa As Integer, Optional CveTipoPS As Integer = -1, Optional TipoServicio As Integer = -1, Optional CveClasificacion2 As Integer = -1, Optional CveMarca As Integer = -1, Optional AlmacenSeccion As String = "", Optional AplicaIEPS As Boolean = False, Optional IEPSPorcentaje As Decimal = -1, diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index e7eeed0e6..382703240 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -1,1423 +1,1507 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ProductosServicios.aspx.vb" Inherits="ProductosyServicios" %> - -<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> - - - - - - - - - - - - - - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ProductosServicios.aspx.vb" Inherits="ProductosyServicios" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + + + + + + + + + + + + + + - - - -
  • - -
    • -
  • - -
    • -
  • - Bitacora Ecommerce -
    • -
  • - -
    • -     - -     -     - - - - - - - -
    -
    -
    -
    -
    - - Descripción -
    -
    -
    -
    -
    -
    -
    -
    -
    - - - -
    -
    - - - -
    -
    - - - -
    - - + + + +
  • + +
    • +
  • + +
    • +
  • + Bitacora Ecommerce +
    • +
  • + +
    • +     + + + + + + + + + + +
    +
    +
    +
    +
    + + Descripción +
    +
    +
    +
    +
    +
    +
    +
    +
    + + + +
    +
    + + + +
    +
    + + + +
    + + <%--
    -
    --%> -
    - -
    -
    -
    - - - - - -
    -
    -
    -
    -
    -
    - - - - - -
    -
    -
    -
    - - - - - -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    - - - - - - - - - -
    -
    - - - - - - - -
    -
    - - - - - - - -
    -
    - - - - - - -
    - -
    - - Seleccione - - - - - -
    - -
    - - - -
    - -
    - - - -
    - -
    - - - - -
    - -
    - - - - - -
    -
    - - -
    -
    - - -
    -
    - - <%----%> - - -
    - -
    -
    -
    - - - - - -
    - -
    -
    -
    -
    - -
    - - - <%----%> - -
    - -
    -
    - -
    - - -
    - -
    -
    - -
    - - - - - - - - - - - -
    -
    -
    -
    - - - -
    - -
    -
    -
    - - - -
    -
    -
    -
    - - - -
    -
    -
    - -
    -
    -
    -
    -
    - - -
    -
    -
    -
    - - Equivalencias -
    -
    -
    -
    -
    -
    -
    - - - - - - - +
    --%> +
    + +
    +
    +
    + + + + + +
    +
    +
    +
    +
    +
    + + + + + +
    +
    +
    +
    + + + + + +
    +
    +
    +
    + + +
    +
    +
    +
    + + +
    +
    +
    +
    + + + + + + + + + +
    +
    + + + + + + + +
    +
    + + + + + + + +
    +
    + + + + + + +
    + +
    + + Seleccione + + + + + +
    + +
    + + + +
    + +
    + + + +
    + +
    + + + + +
    + +
    + + + + + +
    +
    + + +
    +
    + + +
    +
    + + <%----%> + + +
    + +
    +
    +
    + + + + + +
    + +
    +
    +
    +
    + +
    + + + <%----%> + +
    + +
    +
    + +
    + + +
    + +
    +
    + +
    + + + + + + + + + + + +
    +
    +
    +
    + + + +
    + +
    +
    +
    + + + +
    +
    +
    +
    + + + +
    +
    +
    + +
    +
    +
    +
    +
    + + +
    +
    +
    +
    + + Equivalencias +
    +
    +
    +
    +
    +
    +
    + + + + + + + <%-- --%> - - - - - - - <%----%> - - - - - - > - - - - -
    - - -
    -     - - - -     - - - - - -     -     - -
    -
    -
    -     -     -
    - -
    -
    -
    -
    -
    - - Llantas -
    -
    -
    -
    -
    -
    -
    -
    -
    -
    - - - - - -
    -
    - - - - - -
    -
    - - - - - -
    + + + + + + + <%----%> + + + + + + > + + + + +
    + + +
    +     + + + +     + + + + + + + + +
    +
    +
    + + +
    + +
    +
    +
    +
    +
    + + Llantas +
    +
    +
    +
    +
    +
    +
    +
    +
    +
    + + + + + +
    +
    + + + + + +
    +
    + + + + + +
    <%--
    -
    --%> -
    - -
    -
    -
    -
    -
    - -
    - - -
    -
    -
    -
    - - Productos/Servicios Adicionales -
    -
    -
    - -
    -
    -
    -
    - - - - - - - - - - - - - - - - - > - - - +
    --%> +
    + +
    +
    +
    +
    +
    + +
    + + +
    +
    +
    +
    + + Productos/Servicios Adicionales +
    +
    +
    + +
    +
    +
    +
    + + + + + + + + + + + + + + + + + > + + + <%--
    -     --%> - - - -     - - - - - -     -     - -
    -
    -
    -     -     -
    - -
    -
    -
    -
    -
    - - Cítricos -
    -
    -
    -
    -
    -
    -
    -
    -
    -
    - - - - - -
    -
    - - - - - -
    -
    - -
    -
    -
    -
    -
    - -
    -
    -
    -
    -
    - - Ecommerce    -
    -
    -
    - -
    -
    -
    -
    -
    -
    -
    - - - - -
    - -
    - - - - -
    - -
    - - - - -
    -
    -
    - - - - -
    -
    - - - - - -
    -
    -
    -
    - - - - -
    -
    - -
    -
    -
    -
    -
    -
    -
    -
    - -
    -
    - - - - - -
    -
    -
    -
    -
    - - Impuestos -
    -
    -
    -
    -
    -
    -
    -
    - - - - - - - $ -
    - -
    -
    -
    -
    - - - -
    -
    -
    -
    -
    - - - - - - -
    -
    - -
    - - - - - - - - -
    -
    -
    -
    -
    - - - - - - % -
    -
    - - - - - + --%> + + + + + + + + + + + + +
    +
    +
    + + +
    + +
    +
    +
    +
    +
    + + Cítricos +
    +
    +
    +
    +
    +
    +
    +
    +
    +
    + + + + + +
    +
    + + + + + +
    +
    + +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    + + Ecommerce    +
    +
    +
    +
    +
    +
    +
    +
    +
    +
    + + + + +
    + +
    + + + + +
    + +
    + + + + +
    +
    +
    + + + + +
    +
    + + + + + +
    +
    +
    +
    + + + + +
    +
    +
    +
    +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    + + Imagen del producto    +
    +
    +
    + Cargar Archivo +
    +
    +
    +
    +
    +
    +
    +
    +
    +
    +     +     + + + +
    +
    +
    +
    +
    + + Impuestos +
    +
    +
    +
    +
    +
    +
    +
    + + + + + + + $ +
    + +
    +
    +
    +
    + + + +
    +
    +
    +
    +
    + + + + + + +
    +
    + +
    + + + + + + + + +
    +
    +
    +
    +
    + + + + + + % +
    +
    + + + + + % -
    -
    -
    - -
    - -
    - -
    - -
    -
    -
    - - - - - - - - - -
    -
    - - -
    -
    -
    -
    -
    -
    -
    -
    - - Impuestos Locales -
    -
    -
    -
    -
    -
    - -
    -
    - -
    -
    -
    -
    -
    -
    - Impuestos IEPS -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    -
    -
    - - - - - - - - - - - -
    -
    - - - - - - - - - - - - - - - - - - -
    -
    - - - - - - - - - - - - -
    -
    - - - - - - - - - -
    -
    -
    -
    -
    -
    - - +
    +
    +
    +
    + + Impuestos Locales +
    +
    +
    +
    +
    +
    + +
    +
    + +
    +
    +
    +
    +
    +
    + Impuestos IEPS +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    +
    + + + + + + + + + + + +
    +
    + + + + + + + + + + + + + + + + + + +
    +
    + + + + + + + + + + + + +
    +
    + + + + + + + + + +
    +
    +
    +
    +
    +
    + + -
    -     -     - - - - - - -
    -
    -
    -
    -
    - - Inventarios -
    -
    -
    -
    -
    -
    -
    + +
    +
    + + + + Aplicar +
    + +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    + + + + + + + + +
    +
    +
    +
    +
    + + Inventarios +
    +
    +
    +
    +
    +
    +
    <%--
    -
    --%> -
    - -
    - - - - - - - -
    -
    -
    - -
    - -
    -
    - - - <%--Nuevo R: 27/09/2017--%> - -
    - -
    - - - -
    -
    -
    - -
    - - - -
    -
    -
    - -
    - - - -
    -
    -
    - -
    - - - -
    -
    -
    - -
    - - - -
    -
    -
    - -
    - - - -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    -
    -
    - -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    -
    - - - - - - - - - - -
    -
    -
    -
    -
    -
    -
    -
    -
    - - Comercio Exterior -
    -
    -
    -
    -
    -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    -
    -
    - - - -
    -
    -
    - - Carta Porte -
    -
    -
    - Limpiar datos -
    -
    -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    -
    -
    -
    -
    - -
    - -
    - -
    -
    - -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    - -
    - -
    - - - -
    -
    - -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    - -
    - -
    - - -
    -
    -
    -
    -
    -
    -
    - -
    - -
    - - -
    -
    -
    - -
    - - -
    -
    -
    - -
    - - -
    -
    -
    - -
    - -
    -
    -
    -
    -     -     - -
    - - -
    -
    -
    -
    - - Secciones de Almacen -
    -
    -
    - -
    -
    -
    -
    - - - - +
    --%> +
    + +
    + + + + + + + +
    +
    +
    + +
    + +
    +
    + + + <%--Nuevo R: 27/09/2017--%> + +
    + +
    + + + +
    +
    +
    + +
    + + + +
    +
    +
    + +
    + + + +
    +
    +
    + +
    + + + +
    +
    +
    + +
    + + + +
    +
    +
    + +
    + + + +
    +
    +
    + +
    + +
    +
    +
    + +
    + +
    +
    +
    +
    +
    + +
    +
    +
    + +
    + +
    +
    +
    + +
    + +
    +
    +
    + +
    + +
    +
    +
    +
    + + + + + + + + + + +
    +
    +
    +
    +
    +
    +
    +
    +
    + + Comercio Exterior +
    +
    +
    +
    +
    +
    +
    +
    + +
    + +
    +
    +
    + +
    + +
    +
    +
    +
    +
    + + + +
    +
    +
    + + Carta Porte +
    +
    +
    + Limpiar datos +
    +
    +
    +
    +
    + +
    + +
    +
    +
    + +
    + +
    +
    +
    + +
    + +
    +
    +
    + +
    + +
    +
    +
    +
    +
    +
    +
    + +
    + +
    + + +
    +
    + +
    + +
    + + +
    +
    + +
    + +
    + + +
    +
    + +
    + +
    + + +
    +
    + +
    + +
    + + +
    +
    + +
    + +
    + + +
    +
    + +
    + +
    + + + +
    +
    + +
    + +
    + + + +
    +
    + +
    + +
    + + +
    +
    + +
    + +
    + + +
    +
    + +
    + +
    + + +
    +
    + +
    + +
    + + +
    +
    + +
    + +
    + + +
    +
    + +
    + +
    + + +
    +
    + +
    + +
    + + +
    +
    +
    +
    +
    +
    +
    + +
    + +
    + + +
    +
    +
    + +
    + + +
    +
    +
    + +
    + + +
    +
    +
    + +
    + + +
    +
    +
    +
    +     +     + +
    + + +
    +
    +
    +
    + + Secciones de Almacen +
    +
    +
    + +
    +
    +
    +
    + + + + <%-- - --%> - - - - - - - -
    -
    -
    -     -     -
    -
    -     -     -     -     - + --%> + + + + + + + +
    +
    + +     +     + + + +     + + + <%-- @@ -1474,1193 +1558,980 @@ - --%> - - - - - - - - - + + + + + + + + + + + + + + + +
    - + --%> + + + + + + + + + - + - + - + - - - - - - - - - - - - - - - -
    + Característica - - - - + + + + + + + + Opción - - - - + + + + + + + + Fecha Ing. - - - - + + + + + + + + Usuario - - - Comandos
    - - - - - - - - <%----%> - - - - - - - -    -
    -     -     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -     -     - - - - Paquetes - - -     		Comandos
    + + + + + + + + <%----%> + + + + + + + +    +
    +     +     + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     +     + + + + Paquetes + + + - - - - - - - - - - - - - - - - - - -
    AliasComandos
    - - - - -
    -     -     - - - - - - - - - - - - - - - - - - - - - - - - - - -     -     - - - - - -
    - - <%--IZQUIERDA--%> -
    -
    - - <%--GENERAL--%> -
    -
    -
    -
    - - Información General -
    -
    - -
    -
    -
    -
    - - -
    -
    - - - <%----%> -
    -
    - - - <%----%> - -
    -
    - - - <%----%> - -
    -
    -
    -
    - - <%--INSIGNIAS--%> -
    -
    -
    -
    - - Insignias del producto -
    -
    - -
    -
    -
    - - -
    - -
    - - - - -
    -
    - -
    -
    -
    -
    - - - - - - - - - - -
    -
    -     -     -
    -
    -
    - - -
    -
    - - <%--DERECHA--%> -
    -
    - - <%--IMAGENES--%> -
    -
    -
    -
    - - Imagenes -
    -
    - - <%-- EcommerceImagenes--%> - -
    -
    -
    - - - -
    -
    -
    -
    - - -
    -
    -
    - -
    -
    -
    -
    - - Ver -
    -
    -
    -
    -
    IMAGEN
    -
    <%# Container.ItemIndex + 1 %>
    -
    -     -     -
    -
    -     -     -
    -
    -
    - - <%--RELACIONADOS--%> -
    -
    -
    -
    - - Relación de Productos -
    -
    - -
    -
    -
    - - -
    - -
    - -
    -
    - -
    -
    -
    -
    - - - - - - - - - - -
    -
    -     -     -
    -
    -
    - -
    -
    - -
    -     -     -     -     - - - -
    -
    -
    - - Sistema -
    -
    -
    -
    -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - -
    Estado: -
    Fecha de Captura: -
    Usuario Capturó: -
    Fecha de Modificacion: -
    Usuario Modifico: -
    -
    -
    -     -     - - - - - -
    - -
    - - - - - - <%----%> - - - -
    -
    - - -
    -
    -
    -
    -
    - - Bitacora -
    -
    -
    -
    -
    -
    -
    - - - - - - - - - - - - - -
    -
    -
    -
    - + + + + + + + <%--BITACORA ECOMMERCE--%> + + + + +     - - - - + + + + + + + <%-- MODAL PS ADICIONALES --%> + + + <%-- MODAL PS ADICIONALES --%> + + + + <%-- FIN MODAL PS ADICIONALES --%> + + + + + + + + + + + + + + + - + + diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 1721e2c10..b90c0960c 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -132,6 +132,15 @@ Partial Class ProductosyServicios ViewState("GeneraServicioAF") = value End Set End Property + + Public Property Imagen As String + Get + Return IfNull(ViewState("Imagen"), "", ViewState("Imagen")).ToString() + End Get + Set(value As String) + ViewState("Imagen") = value + End Set + End Property #End Region Private ReadOnly Property PermiteClasificacion2 As Boolean @@ -952,6 +961,17 @@ Partial Class ProductosyServicios DdlTipoFactor.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveTipoFactor").ToString) + Me.Imagen = ObjProductosServicios.DtResultados.Rows(0)("Imagen").ToString + + If Not String.IsNullOrEmpty(Me.Imagen) Then + imgImagen.Attributes.Add("src", String.Format("/ashx/SIGWeb.ashx?Metodo=GetImg&r={0}", Extensiones.Encripta(Me.Imagen))) + hplImagen.Attributes.Add("href", String.Format("/ashx/SIGWeb.ashx?Metodo=GetImg&r={0}", Extensiones.Encripta(Me.Imagen))) + End If + + DivImagen.Visible = True + upGaleria.Update() + RegistraScript("clickgaleria();", "CG") + If ObjProductosServicios.DtResultados.Rows(0)("CveTipoFactor").ToString.Contiene("1", "2") Then LIva.Visible = True DdlIVA.Visible = True @@ -2482,83 +2502,83 @@ Partial Class ProductosyServicios #Region " ECOMMERCE " Private Sub InicializaEcommerce() - AplicaEcommerce = False + 'AplicaEcommerce = False - If UsuarioActual.Empresa.Funcionalidad(700).ToEntero = 1 And CvePS > 0 Then + 'If UsuarioActual.Empresa.Funcionalidad(700).ToEntero = 1 And CvePS > 0 Then - TabEcommerce.Visible = True - LBBitacoraEcommerce.Visible = True + ' TabEcommerce.Visible = True + ' LBBitacoraEcommerce.Visible = True - 'INICIALIZA PRODUCTOS ECOMMERCE - Dim ObjEcommerce As New ClsECommerce - If ObjEcommerce.InsigniasGet(-1, "", UsuarioActual.CveEmpresa) Then - DdlEcommerceInsignia.DataSource = ObjEcommerce.DtResultados - End If - ObjEcommerce.Dispose() - DdlEcommerceInsignia.DataBind() - CargaEcommerce() + ' 'INICIALIZA PRODUCTOS ECOMMERCE + ' Dim ObjEcommerce As New ClsECommerce + ' If ObjEcommerce.InsigniasGet(-1, "", UsuarioActual.CveEmpresa) Then + ' DdlEcommerceInsignia.DataSource = ObjEcommerce.DtResultados + ' End If + ' ObjEcommerce.Dispose() + ' DdlEcommerceInsignia.DataBind() + ' CargaEcommerce() - 'INICIALIZA PRODUCTOS INSIGNIAS - CargaPSInsigniasEcommerce() + ' 'INICIALIZA PRODUCTOS INSIGNIAS + ' CargaPSInsigniasEcommerce() - 'INICIALIZA PRODUCTOS IMAGENES - CargarGaleriaImagenesEcommerce() + ' 'INICIALIZA PRODUCTOS IMAGENES + ' CargarGaleriaImagenesEcommerce() - 'INICIALIZA PRODUCTOS RELACIONADOS - DdlEcommercePSRelacionado.setEsWebService(True) - CargaPSRelacionadosEcommerce() + ' 'INICIALIZA PRODUCTOS RELACIONADOS + ' DdlEcommercePSRelacionado.setEsWebService(True) + ' CargaPSRelacionadosEcommerce() - UpEcommerce.Update() + ' UpEcommerce.Update() - End If + 'End If End Sub #Region " PRODUCTOS ECOMMERCE " Private Sub CargaEcommerce() - Dim DrEcommerce As DataRow = Nothing - Dim ObjEcommerce As New ClsECommerce - If ObjEcommerce.ProductosGet(CvePS, -1, -1, -1, UsuarioActual.CveEmpresa) Then - DrEcommerce = ObjEcommerce.DtResultados.FiltroPrimero("") - End If - ObjEcommerce.Dispose() + 'Dim DrEcommerce As DataRow = Nothing + 'Dim ObjEcommerce As New ClsECommerce + 'If ObjEcommerce.ProductosGet(CvePS, -1, -1, -1, UsuarioActual.CveEmpresa) Then + ' DrEcommerce = ObjEcommerce.DtResultados.FiltroPrimero("") + 'End If + 'ObjEcommerce.Dispose() - If DrEcommerce IsNot Nothing Then - AplicaEcommerce = True + 'If DrEcommerce IsNot Nothing Then + ' AplicaEcommerce = True - TxtEcommerceDescripcion.Text = DrEcommerce("Descripcion").ToString - TxtEcommercePrecioBase.Text = DrEcommerce("PrecioBase").ToString.FormatoNumero - TxtEcommercePrecioPromocion.Text = DrEcommerce("PrecioPromocion").ToString.FormatoNumero - ChkEcommerceDisponible.Checked = CBool(DrEcommerce("Disponible").ToString) - End If - GvEcommercePSRealacionados.DataBind() - UpEcommercePSRelacionados.Update() + ' TxtEcommerceDescripcion.Text = DrEcommerce("Descripcion").ToString + ' TxtEcommercePrecioBase.Text = DrEcommerce("PrecioBase").ToString.FormatoNumero + ' TxtEcommercePrecioPromocion.Text = DrEcommerce("PrecioPromocion").ToString.FormatoNumero + ' ChkEcommerceDisponible.Checked = CBool(DrEcommerce("Disponible").ToString) + 'End If + 'GvEcommercePSRealacionados.DataBind() + 'UpEcommercePSRelacionados.Update() End Sub Private Function GuardaEcommerce() As Boolean Dim TieneError As Boolean = False If UsuarioActual.Empresa.Funcionalidad(700) = "1" Then - 'SI NO SE HA GUARDADO EN ECOMMERCE Y NO TIENE NINGUN VALOR OMITE - If Not AplicaEcommerce And Not ChkEcommerceDisponible.Checked And TxtEcommerceDescripcion.Text.Length = 0 And TxtEcommercePrecioBase.Text.Length = 0 And TxtEcommercePrecioPromocion.Text.Length = 0 Then - Return False - End If + ''SI NO SE HA GUARDADO EN ECOMMERCE Y NO TIENE NINGUN VALOR OMITE + 'If Not AplicaEcommerce And Not ChkEcommerceDisponible.Checked And TxtEcommerceDescripcion.Text.Length = 0 And TxtEcommercePrecioBase.Text.Length = 0 And TxtEcommercePrecioPromocion.Text.Length = 0 Then + ' Return False + 'End If - If ChkEcommerceDisponible.Checked Then - If Not ValidaGuardarEcommerce() Then - Return True - End If - End If + 'If ChkEcommerceDisponible.Checked Then + ' If Not ValidaGuardarEcommerce() Then + ' Return True + ' End If + 'End If - Dim Descripcion As String = TxtEcommerceDescripcion.Text.Trim - Dim PrecioBase As Double = TxtEcommercePrecioBase.Text.Trim.ToDouble - Dim PrecioPromocion As Double = TxtEcommercePrecioPromocion.Text.Trim.ToDouble - Dim Disponible As Boolean = ChkEcommerceDisponible.Checked + 'Dim Descripcion As String = TxtEcommerceDescripcion.Text.Trim + 'Dim PrecioBase As Double = TxtEcommercePrecioBase.Text.Trim.ToDouble + 'Dim PrecioPromocion As Double = TxtEcommercePrecioPromocion.Text.Trim.ToDouble + 'Dim Disponible As Boolean = ChkEcommerceDisponible.Checked - Dim ObjEcommerce As New ClsECommerce - If Not ObjEcommerce.ProductosAddUpdate(CvePS, Descripcion, PrecioBase, PrecioPromocion, Disponible, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - TieneError = True - End If - ObjEcommerce.Dispose() + 'Dim ObjEcommerce As New ClsECommerce + 'If Not ObjEcommerce.ProductosAddUpdate(CvePS, Descripcion, PrecioBase, PrecioPromocion, Disponible, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + ' TieneError = True + 'End If + 'ObjEcommerce.Dispose() End If @@ -2569,28 +2589,28 @@ Partial Class ProductosyServicios Dim Mensaje As New StringBuilder 'DESCRIPCION - Dim Descripcion As String = TxtEcommerceDescripcion.Text.Trim - If Descripcion.Length = 0 Then - Mensaje.Append("- El campo Descripción es obligatorio. Por favor introduzcalo y vuelva a intentar.
    ") - End If - If Descripcion.Length > 255 Then - Mensaje.Append("- El campo Descripción admite maximo 255 caracteres. Por favor verifique y vuelva a intentar.
    ") - End If + 'Dim Descripcion As String = TxtEcommerceDescripcion.Text.Trim + 'If Descripcion.Length = 0 Then + ' Mensaje.Append("- El campo Descripción es obligatorio. Por favor introduzcalo y vuelva a intentar.
    ") + 'End If + 'If Descripcion.Length > 255 Then + ' Mensaje.Append("- El campo Descripción admite maximo 255 caracteres. Por favor verifique y vuelva a intentar.
    ") + 'End If - 'PRECIO BASE - Dim PrecioBase As Double = TxtEcommercePrecioBase.Text.Trim.ToDouble - If PrecioBase = 0 Then - Mensaje.Append("- El campo Precio es obligatorio. Por favor verifique y vuelva a intentar.
    ") - End If - If PrecioBase < 0 Then - Mensaje.Append("- El campo Precio no puede ser negativo. Por favor verifique y vuelva a intentar.
    ") - End If + ''PRECIO BASE + 'Dim PrecioBase As Double = TxtEcommercePrecioBase.Text.Trim.ToDouble + 'If PrecioBase = 0 Then + ' Mensaje.Append("- El campo Precio es obligatorio. Por favor verifique y vuelva a intentar.
    ") + 'End If + 'If PrecioBase < 0 Then + ' Mensaje.Append("- El campo Precio no puede ser negativo. Por favor verifique y vuelva a intentar.
    ") + 'End If - 'PRECIO FINAL - Dim PrecioPromocion As Double = TxtEcommercePrecioPromocion.Text.Trim.ToDouble - If PrecioPromocion < 0 Then - Mensaje.Append("- El campo Precio Final no puede ser negativo. Por favor verifique y vuelva a intentar.
    ") - End If + ''PRECIO FINAL + 'Dim PrecioPromocion As Double = TxtEcommercePrecioPromocion.Text.Trim.ToDouble + 'If PrecioPromocion < 0 Then + ' Mensaje.Append("- El campo Precio Final no puede ser negativo. Por favor verifique y vuelva a intentar.
    ") + 'End If 'VALIDACION @@ -2606,225 +2626,225 @@ Partial Class ProductosyServicios #Region " PRODUCTOS INSIGNIAS " Private Sub CargaPSInsigniasEcommerce() - Dim ObjEcommerce As New ClsECommerce - If ObjEcommerce.ProductosInsigniasGet(CvePS, -1, UsuarioActual.CveEmpresa) Then - GvEcommercePSInsignias.DataSource = ObjEcommerce.DtResultados - Else - GvEcommercePSInsignias.DataSource = Nothing - End If - ObjEcommerce.Dispose() + 'Dim ObjEcommerce As New ClsECommerce + 'If ObjEcommerce.ProductosInsigniasGet(CvePS, -1, UsuarioActual.CveEmpresa) Then + ' GvEcommercePSInsignias.DataSource = ObjEcommerce.DtResultados + 'Else + ' GvEcommercePSInsignias.DataSource = Nothing + 'End If + 'ObjEcommerce.Dispose() - GvEcommercePSInsignias.DataBind() - UpEcommerceInsignias.Update() + 'GvEcommercePSInsignias.DataBind() + 'UpEcommerceInsignias.Update() End Sub Protected Sub BtnEcommerceInsignias_Click(sender As Object, e As EventArgs) - If Not ValidaAgregarProductosInsigniasEcommerce() Then - Exit Sub - End If + 'If Not ValidaAgregarProductosInsigniasEcommerce() Then + ' Exit Sub + 'End If - Dim TieneError As Boolean = False - Dim CveInsignia As Integer = DdlEcommerceInsignia.SelectedValue.ToEntero + 'Dim TieneError As Boolean = False + 'Dim CveInsignia As Integer = DdlEcommerceInsignia.SelectedValue.ToEntero - 'AGREGAR - Dim ObjEcommerce As New ClsECommerce - If ObjEcommerce.ProductosInsigniasAdd(Me.CvePS, CveInsignia, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - Alert("La Insignia se agregó correctamente.", TipoMensaje.MsgInformacion) - Else - TieneError = True - End If - ObjEcommerce.Dispose() + ''AGREGAR + 'Dim ObjEcommerce As New ClsECommerce + 'If ObjEcommerce.ProductosInsigniasAdd(Me.CvePS, CveInsignia, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + ' Alert("La Insignia se agregó correctamente.", TipoMensaje.MsgInformacion) + 'Else + ' TieneError = True + 'End If + 'ObjEcommerce.Dispose() - If Not TieneError Then - DdlEcommerceInsignia.SelectedValueExist(-1) - CargaPSInsigniasEcommerce() - End If + 'If Not TieneError Then + ' DdlEcommerceInsignia.SelectedValueExist(-1) + ' CargaPSInsigniasEcommerce() + 'End If End Sub Private Function ValidaAgregarProductosInsigniasEcommerce() As Boolean Dim Retorno As Boolean = True - Dim Mensaje As New StringBuilder + 'Dim Mensaje As New StringBuilder - 'INSIGNIA - Dim CveInsignia As Integer = DdlEcommerceInsignia.SelectedValue.ToEntero - If CveInsignia = 0 Then - Mensaje.Append("- El campo Insignia es obligatorio. Por favor introduzcalo y vuelva a intentar.
    ") - End If - For Each GvRow As GridViewRow In GvEcommercePSInsignias.Rows - If GvRow.DataKey("CveInsignia").ToString.ToEntero = CveInsignia Then - Mensaje.Append($"- La Insignia {DdlEcommerceInsignia.SelectedItem.Text} ya es parte del producto y no se puede duplicar. Por favor verifique y vuelva a intentar.
    ") - Exit For - End If - Next + ''INSIGNIA + 'Dim CveInsignia As Integer = DdlEcommerceInsignia.SelectedValue.ToEntero + 'If CveInsignia = 0 Then + ' Mensaje.Append("- El campo Insignia es obligatorio. Por favor introduzcalo y vuelva a intentar.
    ") + 'End If + 'For Each GvRow As GridViewRow In GvEcommercePSInsignias.Rows + ' If GvRow.DataKey("CveInsignia").ToString.ToEntero = CveInsignia Then + ' Mensaje.Append($"- La Insignia {DdlEcommerceInsignia.SelectedItem.Text} ya es parte del producto y no se puede duplicar. Por favor verifique y vuelva a intentar.
    ") + ' Exit For + ' End If + 'Next - 'VALIDACION - If Mensaje.ToString.Length > 0 Then - Retorno = False - Alert(Mensaje.ToString, TipoMensaje.MsgAdvertencia) - End If + ''VALIDACION + 'If Mensaje.ToString.Length > 0 Then + ' Retorno = False + ' Alert(Mensaje.ToString, TipoMensaje.MsgAdvertencia) + 'End If Return Retorno End Function - Protected Sub GvEcommercePSInsignias_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvEcommercePSInsignias.RowDeleting - Dim TieneError As Boolean = False - Dim GvRow As GridViewRow = GvEcommercePSInsignias.Rows(e.RowIndex) + 'Protected Sub GvEcommercePSInsignias_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvEcommercePSInsignias.RowDeleting + ' Dim TieneError As Boolean = False + ' Dim GvRow As GridViewRow = GvEcommercePSInsignias.Rows(e.RowIndex) - Dim ObjEcommerce As New ClsECommerce - If ObjEcommerce.ProductosInsigniasRemove(GvRow.DataKey("CvePS").ToString.ToEntero, GvRow.DataKey("CveInsignia").ToString.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - Alert("La Insignia se eliminó correctamente.", TipoMensaje.MsgInformacion) - Else - TieneError = True - End If - ObjEcommerce.Dispose() + ' Dim ObjEcommerce As New ClsECommerce + ' If ObjEcommerce.ProductosInsigniasRemove(GvRow.DataKey("CvePS").ToString.ToEntero, GvRow.DataKey("CveInsignia").ToString.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + ' Alert("La Insignia se eliminó correctamente.", TipoMensaje.MsgInformacion) + ' Else + ' TieneError = True + ' End If + ' ObjEcommerce.Dispose() - If Not TieneError Then - CargaPSInsigniasEcommerce() - End If - End Sub + ' If Not TieneError Then + ' CargaPSInsigniasEcommerce() + ' End If + 'End Sub #End Region #Region " PRODUCTOS IMAGENES " - Private Sub CargarGaleriaImagenesEcommerce() - Dim TmpDT As DataTable = Nothing + 'Private Sub CargarGaleriaImagenesEcommerce() + ' Dim TmpDT As DataTable = Nothing - Dim ObjEcommerce As New ClsECommerce - If ObjEcommerce.ProductosImagenesGet(CvePS, UsuarioActual.CveEmpresa) Then - TmpDT = ObjEcommerce.DtResultados - Else - TmpDT = Nothing - End If - ObjEcommerce.Dispose() + ' Dim ObjEcommerce As New ClsECommerce + ' If ObjEcommerce.ProductosImagenesGet(CvePS, UsuarioActual.CveEmpresa) Then + ' TmpDT = ObjEcommerce.DtResultados + ' Else + ' TmpDT = Nothing + ' End If + ' ObjEcommerce.Dispose() - RptFotos.DataSource = TmpDT - RptFotos.DataBind() - UpEcommerceGaleriaImagenes.Update() - End Sub + ' RptFotos.DataSource = TmpDT + ' RptFotos.DataBind() + ' UpEcommerceGaleriaImagenes.Update() + 'End Sub Protected Sub BtnEcommerceImagenes_Click(sender As Object, e As EventArgs) - Dim FilesGral As List(Of Archivo) = TxtEcommerceImagenes.getfiles().Archivos - Dim FileMove As String = "" - Dim Archivo As String = "" - Dim DirectorioTemporal As String = "" + 'Dim FilesGral As List(Of Archivo) = TxtEcommerceImagenes.getfiles().Archivos + 'Dim FileMove As String = "" + 'Dim Archivo As String = "" + 'Dim DirectorioTemporal As String = "" - Dim DirectorioDestino As String = $"{UsuarioActual.Empresa.Ruta}\Ecommerce\Productos\Imagenes\" - If Not Directory.Exists(DirectorioDestino) Then - Directory.CreateDirectory(DirectorioDestino) - End If + 'Dim DirectorioDestino As String = $"{UsuarioActual.Empresa.Ruta}\Ecommerce\Productos\Imagenes\" + 'If Not Directory.Exists(DirectorioDestino) Then + ' Directory.CreateDirectory(DirectorioDestino) + 'End If - Dim ObjEcommerce As New ClsECommerce - For Each FileItem As Archivo In FilesGral - Archivo = NowADS().Ticks.ToString - Try - FileMove = FileItem.filename - DirectorioTemporal = $"{AppDomain.CurrentDomain.BaseDirectory}Temp\{FileMove}" + 'Dim ObjEcommerce As New ClsECommerce + 'For Each FileItem As Archivo In FilesGral + ' Archivo = NowADS().Ticks.ToString + ' Try + ' FileMove = FileItem.filename + ' DirectorioTemporal = $"{AppDomain.CurrentDomain.BaseDirectory}Temp\{FileMove}" - Archivo = $"{Archivo}{IO.Path.GetExtension(DirectorioTemporal)}" - DirectorioDestino += Archivo - If ObjEcommerce.ProductosImagenesAdd(CvePS, $"Ecommerce\Productos\Imagenes\{Archivo}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - CargarGaleriaImagenesEcommerce() - My.Computer.FileSystem.MoveFile(DirectorioTemporal, DirectorioDestino) - End If - Catch ex As Exception - End Try - Next - ObjEcommerce.Dispose() + ' Archivo = $"{Archivo}{IO.Path.GetExtension(DirectorioTemporal)}" + ' DirectorioDestino += Archivo + ' If ObjEcommerce.ProductosImagenesAdd(CvePS, $"Ecommerce\Productos\Imagenes\{Archivo}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + ' CargarGaleriaImagenesEcommerce() + ' My.Computer.FileSystem.MoveFile(DirectorioTemporal, DirectorioDestino) + ' End If + ' Catch ex As Exception + ' End Try + 'Next + 'ObjEcommerce.Dispose() - RegistraScript("$(""#Modalupfotos"").modal(""hide"");initcarusel();") - TxtEcommerceImagenes.Text = "[]" - UpUpFotos.Update() + 'RegistraScript("$(""#Modalupfotos"").modal(""hide"");initcarusel();") + 'TxtEcommerceImagenes.Text = "[]" + 'UpUpFotos.Update() End Sub Protected Sub BtnEcommerceEliminarImagenes_Click(sender As Object, e As System.EventArgs) - Dim CveImagenActivoFijo As Integer = 0 - CveImagenActivoFijo = Integer.Parse(DirectCast(sender, Button).CommandArgument) + 'Dim CveImagenActivoFijo As Integer = 0 + 'CveImagenActivoFijo = Integer.Parse(DirectCast(sender, Button).CommandArgument) - If (CveImagenActivoFijo > 0) Then - Dim ObjEcommerce As New ClsECommerce - If ObjEcommerce.ProductosImagenesRemove(CveImagenActivoFijo, UsuarioActual.CveEmpresa) Then - File.Delete(String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, ObjEcommerce.DtResultados.Rows(0)("URL"))) - CargarGaleriaImagenesEcommerce() - RegistraScript("initcarusel();") - End If - ObjEcommerce.Dispose() - End If + 'If (CveImagenActivoFijo > 0) Then + ' Dim ObjEcommerce As New ClsECommerce + ' If ObjEcommerce.ProductosImagenesRemove(CveImagenActivoFijo, UsuarioActual.CveEmpresa) Then + ' File.Delete(String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, ObjEcommerce.DtResultados.Rows(0)("URL"))) + ' CargarGaleriaImagenesEcommerce() + ' RegistraScript("initcarusel();") + ' End If + ' ObjEcommerce.Dispose() + 'End If End Sub #End Region #Region " PRODUCTOS RELACIONADOS " Private Sub CargaPSRelacionadosEcommerce() - Dim ObjEcommerce As New ClsECommerce - If ObjEcommerce.ProductosRelacionadosGet(CvePS, UsuarioActual.CveEmpresa) Then - GvEcommercePSRealacionados.DataSource = ObjEcommerce.DtResultados - Else - GvEcommercePSRealacionados.DataSource = Nothing - End If - ObjEcommerce.Dispose() + 'Dim ObjEcommerce As New ClsECommerce + 'If ObjEcommerce.ProductosRelacionadosGet(CvePS, UsuarioActual.CveEmpresa) Then + ' GvEcommercePSRealacionados.DataSource = ObjEcommerce.DtResultados + 'Else + ' GvEcommercePSRealacionados.DataSource = Nothing + 'End If + 'ObjEcommerce.Dispose() - GvEcommercePSRealacionados.DataBind() - UpEcommercePSRelacionados.Update() + 'GvEcommercePSRealacionados.DataBind() + 'UpEcommercePSRelacionados.Update() End Sub Protected Sub BtnEcommercePSRelacionados_Click(sender As Object, e As EventArgs) - If Not ValidaAgregarProductosRelacionadosEcommerce() Then - Exit Sub - End If + 'If Not ValidaAgregarProductosRelacionadosEcommerce() Then + ' Exit Sub + 'End If - Dim TieneError As Boolean = False - Dim CvePS As Integer = DdlEcommercePSRelacionado.SelectedValue.ToEntero + 'Dim TieneError As Boolean = False + 'Dim CvePS As Integer = DdlEcommercePSRelacionado.SelectedValue.ToEntero - 'AGREGAR - Dim ObjEcommerce As New ClsECommerce - If ObjEcommerce.ProductosRelacionadosAdd(Me.CvePS, CvePS, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - Alert("La relación se agregó correctamente.", TipoMensaje.MsgInformacion) - Else - TieneError = True - End If - ObjEcommerce.Dispose() + ''AGREGAR + 'Dim ObjEcommerce As New ClsECommerce + 'If ObjEcommerce.ProductosRelacionadosAdd(Me.CvePS, CvePS, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + ' Alert("La relación se agregó correctamente.", TipoMensaje.MsgInformacion) + 'Else + ' TieneError = True + 'End If + 'ObjEcommerce.Dispose() - If Not TieneError Then - DdlEcommercePSRelacionado.SelectedValue = "-1" - DdlEcommercePSRelacionado.SelectedText = "" - CargaPSRelacionadosEcommerce() - End If + 'If Not TieneError Then + ' DdlEcommercePSRelacionado.SelectedValue = "-1" + ' DdlEcommercePSRelacionado.SelectedText = "" + ' CargaPSRelacionadosEcommerce() + 'End If End Sub Private Function ValidaAgregarProductosRelacionadosEcommerce() As Boolean - Dim Retorno As Boolean = True - Dim Mensaje As New StringBuilder + 'Dim Retorno As Boolean = True + 'Dim Mensaje As New StringBuilder - 'PS - Dim CvePS As Integer = DdlEcommercePSRelacionado.SelectedValue.ToEntero - If CvePS = 0 Then - Mensaje.Append("- El campo Producto es obligatorio. Por favor introduzcalo y vuelva a intentar.
    ") - End If - For Each GvRow As GridViewRow In GvEcommercePSRealacionados.Rows - If GvRow.DataKey("CvePS").ToString.ToEntero = CvePS Then - Mensaje.Append($"- El producto {DdlEcommercePSRelacionado.SelectedText} ya esta relacionado y no se puede duplicar. Por favor verifique y vuelva a intentar.
    ") - Exit For - End If - Next + ''PS + 'Dim CvePS As Integer = DdlEcommercePSRelacionado.SelectedValue.ToEntero + 'If CvePS = 0 Then + ' Mensaje.Append("- El campo Producto es obligatorio. Por favor introduzcalo y vuelva a intentar.
    ") + 'End If + 'For Each GvRow As GridViewRow In GvEcommercePSRealacionados.Rows + ' If GvRow.DataKey("CvePS").ToString.ToEntero = CvePS Then + ' Mensaje.Append($"- El producto {DdlEcommercePSRelacionado.SelectedText} ya esta relacionado y no se puede duplicar. Por favor verifique y vuelva a intentar.
    ") + ' Exit For + ' End If + 'Next - 'VALIDACION - If Mensaje.ToString.Length > 0 Then - Retorno = False - Alert(Mensaje.ToString, TipoMensaje.MsgAdvertencia) - End If + ''VALIDACION + 'If Mensaje.ToString.Length > 0 Then + ' Retorno = False + ' Alert(Mensaje.ToString, TipoMensaje.MsgAdvertencia) + 'End If - Return Retorno + 'Return Retorno End Function - Protected Sub GvEcommercePSRealacionados_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvEcommercePSRealacionados.RowDeleting - Dim TieneError As Boolean = False - Dim GvRow As GridViewRow = GvEcommercePSRealacionados.Rows(e.RowIndex) + 'Protected Sub GvEcommercePSRealacionados_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvEcommercePSRealacionados.RowDeleting + ' 'Dim TieneError As Boolean = False + ' 'Dim GvRow As GridViewRow = GvEcommercePSRealacionados.Rows(e.RowIndex) - Dim ObjEcommerce As New ClsECommerce - If ObjEcommerce.ProductosRelacionadosRemove(GvRow.DataKey("CvePS1").ToString.ToEntero, GvRow.DataKey("CvePS2").ToString.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - Alert("La relación se eliminó correctamente.", TipoMensaje.MsgInformacion) - Else - TieneError = True - End If - ObjEcommerce.Dispose() + ' 'Dim ObjEcommerce As New ClsECommerce + ' 'If ObjEcommerce.ProductosRelacionadosRemove(GvRow.DataKey("CvePS1").ToString.ToEntero, GvRow.DataKey("CvePS2").ToString.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + ' ' Alert("La relación se eliminó correctamente.", TipoMensaje.MsgInformacion) + ' 'Else + ' ' TieneError = True + ' 'End If + ' 'ObjEcommerce.Dispose() - If Not TieneError Then - CargaPSRelacionadosEcommerce() - End If - End Sub + ' 'If Not TieneError Then + ' ' CargaPSRelacionadosEcommerce() + ' 'End If + 'End Sub #End Region @@ -3599,4 +3619,64 @@ Partial Class ProductosyServicios End If End Sub + + Private Sub BtnUpFotos_Click(sender As Object, e As EventArgs) Handles BtnUpFotos.Click + + Dim FilesGral As List(Of Archivo) = TxtUpFotos.getfiles().Archivos + Dim FileMove As String = "" + Dim NewName As String + For Each FileItem As Archivo In FilesGral + + NewName = NowADS().Ticks.ToString + Dim ObjPS As New ClsProductosServicios + Try + FileMove = FileItem.filename + Dim DirectorioOld As New StringBuilder + Dim DirectorioNew As New StringBuilder + DirectorioOld.AppendFormat("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, FileMove) + DirectorioNew.AppendFormat("{0}PS\", UsuarioActual.Empresa.Ruta) + If Not Directory.Exists(DirectorioNew.ToString) Then + Directory.CreateDirectory(DirectorioNew.ToString) + End If + NewName = String.Format("{0}{1}", NewName, IO.Path.GetExtension(DirectorioOld.ToString())) + DirectorioNew.Append(NewName) + + Me.Imagen = String.Format("PS/{0}", NewName) + If ObjPS.UpdatePSImagen(Me.CvePS, Me.Imagen) Then + My.Computer.FileSystem.MoveFile(DirectorioOld.ToString, DirectorioNew.ToString) + End If + + imgImagen.Attributes.Add("src", String.Format("/ashx/SIGWeb.ashx?Metodo=GetImg&r={0}", Extensiones.Encripta(Me.Imagen))) + hplImagen.Attributes.Add("href", String.Format("/ashx/SIGWeb.ashx?Metodo=GetImg&r={0}", Extensiones.Encripta(Me.Imagen))) + upGaleria.Update() + + Catch ex As Exception + OnError("Ocurrió un error al guardar la imagen", ex) + End Try + + ObjPS.Dispose() + RegistraScript("$(""#Modalupfotos"").modal(""hide"");initcarusel();") + TxtUpFotos.Text = "[]" + UpUpFotos.Update() + Next + + End Sub + + Protected Sub BtnEliminarFoto_Click(sender As Object, e As System.EventArgs) + + If (Me.CvePS > 0) Then + Dim ObjPS As New ClsProductosServicios + If ObjPS.UpdatePSImagen(Me.CvePS, "") Then + File.Delete(String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, Me.Imagen)) + Me.Imagen = "" + imgImagen.Attributes.Add("src", "") + hplImagen.Attributes.Add("href", "") + RegistraScript("initcarusel();") + End If + ObjPS.Dispose() + + upGaleria.Update() + End If + + End Sub End Class diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 7b66733c6..c2155b32e 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -979,6 +979,41 @@ + + + +
    +
    + + Imagen del producto + +
    +
    +
    +
    +
    + +
    + +
    +
    +
    +
    +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    +
    +     +     @@ -7617,7 +7652,7 @@ - <%-- + <%-- @@ -8806,7 +8841,7 @@ -
    +