Merge branch 'master' of http://jperez@adsistemasof.sytes.net:8383/SIG.git

Inventarios/EntradasSalidas.aspx

@@ -1325,7 +1325,7 @@
                             <ajax:ValidatorCalloutExtender ID="VCOCantidad1" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
                             <asp:CustomValidator ID="CVCantidad" runat="server" ClientValidationFunction="ValidaDecimal6digits" ControlToValidate="TxtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> no tiene el formato correcto (6 decimales). Por favor rectifique y vuelva a intentar." ValidateEmptyText="True" ValidationGroup="GprAgregaPS"></asp:CustomValidator>
                             <ajax:ValidatorCalloutExtender ID="VCECantidad" runat="server" HighlightCssClass="vco" TargetControlID="CVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
-                            <label for="<%= txtCantidad.ClientID.ToString()%>">Cant</label>
+                            <label for="<%= txtCantidad.ClientID.ToString()%>">Cantidad</label>
                             <br />
                         </div>
                         <div runat="server" id="divClasificacionProducto" class="form-group form-md-line-input input-iconright">
@@ -1342,6 +1342,7 @@
                             <label for="<%= DdlUnidad.ClientID.ToString()%>">U.M.</label>
                             <br />
                         </div>
+
                         <div runat="server" id="divPrecio" class="form-group form-md-line-input input-iconright" visible="false">
                             <asp:TextBox ID="txtPrecio" CssClass="form-control input-sm" runat="server" Width="50%" Visible="false"></asp:TextBox>
                             <label for="<%= txtPrecio.ClientID.ToString()%>">P.U.</label>
@@ -1350,7 +1351,7 @@
                         <div runat="server" id="divSerie" class="form-group form-md-line-input input-iconright" visible="false">
                             <asp:TextBox ID="TxtnSerie" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
                             <asp:Button Text="" ID="BtnSerieAddNew" OnClick="BtnSerieAddNew_Click" Style="display: none" runat="server" />
-                            <label for="<%= TxtnSerie.ClientID.ToString()%>">Serie Lote</label>
+                            <label for="<%= TxtnSerie.ClientID.ToString()%>">Serie</label>
                             <br />
                         </div>
                         <div runat="server" id="divLote" class="form-group form-md-line-input input-iconright" visible="false">

Inventarios/EntradasSalidas.aspx.vb

@@ -2165,6 +2165,10 @@ Partial Class Inventarios_EntradasSalidas
                     'TrLote2.Visible = True
 
                 End If
+                If CBool(dr("AplicaSeccion")) Then
+                    divSeccionAlmacen.Visible = True
+
+                End If
             End If
 
         End If
@@ -2231,7 +2235,7 @@ Partial Class Inventarios_EntradasSalidas
             GvM.Columns(9).Visible = DtTemp.MAX("Serie") <> ""
             GvM.Columns(10).Visible = DtTemp.MAX("Lote") <> ""
             GvM.Columns(11).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
-            GvM.Columns(12).Visible = DtTemp.MAX("CveSeccionAlmacen") <> ""
+            GvM.Columns(12).Visible = DtTemp.MAX("CveSeccionAlmacen").ToEntero > 0
 
         End If
 
@@ -2370,6 +2374,9 @@ Partial Class Inventarios_EntradasSalidas
         TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
         DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
         LkAgregarDetalle.Text = "Actualizar"
+        Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
+        divPrecio.Visible = Origen = 1
+        txtPrecio.Visible = Origen = 1
         UpAgregar.Update()
         RegistraScript("$('#ModalAgregar').modal()")
         CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
@@ -2392,6 +2399,9 @@ Partial Class Inventarios_EntradasSalidas
         TxtnSerie.Text = GvRow.DataKey("Serie")
         TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
         DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
+        Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
+        divPrecio.Visible = Origen = 1
+        txtPrecio.Visible = Origen = 1
         LkAgregarDetalle.Text = "Actualizar"
         UpAgregar.Update()
         RegistraScript("$('#ModalAgregar').modal()")
@@ -4198,7 +4208,9 @@ Partial Class Inventarios_EntradasSalidas
         Else
             VisualizaPUExtranjero(False)
         End If
-
+        Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
+        divPrecio.Visible = Origen = 1
+        txtPrecio.Visible = Origen = 1
         UpAgregar.Update()
     End Sub
 

Inventarios/EntregaAlmacen.aspx

@@ -242,11 +242,13 @@
                                         </tr>
                                         <tr>
                                             <td colspan="2">
-                                                <div >
-                                                    <asp:RadioButton ID="RbSinEntrega" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="33%" GroupName="EntregaRadioGroup" Text="Sin Entrega" AutoPostBack="true"></asp:RadioButton>
-                                                    <asp:RadioButton ID="RbEntregaInterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="33%" GroupName="EntregaRadioGroup" Text="Entrega Interna" AutoPostBack="true"></asp:RadioButton>
-                                                    <asp:RadioButton ID="RbEntregaExterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="33%" GroupName="EntregaRadioGroup" Text="Entrega Externa" AutoPostBack="true"></asp:RadioButton>
-                                                </div>
+                                               
+                                                    <asp:Panel ID="PnlEntrega" runat="server" Visible="false">
+                                                        <asp:RadioButton id="RbSinEntrega" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="25%" GroupName="EntregaRadioGroup" Text="Sin Entrega" AutoPostBack="true"></asp:RadioButton>
+                                                        <asp:RadioButton id="RbEntregaInterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="25%" GroupName="EntregaRadioGroup" Text="Entrega Interna" AutoPostBack="true"></asp:RadioButton>
+                                                        <asp:RadioButton id="RbEntregaExterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="25%" GroupName="EntregaRadioGroup" Text="Entrega Externa" AutoPostBack="true"></asp:RadioButton>
+                                                    </asp:Panel>
+                                                 
                                             </td>
                                         </tr>
 
@@ -718,7 +720,6 @@
                                             <div class="col-md-5" style="text-align: right;">
                                                 Cantidad
                                            
-                                           
                                             </div>
                                             <div class="col-md-7">
                                                 <asp:TextBox ClientIDMode="Static" ID="TxtCantidadEspecial" Text="" runat="server"></asp:TextBox>
@@ -761,8 +762,6 @@
                             <asp:Panel runat="server" DefaultButton="BtnGuardarCantidadEspecialDiv">
                                 Cant.:
                                
-                               
-
                                 <asp:TextBox ClientIDMode="Static" ID="TxtCantidadEspecialDiv" Text="1" onfocus="this.select();" Width="50px" runat="server"></asp:TextBox>
                                 <ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtCantidadEspecialDiv" FilterType="Custom, Numbers" ValidChars="." />
                                 <br />
@@ -884,8 +883,7 @@
                             <tr runat="server" id="RowDimensiones" align="left" visible="true">
                                 <td class="text-right" style="width: 140px"><b># Cajas:</b></td>
                                 <td style="width: 200px">
-                                    <asp:TextBox ID="TxtNoCajas" runat="server" CssClass="form-control" Width="200px" Height="30px" Style="padding: 0px"></asp:TextBox>
-                                    <ajax:MaskedEditExtender ID="MEENoCajas" runat="server" TargetControlID="TxtNoCajas" Mask="9999" MaskType="Number" AcceptNegative="None"></ajax:MaskedEditExtender>
+                                    <asp:TextBox ID="TxtNoCajas" runat="server" CssClass="form-control" Width="200px" Height="30px" Style="padding: 0px"></asp:TextBox>                                     
                                 </td>
 
                             </tr>

Inventarios/EntregaAlmacen.aspx.vb

@@ -2,16 +2,14 @@
 Option Explicit On
 
 Imports System.Data
-Imports System.IO
-Imports System.Linq
-Imports CrystalDecisions.[Shared].Json
+Imports System.IO
 Imports Extensiones
 
 Imports Microsoft.Reporting.WebForms
 
 Partial Class Inventarios_EntregaAlmacen
-    Inherits ClsPaginas
-
+    Inherits ClsPaginas
+
 #Region "PROPIEDADES"
     Private Property CveVentaAD As Integer
         Get
@@ -245,10 +243,10 @@ Partial Class Inventarios_EntregaAlmacen
         Set(value As Boolean)
             ViewState("EsDevolucionDirecta") = value
         End Set
-    End Property
-
+    End Property
+
 #End Region
-
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
@@ -256,9 +254,9 @@ Partial Class Inventarios_EntregaAlmacen
             CargaParametrosAD()
             If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True
         End If
-    End Sub
-
-
+    End Sub
+
+
 #Region "  INICIALIZA VALORES  "
     Private Sub InicializaValores()
         TipoEstatus = -1
@@ -318,6 +316,7 @@ Partial Class Inventarios_EntregaAlmacen
         DdlSubProyectos.SelectedValueExist(UsuarioActual.CveSubProyecto.ToString)
 
         If UsuarioActual.TienePermisoProceso(152) Then DdlSubProyectos.Enabled = False
+        If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then PnlEntrega.Visible = True
 
         CreaDtDetalle()
         CreaDtDetalleLote()
@@ -325,11 +324,11 @@ Partial Class Inventarios_EntregaAlmacen
 
 
         LimpiaCampos()
-    End Sub
-
+    End Sub
+
 #End Region
-
-
+
+
 #Region "  CARGA PARAMETROS - EXCLUSIVO USO AD  "
     Private Sub CargaParametrosAD()
 
@@ -347,9 +346,9 @@ Partial Class Inventarios_EntregaAlmacen
             BtnGuardar.Visible = False
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  CARGA PENDIENTES POR SURTIR  "
     Protected Sub DdlCliente_SelectedIndexChanged(sender As Object, e As EventArgs)
         CargaFolios()
@@ -467,11 +466,11 @@ Partial Class Inventarios_EntregaAlmacen
             End Select
             UpPendientes.Update()
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
-
+
+
 #Region "  CARGA VENTA POR SURTIR   "
     Protected Sub BtnSurtir_Click(sender As Object, e As EventArgs)
 
@@ -917,14 +916,14 @@ Partial Class Inventarios_EntregaAlmacen
         End If
         objInv.Dispose()
         GvDocs.DataBind()
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
-
+
+
 #Region "  AGREGAR  "
-
+
     Protected Sub BtnSerie_Click(sender As Object, e As EventArgs)
 
         Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c)
@@ -951,10 +950,10 @@ Partial Class Inventarios_EntregaAlmacen
             UpLoteBatch.Update()
         End If
 
-    End Sub
-
+    End Sub
+
 #Region "   AGREGA POR SERIE/LOTE   "
-
+
     Private Sub CreaDtDetalle()
         If DtDatosDetalle Is Nothing Then
             DtDatosDetalle = New DataTable
@@ -1159,11 +1158,11 @@ Partial Class Inventarios_EntregaAlmacen
         DtDatosDetalle.AcceptChanges()
         CargaSerie()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "   AGREGA CON LOTE BATCH   "
-
+
     Private Sub CreaDtDetalleLote()
         If DtDatosDetalleLote Is Nothing Then
             DtDatosDetalleLote = New DataTable
@@ -1351,9 +1350,9 @@ Partial Class Inventarios_EntregaAlmacen
         End Try
         DtDatosDetalleLote.AcceptChanges()
         CargaLote()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  AGREGA CON TXT | CODIGO - SERIE  "
     Protected Sub BtnCodigoPS_Click(sender As Object, e As EventArgs)
 
@@ -1487,12 +1486,12 @@ Partial Class Inventarios_EntregaAlmacen
         End If
 
         TxtCantidadEspecialDiv.Text = "1"
-    End Sub
+    End Sub
 #End Region
-
+
 #End Region
-
-
+
+
 #Region "  GUARDAR  "
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
 
@@ -2422,12 +2421,19 @@ Partial Class Inventarios_EntregaAlmacen
             Dim FechaEstimada As String = If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
             Dim NoCajas As Integer = TxtNoCajas.Text.ToEntero()
             Dim Observaciones As String = TxtObservacionesPaqInterna.Text
-            Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(-1, -1, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True)
+            Dim CvePaqueteria As Integer = GlobalDTPaqueterias().FiltroPrimeroValor("CvePaqueteria", String.Format("CveEmpresa={0} AND TipoPaqueteria = 0", UsuarioActual.CveEmpresa)).ToEntero
+
+            Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "", "", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True)
 
             If CvePaqueteriaGuia > 0 Then
 
                 If CveVentaSurtir > 0 OrElse CveSubProyecto > 0 Then
-                    ErrorMovInv = Not ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimiento, -1)
+                    If ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimiento, -1) Then
+                        ''manda correo
+                        MandaCorreoEntrega(CveVentaSurtir)
+                    Else
+                        ErrorMovInv = True
+                    End If
                 End If
                 If ErrorMovInv Then
                     Alert("Error en el paqueteria guia detalle", TipoMensaje.MsgError)
@@ -2754,6 +2760,53 @@ Partial Class Inventarios_EntregaAlmacen
 
     End Sub
 
+
+    Private Sub MandaCorreoEntrega(tCveVenta As Integer)
+        Dim Correo As New ClsSisMail()
+        Dim SerieFolio As String = ""
+        Dim Asunto As String = String.Format("{0} Envio de pedido: {1}", UsuarioActual.Empresa.NombreCorto, SerieFolio)
+        Dim Cuerpo As New StringBuilder()
+        Dim Destinatario As String = ""
+        Dim MensajeEnviado = False
+        Dim tCvecliente As Integer
+
+
+        Dim ObjVentas As New ClsVentas()
+
+        If (ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa)) Then
+            Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("")
+            Destinatario = String.Format("{0};{1}", dr("CorreoNotificacion"), dr("CorreoVendedorVenta"))
+
+            tCvecliente = dr("CveCliente").ToString.ToEntero
+
+            Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("")
+            Destinatario += String.Format("{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen"))
+
+            Cuerpo.AppendLine(String.Format("Estimado {0} le informamos que los productos de la factura {1}  han sido enviados a entrega. <br><br>", dr("ClienteNombre"), dr("SerieFolio")))
+            Cuerpo.AppendLine("<br><br>Dudas y aclaraciones con su coordinador empresarial.")
+
+        End If
+        ObjVentas.Dispose()
+
+
+        ' Dim ArchivoAdjunto As New ClsSisMail.ArchivoMail()
+
+        'Dim ListaAdjuntos As New List(ClsSisMail.ArchivoMail)
+
+
+        'If (File.Exists(RutaArchivoAdjunto))Then
+        '        {
+        '            ArchivoAdjunto.ArchivoBinario = File.ReadAllBytes(RutaArchivoAdjunto);
+        '            ArchivoAdjunto.Ruta = RutaArchivoAdjunto;
+        '            ArchivoAdjunto.NombreArchivo = new FileInfo(RutaArchivoAdjunto).Name;
+        '            ListaAdjuntos.Add(ArchivoAdjunto);
+        '        }
+
+
+        MensajeEnviado = Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString())
+
+
+    End Sub
     Private Sub Limpia()
 
         'DATOS DE LA VENTA
@@ -3050,7 +3103,7 @@ Partial Class Inventarios_EntregaAlmacen
                 If fi.Exists() Then
                     linkDescarga = $"/Empresas/{UsuarioActual.CveEmpresa}/Documentacion/ventas/{fi.Name}"
                     ImgDownLoad.Visible = True
-                    ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' ><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga)
+                    ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga)
 
 
                 End If

Inventarios/EntregasPorRealizar.aspx

@@ -15,11 +15,23 @@
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
-    <%--Paqueterías Guías--%>Entrega Interna
+     Entregas por Realizar
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+
+
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpAccionesComplementos">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="LnkImprimir" runat="server" OnClick="LnkImprimir_Click" Style="color: #686868;" Text="<i class='fa fa-pdf' style='color:#686868;'></i> Imprimir"/>
+            </li>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LnkImprimir"/>
+        </Triggers>
+    </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
@@ -70,9 +82,10 @@
                                     &nbsp;<asp:CheckBox ID="ChkAsigna" runat="server" Checked="false" />
                                 </ItemTemplate>
                             </asp:TemplateField>
+                            <asp:BoundField HeaderText="Cons" DataField="Num" HeaderStyle-Width="25px" ItemStyle-HorizontalAlign="Center" />
                             <asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" HeaderStyle-Width="10%">
                                 <ItemTemplate>
-                                    &nbsp;<asp:Literal ID="LblFolio" runat="server" Text='<%# Eval("Folio") %>'></asp:Literal>
+                                    &nbsp;<asp:Literal ID="LblFolio" runat="server" Text='<%# Eval("SerieFolio") %>'></asp:Literal>
                                 </ItemTemplate>
 
                             </asp:TemplateField>

Inventarios/EntregasPorRealizar.aspx.cs

@@ -6,9 +6,22 @@ using System.Web.UI;
 using System.Web.UI.WebControls;
 using System.Data;
 using Extensiones;
+using Microsoft.Reporting.WebForms;
 
 public partial class Inventarios_EntregasPorRealizar : ClsPaginas
 {
+    private DataTable DtPaqueteriasGuias
+    {
+        get
+        {
+            return (ViewState["DtPaqueteriasGuias"] == null) ? null : (DataTable)ViewState["DtPaqueteriasGuias"];
+        }
+        set
+        {
+            ViewState["DtPaqueteriasGuias"] = value;
+        }
+    }
+
     protected void Page_Load(object sender, EventArgs e)
     {
         if (!IsPostBack)
@@ -65,6 +78,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
         if (ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa))
         {
             GvPaqueteriasGuias.DataSource = ObjGeneral.DtResultados;
+            DtPaqueteriasGuias = ObjGeneral.DtResultados;
             GvPaqueteriasGuias.DataBind();
         }
         ObjGeneral.Dispose();
@@ -76,4 +90,15 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
         DdlUsuario.DataBind();
         DdlUsuario.Items.Insert(0, new ListItem("Seleccione", "-1"));
     }
+
+    protected void LnkImprimir_Click(object sender, EventArgs e)
+    {
+        List<ReportParameter> RepParams = new List<ReportParameter>();
+        string Usuario = DdlUsuario.SelectedValue.ToEntero() > 0 ? DdlUsuario.SelectedItem.Text : "Todos";
+        RepParams.Add(new ReportParameter("Fecha", DateTime.Today.ToString()));
+        RepParams.Add(new ReportParameter("AsignadoA", Usuario));
+        RepParams.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
+
+        ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF",RDSName:"DsInventarios");
+    }
 }

Inventarios/PaquetesArmadoDesarmado.aspx.vb

@@ -713,8 +713,8 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             If e.Row.DBCampo("Inv_CveMetodoInventario") = "5" Then
-                e.Row.FCButton("BtnSerieLote").Visible = True
-                e.Row.FCButton("BtnSerieLote").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°1", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec"))
+                e.Row.FCButton("BtnSerie").Visible = True
+                e.Row.FCButton("BtnSerie").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°1", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec"))
                 e.Row.FCLinkButton("BtnSeriePaquete").CommandArgument = e.Row.DBCampo("Consec")
                 'Dim Contador = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", e.Row.DBCampo("Consec"))).Rows.Count
                 'e.Row.FCTextBox("TbCantidadF").Text = Contador.ToString
@@ -727,7 +727,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
                 GvDatosArmado.Columns(4).Visible = True
 
             Else
-                e.Row.FCButton("BtnSerieLote").Visible = False
+                e.Row.FCButton("BtnSerie").Visible = False
             End If
 
             ''FUNCIONALIDAD PISTOLA DE CODIGOS
@@ -744,10 +744,10 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             If e.Row.DBCampo("Inv_CveMetodoInventario") = "5" Then
-                e.Row.FCButton("BtnSerieLote").Visible = True
-                e.Row.FCButton("BtnSerieLote").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°2", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec"))
+                e.Row.FCButton("BtnSerie").Visible = True
+                e.Row.FCButton("BtnSerie").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°2", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec"))
             Else
-                e.Row.FCButton("BtnSerieLote").Visible = False
+                e.Row.FCButton("BtnSerie").Visible = False
             End If
 
 
@@ -770,7 +770,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
             DtDatosDetalle.Columns.Add("SeriePaquete", GetType(String))
         End If
     End Sub
-    Protected Sub BtnSerieLote_Click(sender As Object, e As EventArgs)
+    Protected Sub BtnSerie_Click(sender As Object, e As EventArgs)
 
         Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c)
 

Inventarios/RecepcionAlmacen.aspx.vb

@@ -1019,7 +1019,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 CveImportacionSurtir = pCveImportacion
                 CveImportacionProveedor = ddlProveedor.SelectedValue.ToEntero
                 CveImportacionCompra = DdlFactura.SelectedValue.ToEntero
-                LbProveedor.Text = ObjCompras.DtResultados.Rows(0)("Aduanal").ToString
+                LbProveedor.Text = ObjCompras.DtResultados.Rows(0)("ProveedorCompra").ToString
                 HLFolio.Text = ObjCompras.DtResultados.Rows(0)("PedimentoDescripcion").ToString
                 If UsuarioActual.TienePermisoProceso(201) Then
                     HLFolio.NavigateUrl = $"/Compras/Importaciones.aspx?CveImportacion={CveImportacionSurtir}"
@@ -3100,12 +3100,13 @@ Partial Class Inventarios_RecepcionAlmacen
         End If
         Dim CvePrePoliza As Integer = 0
         Dim UsaComplementariaCostoIndirecto As Boolean = False
+        Dim ConceptoPrePoliza As String = LbProveedor.Text
         If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaCostoIndirecto = False
         Dim PorcentajeCompraImportacion As Decimal = 0 ' si hay mas de una factura de importación saber lo que se está recibiendo
 
         'SE REGISTRAN LAS PREPOLIZAS
         If Not ErrorMovInv Then
-            CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen CostoInd", 74, 0, 0, 1, FechaMovto, TxtObservaciones.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+            CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen CostoInd", 74, 0, 0, 1, FechaMovto, ConceptoPrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
             Dim DtTempCompras As DataTable = Nothing
             PorcentajeCompraImportacion = 1
             If CveFleteSurtir > 0 Then

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);
         }

Inventarios/ResguardoMaterial.aspx

@@ -208,7 +208,7 @@
                                     <th width="40%">Clasificación<br />
                                         Producto </th>
                                     <th width="10%">U.M.</th>
-                                    <th style="width: 20%" runat="server" id="ThSerie" visible="false">Serie - Lote</th>
+                                    <th style="width: 20%" runat="server" id="ThSerie" visible="false">Serie</th>
                                     <th style="width: 10%;">Observaciones</th>
                                     <th width="10%"></th>
                                 </tr>

Inventarios/ResguardoMaterial.aspx.vb

@@ -84,22 +84,6 @@ Partial Class Inventarios_ResguardoMaterial
     End Property
 
 
-    Private Property DtSeccionAlmacen As DataTable
-        Get
-            Return CType(ViewState("DtSeccionAlmacen"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtSeccionAlmacen") = value
-        End Set
-    End Property
-    Private Property IndexSeccionAlmacen As Integer
-        Get
-            Return CType(ViewState("IndexSeccionAlmacen"), Integer)
-        End Get
-        Set(value As Integer)
-            ViewState("IndexSeccionAlmacen") = value
-        End Set
-    End Property
     Private Property CantidadTotal As Decimal
         Get
             Return CType(ViewState("CantidadTotal"), Decimal)
@@ -174,7 +158,6 @@ Partial Class Inventarios_ResguardoMaterial
         GvM.DataBind()
 
         CantidadTotal = 0
-        IndexSeccionAlmacen = 0
         CvePS = 0
         TipoSeccionAlmacen = 0
 
@@ -379,7 +362,7 @@ Partial Class Inventarios_ResguardoMaterial
 #End Region
 
 
-#Region "  EISTENCIAS  "
+#Region "  EXISTENCIAS  "
     Private Function GetExistencias(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, CveAlmacen As Integer, Optional Serie As String = "-1") As Double
         Dim Inv As New ClsInventarios
         Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, CveEmpresa, CveAlmacen, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Serie)
@@ -481,10 +464,10 @@ Partial Class Inventarios_ResguardoMaterial
 
     Protected Sub GvM_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
-            If DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {e.Row.RowIndex}").SUMD("CantidadSeccionAlmacen") > 0 Then
-                e.Row.FCLinkButton("lnkRemove").Visible = False
-                e.Row.FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen"
-            End If
+            'If DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {e.Row.RowIndex}").SUMD("CantidadSeccionAlmacen") > 0 Then
+            '    e.Row.FCLinkButton("lnkRemove").Visible = False
+            '    e.Row.FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen"
+            'End If
         End If
     End Sub
 #End Region
@@ -502,7 +485,6 @@ Partial Class Inventarios_ResguardoMaterial
 
         DdlAlmacen.SelectedValueExist("-1")
         DdlAlmacenDestino.SelectedValueExist("-1")
-        DtSeccionAlmacen.Rows.Clear()
 
         TxtObservaciones.Text = ""
         TxtFecha.Text = Now.ToShortDateString
@@ -595,8 +577,6 @@ Partial Class Inventarios_ResguardoMaterial
             FechaLiberacion = TxtFechaLiberacion.Text
             BtnGuardarLiberacion.Visible = True
 
-            DtSeccionAlmacen.Rows.Clear()
-
             UpGeneralesLibreacion.Update()
         Else
             Alert("Ocurrió un error al cargar los resguardos del personal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
@@ -633,8 +613,6 @@ Partial Class Inventarios_ResguardoMaterial
         LbFechaLiberacion.Text = ""
         FechaLiberacion = ""
         BtnGuardarLiberacion.Visible = False
-        DtSeccionAlmacen.Rows.Clear()
-
         DdlAlmacenDestinoLiberacion.SelectedValue = "-1"
         TxtObservacionesLiberacion.Text = ""
 
@@ -685,14 +663,6 @@ Partial Class Inventarios_ResguardoMaterial
             Alert(TextoExistencia.ToString, TipoMensaje.MsgError)
         End If
 
-        Dim TotalCantidad As Double = DtMovimientos.SUMD("Cantidad")
-        If UsuarioActual.Empresa.Funcionalidad(563) = "1" Then
-            If TotalCantidad <> DtSeccionAlmacen.FiltraParametros("TipoSeccionAlmacen = 1").SUMD("CantidadSeccionAlmacen") Then
-                Alert("La seccion de almacen no ha sido agregada completamente.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
-            End If
-        End If
-
         Guardar(23)
 
     End Sub
@@ -724,13 +694,6 @@ Partial Class Inventarios_ResguardoMaterial
             Exit Sub
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(563) = "1" Then
-            If TotalCantidad <> DtSeccionAlmacen.FiltraParametros("TipoSeccionAlmacen = 2").SUMD("CantidadSeccionAlmacen") Then
-                Alert("La seccion de almacen no ha sido agregada completamente.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
-            End If
-        End If
-
         Guardar(24)
 
 
@@ -824,7 +787,7 @@ Partial Class Inventarios_ResguardoMaterial
                 Dim Cont As Integer = 0
                 For Each Gvr As GridViewRow In GvMLiberacion.Rows
                     If Gvr.FCTextBox("TxtCantidad").Text.ToDouble > 0 Then
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, Gvr.DataKey("SerieLote").ToString, Gvr.DataKey("Observaciones").ToString) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, Gvr.DataKey("Serie").ToString, Gvr.DataKey("Observaciones").ToString) Then
                             MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
                             TieneError = True
                             Exit For
@@ -846,7 +809,7 @@ Partial Class Inventarios_ResguardoMaterial
                         If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                             Cont = 0
                             For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Dr("Observaciones").ToString) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("Serie").ToString, Dr("Observaciones").ToString) Then
                                     TieneError = True
                                     MensajeError = "Ocurrió un error al guardar los movimientos de entrada"
                                     Exit For