ADS - Cargar imágenes de productos
This commit is contained in:
@@ -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 <b>Descripción</b> es obligatorio. Por favor introduzcalo y vuelva a intentar. <br>")
|
||||
End If
|
||||
If Descripcion.Length > 255 Then
|
||||
Mensaje.Append("- El campo <b>Descripción</b> admite maximo 255 caracteres. Por favor verifique y vuelva a intentar. <br>")
|
||||
End If
|
||||
'Dim Descripcion As String = TxtEcommerceDescripcion.Text.Trim
|
||||
'If Descripcion.Length = 0 Then
|
||||
' Mensaje.Append("- El campo <b>Descripción</b> es obligatorio. Por favor introduzcalo y vuelva a intentar. <br>")
|
||||
'End If
|
||||
'If Descripcion.Length > 255 Then
|
||||
' Mensaje.Append("- El campo <b>Descripción</b> admite maximo 255 caracteres. Por favor verifique y vuelva a intentar. <br>")
|
||||
'End If
|
||||
|
||||
'PRECIO BASE
|
||||
Dim PrecioBase As Double = TxtEcommercePrecioBase.Text.Trim.ToDouble
|
||||
If PrecioBase = 0 Then
|
||||
Mensaje.Append("- El campo <b>Precio</b> es obligatorio. Por favor verifique y vuelva a intentar. <br>")
|
||||
End If
|
||||
If PrecioBase < 0 Then
|
||||
Mensaje.Append("- El campo <b>Precio</b> no puede ser negativo. Por favor verifique y vuelva a intentar. <br>")
|
||||
End If
|
||||
''PRECIO BASE
|
||||
'Dim PrecioBase As Double = TxtEcommercePrecioBase.Text.Trim.ToDouble
|
||||
'If PrecioBase = 0 Then
|
||||
' Mensaje.Append("- El campo <b>Precio</b> es obligatorio. Por favor verifique y vuelva a intentar. <br>")
|
||||
'End If
|
||||
'If PrecioBase < 0 Then
|
||||
' Mensaje.Append("- El campo <b>Precio</b> no puede ser negativo. Por favor verifique y vuelva a intentar. <br>")
|
||||
'End If
|
||||
|
||||
'PRECIO FINAL
|
||||
Dim PrecioPromocion As Double = TxtEcommercePrecioPromocion.Text.Trim.ToDouble
|
||||
If PrecioPromocion < 0 Then
|
||||
Mensaje.Append("- El campo <b>Precio Final</b> no puede ser negativo. Por favor verifique y vuelva a intentar. <br>")
|
||||
End If
|
||||
''PRECIO FINAL
|
||||
'Dim PrecioPromocion As Double = TxtEcommercePrecioPromocion.Text.Trim.ToDouble
|
||||
'If PrecioPromocion < 0 Then
|
||||
' Mensaje.Append("- El campo <b>Precio Final</b> no puede ser negativo. Por favor verifique y vuelva a intentar. <br>")
|
||||
'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 <b>Insignia</b> es obligatorio. Por favor introduzcalo y vuelva a intentar. <br>")
|
||||
End If
|
||||
For Each GvRow As GridViewRow In GvEcommercePSInsignias.Rows
|
||||
If GvRow.DataKey("CveInsignia").ToString.ToEntero = CveInsignia Then
|
||||
Mensaje.Append($"- La Insignia <b>{DdlEcommerceInsignia.SelectedItem.Text}</b> ya es parte del producto y no se puede duplicar. Por favor verifique y vuelva a intentar. <br>")
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
''INSIGNIA
|
||||
'Dim CveInsignia As Integer = DdlEcommerceInsignia.SelectedValue.ToEntero
|
||||
'If CveInsignia = 0 Then
|
||||
' Mensaje.Append("- El campo <b>Insignia</b> es obligatorio. Por favor introduzcalo y vuelva a intentar. <br>")
|
||||
'End If
|
||||
'For Each GvRow As GridViewRow In GvEcommercePSInsignias.Rows
|
||||
' If GvRow.DataKey("CveInsignia").ToString.ToEntero = CveInsignia Then
|
||||
' Mensaje.Append($"- La Insignia <b>{DdlEcommerceInsignia.SelectedItem.Text}</b> ya es parte del producto y no se puede duplicar. Por favor verifique y vuelva a intentar. <br>")
|
||||
' 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 <b>Producto</b> es obligatorio. Por favor introduzcalo y vuelva a intentar. <br>")
|
||||
End If
|
||||
For Each GvRow As GridViewRow In GvEcommercePSRealacionados.Rows
|
||||
If GvRow.DataKey("CvePS").ToString.ToEntero = CvePS Then
|
||||
Mensaje.Append($"- El producto <b>{DdlEcommercePSRelacionado.SelectedText}</b> ya esta relacionado y no se puede duplicar. Por favor verifique y vuelva a intentar. <br>")
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
''PS
|
||||
'Dim CvePS As Integer = DdlEcommercePSRelacionado.SelectedValue.ToEntero
|
||||
'If CvePS = 0 Then
|
||||
' Mensaje.Append("- El campo <b>Producto</b> es obligatorio. Por favor introduzcalo y vuelva a intentar. <br>")
|
||||
'End If
|
||||
'For Each GvRow As GridViewRow In GvEcommercePSRealacionados.Rows
|
||||
' If GvRow.DataKey("CvePS").ToString.ToEntero = CvePS Then
|
||||
' Mensaje.Append($"- El producto <b>{DdlEcommercePSRelacionado.SelectedText}</b> ya esta relacionado y no se puede duplicar. Por favor verifique y vuelva a intentar. <br>")
|
||||
' 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
|
||||
|
||||
Reference in New Issue
Block a user