Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

App_Code/ClsPaginas.vb

@@ -5045,8 +5045,8 @@ Public Class ClsPaginas
     Protected Overrides Sub SavePageStateToPersistenceMedium(pviewState As Object)
         'If Request.Form("__VIEWSTATE_KEY") IsNot Nothing Then Cache.Remove(Request.Form("__VIEWSTATE_KEY")) 'elimino la cachado anteriormente
         Dim VSKey As String = String.Format("VIEWSTATE_{0}_{1}_{2}", Session.SessionID, Request.Path, Date.Now.Ticks)
-        'Cache.Add(VSKey, pviewState, Nothing, Date.Now.AddMinutes(60), Cache.NoSlidingExpiration, CacheItemPriority.Default, Nothing) 'Store the ViewState on Cache
-        Session.Add(VSKey, pviewState) 'Store the ViewState on Cache
+        Cache.Add(VSKey, pviewState, Nothing, Date.Now.AddMinutes(60), Cache.NoSlidingExpiration, CacheItemPriority.Default, Nothing) 'Store the ViewState on Cache
+        'Session.Add(VSKey, pviewState) 'Store the ViewState on Cache
         ClientScript.RegisterHiddenField("__VIEWSTATE_KEY", VSKey)
 
     End Sub
@@ -5056,11 +5056,11 @@ Public Class ClsPaginas
         If Not VSKey.StartsWith("VIEWSTATE_") Then 'Request the Key from the page and validade it.
             Throw New Exception(String.Format("Invalid VIEWSTATE Key:         {0}", VSKey))
         End If
-        If Session(VSKey) Is Nothing Then 'si por algún motivo, el caché expiró, le dice a la página que se recargue y obtenga los datos de nuevo, y así evitar errores al obtener el viewstate vacío
+        If Cache(VSKey) Is Nothing Then 'si por algún motivo, el caché expiró, le dice a la página que se recargue y obtenga los datos de nuevo, y así evitar errores al obtener el viewstate vacío
             Response.Redirect(Request.RawUrl)
             Return Nothing
         Else
-            Return Session(VSKey)
+            Return Cache(VSKey)
         End If
 
     End Function
@@ -5268,6 +5268,8 @@ Public Class ClsPaginas
                 params.Add(param)
             Next
             Bytes = wsreport.StreamPDFBytes(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario)
+            wsreport = Nothing
+            params = Nothing
         Else
             If IsNothing(MR) Then MR = New ReportViewer
             Try
@@ -5340,6 +5342,7 @@ Public Class ClsPaginas
 
         End If
         sw.Stop()
+
         If sw.Elapsed.TotalSeconds > 5 Then
             GuardaLog($"Reporte:{RutaReporte} | Tiempo Renderizado Milisegundos: {sw.ElapsedMilliseconds},Total Segundos: {sw.Elapsed.TotalSeconds}   ")
         End If
@@ -5592,7 +5595,7 @@ Public Class ClsPaginas
             HttpContext.Current.Response.SuppressContent = True
             HttpContext.Current.ApplicationInstance.CompleteRequest()
             HttpContext.Current.Response.End()
-
+            bytes = Nothing
         Catch ex As Exception
 
             If UsuarioActual.CveRol = 1 Then

App_Code/modExtensiones.vb

@@ -192,10 +192,10 @@ Namespace Extensiones
         Public Sub GuardaLogAD(Mensaje As String, Optional Archivo As String = "Log")
             Dim ArchivoW As StreamWriter
 
-            Dim MensajeFormato = $"{Chr(13)}{Chr(10)}Log: {Mensaje} | Fecha:{Now.ToString("dd/MM/yyyy HH:mm")}"
+            Dim MensajeFormato = String.Format("{0}{1}Log: {2} | Fecha:{3}", Chr(13), Chr(10), Mensaje, Now.ToString("dd/MM/yyyy HH:mm"))
 
             Try
-                ArchivoW = New StreamWriter($"{AppDomain.CurrentDomain.BaseDirectory}\Log\{Archivo}.txt", True, System.Text.Encoding.UTF8)
+                ArchivoW = New StreamWriter(String.Format("{0}\Log\{1}.txt", AppDomain.CurrentDomain.BaseDirectory, Archivo), True, System.Text.Encoding.UTF8)
             Catch ex As UnauthorizedAccessException
                 'Alert("No hay permisos para guardar en el Log.", Extensiones.TipoMensaje.MsgError)
                 Exit Sub

Bancos/ProveedoresAbonar.aspx.vb

@@ -2292,7 +2292,7 @@ Partial Class Bancos_ProveedoresAbonar
                         'If Archivo.Exists Then
                         Msg.AppendFormat("<li> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir movimiento</a></li> ", Encripta(String.Format("OP=IECHEQUE&CVEIE={0}", CveIE)))
                         'End If
-                        Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Bancos/Reportes.aspx?Opcion=ImprimeMov&CveIE={0}"">Listado</a></li>", CveIE)
+                        Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Listado</a></li>", Encripta(String.Format("Opcion=ImprimeMov&CveIE={0}", CveIE)))
                         If IDPoliza > 0 Then Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Póliza</a></li>", IDPoliza)
 
                         Dim Mensaje As String = String.Format("<br />El Documento se generó correctamente.<br /><br /><br />Descargas:<ul>{0}</ul>", Msg.ToString)

Compras/PopUpVerFactura.aspx.vb

@@ -4047,6 +4047,7 @@ Partial Class PopUpVerFactura
                     ObjCompra.Dispose()
                     Dim rds2 = New ReportDataSource("DataSet2", dtnc)
                     reportDataSetsList.Add(rds2)
+                    dtnc.Dispose()
 
                     Dim paramList As New List(Of ReportParameter)
                     With paramList
@@ -4075,15 +4076,19 @@ Partial Class PopUpVerFactura
                         End If
 
                     End With
+                    dtMovs.Dispose()
 
-
-                    ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, "IE Movimient", "PDF")
+                    ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
 
                 End If
 
             End If
         End If
 
+        DtGvRH.Dispose()
+        DtComprobacion.Dispose()
+        ParamComprobacion.Dispose()
+
         ObjIE.Dispose()
     End Sub
 

Compras/ReembolsosComprobaciones.aspx.vb

@@ -1432,11 +1432,11 @@ Partial Class Compras_ReembolsosComprobaciones
             Dim Mensaje As New StringBuilder
 
             If CvePrePolizaExcedente > 0 Then
-                Mensaje.AppendFormat("Abono Registrado Correctamente. <br/><br/> Cheque:  <a target='_blank' href=/Bancos/IE.aspx?CveIE={0}>{1}</a> <br/><br/> <a target='_blank' href=""/Bancos/Reportes.aspx?Opcion=ImprimeMov&CveIE={0}"">Imprimir</a>", CveIEExcedente, TxtFolio.Text)
+                Mensaje.AppendFormat("Abono Registrado Correctamente. <br/><br/> Cheque:  <a target='_blank' href=/Bancos/IE.aspx?CveIE={0}>{1}</a> <br/><br/> <a target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={2}"">Imprimir</a>", CveIEExcedente, TxtFolio.Text, Encripta(String.Format("Opcion=ImprimeMov&CveIE={0}", CveIEExcedente)))
                 Mensaje.AppendFormat("</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
                 Alert(Mensaje.ToString, TipoMensaje.MsgInformacion)
             Else
-                Mensaje.AppendFormat("Abono Registrado Correctamente. <br/><br/> <a  class=""Texto"" target='_blank' href=""/Bancos/Reportes.aspx?Opcion=ImprimeMov&CveIE={0}"">Imprimir</a>", CveIERegistrado)
+                Mensaje.AppendFormat("Abono Registrado Correctamente. <br/><br/> <a  class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir</a>", Encripta(String.Format("Opcion=ImprimeMov&CveIE={0}", CveIERegistrado)))
                 If CvePrePolizaIERegistrado > 0 Then
                     Mensaje.AppendFormat("</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
                 End If

Inventarios/EntregasPorRealizar.aspx

@@ -18,9 +18,7 @@
      Entregas por Realizar
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
-    <li>
-        <asp:LinkButton ID="LnkImprimir" runat="server" OnClick="LnkImprimir_Click"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
-    </li>
+
 
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">

Inventarios/RepMovimientosSalida.aspx

@@ -63,21 +63,68 @@
                                 <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
                                 <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
+                             <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                             <div runat="server" id="DivSubProyecto" class="col-md-2">
+                           
+                             <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            </asp:DropDownList> 
                         </div>
+                            <label runat="server" id="LblGripo" class="col-md-1 truncate">Grupo:</label>
+                             <div runat="server" id="Div1" class="col-md-1">                           
+                             <asp:DropDownList ID="DdlGrupo" runat="server"  Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Detalle" Value="1"></asp:ListItem>
+                                 <asp:ListItem   Text="Cliente" Value="2"></asp:ListItem>
+                                 <asp:ListItem   Text="Cliente sin desglosar mostrador" Value="3"></asp:ListItem>
+                                 <asp:ListItem   Text="Centro Costo" Value="4"></asp:ListItem>
+                                  <asp:ListItem   Text="Clasificaciones" Value="5"></asp:ListItem>
+                                  <asp:ListItem   Text="Centro Costo-Clasificaciones" Value="6"></asp:ListItem>
+                                  <asp:ListItem   Text="Clasificaciones-Centro Costo" Value="7"></asp:ListItem>
+                            </asp:DropDownList> 
+                        </div>
+                       
+                        </div>
+                       
                     </div>
                 </div>
-                <div class="portlet-body">
+                <div class="portlet-body" style="display: none">
+                      
+                          <div class="row">
+                               <label class="col-md-1 ">Cliente:</label>
+                        <div class="col-md-2">
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;">
+                            </ADS:Dropdownlost>
+                        </div>
+                                <label class="col-md-1 truncate">Clasificación:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlClasificacion" AutoPostBack="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Style="width: 100%">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        </div> 
                 </div>
-            </div>
+            </div> 
+             <div class="row">
+             <div class="col-md-12" style="vertical-align: middle;" align="left">
+                            <div style="z-index: 5; position: relative;">
+                                <div id="DivVirtualAdvertencia"  clientidmode="Static" runat="server" class="alert alert-warning" style="padding: 5px; margin-bottom: 5px; padding-right: 25px;">
+                                    <button type="button" class="close" data-dismiss="alert" style="margin-top: 5px;" aria-hidden="true"></button>
+                                    <strong style="font-size: 20px; margin-right: 25px;">Información: </strong>
+                                    <asp:Literal Text="Los importes de venta, hacen referencia a los productos que tienen costo" runat="server"></asp:Literal>
+                                </div>
+                            </div>
+                 </div></div>
         </ContentTemplate>
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
+           
+                        
             <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
                 <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                 <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
             </div>
-            <table class="table  Widthall ">
+            <table class="table  Widthall " id="TbDetalle" runat="server">
                 <tr>
                     <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 55%; border-right: 3px solid white;">Ventas</td>
                     <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 45%; border-right: 3px solid white;">Movimientos</td>
@@ -94,6 +141,13 @@
                     <asp:BoundField DataField="Importe" ItemStyle-HorizontalAlign="Right" HeaderText="Importe" DataFormatString="{0:N2}" />
                 </Columns>
             </asp:GridView>
+             <asp:GridView ID="GvGrupo" runat="server" GridLines="None" ShowHeaderWhenEmpty="true" EmptyDataText="No se han encontrado datos con los filtros seleccionados" OnRowDataBound="GvGrupo_RowDataBound" CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="99%" data-sort="true" AutoGenerateColumns="False">
+                <Columns>
+                    <asp:BoundField DataField="Grupo" HeaderText="Grupo"   ItemStyle-Width="700px" />
+                    <asp:BoundField DataField="SubTotal" ItemStyle-HorizontalAlign="Right" HeaderText="Ventas" DataFormatString="{0:N2}" />
+                    <asp:BoundField DataField="Importe" ItemStyle-HorizontalAlign="Right" HeaderText="Costo" DataFormatString="{0:N2}" />
+                </Columns>
+            </asp:GridView>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>

Inventarios/RepMovimientosSalida.aspx.cs

@@ -16,18 +16,50 @@ public partial class Inventarios_RepMovimientosSalida : ClsPaginas
         if (!IsPostBack)
         {
             InicializaValores();
+        }
+    }
+
+    private void InicializaValores()
+    {
+        txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
+        txtFechaF.Text = DateTime.Now.ToShortDateString();
+        DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa);
+        DdlSubProyecto.DataBind();
 
         //Cargo Clasificaciones
         DdlClasificacion.DataSource = get_GlobalDTClasificaciones(UsuarioActual.CveEmpresa);
         DdlClasificacion.DataBind();
+
+        DdlClientes.setEsWebService(true);
+
+    }
+
     private void Consulta()
-        txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
+    {
         int tCveCliente = -1;
-    }
+        int tCveGrupo = -1;
+        if (DdlClientes.SelectedValue.ToEntero() > 0) tCveCliente = DdlClientes.SelectedValue.ToEntero();
+        if (DdlGrupo.SelectedValue.ToEntero() > 0) tCveGrupo = DdlGrupo.SelectedValue.ToEntero();
+
         ClsInventarios ObjInv = new ClsInventarios();
         if (ObjInv.GetRepMovimientosSalida(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlSubProyecto.SelectedValue.ToEntero(), tCveCliente, DdlClasificacion.SelectedValue.ToEntero(), DdlGrupo.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa))
         {
+            if (tCveGrupo == 1)
                 GvDatos.DataSource = ObjInv.DtResultados;
+            else
+                GvGrupo.DataSource = ObjInv.DtResultados;
+        }
+        ObjInv.Dispose();
+        GvDatos.DataBind();
+        GvGrupo.DataBind();
+        UpDatos.Update();
+
+        if (DdlGrupo.SelectedValue == "1")
+        {
+            TbDetalle.Visible = true;
+            GvDatos.Visible = true;
+            GvGrupo.Visible = false;
+        }
         else
         {
             TbDetalle.Visible = false;
@@ -48,6 +80,25 @@ public partial class Inventarios_RepMovimientosSalida : ClsPaginas
         {
             if (e.Row.RowIndex == 0)
             {
+                e.Row.Cells[0].Text = "Total";
+                e.Row.CssClass = "Totales";
+            }
+        }
+    }
+
+
+    protected void GvGrupo_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+        if (e.Row.RowType == DataControlRowType.DataRow)
+        {
+            if (e.Row.RowIndex == 0)
+            {
+                e.Row.Cells[0].Text = "Total";
+                e.Row.CssClass = "Totales";
+            }
+            else
+            {
+                if (e.Row.DBCampo("Grupo2") == "" && e.Row.DBCampo("Grupo1") != "")
                 {
                     e.Row.CssClass = "SubTotales";
                 }
@@ -55,6 +106,14 @@ public partial class Inventarios_RepMovimientosSalida : ClsPaginas
         }
     }
 
-    public override void VerifyRenderingInServerForm(Control control)
+    public override void VerifyRenderingInServerForm(Control control)
+    {
+        //base.VerifyRenderingInServerForm(control);
+    }
+
+    protected void LnkExcel_Click(object sender, EventArgs e)
+    {
+        if (DdlGrupo.SelectedValue == "1")
+        {
             GvDatos.ExportToExcelG("Movimientos de Salida", "Movimientos de Salida", UsuarioActual);
         }

Ventas/RepIngresos.aspx.vb

@@ -94,7 +94,7 @@ Partial Class Ventas_RepIngresos
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             TCEspecifico = -1
-            TipoCambio = 2
+            TipoCambio = 1
             CveSubProyecto = -1
             TxtFechaInicio.Text = String.Format("01/01/{0}", Now.Year)
             DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)

asmx/WSSIGApp.asmx

@@ -2049,7 +2049,7 @@ Public Class WSSIGApp
         Return TmpDT
     End Function
     Private Function AgregarProductoServicioRem(TmpDT As DataTable, PS As MVentaProductos, CveEmpresa As Integer, CveSubProyecto As Integer,
-               Optional SerieLote As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0,
+               Optional Serie As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0,
                Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0,
                Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0,
                Optional CuentaPredial As String = "", Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0) As DataRow
@@ -2083,7 +2083,7 @@ Public Class WSSIGApp
         Row("Proyecto") = DrSubProyecto("Proyecto").ToString()
         Row("CveSubProyecto") = CveSubProyecto
         Row("SubProyecto") = DrSubProyecto("SubProyecto").ToString()
-        Row("SerieLote") = SerieLote
+        Row("Serie") = Serie
         Row("TiempoEntrega") = TiempoEntrega
         Row("Orden") = TmpDT.Rows.Count + 1
         Row("Cantidad") = PS.Cantidad