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

CRM/EmpresaCRM.aspx.cs

@@ -1424,8 +1424,14 @@ public partial class CRM_EmpresaCRM : ClsPaginas
 
         int CveAcercamiento = -1;
 
-        CveAcercamiento = ObjCRM.AddAcercamiento(CveEmpresaCRM, CveContactoPrincipal, CveTipoProceso, CveEtapaProcesoActual, CveVendedor, CveMedioCaptacion, CveRechazoMotivo, CveProbabilidadAcercamiento,
+        if (ObjCRM.DtResultados.Rows.Count > 0)
-                                    FechaApertura, NombreAcercamiento, Descripcion, Importe, Comision, Prioridad, UsuarioActual.CveEmpresa, CveUsuarioIng);
+        {
+            CveAcercamiento = ObjCRM.AddAcercamiento(CveEmpresaCRM, CveContactoPrincipal, CveTipoProceso, CveEtapaProcesoActual, CveVendedor, CveMedioCaptacion, CveRechazoMotivo, CveProbabilidadAcercamiento,
+                                        FechaApertura, NombreAcercamiento, Descripcion, Importe, Comision, Prioridad, UsuarioActual.CveEmpresa, CveUsuarioIng);
+        }else
+        {
+            Alert("No tiene Etapa Proceso con el Tipo Proceso seleccionado",ModExtensiones.TipoMensaje.MsgAdvertencia);
+        }
 
         if (CveAcercamiento > 0)
         {

Inicio.aspx.vb

@@ -225,7 +225,7 @@ Partial Class Inicio
     Private Sub MuestraComprasPUE()
         Dim objCompras As New ClsCompras
         Dim FechaInicio As Date = Now.AddYears(-2)
-        LblComprasPUE.Text = "Facturas apartir de " & FechaInicio.ToShortDateString
+        LblComprasPUE.Text = "Facturas a partir de: " & FechaInicio.ToShortDateString
         If objCompras.GetPUESinPago(FechaInicio, Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
             If objCompras.DtResultados.Rows.Count > 0 Then
                 GvCompPUE.DataSource = objCompras.DtResultados

Inventarios/EntradasSalidas.aspx

@@ -146,6 +146,7 @@
                                     </div>
                                     <div class="caption uppercase" style="position: relative;">
                                         <i class="fa fa-info-circle"></i>Información del movimiento
+                                   
                                     </div>
                                 </div>
                                 <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style='display:none;'")%>>
@@ -275,6 +276,7 @@
                                         <div class="row">
                                             <label class="col-md-1 truncate" style="width: 110px">
                                                 Observaciones:
+                                           
                                             </label>
                                             <div class="col-md-5">
                                                 <asp:TextBox ID="TxtObservaciones" TextMode="MultiLine" Rows="2" CssClass="form-control input-sm" runat="server" MaxLength="232"></asp:TextBox>
@@ -331,6 +333,7 @@
                                     </div>
                                     <div class="caption uppercase" style="position: relative;">
                                         <i class="fa fa-info-circle"></i>Agregar Producto
+                                   
                                     </div>
                                 </div>
                                 <div class="portlet-body">
@@ -405,12 +408,14 @@
                                     </div>
                                     <div class="caption uppercase" style="position: relative;">
                                         <i class="fa fa-info-circle"></i>Información de registro
+                                   
                                     </div>
                                 </div>
                                 <div class="portlet-body">
                                     <div class="row">
                                         <label class="col-md-3 truncate">
                                             Usuario:
+                                       
                                         </label>
                                         <div class="col-md-6">
                                             <asp:Label ID="LblUsuarioRegistro" runat="server"></asp:Label>
@@ -420,6 +425,7 @@
                                     <div class="row" style="margin-top: 10px;">
                                         <label class="col-md-3 truncate">
                                             Fecha:
+                                       
                                         </label>
                                         <div class="col-md-6">
                                             <asp:Label ID="LblFechaRegistro" runat="server"></asp:Label>
@@ -428,6 +434,7 @@
                                     <div class="row" style="margin-top: 10px;">
                                         <label class="col-md-3 truncate">
                                             Referencia:
+                                       
                                         </label>
                                         <div class="col-md-6">
                                             <asp:HyperLink ID="HplCompra" Target="_blank" runat="server" Visible="False" CssClass="Texto">Ver Compra</asp:HyperLink>
@@ -440,6 +447,7 @@
                                     <div class="row" runat="server" id="RowConsignacion" visible="false" style="margin-top: 10px;">
                                         <label class="col-md-3 truncate">
                                             Consignación:
+                                       
                                         </label>
                                         <div class="col-md-6">
                                             <asp:HyperLink ID="HLConsignacion" Target="_blank" NavigateUrl="#" Text="" runat="server" />
@@ -449,6 +457,7 @@
                                     <div class="row" runat="server" id="RowTipoCambio" visible="false" style="margin-top: 10px;">
                                         <label class="col-md-3 truncate">
                                             Tipo Cambio:
+                                       
                                         </label>
                                         <div class="col-md-6">
                                             <asp:Label Text="" ID="LbTipoCambio" runat="server" />
@@ -457,6 +466,7 @@
                                     <div class="row" runat="server" id="RowMtoRel" visible="false" style="margin-top: 10px;">
                                         <label class="col-md-3 truncate">
                                             Mto. Rel.:
+                                       
                                         </label>
                                         <div class="col-md-6">
                                             <asp:HyperLink ID="lnkMtoRelaioando" CssClass="Texto" runat="server" Target="_blank">ver</asp:HyperLink>
@@ -474,6 +484,7 @@
                                     </div>
                                     <div class="caption uppercase" style="position: relative;">
                                         <i class="fa fa-info-circle"></i>Tipo de Cambio
+                                   
                                     </div>
                                 </div>
                                 <div class="portlet-body">
@@ -542,7 +553,7 @@
             <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
                 <ContentTemplate>
 
-                    <table border="0" cellpadding="0" class="Widthall grides" cellspacing="0">
+                    <%--<table border="0" cellpadding="0" class="Widthall grides" cellspacing="0">
                         <tbody>
                             <tr class="Titulos">
                                 <th style="width: 28px">#</th>
@@ -551,10 +562,7 @@
                                     Producto </th>
                                 <th width="73px">U.M.</th>
                                 <th width="63px" id="tdPU" runat="server" visible="false">P.U.</th>
-                                <th width="63px" id="ThTotal" runat="server" visible="false">Total</th>
-                                <th width="63px" id="tdPUExtranjero" runat="server" visible="false">PU Extran</th>
                                 <th width="63px" id="tdCI" runat="server" visible="false">CI</th>
-                                <th width="63px" id="ThAF" runat="server" visible="false">Activo Fijo</th>
                                 <th style="width: 88px" runat="server" id="TrSerieLote2" visible="false">
                                     <asp:Label runat="server" ID="LblSerieLote" Visible="false">Serie - Lote</asp:Label></th>
                                 <th style="width: 88px" runat="server" id="TrLote2" visible="false">Lote</th>
@@ -565,8 +573,8 @@
                             </tr>
                             <tr align="center">
                                 <td></td>
-                                <td>
+                                <td>--%>
-                                    <asp:TextBox ID="txtCantidad" CssClass="form-control input-sm" Width="55px" MaxLength="15" runat="server" ValidationGroup="GprAgregaPS"></asp:TextBox>
+                    <%--<asp:TextBox ID="txtCantidad" CssClass="form-control input-sm" Width="55px" MaxLength="15" runat="server" ValidationGroup="GprAgregaPS"></asp:TextBox>
                                     <ajax:FilteredTextBoxExtender ID="SoloNumerosCantidad" runat="server" TargetControlID="txtCantidad" FilterType="Custom, Numbers" ValidChars="." />
                                     <asp:RequiredFieldValidator ID="RFVCantidad" runat="server" ControlToValidate="txtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCOCantidad1" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -576,11 +584,6 @@
                                 <td style="text-align: center;">
                                     <div class="psagregar">
                                         <div class="comboxes">
-                                            <asp:DropDownList ID="DdlClasificacion" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%" Class="form-control input-sm select2me">
-                                                <asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
-                                            </asp:DropDownList>
-                                            <br />
-                                            <ADS:Dropdownlost runat="server" ID="DdlProducto2" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
                                         </div>
                                     </div>
                                 </td>
@@ -594,7 +597,6 @@
                                     <ajax:FilteredTextBoxExtender ID="ftbe" runat="server" TargetControlID="txtPrecio" FilterType="Custom, Numbers" ValidChars="+-.," />
                                 </td>
                                 <td id="TdTotal" runat="server" visible="false"></td>
-                                <td id="tdPUExtranjero2" runat="server" visible="false"></td>
                                 <td id="tdCI2" runat="server" visible="false"></td>
                                 <td id="tdAF" runat="server" align="center" visible="false">
                                     <asp:UpdatePanel ID="UPPNumEcon" runat="server" UpdateMode="Conditional">
@@ -619,12 +621,10 @@
                                     <asp:TextBox ID="TxtnLote" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
                                 </td>
                                 <td runat="server" id="TrBatch" visible="false">
-                                    <asp:TextBox ID="TxtnBatch" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
+                                    
                                 </td>
                                 <td runat="server" id="TrSeccionAlmacen" visible="false">
-                                    <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" AppendDataBoundItems="true" DataValueField="CveSeccion" CssClass="select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
+                                    
-                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                    </asp:DropDownList>
                                 </td>
                                 <td>
                                     <asp:TextBox ID="TxtObservacionesdetalle" CssClass="form-control input-sm" runat="server" MaxLength="200"></asp:TextBox>
@@ -634,8 +634,13 @@
                                 </td>
                             </tr>
                         </tbody>
-                    </table>
+                    </table>--%>
-
+                    <div class="row">
+                        <div class="col-md-12" align="Right">
+                            <asp:LinkButton ID="LkAgregar" runat="server" CssClass="btn btn-default" Text="Agregar Producto" />
+                        </div>
+                    </div>
+                    <br />
                     <div class="row">
                         <div class="col-md-12" align="right">
                             <asp:Label ID="LbTotalMovimientos" Text="Total de Movimientos: 0" runat="server" />
@@ -649,9 +654,21 @@
                             <asp:Button ID="BtnVinculaAFEdit" ClientIDMode="Static" OnClick="BtnVinculaAFEdit_Click" Style="display: none;" runat="server" />
                             <asp:HiddenField runat="server" ID="HdnCodAFEdit" Value="-1" ClientIDMode="Static" />
 
-                            <asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" ShowHeader="False" EmptyDataText="Aún no hay registros." DataKeyNames="No,CveMovimientoDetalle,Cantidad" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" ShowHeaderWhenEmpty="True">
+                            <asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" ShowHeader="True" EmptyDataText="Aún no hay registros."
+                                DataKeyNames="No,CveMovimientoDetalle,Cantidad,CvePS,CveUM,PU,Observaciones,CodigoPS,UnidadMedida,CveAF,SerieLote,CveSeccionAlmacen"
+                                AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" ShowHeaderWhenEmpty="True">
                                 <Columns>
-                                    <asp:TemplateField HeaderText="" ItemStyle-Font-Size="6pt">
+                                    <asp:TemplateField HeaderText="CveMovimientoDetalle" ItemStyle-Font-Size="6pt" Visible="false">
+                                        <ItemTemplate>
+                                            <asp:Literal ID="lbMovimientoDetalle" runat="server" Text='<%# Eval("CveMovimientoDetalle")%>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                    <asp:TemplateField HeaderText="CvePS" ItemStyle-Font-Size="6pt" Visible="false">
+                                        <ItemTemplate>
+                                            <asp:Literal ID="lbCvePS" runat="server" Text='<%# Eval("CvePS")%>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                    <asp:TemplateField HeaderText="#" ItemStyle-Font-Size="6pt">
                                         <EditItemTemplate>
                                             <asp:Literal ID="lbNo" runat="server" Text='<%# Eval("No")%>'></asp:Literal>
                                         </EditItemTemplate>
@@ -791,7 +808,12 @@
                                             <asp:LinkButton data-toggle="tooltip" title="Sección Almacen" ID="LnkSeccionAlmacen" OnClick="LnkSeccionAlmacen_Click" CssClass="btn btn-circle btn-xs green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
                                         </ItemTemplate>
                                     </asp:TemplateField>
-                                    <asp:TemplateField>
+                                    <asp:TemplateField ItemStyle-Width="20px">
+                                        <ItemTemplate>
+                                            <asp:LinkButton ID="ImgEd" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="EditPS" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                    <asp:TemplateField Visible="false">
                                         <EditItemTemplate>
                                             <center>
                                                 <asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
@@ -799,7 +821,7 @@
                                             </center>
                                         </EditItemTemplate>
                                         <ItemTemplate>
-                                            <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                            <%--<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />--%>
                                             <asp:LinkButton ID="lnkRemove" runat="server" AlternateText="Eliminar" OnClick="DeleteRow" CommandArgument='<%# Eval("No")%>' CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el concepto?" data-btn-ok-label="si" />
                                             <asp:LinkButton ID="lnkDividir" runat="server" AlternateText="Eliminar" OnClick="DividirRow" CommandArgument='<%# Eval("No")%>' Style="font-size: 9px" CssClass="btn btn-circle btn-sm red" Text="<i class='fas fa-chart-pie-alt'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea dividir el concepto en unidades?" data-btn-ok-label="si" />
                                         </ItemTemplate>
@@ -953,6 +975,7 @@
                                         <div class="row">
                                             <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>
@@ -1394,6 +1417,7 @@
                         </div>
                     </div>
                     </div>
+               
                 </ContentTemplate>
                 <Triggers>
                     <asp:PostBackTrigger ControlID="LbDescargarExcelConceptos" />
@@ -1487,6 +1511,112 @@
         </asp:UpdatePanel>
     </div>
 
+    <div id="ModalAgregar" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpAgregar" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header ">
+                        <h4 class="modal-title">
+                            <asp:Literal ID="Literal3" Text="Detalles" runat="server"> </asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+                        <div runat="server" id="divCantidad" class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="txtCantidad" CssClass="form-control input-sm" Width="50%" MaxLength="15" runat="server" ValidationGroup="GprAgregaPS"></asp:TextBox>
+                            <ajax:FilteredTextBoxExtender ID="SoloNumerosCantidad" runat="server" TargetControlID="txtCantidad" FilterType="Custom, Numbers" ValidChars="." />
+                            <asp:RequiredFieldValidator ID="RFVCantidad" runat="server" ControlToValidate="txtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>
+                            <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>
+                            <br />
+                        </div>
+                        <div runat="server" id="divClasificacionProducto" class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlClasificacion" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%" Class="form-control input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                            <br />
+                            <ADS:Dropdownlost runat="server" ID="DdlProducto2" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
+                            <label for="<%= DdlProducto2.ClientID.ToString()%>">Clasificación Producto</label>
+                            <br />
+                        </div>
+                        <div runat="server" id="divUnidadMedida" class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlUnidad" runat="server" Class="form-control input-sm select2me" Style="width: 100px !important;" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida"></asp:DropDownList>
+                            <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>
+                            <br />
+                        </div>
+                        <div runat="server" id="divSerieLote" class="form-group form-md-line-input input-iconright" visible="false">
+                            <asp:TextBox ID="TxtnSerieLote" 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="<%= TxtnSerieLote.ClientID.ToString()%>">Serie Lote</label>
+                            <br />
+                        </div>
+                        <div runat="server" id="divLote" class="form-group form-md-line-input input-iconright" visible="false">
+                            <asp:TextBox ID="TxtnLote" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
+                            <label for="<%= TxtnLote.ClientID.ToString()%>">Lote</label>
+                            <br />
+                        </div>
+                        <div runat="server" id="divBatch" class="form-group form-md-line-input input-iconright" visible="false">
+                            <asp:TextBox ID="TxtnBatch" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
+                            <label for="<%= TxtnBatch.ClientID.ToString()%>">Batch</label>
+                            <br />
+                        </div>
+                        <div runat="server" id="divSeccionAlmacen" class="form-group form-md-line-input input-iconright" visible="false">
+                            <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" AppendDataBoundItems="true" DataValueField="CveSeccion" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
+                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                            <label for="<%= DdlSeccionAlmacen.ClientID.ToString()%>">Sección Almacén</label>
+                        </div>
+                        <br />
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:TextBox ID="TxtObservacionesdetalle" CssClass="form-control input-sm" runat="server" MaxLength="200"></asp:TextBox>
+                            <label for="<%= TxtObservacionesdetalle.ClientID.ToString()%>">Observaciones</label>
+                            <br />
+                        </div>
+
+                        <div runat="server" id="tdPUExtranjero" class="form-group form-md-line-input input-iconright" visible="false">
+                            <label for="<%= tdPUExtranjero2.ClientID.ToString()%>">PU Extranjero</label>
+                            <label id="tdPUExtranjero2" runat="server" visible="false"></label>
+                        </div>
+
+                        <div runat="server" id="tdCI" class="form-group form-md-line-input input-iconright" visible="false">
+                            <label id="tdCI2" runat="server" visible="false"></label>
+                            <label for="<%= tdCI2.ClientID.ToString()%>">CI</label>
+                        </div>
+
+                        <div runat="server" id="ThAF" class="form-group form-md-line-input input-iconright" visible="false">
+                            <label for="tdAF">AF</label>
+                            <asp:Literal ID="tdAF" runat="server" Visible="false"></asp:Literal>
+                            <asp:UpdatePanel ID="UPPNumEcon" runat="server" UpdateMode="Conditional">
+                                <ContentTemplate>
+                                    <asp:Button Text="VinculaAF" Style="display: none;" OnClick="BtnVinculaAF_Click" ClientIDMode="Static" ID="BtnVinculaAF" runat="server" />
+                                    <asp:HiddenField ID="HdnCveActivoFijo" Value="-1" runat="server" ClientIDMode="Static" />
+                                    <asp:HiddenField ID="HdnCodigoAF" Value="-1" runat="server" ClientIDMode="Static" />
+
+                                    <asp:TextBox ID="LblCodigo" runat="server" Text="" onkeyup="EnterAF(event);" onblur="AFBlur();" ClientIDMode="Static" Width="40px"></asp:TextBox>
+                                    <asp:HyperLink ID="HplMaq" runat="server" ClientIDMode="Static"><img alt="Activo Fijo" width="20px" height="20px" src="/Imagenes/Maquinaria.jpg" style="cursor:pointer;" onclick="AbrirVentana('/AF/PopUpBuscarAF.aspx?OPCION=OC',950,600,'N');"/></asp:HyperLink>
+
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+                        </div>
+                        <div runat="server" id="ThTotal" class="form-group form-md-line-input input-iconright" visible="false">
+                            <label for="<%= TdTotal.ClientID.ToString()%>">Total</label>
+                            <asp:Literal ID="TdTotal" runat="server" Visible="false"></asp:Literal>
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        <asp:LinkButton ID="LkAgregarDetalle" runat="server" CssClass="btn btn-primary" Text="Agregar"></asp:LinkButton>
+                        <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">

Inventarios/EntradasSalidas.aspx.vb

@@ -5,6 +5,7 @@ Imports System.Data
 Imports Extensiones
 Imports System.IO
 Imports Microsoft.Reporting.WebForms
+Imports System.Math
 
 'Imports DocumentFormat.OpenXml.Wordprocessing
 
@@ -260,6 +261,22 @@ Partial Class Inventarios_EntradasSalidas
             ViewState("DescripcionDetalladaEliminar") = value
         End Set
     End Property
+    Public Property CveAFEdit() As Integer
+        Get
+            Return ViewState("CveAFEdit").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveAFEdit") = value
+        End Set
+    End Property
+    Public Property CveMovimientoDetalleEdit() As Integer
+        Get
+            Return ViewState("CveMovimientoDetalleEdit").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveMovimientoDetalleEdit") = value
+        End Set
+    End Property
 
 #End Region
 
@@ -362,13 +379,14 @@ Partial Class Inventarios_EntradasSalidas
     End Function
     Private Sub ActivaPermisoSeccionAlmacen()
         GvM.Columns(12).Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
-        TrSeccionAlmacen.Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
+        'TrSeccionAlmacen.Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
-        TrSeccionAlmacen2.Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
+        'TrSeccionAlmacen2.Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
+        divSeccionAlmacen.Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
     End Sub
     Private Sub PermisoVerImportes()
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
-        tdPU.Visible = TienePermisoImportes
+        'tdPU.Visible = TienePermisoImportes
-        tdTxtPU.Visible = TienePermisoImportes
+        'tdTxtPU.Visible = TienePermisoImportes
         GvM.Columns(4).Visible = TienePermisoImportes
 
         ThTotal.Visible = TienePermisoImportes
@@ -1138,9 +1156,18 @@ Partial Class Inventarios_EntradasSalidas
         Return Existencia
     End Function
 
-    Protected Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
+    'Protected Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
-        AgregarPS()
+    '    AgregarPS()
+    'End Sub
+
+    Protected Sub btnAgregarDetalle_Click(sender As Object, e As EventArgs) Handles LkAgregarDetalle.Click
+        If LkAgregarDetalle.Text = "Agregar" Then
+            AgregarPS()
+        Else
+            ActualizarPS()
+        End If
     End Sub
+
     Protected Sub BtnSerieAddNew_Click(sender As Object, e As EventArgs)
         AgregarPS()
     End Sub
@@ -1192,7 +1219,7 @@ Partial Class Inventarios_EntradasSalidas
         If Valido AndAlso DdlConcepto.SelectedValue.Contiene({"3", "5", "7", "8", "11", "12", "13", "15", "16", "17", "20", "21", "30", "31"}) Then ' salida de almacen
 
             Dim Existencia As Double = GetExistencias(CvePS, CveUM, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, If(SerieLote = "", "-1", SerieLote), If(Lote = "", "-1", Lote), If(Batch = "", "-1", Batch))
-            LbAgregar.ToolTip = Existencia.ToString
+            'LbAgregar.ToolTip = Existencia.ToString
             If Existencia - Cantidad - DtMovimientos.SUM("Cantidad", $"CvePS = {CvePS} AND CveUM = {CveUM} {If(SerieLote <> "", $" AND SerieLote = '{SerieLote}'", "")}") < 0 Then
                 If Existencia <= 0 Then
                     Alert("No hay existencia del producto", TipoMensaje.MsgAdvertencia)
@@ -1319,7 +1346,10 @@ Partial Class Inventarios_EntradasSalidas
                                     End If
                                 ElseIf Dr("Estatus").ToString = "U" Then
 
-                                    If Not ObjInventario.UpdateMovimientoDetalle(Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, Dr("CveAF").ToString.ToEntero, Dr("CveMovimientoDetalle").ToString.ToEntero, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Dr("Observaciones").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                    If Not ObjInventario.UpdateMovimientoDetalle(Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero,
+                                                                                 ImporteConcepto, Dr("CveAF").ToString.ToEntero, Dr("CveMovimientoDetalle").ToString.ToEntero,
+                                                                                 Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("SerieLote").ToString, Dr("Observaciones").ToString,
+                                                                                 CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                         Mensaje = "Error al Actualizar los movimientos"
                                         ErrorMovInv = True : Exit For
                                     End If
@@ -2083,9 +2113,12 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
 
     Private Sub VisualizaPU(Opcion As Boolean)
-        tdPU.Visible = Opcion
+        'tdPU.Visible = Opcion
-        tdTxtPU.Visible = Opcion
+        'tdTxtPU.Visible = Opcion
+
         txtPrecio.Visible = Opcion
+        divPrecio.Visible = Opcion
+
         GvM.Columns(4).Visible = Opcion
 
         TdTotal.Visible = Opcion
@@ -2098,7 +2131,7 @@ Partial Class Inventarios_EntradasSalidas
         GvM.Columns(6).Visible = Opcion
     End Sub
     Private Sub VisualizaAF(Opcion As Boolean)
-        tdAF.Visible = Opcion
+        'tdAF.Visible = Opcion
         ThAF.Visible = Opcion
         GvM.Columns(8).Visible = Opcion
     End Sub
@@ -2143,29 +2176,38 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
     Private Sub ElProductoChange()
         TxtnSerieLote.Visible = False
+        divSerieLote.Visible = False
+
         TxtnLote.Visible = False
+        divLote.Visible = False
         TxtnBatch.Visible = False
+        divBatch.Visible = False
 
         EscondeColumnasGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
 
         If DdlProducto2.SelectedValue.ToEntero > 0 Then
             Dim MetodoInventario As Integer = GlobalDTPS(UsuarioActual.CveEmpresa, DdlProducto2.SelectedValue.ToEntero).FiltroPrimeroValor("Inv_CveMetodoInventario", "").ToEntero ' ("Inv_CveMetodoInventario = 6", "PS")
             If MetodoInventario = 5 Then
-                LblSerieLote.Visible = True
+
+                'LblSerieLote.Visible = True
                 TxtnSerieLote.Visible = True
-                TrSerieLote.Visible = True
+                divSerieLote.Visible = True
-                TrSerieLote2.Visible = True
+
+                'TrSerieLote.Visible = True
+                'TrSerieLote2.Visible = True
                 GvM.Columns(9).Visible = True
             End If
             If MetodoInventario = 6 Then
                 TxtnLote.Visible = True
-                TrLote.Visible = True
+                divLote.Visible = True
-                TrLote2.Visible = True
+                'TrLote.Visible = True
+                'TrLote2.Visible = True
                 GvM.Columns(10).Visible = True
 
                 TxtnBatch.Visible = True
-                TrBatch.Visible = True
+                divBatch.Visible = True
-                TrBatch2.Visible = True
+                'TrBatch.Visible = True
+                'TrBatch2.Visible = True
                 GvM.Columns(11).Visible = True
             End If
         End If
@@ -2184,27 +2226,26 @@ Partial Class Inventarios_EntradasSalidas
         GvM.DataBind()
 
         EscondeColumnasGVM(DtTemp)
+        UppGrid.Update()
     End Sub
     Private Sub EscondeColumnasGVM(DtTemp As DataTable)
-        LblSerieLote.Visible = False
+        'LblSerieLote.Visible = False
         TxtnSerieLote.Visible = False
-        TrSerieLote.Visible = False
+        divSerieLote.Visible = False
-        TrSerieLote2.Visible = False
 
-        GvM.Columns(9).Visible = False
+        'TrSerieLote.Visible = False
-        'PERMISO SOLO PARA EDITAR SERIELOTE
+        'TrSerieLote2.Visible = False
-        If UsuarioActual.TienePermisoProceso(245) Then
-            GvM.Columns(9).Visible = True
-        End If
 
         TxtnLote.Visible = False
-        TrLote.Visible = False
+        divLote.Visible = False
-        TrLote2.Visible = False
+        'TrLote.Visible = False
+        'TrLote2.Visible = False
         GvM.Columns(10).Visible = False
 
         TxtnBatch.Visible = False
-        TrBatch.Visible = False
+        divBatch.Visible = False
-        TrBatch2.Visible = False
+        'TrBatch.Visible = False
+        'TrBatch2.Visible = False
         GvM.Columns(11).Visible = False
 
         Dim TienePermisoImportes = UsuarioActual.TienePermisoProceso(201)
@@ -2217,23 +2258,34 @@ Partial Class Inventarios_EntradasSalidas
         GvM.Columns(7).Visible = False
 
         If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then
+            GvM.Columns(9).Visible = False
+            'PERMISO SOLO PARA EDITAR SERIELOTE
+            If UsuarioActual.TienePermisoProceso(245) Then
+                GvM.Columns(9).Visible = True
+            End If
+            Dim SerieLoteVal As Integer = DtTemp.FiltraParametros("LEN(SerieLote) > 0").Rows.Count()
+            GvM.Columns(9).Visible = False
             If DtTemp.MAX("SerieLote").ToString <> "" Then
-                LblSerieLote.Visible = True
+                'LblSerieLote.Visible = True
                 TxtnSerieLote.Visible = True
-                TrSerieLote.Visible = True
+                divSerieLote.Visible = True
-                TrSerieLote2.Visible = True
+
+                'TrSerieLote.Visible = True
+                'TrSerieLote2.Visible = True
                 GvM.Columns(9).Visible = True
             End If
 
             If DtTemp.MAX("Lote").ToString <> "" Then
                 TxtnLote.Visible = True
-                TrLote.Visible = True
+                divLote.Visible = True
-                TrLote2.Visible = True
+                'TrLote.Visible = True
+                'TrLote2.Visible = True
                 GvM.Columns(10).Visible = True
 
                 TxtnBatch.Visible = True
-                TrBatch.Visible = True
+                divBatch.Visible = True
-                TrBatch2.Visible = True
+                'TrBatch.Visible = True
+                'TrBatch2.Visible = True
                 GvM.Columns(11).Visible = True
             End If
 
@@ -2320,34 +2372,34 @@ Partial Class Inventarios_EntradasSalidas
                 If CveMovimiento > 0 Then
                     'DEPENDE PERMISOS HABILITA
                     e.Row.FCLinkButton("lnkRemove").Visible = PermiteEliminar()
-                    e.Row.FCLinkButton("imgE").Visible = PermiteGuardar()
+                    e.Row.FCLinkButton("imgEd").Visible = PermiteGuardar()
 
                     If e.Row.DBCampo("CountMovimientoEntradaDetalle").ToEntero > 0 Then
                         TieneSalida = True
                         e.Row.FCLinkButton("lnkRemove").Visible = False
-                        e.Row.FCLinkButton("imgE").Visible = False
+                        e.Row.FCLinkButton("imgEd").Visible = False
                     End If
 
                     'SI TIENE PREPOLIZAS NO PUEDE EDITAR NI ELIMINAR
                     If e.Row.DBCampo("TienePrePoliza").ToEntero > 0 Then
                         e.Row.FCLinkButton("lnkRemove").Visible = False
-                        e.Row.FCLinkButton("imgE").Visible = False
+                        e.Row.FCLinkButton("imgEd").Visible = False
                     End If
 
                     'APAGA TODO SI TIENE MOVIMIENTO RELACIONADO
                     If TieneRelacionado > 0 Or CveMovimientoRelacionado > 0 Then
                         e.Row.FCLinkButton("lnkRemove").Visible = False
-                        e.Row.FCLinkButton("imgE").Visible = False
+                        e.Row.FCLinkButton("imgEd").Visible = False
                     End If
 
                     'PERMISO SOLO PARA EDITAR OBSERVACIONES
                     If PermiteGuardarObservacionDetalle() Then
-                        e.Row.FCLinkButton("imgE").Visible = True
+                        e.Row.FCLinkButton("imgEd").Visible = True
                     End If
 
                     'PERMISO SOLO PARA EDITAR SERIELOTE
                     If UsuarioActual.TienePermisoProceso(245) Then
-                        e.Row.FCLinkButton("imgE").Visible = True
+                        e.Row.FCLinkButton("imgEd").Visible = True
                     End If
 
                     If EsNuevoMov Then
@@ -2363,8 +2415,8 @@ Partial Class Inventarios_EntradasSalidas
             End If
 
             If DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {e.Row.RowIndex}").SUMD("CantidadSeccionAlmacen") > 0 Then
-                e.Row.FCLinkButton("imgE").Visible = False
+                e.Row.FCLinkButton("imgEd").Visible = False
-                e.Row.FCLinkButton("imgE").ToolTip = "Cuenta con sección almacen"
+                e.Row.FCLinkButton("imgEd").ToolTip = "Cuenta con sección almacen"
                 e.Row.FCLinkButton("lnkRemove").Visible = False
                 e.Row.FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen"
                 e.Row.FCLinkButton("lnkDividir").Visible = False
@@ -2375,7 +2427,50 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
     Protected Sub GvM_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvM.RowEditing
         GvM.EditIndex = e.NewEditIndex
-
+        Dim Gv As GridView = DirectCast(sender, GridView)
+        Dim GvRow As GridViewRow = Gv.Rows(0)
+        If CveMovimiento > 0 Then
+            CveMovimientoDetalleEdit = GvRow.DataKey("CveMovimientoDetalle").ToEntero
+            divCantidad.Visible = False
+            divClasificacionProducto.Visible = False
+            divUnidadMedida.Visible = False
+        End If
+        txtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero().ToString
+        DdlProducto2.SelectedValue = GvRow.DataKey("CvePS")
+        DdlProducto2.SelectedText = GvRow.DataKey("CodigoPS")
+        ElProductoChange()
+        DdlUnidad.SelectedValue = GvRow.DataKey("CveUM")
+        CveAFEdit = GvRow.DataKey("CveAF").ToEntero
+        txtPrecio.Text = GvRow.DataKey("PU").ToDouble.FormatoNumero
+        TxtnSerieLote.Text = GvRow.DataKey("SerieLote")
+        TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
+        DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
+        LkAgregarDetalle.Text = "Actualizar"
+        UpAgregar.Update()
+        RegistraScript("$('#ModalAgregar').modal()")
+        CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
+    End Sub
+    Protected Sub EditPS(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        If CveMovimiento > 0 Then
+            CveMovimientoDetalleEdit = GvRow.DataKey("CveMovimientoDetalle").ToEntero
+            divCantidad.Visible = False
+            divClasificacionProducto.Visible = False
+            divUnidadMedida.Visible = False
+        End If
+        txtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero().ToString
+        DdlProducto2.SelectedValue = GvRow.DataKey("CvePS")
+        DdlProducto2.SelectedText = GvRow.DataKey("CodigoPS")
+        ElProductoChange()
+        DdlUnidad.SelectedValue = GvRow.DataKey("CveUM")
+        CveAFEdit = GvRow.DataKey("CveAF").ToEntero
+        txtPrecio.Text = GvRow.DataKey("PU").ToDouble.FormatoNumero
+        TxtnSerieLote.Text = GvRow.DataKey("SerieLote")
+        TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
+        DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
+        LkAgregarDetalle.Text = "Actualizar"
+        UpAgregar.Update()
+        RegistraScript("$('#ModalAgregar').modal()")
         CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
     End Sub
     Protected Sub GvM_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GvM.RowCancelingEdit
@@ -2591,7 +2686,7 @@ Partial Class Inventarios_EntradasSalidas
             LblCodigo.Text = HdnCodigoAF.Value
         End If
 
-        LbAgregar.Focus()
+        'LbAgregar.Focus()
 
         UPDatos.Update()
     End Sub
@@ -4065,15 +4160,15 @@ Partial Class Inventarios_EntradasSalidas
         End If
 
         If CantidadTotalSeccion > 0 Then
-            GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgE").Visible = False
+            GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgEd").Visible = False
-            GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgE").ToolTip = "Cuenta con sección almacen"
+            GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgEd").ToolTip = "Cuenta con sección almacen"
             GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").Visible = False
             GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen"
             GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkDividir").Visible = False
             GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkDividir").ToolTip = "Cuenta con sección almacen"
         Else
-            GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgE").Visible = True
+            GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgEd").Visible = True
-            GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgE").ToolTip = ""
+            GvM.Rows(IndexSeccionAlmacen).FCLinkButton("imgEd").ToolTip = ""
             GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").Visible = True
             GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkRemove").ToolTip = ""
             GvM.Rows(IndexSeccionAlmacen).FCLinkButton("lnkDividir").Visible = True
@@ -4141,4 +4236,41 @@ Partial Class Inventarios_EntradasSalidas
 
 #End Region
 
+    Protected Sub LkAgregar_Click() Handles LkAgregar.Click
+        limpiarModalDetalle()
+        UpAgregar.Update()
+        RegistraScript("$('#ModalAgregar').modal()")
+    End Sub
+
+    Private Sub ActualizarPS()
+        Dim ObjInventario As New ClsInventarios
+        If Not ObjInventario.UpdateMovimientoDetalle(txtCantidad.Text.ToDouble, DdlUnidad.ToEntero, DdlProducto2.SelectedValue.ToEntero, txtPrecio.Text.ToDouble, CveAFEdit,
+                                                     CveMovimientoDetalleEdit, DdlSeccionAlmacen.SelectedValue.ToEntero, TxtnSerieLote.Text, TxtObservacionesdetalle.Text,
+                                                     CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+            Alert("Error al Actualizar los movimientos")
+        End If
+    End Sub
+
+    Private Sub limpiarModalDetalle()
+
+        divCantidad.Visible = True
+        divClasificacionProducto.Visible = True
+        divUnidadMedida.Visible = True
+        txtCantidad.Text = ""
+        DdlProducto2.SelectedValue = "-1"
+        DdlProducto2.SelectedText = ""
+        ElProductoChange()
+        txtPrecio.Text = ""
+        TxtnSerieLote.Text = ""
+        TxtObservacionesdetalle.Text = ""
+        DdlSeccionAlmacen.SelectedValue = "-1"
+        LkAgregarDetalle.Text = "Agregar"
+        If DdlMonedaTC.SelectedValue.ToEntero = 2 Then
+            VisualizaPUExtranjero(UsuarioActual.TienePermisoProceso(201))
+        Else
+            VisualizaPUExtranjero(False)
+        End If
+
+        UpAgregar.Update()
+    End Sub
 End Class

OI/TareaDetalle.aspx

@@ -160,8 +160,12 @@
                 <asp:LinkButton ID="LnkReasignar" OnClick="LnkReasignar_Click" Visible="true" runat="server"><i class="fa fa-pencil"></i> Reasignar</asp:LinkButton></li>
             <li>
                 <asp:LinkButton ID="LnkUpVinculo" OnClick="LnkUpVinculo_Click" Visible="false" runat="server"><i class="fa fa-pencil"></i> Agregar Vinculo</asp:LinkButton></li>
-
+            <li>
+                <asp:LinkButton ID="LnkPDF" OnClick="LnkPDF_Click" runat="server"><i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton></li>
         </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LnkPDF"/>
+        </Triggers>
     </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">

OI/TareaDetalle.aspx.cs

@@ -6,6 +6,8 @@ using System.Web;
 using System.Web.UI;
 using System.Web.UI.WebControls;
 using Extensiones;
+using System.IO;
+using Microsoft.Reporting.WebForms;
 
 public partial class OI_TareaDetalle : ClsPaginas
 {
@@ -47,6 +49,10 @@ public partial class OI_TareaDetalle : ClsPaginas
     public System.Data.DataTable CheckListNew { get { return ViewState["CheckListNew"] != null ? (System.Data.DataTable)ViewState["CheckListNew"] : null; } set { ViewState["CheckListNew"] = value; } }
     public int chklistitemindex { get { return ViewState["chklistitemindex"] != null ? ViewState["chklistitemindex"].ToString().ToEntero() : 0; } set { ViewState["chklistitemindex"] = value; } }
 
+    private string DeProp { get { return ViewState["DeProp"].ToString(); } set { ViewState["DeProp"] = value; } }
+    private string ParaProp { get { return ViewState["ParaProp"].ToString(); } set { ViewState["ParaProp"] = value; } }
+    private string CCProp { get { return ViewState["CCProp"].ToString(); } set { ViewState["CCProp"] = value; } }
+    public System.Data.DataTable DtActividades { get { return ViewState["DtActividades"] != null ? (System.Data.DataTable)ViewState["DtActividades"] : null; } set { ViewState["DtActividades"] = value; } }
     #endregion
     protected void Page_Load(object sender, EventArgs e)
     {
@@ -338,17 +344,20 @@ public partial class OI_TareaDetalle : ClsPaginas
                     {
                         chkpara.Checked = true;
                         StrPara.AppendFormat("{3}<span class=\"linkCorreo\" data-toggle=\"tooltip\" title=\"{1}\">{2}\"{0}\"</span>", gvRow.DataKey("Nombre").ToString(), gvRow.DataKey("Correo").ToString(), palomitavisto, palomitasinver);
+                        ParaProp = gvRow.DataKey("Nombre").ToString();
                     }
                     if (CveUsuario == CveUsuarioDe)
                     {
                         chkCCpara.Checked = true;
                         StrDeUser.AppendFormat("{3}<span class=\"linkCorreo\" data-toggle=\"tooltip\" title=\"{1}\">{2}\"{0}\"</span>", gvRow.DataKey("Nombre").ToString(), gvRow.DataKey("Correo").ToString(), palomitavisto, palomitasinver);
+                        DeProp = gvRow.DataKey("Nombre").ToString();
                     }
                 }
                 else if (CveUsuario.Contiene(LCveUsuarioCCP.ToArray<int>()))
                 {
                     chkCCpara.Checked = true;
                     StrCCPara.AppendFormat("{3}<span class=\"linkCorreo cssnowrap\" data-toggle=\"tooltip\" title=\"{1}\">{2}\"{0}\"</span>; ", gvRow.DataKey("Nombre").ToString(), gvRow.DataKey("Correo").ToString(), palomitavisto, palomitasinver);
+                    CCProp = gvRow.DataKey("Nombre").ToString();
                 }
             }
         }
@@ -822,6 +831,7 @@ public partial class OI_TareaDetalle : ClsPaginas
         if (ObjOI.GetEventosComentarios(RCveEvento))
         {
             GvActividades.DataSource = ObjOI.DtResultados;
+            DtActividades = ObjOI.DtResultados;
         }
         GvActividades.DataBind();
         UpActividades.Update();
@@ -1794,5 +1804,36 @@ public partial class OI_TareaDetalle : ClsPaginas
     {
 
     }
+
+    protected void LnkPDF_Click(object sender, EventArgs e)
+    {
+        FileInfo Imagen = new FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+        string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
+
+        List<ReportParameter> param = new List<ReportParameter>();
+        if (Imagen.Exists)
+        {
+            param.Add(new ReportParameter("Logo",logouri));
+        }else
+        {
+            param.Add(new ReportParameter("Logo", ""));
+        }
+        param.Add(new ReportParameter("NombreEmpresa",UsuarioActual.Empresa.Empresa));
+        param.Add(new ReportParameter("Asunto",TxtAsunto.Text));
+        param.Add(new ReportParameter("Descripcion",TxtDescripcion.Text));
+        param.Add(new ReportParameter("De",DeProp));
+        param.Add(new ReportParameter("Para",ParaProp));
+        param.Add(new ReportParameter("CCPara",CCProp));
+        param.Add(new ReportParameter("FechaInicio",txtFechaI.Text));
+        param.Add(new ReportParameter("FechaFin",txtFechaF.Text));
+        param.Add(new ReportParameter("Prioridad",DdlPrioridad.SelectedItem.Text));
+        param.Add(new ReportParameter("Tema",DdlTema.SelectedItem.Text));
+        param.Add(new ReportParameter("Estatus",lblEstatus.Text));
+        param.Add(new ReportParameter("FechaRegistro",TxtFechaIng.Text));
+        param.Add(new ReportParameter("Registro",TxtUsuarioreg.Text));
+        param.Add(new ReportParameter("UsuarioImprimio",UsuarioActual.Nombre));
+
+        ImprimirPDF("Empresas/Grales/Formatos/TareaDetalle.rdlc",DtActividades,param,"Tarea Detalle");
+    }
 }
  

Ventas/Clientes.aspx

@@ -291,6 +291,17 @@
         </Triggers>
     </asp:UpdatePanel>
 
+    <asp:UpdatePanel runat="server" ID="UpReporteGpsExcel" RenderMode="Inline" UpdateMode="Conditional">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="LnkReporteExcel" Visible="False" OnClick="GenerarReporteExcel" data-toggle="tooltip" data-placement="left" runat="server" Text="<i class='fa fa-file-excel-o'></i> Dispositivos GPS"></asp:LinkButton>
+            </li>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LnkReporteExcel" />
+        </Triggers>
+    </asp:UpdatePanel>
+
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
     <asp:Literal ID="LtlTitulo" runat="server" Text="Registro de Clientes"></asp:Literal>&nbsp;<asp:Literal ID="LtlCliente" runat="server"></asp:Literal>
@@ -494,7 +505,7 @@
                                                 <div class="form-group form-md-line-input">
                                                     <asp:TextBox ID="TxtTelefonoOtro" CssClass="form-control" runat="server" MaxLength="150"></asp:TextBox>
                                                     <ajax:MaskedEditExtender ID="MaskedEditExtender3" runat="server" TargetControlID="TxtTelefonoOtro" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
-                                                    <label for="<%= TxtTelefonoOtro.ClientID.ToString()%>">Telefono Otro: </label>
+                                                    <label for="<%= TxtTelefonoOtro.ClientID.ToString()%>">Teléfono Otro: </label>
                                                 </div>
                                             </div>
 
@@ -1348,7 +1359,7 @@
                                     <div class="portlet-body ">
                                         <div class="table-scrollable">
 
-                                            <asp:GridView ID="GvCot" GridLines="None" CssClass="table table-striped table-advance table-hover widthAll" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas en el Cliente" ToolTip="Listado de Historial de Ventas">
+                                            <asp:GridView ID="GvCot" GridLines="None" CssClass="table table-striped table-advance table-hover widthAll" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron cotizaciones del Cliente" ToolTip="Listado de Historial de Ventas" Style="text-align: center; min-width: 783px; width: 100%;">
                                                 <Columns>
                                                     <asp:TemplateField>
                                                         <HeaderTemplate>Cotización</HeaderTemplate>
@@ -1477,7 +1488,7 @@
                                                                 <div class="row">
                                                                     <div class="col-md-6">
                                                                         <div class="form-group form-md-line-input">
-                                                                            <asp:Label ID="LblDiasPago" runat="server" Text="Dias de pago:"></asp:Label>
+                                                                            <asp:Label ID="LblDiasPago" runat="server" Text="Días de pago:"></asp:Label>
                                                                             <br />
                                                                             <label><b>L</b></label>&nbsp;&nbsp;
                                                                            
@@ -1511,7 +1522,7 @@
                                                                     <div class="col-md-6" style="margin-top: 10px;">
                                                                         <div class="form-group form-md-line-input">
                                                                             <asp:TextBox ID="TxtDiasEspecifico" runat="server" CssClass="form-control" Enabled="false"></asp:TextBox>
-                                                                            <label for="<%= TxtDiasEspecifico.ClientID.ToString()%>">Dias específicos: </label>
+                                                                            <label for="<%= TxtDiasEspecifico.ClientID.ToString()%>">Días específicos: </label>
                                                                         </div>
                                                                     </div>
                                                                 </div>
@@ -2051,7 +2062,7 @@
                                     </div>
                                     <div class="portlet-body">
                                         <div class="table-scrollable">
-                                            <asp:GridView ID="GVAnticipos" runat="server" ClientIDMode="Static" AutoGenerateColumns="False" EmptyDataText="No se encontraron Anticipos del Cliente" ToolTip="Listado de Anticipos" CssClass="GVAnticipos table table-striped table-hover Widthall mysmallbtn" GridLines="None" DataKeyNames="ISTotal,Saldo,Total,CveIE,Folio,Tipo,CveVenta,CveConceptoContable">
+                                            <asp:GridView ID="GVAnticipos" runat="server" ClientIDMode="Static" AutoGenerateColumns="False" EmptyDataText="No se encontraron Anticipos del Cliente" ToolTip="Listado de Anticipos" CssClass="GVAnticipos table table-striped table-hover Widthall mysmallbtn" GridLines="None" DataKeyNames="ISTotal,Saldo,Total,CveIE,Folio,Tipo,CveVenta,CveConceptoContable" Style="text-align: center; min-width: 783px; width: 100%;">
                                                 <Columns>
                                                     <asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Center">
                                                         <ItemTemplate>
@@ -2107,7 +2118,7 @@
                                     </div>
                                     <div class="portlet-body">
                                         <div class="table-scrollable">
-                                            <asp:GridView ID="GVAnticiposHistorial" ClientIDMode="Static" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Anticipos del Cliente Historial" ToolTip="Listado de Anticipos Historial" CssClass="GVAnticipos table table-striped table-hover Widthall" Style="text-align: center;" GridLines="None" DataKeyNames="ISTotal,Saldo,CveIE,Folio,Total,Tipo,CveVenta,CveConceptoContable">
+                                            <asp:GridView ID="GVAnticiposHistorial" ClientIDMode="Static" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró historial en los anticipos del cliente" ToolTip="Listado de Anticipos Historial" CssClass="GVAnticipos table table-striped table-hover Widthall" Style="text-align: center;" GridLines="None" DataKeyNames="ISTotal,Saldo,CveIE,Folio,Total,Tipo,CveVenta,CveConceptoContable">
                                                 <Columns>
                                                     <asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Center">
                                                         <ItemTemplate>

Ventas/Clientes.aspx.vb

@@ -18,7 +18,7 @@ Partial Class Clientes
     Private Opcion As Integer
     <PersistenceModeAttribute(PersistenceMode.InnerProperty)>
     Public ReadOnly Property RowStyle As TableItemStyle
-    Protected ReadOnly Property CveCliente As Integer
+    Private ReadOnly Property CveCliente As Integer
         Get
             Return ViewState("CveCliente").ToString.ToEntero
         End Get
@@ -677,6 +677,7 @@ Partial Class Clientes
                 TabOtros.Visible = False
                 TabCuentasEquipos.Visible = True
                 ReporteDispositivos.Visible = True
+                LnkReporteExcel.Visible = True
                 TabCuentasEquipos.HeaderText = "Equipos GPS"
                 TabRH.Visible = False
                 TabUsuarios.Visible = True
@@ -848,6 +849,7 @@ Partial Class Clientes
 
             'PERMISOS PAGINA
             If CveCliente > 0 Then
+                LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveCliente:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveCliente)
                 BtnEliminar.Visible = PermiteEliminar()
                 BtnGuardar.Visible = PermiteEditar()
             Else
@@ -1699,9 +1701,9 @@ Partial Class Clientes
 
         Return Retorno
     End Function
-    Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1, Optional TipoDocto As String = "-1")
+    Private Sub CargaHistorial(Optional SelectTop As Integer = 21, Optional CveClienteSucursal As Integer = -1)
         Dim ObjClientes As New ClsClientes()
-        If ObjClientes.GetHistorialVentas(CveCliente, SelectTop, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero, TipoDocto:=TipoDocto) Then
+        If ObjClientes.GetHistorialVentas(CveCliente, SelectTop, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) Then
             If ObjClientes.DtResultados.Rows.Count > 0 Then
                 'Carga Generales
                 LtlCantidad.Text = ObjClientes.DtResultados.Rows(0)("CountTotal").ToString.FormatoNumero(0)
@@ -1895,12 +1897,13 @@ Partial Class Clientes
 
     Protected Sub BtnVerMasVentas_Click(sender As Object, e As EventArgs)
         If BtnVerMasVentas.Text = "Ver Más" Then
-            CargaHistorial(-1, TipoDocto:=RblTipo.SelectedValue)
+            CargaHistorial(-1)
             BtnVerMasVentas.Text = "Ver Menos"
         Else
-            CargaHistorial(21, TipoDocto:=RblTipo.SelectedValue)
+            CargaHistorial(21)
             BtnVerMasVentas.Text = "Ver Más"
         End If
+        RblTipo_SelectedIndexChanged(RblTipo, EventArgs.Empty)
     End Sub
 
     Protected Sub BtnVerMasAnticipos_Click(sender As Object, e As EventArgs)
@@ -3733,22 +3736,33 @@ Partial Class Clientes
     End Sub
 
     Protected Sub GenerarReporte(sender As Object, e As EventArgs)
-        GenerarRepCrystal()
+        GenerarRepCrystal("PDF")
     End Sub
-    Private Sub GenerarRepCrystal()
+
-        Dim Archivo As New FileInfo(Server.MapPath("~/Empresas/Grales/Formatos/EquiposGPS.rpt"))
+    Protected Sub GenerarReporteExcel(sender As Object, e As EventArgs)
-        Dim lista = New List(Of CrystalParametro)
+        GenerarRepCrystal("Excel")
-        lista.Add(New CrystalParametro("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+    End Sub
-        lista.Add(New CrystalParametro("NombreUsuario", UsuarioActual.Nombre))
+
+    Private Sub GenerarRepCrystal(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)
+
+        Dim params As New List(Of ReportParameter)
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", logouri))
+        Else
+            params.Add(New ReportParameter("LogoPath", ""))
+        End If
+        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        params.Add(New ReportParameter("NombreUsuario", UsuarioActual.Usuario))
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
 
         Dim ObjGPS As New ClsGPS
         Dim tablaReporte As DataTable
-        If ObjGPS.DispositivosGet(-1, Estatus, CveCliente) Then
+        If ObjGPS.DispositivosGet(-1, DdlEstatusDispositivos.SelectedValue.ToEntero(), CveCliente) Then
             tablaReporte = ObjGPS.DtResultados
-            Dim VistaFiltro As DataView = New DataView(tablaReporte)
+
-            Dim reporteDatos As DataTable = VistaFiltro.ToTable("Selected", False, "TipoDispositivoDisplay", "Display", "Modelo", "Serie", "IMEI", "NumeroTelefono", "FechaIng")
+            ImprimirPDF("Empresas/Grales/Formatos/EquiposGPS.rdlc", tablaReporte, params, "Equipo GPS", Formato)
-            Dim file As Byte() = ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/EquiposGPS.rpt"), reporteDatos, lista)
-            ImprimirbytesPDF(file)
         Else
             Alert("No hay lista de dispositivos para imprimir")
         End If
@@ -5427,7 +5441,26 @@ Partial Class Clientes
 
 #Region "M E T O D O S "
     Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged
-        CargaHistorial(TipoDocto:=RblTipo.SelectedValue)
+        If DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue <> "-1" Then
+
+            Dim tmp As DataTable = DTHistorialVentas.FiltraParametros($"TipoDocto = '{RblTipo.SelectedValue}'")
+            If tmp.Rows.Count > 0 Then
+                Dim Totales As DataRow = tmp.NewRow
+                Totales("SubTotal") = tmp.SUM("SubTotal")
+                Totales("Total") = tmp.SUM("Total")
+                Totales("Descuento") = tmp.SUM("Descuento")
+                Totales("Amortizacion") = tmp.SUM("Amortizacion")
+                Totales("MAX_Total") = tmp.MAX("MAX_Total")
+                Totales("AVG_Total") = tmp.AVG("AVG_Total")
+                Totales("MIN_Total") = tmp.MIN("MIN_Total")
+                Totales("CountTotal") = tmp.COUNT("CountTotal")
+                tmp.Rows.InsertAt(Totales, 0)
+            End If
+            GVHistorial.DataSource = tmp
+        ElseIf DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue = "-1" Then
+            GVHistorial.DataSource = DTHistorialVentas
+        End If
+        GVHistorial.DataBind()
     End Sub
     Private Sub DdlSucursalCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSucursalCliente.SelectedIndexChanged
         CargaCotizaciones(CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) 'listo