-

App_Code/ClsBancos.vb

@@ -1475,7 +1475,8 @@ Public Class ClsBancos
                                  NotificarA As String, EsAbonoEnCuenta As Boolean, AplicaImpuestos As Boolean, IDPoliza As Integer, CvePrePoliza As Integer, Comprobante As String, CveUsuario As Integer, CveEmpresa As Integer,
                                  Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1,
                                  Optional Referencia As String = "-1", Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False,
-                                    Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1, Optional ImporteDeduccionesPago As Decimal = -1) As Integer
+                                 Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1, Optional ImporteDeduccionesPago As Decimal = -1,
+                                 Optional AnticipoPuntual As Boolean = False) As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_Banc_IEAdd")
@@ -1516,7 +1517,7 @@ Public Class ClsBancos
             .Add("@Modulo", SqlDbType.VarChar).Value = Modulo
             .Add("@CveOCAnticipo", SqlDbType.Int).Value = CveOCAnticipo
             .Add("@ImporteDeduccionesPago", SqlDbType.Money).Value = ImporteDeduccionesPago
-
+            .Add("@AnticipoPuntual", SqlDbType.Bit).Value = AnticipoPuntual
         End With
 
         Try

App_Code/ClsInventarios.vb

@@ -1514,8 +1514,7 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-    Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer,
-             Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
+    Public Function GetKardexAlmacen(CvePS As Integer, FechaI As String, FechaF As String, CveAlmacen As Integer, CveUnidadMedida As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexAlmacenGet")
@@ -1528,8 +1527,6 @@ Public Class ClsInventarios
             .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
             .Add("@CveUnidadMedida", SqlDbType.Int).Value = CveUnidadMedida
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
-            .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
         End With
 
         Try
@@ -1549,7 +1546,7 @@ Public Class ClsInventarios
     Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer,
                                                IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0,
                                                Optional Orden As Integer = -1, Optional Marcas As String = "-1", Optional IncluyeProyectado As Integer = -1, Optional CveAlmacenes As String = "-1",
-                                               Optional GPO As Integer = 1, Optional CodigoPS As String = "-1", Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
+                                               Optional GPO As Integer = 1, Optional CodigoPS As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_KardexAlmacenHorizontalGet")
@@ -1573,10 +1570,6 @@ Public Class ClsInventarios
             .Add("@CveAlmacenes", SqlDbType.NVarChar).Value = CveAlmacenes
             .Add("@GPO", SqlDbType.Int).Value = GPO
             .Add("@CodigoPS", SqlDbType.VarChar).Value = CodigoPS
-            .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
-            .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
-
-
         End With
 
         Try
@@ -1839,7 +1832,7 @@ Public Class ClsInventarios
 
     Public Function RepMovimientos(CveEmpresa As Integer, CveMoneda As Integer, FechaI As String, FechaF As String, CveConcepto As Integer, CveProveedor As Integer, Almacenes As String,
                                    CveCategoria As Integer, CveClasificacion As Integer, CvePS As Integer, Tipo As Integer, Optional CveMarca As String = "-1", Optional CvePersonal As Integer = -1,
-                                   Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1, Optional CodigoInicio As String = "-1", Optional CodigoFin As String = "-1") As Boolean
+                                   Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_ReporteMovimientos")
@@ -1862,8 +1855,6 @@ Public Class ClsInventarios
             .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
             .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen
             .Add("@Modalidad", SqlDbType.Int).Value = Modalidad
-            .Add("@CodigoInicio", SqlDbType.VarChar).Value = CodigoInicio
-            .Add("@CodigoFin", SqlDbType.VarChar).Value = CodigoFin
         End With
 
         Try

App_Code/ClsPaginas.vb

@@ -10711,6 +10711,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Ventas/RepCotizacionesDetalle.aspx".ToUpper(), 430)
             PaginaDict.Add("/Ventas/RepVentasPV.aspx".ToUpper(), 9)
             PaginaDict.Add("/Ventas/RepVentaDetalle.aspx".ToUpper(), 9)
+            PaginaDict.Add("/Ventas/RepVentaDetalle.aspx?Menu=1".ToUpper(), 785)
             PaginaDict.Add("/Ventas/CatClasificaciones.aspx".ToUpper(), 12)
             PaginaDict.Add("/Ventas/CatClasificaciones2.aspx".ToUpper(), 396)
             PaginaDict.Add("/Ventas/CatClasificacionesDetalle.aspx".ToUpper(), 12)

App_Code/ClsRH.vb

@@ -2719,6 +2719,27 @@ Public Class ClsRH
             OnError("Ocurrió un error al consultar las Asistencias del Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
 
+        Return Retorno
+    End Function
+
+
+    Public Function GetPersonalPreAsistenciaRegistros(InicioPeriodo As Date, FinPeriodo As Date, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        SqlDataAdapter("PA_RH_PersonalPreAsistenciaRegistrosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@InicioPeriodo", SqlDbType.Date).Value = InicioPeriodo
+            .Add("@FinPeriodo", SqlDbType.Date).Value = FinPeriodo
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As SqlException
+            OnError("Ocurrió un error al consultar las Asistencias del Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
         Return Retorno
     End Function
 
@@ -2768,6 +2789,44 @@ Public Class ClsRH
     End Function
 
 
+    Public Function AddPreAsistencia(CvePersonal As Integer, Fecha As Date, CveAsistenciasInasistencias As Integer, PorcentajePago As Double, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        Data = New DataTable
+        'SqlAdapter = New SqlDataAdapter("PA_RH_PersonalAsistenciasAddUpd", SqlConexion)
+        'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
+        SqlDataAdapter("PA_RH_PersonalPreAsistenciasAddUpd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@Fecha", SqlDbType.Date).Value = Fecha
+            .Add("@CveAsistenciasInasistencias", SqlDbType.Int).Value = CveAsistenciasInasistencias
+            .Add("@PorcentajePago", SqlDbType.Float).Value = PorcentajePago
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            CveAsistencia = SqlAdapter.SelectCommand.Parameters("@RETURN_VALUE").Value.ToString.ToEntero
+            Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("Número: 2627;") Then
+                Alert("Ya se registró la Asistencia del día " & Fecha & " para el empleado.", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("x50102;") Then
+                Alert("No se puede editar o agregar la asistencia ya que se encuentra vinculada a un periodo autorizado.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al editar o agregar la asistencia ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
+            Else
+                Me.OnError("Ocurrió un error al guardar la Asistencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar la Pre Asistencia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
     Public Function UpAsistenciaDetalle(CveEmpresa As Integer, CveUsuario As Integer, registros As List(Of RequestUpAsistenciaDetalle)) As Boolean
         Dim Retorno As Boolean = False
         Dim xmlProductos As System.Xml.Linq.XDocument = Nothing

Bancos/IE.aspx

@@ -25,7 +25,7 @@
                 <asp:LinkButton ID="LnkComplementoPago" runat="server" Visible="false" Style="color: #686868;"><i class="fa fa-money" style="color:#686868;"></i> Complemento Pago</asp:LinkButton>
             </li>
         </ContentTemplate>
-    </asp:UpdatePanel>    
+    </asp:UpdatePanel>
     <li>
         <asp:HyperLink ID="HpLPrePoliza" NavigateUrl="#" runat="server" Visible="false" Style="color: #686868;"><i class="" style="color:#686868;"></i> PrePoliza</asp:HyperLink>
     </li>
@@ -151,7 +151,7 @@
                                 <div class="col-md-5">
                                     <asp:DropDownList ID="DDlCheques" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="FolioFecha" DataValueField="CveIE" AutoPostBack="True"></asp:DropDownList>
                                 </div>
-                            </div>                            
+                            </div>
                         </div>
                         <div class="chequesie2" id="checkesie2">
                             <div class="row">
@@ -225,7 +225,7 @@
                                                 <asp:ListItem Value="C">Clientes</asp:ListItem>
                                                 <asp:ListItem Value="P">Proveedor</asp:ListItem>
                                                 <asp:ListItem Value="FE">Viáticos</asp:ListItem>
-                                                 <asp:ListItem Value="AC">Acreedor</asp:ListItem>
+                                                <asp:ListItem Value="AC">Acreedor</asp:ListItem>
                                             </asp:RadioButtonList>
                                             <asp:HiddenField ID="HdnCveCliente" runat="server" ClientIDMode="Static" Value="-1" />
                                             <asp:HiddenField ID="HdnCveProveedor" runat="server" ClientIDMode="Static" Value="-1" />
@@ -245,7 +245,8 @@
                                             <asp:CheckBox ID="ChkAbonoCuenta" CssClass="md-checksd" ClientIDMode="Static" runat="server" Text="Abono en Cuenta"></asp:CheckBox>
                                             <br />
                                             <asp:CheckBox ID="ChkAplicaViatico" CssClass="md-checksd" Text="Aplica Viaticos" runat="server" Visible="false" align="Right" />
-
+                                            <asp:CheckBox ID="ChkAnticipoPuntual" CssClass="md-checksd" ClientIDMode="Static" runat="server" Text="Anticipo Puntual" Visible="false"></asp:CheckBox>
+                                            
                                         </div>
                                     </ContentTemplate>
                                 </asp:UpdatePanel>
@@ -438,23 +439,22 @@
                                 </div>
                             </div>
 
-                             <div class="row" id="DVBancosOrdenCompra" runat="server" visible="False">
-                                 
-                                 <div class="col-md-2">
-                                     Folio OC:
-                                 </div>
-                                 <div class="col-md-5">
+                            <div class="row" id="DVBancosOrdenCompra" runat="server" visible="False">
 
-                                     <asp:HyperLink runat="server" ID="HLFFolioOC" CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                <div class="col-md-2">
+                                    Folio OC:
+                                </div>
+                                <div class="col-md-5">
+
+                                    <asp:HyperLink runat="server" ID="HLFFolioOC" CssClass="Texto" Target="_blank"></asp:HyperLink>
                                     <%-- <asp:GridView ID="GvBancosOrdenCompra" runat="server" GridLines="None" CssClass="table xspadding table-striped table-advance Widthall" AutoGenerateColumns="False" Width="250px">
                                         <Columns>                                           
                                             <asp:HyperLinkField DataNavigateUrlFields="CveOrdenCompra" HeaderText="Folio OC" DataNavigateUrlFormatString="~/OC/OC.aspx?OC={0}" DataTextField="FolioOC" Target="_blank" />
                                             <asp:BoundField DataField="ImporteAnticipo" HeaderText="Importe Anticipo"   DataFormatString="{0:C}" > <ItemStyle HorizontalAlign="Right" /></asp:BoundField>                                           
                                         </Columns>
                                     </asp:GridView>--%>
-
-                                 </div>
-                             </div>
+                                </div>
+                            </div>
 
                         </div>
                     </div>
@@ -620,7 +620,7 @@
                 <ajax:TabPanel ID="TabM" runat="server" HeaderText="Movimientos">
                     <ContentTemplate>
                         <div class="row">
-                            <div class="col-md-6" >
+                            <div class="col-md-6">
                                 <asp:GridView ID="GvM" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover Widthall ADSCroll mysmallbtn ScrollAD" Style="text-align: center;" GridLines="None"
                                     DataKeyNames="CveVenta" OnRowDataBound="GvM_RowDataBound">
                                     <Columns>
@@ -759,7 +759,7 @@
                                                                     <asp:RequiredFieldValidator ID="RFVTipoDocto" runat="server" ControlToValidate="TxtTipoDocto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''TipoDocto del IE''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                                     <ajax:ValidatorCalloutExtender ID="VCETipoDocto" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoDocto" Width="300px"></ajax:ValidatorCalloutExtender>
                                                                 </td>
-                                                            </tr>--%> 
+                                                            </tr>--%>
                                                 <tr>
                                                     <td>Fecha Aplicación</td>
                                                     <td>
@@ -778,7 +778,7 @@
                                                                                         <ajax:ValidatorCalloutExtender ID="VCOFechaAplicado1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaAplicado" Width="350px"></ajax:ValidatorCalloutExtender>
                                                                                         <ajax:ValidatorCalloutExtender ID="VCOFechaAplicado2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAplicado" Width="350px"></ajax:ValidatorCalloutExtender>
                                                         --%>
-                                                         <asp:LinkButton runat="server" Visible="false" ID="LnkDesconciliar" OnClick="LnkDesconciliar_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea desconciliar?" data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" ToolTip="Desconciliar" />
+                                                        <asp:LinkButton runat="server" Visible="false" ID="LnkDesconciliar" OnClick="LnkDesconciliar_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea desconciliar?" data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" ToolTip="Desconciliar" />
                                                     </td>
                                                 </tr>
                                                 <tr>
@@ -790,11 +790,11 @@
                                                     </td>
                                                 </tr>
                                                 <tr runat="server" id="TRImporteDeduccionesPago" visible="false">
-                                                    <td >Deducciones Pago:</td>
-                                                    <td style="text-align:left">
+                                                    <td>Deducciones Pago:</td>
+                                                    <td style="text-align: left">
                                                         <asp:Label runat="server" ID="LblImporteDeduccionesPago"></asp:Label>
                                                     </td>
-                                                </tr> 
+                                                </tr>
                                             </table>
                                         </fieldset>
                                     </div>
@@ -834,7 +834,7 @@
                                 <td style="vertical-align: top;">
                                     <div>
                                         <fieldset style="min-height: 60px;">
-                                            <table width="100%" border="0" class="table table-striped table-advance table-hover">                                                 
+                                            <table width="100%" border="0" class="table table-striped table-advance table-hover">
                                                 <tr>
                                                     <td>Registró:</td>
                                                     <td>
@@ -993,7 +993,7 @@
 
         </ContentTemplate>
     </asp:UpdatePanel>
-     
+
     <table border="0" cellpadding="0" cellspacing="0" width="100%">
         <tr>
             <td align="center">
@@ -1010,7 +1010,7 @@
             </td>
         </tr>
     </table>
-     
+
     <div class="row">
 
         <div class="col-md-12 ">
@@ -1030,13 +1030,14 @@
 
                             <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold font-green'>Agregar</span>" Style="font-weight: 700 !important; cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
                             <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green'  ></i><span class='caption-subject bold font-green'>Agendar</span>" Visible="false" Style="font-weight: 700 !important; cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
-                             <br /><asp:Literal ID="LtlTareaNueva" runat="server"></asp:Literal>
-                                    <UserControl:TareaNueva runat="server" ID="TareaNueva" />
-                                    <script>
-                                        function OnAddedTareaNueva() {
-                                            $('.btnupEventoBitacora').click();
-                                        }
-                                    </script>
+                            <br />
+                            <asp:Literal ID="LtlTareaNueva" runat="server"></asp:Literal>
+                            <UserControl:TareaNueva runat="server" ID="TareaNueva" />
+                            <script>
+                                function OnAddedTareaNueva() {
+                                    $('.btnupEventoBitacora').click();
+                                }
+                            </script>
 
                         </div>
                     </div>
@@ -1220,10 +1221,10 @@
                                 <div class="row">
                                     <div class="col-md-12" id="DVTipoTransacciónCancelar2" runat="server" visible="false">
                                         Cuenta Devolución:
-                                            <asp:DropDownList ID="DdlDevolucionCuenta" CssClass="form-control input-sm select2me" Width="100%"  runat="server" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" >
+                                            <asp:DropDownList ID="DdlDevolucionCuenta" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta">
                                                 <asp:ListItem Value="-1">-</asp:ListItem>
                                             </asp:DropDownList>
-                                         
+
                                     </div>
                                 </div>
                             </div>
@@ -1231,7 +1232,7 @@
 
                         </div>
                         <br />
-                        <div class="row" id="DivCancelarComplemento" runat="server" Visible="false">
+                        <div class="row" id="DivCancelarComplemento" runat="server" visible="false">
                             <div class="col-md-12">
                                 <div class="portlet light xspadding bordered whitoutcol" style="width: 100%">
                                     <div class="portlet-title">
@@ -1249,10 +1250,10 @@
                                     </div>
                                     <div class="portlet-body ">
                                         <div class="row" style="align-items: center; vertical-align: middle;">
-                                             <label class="col-md-3" style="max-width: 155px;">Motivo de cancelación:</label>
-                                             <div class="col-md-9">
-                                                 <asp:DropDownList runat="server" id="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="select2me" Width="100%" >                                
-                                                 </asp:DropDownList>
+                                            <label class="col-md-3" style="max-width: 155px;">Motivo de cancelación:</label>
+                                            <div class="col-md-9">
+                                                <asp:DropDownList runat="server" ID="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="select2me" Width="100%">
+                                                </asp:DropDownList>
 
                                                 <asp:RequiredFieldValidator ID="RfvDdlMotivoCancelacion" runat="server" ControlToValidate="DdlMotivoCancelacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Motivo de Cancelación''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCancelarIE"></asp:RequiredFieldValidator>
                                                 <ajax:ValidatorCalloutExtender ID="VCERfvDdlMotivoCancelacion" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlMotivoCancelacion" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -1273,7 +1274,7 @@
         </div>
     </div>
 
-<%--    <div id="DivChqDevueltoIE" class="modal fade">
+    <%--    <div id="DivChqDevueltoIE" class="modal fade">
         <div class="modal-dialog" style="max-height: 500px; max-width: 500px;">
             <asp:UpdatePanel ID="UpdatePanel1" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
                 <ContentTemplate>
@@ -1383,7 +1384,7 @@
                                 <asp:BoundField HeaderText="Estatus" DataField="StrEstatus" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="15%" />
 
                                 <asp:BoundField HeaderText="Fecha C" DataField="FechaCancelacion" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" />
-                                 
+
                                 <asp:TemplateField HeaderText="Motivo" Visible="false" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%">
                                     <ItemTemplate>
                                         <asp:DropDownList runat="server" ID="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="form-control input-sm select2me" Visible="false">
@@ -1395,7 +1396,7 @@
 
                                 <asp:TemplateField HeaderText="Cancelar" Visible="false" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
                                     <ItemTemplate>
-                                        <asp:LinkButton ID="LnkCancelarComplemetno"  OnClick="LnkCancelarComplemetno_Click" runat="server" AlternateText="Editar" CausesValidation="False"
+                                        <asp:LinkButton ID="LnkCancelarComplemetno" OnClick="LnkCancelarComplemetno_Click" runat="server" AlternateText="Editar" CausesValidation="False"
                                             data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el complemento?" data-btn-ok-label="si" Visible="false"
                                             CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-minus'></i>" />
                                     </ItemTemplate>
@@ -1418,7 +1419,7 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
- 
+
 
     <div id="ModalDivMail" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
@@ -1468,7 +1469,7 @@
             </div>
         </div>
     </div>
-     
+
 
     <%--    <div id="ModalCancelarComplemetno" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
@@ -1581,7 +1582,7 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
-    
+
     <div id="ModalAjustarMovimiento" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
 
@@ -1767,7 +1768,7 @@
             var Dev = 0.00;
             debugger; //valida importe
             if ($get('TxtDevolución') && (ToDouble($get('TxtDevolución').value) > s)) $get('TxtDevolución').value = s;
-          
+
             // considera importe de OT ingresos, para que se peuda exceder
             if ($get('TxtOtrosIngresosEgresos')) { Ot = ToDouble($get('TxtOtrosIngresosEgresos').value); }
             if ($get('TxtImporte')) $get('TxtImporte').value = ToDouble($get('TxtDevolución').value) + Ot;

Bancos/IE.aspx.vb

@@ -646,6 +646,10 @@ Partial Class Bancos_IE
                 If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
                     DivOtrosIngresosEgresos.Visible = True
                 End If
+                If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso UsuarioActual.CveRol = 1 Then
+                    ChkAnticipoPuntual.Visible = True
+                End If
+
             End If
 
             If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSCREDITO") Then
@@ -711,6 +715,7 @@ Partial Class Bancos_IE
                 TxtObservaciones.Enabled = False
                 ChkAplicaImpuestos.Enabled = False
                 ChkAbonoCuenta.Enabled = False
+                ChkAnticipoPuntual.Enabled = False
                 Anexo.Visible = False
                 DdlCliente.Enabled = False
                 DdlProveedores.Enabled = False
@@ -806,6 +811,8 @@ Partial Class Bancos_IE
 
                 End Try
 
+                ChkAnticipoPuntual.Checked = CBool(ObjIE.DtResultados(0)("AnticipoPuntual").ToString)
+
                 CveIEDeposito = ObjIE.DtResultados(0)("CveIEDepositoPadre").ToString.ToEntero
                 CuentaDepositoPadre = ObjIE.DtResultados(0)("CuentaDepositoPadre").ToString
                 Cuenta = ObjIE.DtResultados(0)("NumCuenta").ToString
@@ -1755,6 +1762,13 @@ Partial Class Bancos_IE
         End If
         Dep.Dispose()
 
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+            If String.IsNullOrEmpty(TxtObservaciones.Text.Trim) Then
+                Alert("Las observaciones son obligatorias.", TipoMensaje.MsgAdvertencia)
+                EsValido = False
+            End If
+        End If
+
         If CveOCSolicitudAnticipo > 0 Then
             Dim ObjOC As New ClsOC
             If ObjOC.GetOCAnticipoSaldo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) Then
@@ -2001,7 +2015,7 @@ Partial Class Bancos_IE
                 CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, tCveMoneda,
                                            TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                            CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"),
-                                           ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte, CveOCAnticipo:=CveOCSolicitudAnticipo)
+                                           ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte, CveOCAnticipo:=CveOCSolicitudAnticipo, AnticipoPuntual:=ChkAnticipoPuntual.Checked)
 
                 If CveIE > 0 Then
 

Compras/Compras.aspx.vb

@@ -9866,7 +9866,7 @@ Partial Class Compras_Compras
                         e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN registrar")
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then e.Row.FCHyperLink("HplPS").Text = e.Row.DBCampo("PSCodigo")
+                    'If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then e.Row.FCHyperLink("HplPS").Text = e.Row.DBCampo("PSCodigo")
 
                     'EQUIVALENCIA
                     If e.Row.DBCampo("CveUM").ToString.ToEntero > 0 And e.Row.DBCampo("CveTipoPS").ToString.ToEntero = 2 Then
@@ -20713,7 +20713,7 @@ Partial Class Compras_Compras
                                 Dim Diferencia As Decimal = saldoTotal - TotalAcumuladoTabla - ValImporte
 
                                 If (Diferencia) < 0 Then
-                                    Alert($"No hay presupuesto disponible en el subproyecto <b>{ValSubProyecto}</b> con la clasificación <b>{ValClasificacion}</b>, Tipo de gasto <b>{ValTipoGasto}</b>. Se excede por <b>{Math.Abs(Diferencia).FormatoNumero}</b>", TipoMensaje.MsgAdvertencia)
+                                    Alert($"No hay presupuesto disponible. <br>SubProyecto: <b>{ValSubProyecto}</b>  <br>Clasificación: <b>{ValClasificacion}</b> <br>Tipo de gasto: <b>{ValTipoGasto}</b>. Se excede por <b>{Math.Abs(Diferencia).FormatoNumero}.</b>", TipoMensaje.MsgAdvertencia)
                                     respuesta = False
 
                                 Else
@@ -20721,7 +20721,7 @@ Partial Class Compras_Compras
                                 End If
 
                             Else
-                                Alert($"No hay presupuesto disponible en el subproyecto <b>{ValSubProyecto}</b> con la clasificación <b>{ValClasificacion}</b>, Tipo de gasto <b>{ValTipoGasto}</b> ", TipoMensaje.MsgAdvertencia)
+                                Alert($"No hay presupuesto disponible. <br>SubProyecto: <b>{ValSubProyecto}</b>  <br>Clasificación: <b>{ValClasificacion}</b> <br>Tipo de gasto: <b>{ValTipoGasto}</b>.", TipoMensaje.MsgAdvertencia)
                                 respuesta = False
                             End If
                         Else
@@ -20778,16 +20778,24 @@ Partial Class Compras_Compras
                             Dim tieneRegistrosConCveSubProyecto As Boolean = resultadosFiltrados.Any(Function(row) CType(row("CveSubProyecto"), Integer) = item.CveSubProyecto)
 
                             If tieneRegistrosConCveSubProyecto Then
-                                Dim saldoTotal As Decimal = (From row In resultadosFiltrados
+                                'Dim saldoTotal As Decimal = (From row In resultadosFiltrados
+                                '                             Where row.Field(Of Integer)("CveSubProyecto") = item.CveSubProyecto AndAlso
+                                '                                   row.Field(Of Integer)("CveClasificacion") = item.CveClasificacion
+                                '                             Select row.Field(Of Decimal)("Saldo")).Sum()
+
+                                Dim saldoTotal As Decimal = (From row In resultadosFiltrados.AsEnumerable()
                                                              Where row.Field(Of Integer)("CveSubProyecto") = item.CveSubProyecto AndAlso
-                                                                   row.Field(Of Integer)("CveClasificacion") = item.CveClasificacion
+                                                               If(row.IsNull("CveClasificacion"),
+                                                                  0,
+                                                                  row.Field(Of Integer?)("CveClasificacion").GetValueOrDefault()) = item.CveClasificacion
                                                              Select row.Field(Of Decimal)("Saldo")).Sum()
+
                                 If saldoTotal > 0 Then
 
                                     Dim Diferencia As Decimal = saldoTotal - item.TotalSum
 
                                     If (Diferencia) < 0 Then
-                                        Alert($"No hay presupuesto disponible en el subproyecto <b>{item.SubProyecto}</b> con la clasificación <b>{item.Clasificacion}</b>, Tipo de gasto <b>{item.TipoGasto}</b>. Se excede por <b>{Math.Abs(Diferencia).FormatoNumero}</b>", TipoMensaje.MsgAdvertencia)
+                                        Alert($"No hay presupuesto disponible. <br>SubProyecto: <b>{item.SubProyecto}</b>  <br>Clasificación: <b>{item.Clasificacion}</b> <br>Tipo de gasto: <b>{item.TipoGasto}</b>. Se excede por <b>{Math.Abs(Diferencia).FormatoNumero}.</b>", TipoMensaje.MsgAdvertencia)
                                         respuesta = False
                                         Exit For
                                     Else
@@ -20795,7 +20803,7 @@ Partial Class Compras_Compras
                                     End If
 
                                 Else
-                                    Alert($"No hay presupuesto disponible en el subproyecto <b>{item.SubProyecto}</b> con la clasificación <b>{item.Clasificacion}</b>, Tipo de gasto <b>{item.TipoGasto}</b>", TipoMensaje.MsgAdvertencia)
+                                    Alert($"No hay presupuesto disponible. <br>SubProyecto: <b>{item.SubProyecto}</b>  <br>Clasificación: <b>{item.Clasificacion}</b> <br>Tipo de gasto: <b>{item.TipoGasto}</b>.", TipoMensaje.MsgAdvertencia)
                                     respuesta = False
                                     Exit For
                                 End If

Compras/PopUpVerFactura.aspx.vb

@@ -5746,11 +5746,12 @@ Partial Class PopUpVerFactura
                 If ObjIE.DtResultados.Rows.Count > 0 Then
 
                     Dim reportDataSetsList As New List(Of ReportDataSource)
-
+                    Dim CvePrePoliza As Integer = 0
                     Dim dtMovs As New DataTable
                     If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then
 
                         dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )")
+                        CvePrePoliza = dtMovs.Rows(0)("CVePrePoliza").ToString.ToEntero
 
                         If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
                             'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
@@ -5792,7 +5793,25 @@ Partial Class PopUpVerFactura
                         .Add(New ReportParameter("LogoPath", RutaImagenLogo))
                     End With
                     dtMovs.Dispose()
-                    ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
+
+                    If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
+
+                        Dim ObjContabilidad As New ClsContabilidad
+
+                        ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
+                        Dim dtPrePoliza As DataTable = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+                        ObjContabilidad.Dispose()
+
+                        Dim rdsPrePoliza As New ReportDataSource("DSPrePoliza", dtPrePoliza)
+                        reportDataSetsList.Add(rdsPrePoliza)
+
+                        ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientosPrePoliza.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
+                    Else
+                        ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
+                    End If
+
+
+
                 End If
             End If
         End If

Inventarios/EntregaAlmacen.aspx.vb

@@ -3252,7 +3252,7 @@ Partial Class Inventarios_EntregaAlmacen
                 Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Consola</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}&Consola={1}", CveMovimiento, Consola)))
             End If
 
-            If CveMovimientoEntrada > 0 Then
+            If CveMovimientoEntrada > 0 AndAlso Not UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
                 Msg.AppendFormat("<br/><br/> Movimiento Entrada (Traspaso): <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoEntrada, FolioEntrada)
                 Msg.AppendFormat("<br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada)))
             End If

Inventarios/KardexAlmacen.aspx

@@ -66,11 +66,11 @@
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     <li>
-        <asp:LinkButton ID="ImgImprimir" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
+        <asp:LinkButton ID="ImgImprimir" runat="server"><i class="fa fa-file-pdf-o"></i> Generar PDF</asp:LinkButton>
     </li>
 
       <li>
-        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o"></i> Generar Excel</asp:LinkButton>
     </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">

Inventarios/KardexAlmacen.aspx.vb

@@ -1,5 +1,4 @@
 Imports System.Data
-Imports ADSNetLibrary.SIGAPI.Models.CGame
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
@@ -113,10 +112,7 @@ Partial Class Inventarios_KardexAlmacen
         Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
         Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
 
-        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
-        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
-
-        If ObjMovimientos.GetKardexAlmacen(CvePS, FechaI, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
+        If ObjMovimientos.GetKardexAlmacen(CvePS, FechaI, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             dt = ObjMovimientos.DtResultados
             GvDatos.DataSource = ObjMovimientos.DtResultados
         End If

Inventarios/KardexAlmacenHorizontal.aspx

@@ -96,18 +96,17 @@
 
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     <li>
-        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o"></i> Generar Excel</asp:LinkButton>
     </li>
     <asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
-            <ContentTemplate>
-    <li>        
-                <asp:LinkButton runat="server" ID="LnkProyectado" OnClick="LnkProyectado_Click" Text="Cargar Proyecciones" />            
-    </li>
-    
-                </ContentTemplate>
-        </asp:UpdatePanel>
-        <li>        
-                <asp:LinkButton runat="server" ID="LnkPOG" OnClick="LnkProyectado_Click" Visible="false"><i class="fa fa-ad-excel"></i> POG</asp:LinkButton>            
+        <ContentTemplate>
+            <li>                
+                <asp:LinkButton ID="LnkProyectado" runat="server" OnClick="LnkProyectado_Click"><i class="fa fa-upload"></i> Cargar Proyecciones</asp:LinkButton>                
+            </li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+    <li>
+        <asp:LinkButton runat="server" ID="LnkPOG" OnClick="LnkProyectado_Click" Visible="false"><i class="fa fa-file-excel-o"></i> POG</asp:LinkButton>
     </li>
 </asp:Content>
 
@@ -237,29 +236,8 @@
                             </asp:DropDownList>
                         </div>
                     </asp:Panel>
+           
 
-                         <div class="row" runat="server" visible="false" id="DVFiltroCodigo">
-                          <div class="col-md-1">Código Inicio:</div>
-                          <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoInicio" Height="26px"></asp:TextBox></div>
-                          <div class="col-md-1">Código Fin:</div>
-                          <div class="col-md-2"><asp:TextBox runat="server" ID="TxtCodigoFinal" Height="26px"></asp:TextBox></div>                       
-
-                          <div class="col-md-1" runat="server" id="DVNavegar"  >
-                         <div class="row">
-                             <div class="col-md-5">
-                                 <asp:LinkButton runat="server" ID="LnkPSAntyerior" OnClick="LnkPSAntyerior_Click" CssClass="btn btn-primary">Anterior</asp:LinkButton>
-                             </div>
-                             <div class="col-md-2">
-                             </div>
-                             <div class="col-md-5">
-                                 <asp:LinkButton runat="server" ID="LnkPSSiguiente" OnClick="LnkPSSiguiente_Click" CssClass="btn btn-primary">Siguiente</asp:LinkButton>
-                             </div>
-                         </div>
-
-
-    </div>
-    
- </div>
                 </div>
 
                
@@ -329,7 +307,7 @@
                                 <asp:ListItem Text="Entrada" Value="1" Selected="True" />
                                 <asp:ListItem Text="Salida" Value="2" />
                             </asp:RadioButtonList>
-                            <asp:Button runat="server" ID="BtnDescargarFormato" OnClick="BtnDescargarFormato_Click" Text="Descargar formato" CssClass="btn btn-warning" />
+                            <asp:LinkButton runat="server" ID="BtnDescargarFormato" OnClick="BtnDescargarFormato_Click" CssClass="btn btn-warning" ><i class='fa fa-download' aria-hidden='true'></i> Descargar formato</asp:LinkButton>
                         </div>
                         <asp:Label runat="server" ID="Label1" Text="Subir Proyección:" Style="font-size: 15px" />
                         <br />

Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -1,18 +1,18 @@
-Imports System.Data
-Imports System.IO
-Imports ADSNetLibrary.SIGAPI.Models.CGame
-Imports Extensiones
-Imports GemBox.Spreadsheet
-Imports Microsoft.Reporting.WebForms
-
-Partial Class Inventarios_KardexAlmacenHorizontal
-    Inherits ClsPaginas
-
-    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If Not IsPostBack Then
-            'TxtFechaI.Text =  NowADS().AddMonths(-1).ToShortDateString
+Imports System.Data
+Imports System.IO
+Imports ADSNetLibrary.SIGAPI.Models.CGame
+Imports Extensiones
+Imports GemBox.Spreadsheet
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Inventarios_KardexAlmacenHorizontal
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            'TxtFechaI.Text =  NowADS().AddMonths(-1).ToShortDateString
             TxtFechaF.Text = NowADS().ToShortDateString
-            CargaCombos()
+            CargaCombos()
             ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
             LblOrden.Visible = False
             DdlOrden.Visible = False
@@ -35,18 +35,14 @@ Partial Class Inventarios_KardexAlmacenHorizontal
                 DdlIncluyeTransitorios.Items.RemoveAt(0) 'oculta opción "No" en tránsito
             End If
 
-            If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
+            If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
             ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1")
 
-            If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
-                DVFiltroCodigo.Visible = True
-            End If
-
-        End If
-    End Sub
-    Private Sub CargaCombos()
-
-        CargaFuncionalidad105()
+        End If
+    End Sub
+    Private Sub CargaCombos()
+
+        CargaFuncionalidad105()
         CargaPS()
 
         'Using ObjPS As New ClsProductosServicios
@@ -56,25 +52,25 @@ Partial Class Inventarios_KardexAlmacenHorizontal
         'End Using
         DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
         DdlMarca.DataBind()
-        DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
-
-        ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1)
-        ddlAlmacen.DataBind()
-
-        Dim ObjInv As New ClsInventarios()
-        If ObjInv.GetTiposAlmacenes() Then
-            DdlTipoAlmacen.DataSource = ObjInv.DtResultados
-        End If
-        ObjInv.Dispose()
-        DdlTipoAlmacen.DataBind()
-
-        DdlTipoAlmacen.SelectedValueExist(1)
-
-        If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValue = Request("CveAlmacen").ToString
-        CargaClasificaciones()
-    End Sub
-
-    Private Sub CargaClasificaciones()
+        DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1)
+        ddlAlmacen.DataBind()
+
+        Dim ObjInv As New ClsInventarios()
+        If ObjInv.GetTiposAlmacenes() Then
+            DdlTipoAlmacen.DataSource = ObjInv.DtResultados
+        End If
+        ObjInv.Dispose()
+        DdlTipoAlmacen.DataBind()
+
+        DdlTipoAlmacen.SelectedValueExist(1)
+
+        If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValue = Request("CveAlmacen").ToString
+        CargaClasificaciones()
+    End Sub
+
+    Private Sub CargaClasificaciones()
         Dim CveClasificacion As Integer = If(Request("CveClasificacion") IsNot Nothing, Request("CveClasificacion").ToString, "-1").ToEntero
 
         Dim ObjClasificaciones As New ClsClasificaciones
@@ -89,193 +85,189 @@ Partial Class Inventarios_KardexAlmacenHorizontal
                 DdlClasificacion.DataBind()
             End If
         End If
-        ObjClasificaciones.Dispose()
-
-        DdlClasificacion.DataBind()
-        DdlClasificacion.SelectedValueExist(CveClasificacion)
-
-    End Sub
-    Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
-        CargaPS()
-    End Sub
-    Private Sub CargaPS()
-
-        If Not ddlProducto2.UsaWebService Then
-            'Dim Filtro = If(DdlClasificacion.SelectedValue >= 0, String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue), "")
-            ddlProducto2.ddl.Items.Clear()
-            ddlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero).FiltraParametros($"CveTipoPS=2", "PSCodigo")
-            ddlProducto2.DataBind()
-            ddlProducto2.ddl.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
-        End If
-    End Sub
-    Private Sub CargaFuncionalidad105()
-        ddlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
-        DdlProveedor.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
-
-        If ddlProducto2.UsaWebService Then
-            ddlProducto2.ddlWS.Attributes.Add("data-Estatus", "-1")
-            ddlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios")
-            ddlProducto2.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.ClientID)
-            DdlClasificacion.AutoPostBack = False
-
-            DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
-        Else
-            ddlProducto2.ddl.Items.Add(New ListItem("Seleccione", "-1"))
-            ddlProducto2.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
-
-            DdlProveedor.ddl.Items.Add(New ListItem("Seleccione", "-1"))
-            DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-            DdlProveedor.DataBind()
-        End If
-
-    End Sub
-    Protected Sub ddlProducto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlProducto2.selectedindexchange
-
-        DdlUnidadMedida.Items.Clear()
-        DdlUnidadMedida.DataSource = GlobalDTProductosServiciosEquivalencias(ddlProducto2.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
-        DdlUnidadMedida.DataBind()
-        DdlUnidadMedida.Items.Insert(0, New ListItem("Todos", "-1"))
-
-    End Sub
-    Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
-        Dim CveProducto As Integer = ddlProducto2.SelectedValue.ToEntero
-        CargarKardex(CveProducto)
-        'If CveProducto > 0 Then
-
-        'Else
-        '    Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
-        'End If
-
-    End Sub
+        ObjClasificaciones.Dispose()
+
+        DdlClasificacion.DataBind()
+        DdlClasificacion.SelectedValueExist(CveClasificacion)
+
+    End Sub
+    Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
+        CargaPS()
+    End Sub
+    Private Sub CargaPS()
+
+        If Not ddlProducto2.UsaWebService Then
+            'Dim Filtro = If(DdlClasificacion.SelectedValue >= 0, String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue), "")
+            ddlProducto2.ddl.Items.Clear()
+            ddlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero).FiltraParametros($"CveTipoPS=2", "PSCodigo")
+            ddlProducto2.DataBind()
+            ddlProducto2.ddl.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
+        End If
+    End Sub
+    Private Sub CargaFuncionalidad105()
+        ddlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+        DdlProveedor.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+
+        If ddlProducto2.UsaWebService Then
+            ddlProducto2.ddlWS.Attributes.Add("data-Estatus", "-1")
+            ddlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios")
+            ddlProducto2.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.ClientID)
+            DdlClasificacion.AutoPostBack = False
+
+            DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
+        Else
+            ddlProducto2.ddl.Items.Add(New ListItem("Seleccione", "-1"))
+            ddlProducto2.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
+
+            DdlProveedor.ddl.Items.Add(New ListItem("Seleccione", "-1"))
+            DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+            DdlProveedor.DataBind()
+        End If
+
+    End Sub
+    Protected Sub ddlProducto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlProducto2.selectedindexchange
+
+        DdlUnidadMedida.Items.Clear()
+        DdlUnidadMedida.DataSource = GlobalDTProductosServiciosEquivalencias(ddlProducto2.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
+        DdlUnidadMedida.DataBind()
+        DdlUnidadMedida.Items.Insert(0, New ListItem("Todos", "-1"))
+
+    End Sub
+    Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
+        Dim CveProducto As Integer = ddlProducto2.SelectedValue.ToEntero
+        CargarKardex(CveProducto)
+        'If CveProducto > 0 Then
+
+        'Else
+        '    Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
+        'End If
+
+    End Sub
     Private Sub CargarKardex(CvePS As Integer)
-        Dim dt As DataTable = Nothing
-        Dim ObjMovimientos As New ClsInventarios
-        Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
-        ' Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
-        Dim FechaF As Date = TxtFechaF.Text.ToDate
-        Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
-        Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
-        Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
-        Dim GPO As Integer = Ddlgrupo.SelectedValue.ToEntero
+        Dim dt As DataTable = Nothing
+        Dim ObjMovimientos As New ClsInventarios
+        Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
+        ' Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
+        Dim FechaF As Date = TxtFechaF.Text.ToDate
+        Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
+        Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
+        Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
+        Dim GPO As Integer = Ddlgrupo.SelectedValue.ToEntero
         Dim IncluyeTransitorios As Integer = DdlIncluyeTransitorios.SelectedValue.ToEntero
 
-
-        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
-        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
-
         If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), IncluyeTransitorios,
                                                      DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue.ToEntero,
-                                                     Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text,
-                                                     CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
-            If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
-                dt = ObjMovimientos.DtResultados
-                Dim ListaBorrar As New List(Of DataColumn)
-                For index As Integer = 3 To dt.Columns.Count - 1
-                    Dim TotColumna As Double = 0
-                    For Each Dr As DataRow In dt.Rows
-                        TotColumna += Dr.Item(index).ToString.ToDouble
+                                                     Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text) Then
+
+            If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
+                dt = ObjMovimientos.DtResultados
+                Dim ListaBorrar As New List(Of DataColumn)
+                For index As Integer = 3 To dt.Columns.Count - 1
+                    Dim TotColumna As Double = 0
+                    For Each Dr As DataRow In dt.Rows
+                        TotColumna += Dr.Item(index).ToString.ToDouble
                     Next
                     If Not TotColumna > 0 Then
                         ListaBorrar.Add(dt.Columns(index))
                     End If
-                Next
-                For Each item As DataColumn In ListaBorrar
-                    dt.Columns().Remove(item)
-                Next
-                dt.AcceptChanges()
-                GvDatos.DataSource = dt
-            Else
-                Alert("La búsqueda no contiene resultados.", TipoMensaje.MsgAdvertencia)
-                GvDatos.Columns.Clear()
+                Next
+                For Each item As DataColumn In ListaBorrar
+                    dt.Columns().Remove(item)
+                Next
+                dt.AcceptChanges()
+                GvDatos.DataSource = dt
+            Else
+                Alert("La búsqueda no contiene resultados.", TipoMensaje.MsgAdvertencia)
+                GvDatos.Columns.Clear()
                 dt = Nothing
-                Exit Sub
+                Exit Sub
             End If
         Else
             ObjMovimientos.Dispose()
             Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError)
-            Exit Sub
+            Exit Sub
         End If
 
 
-        GvDatos.DataBind()
-
-        For index = 4 To GvDatos.Rows(0).Cells.Count - 1
-            GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|"c)(0)
-        Next
-    End Sub
-
-    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
-
-        If e.Row.RowType = DataControlRowType.DataRow Then
-            'Dim Liga As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={e.Row.DataKey("CveAlmacen")}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}")
-            'e.Row.FCHyperLink("HplAlmacen").NavigateUrl = Liga
-
-            If e.Row.RowIndex = 0 Then
-                e.Row.CssClass = "Totales"
-            End If
-
-
-            'e.Row.Attributes.Add("style", " max-height:31px!important")
-
+        GvDatos.DataBind()
+
+        For index = 4 To GvDatos.Rows(0).Cells.Count - 1
+            GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|"c)(0)
+        Next
+    End Sub
+
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            'Dim Liga As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={e.Row.DataKey("CveAlmacen")}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}")
+            'e.Row.FCHyperLink("HplAlmacen").NavigateUrl = Liga
+
+            If e.Row.RowIndex = 0 Then
+                e.Row.CssClass = "Totales"
+            End If
+
+
+            'e.Row.Attributes.Add("style", " max-height:31px!important")
+
             e.Row.HorizontalAlign = HorizontalAlign.Right
-            e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
-            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
-            e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
-            Dim Index As Integer = 0
-
-            For Each Cells As TableCell In e.Row.Cells
-                Dim Celda As String = Cells.Text
-                If IsNumeric(Celda) Then
-                    Dim CveAlmacen2 As Integer = -1
-                    If Index >= 5 Then
-                        Dim Array As String() = GvDatos.HeaderRow.Cells(Index).Text.Split("|"c)
-                        If Array.Length > 1 Then
-                            CveAlmacen2 = Array(1).ToEntero
-                        End If
-                    End If
-
-                    If Celda.ToDouble = 0 Then
-                        Cells.Text = ""
-                    Else
-                        Dim ce = DirectCast(Cells, System.Web.UI.WebControls.DataControlFieldCell)
-
-                        If ce.ContainingField.HeaderText = "CP" Then
-                            Cells.Text = Cells.Text.FormatoNumero(2)
-                        ElseIf ce.ContainingField.HeaderText = "Valor" Then
-                            Cells.Text = Cells.Text.FormatoNumero(2)
-                            'ElseIf ce.ContainingField.HeaderText = "Total" Then
-                            '    Cells.Text = Cells.Text.FormatoNumero(2)
-                        Else
-                            Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal)
-                        End If
-                    End If
-                    e.Row.Cells(e.Row.Cells.GetCellIndex(Cells)).Width = Unit.Pixel(80)
-                    'Dim Liga2 As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={CveAlmacen2}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}")
-                    'Cells.Text = String.Format("<a href=""{1}"">{0}</a>", Celda.FormatoNumero(), Liga2)
-                End If
-                Index = Index + 1
-            Next
-
-        End If
-    End Sub
-
-
-
-    Private Sub GvDatos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowCreated
-        'Escondo CvePS y CveAlmacén (Se generan por autogeneratecolumns por eso se borran por aqui).
-        ' e.Row.Cells(0).Width = New Unit("200px")
-        e.Row.Cells(2).Visible = False
-        e.Row.Cells(3).Visible = False
-        If e.Row.RowType = DataControlRowType.Header Then
-            'e.Row.Cells(6).ToolTip = "Costo"
-        End If
-    End Sub
-
-    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
-
-        Imprimir("Excel")
-    End Sub
-    Private Sub Imprimir(Optional reporte As String = "PDF")
+            e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
+            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
+            e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
+            Dim Index As Integer = 0
+
+            For Each Cells As TableCell In e.Row.Cells
+                Dim Celda As String = Cells.Text
+                If IsNumeric(Celda) Then
+                    Dim CveAlmacen2 As Integer = -1
+                    If Index >= 5 Then
+                        Dim Array As String() = GvDatos.HeaderRow.Cells(Index).Text.Split("|"c)
+                        If Array.Length > 1 Then
+                            CveAlmacen2 = Array(1).ToEntero
+                        End If
+                    End If
+
+                    If Celda.ToDouble = 0 Then
+                        Cells.Text = ""
+                    Else
+                        Dim ce = DirectCast(Cells, System.Web.UI.WebControls.DataControlFieldCell)
+
+                        If ce.ContainingField.HeaderText = "CP" Then
+                            Cells.Text = Cells.Text.FormatoNumero(2)
+                        ElseIf ce.ContainingField.HeaderText = "Valor" Then
+                            Cells.Text = Cells.Text.FormatoNumero(2)
+                            'ElseIf ce.ContainingField.HeaderText = "Total" Then
+                            '    Cells.Text = Cells.Text.FormatoNumero(2)
+                        Else
+                            Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal)
+                        End If
+                    End If
+                    e.Row.Cells(e.Row.Cells.GetCellIndex(Cells)).Width = Unit.Pixel(80)
+                    'Dim Liga2 As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={CveAlmacen2}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}")
+                    'Cells.Text = String.Format("<a href=""{1}"">{0}</a>", Celda.FormatoNumero(), Liga2)
+                End If
+                Index = Index + 1
+            Next
+
+        End If
+    End Sub
+
+
+
+    Private Sub GvDatos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowCreated
+        'Escondo CvePS y CveAlmacén (Se generan por autogeneratecolumns por eso se borran por aqui).
+        ' e.Row.Cells(0).Width = New Unit("200px")
+        e.Row.Cells(2).Visible = False
+        e.Row.Cells(3).Visible = False
+        If e.Row.RowType = DataControlRowType.Header Then
+            'e.Row.Cells(6).ToolTip = "Costo"
+        End If
+    End Sub
+
+    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+
+        Imprimir("Excel")
+    End Sub
+    Private Sub Imprimir(Optional reporte As String = "PDF")
         If GvDatos.Rows.Count > 0 Then
             Dim StrFiltro As New StringBuilder
             If DdlProveedor.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("Proveedor: {0},", DdlProveedor.SelectedText)
@@ -284,7 +276,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal
             ExportToExcelG(GvDatos, "ExistenciasHorizontal_" & TxtFechaF.Text, "Existencias Almacen", UsuarioActual, StrFiltro.ToString, 100, 200)
         Else
             Alert("Debe consultar para generar un excel", TipoMensaje.MsgAdvertencia)
-        End If
+        End If
     End Sub
 
     Public Sub ExportToExcelG(Gv As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing, Optional Filtros As String = "", Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100)
@@ -371,12 +363,12 @@ Partial Class Inventarios_KardexAlmacenHorizontal
 
         excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx")
 
-    End Sub
-
+    End Sub
+
     Protected Sub LnkProyectado_Click(sender As Object, e As EventArgs)
         RegistraScript(String.Format("$('#{0}').modal();", "DivProyeccion"))
-    End Sub
-
+    End Sub
+
     Protected Sub BtnDescargarFormato_Click(sender As Object, e As EventArgs)
         Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\KardexProyeccion.xlsx"
 
@@ -392,8 +384,8 @@ Partial Class Inventarios_KardexAlmacenHorizontal
             Response.TransmitFile(Archivo.FullName)
             Response.End()
         End If
-    End Sub
-
+    End Sub
+
     Protected Sub BtnAgregarProyeccion_Click(sender As Object, e As EventArgs)
         If TxtProyeccionExcel.getfiles().Archivos.Count > 0 Then
             Dim file As Archivo = TxtProyeccionExcel.getfiles().Archivos(0)
@@ -418,8 +410,8 @@ Partial Class Inventarios_KardexAlmacenHorizontal
         End If
 
         AgregarProyeccion(dt)
-    End Sub
-
+    End Sub
+
     Private Sub AgregarProyeccion(dt As DataTable)
         Dim TieneError As Boolean = False
         Dim StrCodigo As New StringBuilder
@@ -460,8 +452,8 @@ Partial Class Inventarios_KardexAlmacenHorizontal
         ObjInventarios.Dispose()
         RegistraScript(String.Format("$('#{0}').modal('hide');", "DivProyeccion"))
 
-    End Sub
-
+    End Sub
+
     'Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
     '    SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
     '    Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
@@ -512,8 +504,8 @@ Partial Class Inventarios_KardexAlmacenHorizontal
 
     '    Return dataTable
 
-    'End Function
-    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    'End Function
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
     End Sub
 
     Private Sub LnkPOG_Click(sender As Object, e As EventArgs) Handles LnkPOG.Click
@@ -538,65 +530,4 @@ Partial Class Inventarios_KardexAlmacenHorizontal
     End Sub
 
 
-
-
-    Protected Sub LnkPSAntyerior_Click(sender As Object, e As EventArgs)
-        NavegacionPS(Siguiente:=False)
-    End Sub
-
-    Protected Sub LnkPSSiguiente_Click(sender As Object, e As EventArgs)
-        NavegacionPS(Siguiente:=True)
-    End Sub
-    Private Sub NavegacionPS(Siguiente As Boolean)
-        Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
-
-        If Not CvePS > 0 Then
-            Exit Sub
-        End If
-        Dim dt As DataTable = New DataTable
-
-        Dim Entrada As Boolean = True
-        Dim Salida As Boolean = True
-
-        Dim FechaI As String = "-1"
-        Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
-        Dim CveAlmacen As Integer = If(ddlAlmacen.SelectedValue.ToEntero = 0, -1, ddlAlmacen.SelectedValue.ToEntero)
-        Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
-        If CveAlmacenes.Contains(",") Then
-            CveAlmacen = -1
-        End If
-        If CvePS > 0 Then
-            Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
-            If dr IsNot Nothing Then
-                ddlProducto2.SelectedText = dr("PSCodigo").ToString
-                ddlProducto2.SelectedValue = CvePS.ToString
-            End If
-
-        End If
-
-        Dim CveTiposAlmacen As String = "-1"
-
-
-        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
-        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
-
-        Dim ObjInventarios As New ClsInventarios
-        If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
-                                                CveAlmacenes, Siguiente:=Siguiente, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
-            dt = ObjInventarios.DtResultados.Copy
-        End If
-        ObjInventarios.Dispose()
-
-        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-            ddlProducto2.SelectedValue = dt.Rows(0)("CvePS").ToString
-            ddlProducto2.SelectedText = dt.Rows(0)("CodigoPS").ToString
-            ddlProducto2.txtValue.Value = dt.Rows(0)("CvePS").ToString
-            ddlProducto2.txtText.Value = dt.Rows(0)("CodigoPS").ToString
-            CargarKardex(dt.Rows(0)("CvePS").ToString.ToEntero)
-            UPFiltros.Update()
-
-        End If
-
-    End Sub
-
-End Class
+End Class

Inventarios/RepEntradasSalidas.aspx

@@ -11,11 +11,11 @@
         </li>
 
         <li>
-            <asp:LinkButton ID="LnkExcelPersonalizado" runat="server" Visible="false"><i class="fa fa-ad-excel"></i> Excel Personalizado</asp:LinkButton>
+            <asp:LinkButton ID="LnkExcelPersonalizado" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i> Excel Personalizado</asp:LinkButton>
         </li>
 
         <li>
-            <asp:LinkButton ID="LnkFormatoInventario" runat="server" Visible="false"><i class="fa fa-ad-excel"></i> Generar Formato Inventario</asp:LinkButton>
+            <asp:LinkButton ID="LnkFormatoInventario" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i> Generar Formato Inventario</asp:LinkButton>
         </li>
 
         <li>

Inventarios/RepEntradasSalidas.aspx.vb

@@ -256,13 +256,10 @@ Partial Class Inventarios_ReporteEntradasSalidas
             CveMarca = DdlMarca.SelectedValue.ToEntero
         End If
 
-        Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
-        Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
-
         If Reporte.RepMovimientos(UsuarioActual.CveEmpresa, DdlMoneda.SelectedValue.ToEntero, FechaInicial, FechaFinal, DdlTipoMovimiento.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero,
                                   Almacenes, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero,
                                   DdlMovs.SelectedValue.ToEntero, CveMarca:=Marcas, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero, CveTipoAlmacen:=TipoAlmacen,
-                                  Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
+                                  Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero) Then
             dt = Reporte.DtResultados
 
 

RH/RepChecadorPreAsistencia.aspx

@@ -16,11 +16,15 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
     </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <asp:UpdatePanel runat="server" ID="UpAgregar" UpdateMode="Conditional" >
+    <asp:UpdatePanel runat="server" ID="UpAcciones" UpdateMode="Conditional" >
         <ContentTemplate>
             <li>
                 <asp:LinkButton runat="server" ID="BtnAgregar" Visible="false"  data-toggle="tooltip" data-placement="left" title="Procesar" Text="<i class='fa fa-plus'></i> Procesar"></asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton runat="server" ID="LnkEnviarAsistencia" Visible="false"  data-toggle="tooltip" data-placement="left" title="Enviar Asistencia" Text="<i class='fa fa-arrow-right'></i> Enviar Asistencia" 
+                    OnClick="LnkEnviarAsistencia_Click"></asp:LinkButton>
+            </li>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
@@ -32,46 +36,28 @@
         <ContentTemplate>
             <div class="portlet solid grey-cascade portlet-filter" style="">
                 <div class="portlet-title portlet-filterT" style="">
-                    <div class="titlefiltros caption ">
+                    <div class="titlefiltros caption ">                         
+                       
+
                         <ul class="list-inline text-size-12">
+                            <li>Ejercicio:
+                              
+                                  <asp:DropDownList ID="DdlEjercicios" runat="server" OnSelectedIndexChanged="DdlEjercicios_SelectedIndexChanged" AutoPostBack="true" 
+                                       style="width: 120px !important;"  CssClass="select2me" DataValueField="Ejercicio" DataTextField="Ejercicio"></asp:DropDownList>
+                              
+                            </li>
                             <li>Tipo Periodo:
                                  <asp:DropDownList ID="DdlTipoPeriodo" AutoPostBack="true"  runat="server" CssClass="form-control input-sm select2me" Style="width: 120px !important;" ValidationGroup="GrpGuardar" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo">
                                  </asp:DropDownList>
                             </li>
-                            <li><asp:label ID="LblPeriodo" runat="server"  Visible="true" >Periodo:</asp:label>
-                                 <asp:DropDownList ID="DdlRango"  Visible="true"   AutoPostBack="true"   runat="server" CssClass="form-control input-sm select2me" Style="width: 275px !important;"  DataTextField="NominaEstatus" DataValueField="CvePeriodo"  ValidationGroup="GrpGuardar">
-                                 </asp:DropDownList>
+                            <li>
+                                Período:                                
+                                <asp:DropDownList ID="DdlPeriodo" runat="server"  CssClass="select2me" 
+                                    DataTextField="NominaEstatus" DataValueField="CvePeriodo"   style="width: 120px !important;" >
+                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
                             </li>
-                        <%--<li>Fecha Inicio:
-                                <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy" style="display: inline-block;">
-                                    <asp:TextBox ID="TxtInicio" runat="server" CssClass="form-control input-sm" CausesValidation="true" MaxLength="10" Width="82px "></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="ImgFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
-                                </div>
-                                <ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender runat="server" ID="CEFecha" TargetControlID="TxtInicio" PopupButtonID="ImgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                <asp:RequiredFieldValidator ID="RFVFecha" runat="server" ControlToValidate="TxtInicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha inicio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEmitirImprimir"></asp:RequiredFieldValidator>
-                                <asp:CompareValidator ID="CVFecha" runat="server" ControlToValidate="TxtInicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpEmitirImprimir"></asp:CompareValidator>
-                                <ajax:ValidatorCalloutExtender ID="VCOFecha1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
-                                <ajax:ValidatorCalloutExtender ID="VCOFecha2" runat="server" HighlightCssClass="vco" TargetControlID="CVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
-                            </li>
-                            <li>Fecha Fin:
-                                <div class="input-group input-sm date date-picker " data-date-format="dd/mm/yyyy" style="display: inline-block;">
-                                    <asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control input-sm" CausesValidation="true" MaxLength="10" Width="82px "></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="ImgFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
-                                </div>
-                                <ajax:MaskedEditExtender ID="MEETxtFechaFin" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender runat="server" ID="CETxtFechaFin" TargetControlID="TxtFechaFin" PopupButtonID="ImgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-
-                                <asp:RequiredFieldValidator ID="RfvTxtFechaFin" runat="server" ControlToValidate="TxtFechaFin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEmitirImprimir"></asp:RequiredFieldValidator>
-                                <asp:CompareValidator ID="CvTxtFechaFin" runat="server" ControlToValidate="TxtFechaFin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpEmitirImprimir"></asp:CompareValidator>
-
-                                <ajax:ValidatorCalloutExtender ID="RfvcTxtFechaFin" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaFin" Width="350px"></ajax:ValidatorCalloutExtender>
-                                <ajax:ValidatorCalloutExtender ID="CvcTxtFechaFin" runat="server" HighlightCssClass="vco" TargetControlID="CvTxtFechaFin" Width="350px"></ajax:ValidatorCalloutExtender>
-                            </li>--%>
+                        
                             <li>SubProyecto:
                                  <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="form-control input-sm select2me" Style="width: 135px; !important;"  DataTextField="SubProyecto" DataValueField="CveSubproyecto">
                                  </asp:DropDownList>
@@ -340,7 +326,7 @@
                     <div class="modal-footer">
                         <div class="row">
                             <asp:Button ID="BtnGuardar" Visible="true" runat="server" Text="Guardar" class="btn btn-primary" OnClick="BtnGuardar_Click" />
-                            <asp:Button ID="BtnEstusAsistenciaModal" Visible="false" runat="server" class="btn btn-success" Text="Aceptar" />
+                            <%--<asp:Button ID="BtnEstusAsistenciaModal" Visible="false" runat="server" class="btn btn-success" Text="Aceptar" />--%>
                             <button id="Button4" runat="server" type="button" class="btn default" data-dismiss="modal">Cerrar</button>
 
                         </div>

Ventas/CatMedicos.aspx

@@ -1,4 +1,4 @@
-<%@ Page Title="Catálogo de Médicos" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatMedicos.aspx.vb" Inherits="Ventas_CatMedicos" %>
+<%@ Page Title="Catálogo de Médicos" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatMedicos.aspx.vb" Inherits="Ventas_CatMedicos" EnableEventValidation="false" %>
 <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
 <%@ Register Src="~/UserControl/AddMedico.ascx" TagPrefix="UserControl" TagName="AddMedico" %>
 

Ventas/RepVentaDetalle.aspx

@@ -331,7 +331,7 @@
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%" DataKeyNames="CveVenta,TipoDocumento,SerieFolio" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" CssClass="table table-striped table-advance table-hover Widthall ScrollAD"  GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%" DataKeyNames="CveVenta,TipoDocumento,SerieFolio" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
                 <Columns>
                     <%-- 0--%>
                     <asp:TemplateField HeaderText="Tipo Docto">
@@ -390,7 +390,7 @@
                         </ItemTemplate>
                     </asp:TemplateField>
                     <%-- 9--%>
-                    <asp:TemplateField HeaderText="IEPS"  Visible="false" ItemStyle-HorizontalAlign="Right" >
+                    <asp:TemplateField HeaderText="IEPS" Visible="false" ItemStyle-HorizontalAlign="Right">
                         <ItemTemplate>
                             <asp:Literal ID="LtlIEPS" runat="server" Text='<%# Eval("IEPS", "{0:N2}") %>'></asp:Literal>
                         </ItemTemplate>
@@ -585,13 +585,24 @@
                             <asp:Literal ID="LtlTC" runat="server" Text='<%# Eval("TipoCambio") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                     <%-- 41--%>
+                    <%-- 41--%>
                     <asp:TemplateField HeaderText="Descripción Venta" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="LtlDescripcionVenta" runat="server" Text='<%# Eval("DescripcionVenta") %>'></asp:Literal>
                         </ItemTemplate>
-                     </asp:TemplateField>
-
+                    </asp:TemplateField>
+                    <%-- 42--%>
+                    <asp:TemplateField HeaderText="Descargar XML" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlXML" runat="server"></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <%-- 43--%>
+                    <asp:TemplateField HeaderText="Descargar PDF" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlPDF" runat="server"></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
@@ -664,101 +675,145 @@
                             <table class="table table-striped nobordertop table-advance table-hover">
                                 <tbody>
                                     <tr>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkTipoDocto" runat="server" Text="&nbsp;*Tipo Documento" Checked="true" /></td>                                        
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkSucursal" runat="server" Text="&nbsp;*Sucursal" Checked="true" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkSucursalCobranza" runat="server" Text="&nbsp;Sucursal Cobranza" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkTipoDocto" runat="server" Text="&nbsp;*Tipo Documento" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSucursal" runat="server" Text="&nbsp;*Sucursal" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSucursalCobranza" runat="server" Text="&nbsp;Sucursal Cobranza" /></td>
                                     </tr>
                                     <tr>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkFolio" runat="server" Text="&nbsp;*Folio" Checked="true" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkEstatusFactura" runat="server" Text="&nbsp;*Estatus de Factura" Checked="true" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkSucursalEjecucion" runat="server" Text="&nbsp;Sucursal Ejecución" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkFolio" runat="server" Text="&nbsp;*Folio" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkEstatusFactura" runat="server" Text="&nbsp;*Estatus de Factura" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSucursalEjecucion" runat="server" Text="&nbsp;Sucursal Ejecución" /></td>
 
                                     </tr>
                                     <tr>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkFecha" runat="server" Text="&nbsp;*Fecha" Checked="true" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkVendedor" runat="server" Text="&nbsp;Vendedor" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkMotivoCancelacion" runat="server" Text="&nbsp;Motivo Cancelacion" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkFecha" runat="server" Text="&nbsp;*Fecha" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkVendedor" runat="server" Text="&nbsp;Vendedor" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkMotivoCancelacion" runat="server" Text="&nbsp;Motivo Cancelacion" /></td>
                                     </tr>
                                     <tr>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkSubTotal" runat="server" Text="&nbsp;*SubTotal" Checked="true" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkCodigo" runat="server" Text="&nbsp;Código Cliente" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkUsuario" runat="server" Text="&nbsp;Usuario" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSubTotal" runat="server" Text="&nbsp;*SubTotal" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkCodigo" runat="server" Text="&nbsp;Código Cliente" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkUsuario" runat="server" Text="&nbsp;Usuario" /></td>
                                     </tr>
                                     <tr>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkDescuento" runat="server" Text="&nbsp;*Descuento" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkCliente" runat="server" Text="&nbsp;*Cliente" Checked="true" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkEstatusFacturacion" runat="server" Text="&nbsp;Estatus Facturación" /></td>                                        
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkDescuento" runat="server" Text="&nbsp;*Descuento" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkCliente" runat="server" Text="&nbsp;*Cliente" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkEstatusFacturacion" runat="server" Text="&nbsp;Estatus Facturación" /></td>
                                     </tr>
                                     <tr>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkIVA" runat="server" Text="&nbsp;*IVA" Checked="true" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkMailCliente" runat="server" Text="&nbsp;Mail Cliente" /></td>                                        
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkFolioFacturacion" runat="server" Text="&nbsp;Factura Cotización" /></td>                            
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkIVA" runat="server" Text="&nbsp;*IVA" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkMailCliente" runat="server" Text="&nbsp;Mail Cliente" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkFolioFacturacion" runat="server" Text="&nbsp;Factura Cotización" /></td>
                                     </tr>
                                     <tr>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkRetIVA" runat="server" Text="&nbsp;Ret. IVA" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkCuentaContable" runat="server" Text="&nbsp;Cuenta Contable" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkObservaciones" runat="server" Text="&nbsp;Observaciones" /></td>                            
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkRetIVA" runat="server" Text="&nbsp;Ret. IVA" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkCuentaContable" runat="server" Text="&nbsp;Cuenta Contable" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkObservaciones" runat="server" Text="&nbsp;Observaciones" /></td>
                                     </tr>
-                                    <tr>                                        
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkRetISR" runat="server" Text="&nbsp;Ret. ISR" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkSucursalCliente" runat="server" Text="&nbsp;Sucursal Cliente" /></td>                           
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkOrdenCompra" runat="server" Text="&nbsp;OrdenCompra" /></td>
+                                    <tr>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkRetISR" runat="server" Text="&nbsp;Ret. ISR" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSucursalCliente" runat="server" Text="&nbsp;Sucursal Cliente" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkOrdenCompra" runat="server" Text="&nbsp;OrdenCompra" /></td>
 
                                     </tr>
                                     <tr>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkTotalImpuestos" runat="server" Text="&nbsp;Impuestos Locales" /></td>                                        
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkSaldo" runat="server" Text="&nbsp;Saldo" Checked="false" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkPedidoContrato" runat="server" Text="&nbsp;Pedido Contrato" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkTotalImpuestos" runat="server" Text="&nbsp;Impuestos Locales" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSaldo" runat="server" Text="&nbsp;Saldo" Checked="false" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkPedidoContrato" runat="server" Text="&nbsp;Pedido Contrato" /></td>
                                     </tr>
                                     <tr>
-                                        
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkTotal" runat="server" Text="&nbsp;*Total" Checked="true" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkFolioFiscal" runat="server" Text="&nbsp;Folio Fiscal (UUID)" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChlMotivoDescuento" runat="server" Text="&nbsp;Motivo Descuento" /></td>
+
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkTotal" runat="server" Text="&nbsp;*Total" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkFolioFiscal" runat="server" Text="&nbsp;Folio Fiscal (UUID)" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChlMotivoDescuento" runat="server" Text="&nbsp;Motivo Descuento" /></td>
                                     </tr>
                                     <tr>
-                                        
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkMoneda" runat="server" Text="&nbsp;*Moneda" Checked="true" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkMetodoPago" runat="server" Text="&nbsp;Método de Pago" Checked="false" /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkAmortizacion" runat="server" Text="&nbsp;Amortización"  /></td>                                                        
-                                    </tr>
-                                     <tr>
-                                        
-                                         <td style="text-align: left;"><asp:CheckBox ID="ChkIEPS" runat="server" Text="&nbsp;*IEPS"  /></td>
-                                         <td style="text-align: left;"><asp:CheckBox ID="ChkFormaPago" runat="server" Text="&nbsp;Forma de Pago" Checked="false" /></td>
-                                         <td style="text-align: left;"><asp:CheckBox ID="ChkSeTimbro" runat="server" Text="&nbsp;Se Timbró" /></td>
+
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkMoneda" runat="server" Text="&nbsp;*Moneda" Checked="true" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkMetodoPago" runat="server" Text="&nbsp;Método de Pago" Checked="false" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkAmortizacion" runat="server" Text="&nbsp;Amortización" /></td>
                                     </tr>
                                     <tr>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkTC" runat="server" Text="&nbsp;TC"  /></td>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkUsoCFDI" runat="server" Text="&nbsp;Uso CFDI" Checked="false" /></td>                                   
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkSeEnvioMail" runat="server" Text="&nbsp; Se envió Mail" /></td>                           
+
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkIEPS" runat="server" Text="&nbsp;*IEPS" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkFormaPago" runat="server" Text="&nbsp;Forma de Pago" Checked="false" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSeTimbro" runat="server" Text="&nbsp;Se Timbró" /></td>
+                                    </tr>
+                                    <tr>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkTC" runat="server" Text="&nbsp;TC" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkUsoCFDI" runat="server" Text="&nbsp;Uso CFDI" Checked="false" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSeEnvioMail" runat="server" Text="&nbsp; Se envió Mail" /></td>
+                                    </tr>
+                                    <tr>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkDescargarPDF" runat="server" Text="&nbsp;Descargar PDF" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkDescargarXML" runat="server" Text="&nbsp;Descargar XML" />
+                                        </td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkKilometraje" runat="server" Visible="False" Text="&nbsp; Kilometraje" /></td>
                                     </tr>
                                     <tr>
                                         <td style="text-align: left;"></td>
-                                        <td style="text-align: left;"> </td>                                   
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkKilometraje" runat="server" Visible="False" Text="&nbsp; Kilometraje" /></td>                           
-                                    </tr>
-                                    <tr>
                                         <td style="text-align: left;"></td>
-                                        <td style="text-align: left;"> </td>                                   
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkDescripcionVenta" runat="server" Visible="true" Text="&nbsp; Descripción Venta" /></td>                           
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkDescripcionVenta" runat="server" Visible="true" Text="&nbsp; Descripción Venta" /></td>
                                     </tr>
- 
+
                                 </tbody>
-                            </table> 
-                            
+                            </table>
+
 
                         </div>
                         <div class="modal-footer">
                             <div class="row">
-                                <div class="col-md-6" style="text-align:left">
+                                <div class="col-md-6" style="text-align: left">
                                     <asp:CheckBox ID="ChkGuardarPersonalizacion" runat="server" Text=" Guarda Personalización" TextAlign="Right" />
                                 </div>
                                 <div class="col-md-6">
-                                   <button type="button" class="btn btn-success" data-dismiss="modal" onclick="$('#BtnPersonalizar').click();">Personalizar</button>
-                                   <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                                    <button type="button" class="btn btn-success" data-dismiss="modal" onclick="$('#BtnPersonalizar').click();">Personalizar</button>
+                                    <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
                                 </div>
-                            </div>                            
+                            </div>
 
                         </div>
                     </div>

Ventas/RepVentaDetalle.aspx.vb

@@ -110,6 +110,15 @@ Partial Class RepVentaDetalle
             ViewState("Primeracontsulta") = value
         End Set
     End Property
+    Private Property ConsultaAlCargar As Boolean
+        Get
+            Return CBool((IfNull(ViewState("ConsultaAlCargar"), False, ViewState("ConsultaAlCargar"))))
+        End Get
+        Set(value As Boolean)
+            ViewState("ConsultaAlCargar") = value
+        End Set
+    End Property
+
 
 #End Region
     'pRivate ReadOnly Property ColumnasVisibles As 
@@ -120,15 +129,16 @@ Partial Class RepVentaDetalle
             CargaCombos()
             InicializaValores()
             ConfiguraEmpresa()
-            If Request("Gpo") IsNot Nothing Then
+
+            If ConsultaAlCargar Then
                 CargaDatos()
             End If
-            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
 
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                 LblServicioDomicilioFiltro.Visible = True
                 DVServicioDomicilio.Visible = True
-
             End If
+
             PrePersonalizacion()
             CargaPersonalizacion()
         End If
@@ -136,6 +146,8 @@ Partial Class RepVentaDetalle
 
 
     Private Sub InicializaValores()
+        ConsultaAlCargar = True
+
         Dim Grupo, CveCliente, CveSucursal, CveSubProyectoEjecucion, CveVendedor, CveUsuario, CveEstatusFactura, CveCorte, IVA, TipoDocto, CveClienteClasificacion, CveCondicionesPago, CveTipoRelacion As String
         Dim Anio, Mes, AnioMes, Fecha, FechaI, FechaF As String
         Dim AnioEjec, MesEjec, AnioMesEjec, FechaEjec, FechaIEjec, FechaFEjec As String
@@ -276,6 +288,10 @@ Partial Class RepVentaDetalle
             DdlVendedor.Enabled = False
         End If
 
+        If Request("Menu") IsNot Nothing AndAlso Request("Menu").ToString() = "1" Then
+            ConsultaAlCargar = False
+        End If
+
     End Sub
 
 #Region "CARGA COMBOS"
@@ -539,6 +555,28 @@ Partial Class RepVentaDetalle
             If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(12).ForeColor = Drawing.Color.Red
             If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(13).ForeColor = Drawing.Color.Red
 
+            Dim Ruta As String = UsuarioActual.Empresa.Ruta
+
+            If IO.File.Exists($"{Ruta}XML\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("SerieFolio")}.xml") Then
+                e.Row.FCLiteral("LtlXML").Text = String.Format("<div class='truncate' style='width:40px;'><a class=""Texto"" target=""_blank""  href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.xml&TipoArchivo=XML"">XML</a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio"))
+            Else
+                e.Row.FCLiteral("LtlXML").Text = "<div class='truncate' style='width:23px;'></div>"
+            End If
+
+            If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+                If e.Row.DBCampo("TipoDocto") <> "Cot" AndAlso IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("SerieFolio")}.pdf") Then
+                    e.Row.FCLiteral("LtlPDF").Text = String.Format("<div class='truncate' style='width:40px;'><a class=""Texto"" target=""_blank""  href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.pdf&TipoArchivo=PDF"">PDF</a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio"))
+                Else
+                    e.Row.FCLiteral("LtlPDF").Text = "<div class='truncate' style='width:23px;'></div>"
+                End If
+            Else
+                If IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("SerieFolio")}.pdf") Then
+                    e.Row.FCLiteral("LtlPDF").Text = String.Format("<div class='truncate' style='width:23px;'><a class=""Texto"" target=""_blank""  href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.pdf&TipoArchivo=PDF"">PDF</a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio"))
+                Else
+                    e.Row.FCLiteral("LtlPDF").Text = "<div class='truncate' style='width:23px;'></div>"
+                End If
+            End If
+
 
             'If e.Row.DBCampo("MAX_SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlMaxSubTotal").Text = ""
             'If e.Row.DBCampo("AVG_SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlAVGSubTotal").Text = ""
@@ -708,6 +746,10 @@ Partial Class RepVentaDetalle
 
         If ChkDescripcionVenta.Checked Then ListPersonalizada.Add("DescripcionVenta")
 
+        If ChkDescargarPDF.Checked Then ListPersonalizada.Add("PDF")
+
+        If ChkDescargarXML.Checked Then ListPersonalizada.Add("XML")
+
         If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepVentaDetalles.aspx", String.Join("|", ListPersonalizada)) Then
             'Alert("Personalizacion guardada")
         End If
@@ -765,6 +807,9 @@ Partial Class RepVentaDetalle
             ChkFormaPago.Checked = False
             ChkUsoCFDI.Checked = False
 
+            ChkDescargarPDF.Checked = False
+            ChkDescargarXML.Checked = False
+
             Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c)
 
             For Each personalizacion As String In Personalizaciones
@@ -895,6 +940,12 @@ Partial Class RepVentaDetalle
                     Case "DescripcionVenta"
                         ChkDescripcionVenta.Checked = True
                         Exit Select
+                    Case "XML"
+                        ChkDescargarXML.Checked = True
+                        Exit Select
+                    Case "PDF"
+                        ChkDescargarPDF.Checked = True
+                        Exit Select
                     Case Else
                         Exit Select
                 End Select
@@ -954,7 +1005,8 @@ Partial Class RepVentaDetalle
         GvDatos.Columns(39).Visible = ChkKilometraje.Checked
         GvDatos.Columns(40).Visible = ChkTC.Checked
         GvDatos.Columns(41).Visible = ChkDescripcionVenta.Checked
-
+        GvDatos.Columns(42).Visible = ChkDescargarXML.Checked
+        GvDatos.Columns(43).Visible = ChkDescargarPDF.Checked
 
         Personalizo = 1
         If Personalizo = 1 Then

Ventas/Ventas.aspx.vb

@@ -6862,6 +6862,10 @@ Partial Class Ventas
                         If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
                             DdlUsoCFDI.Enabled = True
                         End If
+
+                        If NuevaFactura = 1 Then
+                            DdlUsoCFDI.Enabled = True
+                        End If
                     End If
 
                 End If
@@ -16551,6 +16555,14 @@ Partial Class Ventas
             DirectCast(e.Row.FindControl("VCOAmortAnti"), AjaxControlToolkit.ValidatorCalloutExtender).ID = "VCOAmortAnti" & e.Row.RowIndex
             DirectCast(e.Row.FindControl("CVAmortAnti"), CompareValidator).ControlToValidate = "TxtAnticipo" & e.Row.RowIndex
             DirectCast(e.Row.FindControl("VCOAmortAnti"), AjaxControlToolkit.ValidatorCalloutExtender).TargetControlID = "CVAmortAnti" & e.Row.RowIndex
+
+            'SI NO TIENE PERMISO, NO PERMITIR APLICAR ANTICIPOS PUNTUALES
+            If GVAnticipos.DataSource IsNot Nothing Then
+                If CBool(e.Row.DBCampo("AnticipoPuntual")) AndAlso Not UsuarioActual.TienePermisoProceso(377) Then
+                    e.Row.FCCheckBox("Chk").Enabled = False
+                End If
+            End If
+
         End If
     End Sub
     Protected Sub GVAnticipos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAnticipos.RowDataBound