From d95f77b3e2ccc1deecabbb591e261cec30beee63 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 13 May 2020 20:38:01 -0700 Subject: [PATCH 01/16] Correciones en directorio --- Inventarios/TraspasoAlmacen.aspx.vb | 18 ++++++++---------- OC/OC.aspx.vb | 6 +++--- 2 files changed, 11 insertions(+), 13 deletions(-) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 99ab5f5f1..9b8d3599d 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -2788,7 +2788,7 @@ Partial Class Inventarios_TraspasoAlmacen Protected Sub BtnCargaExcelConceptos_Click(sender As Object, e As EventArgs) If TxtExcelConceptos.getfiles().Archivos.Count > 0 Then Dim file As Archivo = TxtExcelConceptos.getfiles().Archivos(0) - Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch + Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch CargarArchivoConceptos(Directorio, file.filename) RegistraScript("$('#DivCargaExcelConceptos').modal('hide');") Else @@ -2873,20 +2873,18 @@ Partial Class Inventarios_TraspasoAlmacen Dim DtPS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa) For Each RowExcel As DataRow In dt.Rows If RowExcel("Codigo").ToString() <> "" Then - + Dim Valido As Boolean = True Dim RowPS = DtPS.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Codigo").ToString())) - Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero() - Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString().ToEntero() + If RowPS IsNot Nothing Then - Dim Cantidad As Double = RowExcel("Cantidad").ToString().ToDecimal() - Dim SerieLote As String = RowExcel("SerieLote").ToString() - Dim Observaciones As String = RowExcel("Observaciones").ToString() + Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero() + Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString().ToEntero() - If CveProducto > 0 Then - - Dim Valido As Boolean = True + Dim Cantidad As Double = RowExcel("Cantidad").ToString().ToDecimal() + Dim SerieLote As String = RowExcel("SerieLote").ToString() + Dim Observaciones As String = RowExcel("Observaciones").ToString() Dim CveMetodoInventario As Integer = RowPS("Inv_CveMetodoInventario").ToString().ToEntero() diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index b3456153b..0d37f9306 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -4811,7 +4811,7 @@ Partial Class OC Dim Filesgral As List(Of Archivo) = Anexo.getfiles().Archivos For Each fileItem As Archivo In Filesgral - FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "") + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") Filename = fileItem.filename Next @@ -6102,7 +6102,7 @@ Partial Class OC Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click If TxtExcel.getfiles().Archivos.Count > 0 Then Dim file As Archivo = TxtExcel.getfiles().Archivos(0) - Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch + Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") CargarArchivo(Directorio, file.filename, Tipo) Else @@ -7509,7 +7509,7 @@ Partial Class OC Protected Sub BtnCargaExcelCot_Click(sender As Object, e As EventArgs) If TxtExcelCot.getfiles().Archivos.Count > 0 Then Dim file As Archivo = TxtExcelCot.getfiles().Archivos(0) - Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch + Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch CargarArchivoCot(Directorio, file.filename) CargaCotizaciones(CveOrdenCompra) From bda778afb3a18bd5f048f3f8cef1dba0186804fc Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 13 May 2020 20:38:28 -0700 Subject: [PATCH 02/16] Correciones al editar remisiones en punto de venta --- Ventas/PV.aspx.vb | 62 ++++++++++++++++++++++++++++++++++++----------- 1 file changed, 48 insertions(+), 14 deletions(-) diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index dee07e6c9..ec8e13550 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -1789,7 +1789,7 @@ Partial Class PV 'Cargo de nueva cuenta el detalle de Ventas (Conceptos) If Not OcurrioError Then Dim index As Integer = 0 - For Each Row As DataRow In TmpDT.Rows + For Each Row As DataRow In TmpDT.FiltraParametros("EliminarDB = False").Rows Dim CveVentaDetalle As Integer = Row("CveVentaDetalle").ToString.ToEntero() If CveVentaDetalle > 0 Then If Not ObjVentas.UpdateVentaDetalleRemision(Row("CveVentaDetalle").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal(), Row("ImporteIEPS").ToString.ToDecimal(), Row("Obs").ToString, UsuarioActual.CveUsuario) Then @@ -1847,19 +1847,45 @@ Partial Class PV End If 'RECARGA LOS DATOS - If ObjVentas.GetVentaDetalle(CveVenta) Then - TmpDT = ObjVentas.DtResultados.Copy() - ObjFactura.DtDetalle = TmpDT - Else + ObjFactura.Dispose() + ObjFactura = Nothing + ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa) + + If ObjFactura Is Nothing Then OcurrioError = True + Else + TmpDT = ObjFactura.DtDetalle + TmpDT.Columns.Add("EntregaDirecta", GetType(Integer)) + TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer)) + + Dim NumRowsPS As Integer = 0 + Dim CantidadPS As Decimal = 0 + For Each GvRow As GridViewRow In GvPS.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + NumRowsPS += 1 + CantidadPS += GvRow.DataKey("Cantidad").ToDecimal() + End If + Next + + 'VALIDA NUMERO DE REGISTROS + If TmpDT.Rows.Count <> NumRowsPS Then + OcurrioError = True + End If + + 'VALIDA CANTIDAD DE REGISTROS + If TmpDT.SUM("Cantidad") <> CantidadPS Then + OcurrioError = True + End If + End If + 'GUARDA USADOS - If Not ObjVentas.EliminarUsados(CveVenta) Then + If Not OcurrioError AndAlso Not ObjVentas.EliminarUsados(CveVenta) Then OcurrioError = True End If - If TmpDTRecepcionUsados IsNot Nothing Then + If Not OcurrioError AndAlso TmpDTRecepcionUsados IsNot Nothing Then For Each drow As DataRow In TmpDTRecepcionUsados.Rows If Not ObjVentas.AddVentaUsado(CveVenta, drow("CvePS").ToString.ToEntero, drow("Cantidad").ToString.ToDecimal, drow("PU").ToString.ToDecimal, drow("CveBCIUsado").ToString.ToEntero, drow("CveModeloAuto").ToString.ToEntero) Then OcurrioError = True @@ -1869,11 +1895,11 @@ Partial Class PV End If 'GUARDAR AJUSTES' - If Not ObjAcum.EliminarGarantiasDetalle(CveVenta) Then + If Not OcurrioError AndAlso Not ObjAcum.EliminarGarantiasDetalle(CveVenta) Then OcurrioError = True End If - If TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0 Then + If Not OcurrioError AndAlso TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0 Then For Each Dr As DataRow In TmpDTAjustes.Rows If Not ObjAcum.AddGarantiasDetalle(Dr("CveVentaDetalle").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("CveFolioGarantia").ToString.ToEntero, Dr("CveTipoUso").ToString.ToEntero, Dr("CodigoEnsamble").ToString, Dr("CodigoLinea").ToString, Dr("CodigoInspeccion").ToString, Dr("CveTipoDefecto").ToString.ToEntero, @@ -1884,11 +1910,11 @@ Partial Class PV End If 'GUARDAR POLIZA VIRTUAL - If Not ObjAcum.EliminarPolizaVirtual(CveVenta) Then + If Not OcurrioError AndAlso Not ObjAcum.EliminarPolizaVirtual(CveVenta) Then OcurrioError = True End If - If TmpDTPolizaVirtual IsNot Nothing Then + If Not OcurrioError AndAlso TmpDTPolizaVirtual IsNot Nothing Then For Each drow As DataRow In TmpDTPolizaVirtual.Rows If ObjAcum.AddPolizaVirtual(CveVenta, drow("CveVentaDetalle").ToString().ToEntero(), drow("CvePS").ToString.ToEntero, drow("Cantidad").ToString.ToDecimal, drow("PU").ToString.ToDecimal, drow("Descuento").ToString.ToDecimal, drow("Total").ToString.ToDecimal, drow("TipoServicio").ToString.ToEntero, drow("TipoPoliza").ToString.ToEntero, drow("CveModeloAuto").ToString.ToEntero, drow("AnioVehiculo").ToString.ToEntero, CBool(drow("TieneUsado").ToString), @@ -2758,13 +2784,18 @@ Partial Class PV #Region "GVPS" Protected Sub GvPS_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvPS.RowDeleting - Dim DbRow As DataRow = Nothing DbRow = TmpDT.Rows(e.RowIndex) - EliminarUsados(DbRow("Consec").ToString().ToEntero()) + Me.CveVentaDetalle = DbRow("CveVentaDetalle").ToString().ToEntero() - TmpDT.Rows.Remove(DbRow) + If Me.CveVentaDetalle <= 0 Then + EliminarUsados(DbRow("Consec").ToString().ToEntero()) + TmpDT.Rows.Remove(DbRow) + Else + EliminarUsados() + DbRow("EliminarDB") = True + End If GvPS.DataSource = TmpDT.FiltraParametros("EliminarDB = False") DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2") @@ -2774,6 +2805,9 @@ Partial Class PV Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion) + Me.CveVentaDetalle = -1 + + UpContado.Update() End Sub Protected Sub GvPS_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvPS.RowDataBound From c4c75f489e3e100a2f18f713424e05ac9fe2c733 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 14 May 2020 12:04:48 -0700 Subject: [PATCH 03/16] --- App_Code/ClsOIEventos.vb | 103 +++++++++++++++++++++++++ App_Code/ClsPaginas.vb | 2 + OI/UnoaUno.aspx | 86 +++++++++++++++++++++ OI/UnoaUno.aspx.cs | 58 ++++++++++++++ OI/UnoaUnoConfiguracion.aspx | 81 ++++++++++++++++++++ OI/UnoaUnoConfiguracion.aspx.cs | 132 ++++++++++++++++++++++++++++++++ Ventas/Ventas.aspx.vb | 91 +++++++++++++++++----- WEB.rar | Bin 7000 -> 5480 bytes 8 files changed, 533 insertions(+), 20 deletions(-) create mode 100644 OI/UnoaUno.aspx create mode 100644 OI/UnoaUno.aspx.cs create mode 100644 OI/UnoaUnoConfiguracion.aspx create mode 100644 OI/UnoaUnoConfiguracion.aspx.cs diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index 658e42ace..25aefb9ca 100644 --- a/App_Code/ClsOIEventos.vb +++ b/App_Code/ClsOIEventos.vb @@ -219,6 +219,109 @@ Public Class ClsOIEventos Public Property objCorreo As ObjEventosCorreo #End Region +#Region "uno a uno" + Public Function GetUnoaUnoEtiqueta(cveUnoaUnoEtiqueta As Int32, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_GetUnoaUnoEtiqueta", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@cveUnoaUnoEtiqueta", SqlDbType.Int).Value = (cveUnoaUnoEtiqueta) + .Add("@cveEmpresa", SqlDbType.Int).Value = (cveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el UnoaUnoEtiqueta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function AddUnoaUnoEtiqueta(etiqueta As String, cveUnoaUnoEtiquetaVinculo As Int32, cveGrupo As Int32, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_AddUnoaUnoEtiqueta", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@etiqueta", SqlDbType.VarChar).Value = (etiqueta) + .Add("@cveUnoaUnoEtiquetaVinculo", SqlDbType.Int).Value = (cveUnoaUnoEtiquetaVinculo) + .Add("@cveGrupo", SqlDbType.Int).Value = (cveGrupo) + .Add("@cveEmpresa", SqlDbType.Int).Value = (cveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el UnoaUnoEtiqueta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function UpUnoaUnoEtiqueta(cveUnoaUnoEtiqueta As Int32, etiqueta As String, cveUnoaUnoEtiquetaVinculo As Int32, cveGrupo As Int32, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_UpUnoaUnoEtiqueta", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@cveUnoaUnoEtiqueta", SqlDbType.Int).Value = (cveUnoaUnoEtiqueta) + .Add("@etiqueta", SqlDbType.VarChar).Value = (etiqueta) + .Add("@cveUnoaUnoEtiquetaVinculo", SqlDbType.Int).Value = (cveUnoaUnoEtiquetaVinculo) + .Add("@cveGrupo", SqlDbType.Int).Value = (cveGrupo) + .Add("@cveEmpresa", SqlDbType.Int).Value = (cveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el UnoaUnoEtiqueta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function RemoveUnoaUnoEtiqueta(cveUnoaUnoEtiqueta As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_RemoveUnoaUnoEtiqueta", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@cveUnoaUnoEtiqueta", SqlDbType.Int).Value = (cveUnoaUnoEtiqueta) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el UnoaUnoEtiqueta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + + Public Function UnoAUnoTableroGet(cveEmpresa As Int32, fecha As String, cveUsuario As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_UnoAUnoTableroGet", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@Fecha", SqlDbType.Date).Value = (fecha) + .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario) + .Add("@CveEmpresa", SqlDbType.Int).Value = (cveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Tablero Uno A Uno.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return retorno + End Function + Public Function UnoAUnoTableroAdd(cveEmpresa As Int32, fecha As String, cveUsuario As Int32, CveUnoaUnoEtiqueta As Integer, Comentarios As String) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_OI_UnoAUnoADD", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@Fecha", SqlDbType.Date).Value = (fecha) + .Add("@CveUsuario", SqlDbType.Int).Value = (cveUsuario) + .Add("@CveUnoaUnoEtiqueta", SqlDbType.Int).Value = (CveUnoaUnoEtiqueta) + .Add("@Comentarios", SqlDbType.VarChar).Value = (Comentarios) + .Add("@CveEmpresa", SqlDbType.Int).Value = (cveEmpresa) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Tablero Uno A Uno.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return retorno + End Function +#End Region #Region "Trello" Public Function GetTablero(cveTablero As Int32, cveUsuario As Int32, cveEmpresa As Int32) As Boolean Dim retorno As Boolean = False diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 87f743432..4c72f1c8b 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3569,6 +3569,8 @@ Public Class ClsPaginas PaginaDict.Add("/OI/Proyecto.aspx".ToUpper(), -1) PaginaDict.Add("/OI/Tablero.aspx".ToUpper(), -1) PaginaDict.Add("/OI/TableroDetalle.aspx".ToUpper(), -1) + PaginaDict.Add("/OI/UnoaUno.aspx".ToUpper(), -1) + PaginaDict.Add("/OI/UnoaUnoConfiguracion.aspx".ToUpper(), -1) PaginaDict.Add("/OI/ConvocatoriaDetalle.aspx".ToUpper(), -1) PaginaDict.Add("/OI/RepReuniones.aspx".ToUpper(), -1) PaginaDict.Add("/AdSistemasTeam/ProcedimientosAlmacenados.aspx".ToUpper(), -1) diff --git a/OI/UnoaUno.aspx b/OI/UnoaUno.aspx new file mode 100644 index 000000000..e97d18dbe --- /dev/null +++ b/OI/UnoaUno.aspx @@ -0,0 +1,86 @@ +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="UnoaUno.aspx.cs" Inherits="OI_UnoaUno" %> + + + + + + + + + + + Tablero Uno a Uno - + + + + + + + + + + + + + + + + + +
+
+
+ +
+
+
    +
  • Fecha :
    • +
  • +
    + + + + + + + + + + +
    +
    • +
+
+
+
+ + + + + + + +

+

+
+ + + + + +
+
+
+ Guardar +
+ + + + + + diff --git a/OI/UnoaUno.aspx.cs b/OI/UnoaUno.aspx.cs new file mode 100644 index 000000000..24f90da7a --- /dev/null +++ b/OI/UnoaUno.aspx.cs @@ -0,0 +1,58 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Web; +using System.Web.UI; +using System.Web.UI.WebControls; +using Extensiones; +public partial class OI_UnoaUno : ClsPaginas +{ + protected void Page_Load(object sender, EventArgs e) + { + if (!IsPostBack) + { + TxtCFecha.Text = DateTime.Now.ToString("dd/MM/yyyy"); + LtlusuarioTitulo.Text = UsuarioActual.Nombre; + BtnConsultar_Click(null, null); + } + } + + protected void BtnConsultar_Click(object sender, EventArgs e) + { + using (ClsOIEventos ObjPA_O = new ClsOIEventos()) + { + + ObjPA_O.UnoAUnoTableroGet(UsuarioActual.CveEmpresa, TxtCFecha.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario); + GVPA_OI_UnoAUnoTableroGet.DataSource = ObjPA_O.DtResultados; + ObjPA_O.Dispose(); + GVPA_OI_UnoAUnoTableroGet.DataBind(); + } + } + + protected void LnkGuardar_Click(object sender, EventArgs e) + { + string fecha = TxtCFecha.Text.ToDate().ToString("yyyy/MM/dd"); + bool continuar = true; + using (ClsOIEventos ObjPA_O = new ClsOIEventos()) + { + foreach (GridViewRow gvrow in GVPA_OI_UnoAUnoTableroGet.Rows) + { + if (continuar) + { + int CveUnoaUnoEtiqueta = gvrow.DataKey("CveUnoaUnoEtiqueta").ToEntero(); + if (CveUnoaUnoEtiqueta > 0) + { + string Comentarios = gvrow.FCTextBox("TxtComentarios").Text; + continuar = ObjPA_O.UnoAUnoTableroAdd(UsuarioActual.CveEmpresa, fecha, UsuarioActual.CveUsuario, CveUnoaUnoEtiqueta, Comentarios); + } + + } + } + + } + if (continuar) + { + Alert("Información Actualizada"); + } + } +} \ No newline at end of file diff --git a/OI/UnoaUnoConfiguracion.aspx b/OI/UnoaUnoConfiguracion.aspx new file mode 100644 index 000000000..583ed8e8e --- /dev/null +++ b/OI/UnoaUnoConfiguracion.aspx @@ -0,0 +1,81 @@ +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="UnoaUnoConfiguracion.aspx.cs" Inherits="OI_UnoaUnoConfiguracion" %> + + + + + + + Configuración Uno a Uno + + + + + + +
  • Etiqueta
    • +     +     +     + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/OI/UnoaUnoConfiguracion.aspx.cs b/OI/UnoaUnoConfiguracion.aspx.cs new file mode 100644 index 000000000..455ba507a --- /dev/null +++ b/OI/UnoaUnoConfiguracion.aspx.cs @@ -0,0 +1,132 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Web; +using System.Web.UI; +using System.Web.UI.WebControls; +using Extensiones; + +public partial class OI_UnoaUnoConfiguracion : ClsPaginas +{ + + #region Propiedades + private int CcveUnoaUnoEtiqueta + { + get { return (ViewState["CcveUnoaUnoEtiqueta"] == null) ? 0 : Convert.ToInt32(ViewState["CcveUnoaUnoEtiqueta"]); } + set { ViewState["CcveUnoaUnoEtiqueta"] = value; } + } + #endregion + protected void Page_Load(object sender, EventArgs e) + { + if (!IsPostBack) + { + CargaUnoaUnoEtiqueta(); + } + } + protected void CargaUnoaUnoEtiqueta() + { + using (ClsOIEventos ObjUnoa = new ClsOIEventos()) + { + + ObjUnoa.GetUnoaUnoEtiqueta(-1, UsuarioActual.CveEmpresa); + GVUnoaUnoEtiqueta.DataSource = ObjUnoa.DtResultados; + DdlUnoaetiqueta1.DataSource = ObjUnoa.DtResultados; + } + GVUnoaUnoEtiqueta.DataBind(); + DdlUnoaetiqueta1.DataBind(); + DdlUnoaetiqueta1.Items.Insert(0,new ListItem("Seleccione","-1")); + upDatosUnoa.Update(); + } + protected void LimpiaUnoaUnoEtiqueta() + { + TxtUnoaetiqueta.Text = ""; + DdlUnoaetiqueta1.SelectedIndex = 0; + UPModalUnoa.Update(); + } + protected void LnkEditarUnoa_Click(object sender, EventArgs e) + { + LimpiaUnoaUnoEtiqueta(); + ltlUnoatitulo.Text = "Actualizar Etiqueta"; + GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); + CcveUnoaUnoEtiqueta = gvRow.DataKey("CveUnoaUnoEtiqueta").ToEntero(); + string etiqueta = gvRow.DataKey("Etiqueta"); + int cveUnoaUnoEtiquetaVinculo = gvRow.DataKey("CveUnoaUnoEtiquetaVinculo").ToEntero(); + int cveGrupo = gvRow.DataKey("CveGrupo").ToEntero(); + int cveEmpresa = gvRow.DataKey("CveEmpresa").ToEntero(); + + TxtUnoaetiqueta.Text = etiqueta.ToString(); + DdlUnoaetiqueta1.SelectedValue = "-1"; + DdlUnoaetiqueta1.SelectedValueExist(cveUnoaUnoEtiquetaVinculo.ToString()); + this.RegistraScript("$('#DModalUnoaUnoEtiqueta').modal();"); + BtnUnoaADD.Visible = false; + BtnUnoaEdit.Visible = true; + UPModalUnoa.Update(); + } + protected void LnkAgregarUnoa_Click(object sender, EventArgs e) + { + ltlUnoatitulo.Text = "Agregar Etiqueta"; + this.RegistraScript("$('#DModalUnoaUnoEtiqueta').modal();"); + LimpiaUnoaUnoEtiqueta(); + BtnUnoaADD.Visible = true; + BtnUnoaEdit.Visible = false; + UPModalUnoa.Update(); + } + protected void BtnUnoaADD_Click(object sender, EventArgs e) + { + + string etiqueta = TxtUnoaetiqueta.Text; + int cveUnoaUnoEtiquetaVinculo = DdlUnoaetiqueta1.SelectedValue.ToEntero(); + int cveGrupo = 1; + int cveEmpresa = UsuarioActual.CveEmpresa; + bool Continuar = false; + using (ClsOIEventos ObjUnoa = new ClsOIEventos()) + { + Continuar=ObjUnoa.AddUnoaUnoEtiqueta(etiqueta, cveUnoaUnoEtiquetaVinculo, cveGrupo, cveEmpresa); + } + if (Continuar) + { + this.RegistraScript("$('#DModalUnoaUnoEtiqueta').modal('hide');"); + LimpiaUnoaUnoEtiqueta(); + CargaUnoaUnoEtiqueta(); + UPModalUnoa.Update(); + this.Alert("La Etiqueta se ha agregado"); + } + } + protected void BtnUnoaEdit_Click(object sender, EventArgs e) + { + + string etiqueta = TxtUnoaetiqueta.Text; + int cveUnoaUnoEtiquetaVinculo = DdlUnoaetiqueta1.SelectedValue.ToEntero(); + int cveGrupo = 1; + int cveEmpresa = UsuarioActual.CveEmpresa; + bool Continuar = false; + using (ClsOIEventos ObjUnoa = new ClsOIEventos()) + { + Continuar = ObjUnoa.UpUnoaUnoEtiqueta(CcveUnoaUnoEtiqueta, etiqueta, cveUnoaUnoEtiquetaVinculo, cveGrupo, cveEmpresa); + } + if (Continuar) + { + this.RegistraScript("$('#DModalUnoaUnoEtiqueta').modal('hide');"); + LimpiaUnoaUnoEtiqueta(); + UPModalUnoa.Update(); + CargaUnoaUnoEtiqueta(); + this.Alert("La Etiqueta se ha actualizado"); + } + } + protected void LnkEliminarUnoa_Click(object sender, EventArgs e) + { + GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); + CcveUnoaUnoEtiqueta = gvRow.DataKey("CveUnoaUnoEtiqueta").ToEntero(); + bool Continuar = false; + using (ClsOIEventos ObjUnoa = new ClsOIEventos()) + { + + Continuar = ObjUnoa.RemoveUnoaUnoEtiqueta(CcveUnoaUnoEtiqueta); + } + if (Continuar) + { + CargaUnoaUnoEtiqueta(); + this.Alert("La Etiqueta se ha Eliminado"); + } + } +} diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index e828f93c6..6f9caf1da 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -19453,28 +19453,29 @@ Partial Class Ventas End Sub Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String) Dim dt As New DataTable - Dim Conexion As Odbc.OdbcConnection = Nothing + 'Dim Conexion As Odbc.OdbcConnection = Nothing Dim ErrorArchivo = False Dim n As Integer = 0 - Try - Select Case Tipo - Case "EXCEL" - Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";") - Conexion.Open() - Dim cmd = Conexion.CreateCommand() - cmd.CommandType = CommandType.Text - cmd.CommandText = "Select * FROM [Hoja1$] WHERE Cantidad >=1" - Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) - DataAdapter.Fill(dt) - Case Else - Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError) - Exit Sub - End Select - Catch ex As Exception - ErrorArchivo = True - OnError("Ocurrio un Error al leer el archivo
    " & ex.Message, ex) - End Try - Conexion.Close() + dt = ReadExcelFile(Ruta + FileName, True) + 'Try + ' Select Case Tipo + ' Case "EXCEL" + ' Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";") + ' Conexion.Open() + ' Dim cmd = Conexion.CreateCommand() + ' cmd.CommandType = CommandType.Text + ' cmd.CommandText = "Select * FROM [Hoja1$] WHERE Cantidad >=1" + ' Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) + ' DataAdapter.Fill(dt) + ' Case Else + ' Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError) + ' Exit Sub + ' End Select + 'Catch ex As Exception + ' ErrorArchivo = True + ' OnError("Ocurrio un Error al leer el archivo
    " & ex.Message, ex) + 'End Try + 'Conexion.Close() If Not ErrorArchivo Then If Not dt.Columns(0).ColumnName = "Cantidad" Then Alert("El nombre de la primera columna debe ser 'Cantidad'.Favor de corregirlo", TipoMensaje.MsgError) @@ -19523,6 +19524,7 @@ Partial Class Ventas Dim RowNoEncontrados As String = "" Dim NumAgregados As Integer = 0 For Each Row As DataRow In dt.Rows + NumAgregados = NumAgregados + 1 Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal Dim UM As String = Row("UM").ToString() Dim Codigo As String = Row("Código").ToString().Trim.ToUpper @@ -25444,4 +25446,53 @@ Partial Class Ventas Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs) CargaEventoBitacora() End Sub + + Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable + GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) + Dim excelFile As GemBox.Spreadsheet.ExcelFile = GemBox.Spreadsheet.ExcelFile.Load(flatFilePath) + + Dim unnamed As Integer = 0 + Dim cols As Integer + Dim columns As String() + Dim curRow As Integer = 0 + Dim curCol As Integer = 0 + Dim dataTable As DataTable = New DataTable() + Dim worksheet As GemBox.Spreadsheet.ExcelWorksheet = excelFile.Worksheets(0) + + For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1 + + If firstRowHasHeaders Then + + If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then + dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString()) + Else + dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed))) + End If + + curRow = 1 + Else + dataTable.Columns.Add("Column " & (cols + 1)) + End If + Next + + While curRow < worksheet.Rows.Count + columns = New String(cols - 1) {} + + For curCol = 0 To cols - 1 + + If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then + columns(curCol) = "" + Else + columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString() + End If + Next + + dataTable.Rows.Add(columns) + curRow += 1 + End While + + Return dataTable + End Function + + End Class \ No newline at end of file diff --git a/WEB.rar b/WEB.rar index f1421731b052b1f42d03051594978f9053874fa3..7c07463c9e2284dd1daaac0f1263db2cbd04965c 100644 GIT binary patch literal 5480 zcmV-u6_@H#VR9iF2LS++GCPI~0R;yD1_1$&s(=6;U-7&s0s{-usQ?7?*a0Aj@&vPh z0{{wFWnwO4Z*FF3X9@!X{hso#RwLE{%S+A_Kz2hjG(}Gpbx(YV%?@#7Mn+}jB9UE< zr*{dYom0G~+P0gj=Q12cK}3X^x=52`l-gC{nqM?_cxQ(-2Q)Vmb@YM>Af!@#6x*kF z&mL$8PMbst>H@#E(V6^xba}q~$sR0hll+D2WDc%zj7nrF?kb$hLuof1~suNXY4a{>cO#r6h zCB{rcqvAeHxz_(j5KL*NAAx+Frgg`q1?#GBI|lw{vNL=Rbu`JIjZwIQ1<)AL zHY@7j>0RS8uP&&6xL&3~`U-Z$KvaAYfOV;>MOsux(ESi@Y>)<%-U^0j9s;6*{%j$l zzv$XIocWjrR`l{^JfY^us^rFh6! z-~;m+7cml{D937ocEc4k%^;$fWLsM7YFM+t5-npsdgk zFMCb=%AXKM-ztunGUUJ!px|GiubO8MaRA;9CJVB%1S@pFd|Ow#Q0&V+c0Uz?+U@5R zfXik{EW1^d)4Ijk4$RAh%!WweZZ-Zj`8#vjk!?(07O{)wZ2+ekcb(>eYpAb`QP5rY zLX`)}jDTIZC_Z))`3IX&sq&-pr$(CAXhdIoO}f9c`iS1q0oAKR0nnMW8%RDYrCpe>{@%`2P~^G?oW+V-JGBR;EF&vfO~kvq5{c`1kArlwCZV2w zB1Pw*3%-)+Y>AQ*lSRfA=2z=oFydMLb($P{+zxDmhbs8ZGmG+J6a$R2i6vBJysn^Y zpy$#nimp{MtLJ1f$oOFuUxZFY*pP-5VW{K1%tX+R5`J0Pm4Y-%PB7-g;Sn93#uP_ubF(CCN4RMbBa#vdci~bjYW% zNuZx3%NxZo%5G&ODG#{tOiTDhWTE0j=B8EH6%%6#G^ijfm~4W02g@t!%3=Q85LJ*d zD?6p%SdPV;6)LjBHYktt3|U*Vq_W814sqvqBZ8JBLtS*61(dZ+W*;^ux6^5=={VjD z248=j=&r_p40lC5V9#hj$$y)NlaBzi%rOmZ0{OXZ+`Y01lFR$@B@LVY3hO)ZCj~?{ z`nEl|{dZKh$-jdjK|WtEtjWZf7ni&``4 z3ZqOk;v5K`cd~^oP}mmj5fP?g+1nS$+%nWDT9KpEPK_osCbQc<-wpqNC+W|7lh~&p zB8JkK8h@I?Ht4Q4*D~Ot$mBaa-e|rP=b&W!J`RRMb62v9U43}~3gIQkxRJ8XS_Xcs$G_pVR+wwA%j9uvRaJAFq?fD#LLLoqklS z&7*$X_&sWm4P^#1AdF}IXpmtW`m%c29KgUJI|pS|8pAs(oJJXk2etaq9k;{9#qHwt zsy6>le_JCtbk%+C448Anp0BPF3R-JCmnd9tLEv0z9d7et6FHal%3c3=eY8G3Bjo+J zUG?fs#5Jxj`kL4$Ih3l{bJr<;296pL`X3j@;Xy}`X`v*$E}HO?Qr0GzJ6;6d^LagZ z*Vo($2w4wa# zhVI%^q(SNBhkas(&So*#D zztPMP7k5%iQ!ynGs^BGqH)%YwD8T_9q&G{F4crdkAG13k&1h}IzMcolL4~PohJF#j z0*cNzIoopyByWk+X;zdF*$LcX^3z1fWV`NhFPx$s+;B7D<&ubgPslk}WQ7*c3-g;qy1WTf5emuCXyeBYqIFSRRqvONJKE)nw{1q$P_;B<0vUrAf zfT3(iMl2IBy?~2i1WrlabVay1$bl&XE{O8R5-To|15*{XEFRL^;` zyM7Yy-qs9k;{GjnjsFOz{KVA0yjvfH%7;AR# z!+u%=!u!QRO1&E&g_{-r%FeA&o7(TM2M$hiEPq380W5i4Ya$D*fXvw9fcXQ80%<4k zBA7_b$ErLGS#X4%@&+KW&MiSK%!o}`%&ME=7F_)4W}np>Ult-v`vIROCmzbXY#Z1) z#0U#M=|i9gLR1)q(W*SoW342NbsHm&jtz3D07Jl0L@PgZt`ZV2u49frGsj5v_Z-n2 zDOr3ctyQbZIT|x%&hy4i)i!yD8CtHKj^@#SdU6@&)Nf4Vh}xksh?_*>M6oQw2NI!) zG7mI1P_pPvjDtvVngiOGBcd#7FrOO<&O7r2KBf)f1)vC>_l=3H{eXGPj;5kWh$aRv z!da`nxSn!qub()BY@l1agH7e;ePk%SnMppqR@%k`2I>|j7&2HGebCy|hX9zvF zdL|fV5_h_TBJ3J7UEa{9Q6^r5?@h9G0fs8t`O8l^kw%8!l$UE%?Tb9`q{xas^BdE@ z@`7}fIhO$|@#Z&CP0wRF@hW{E6OyTyC?iqFVu3d;+Q*U1G2ux@5oFVV1pY7N2>F`1 zt3w%Q%Vl}g({-(umw-xnrXY{R9m`MaQhCjlWU!=MlTt6SY5LhcFU`5NddvykpM;kz zt~cbT$@BL11+3v%s1S&cE6t5wX7X1P?JP502tor6#&5YF{HNEl@MoVWe8-2k0kxtW zxRtnGu&vh^@`N&5M(l7KgZ9Z11U*t;ABbzWF6nERCZEmcxQE&wb@2=7$Pa8W7wv+Y zLf$j_^#wa;CzBzceRRJD{p)&K_od=@><->W@b9oc_Dp*9(+Jr&!^l{V91v&xUdc`R z_3hQUR}x9)y4N1I(Fn!vS<#dr7$lkAA{E8hjOa zEAT9}+O%!cx88A%P+UqLe~HDnf;R(WE+=V~$j45dA22j{tmo;~)9q93vZ?e#*3&vq zL_j4x$I6cS`e;O+8i1JsX5~bnuN$HvO|Eb~-hmikeH2xXG+(?b9#JsGZY^DAK5mF1 z%(y!NC{7I>zip}$5L7K;OQet1jbLdyFK3y^#@0uVD6dbX-1Ogl5@|Db4ZMs=AzW(p z0N#%yHiXr}6hNsF*yzSE64vCWH%X7qZyM53HDB>j9YNruTp(tBMEaqrQy*N!d7W>e zoD|d~sgyUs=T|bO8FMXd;J&Dqgn6p$oI?=}j;!pH5}BAnZz`nB%xRMj^yp(4$zkO+ z7<;QjC%$*G7p(ol+9gQ3^N=B55!#1RZjN>Y>oj4Dz%SU5|Kuku#VBfk>LEXD%@4*5 z9{A;oz9o{9S$jLJLt{}ymWSUxg!G@j;1$mx%iFZw{p!}6sxUUupf2nElYfCaNi%AG_BL%rBe0kRCmQ-c9{Ru{?xBj6&7v^ zK}N9rRJm@*0N}fFpb#DuYY4}?^zH(6YbydE@dP_G?$QPNHx{ZkT-)GUpe)w93|Xcf-cUX3RPgqp^vZ zhn(-i%uH_^MAp)nlW%?Fu){jc5Rb}u$xiQl4l&Ca9epC4u^`CAo+<;x3YH|ZHhziR zJXqyW5WvS&z6K0D2pBq2kTP6Y^4F#W)8M#5PhGh)Pe zo$yzT6sSZmk{qcc(mC=kt5O}{1?!NNDp96P3mF@Y%VVMqei7*JPq-jd)4(?HajzIj zxCdZcHbk{TQwPhdN$OIX&r#G@A@UOAP)Um>B2R7y1DOqlA6`-8o5^ZaQho!w9SQKh ze`0(@`eA>4EgwOu0neRA1lB=MCyRj;NPQL%9{6;Cg?I)$7&!_VZaD&{2|!YHyw__m zW4I;$XD@XJ$Bdby#TxJEZHSE0QbOG14E)ChYKF4vI`rg|RGiPWd?mUoU9EbJ)veXL zO5G|!ouRk%+8wm=|*S&Q5J7At@omMqh+GVjEpkR1m94V?alMb`Ew zqVpV75u{}MP2y(!EdwlEeH2iX83c

    7Qn6t=sZ_||3__nX#2Lgjo~Q%^Yn|zRz-eH#y0kPP$SeW})Ectk?C^u= zp;DsBH!2H>5_yQPF9TMA32^o=(=(7R`O$z%bhYtQr3y@bQM5fW(l{8hlzVRkS44FH zQoU%GZ2&?0UlEGF|ghaoVYVJ0bzO@ zjn`D@Mye-FH&ypItrx0{D#L<}lQzVdXk83S^j{H(7v2*p2z^4w=*c`noSV;e6kcD2$jqwh z0_(lsz9}+usJ99a?F)Be=+Gj3-;pTmYAGJx4(&f%yr=`+11p86PJ5xQ*sPTMZLfsfM#P zX_|C=fiy&lo6)HjsO14&n4)M-M6YTM;HE3;D(t6`+QWz1%LMYUE(?p?FR96P<+FO6Hq z3O%DjTjuX;PTQLk*$HK8l%<-Ksnpe5WmI{};d&nkxlOYRCK~nEs=@dxCer7Qyz1V8 zd9q1r4y2yok@Qbb=60)OSAaJDx!|IDqga+_M!4QBjD@)^me@w_Mk0}Ilr00i^c0U(I-1haqx018)S eVlHEEZf0p`3IhWDp7O6&Bh~>OcUDmY1q1+MlxDpE literal 7000 zcmV-e8>i$_VR9iF2LS-{;ezW60R;yD1_1$pfPeta(|sZ+0s{-Ong9go?EoO9jvX6- z0{{w4Z)ZtvE@5+UcnSjojVZ93Wg^xA$gwUBFm^;kGc@v7RqxO@!R{E?B*>0qNcxu!g^Td7{r`VG-v9MCnE4ntA>7Fkc5hnra9TC^ zp?8lv4ny}c`w>08YZ=;sfq%m4?0A`Ifq5Os%ZeTcx>V1IU|@4A53>v%a4tLh|Ihgk z#22tO^RL2hA=_XEonjlq)dVayr`*ORJg-8_Z2Jy6yCA0T$;IX2=KmgUGi8Ogk#LW* zG)VXv1RKrt+D+pJT-_r9!Z`p4UfWe(f$>g{p+IcNuFu!lE7F00RDLG`cmf3Z@Tfk4 zvlq?KaD*t^;UC`pvE1{q{$d5FROfxAKG#dLncjDv0kj^I(q)3|{>CBzeFEfa`H%L_ASo}<(oPP=0nR*%%|P^9Mw zOoW(~T<_+@)J#^YB>@q?`al_8On*|&wIhsDKGv--12C6iEuiEOL4eigdI$8jB@6YC zbFP6F1_>;8o&^YDXCG3s_E}POb+#z5LZNlP+?eCbB~d+b)g_&!L@V;&7RXfvudp;v z=~(BYb!wFB3%hp{tMy7^U7YA|c(PjG03~Nb0brnlsxa?5G%{oqsDa~k_R=~~B@@WC z(?WeRPo*K_N`1K0j#IcMy#A0aA@VMiZ<6@8uX8$Ju^sme*gLReg;Y-o501;34FqFC zVTPb_2Br-jl{peNb}@tvhZg<3h?qAl1uBT;B`$nfM?GUw=lZpAVcsyE2Mt_YP*LI;!vdbL z^moJbH;JyP^dk%3G2zNkA0yVvB(8|wuy^Od=sQfViYN8c^)eQ!g7S{|u)=o)wb#~| z6+r`4Kzw5He?XuMT0Urv>Zg7ou2U^RuO6unYNy^|VUKm~5xrgAL0$NDtm^k`s-3|F zXtlGX;f-=N^wNbA?ZU`GE9KFF3X^B|{(u<;4nx}(lytI9c>jEJpB9Q|*Nrn^BKo#8U(JjZc{rAdX-QJV_E zyB%I!%r@{F9lBPF8Hk!6nZ~3raD#UahFzP9jAx0ccp`=nS{K|9xItJfNMCAf;G{yP zd>^oxJ-3lZmKJhpjMQCNyRjW?+BBY5eBI08lwA)7myhj@)vqCa=ZZNyH;-&_Zyvzn z6*H_`$j#$KhDONk7f2Ny_3o<@jAp?iSe-J2xBy?K@1u1u*9)7-ZZtjpowLG4#aWV@dWQ@qsxZeS< z@~{>3aX0RcAy*@8mhz6bm_{|d`0vGhmdUx6`^hk73ke(7u{7%0fM*zyKmmEs;k)+j z$a)={s*6SjgE+#&sxFilC@XKt^bonJoAHy0Z(2-kM$f9)eJS`-`C^9d=6NDuJ)S|9 zsLZi`$Ls$Ot-Q900Xvu;Au+PCdn46%3)N_#wkNL95%_!APd|I%?YpJzA9tYEjE()p zqe>Zu*i3>V#fkAJl1B^0?wBuqHZgk&OI%+Z6ag+LjIkOgX|U#G>-2|QE%hF9Bc3PD z{F!RzmJ1)0HuTUD<#8|+T~^FosiKw+g#(NyaWXhwt<;&3&f{z+|EK5WYdb6czmcGb z%S`8gVq5}pXWWfTUzUx6tqM)bb8fArvU6X=0E}PPn#iB1B3MDJ3GYNTM~Iqt3QT}U zjG24!W=Z2e~aKiRMG8cuLUJ6h?r zZ1WpusKZl3j@KSB$sK#bWLs^1x6vg-SJg@ zVPiNJj)#dNmSdFBD;gd$F)hYl>0Qh}CG@16b zP&oQ}NQn4NL7y4EM%KNv3mYSXW&excGi$EK*I(oK%jSFUi58t&va1wxJvC6xi=|?E zv~x#}3?z87=M}VTitLIE0aZ+KDZx;N zCJUjOXzh&imX@-Zz4u|R{4CkDh}A|RAA3O#1$?p-(GKozC} zp?`}H3r>R93P|V@-ZiRsmbWSfM#@LnjQqmnDqAty!X}0sfkFEY0SOl=l5Xw=b=*Tg zaykS~f+Hst@kXbK`(hTKEB>IZvjT3#dMpoM{n*R{)?{jj6jAvz5tS|t)nm$;a*>pXDjjwGN%iBI_DVT&S75mYz(T5< zJdo(3G&bkKbMP=SGCgQLvkVYL3LQ04xc)q=I?><-N_y?hDyuPL4<9s>K)EkvGdPMO z`BdQ&&HB(tCLi3Y9-TYkl^yGr)Rxu0+(As>^K(dEpzf0^oQ|Gi6*&k?AxQvhV^(s- zNb{ug=n1+DI=|g&$Q)=PH`U&ATznnBsaY?X}IwhQ7NC2 zKtEJqmrX+13JWVl*q0b1KEQ$gHkkJ-g}}N}K`6{XH34-I&R`T+o-8MT)=&$43HUCl z3O&Ux5m|7~FPyO83?O&xkti48iSUjAFK|UK$MH3;SACX<5-ImWMcJ8#mG737!*FO^ z`)NuJb8JIsrrMCKcZaW)J%N|3BZZE@4Z8iyXvV5@aj;pdf!BUn)JlMaIu+Zs0m2YL zQV@qZk_9Uem?Xv|GNHwh@st^$+mGyx+ZBMzu#W}@)8HQ}04cJ05#K@Iu0~#U2&aQ! zYGVXGX)IPA``r(mv-Ab`u_a3M{ps$l4$Lt#*CHG!c*Agb%`r@O)g)4!(U`S)i}K>h zZtA}^WAt0=#a40E8B}DbZMH=Y*g%}=LQjq;*z+!!?maT|_%wN{+UAL%_1EMn>J+xM@ zPH(?+PU~7NOR&4Sq+@s2T)@&{P4K3C{Z;IQAKr=#xSm z-l8`m@(sI%pjFFx)6B6{-Rs2yhV{F(uvx$mW{Q2i3>nuN>NZp79j6u8IgzA77f(tr=S1S(xMFxvC>Ni=lS%mYxf6fCo{x69?m!#889Sp_YNNV z*F+{tQz_rxH0D`ayvTzT(sam19*(y3bNbRf_ohYSdz&V`>73;OeZ=&7FdAXlp`zkut@+xr9@%X6>`f|kqy`E$)nds^Dxe$N zcS4i=0}H8}00iy&03eH6T;zZQ01ZrUXGv}@ zVRLYJE_PxH0|HnwUV?@j)&a;mr429!Lo+l)@>W&v&@;ivSOzq}cARo%UT_O`1C6B%HZ6_WXl;G;e0~Xd9kEz6~3b>MMk<7Soq`gFGSJk)%y< znlxzDQ8(i?_)n|i6(v+Cnk1rY!oUCg|F|>gao659KKGwvI@gZ*{;%a7rOVjyu=C8g z+E#b_pJB9F3y&Z_*pI9-c8ztTfP-OkHUbMVd>?&`I?6?#=*Lps7#0Efm_WbR&c7qg8yqB4`~L#CJ|SNxGupR*h10s*u&|1 zYaqP-mwY-|W8sWpAR4NP5LB+VM+KP_6=&QTRf7dW=kG?ZV;L zRptOt6ha-%)$Sk*27w#C4?!Kc?q`AHjNk>Jft!(qkRp-+SxaAs-nFm0@LTcpkFQSx zh9FjsU{5x7O_bp_OfLsnmAVk%fOkH$Isq7h9M;E!*{v`=$`T_N?_gPj+nL+#1aThb z0Kp+!04o93MjajxT+#s1=nP1~`3ufGN{^M1j{&(W3(V&;IvQo?(S~5k#Yt##vG7aV z;-Z5ckKd9) zIc$f14=0Dx`M^Drz=HbDaHh{^t2LWTd$eY)`5LxSk^sqC!j<;sgG~9aGk;Y#2Z!6K z{$S7JZlnJ;U%=7EW$R~j1{s}r@l9cgYc zuMq4Gf+jl)ug=S1+(Gp`w=m=OV#Wye4UwG=1k78X+``DJKD8*#gpzWfI~x6g$EMVV^>sQ0O#YK-2e;4G!<2;Vu4wNFzHZ0lC~xmt{7wJA$+5u+iU>S`^bfd1Gk2H+G{HV!D?hLMYyw6#u$<&TJf*f zf*n^a(uqH9#Njz3C730Xx%gxpTZzoNUKjH(#F3mth^={!v*~I69WTD)WLDvQv`%6+ z6%mNPg7q%Y>Zzh^j%K(M+nU3Z0KHzZAgw0QB^Tx~gc)4&NU}&EMG)KPR#75$?(re< z5A2N5nug~>fZ%Tt0WhGIJNmXOA!P)ChK;5q zue{E|FtI|kJ+u*w!InpXG02yVvFF?5GNV|}G5Y_b?F=Nzd0?9~Qk_Ko@O|5Z>26m( z6#?*$pFlM)k(|EtG*%Z7!0DBihVRieO7Zh^+|=X^)y_D^J#HzQfrJ$i?yRIXzR;Bu z%U0=S=3vp+5zy?7i(10hDWGDW$9O?~M&R2wjjv~%N9}sL8yX_Ju;=;t+z6$(40oRtBg55>xH2uo$nbT{TE=kKN~ooJv2>FH zE=$(7-&9^qfPxNKoNDRw^)fL<*&B*upYh;RbuLQV@g@z(?v^(~Ep9jw=RS0ZyJ*b! zW898R-jfw>g*}GkzQQZ6KPfjS*EMKbGowHuzZyx1R?P{@rIs`63s^>E^0}X>)+JkR zr+slDh?sXfFF9&s3YJ4DVo(nLsrWoT-w(S~e@w-Gom2h(ABTtI;cI*LY*>Oopv&C+ zTJ~*|+C*p2paVnjHS-iZvd9K2eGlUcxa}Y;8g$&=ajjrYprU@FPMZ`JRw=%FIFL&~`BX1mK<+)sah>VF7Hz$dh%lmVvDBVj1eg1AT5$(pTGjpx?7|e9q#ncQs=o zt%@lT4$B?IFkJNmeb-!etB&a9gZaReKqwKQiHt(7)ds1kSh4OCnh6ddn~-De47xl# z=0B=n+Q~UMG)f$sK^@K;oigLP5PxioTSMe`wJUlxe=19lMX7)jh|~lu9dd{>B`Z(l zkPLfuCSQ86!*60fIeL;=6!4W&9OU&sba{?S`MkMYT3ZZiAj(TD?woQEB|JTOQ;}k%UwR*T7r7=hAQoE#mg&wTvi{5=f?e)V=(H7Z~wx~wq(Itt1<+`~X81mW+ zdV`{cG2EOz;#*Tr=%&MOGoq(j9*U*h>&H^O5oNgU4MUBlWjd)#DOH6|rhI|Zsin_v zNu_#Uwf4HT~-GdZ8M+JD-UgGavadtbPUsypa zH;6+}g?7b~lQWW{zSiUu6f>cyvf?>ADG5Z| z-O*^-BDo>8b{O%!?THp;azP_)cpRjPQb!JN`0sqb$Hv#mNoBbW{m}J^uwJi9X$kGQ z>OwDGL$(=Z(F7qkR91@%Ae?3e_`Qh9vf(626~!kaC^>pbfu&yaxKBs5wcvoQiw(?| zIJvp`E*lX3k1Qs;hXwvzm-ZrLs}k#YBLc(LBjR<;=$m+TY88=r*n>&c_9bckX8SNx zzlMWE&sZosSVJe%D=E7yR7y02g4902fBpKd+SRd(pO|pb-X5Pq$QawAduP}AtdowG z4DWxM$$hC-tCMiA-Tm$FCfv)EVEv5EbU7?J?zRCGtRKPrTQ3l`iwW7lRJ)un8JS_Y z<#h=jpD3zpyB-f_tQT^3=wVtO-CS?6uR9|xYQT;r*XPH?LbGGZp~y{vV7Q5&sXzfd zRbrL2Z;hp}HR~kyqAy4{<(`{l((hsPT9UuJH}y#r+h2vClsx;rHbir3xaYl+WeO~C zCUQlM*Z}@#7)P$CNib1rg!4)w96Oj**mUUXd`*NQpCT^UMw%-KMXOg*#Et_QW1*wv z36hnH*-z|0wdr9Ip6FQ!w9a#w#LL`_81r-Y)@ zBLf#WuI`%FtJUh7eebeAQ{q}>xO@A%n!EEAS&GVnN)8_Wb|YOvz3BUCDa55g3k>v8 z4C{1OiS>3yVI&+{uaFX1xhWvVgZ&nip#IQz4C%|IQ%DxuMC7Znur^T@B->&9`Y5*B zOy-wGU+PIy$|O>vk=8r!>Il-{Ar)Z4OW#05jcPMCr zW${ROQyt*nREVhMVwM&iJz&sWiVqUGT~f}fI?rAzlCzKOQ^cE;^r=lFd`z{MoN{jg zKzT@BUaRKmK{1(|W5=cFvyN{IHsMjuSial-x3aXiNOt-iI{Grj1v?yr{-Frt&hb1h zI1MLmj*taTp9K!M;=Ps9o|B-7CjXQj1 Date: Thu, 14 May 2020 12:10:01 -0700 Subject: [PATCH 04/16] Ruta de consulta de rptChequeMovimientos.rdlc ahora apunta a C Proyectos --- Bancos/Reportes.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/Reportes.aspx.vb b/Bancos/Reportes.aspx.vb index 5d0cb6b33..b96bf50c4 100644 --- a/Bancos/Reportes.aspx.vb +++ b/Bancos/Reportes.aspx.vb @@ -141,7 +141,7 @@ Partial Class Bancos_Reportes rv.LocalReport.DataSources.Clear() rv.LocalReport.DataSources.Add(rds) rv.LocalReport.DataSources.Add(rds2) - rv.LocalReport.ReportPath = ModExtensiones.DirectorioBaseEmpresas & "Bancos\Reportes\rptChequeMovimientos.rdlc" + rv.LocalReport.ReportPath = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\rptChequeMovimientos.rdlc" rv.LocalReport.Refresh() Dim paramList As New List(Of ReportParameter) From baac40127c3a6fa15edc61ea0773f12aff4f6e0e Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 14 May 2020 12:35:34 -0700 Subject: [PATCH 05/16] excel gembox --- App_Code/modExtensiones.vb | 47 +++++++++++++++++++++++++ OC/OC.aspx.vb | 46 ------------------------ Ventas/Ventas.aspx.vb | 72 ++------------------------------------ 3 files changed, 50 insertions(+), 115 deletions(-) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 7f7473927..1b799cb7d 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -68,6 +68,53 @@ Namespace Extensiones #End Region + Public Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable + GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) + Dim excelFile As GemBox.Spreadsheet.ExcelFile = GemBox.Spreadsheet.ExcelFile.Load(flatFilePath) + + Dim unnamed As Integer = 0 + Dim cols As Integer + Dim columns As String() + Dim curRow As Integer = 0 + Dim curCol As Integer = 0 + Dim dataTable As DataTable = New DataTable() + Dim worksheet As GemBox.Spreadsheet.ExcelWorksheet = excelFile.Worksheets(0) + + For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1 + + If firstRowHasHeaders Then + + If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then + dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString()) + Else + dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed))) + End If + + curRow = 1 + Else + dataTable.Columns.Add("Column " & (cols + 1)) + End If + Next + + While curRow < worksheet.Rows.Count + columns = New String(cols - 1) {} + + For curCol = 0 To cols - 1 + + If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then + columns(curCol) = "" + Else + columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString() + End If + Next + + dataTable.Rows.Add(columns) + curRow += 1 + End While + + Return dataTable + End Function + Public Function CadenaConexion() As String Dim BaseDatos As String = "Ventas" 'If Not IsNothing(System.Web.HttpContext.Current) AndAlso Not IsNothing(System.Web.HttpContext.Current.Session) Then diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 8d188b934..0bc60d29f 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -6110,52 +6110,6 @@ Partial Class OC End If End Sub - Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable - SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) - Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath) - - Dim unnamed As Integer = 0 - Dim cols As Integer - Dim columns As String() - Dim curRow As Integer = 0 - Dim curCol As Integer = 0 - Dim dataTable As DataTable = New DataTable() - Dim worksheet As ExcelWorksheet = excelFile.Worksheets(0) - - For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1 - - If firstRowHasHeaders Then - - If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then - dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString()) - Else - dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed))) - End If - - curRow = 1 - Else - dataTable.Columns.Add("Column " & (cols + 1)) - End If - Next - - While curRow < worksheet.Rows.Count - columns = New String(cols - 1) {} - - For curCol = 0 To cols - 1 - - If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then - columns(curCol) = "" - Else - columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString() - End If - Next - - dataTable.Rows.Add(columns) - curRow += 1 - End While - - Return dataTable - End Function Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 6f9caf1da..9e050a276 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -19451,31 +19451,11 @@ Partial Class Ventas Public Sub LbDescargarExcel_Click(sender As Object, e As EventArgs) Handles LbDescargarExcelVentas.Click DescargarFormato() End Sub - Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String) + Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String, FileUrl As String) Dim dt As New DataTable - 'Dim Conexion As Odbc.OdbcConnection = Nothing Dim ErrorArchivo = False Dim n As Integer = 0 - dt = ReadExcelFile(Ruta + FileName, True) - 'Try - ' Select Case Tipo - ' Case "EXCEL" - ' Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";") - ' Conexion.Open() - ' Dim cmd = Conexion.CreateCommand() - ' cmd.CommandType = CommandType.Text - ' cmd.CommandText = "Select * FROM [Hoja1$] WHERE Cantidad >=1" - ' Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) - ' DataAdapter.Fill(dt) - ' Case Else - ' Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError) - ' Exit Sub - ' End Select - 'Catch ex As Exception - ' ErrorArchivo = True - ' OnError("Ocurrio un Error al leer el archivo
    " & ex.Message, ex) - 'End Try - 'Conexion.Close() + dt = ReadExcelFile(FileUrl, True) If Not ErrorArchivo Then If Not dt.Columns(0).ColumnName = "Cantidad" Then Alert("El nombre de la primera columna debe ser 'Cantidad'.Favor de corregirlo", TipoMensaje.MsgError) @@ -19676,7 +19656,7 @@ Partial Class Ventas Dim file As Archivo = TxtExcel.getfiles().Archivos(0) Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") - CargarArchivo(Directorio, file.filename, Tipo) + CargarArchivo(Directorio, file.filename, Tipo, file.FileUrl) Else Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError) End If @@ -25447,52 +25427,6 @@ Partial Class Ventas CargaEventoBitacora() End Sub - Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable - GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) - Dim excelFile As GemBox.Spreadsheet.ExcelFile = GemBox.Spreadsheet.ExcelFile.Load(flatFilePath) - - Dim unnamed As Integer = 0 - Dim cols As Integer - Dim columns As String() - Dim curRow As Integer = 0 - Dim curCol As Integer = 0 - Dim dataTable As DataTable = New DataTable() - Dim worksheet As GemBox.Spreadsheet.ExcelWorksheet = excelFile.Worksheets(0) - - For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1 - - If firstRowHasHeaders Then - - If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then - dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString()) - Else - dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed))) - End If - - curRow = 1 - Else - dataTable.Columns.Add("Column " & (cols + 1)) - End If - Next - - While curRow < worksheet.Rows.Count - columns = New String(cols - 1) {} - - For curCol = 0 To cols - 1 - - If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then - columns(curCol) = "" - Else - columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString() - End If - Next - - dataTable.Rows.Add(columns) - curRow += 1 - End While - - Return dataTable - End Function End Class \ No newline at end of file From 61c473e8858668e8a0849f477ba2aba62c0a80f1 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 14 May 2020 12:59:22 -0700 Subject: [PATCH 06/16] Correccion de directorio --- AF/AF.aspx.vb | 2 +- Bancos/CreditosPagoMultiple.aspx.vb | 2 +- Compras/Proveedores.aspx.vb | 4 ++-- General/RepPaqueteriasGuias.aspx.cs | 2 +- Inventarios/RecepcionUsados.aspx.vb | 4 ++-- OI/SoporteADS.aspx.vb | 4 ++-- PortalProveedor/PortalProveedor.aspx.vb | 2 +- 7 files changed, 10 insertions(+), 10 deletions(-) diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index f705a3c26..f53722f3c 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -2407,7 +2407,7 @@ Partial Class AF_AF Dim filemove As String = "" For Each fileItem As Archivo In filesgral - FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "") + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") filemove = fileItem.filename Next diff --git a/Bancos/CreditosPagoMultiple.aspx.vb b/Bancos/CreditosPagoMultiple.aspx.vb index 615b0c0b8..70a1873b4 100644 --- a/Bancos/CreditosPagoMultiple.aspx.vb +++ b/Bancos/CreditosPagoMultiple.aspx.vb @@ -216,7 +216,7 @@ Partial Class Bancos_CreditosPagoMultiple Dim filemove As String = "" Dim Comprobante As String = "" For Each fileItem As Archivo In filesgral - Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "") + Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") filemove = fileItem.filename Next diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 0d11cf687..6e1e76ea6 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -2625,7 +2625,7 @@ Partial Class Compras_Proveedores Dim filemove As String = "" For Each fileItem As Archivo In filesgral - FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "") + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") filemove = fileItem.filename Next @@ -2871,7 +2871,7 @@ Partial Class Compras_Proveedores Try - FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "") + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") Dim tempArray() As String tempArray = fileItem.filename.ToString().Split("-".ToCharArray()) diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs index de9a07d40..9fcbd9d2b 100644 --- a/General/RepPaqueteriasGuias.aspx.cs +++ b/General/RepPaqueteriasGuias.aspx.cs @@ -618,7 +618,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas { try { - FileExtension = System.IO.Path.GetExtension(string.Format("{0}Temp\\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", ""); + FileExtension = System.IO.Path.GetExtension(string.Format("{0}Temp\\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", ""); string rutaDestino = UsuarioActual.Empresa.Ruta + "Documentos\\Guias\\" + CvePaqueteriaGuia + "." + FileExtension; if (!System.IO.Directory.Exists(UsuarioActual.Empresa.Ruta + "Documentos\\Guias\\")) { diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 1145c7f0f..fc562aaa7 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -1540,7 +1540,7 @@ Partial Class Inventarios_RecepcionUsados Dim Filesgral As List(Of Archivo) = Anexo.getfiles().Archivos For Each fileItem As Archivo In Filesgral - FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "") + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") Filename = fileItem.filename Next @@ -1624,7 +1624,7 @@ Partial Class Inventarios_RecepcionUsados Dim Filename As String = "" For Each fileItem As Archivo In Filesgral - FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)) '.Replace(".", "") + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)) '.Replace(".", "") Filename = fileItem.filename Next diff --git a/OI/SoporteADS.aspx.vb b/OI/SoporteADS.aspx.vb index e91072dd1..13e589cda 100644 --- a/OI/SoporteADS.aspx.vb +++ b/OI/SoporteADS.aspx.vb @@ -2011,7 +2011,7 @@ Partial Class OI_SoporteADS For Each fileItem As Archivo In Filesgral - FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "") + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") 'Filename = fileItem.filename Dim tempArray() As String tempArray = fileItem.filename.ToString().Split("-".ToCharArray()) @@ -2061,7 +2061,7 @@ Partial Class OI_SoporteADS For Each fileItem As Archivo In Filesgral - FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "") + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") 'Filename = fileItem.filename Dim tempArray() As String tempArray = fileItem.filename.ToString().Split("-".ToCharArray()) diff --git a/PortalProveedor/PortalProveedor.aspx.vb b/PortalProveedor/PortalProveedor.aspx.vb index 74ae350dd..fe6e0251c 100644 --- a/PortalProveedor/PortalProveedor.aspx.vb +++ b/PortalProveedor/PortalProveedor.aspx.vb @@ -1676,7 +1676,7 @@ Partial Class Portal_PortalProveedor ' Try - ' FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "") + ' FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") ' Dim tempArray() As String ' tempArray = fileItem.filename.ToString().Split("-".ToCharArray()) From 03a16df078b8d08d4e69184205f14420bba4bc17 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 14 May 2020 20:18:17 -0700 Subject: [PATCH 07/16] =?UTF-8?q?Se=20agreg=C3=B3=20informaci=C3=B3n=20a?= =?UTF-8?q?=20RepSaldosDetalle=20al=20igual=20que=20en=20Clientes=20y=20su?= =?UTF-8?q?=20reporte=20de=20EquiposGPS?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/RepSaldosDetalle.aspx | 18 ++- Bancos/RepSaldosDetalle.aspx.vb | 1 + Empresas/Grales/Formatos/EquiposGPS.rdlc | 157 +++++++++++++++++++++-- Ventas/Clientes.aspx | 4 +- Ventas/Clientes.aspx.vb | 1 + 5 files changed, 163 insertions(+), 18 deletions(-) diff --git a/Bancos/RepSaldosDetalle.aspx b/Bancos/RepSaldosDetalle.aspx index 6c2f52af6..1fbcf81ae 100644 --- a/Bancos/RepSaldosDetalle.aspx +++ b/Bancos/RepSaldosDetalle.aspx @@ -9,7 +9,7 @@ Generar - Reporte de Saldos Bancarios Detalle -  + Reporte de Saldos Bancarios Detalle

  • @@ -20,11 +20,23 @@
    -
    +
    + Banco: +
    +
    + +
    +
    + Cuenta: +
    +
    + +
    +
    - +

    diff --git a/Bancos/RepSaldosDetalle.aspx.vb b/Bancos/RepSaldosDetalle.aspx.vb index 620ae912b..42f977f51 100644 --- a/Bancos/RepSaldosDetalle.aspx.vb +++ b/Bancos/RepSaldosDetalle.aspx.vb @@ -155,6 +155,7 @@ Partial Class Bancos_RepSaldosDetalle Cuenta = dr("NumCuenta").ToString CLABE = dr("CLABE").ToString Banco = dr("Banco").ToString + lbBancoNombre.Text = Banco If CveCuenta > 0 Then LblCuenta.Text = dr("NumCuenta").ToString LblSaldoInicial.Text = dr("SaldoInicial").ToString.ToDouble.FormatoNumero diff --git a/Empresas/Grales/Formatos/EquiposGPS.rdlc b/Empresas/Grales/Formatos/EquiposGPS.rdlc index fc62c6c0b..1903cd7ba 100644 --- a/Empresas/Grales/Formatos/EquiposGPS.rdlc +++ b/Empresas/Grales/Formatos/EquiposGPS.rdlc @@ -35,10 +35,10 @@ Textbox9 - 0.0441cm - 0.09671cm + 0.66321cm + 0.16285cm 0.478cm - 17.92498cm + 11.30626cm @@ -50,7 +50,7 @@ - 0.62012cm + 1.25512cm 0.22583cm 0cm 17.79586cm @@ -65,16 +65,16 @@ - 3.65719cm + 2.95132cm - 3.49856cm + 2.94294cm 1.44923cm - 1.99986cm + 1.5894cm 2.68423cm @@ -82,6 +82,9 @@ 2.54257cm + + 1.5217cm + 2.19006cm @@ -288,6 +291,39 @@ + + + + true + true + + + + + Estatus + + + + Textbox5 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + @@ -531,6 +567,40 @@ + + + + true + true + + + + + =iif(Fields!Estatus.Value="1","Activo","Inactivo") + + + + + + + Estatus + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -578,6 +648,7 @@ + @@ -591,9 +662,9 @@ DataSet1 - 0.79651cm + 1.43151cm 1.16648cm - 18.02169cm + 17.87145cm 2 + + true + true + + + + + Cliente: + HTML + + + + =Parameters!Cliente.Value + HTML + + + + + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + - 0.86559in + 1.13642in - Textbox11 @@ -958,6 +1079,10 @@ FechaIng System.String + + Estatus + System.String + DataSet @@ -994,6 +1119,12 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + Cm 40c94aad-a12a-44fb-ab0d-ea36a9656792 diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 459603c9b..e9fc7d01e 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -283,7 +283,7 @@
  • - +
    • @@ -294,7 +294,7 @@
  • - +
    • diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index e1d3732bd..e2dd42935 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -3758,6 +3758,7 @@ Partial Class Clientes params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("NombreUsuario", UsuarioActual.Usuario)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) + params.Add(New ReportParameter("Cliente", TxtNombre.Text)) Dim ObjGPS As New ClsGPS Dim tablaReporte As DataTable From f2ea971f9180fbc453710d48821f3a206a06b70b Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 15 May 2020 11:07:38 -0700 Subject: [PATCH 08/16] faltaban los rangos de fechas --- Bancos/RepSaldosDetalle.aspx | 18 +++++++++++++++--- Bancos/RepSaldosDetalle.aspx.vb | 2 ++ 2 files changed, 17 insertions(+), 3 deletions(-) diff --git a/Bancos/RepSaldosDetalle.aspx b/Bancos/RepSaldosDetalle.aspx index 1fbcf81ae..84e3ea5ed 100644 --- a/Bancos/RepSaldosDetalle.aspx +++ b/Bancos/RepSaldosDetalle.aspx @@ -23,16 +23,28 @@
    Banco:
    -
    +
    Cuenta:
    -
    +
    -
    +
    + Fecha Inicial: +
    +
    + +
    +
    + Fecha Fin: +
    +
    + +
    +
    diff --git a/Bancos/RepSaldosDetalle.aspx.vb b/Bancos/RepSaldosDetalle.aspx.vb index 42f977f51..3ffb63879 100644 --- a/Bancos/RepSaldosDetalle.aspx.vb +++ b/Bancos/RepSaldosDetalle.aspx.vb @@ -156,6 +156,8 @@ Partial Class Bancos_RepSaldosDetalle CLABE = dr("CLABE").ToString Banco = dr("Banco").ToString lbBancoNombre.Text = Banco + LblFechaI.Text = FechaInicio + LblFechaF.Text = FechaFin If CveCuenta > 0 Then LblCuenta.Text = dr("NumCuenta").ToString LblSaldoInicial.Text = dr("SaldoInicial").ToString.ToDouble.FormatoNumero From ff4a9372c17cdb67ce7bd3ccde3b3d693c4179ea Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 15 May 2020 12:30:39 -0700 Subject: [PATCH 09/16] ajustes al reporte --- Bancos/RepSaldosDetalle.aspx | 4 +- Bancos/RepSaldosDetalle.aspx.vb | 10 +++-- .../Grales/Formatos/RepSaldosDetalle.rdlc | 44 ++++++++++--------- 3 files changed, 31 insertions(+), 27 deletions(-) diff --git a/Bancos/RepSaldosDetalle.aspx b/Bancos/RepSaldosDetalle.aspx index 84e3ea5ed..9b1f0539e 100644 --- a/Bancos/RepSaldosDetalle.aspx +++ b/Bancos/RepSaldosDetalle.aspx @@ -6,14 +6,14 @@
  • - Generar
    • + Excel     Reporte de Saldos Bancarios Detalle
  • - Imprimir + PDF
    • diff --git a/Bancos/RepSaldosDetalle.aspx.vb b/Bancos/RepSaldosDetalle.aspx.vb index 3ffb63879..3ecb33a4d 100644 --- a/Bancos/RepSaldosDetalle.aspx.vb +++ b/Bancos/RepSaldosDetalle.aspx.vb @@ -177,13 +177,15 @@ Partial Class Bancos_RepSaldosDetalle End Sub Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click - GvS.ExportToExcel("ReporteSaldos" & Now.ToShortDateString) + ImprimirReporte("Excel") End Sub - - #Region "P D F" Private Sub LinkPDF_Click(sender As Object, e As EventArgs) Handles LinkPDF.Click + ImprimirReporte("PDF") + End Sub + + Private Sub ImprimirReporte(formato As String) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) @@ -218,7 +220,7 @@ Partial Class Bancos_RepSaldosDetalle params.Add(New ReportParameter("LogoPath", "")) End If - ImprimirPDF("Empresas/Grales/Formatos/RepSaldosDetalle.rdlc", dt, params, "RepSaldosDetalle") + ImprimirPDF("Empresas/Grales/Formatos/RepSaldosDetalle.rdlc", dt, params, "RepSaldosDetalle", Formato:=formato) Ban.Dispose() End Sub diff --git a/Empresas/Grales/Formatos/RepSaldosDetalle.rdlc b/Empresas/Grales/Formatos/RepSaldosDetalle.rdlc index fdd9645ea..67c6632b2 100644 --- a/Empresas/Grales/Formatos/RepSaldosDetalle.rdlc +++ b/Empresas/Grales/Formatos/RepSaldosDetalle.rdlc @@ -5,7 +5,7 @@ 0.08792cm 0cm - 20.43968cm + 19.02093cm @@ -16,31 +16,31 @@ - 1cm + 0.99817cm - 1.7cm + 0.89235cm - 1.6439cm + 1.64207cm - 6.48678cm + 6.29065cm - 2.63648cm + 2.28597cm - 1.29cm + 1.28817cm - 1.83034cm + 1.82851cm - 1.70625cm + 1.70442cm - 2.02375cm + 2.02192cm @@ -473,7 +473,7 @@ - 0.6cm + 0.83813cm @@ -803,8 +803,8 @@ DataSet1 0.36336cm 0.06868cm - 1.06771cm - 20.3175cm + 1.30584cm + 18.95225cm 1 - 0.60091in + 0.79883in - Textbox1 @@ -979,7 +981,7 @@ Textbox13 0.11854cm - 16.8543cm + 15.48905cm 1.76352cm 3.53188cm 3 @@ -1038,7 +1040,7 @@ Textbox13 2.41272cm - 15.92826cm + 14.56301cm 0.52945cm 4.45792cm 4 @@ -1110,7 +1112,7 @@ 0.11437cm 0.10583cm 0cm - 20.33385cm + 18.9151cm @@ -1266,7 +1268,7 @@ Textbox3 0.22726cm - 18.32031cm + 16.95506cm 0.36335cm 2.06587cm 5 From 616af1a2125c1ee99391ece01b0f79396b45db97 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 15 May 2020 22:53:48 -0700 Subject: [PATCH 10/16] Correcion en de global en servicio web del pescadito --- asmx/WSApp.asmx | 52 ++++++++++++++++++++++++++++++++++++------------- 1 file changed, 39 insertions(+), 13 deletions(-) diff --git a/asmx/WSApp.asmx b/asmx/WSApp.asmx index 461d63f35..88b6270ad 100644 --- a/asmx/WSApp.asmx +++ b/asmx/WSApp.asmx @@ -1,5 +1,5 @@ -<%@ WebService Language="VB" Class="WSApp" %> - +<%@ WebService Language="VB" Class="WSApp" %> + Option Explicit On Imports System.Data @@ -22,9 +22,9 @@ Imports Newtonsoft.Json.Linq Public Class WSApp - Inherits System.Web.Services.WebService + Inherits System.Web.Services.WebService #Region "G L O B A L - D T" - + Public ReadOnly Property UrlSitio As String Get Return ConfigurationManager.AppSettings("UrlSitio").ToString @@ -425,9 +425,34 @@ Public Class WSApp Set(value As DataTable) Application("GlobalDTMotivosHorasExtras") = value End Set - End Property + End Property + + + Public Property GlobalDTUnidadesMedida(Optional CveEmpresa As Integer = -1) As DataTable + Get + Dim AppNombre As String = String.Format("GlobalDTUnidadesMedida-{0}", CveEmpresa) + 'sino existe, recarga los datos + If DirectCast(Application(AppNombre), DataTable) Is Nothing Or (DirectCast(Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(Application(AppNombre), DataTable).Rows.Count = 0) Then + Dim ObjUnidadesMedida As New ClsUnidadesMedida() + If ObjUnidadesMedida.GetUnidadesMedida(CveEmpresa) Then Application(AppNombre) = ObjUnidadesMedida.DtResultados + ObjUnidadesMedida.Dispose() + End If + + If CveEmpresa <> -1 Then + Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), " UnidadMedida", DataViewRowState.CurrentRows) + GlobalDTUnidadesMedida = Dv.ToTable + Dv.Dispose() + Else + GlobalDTUnidadesMedida = DirectCast(Application(AppNombre), DataTable) + End If + End Get + Set(value As DataTable) + Dim AppNombre As String = String.Format("GlobalDTUnidadesMedida-{0}", CveEmpresa) + Application(AppNombre) = value + End Set + End Property #End Region - + Public Property CveEmpresa As Integer = 143 Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario) @@ -448,7 +473,7 @@ Public Class WSApp Else End If ObjEmpresa.Dispose() - End Sub + End Sub #Region "M E T O D O S - S E R V I C I O" Public Function ValidaUsuario(CveUsuario As Integer) As Usuario Dim UsuarioActual As Usuario = Nothing @@ -783,9 +808,9 @@ Public Class WSApp Retorno.Mensajes.Add("Ocurrió un error al eliminar el movimiento. Por favor vuelva a intetar.") End If ObjInv.Dispose() - End Sub + End Sub #End Region - + #Region "P E D I D O S" Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre Dim Timbre As New CFDITimbre @@ -899,9 +924,9 @@ Public Class WSApp i += 1 Next Return Timbre - End Function + End Function #End Region - + #Region "R E M I S I O N E S" Private Function CreaFactura(ByRef Retorno As Modelos.Factura.MMensajeFactura, CveCliente As Integer, CveAlmacen As Integer, CveSubProyecto As Integer, CveMoneda As Integer, UsuarioActual As Usuario, Observaciones As String, ListaPS As List(Of MVentaProductos)) As Modelos.Factura If CveSubProyecto <= 0 Then @@ -1430,9 +1455,10 @@ Public Class WSApp End Try ObjVentas.Dispose() Return strBody.ToString - End Function + End Function #End Region - + + End Class Namespace WebServiceAppModels2 From cfad8f03cdbcf058e6bfdb9009c29b363a54387e Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Sat, 16 May 2020 12:52:17 -0700 Subject: [PATCH 11/16] 4 campos agregados a productos servicio y columnas renombradas en los reportes --- App_Code/ClsProductosServicios.vb | 16 +- Empresas/72/Formatos/ConsumoInterno.rdlc | 109 ++++++++- Empresas/72/Formatos/DevolucionCliente.rdlc | 105 ++++++++- Empresas/72/Formatos/DevolucionProveedor.rdlc | 104 ++++++++- Empresas/72/Formatos/EntradaGarantia.rdlc | 109 +++++++-- Empresas/72/Formatos/EntradaSalida.rdlc | 103 ++++++++- Empresas/72/Formatos/Entradas.rdlc | 107 ++++++++- Empresas/72/Formatos/Inicial.rdlc | 103 ++++++++- .../Formatos/RepInventarioFisicoDetalle.rdlc | 99 +++++++- Empresas/72/Formatos/Salidas.rdlc | 103 ++++++++- Empresas/72/Formatos/Salidas2.rdlc | 103 ++++++++- Empresas/72/Formatos/SalidasGarantia.rdlc | 103 ++++++++- Empresas/72/Formatos/Traslado.rdlc | 106 ++++++++- Empresas/72/Formatos/TrasladoAlmacen.rdlc | 216 ++++++++++++++++-- Ventas/ProductosServicios.aspx | 32 +++ Ventas/ProductosServicios.aspx.vb | 10 +- 16 files changed, 1386 insertions(+), 142 deletions(-) diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 786b97c24..6b4c01406 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -389,7 +389,8 @@ Public Class ClsProductosServicios Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1, Optional CveFraccionArancelaria As Integer = -1, Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "", - Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False) As Integer + Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, + Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_ProductosServiciosAdd") @@ -463,6 +464,11 @@ Public Class ClsProductosServicios .Add("@ClaveCategoriaToxicidad", SqlDbType.VarChar).Value = ClaveCategoriaToxicidad .Add("@Litraje", SqlDbType.Float).Value = Litraje .Add("@EsOutSourcing", SqlDbType.Bit).Value = EsOutSourcing + + .Add("@AplicaSerie", SqlDbType.Bit).Value = AplicaSerie + .Add("@AplicaLote", SqlDbType.Bit).Value = AplicaLote + .Add("@AplicaCaducidad", SqlDbType.Bit).Value = AplicaCaducidad + .Add("@AplicaSeccion", SqlDbType.Bit).Value = AplicaSeccion End With Try @@ -608,7 +614,8 @@ Public Class ClsProductosServicios Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1, Optional CveFraccionArancelaria As Integer = -1, Optional CveUsuarioModifico As Integer = -1, Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "", - Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False) As Boolean + Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, + Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ProductosServiciosUpdate") @@ -683,6 +690,11 @@ Public Class ClsProductosServicios .Add("@ClaveCategoriaToxicidad", SqlDbType.VarChar).Value = ClaveCategoriaToxicidad .Add("@Litraje", SqlDbType.Float).Value = Litraje .Add("@EsOutSourcing", SqlDbType.Bit).Value = EsOutSourcing + + .Add("@AplicaSerie", SqlDbType.Bit).Value = AplicaSerie + .Add("@AplicaLote", SqlDbType.Bit).Value = AplicaLote + .Add("@AplicaCaducidad", SqlDbType.Bit).Value = AplicaCaducidad + .Add("@AplicaSeccion", SqlDbType.Bit).Value = AplicaSeccion End With Try diff --git a/Empresas/72/Formatos/ConsumoInterno.rdlc b/Empresas/72/Formatos/ConsumoInterno.rdlc index 4f83b35f6..cf6d31666 100644 --- a/Empresas/72/Formatos/ConsumoInterno.rdlc +++ b/Empresas/72/Formatos/ConsumoInterno.rdlc @@ -6,19 +6,22 @@ - 1.08025cm + 1.10177cm - 2.86537cm + 2.88689cm - 10.83004cm + 7.80282cm - 2.36735cm + 2.38887cm - 2.1384cm + 2.86584cm + + + 2.15992cm @@ -169,7 +172,7 @@ - Serie/Lote + Serie + + + + + + Textbox4 + + + + + 1pt + + + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + @@ -356,14 +404,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + @@ -1645,8 +1726,12 @@ Almacen System.String - - SerieLote + + Serie + System.String + + + SeccionAlmacen System.String diff --git a/Empresas/72/Formatos/DevolucionCliente.rdlc b/Empresas/72/Formatos/DevolucionCliente.rdlc index ba12d2d1f..b04d46e3c 100644 --- a/Empresas/72/Formatos/DevolucionCliente.rdlc +++ b/Empresas/72/Formatos/DevolucionCliente.rdlc @@ -6,19 +6,22 @@ - 1.4138cm + 1.08751cm 2.86537cm - 7.90885cm + 5.59405cm 2.36735cm - 2.7734cm + 2.92336cm + + + 2.35004cm @@ -169,7 +172,7 @@ - Serie/Lote + Serie + + + + + + Textbox17 + + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + @@ -350,14 +398,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value @@ -366,7 +414,37 @@ + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + @@ -419,6 +497,7 @@ + @@ -435,7 +514,7 @@ 0.17639cm 0.12931cm 0.96717cm - 17.32877cm + 17.18768cm @@ -667,7 +746,7 @@ 1.28125in + + + + + + Textbox5 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + @@ -382,14 +429,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value @@ -400,7 +447,39 @@ - SerieLote1 + Serie + + + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "1pt", "0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + + + + SeccionAlmacen @@ -423,6 +502,7 @@ + @@ -1014,8 +1094,12 @@ Almacen System.String - - SerieLote + + Serie + System.String + + + SeccionAlmacen System.String diff --git a/Empresas/72/Formatos/EntradaGarantia.rdlc b/Empresas/72/Formatos/EntradaGarantia.rdlc index 82e7a4f82..1232b8f04 100644 --- a/Empresas/72/Formatos/EntradaGarantia.rdlc +++ b/Empresas/72/Formatos/EntradaGarantia.rdlc @@ -6,19 +6,22 @@ - 1.4138cm + 1.19235cm - 2.86537cm + 2.76934cm - 7.90885cm + 6.51065cm 2.36735cm - 2.7734cm + 2.8175cm + + + 1.6716cm @@ -169,7 +172,7 @@ - Serie/Lote + Serie + + + + + + Textbox10 + + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + @@ -214,7 +262,7 @@ - Unidad Medida + U. M. @@ -366,7 +414,37 @@ + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + @@ -419,6 +497,7 @@ + @@ -435,7 +514,7 @@ 0.17639cm 0.09031cm 0.96717cm - 17.32877cm + 17.32879cm @@ -458,7 +537,7 @@ 0.54167in + + + + + + Textbox17 + + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + @@ -214,7 +262,7 @@ - Unidad Medida + U.M. @@ -366,7 +414,37 @@ + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + @@ -419,6 +497,7 @@ + @@ -435,7 +514,7 @@ 0.17639cm 0.12931cm 0.96717cm - 17.17002cm + 17.12418cm @@ -1523,8 +1602,12 @@ Almacen System.String - - SerieLote + + Serie + System.String + + + SeccionAlmacen System.String diff --git a/Empresas/72/Formatos/Entradas.rdlc b/Empresas/72/Formatos/Entradas.rdlc index 5a9ef0bb3..beab2af56 100644 --- a/Empresas/72/Formatos/Entradas.rdlc +++ b/Empresas/72/Formatos/Entradas.rdlc @@ -12,13 +12,16 @@ 2.06688cm - 7.9493cm + 6.26873cm - 2.51129cm + 1.69187cm - 1.43594cm + 2.8175cm + + + 1.11844cm 1.56514cm @@ -175,7 +178,7 @@ - Serie/Lote + Serie + + + + + + Textbox1 + + + + + 1pt + + + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + @@ -454,14 +502,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + @@ -787,7 +868,7 @@ 1.75444in + + + + + + Textbox2 + + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + @@ -448,14 +496,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value @@ -464,7 +512,37 @@ + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + @@ -589,6 +667,7 @@ + @@ -783,7 +862,7 @@ 1.83333in + + + + + + Textbox45 + + + + + + + + + Silver + 2pt + 2pt + 2pt + + + + @@ -590,7 +634,7 @@ - =Fields!SerieLote.Value + =Fields!Serie.Value + + + + + + SeccionAlmacen + + + =IIF(RowNumber(nothing) Mod 2 = 0,"LightGrey","White") + 2pt + 2pt + 2pt + 2pt + + + + @@ -737,6 +815,7 @@ + @@ -2104,8 +2183,12 @@ PS System.String - - SerieLote + + Serie + System.String + + + SeccionAlmacen System.String diff --git a/Empresas/72/Formatos/Salidas.rdlc b/Empresas/72/Formatos/Salidas.rdlc index 6d8f328e2..41362ace5 100644 --- a/Empresas/72/Formatos/Salidas.rdlc +++ b/Empresas/72/Formatos/Salidas.rdlc @@ -6,19 +6,22 @@ - 1.08025cm + 1.04906cm 2.86537cm - 10.83004cm + 8.0952cm 2.36735cm - 2.1384cm + 2.73484cm + + + 2.16959cm @@ -169,7 +172,7 @@ - Serie/Lote + Serie + + + + + + Textbox1 + + + + + 1pt + + + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + @@ -356,14 +404,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + + + + + + + Textbox3 + + + + + 1pt + + + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + @@ -348,14 +395,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value @@ -364,7 +411,38 @@ + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + @@ -489,7 +568,7 @@ 1.76239in + + + + + + Textbox10 + + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + @@ -350,14 +398,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value @@ -366,7 +414,37 @@ + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + @@ -419,6 +497,7 @@ + @@ -435,7 +514,7 @@ 0.17639cm 0.09031cm 0.96717cm - 17.32877cm + 17.32879cm @@ -458,7 +537,7 @@ 0.54167in + + + + + + Textbox10 + + + + Black + + 1pt + + + Black + + 1pt + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + @@ -401,14 +449,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value @@ -419,7 +467,40 @@ - SerieLote + Serie + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + + + + SeccionAlmacen @@ -443,6 +524,7 @@ + @@ -459,7 +541,7 @@ 0.07056cm 0.03488cm 0.92264cm - 20.29478cm + 20.18483cm @@ -545,8 +627,8 @@ Textbox31 - 1.15947cm - 2.85732cm + 1.13431cm + 2.8926cm 0.90014cm 17.46676cm 3 @@ -1564,8 +1646,12 @@ Almacen System.String - - SerieLote + + Serie + System.String + + + SeccionAlmacen System.String diff --git a/Empresas/72/Formatos/TrasladoAlmacen.rdlc b/Empresas/72/Formatos/TrasladoAlmacen.rdlc index 00ae4fedc..1714ac257 100644 --- a/Empresas/72/Formatos/TrasladoAlmacen.rdlc +++ b/Empresas/72/Formatos/TrasladoAlmacen.rdlc @@ -6,7 +6,7 @@ - 1.37635cm + 1.03892cm 1.74824cm @@ -15,21 +15,24 @@ 1.41283cm - 8.7207cm + 7.13876cm - 2.50488cm + 2.21384cm + + + 2.51239cm 2.15376cm - 2.60235cm + 2.07958cm - 0.51314cm + 1.01502cm @@ -229,7 +232,7 @@ - Serie/Lote + Serie + + + + + + Textbox2 + + + + Black + + 1pt + + + Black + + 1pt + + #0e2455 + 2pt + 2pt + 2pt + 2pt + + + + @@ -497,14 +545,14 @@ - + true true - =Fields!SerieLote.Value + =Fields!Serie.Value @@ -515,7 +563,40 @@ - SerieLote + Serie + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!SeccionAlmacen.Value + + + + + + + SeccionAlmacen @@ -772,6 +853,40 @@ + + + + true + true + + + + + + + + + + + + Textbox15 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + @@ -1026,6 +1141,40 @@ + + + + true + true + + + + + + + + + + + + Textbox18 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + @@ -1280,6 +1429,40 @@ + + + + true + true + + + + + + + + + + + + Textbox42 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + @@ -1371,6 +1554,7 @@ + @@ -1395,8 +1579,8 @@ DsInventarios 0.07056cm 0.03488cm - 2.80201cm - 20.51911cm + 3.30389cm + 20.29832cm @@ -1504,7 +1688,7 @@ 1.68587in - + - Tablero Uno a Uno - + Tablero Uno a Uno - + @@ -22,6 +39,8 @@ +
  • + Seguir
    •      @@ -31,55 +50,402 @@ -
    -
    -
    - -
    -
    -
      -
    • Fecha :
      • -
    • -
      - - - - - - - - - - + +
      +
      +
      +
      +
      + + + Siguiendo A +
      +
      +
      +
      -
      • -
    +
    +
    +
    +
    + + + + +
    + + +     +     +     +     +
    +
    +
    + +
    +
    +
    + + + Seguido por +
    +
    +
    +
    +
    +
    +
    +
    + + + + + + + + + +
    +
    +
    +
    +
    +
    +
    + + + Preguntas +
    +
    +
    +
    +
    +
    +
    + +
    +
    +
    + +
    +
    +
      +
    • Fecha :
      • +
    • +
      + + + + + + + + + + +
      +
      • +
    +
    +
    +
    + + + + +

    +

    +
    + +     +     +     +     +
    +
    +
    + Guardar +
    +
    - - - - -

    -

    -
    - -     -     -     -     -
    -
    -
    - Guardar -
    + + + + diff --git a/OI/UnoaUno.aspx.cs b/OI/UnoaUno.aspx.cs index 24f90da7a..69060c408 100644 --- a/OI/UnoaUno.aspx.cs +++ b/OI/UnoaUno.aspx.cs @@ -7,26 +7,81 @@ using System.Web.UI.WebControls; using Extensiones; public partial class OI_UnoaUno : ClsPaginas { + + + #region Propiedades + public const string idDivModalSeguir = "idDivModalSeguir"; + public const string idDivModalSiguiendoA = "idDivModalSiguiendoA"; + private int CcveUnoaUnoPregunta + { + get { return (ViewState["CcveUnoaUnoPregunta"] == null) ? 0 : Convert.ToInt32(ViewState["CcveUnoaUnoPregunta"]); } + set { ViewState["CcveUnoaUnoPregunta"] = value; } + } + private System.Data.DataTable DtPreguntas + { + get { return (ViewState["DtPreguntas"] == null) ? null : (System.Data.DataTable)ViewState["DtPreguntas"]; } + set { ViewState["DtPreguntas"] = value; } + } + //private int CcveUnoaUnoCuestionario + //{ + // get { return (ViewState["CcveUnoaUnoCuestionario"] == null) ? 0 : Convert.ToInt32(ViewState["CcveUnoaUnoCuestionario"]); } + // set { ViewState["CcveUnoaUnoCuestionario"] = value; } + //} + #endregion protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) { TxtCFecha.Text = DateTime.Now.ToString("dd/MM/yyyy"); LtlusuarioTitulo.Text = UsuarioActual.Nombre; + + + + GvUsuarioCuest.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC"); + GvUsuarioCuest.DataBind(); + CargarSiguiendoA(); + CargarSeguidoPor(); BtnConsultar_Click(null, null); } } - + private void CargarSiguiendoA() + { + using (ClsOIEventos ObjUnoa = new ClsOIEventos()) + { + ObjUnoa.GetUnoAUnoSiguiendoA(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa); + GVSiguiendoA.DataSource = ObjUnoa.DtResultados;//.FiltraParametros("","",new string[] { "CveSeguir", "Usuario" }); + } + GVSiguiendoA.DataBind(); + } + private void CargarSeguidoPor() + { + using (ClsOIEventos ObjUnoa = new ClsOIEventos()) + { + ObjUnoa.GetUnoaUnoCuestionario_Usuarios(-1, -1, UsuarioActual.CveUsuario); + GVSeguidoPor.DataSource = ObjUnoa.DtResultados.FiltraParametros("", "", new string[] { "CveUsuarioSeguidor", "NombreSeguidor" }); + } + GVSeguidoPor.DataBind(); + } protected void BtnConsultar_Click(object sender, EventArgs e) { + GVPA_OI_UnoAUnoTableroGet.DataSource = new System.Data.DataTable(); using (ClsOIEventos ObjPA_O = new ClsOIEventos()) { ObjPA_O.UnoAUnoTableroGet(UsuarioActual.CveEmpresa, TxtCFecha.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario); GVPA_OI_UnoAUnoTableroGet.DataSource = ObjPA_O.DtResultados; ObjPA_O.Dispose(); - GVPA_OI_UnoAUnoTableroGet.DataBind(); } + GVPA_OI_UnoAUnoTableroGet.DataBind(); + if (GVPA_OI_UnoAUnoTableroGet.Rows.Count > 0) + { + LnkGuardar.Visible = true; + } + else + { + LnkGuardar.Visible = false; + } + UpContenido.Update(); } protected void LnkGuardar_Click(object sender, EventArgs e) @@ -39,11 +94,11 @@ public partial class OI_UnoaUno : ClsPaginas { if (continuar) { - int CveUnoaUnoEtiqueta = gvrow.DataKey("CveUnoaUnoEtiqueta").ToEntero(); - if (CveUnoaUnoEtiqueta > 0) + int CveUnoaUnoPregunta = gvrow.DataKey("CveUnoaUnoPregunta").ToEntero(); + if (CveUnoaUnoPregunta > 0) { string Comentarios = gvrow.FCTextBox("TxtComentarios").Text; - continuar = ObjPA_O.UnoAUnoTableroAdd(UsuarioActual.CveEmpresa, fecha, UsuarioActual.CveUsuario, CveUnoaUnoEtiqueta, Comentarios); + continuar = ObjPA_O.UnoAUnoTableroAdd(UsuarioActual.CveEmpresa, fecha, UsuarioActual.CveUsuario, CveUnoaUnoPregunta, Comentarios); } } @@ -52,7 +107,470 @@ public partial class OI_UnoaUno : ClsPaginas } if (continuar) { - Alert("Información Actualizada"); + Alert("Tus respuestas se han actualizado", ModExtensiones.TipoMensaje.ToastInformacion); } } + + protected void LnkSeguir_Click(object sender, EventArgs e) + { + TabContainerSeguir.ActiveTabIndex = 0; + CargarPreguntas(); + cargarCuestionario(); CargarSeguirA(); + if (GVUnoaUnoPregunta.Rows.Count > 0) + { + TabContainerSeguir.ActiveTabIndex = 1; + //if (GVCuestionario.Rows.Count > 0) + //{ + // TabContainerSeguir.ActiveTabIndex = 2; + //} + } + else + { + TabContainerSeguir.ActiveTabIndex = 0; + } + switch (TabContainerSeguir.ActiveTabIndex) + { + case 1: + TxtCuestionario.Focus(); + break; + case 2: + //TxtCuestionario.Focus(); + break; + default: + TxtPregunta.Focus(); + break; + } + RegistraScript(string.Format("$('#{0}').modal()", idDivModalSeguir)); + UpModalSeguir.Update(); + openmodalseguir(); + } + private void openmodalseguir() + { + string focustxt = "$('.TxtPregunta').focus();"; + switch (TabContainerSeguir.ActiveTabIndex) + { + case 1: + focustxt = "$('.TxtCuestionario').focus();"; + break; + default: + focustxt = "$('.TxtPregunta').focus();"; + break; + } + RegistraScript(string.Format("$('#{0}').modal();$('#{0}').on('shown.bs.modal', function (e) {{ {1} }});", idDivModalSeguir, focustxt)); + } + #region pregunta + private void CargarPreguntas() + { + + using (ClsOIEventos ObjUnoa = new ClsOIEventos()) + { + if (ObjUnoa.GetUnoaUnoPregunta(-1, UsuarioActual.CveEmpresa)) + { + GVUnoaUnoPregunta.DataSource = ObjUnoa.DtResultados; + DdlPregunta.DataSource = ObjUnoa.DtResultados; + GvPreguntasCuestionario.DataSource = ObjUnoa.DtResultados; + + } + } + GvPreguntasCuestionario.DataBind(); + GVUnoaUnoPregunta.DataBind(); + DdlPregunta.DataBind(); + //DdlPregunta.Items.Insert(0, new ListItem("", "-2")); + DdlPregunta.Items.Insert(0, new ListItem("Seleccione", "-1")); + upPreguntas.Update(); + } + + //protected void LnkAgregarPregunta_Click(object sender, EventArgs e) + //{ + // TxtPregunta.Text = ""; + // DdlPregunta.SelectedIndex = -1; + // CcveUnoaUnoPregunta = -1; + // LtlTituloPregunta.Text = "Agregar Pregunta"; + // TxtPregunta.Focus(); + + // LnkAgregarPregunta.Visible = false; + // LnkGuardarPregunta.Visible = true; + // LnkCancelarPregunta.Visible = true; + //} + protected void LnkEditarPregunta_Click(object sender, EventArgs e) + { + TxtPregunta.Text = ""; + CcveUnoaUnoPregunta = -1; + TxtPregunta.Focus(); + + + GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); + CcveUnoaUnoPregunta = gvRow.DataKey("CveUnoaUnoPregunta").ToEntero(); + string Pregunta = gvRow.DataKey("Pregunta"); + int cveUnoaUnoPreguntaVinculo = gvRow.DataKey("CveUnoaUnoPreguntaVinculo").ToEntero(); + + TxtPregunta.Text = Pregunta; + DdlPregunta.SelectedValue = "-1"; + DdlPregunta.SelectedValueExist(cveUnoaUnoPreguntaVinculo.ToString()); + + + LnkGuardarPregunta.Text = "Actualizar"; + LnkCancelarPregunta.Visible = true; + upPreguntas.Update(); + openmodalseguir(); + } + protected void LnkCancelarPregunta_Click(object sender, EventArgs e) + { + CcveUnoaUnoPregunta = -1; + LnkGuardarPregunta.Text = "Guardar"; + LnkCancelarPregunta.Visible = false; + upPreguntas.Update(); + openmodalseguir(); + } + protected void LnkEliminarPregunta_Click(object sender, EventArgs e) + { + GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); + CcveUnoaUnoPregunta = gvRow.DataKey("CveUnoaUnoPregunta").ToEntero(); + bool continuar = true; + using (ClsOIEventos ObjUnoa = new ClsOIEventos()) + { + + continuar = ObjUnoa.RemoveUnoaUnoPregunta(CcveUnoaUnoPregunta, UsuarioActual.CveEmpresa); + } + if (continuar) + { + CcveUnoaUnoPregunta = -1; + TxtPregunta.Text = ""; + CcveUnoaUnoPregunta = -1; + TxtPregunta.Focus(); + LnkGuardarPregunta.Text = "Guardar"; + LnkCancelarPregunta.Visible = false; + Alert("La pregunta se ha eliminado correctamente", ModExtensiones.TipoMensaje.ToastInformacion); + CargarPreguntas(); + } + openmodalseguir(); + } + + protected void LnkGuardarPregunta_Click(object sender, EventArgs e) + { + bool continuar = true; + + string Pregunta = TxtPregunta.Text; + int cveUnoaUnoPreguntaVinculo = DdlPregunta.SelectedValue.ToEntero(); + using (ClsOIEventos ObjUnoa = new ClsOIEventos()) + { + if (CcveUnoaUnoPregunta > 0) + { + + continuar = ObjUnoa.UpUnoaUnoPregunta(CcveUnoaUnoPregunta, Pregunta, cveUnoaUnoPreguntaVinculo, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); + } + else + { + continuar = ObjUnoa.AddUnoaUnoPregunta(Pregunta, cveUnoaUnoPreguntaVinculo, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); + } + } + if (continuar) + { + CargarPreguntas(); + CcveUnoaUnoPregunta = -1; + TxtPregunta.Text = ""; + CcveUnoaUnoPregunta = -1; + TxtPregunta.Focus(); + LnkGuardarPregunta.Text = "Guardar"; + LnkCancelarPregunta.Visible = false; + Alert("La pregunta se ha agregado correctamente", ModExtensiones.TipoMensaje.ToastInformacion); + } + openmodalseguir(); + } + + #endregion + #region Cuestionario + private void cargarCuestionario() + { + using (ClsOIEventos ObjUnoa = new ClsOIEventos()) + { + ObjUnoa.GetUnoaUnoCuestionario(-1, UsuarioActual.CveUsuario); + DtPreguntas = ObjUnoa.DtResultados; + DdlCuestionario.DataSource = ObjUnoa.DtResultados; + } + //GVCuestionario.DataBind(); + DdlCuestionario.DataBind(); + DdlCuestionario.Items.Insert(0, new ListItem("Seleccione", "-1")); + openmodalseguir(); + } + protected void LnkGuardarCuestionario_Click(object sender, EventArgs e) + { + + bool continuar = true; + + string Cuestionario = TxtCuestionario.Text; + string Comentario = TxtCuestComentario.Text; + int cveUnoaUnoPreguntaVinculo = DdlPregunta.SelectedValue.ToEntero(); + int CveUnoaUnoCuestionario = DdlCuestionario.SelectedValue.ToEntero(); + string msg = ""; + List lPreguntas = new List(); + foreach (GridViewRow item in GvPreguntasCuestionario.Rows) + { + CheckBox chk = item.FCCheckBox("ChkConPregunta"); + if (chk.Checked) + { + lPreguntas.Add(item.DataKey("CveUnoaUnoPregunta").ToEntero()); + } + } + using (ClsOIEventos ObjUnoa = new ClsOIEventos()) + { + if (CveUnoaUnoCuestionario > 0) + { + + continuar = ObjUnoa.UpUnoaUnoCuestionario(CveUnoaUnoCuestionario, Cuestionario, Comentario, UsuarioActual.CveUsuario, lPreguntas); + msg = "El cuestionario se ha actualizado correctamente"; + } + else + { + continuar = ObjUnoa.AddUnoaUnoCuestionario(Cuestionario, Comentario, UsuarioActual.CveUsuario, lPreguntas); + msg = "El cuestionario se ha agregado correctamente"; + } + } + if (continuar) + { + DdlCuestionario.SelectedIndex = -1; + cargarCuestionario(); + DdlCuestionario_SelectedIndexChanged(null, null); + Alert(msg, ModExtensiones.TipoMensaje.ToastInformacion); + } + openmodalseguir(); + } + + + protected void DdlCuestionario_SelectedIndexChanged(object sender, EventArgs e) + { + int CveUnoaUnoCuestionario = DdlCuestionario.SelectedValue.ToEntero(); + string Cuestionario = DdlCuestionario.SelectedItem.Text; + string Comentario = ""; + if (CveUnoaUnoCuestionario > 0) + { + System.Data.DataRow drow = DtPreguntas.FiltroPrimero(string.Format("CveUnoaUnoCuestionario={0}", CveUnoaUnoCuestionario)); + if (drow != null) + { + Comentario = drow["Comentario"].ToString(); + } + System.Data.DataTable dt = new System.Data.DataTable(); + using (ClsOIEventos ObjUnoa = new ClsOIEventos()) + { + ObjUnoa.GetUnoaUnoCuestionarioPreguntas(CveUnoaUnoCuestionario); + dt = ObjUnoa.DtResultados; + } + foreach (GridViewRow item in GvPreguntasCuestionario.Rows) + { + CheckBox ChkConPregunta = item.FCCheckBox("ChkConPregunta"); + int CveUnoaUnoPregunta = item.DataKey("CveUnoaUnoPregunta").ToEntero(); + ChkConPregunta.Checked = false; + if (dt.FiltraParametros(string.Format("CveUnoaUnoPregunta={0}", CveUnoaUnoPregunta)).Rows.Count > 0) + { + ChkConPregunta.Checked = true; + } + } + LnkGuardarCuestionario.Text = "Actualizar"; + } + else + { + Cuestionario = ""; + Comentario = ""; + foreach (GridViewRow item in GvPreguntasCuestionario.Rows) + { + CheckBox ChkConPregunta = item.FCCheckBox("ChkConPregunta"); + ChkConPregunta.Checked = false; + } + LnkGuardarCuestionario.Text = "Guardar"; + } + TxtCuestionario.Text = Cuestionario; + TxtCuestComentario.Text = Comentario; + UpCuestionario.Update(); + CargarSeguirA(); + UpSeguirA.Update(); + openmodalseguir(); + } + //protected void LnkCancelarCuestionario_Click(object sender, EventArgs e) + //{ + + // CcveUnoaUnoCuestionario = -1; + // LnkGuardarCuestionario.Text = "Guardar"; + // LnkCancelarCuestionario.Visible = false; + // UpCuestionario.Update(); + // openmodalseguir(); + //} + + //protected void LnkEditarCuestionario_Click(object sender, EventArgs e) + //{ + // TxtCuestionario.Text = ""; + // CcveUnoaUnoPregunta = -1; + // TxtPregunta.Focus(); + + // GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); + // CcveUnoaUnoCuestionario = gvRow.DataKey("CveUnoaUnoCuestionario").ToEntero(); + // string Cuestionario = gvRow.DataKey("Cuestionario"); + // TxtCuestionario.Text = Cuestionario; + // System.Data.DataTable dt = new System.Data.DataTable(); + // using (ClsOIEventos ObjUnoa = new ClsOIEventos()) + // { + // ObjUnoa.GetUnoaUnoCuestionarioPreguntas(CcveUnoaUnoCuestionario); + // dt = ObjUnoa.DtResultados; + // } + // foreach (GridViewRow item in GvPreguntasCuestionario.Rows) + // { + // CheckBox ChkConPregunta=item.FCCheckBox("ChkConPregunta"); + // int CveUnoaUnoPregunta = item.DataKey("CveUnoaUnoPregunta").ToEntero(); + // ChkConPregunta.Checked = false; + // if(dt.FiltraParametros(string.Format("CveUnoaUnoPregunta={0}", CveUnoaUnoPregunta)).Rows.Count > 0) + // { + // ChkConPregunta.Checked = true; + // } + + // } + // LnkGuardarCuestionario.Text = "Actualizar"; + // LnkCancelarCuestionario.Visible = true; + // UpCuestionario.Update(); + // openmodalseguir(); + //} + + //protected void LnkEliminarCuestionario_Click(object sender, EventArgs e) + //{ + + // GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); + // CcveUnoaUnoCuestionario = gvRow.DataKey("CveUnoaUnoCuestionario").ToEntero(); + // bool continuar = true; + // using (ClsOIEventos ObjUnoa = new ClsOIEventos()) + // { + // continuar = ObjUnoa.RemoveUnoaUnoCuestionario(CcveUnoaUnoPregunta, UsuarioActual.CveUsuario); + // } + // if (continuar) + // { + // CcveUnoaUnoCuestionario = -1; + // Alert("El cuestionario se ha eliminado correctamente", ModExtensiones.TipoMensaje.ToastInformacion); + // cargarCuestionario(); + // } + // openmodalseguir(); + //} + #endregion + + private void CargarSeguirA() + { + System.Data.DataTable dt = null; + int cveUnoaUnoCuestionario = DdlCuestionario.SelectedValue.ToEntero(); + using (ClsOIEventos ObjUnoa = new ClsOIEventos()) + { + ObjUnoa.GetUnoaUnoCuestionario_Usuarios(cveUnoaUnoCuestionario, UsuarioActual.CveUsuario, -1); + dt = ObjUnoa.DtResultados; + } + bool isdtok = (dt != null && dt.Rows.Count > 0); + foreach (GridViewRow item in GvUsuarioCuest.Rows) + { + CheckBox ChkConPregunta = item.FCCheckBox("ChkConPregunta"); + int CveSeguir = item.DataKey("CveUsuario").ToEntero(); + if (isdtok && dt.FiltraParametros(string.Format("CveSeguir={0}", CveSeguir)).Rows.Count > 0) + { + ChkConPregunta.Checked = true; + } + else + { + ChkConPregunta.Checked = false; + } + } + CargarSiguiendoA(); + UpContenido.Update(); + UpSeguirA.Update(); + } + protected void LnkGuardarSeguirA_Click(object sender, EventArgs e) + { + + bool continuar = true; + string msg = ""; + int cveUnoaUnoCuestionario = DdlCuestionario.SelectedValue.ToEntero(); + //int CveSeguir = DdlUsuario.SelectedValue.ToEntero(); + using (ClsOIEventos ObjUnoa = new ClsOIEventos()) + { + ObjUnoa.IniciaTransacSQL(); + + foreach (GridViewRow item in GvUsuarioCuest.Rows) + { + CheckBox ChkConPregunta = item.FCCheckBox("ChkConPregunta"); + int CveSeguir = item.DataKey("CveUsuario").ToEntero(); + if (continuar) + { + continuar = ObjUnoa.UpUnoaUnoCuestionario_Usuarios(cveUnoaUnoCuestionario, UsuarioActual.CveUsuario, CveSeguir, ChkConPregunta.Checked); + + } + } + if (continuar) + { + msg = "El cuestionario se ha actualizado correctamente"; + ObjUnoa.Commit(); + } + else + { + ObjUnoa.RollBack(); + } + } + if (continuar) + { + //CcveUnoaUnoCuestionario = -1; + Alert(msg, ModExtensiones.TipoMensaje.ToastInformacion); + CargarSeguirA(); + RegistraScript(string.Format("$('#{0}').modal('hide');", idDivModalSeguir)); + } + openmodalseguir(); + } + + //protected void LnkEliminarCuestionarioUser_Click(object sender, EventArgs e) + //{ + + + // bool continuar = true; + // int cveUnoaUnoCuestionario = DdlCuestionario.SelectedValue.ToEntero(); + // int CveSeguir = DdlUsuario.SelectedValue.ToEntero(); + // using (ClsOIEventos ObjUnoa = new ClsOIEventos()) + // { + // continuar = ObjUnoa.AddUnoaUnoCuestionario_Usuarios(cveUnoaUnoCuestionario, UsuarioActual.CveUsuario, CveSeguir); + // } + // if (continuar) + // { + // //CcveUnoaUnoCuestionario = -1; + // Alert("El cuestionario se ha eliminado correctamente", ModExtensiones.TipoMensaje.ToastInformacion); + // CargarSeguirA(); + // } + // openmodalseguir(); + //} + + + protected void TabContainerSeguir_ActiveTabChanged(object sender, EventArgs e) + { + LnkGuardarSeguirA.Visible = false; + if (TabContainerSeguir.ActiveTab == TabUsuarios) + { + if (DdlCuestionario.SelectedValue.ToEntero() <= 0) + { + TabContainerSeguir.ActiveTab = TabCuestionario; + Alert("debe Seleccionar un cuestioniario", ModExtensiones.TipoMensaje.MsgAdvertencia); + } + else + { + LnkGuardarSeguirA.Visible = true; + } + } + openmodalseguir(); + UpSeguirA.Update(); + } + + + protected void SiguiendoAUser_Click(object sender, EventArgs e) + { + GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); + int CveUsuario = gvRow.DataKey("CveUsuario").ToEntero(); + string Nombre = gvRow.DataKey("Nombre"); + LtlTitulosiguiendoA.Text = Nombre; + gvPregResSiguiendoA.DataSource = null; + using (ClsOIEventos ObjUnoa = new ClsOIEventos()) + { + ObjUnoa.GetUnoAUnoSiguiendoA(UsuarioActual.CveUsuario, CveUsuario, UsuarioActual.CveEmpresa); + gvPregResSiguiendoA.DataSource = ObjUnoa.DtResultados; + } + gvPregResSiguiendoA.DataBind(); + RegistraScript(string.Format("$('#{0}').modal();", idDivModalSiguiendoA)); + UpModalSiguiendoA.Update(); + } } \ No newline at end of file diff --git a/packages.config b/packages.config index 0878a2900..40443914d 100644 --- a/packages.config +++ b/packages.config @@ -28,7 +28,6 @@ - diff --git a/vwd.webinfo b/vwd.webinfo index 71c73829a..8dd65e0da 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -58,6 +58,8 @@ + + From dbcc04b5eb376b4c0b19692b9c999ce87847bf8f Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 18 May 2020 13:20:12 -0700 Subject: [PATCH 14/16] Correcion en punto de venta --- Ventas/PV.aspx.vb | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index f9ff95c6a..98656a00a 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -1776,6 +1776,17 @@ Partial Class PV Moneda = 1 End If + 'ELIMINA LOS DETALLES + If Not OcurrioError Then + Dim DtEliminados As DataTable = TmpDT.FiltraParametros("EliminarDB = True AND CveVentaDetalle > 0", "", {"CveVentaDetalle"}) + + For Each Dr1 As DataRow In DtEliminados.Rows + If Not ObjVentas.RemoveVentasDetalle(CveVenta, Dr1("CveVentaDetalle").ToString.ToEntero) Then + OcurrioError = True + End If + Next + End If + 'Actualizo los parametros de la venta If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim, UsuarioActual.CveEmpresa, CveVenta, 0, 0, @@ -1834,18 +1845,6 @@ Partial Class PV Next End If - - 'ELIMINA LOS DETALLES - If Not OcurrioError Then - Dim DtEliminados As DataTable = TmpDT.FiltraParametros("EliminarDB = True AND CveVentaDetalle > 0", "", {"CveVentaDetalle"}) - - For Each Dr1 As DataRow In DtEliminados.Rows - If Not ObjVentas.RemoveVentasDetalle(CveVenta, Dr1("CveVentaDetalle").ToString.ToEntero) Then - OcurrioError = True - End If - Next - End If - 'RECARGA LOS DATOS ObjFactura.Dispose() ObjFactura = Nothing From 39b19a7f67141bf195aa82fd998b5452e8d0b96d Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Mon, 18 May 2020 15:08:12 -0700 Subject: [PATCH 15/16] Proveedores abonar, Pop IE Compras no enviar correo cuando cuando el tipode transaccion sea Layout o layout por grupos, correciones pago electronico por grupos --- Bancos/PagoElectronicoGrupos.aspx.vb | 9 ++- Bancos/PopIECompras.aspx.vb | 97 +++++++++++++++------------- Bancos/ProveedoresAbonar.aspx.vb | 13 ++++ 3 files changed, 72 insertions(+), 47 deletions(-) diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb index 683b16d2f..62b657d9f 100644 --- a/Bancos/PagoElectronicoGrupos.aspx.vb +++ b/Bancos/PagoElectronicoGrupos.aspx.vb @@ -718,13 +718,15 @@ Partial Class Bancos_PagoElectronicoGrupos If SBErrores.ToString.Length > 0 Then Mensaje.Append("Errores Cuentas
    ") - Mensaje.Append("
    ") Mensaje.Append(SBErrores.ToString) Mensaje.Append("
    ") End If If NombreArchivoBancomer.Length > 0 Or NombreArchivoInterbancario.Length > 0 Then Alert(Mensaje.ToString, TipoMensaje.MsgInformacion) + Else + Alert(Mensaje.ToString, TipoMensaje.MsgAdvertencia) End If @@ -1100,8 +1102,9 @@ Partial Class Bancos_PagoElectronicoGrupos End If + Else - + Alert(MENSAJEError.ToString, TipoMensaje.MsgAdvertencia) End If @@ -2417,7 +2420,7 @@ Partial Class Bancos_PagoElectronicoGrupos TipoMasiva = 2 GvProveedores.Columns(0).HeaderText = "Funcionario" CargaFyE() - BtnGenerarProveedores.Text = "Generar Layout Alta Funcionarios" + BtnGenerarProveedores.Text = "Generar LayoutBtnGenerarPago Alta Funcionarios" End If End Sub Protected Sub BtnGenerarProveedores_Click(sender As Object, e As EventArgs) diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index c27586b07..c608e31d7 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -978,7 +978,10 @@ Partial Class Bancos_PopIECompras Case 2 LblPagueseA.Text = "Beneficiario" - End Select + End Select + + + CargaCuentas() CargaCuentasDepositos() UpDatos.Update() @@ -3335,51 +3338,57 @@ Partial Class Bancos_PopIECompras Alert(Str.ToString, TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();") End Sub - Private Sub MandaCorreo(NombreArchivo As String, Correo As String, Optional ConAlerta As Boolean = True) - Try - Dim Msg As String = "" - If NombreArchivo <> "-1" Then ' - - Dim ObjMail As New ClsSisMail() - Dim RutaXML As String = String.Format("{0}\XML\Pag\{1}.xml", UsuarioActual.Empresa.Ruta, NombreArchivo) - Dim RutaPDF As String = String.Format("{0}\PDF\Pag\{1}.pdf", UsuarioActual.Empresa.Ruta, NombreArchivo) - - Dim Cuerpo As String = "Se hace entrega del comprobante de pago" - Dim Asunto As String = "Entrega de comprobante de pago" - - If IO.File.Exists(RutaPDF) AndAlso IO.File.Exists(RutaXML) Then - - Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) - - LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = RutaPDF}) - LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = RutaXML}) - - If ObjMail.SendMail(UsuarioActual.Empresa, Correo, Asunto, Cuerpo, "", LSRutasMail) Then - - If ConAlerta Then - RegistraScript("$('#ModalDivMail').modal('hide');") - Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) - End If - - Else - Msg = "No se pudo enviar el correo electrónico." - End If - - Else - Msg = "No se pudo adjuntar el correo electrónico." - End If - - End If - - If ConAlerta AndAlso Msg <> "" Then - Alert(Msg, TipoMensaje.MsgError) - End If + Private Sub MandaCorreo(NombreArchivo As String, Correo As String, Optional ConAlerta As Boolean = True) + + If Not DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then + Try + + Dim Msg As String = "" + If NombreArchivo <> "-1" Then ' + + Dim ObjMail As New ClsSisMail() + Dim RutaXML As String = String.Format("{0}\XML\Pag\{1}.xml", UsuarioActual.Empresa.Ruta, NombreArchivo) + Dim RutaPDF As String = String.Format("{0}\PDF\Pag\{1}.pdf", UsuarioActual.Empresa.Ruta, NombreArchivo) + + Dim Cuerpo As String = "Se hace entrega del comprobante de pago" + Dim Asunto As String = "Entrega de comprobante de pago" + + If IO.File.Exists(RutaPDF) AndAlso IO.File.Exists(RutaXML) Then + + Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) + + LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = RutaPDF}) + LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = RutaXML}) + + If ObjMail.SendMail(UsuarioActual.Empresa, Correo, Asunto, Cuerpo, "", LSRutasMail) Then + + If ConAlerta Then + RegistraScript("$('#ModalDivMail').modal('hide');") + Alert("El correo se envió correctamente", TipoMensaje.MsgInformacion) + End If + + Else + Msg = "No se pudo enviar el correo electrónico." + End If + + Else + Msg = "No se pudo adjuntar el correo electrónico." + End If + + End If + + If ConAlerta AndAlso Msg <> "" Then + Alert(Msg, TipoMensaje.MsgError) + End If + + + Catch ex As Exception + OnError("Ocurrió error al mandar MAIL", ex) + + End Try + End If - Catch ex As Exception - OnError("Ocurrió error al mandar MAIL", ex) - - End Try End Sub #End Region diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 9bfc2c3e8..1f79da289 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -2377,10 +2377,23 @@ Partial Class Bancos_ProveedoresAbonar 'cuando es cheque If DdlTipoTransaccion.SelectedValue = "1" Then ChkAbonoCuenta.Visible = True + + Else ChkAbonoCuenta.Visible = False End If + If DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then + ChkEnviarCorreo.Enabled = False + ChkEnviarCorreo.Checked = False + Else + ChkEnviarCorreo.Enabled = True + ChkEnviarCorreo.Checked = True + End If + + + + CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero) RecargaCuentasDepositos() From 93360305844edb976eefb434781c100af73370a7 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 18 May 2020 17:35:24 -0700 Subject: [PATCH 16/16] Validar, que tenga la salida de almacen, al momento de facturar. E141 --- Ventas/Ventas.aspx.vb | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9e050a276..90f52ef9b 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6281,6 +6281,14 @@ Partial Class Ventas e.Row.FCCheckBox("cbInv").Enabled = False End If + 'SI DEBE HACER SALIDA DIRECTA DE ALMACEN DEBE ESTAR SELECCIONADO SIEMPRE + If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then + e.Row.FCCheckBox("cbInv").Checked = True + If UsuarioActual.CveEmpresa = 141 Then + e.Row.FCCheckBox("cbInv").Enabled = False + End If + End If + End If If (CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot") AndAlso Not AplicaDevolucion Then @@ -11154,6 +11162,15 @@ Partial Class Ventas Next End If + 'EN ECONOLLANTAS DEBE REALIZAR SIEMPRE LA SALIDA DE ALMACEN + If UsuarioActual.CveEmpresa = 141 AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then + For Each GvRow As GridViewRow In GvInv.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + GvRow.FCCheckBox("cbInv").Checked = True + End If + Next + End If + If DivAlmacen.Visible AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then Dim Filtro As String = "" @@ -11256,6 +11273,11 @@ Partial Class Ventas i = i + 1 Next + 'VERIFICA QUE SE REALIZO EL MOVIMIENTO DE ALMACEN + If Not (ObjInventario.GetInv_Mov(factura.CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0) Then + OcurrioError = True + End If + 'REGISTRO LA PREPOLIZA DE COSTO VS ALMACEN If Not OcurrioError Then Dim DtCostos As DataTable = Nothing