Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/CalendarEvent.vb

@@ -7,6 +7,7 @@ Public Class CalendarEvent
     Public Property description As String
     Public Property start As String
     Public Property [end] As String
+    Public Property FechaFinal As String
     Public Property allDay As Boolean
     Public Property CveEventoEstatus As Integer
     Public Property cveagendatipo As String

App_Code/ClsInventarios.vb

@@ -4467,6 +4467,25 @@ Public Class ClsInventarios
             OnError("Ocurrió un error al obtener las Movimientos de Ordenes de Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
 
+        Return Retorno
+    End Function
+    Public Function UpdateOSEstatusInventario(CveOS As Integer, Estatus As Boolean, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OS_OSEstatusInventarioUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveOS", SqlDbType.Int).Value = CveOS
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el estatus de OS.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
         Return Retorno
     End Function
 #End Region

App_Code/ClsOIEventos.vb

@@ -87,6 +87,7 @@ Public Class ClsOIEventos
     End Property
 #Region "Propiedades de la tabla OI_Eventos"
     Public Property CveEvento As Integer
+    Public Property CveIndicador As Integer
     Public Property CveTipoEvento As Integer
     Public Property Folio As Integer
     Public Property TipoEvento As String
@@ -965,7 +966,7 @@ Public Class ClsOIEventos
                                    Optional CveOS As Integer = -1, Optional CveOC As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveProveedor As Integer = -1,
                                    Optional CveCompra As Integer = -1, Optional CveVenta As Integer = -1, Optional CveContrato As Integer = -1, Optional CveSubProyecto As Integer = -1,
                                    Optional CveMovimientoAlmacen As Integer = -1, Optional CorreoExterno As String = "", Optional CveTableroLista As Integer = -1, Optional Lugar As String = "",
-                                   Optional Asistencia As String = "", Optional Duracion As String = "", Optional CveAcercamiento As Integer = -1) As Boolean
+                                   Optional Asistencia As String = "", Optional Duracion As String = "", Optional CveAcercamiento As Integer = -1, Optional CveIndicador As Integer = -1) As Boolean
         Dim retorno As Boolean = False
 
         Dim xmlMiembros As System.Xml.Linq.XDocument = Nothing
@@ -1028,6 +1029,7 @@ Public Class ClsOIEventos
             .Add("@Lugar", SqlDbType.VarChar).Value = Lugar
             .Add("@CveTableroLista", SqlDbType.VarChar).Value = CveTableroLista
             .Add("@CveAcercamiento", SqlDbType.VarChar).Value = CveAcercamiento
+            .Add("@CveIndicador", SqlDbType.VarChar).Value = CveIndicador
 
 
             '.Add("@mailPara", SqlDbType.VarChar).Direction = ParameterDirection.Output
@@ -3216,8 +3218,66 @@ Public Class ClsOIEventos
 
         Return Retorno
     End Function
+
 #End Region
 
+
+
+#Region "I N D I C A D O R E S "
+
+#End Region
+
+    Public Function AddIndicador(Indicador As Integer, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        CveIndicador = -1
+
+        DataAdapter("PA_Dir_IndicadorAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Indicador", SqlDbType.Int).Value = Indicador
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveIndicador", SqlDbType.Int).Direction = ParameterDirection.Output
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            CveIndicador = SqlAdapter.SelectCommand.Parameters("@CveIndicador").Value.ToString().ToEntero()
+            If CveIndicador > 0 Then
+                Retorno = True
+            End If
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el indicador", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdateIndicador(CveIndicador As Integer, Valor As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Dir_IndicadorUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveIndicador", SqlDbType.Int).Value = CveIndicador
+            .Add("@Valor", SqlDbType.Int).Value = Valor
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el indicador", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
 #End Region
 
     ' IDisposable

App_Code/ClsOS.vb

@@ -495,6 +495,26 @@ Public Class ClsOS
         Return Retorno
     End Function
 
+    Public Function GetRepOSEstatus(CveOS As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_OS_OSEstatusRepGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveOS", SqlDbType.Int).Value = CveOS
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Reporte de estatus de OS.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
 
     Public Function GetRepOrdenesServicioMedicasRep(FechaI As Date, FechaF As Date, CveCliente As Integer, CveVendedor As Integer, CveEstatusOrdenServicio As Integer, CveUsuarioAtendio As Integer, CveSubProyecto As Integer, CveEmpresa As Integer,
                                                     Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional CveEspecialidad As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional CveUsuario As Integer = -1) As Boolean

App_Code/ClsPaginas.vb

@@ -10463,6 +10463,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/OS/Asignaciones.aspx".ToUpper(), 125)
             PaginaDict.Add("/OS/RepServicioDomicilio.aspx".ToUpper(), 1330)
             PaginaDict.Add("/OS/RepOSMedicas.aspx".ToUpper(), 1345)
+            PaginaDict.Add("/OS/RepOSEstatus.aspx".ToUpper(), 1349)
 #End Region
 #Region "OC"
             PaginaDict.Add("/OC/OC.aspx".ToUpper(), 155)
@@ -10517,6 +10518,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/OI/CatDocumentoSubCategoria.aspx".ToUpper(), -1)
             PaginaDict.Add("/OI/Documentos.aspx".ToUpper(), -1)
             PaginaDict.Add("/OI/DocumentoDetalle.aspx".ToUpper(), -1)
+            PaginaDict.Add("/OI/RepIndicadoresEMD.aspx".ToUpper(), 1348)
 #End Region
 #Region "Planeacion"
             PaginaDict.Add("/Planeacion/CatSucursales.aspx".ToUpper(), 17)

Ashx/CargaEventos.ashx

@@ -461,6 +461,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                         cevent.title = dr("DescripcionContrato").ToString
                         cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime)
                         cevent.end = If(tipoVista = "fecha", String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime.AddHours(1)), String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime))
+                        cevent.FechaFinal = String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime)
                         cevent.allDay = False
                         cevent.NombreAcercamiento = dr("Ubicacion").ToString
                         cevent.CveCliente = dr("CveCliente").ToString.ToEntero

Contabilidad/RegPrePolizaS.aspx.vb

@@ -1021,7 +1021,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                         End If
 
                         'Registra movimieno bancario
-                        If gvr.DataKey("CveConceptoContable") = "30" AndAlso Importe <> 0 Then
+                        If gvr.DataKey("CveConceptoContable") = "30" AndAlso (Importe <> 0 OrElse DdlPlantilla.SelectedValue = "53") Then
                             Dim tFolio As String = gvr.DataKey("ContadoNumeroFolio").ToString
                             If tFolio.ToEntero = 0 Then tFolio = SiguienteFolioBancos(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero)
 

OI/Proyecto.aspx

@@ -246,6 +246,29 @@
                                                   <asp:LinkButton ID="LnkAddTtemaB" OnClick="LnkAddTtemaB_Click" runat="server" CssClass="btn btn-default" Style="margin-top: 15px;"><i class="fa fa-plus"></i></asp:LinkButton>
                                               </div>
                                         </div>
+
+                                          <div class="row" runat="server" id="DvIndicador" visible ="false">
+                                              <div class="col-sm-6">
+                                                  <div class="form-group form-md-line-input">
+                                                      <asp:DropDownList ID="DdlIndicador" runat="server" CssClass="form-control select2me input-sm" Width="100%">
+                                                          <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                          <asp:ListItem  Value="1" class="itembaja">Programación de bolsa aprobada en tiempo</asp:ListItem>                                                          
+                                                      </asp:DropDownList>                                                      
+                                                      <asp:Label runat="server" AssociatedControlID="DdlPrioridad">Indicador:</asp:Label>                                                      
+                                                  </div>
+                                              </div>
+                                              <div class="col-sm-6">
+                                                  <div class="form-group form-md-line-input">                                                      
+                                                      
+                                                      <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="form-control select2me input-sm" DataTextField="SubProyecto" DataValueField="CveSubProyecto"   Width="100%" AppendDataBoundItems="true">
+                                                          <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                      </asp:DropDownList>
+                                                      <asp:Label runat="server" ID="LblSubProyecto" AssociatedControlID="DdlSubProyecto">:</asp:Label>
+                                                       
+                                                  </div>
+                                              </div>
+                                             
+                                          </div>
                                     </div>
                                 </asp:Panel>
                                 <asp:TextBox ID="txtCveEvento" CssClass="hidden txtCveEvento" runat="server"></asp:TextBox>

OI/Proyecto.aspx.cs

@@ -48,6 +48,21 @@ public partial class OI_Proyecto : ClsPaginas
             DdlTema.DataBind();
             DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1"));
 
+            CargarCentrosDeCosto(null, DdlSubProyecto, null, LblSubProyecto,  "");
+
+            if (DdlSubProyecto.Items.Count > 0)
+            {
+                DdlSubProyecto.Items.RemoveAt(0);
+                DdlSubProyecto.Items.Insert(0, new ListItem("Seleccione","-1"));
+            }
+
+
+            if (UsuarioActual.CveEmpresa == 13  )
+            {
+                DvIndicador.Visible = true;
+            }
+
+
 
         }
 
@@ -184,6 +199,7 @@ public partial class OI_Proyecto : ClsPaginas
         bool Continuar = false;
         int Folio = -1;
         int CveEvento = -1;
+        int CveIndicador = -1;
 
         if (cveUsuarioDe <= 0)
         {
@@ -193,8 +209,13 @@ public partial class OI_Proyecto : ClsPaginas
         if (cveUsuarioPara <= 0)
         {
             errorMessage = "No se selecciono el miembro 'Para'";
-
         }
+
+        if(DdlIndicador.SelectedValue.ToEntero() > 0  && DdlSubProyecto.SelectedValue.ToEntero() <0)
+        {
+            errorMessage = "Si agrega un indicador debe de agregar el sub proyecto.";
+        }
+
         if (errorMessage.Length == 0)
         {
 
@@ -203,14 +224,44 @@ public partial class OI_Proyecto : ClsPaginas
             using (ClsOIEventos objOI = new ClsOIEventos())
             {
                 objOI.IniciaTransacSQL();
-                Continuar = objOI.AddOI_Eventos2(cveTipoEvento, asunto, descripcion, prioridad, cveUsuarioDe, cveUsuarioPara, fechaInicio, fechaFin, cveRevision, archivoname, listaCCP, chkList, cveUsuarioIng, cveEmpresa, RCveEventoB);
+
+
+                if (DdlIndicador.SelectedValue.ToEntero() > 0)
+                {
+
+                    if (objOI.AddIndicador(DdlIndicador.SelectedValue.ToEntero(), DdlSubProyecto.SelectedValue.ToEntero(), UsuarioActual.CveUsuario,UsuarioActual.CveEmpresa)  && objOI.CveIndicador > 0)
+                    {
+                        CveIndicador = objOI.CveIndicador;
+                        Continuar = true;
+                    }
+                    else
+                    {
+                        Continuar = false;
+                    }
+                }
+                else
+                {
+                    Continuar = true;
+                }
+
+
+                if (Continuar)
+                {
+                    Continuar = objOI.AddOI_Eventos2(cveTipoEvento, asunto, descripcion, prioridad, cveUsuarioDe, cveUsuarioPara, fechaInicio, fechaFin, cveRevision, archivoname, listaCCP, chkList, cveUsuarioIng, cveEmpresa, RCveEventoB, CveIndicador: CveIndicador);
+                }                
 
                 CveEvento = objOI.CveEvento;
                 Folio = objOI.Folio;
-                if (CveEvento == 0)
+
+                if (CveEvento > 0)
+                {
+                    Continuar = true;                  
+                }
+                else
                 {
                     Continuar = false;
                 }
+
                 if (Continuar)
                 {
                     objOI.Commit();
@@ -249,13 +300,17 @@ public partial class OI_Proyecto : ClsPaginas
                 txtFechaI.Text = "";
             }
         }
+        else
+        {
+            Alert(errorMessage,ModExtensiones.TipoMensaje.MsgAdvertencia);
+        }
 
     }
 
 
     protected void BtnopenmodalClickGant_Click(object sender, EventArgs e)
     {
-
+        SetUsuarios();
         RegistraScript(string.Format("$('#{0}').modal()", iddivAgregarProyecto));
         RCveEventoB = txtCveEvento.Text.ToEntero();
     }

OI/RepIndicadoresEMD.aspx

@@ -0,0 +1,169 @@
+<%@ Page Title="Reporte de Indicadores" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepIndicadoresEMD.aspx.vb" Inherits="OI_RepIndicadoresEMD" %>
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+<%@ Register Src="~/UserControl/AddMedico.ascx" TagPrefix="UserControl" TagName="AddMedico" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+    <link href="/Metronic/assets/global/plugins/datatables/plugins/bootstrap/dataTables.bootstrap.css" rel="stylesheet" />
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    Reporte de Indicadores
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+   Reporte de Indicadores
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+
+    <asp:UpdatePanel runat="server" ID="UpAcciones" UpdateMode="Always">
+        <ContentTemplate>
+           
+              <li>
+                 <asp:LinkButton ID="LnkExportar" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i>  Excel</asp:LinkButton>
+             </li>         
+        </ContentTemplate>
+         <Triggers>
+            <asp:PostBackTrigger ControlID="LnkExportar" />
+        </Triggers>
+    </asp:UpdatePanel>
+
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    
+     
+   <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional" >
+       <ContentTemplate>
+           <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
+               <div class="portlet-title portlet-filterT smalltitle">
+                   <div class="tools">
+                       <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" OnClick="BtnConsultar_Click" />
+                       <a href="javascript:;" class="expand"></a>
+                   </div>
+                   <div class="titlefiltros  caption">
+                       <div class="row" style="height: 32px;">    
+                           
+                            <label class="col-md-1 truncate">Ejercicio:</label>                                 
+                                 <div class="col-md-1">
+                                     <asp:DropDownList ID="DdlEjercicio" CssClass="form-control input-sm select2me" runat="server">
+                                         <asp:ListItem Text="2015" Value="2015"></asp:ListItem>
+                                         <asp:ListItem Text="2016" Value="2016"></asp:ListItem>
+                                         <asp:ListItem Text="2017" Value="2017"></asp:ListItem>
+                                         <asp:ListItem Text="2018" Value="2018"></asp:ListItem>
+                                         <asp:ListItem Text="2019" Value="2019"></asp:ListItem>
+                                         <asp:ListItem Text="2020" Value="2020"></asp:ListItem>
+                                         <asp:ListItem Text="2021" Value="2021"></asp:ListItem>
+                                         <asp:ListItem Text="2022" Value="2022"></asp:ListItem>
+                                         <asp:ListItem Text="2023" Value="2023"></asp:ListItem>
+                                         <asp:ListItem Text="2024" Value="2024" Selected="True"></asp:ListItem>                                         
+                                     </asp:DropDownList>
+                                 </div>
+                         
+                         <label class="col-md-1 truncate">Periodo:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList ID="DdlPeriodo" CssClass="form-control input-sm select2me" runat="server">
+                                <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
+                                <asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
+                                <asp:ListItem Text="Abril" Value="4"></asp:ListItem>
+                                <asp:ListItem Text="Mayo" Value="5" Selected="True"></asp:ListItem>
+                                <asp:ListItem Text="Junio" Value="6"></asp:ListItem>
+                                <asp:ListItem Text="Julio" Value="7"></asp:ListItem>
+                                <asp:ListItem Text="Agosto" Value="8"></asp:ListItem>
+                                <asp:ListItem Text="Septiembre" Value="9"></asp:ListItem>
+                                <asp:ListItem Text="Octubre" Value="10"></asp:ListItem>
+                                <asp:ListItem Text="Noviembre" Value="11"></asp:ListItem>
+                                <asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                         
+                            <asp:Label runat="server" ID="LblSubProyecto" class="col-md-1 truncate">:</asp:Label>
+                            <div class="col-md-2">
+                               <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="form-control select2me input-sm" DataTextField="SubProyecto" DataValueField="CveSubProyecto"   Width="100%" AppendDataBoundItems="true">                                    
+                                </asp:DropDownList>
+                            </div>
+                           
+
+ 
+
+                       </div>
+                   </div>
+               </div>
+               <div class="portlet-body" style="display: none">
+                   <div class="row">
+ 
+                   </div>                               
+               </div>
+           </div>
+       </ContentTemplate>
+   </asp:UpdatePanel>
+
+
+
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+    <ContentTemplate>
+        <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
+            <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+        </div>
+        <div class="row">
+            <div class="col-md-12">
+                <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
+                    DataKeyNames=""
+                    data-sort="true"
+                    EmptyDataText="No se encontraron Datos" ToolTip="" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
+                    <Columns>
+
+                        <asp:BoundField HeaderText="Número" DataField="Numero" ItemStyle-HorizontalAlign="Left" />
+                        <asp:BoundField HeaderText="Indicador" DataField="Indicador" ItemStyle-HorizontalAlign="Left" />
+
+                        <asp:BoundField HeaderText="ACARREO SAN JOSE A QUILA" DataField="ACARREO SAN JOSE A QUILA" ItemStyle-HorizontalAlign="Left" />
+                        <asp:BoundField HeaderText="PIPER MERIDIAN M500" DataField="PIPER MERIDIAN M500" ItemStyle-HorizontalAlign="Left" />
+                        <asp:BoundField HeaderText="PRESA JALES PEÑA COLORADA" DataField="PRESA JALES PEÑA COLORADA" ItemStyle-HorizontalAlign="Left" />
+                        <asp:BoundField HeaderText="MINA LA CRUZ" DataField="MINA LA CRUZ" ItemStyle-HorizontalAlign="Left" />
+                        <asp:BoundField HeaderText="TOGUI -UBER" DataField="TOGUI -UBER" ItemStyle-HorizontalAlign="Left" />
+                        <asp:BoundField HeaderText="SAN IGNACIO" DataField="SAN IGNACIO" ItemStyle-HorizontalAlign="Left" />
+
+                        <asp:BoundField HeaderText="Porcentaje" DataField="Porcentaje" ItemStyle-HorizontalAlign="Right" /> 
+
+                        <asp:BoundField HeaderText="Comentarios" DataField="Comentarios" ItemStyle-HorizontalAlign="Left" Visible="false" />                  
+
+
+
+                    </Columns>
+                </asp:GridView>
+
+            </div>
+        </div>
+
+
+    </ContentTemplate>
+</asp:UpdatePanel>   
+
+
+ 
+
+
+    
+ 
+
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+
+    <script>
+        
+        function validaPorcentaje(textbox) {            
+            
+            var valor = parseFloat(textbox.value.replace(/,/g, ''));
+            
+            if (valor > 100) {
+
+                textbox.value = '100';
+            } else if ( isNaN(valor) || valor == 0) {
+
+                textbox.value = '';
+            }            
+
+        }                      
+    </script>
+  
+</asp:Content>

OI/RepIndicadoresEMD.aspx.vb

@@ -0,0 +1,260 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports CrystalDecisions.Shared.Json
+Imports DocumentFormat.OpenXml.Vml.Office
+Imports Extensiones
+
+
+Partial Class OI_RepIndicadoresEMD
+    Inherits ClsPaginas
+
+    Property DTDatos As DataTable
+        Get
+            If ViewState("DTDatos") Is Nothing Then
+                ViewState("DTDatos") = New DataTable
+            End If
+            Return DirectCast(ViewState("DTDatos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTDatos") = value
+        End Set
+    End Property
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+
+        If Not Page.IsPostBack Then
+
+            Dim FechaInicial As Date = New Date(10)
+            CargaCombos()
+            CargaDatos()
+        End If
+
+    End Sub
+    Private Sub CargaCombos()
+
+
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, AplicaTodos:="Todos")
+
+
+    End Sub
+
+
+    Private Function CrearTablaDatos() As DataTable
+        Dim DTDatos As New DataTable
+
+        DTDatos.Columns.Add("Numero", GetType(Integer))
+        DTDatos.Columns.Add("Indicador", GetType(String))
+        DTDatos.Columns.Add("Comentarios", GetType(String))
+        DTDatos.Columns.Add("ACARREO SAN JOSE A QUILA", GetType(String))
+        DTDatos.Columns.Add("PIPER MERIDIAN M500", GetType(String))
+        DTDatos.Columns.Add("PRESA JALES PEÑA COLORADA", GetType(String))
+        DTDatos.Columns.Add("MINA LA CRUZ", GetType(String))
+        DTDatos.Columns.Add("TOGUI -UBER", GetType(String))
+        DTDatos.Columns.Add("SAN IGNACIO", GetType(String))
+        DTDatos.Columns.Add("Porcentaje", GetType(String))
+        'DTDatos.Columns.Add("", GetType(String))
+        DTDatos.AcceptChanges()
+
+        Dim nRow1 As DataRow = DTDatos.NewRow
+        Dim nRow2 As DataRow = DTDatos.NewRow
+        Dim nRow3 As DataRow = DTDatos.NewRow
+        Dim nRow4 As DataRow = DTDatos.NewRow
+        Dim nRow5 As DataRow = DTDatos.NewRow
+        Dim nRow6 As DataRow = DTDatos.NewRow
+        Dim nRow7 As DataRow = DTDatos.NewRow
+        Dim nRow8 As DataRow = DTDatos.NewRow
+        Dim nRow9 As DataRow = DTDatos.NewRow
+        Dim nRow10 As DataRow = DTDatos.NewRow
+
+
+
+        'ACARREO SAN JOSE A QUILA
+        'PIPER MERIDIAN M500
+        'PRESA JALES PEÑA COLORADA
+        'MINA LA CRUZ
+        'TOGUI -UBER
+        'SAN IGNACIO
+
+        nRow1("Numero") = "1"
+        nRow1("Indicador") = "Programación de bolsa aprobada en tiempo"
+        nRow1("Comentarios") = "Si programaron en tiempo según la tarea"
+        nRow1("ACARREO SAN JOSE A QUILA") = "1"
+        nRow1("PIPER MERIDIAN M500") = "1"
+        nRow1("PRESA JALES PEÑA COLORADA") = "1"
+        nRow1("MINA LA CRUZ") = "0"
+        nRow1("TOGUI -UBER") = "1"
+        nRow1("SAN IGNACIO") = "1"
+        nRow1("Porcentaje") = "67%"
+
+        nRow2("Numero") = "2"
+        nRow2("Indicador") = "Solicitudes fuera de presupuesto"
+        nRow2("Comentarios") = "Hacer cambios a presupuestos"
+        nRow2("ACARREO SAN JOSE A QUILA") = "1"
+        nRow2("PIPER MERIDIAN M500") = "0"
+        nRow2("PRESA JALES PEÑA COLORADA") = "0"
+        nRow2("MINA LA CRUZ") = "0"
+        nRow2("TOGUI -UBER") = "1"
+        nRow2("SAN IGNACIO") = "1"
+        nRow2("Porcentaje") = "67%"
+
+        nRow3("Numero") = "3"
+        nRow3("Indicador") = "Viáticos dentro de presupuesto"
+        nRow3("Comentarios") = "Si se salió de lo gastado en el rubro de viáticos"
+        nRow3("ACARREO SAN JOSE A QUILA") = ""
+        nRow3("PIPER MERIDIAN M500") = ""
+        nRow3("PRESA JALES PEÑA COLORADA") = ""
+        nRow3("MINA LA CRUZ") = ""
+        nRow3("TOGUI -UBER") = ""
+        nRow3("SAN IGNACIO") = ""
+        nRow3("Porcentaje") = ""
+
+        nRow4("Numero") = "4"
+        nRow4("Indicador") = "Viáticos no deducibles"
+        nRow4("Comentarios") = "Viáticos no deducibles"
+        nRow4("ACARREO SAN JOSE A QUILA") = ""
+        nRow4("PIPER MERIDIAN M500") = ""
+        nRow4("PRESA JALES PEÑA COLORADA") = ""
+        nRow4("MINA LA CRUZ") = ""
+        nRow4("TOGUI -UBER") = ""
+        nRow4("SAN IGNACIO") = ""
+        nRow4("Porcentaje") = ""
+
+        nRow5("Numero") = "5"
+        nRow5("Indicador") = "Utilidad operativa"
+        nRow5("Comentarios") = "Ing-Egs"
+        nRow5("ACARREO SAN JOSE A QUILA") = ""
+        nRow5("PIPER MERIDIAN M500") = ""
+        nRow5("PRESA JALES PEÑA COLORADA") = ""
+        nRow5("MINA LA CRUZ") = ""
+        nRow5("TOGUI -UBER") = ""
+        nRow5("SAN IGNACIO") = ""
+        nRow5("Porcentaje") = ""
+
+        nRow6("Numero") = "11"
+        nRow6("Indicador") = "Factura ligada a orden de compra en SIG"
+        nRow6("Comentarios") = "Relación"
+        nRow6("ACARREO SAN JOSE A QUILA") = ""
+        nRow6("PIPER MERIDIAN M500") = ""
+        nRow6("PRESA JALES PEÑA COLORADA") = ""
+        nRow6("MINA LA CRUZ") = ""
+        nRow6("TOGUI -UBER") = ""
+        nRow6("SAN IGNACIO") = ""
+        nRow6("Porcentaje") = ""
+
+        nRow7("Numero") = "12"
+        nRow7("Indicador") = "Cumplimiento del programa de mantenimientos preventivos"
+        nRow7("Comentarios") = ""
+        nRow7("ACARREO SAN JOSE A QUILA") = "ND"
+        nRow7("PIPER MERIDIAN M500") = "ND"
+        nRow7("PRESA JALES PEÑA COLORADA") = "ND"
+        nRow7("MINA LA CRUZ") = "ND"
+        nRow7("TOGUI -UBER") = "ND"
+        nRow7("SAN IGNACIO") = "ND"
+        nRow7("Porcentaje") = "50%"
+
+        nRow8("Numero") = "13"
+        nRow8("Indicador") = "Relación entre mantenimiento preventivo y correctivo"
+        nRow8("Comentarios") = ""
+        nRow8("ACARREO SAN JOSE A QUILA") = "ND"
+        nRow8("PIPER MERIDIAN M500") = "ND"
+        nRow8("PRESA JALES PEÑA COLORADA") = "ND"
+        nRow8("MINA LA CRUZ") = "ND"
+        nRow8("TOGUI -UBER") = "ND"
+        nRow8("SAN IGNACIO") = "ND"
+        nRow8("Porcentaje") = "50%"
+
+        nRow9("Numero") = "14"
+        nRow9("Indicador") = "Consumo de combustible"
+        nRow9("Comentarios") = ""
+        nRow9("ACARREO SAN JOSE A QUILA") = "ND"
+        nRow9("PIPER MERIDIAN M500") = "ND"
+        nRow9("PRESA JALES PEÑA COLORADA") = "ND"
+        nRow9("MINA LA CRUZ") = "ND"
+        nRow9("TOGUI -UBER") = "ND"
+        nRow9("SAN IGNACIO") = "ND"
+        nRow9("Porcentaje") = "50%"
+
+        nRow10("Numero") = "15"
+        nRow10("Indicador") = "Relación de entradas de almacén contra órdenes de compra"
+        nRow10("Comentarios") = "Relación"
+        nRow10("ACARREO SAN JOSE A QUILA") = ""
+        nRow10("PIPER MERIDIAN M500") = ""
+        nRow10("PRESA JALES PEÑA COLORADA") = ""
+        nRow10("MINA LA CRUZ") = ""
+        nRow10("TOGUI -UBER") = ""
+        nRow10("SAN IGNACIO") = ""
+        nRow10("Porcentaje") = ""
+
+
+        DTDatos.Rows.Add(nRow1)
+        DTDatos.Rows.Add(nRow2)
+        DTDatos.Rows.Add(nRow3)
+        DTDatos.Rows.Add(nRow4)
+        DTDatos.Rows.Add(nRow5)
+        DTDatos.Rows.Add(nRow6)
+        DTDatos.Rows.Add(nRow7)
+        DTDatos.Rows.Add(nRow8)
+        DTDatos.Rows.Add(nRow9)
+        DTDatos.Rows.Add(nRow10)
+
+        DTDatos.AcceptChanges()
+        Return DTDatos
+
+    End Function
+
+    Public Sub CargaDatos()
+
+
+
+        LnkExportar.Visible = False
+
+        GvDatos.DataSource = CrearTablaDatos()
+        GvDatos.DataBind()
+        'LnkExportar.Visible = True
+        'GvDatos.DataBind()
+
+        If GvDatos.Rows.Count > 0 Then
+            LnkExportar.Visible = True
+        End If
+
+        UpDatos.Update()
+
+    End Sub
+
+
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+    End Sub
+
+#Region "EXCEL"
+
+    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+
+
+        Dim SbFiltros As New StringBuilder()
+        SbFiltros.AppendFormat($"Ejercicio: {DdlEjercicio.SelectedItem.Text} Periodo: {DdlPeriodo.SelectedItem.Text}|")
+
+
+        ' GvDatos.Columns(10).Visible = False
+        GvDatos.ExportToExcelGembox("IndicadoresEMD", UsuarioActual, "Indicadores EMD", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
+        ' GvDatos.Columns(10).Visible = True
+
+
+
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
+
+#End Region
+
+
+
+
+
+
+
+
+End Class

OI/TareaDetalle.aspx.cs

@@ -51,6 +51,12 @@ public partial class OI_TareaDetalle : ClsPaginas
     public System.Data.DataTable CheckListNew { get { return ViewState["CheckListNew"] != null ? (System.Data.DataTable)ViewState["CheckListNew"] : null; } set { ViewState["CheckListNew"] = value; } }
     public int chklistitemindex { get { return ViewState["chklistitemindex"] != null ? ViewState["chklistitemindex"].ToString().ToEntero() : 0; } set { ViewState["chklistitemindex"] = value; } }
 
+
+    public int CveIndicador { get { return ViewState["CveIndicador"].ToString().ToEntero(); } set { ViewState["CveIndicador"] = value; } }
+    public int Indicador { get { return ViewState["Indicador"].ToString().ToEntero(); } set { ViewState["Indicador"] = value; } }
+    public int ValorIndicador { get { return ViewState["ValorIndicador"].ToString().ToEntero(); } set { ViewState["ValorIndicador"] = value; } }
+    public int CveSubProyectoIndicador { get { return ViewState["CveSubProyectoIndicador"].ToString().ToEntero(); } set { ViewState["CveSubProyectoIndicador"] = value; } }
+
     #endregion
     protected void Page_Load(object sender, EventArgs e)
     {
@@ -72,6 +78,12 @@ public partial class OI_TareaDetalle : ClsPaginas
             EsNuevo = true;
             CveUsuarioPara = 0;
             CveUsuarioDe = 0;
+            
+            CveIndicador = -1;
+            Indicador = -1;
+            ValorIndicador = -1;
+            CveSubProyectoIndicador = -1;
+
             if (Request["Archivo"] != null)
             {
                 string strArchivo = string.Format("{0}{1}", UsuarioActual.Empresa.Ruta, ModExtensiones.Decripta(Request["Archivo"].ToString()));
@@ -458,6 +470,11 @@ public partial class OI_TareaDetalle : ClsPaginas
                 //OIE.[CveEventoEstatus], OIE.[FechaInicio], OIE.[FechaFin], OIE.[FechaRealTermino], OIE.[CveRevision], OIE.[Archivo], OIE.[FechaIng], 
                 //OIE.[CveUsuarioIng], OIE.[CveEmpresa], OIE.[CveUsuarioModifico], OIE.[Avance]
 
+                CveIndicador = drow["CveIndicador"].ToString().ToEntero();
+                Indicador = drow["Indicador"].ToString().ToEntero();
+                ValorIndicador = drow["ValorIndicador"].ToString().ToEntero();
+                CveSubProyectoIndicador = drow["CveSubProyectoIndicador"].ToString().ToEntero();
+
                 LtlVinculo.Text = "";
                 LtlVinculoLink.Text = "";
                 CveEventoPadre = drow["CveEventoPadre"].ToString().ToEntero();
@@ -1021,8 +1038,15 @@ public partial class OI_TareaDetalle : ClsPaginas
             using (ClsOIEventos objOI = new ClsOIEventos())
             {
 
+                objOI.IniciaTransacSQL();
+                bool ProcesoOK = false;
 
                 if (objOI.UpdateEstatusEvento2(CveEstatus, -1, RCveEvento, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtComentarioTerminarpadre.Text))
+                {
+                    ProcesoOK = true;                   
+                }
+
+                if (ProcesoOK)
                 {
                     ObjEventosCorreo o = objOI.objCorreo;
                     if (CveEstatus >= 3)
@@ -1033,31 +1057,22 @@ public partial class OI_TareaDetalle : ClsPaginas
                     {
                         pnlfecharealtermino.Visible = false;
                     }
-                    //CargaEstatusEventos(DdlEventoEstatus.SelectedValue.ToEntero);
 
-                    //if (DdlEventoEstatus.SelectedValue.ToEntero == 3 | DdlEventoEstatus.SelectedValue.ToEntero == 1)
-                    //    EnviarCorreoCambioEstatus(false);
-                    //CargaDatos();
                     if (CveEstatus == 4)
                     {
                         TxtAvance.Text = "100";
                         LblPorcentaje.Text = string.Format("{0:##0.##}", "100".ToDecimal());
                     }                    
-                    string mensaje = string.Format("Se cambió el Estatus de \"{0}\" a \"{1}\"", DdlEventoEstatus.SelectedItem.Text, DDlEstatus.SelectedItem.Text);
-                    DdlEventoEstatus.SelectedValueExist(DDlEstatus.SelectedValue);
-                    lblEstatus.Text = DdlEventoEstatus.SelectedItem.Text;
-                    UpEstatus.Update();
-                    RegistraScript(string.Format("$('#{0}').modal('hide')", iddivCambiarEstatus));
-                    Alert(mensaje, ModExtensiones.TipoMensaje.ToastInformacion);
-                    cargaActividades(objOI);
 
                     string Nombrede = "";
                     string Nombrepara = "";
+
                     System.Data.DataTable dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa);
                     if (dt.Rows.Count > 0)
                     {
                         Nombrede = dt.Rows[0]["Nombre"].ToString();
                     }
+
                     dt = get_GlobalDTUsuarios(CveUsuario: CveUsuarioDe, CveEmpresa: UsuarioActual.CveEmpresa);
                     if (dt.Rows.Count > 0)
                     {
@@ -1068,10 +1083,46 @@ public partial class OI_TareaDetalle : ClsPaginas
                     DateTime FFin = txtFechaF.Text.ToDateTimeExcat();
                     if (o != null)
                     {
-                        string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, fInicio,FFin, o.Prioridad, o.Tema, Nombrede, Nombrepara, string.Format("Tarea Estatus Actualizado ({0})", o.Estatus));
+                        string mailbody = MailgetBodyNuevatarea(o.Folio, o.Link, o.Asunto, o.Descripcion, fInicio, FFin, o.Prioridad, o.Tema, Nombrede, Nombrepara, string.Format("Tarea Estatus Actualizado ({0})", o.Estatus));
                         EnviarCorreo(UsuarioActual.Empresa, o.AsuntoCorreo, mailbody, o.mailPara, "");
                     }
+                }
 
+                if (ProcesoOK && CveIndicador > 0 && (DDlEstatus.SelectedValue.ToEntero() == 3 || DDlEstatus.SelectedValue.ToEntero() == 4)){
+                    if(Indicador == 1)
+                    {
+                        int Valor = 0;
+                        int dias = (int) (txtFechaF.Text.ToDate() - NowADS()).TotalDays;
+                        if (dias >= -2)
+                        {
+                            Valor = 1;
+                        }
+
+                        if (!objOI.UpdateIndicador(CveIndicador, Valor, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
+                        {
+                            ProcesoOK = false;
+                        }
+                    }                    
+                }
+
+                if (ProcesoOK){
+
+                    cargaActividades(objOI);
+
+                    objOI.Commit();
+
+                    string mensaje = string.Format("Se cambió el Estatus de \"{0}\" a \"{1}\"", DdlEventoEstatus.SelectedItem.Text, DDlEstatus.SelectedItem.Text);
+                    DdlEventoEstatus.SelectedValueExist(DDlEstatus.SelectedValue);
+                    lblEstatus.Text = DdlEventoEstatus.SelectedItem.Text;
+                    UpEstatus.Update();
+                    RegistraScript(string.Format("$('#{0}').modal('hide')", iddivCambiarEstatus));
+
+                    Alert(mensaje, ModExtensiones.TipoMensaje.ToastInformacion);
+                    
+
+                }
+                else{
+                    objOI.RollBack();
                 }
 
             }

OS/RepOSEstatus.aspx

@@ -0,0 +1,19 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepOSEstatus.aspx.vb" Inherits="OS_RepOSEstatus" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
+</asp:Content>
+

OS/RepOSEstatus.aspx.vb

@@ -0,0 +1,5 @@
+
+Partial Class OS_RepOSEstatus
+    Inherits System.Web.UI.Page
+
+End Class

Transportes/RepContratos.aspx

@@ -269,7 +269,7 @@
                                         <label class="col-md-4">Servicio</label>
                                         <div class="col-md-8">
                                             <div class="input-group">
-                                                <asp:TextBox ID="TxtDescripcion" runat="server" MaxLength="70" Width="100%"
+                                                <asp:TextBox ID="TxtDescripcion" runat="server" MaxLength="250" Width="100%"
                                                     TextMode="MultiLine"
                                                     Rows="3"></asp:TextBox>
                                                 <asp:RequiredFieldValidator ID="RFVDescripcion" runat="server" ControlToValidate="TxtDescripcion"
@@ -289,7 +289,7 @@
                                         <label class="col-md-4">Observaciones</label>
                                         <div class="col-md-8">
                                             <div class="input-group">
-                                                <asp:TextBox ID="TxtObservaciones" runat="server" MaxLength="70" Width="100%"
+                                                <asp:TextBox ID="TxtObservaciones" runat="server" MaxLength="200" Width="100%"
                                                     TextMode="MultiLine"
                                                     Rows="3"></asp:TextBox>
                                                 <div class="input-group-addon">

Transportes/RepContratosCalendario.aspx

@@ -21,7 +21,7 @@
 
         #chartdiv {
             width: 100%;
-            height: 700px;
+            height: 600px;
         }
     </style>
 </asp:Content>
@@ -280,36 +280,33 @@
                     <ajax:TabPanel ID="TabGrantt" runat="server" HeaderText="Cronograma">
                         <ContentTemplate>
                             <asp:UpdatePanel ID="UPPGantt" runat="server" UpdateMode="Conditional">
-                        <ContentTemplate>
+                                <ContentTemplate>
-          
+                                    <div class="portlet solid  grey-cascade portlet-filter">
-                            <div class="portlet solid  grey-cascade portlet-filter">                               
+                                        <div class="portlet-title portlet-filterT smalltitle">
-                                <div class="portlet-title portlet-filterT smalltitle">
+                                            <div class="tools">
-                                    <div class="tools">                                         
+                                                <a href="javascript:;" class="expand"></a>
-                                        <a href="javascript:;" class="expand"></a>
+                                            </div>
-                                    </div>
+                                            <div class="titlefiltros  caption">
-                                    <div class="titlefiltros  caption">
+                                                <div class="row" style="height: 32px;">
-                                        <div class="row" style="height: 32px;">
+                                                    <label class="col-md-1 truncate">Tipo Vista:</label>
-                                           
+                                                    <div class="col-md-1">
-                                            <label class="col-md-1 truncate">Vista</label>  
+                                                        <asp:DropDownList ID="DdlTipoVista" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoVista_SelectedIndexChanged" CssClass="form-control  select2me input-sm select2me Widthall"
-                                            <div class="col-md-1">
+                                                            Style="width: 100%;" runat="server">
-                                                <asp:DropDownList ID="DdlTipoVista"  AutoPostBack="true" OnSelectedIndexChanged ="DdlTipoVista_SelectedIndexChanged" CssClass="form-control  select2me input-sm select2me Widthall"
+                                                            <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
-                                                    Style="width: 100%;" runat="server">
+                                                            <asp:ListItem Text="Solo Viaje" Value="1"></asp:ListItem>
-                                                    <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                                                        </asp:DropDownList>
-                                                    <asp:ListItem Text="solo viaje" Value="1"></asp:ListItem>
+                                                    </div>
-                                                </asp:DropDownList>
+                                                </div>
                                             </div>
                                         </div>
                                     </div>
-                                </div>
+                                </ContentTemplate>
-                            </div>
-                               </ContentTemplate>
                             </asp:UpdatePanel>
                             <div class="row">
                                 <div class="col-md-12">
-                                   <div id="chartdiv" style="width:100%; min-height:300px;"></div>
+                                    <div id="chartdiv"></div>
                                 </div>
                             </div>
-                    
                         </ContentTemplate>
                     </ajax:TabPanel>
                 </ajax:TabContainer>
@@ -526,7 +523,6 @@
             "February": "Febrero",
             "March": "Marzo",
             "April": "Abril",
-            "May": "Mayo",
             "June": "Junio",
             "July": "Julio",
             "August": "Agosto",
@@ -537,7 +533,7 @@
 
         };
 
-        function cargaDiagramaGrant(data, categorias) {
+        function cargaDiagramaGrant(data, categorias, TipoVista) {
 
             am5.ready(function () {
                 //SI YA HAY GRAFICA, QUITA LA ACTUAL PARA HACER UNA NUEVA
@@ -650,23 +646,24 @@
 
                 chart.set("scrollbarY", scrollbarY);
 
-                /// evento para ajustar el alto del row
-                var cellSize = 30;
-                chart.events.on("datavalidated", function (ev) {
                
-                    // Get objects of interest
+                series.events.on("datavalidated", function (ev) {
-                    var chart = ev.target;
+                    let cellSize = 45;
-                    var categoryAxis = chart.yAxes.getIndex(0);
+
+                    if (TipoVista == 1) {
+                         cellSize = 60;
+                    }
+                    //let series = ev.target;
+                    //let chart = series.chart;
+                    let xAxis = chart.xAxes.getIndex(0);
 
                     // Calculate how we need to adjust chart height
-                    var adjustHeight = chart.data.length * cellSize - categoryAxis.pixelHeight;
+                    let chartHeight = categorias.length * cellSize + xAxis.height() + chart.get("paddingTop", 0) + chart.get("paddingBottom", 0);
-
-                    // get current chart height
-                    var targetHeight = chart.pixelHeight + adjustHeight;
 
                     // Set it on chart's container
-                    chart.svgContainer.htmlElement.style.height = targetHeight + "px";
+                    chart.root.dom.style.height = chartHeight + "px";
                 });
+                //root.language.setTranslationAny("May", "Mayo");
 
                 // Make stuff animate on load
                 // https://www.amcharts.com/docs/v5/concepts/animations/
@@ -699,8 +696,13 @@
             $('#<%=TxtObservaciones.ClientID%>').val(event.title);
             $('#<%=TxtDescripcion.ClientID%>').val(event.title);
             $('#<%=TxtUbicacion.ClientID%>').val(event.NombreAcercamiento);
-            $('#<%=TxtFechaSalida.ClientID%>').val(event.start._i);
+
-            $('#<%=TxtFechaRegreso.ClientID%>').val(event.end._i);
+            <%--$('#<%=TxtFechaSalida.ClientID%>').val(event.start._i);
+            $('#<%=TxtFechaRegreso.ClientID%>').val(event.end._i);--%>
+
+            $('#<%=TxtFechaSalida.ClientID%>').val(formatearFechaISO(event.start._i));
+            $('#<%=TxtFechaRegreso.ClientID%>').val(formatearFechaISO(event.FechaFinal));
+
             $('#<%=DdlClientes.ClientID%>').val(event.CveCliente);
             $('#<%=DdlAF.ClientID%>').val(event.CveActivoFijo);
             $('#<%=DdlChofer.ClientID%>').val(event.CvePersonal);
@@ -723,6 +725,30 @@
             $('#<%=BtnModal.ClientID%>').click();
         }
 
+
+        function formatearFechaISO(fechaISO) {
+            let fecha = new Date(fechaISO);
+
+            // Formatear la fecha en DD/MM/YYYY
+            let dia = fecha.getDate().toString().padStart(2, '0');
+            let mes = (fecha.getMonth() + 1).toString().padStart(2, '0'); // getMonth() devuelve mes de 0-11
+            let año = fecha.getFullYear();
+
+            // Formatear la hora en formato 12 horas con AM/PM
+            let horas = fecha.getHours();
+            let minutos = fecha.getMinutes().toString().padStart(2, '0');
+            let periodo = 'a. m.';
+            if (horas >= 12) {
+                periodo = 'p. m.';
+                horas = horas > 12 ? horas - 12 : horas; // Convertir hora de formato 24 a 12 horas
+            }
+            if (horas === 0) horas = 12; // Medianoche se muestra como 12 a.m.
+            horas = horas.toString().padStart(2, '0');
+
+            // Combinar la fecha y la hora
+            return `${dia}/${mes}/${año} ${horas}:${minutos}:00 ${periodo}`;
+        }
+
         function RadionButtonSelectedValueSet(name, SelectdValue) {
             $('input[name="' + name + '"][value="' + SelectdValue + '"]').prop('checked', true);
         }
@@ -827,6 +853,8 @@
             });
         }
 
+
+
     </script>
 
 

Transportes/RepContratosCalendario.aspx.vb

@@ -103,7 +103,7 @@ Partial Class RepContratosCalendario
                 jsonCategorias.Add(obj)
             Next
 
-            RegistraScript($"cargaDiagramaGrant({jsonData.ToString()},{jsonCategorias.ToString()});", "A1")
+            RegistraScript($"cargaDiagramaGrant({jsonData.ToString()},{jsonCategorias.ToString()},{TipoVista});", "A1")
             UPPGantt.Update()
         End If
     End Sub

Ventas/Ventas.aspx

@@ -9620,9 +9620,10 @@
                             $get('TxtNCImporte').value = FormatoNumero(ToDouble($get('TxtNCImporte').value) + ToDouble(TxtImporte.value), 2);
                         }else {
                             $get('TxtNCImporte').value = FormatoNumero(ToDouble($get('TxtNCImporte').value) + Importe, 2);    
+                            TxtImporte.value = FormatoNumero(Importe, 2);
                         }
                         
-                        if (ToDouble(TxtImporte.value) <= 0) {
+                        if (ToDouble(TxtImporte.value.replace(",", "")) <= 0) {
                             Chk.checked = false;
                         }
 

Ventas/Ventas.aspx.vb

@@ -2286,6 +2286,15 @@ Partial Class Ventas
         End Set
     End Property
 
+    Private Property TieneBloqueoPorCreditoVencimiento As Integer
+        Get
+            Return IfNull(ViewState("TieneBloqueoPorCreditoVencimiento"), "0", ViewState("TieneBloqueoPorCreditoVencimiento")).ToString().ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("TieneBloqueoPorCreditoVencimiento") = value
+        End Set
+    End Property
+
     Private Property EsNCDevolucionEfectivo As Boolean
         Get
             Return If(IsNothing(ViewState("EsNCDevolucionEfectivo")), False, CType(ViewState("EsNCDevolucionEfectivo"), Boolean))
@@ -2439,6 +2448,8 @@ Partial Class Ventas
             Me.CveVendedorContrato = -1
             Me.CveVendedorEmpresaCRM = -1
             Me.EsGarantia = False
+            Me.TieneBloqueoPorCreditoVencimiento = 0
+            Me.ClienteEsDistribuidor = False
             CveEmpresaCRM = 0
             CveAcercamientoCRM = 0
             EstatusCliente = False
@@ -5905,7 +5916,7 @@ Partial Class Ventas
                         End If
 
                         'ACTIVA BOTONERA | DEBE TENER CONCEPTOS PENDIENTES DE FACTURAR
-                        If TmpDT.SUM("CantidadFacturadaRem") < TmpDT.SUM("Cantidad") Then
+                        If (TmpDT.SUM("CantidadFacturadaRem") < TmpDT.SUM("Cantidad")) AndAlso TieneBloqueoPorCreditoVencimiento = 0 Then
                             BtnsFacturar.Visible = True
 
                             'E119, bloquear la facturación de remisiones que no estén surtidas
@@ -5935,48 +5946,51 @@ Partial Class Ventas
                         'Si es Empresa de Acumuladores
                         If CveVenta > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DbRowVenta("TipoDocto").ToString() = "Rem" AndAlso (GlobalDTEstatusFactura().FiltroPrimeroValor("TipoEstatus", $"CveEstatusFactura = {Me.CveEstatus}").ToEntero() <> 5) Then
 
-                            BtnsFacturar.Visible = False
+                            If TieneBloqueoPorCreditoVencimiento = 0 Then
-
-                            Dim DtUsadosPendientes As DataTable = Nothing
-                            Dim DtGarantiasPendientes As DataTable = Nothing
-
-                            Dim ObjUsados As New ClsVentas
-
-                            If ObjUsados.GetVentasUsados(CveVenta, -1, DbRowVenta("Fecha").ToString().ToDateTime, UsuarioActual.CveEmpresa) Then
-                                DtUsadosPendientes = ObjUsados.DtResultados.Copy()
-                            End If
-
-                            If ObjUsados.GetVentasGarantiaPendiente(CveVenta, NowADS(), UsuarioActual.CveEmpresa) Then
-                                DtGarantiasPendientes = ObjUsados.DtResultados.Copy()
-                            End If
-
-                            'If ObjUsados.GetVentasGarantiaPendiente(CveVenta, -1, NowADS(), UsuarioActual.CveEmpresa) Then
-                            '    DtGarantiasPendientes = ObjUsados.DtResultados.Copy()
-                            'End If
-
-                            ObjUsados.Dispose()
-
-                            BtnsFacturar.Visible = True
-
-                            'VERIFICA SI YA SE FACTURO COMPLETAMENTE
-                            If TmpDT.SUM("CantidadFacturadaRem") = TmpDT.SUM("Cantidad") Then
                                 BtnsFacturar.Visible = False
-                            End If
 
-                            'VERIFICA SI TIENE USADOS O GARANTIAS PENDIENTES
+                                Dim DtUsadosPendientes As DataTable = Nothing
-                            If BtnsFacturar.Visible Then
+                                Dim DtGarantiasPendientes As DataTable = Nothing
-                                If (Not EsGarantia AndAlso (DtUsadosPendientes IsNot Nothing AndAlso DtUsadosPendientes.Rows.Count > 0)) Then
+
-                                    BtnsFacturar.Visible = False
+                                Dim ObjUsados As New ClsVentas
-                                    Alert("Tiene usados pendiente de recibir", TipoMensaje.MsgAdvertencia)
+
+                                If ObjUsados.GetVentasUsados(CveVenta, -1, DbRowVenta("Fecha").ToString().ToDateTime, UsuarioActual.CveEmpresa) Then
+                                    DtUsadosPendientes = ObjUsados.DtResultados.Copy()
                                 End If
 
-                                If (EsGarantia AndAlso (DtGarantiasPendientes IsNot Nothing AndAlso DtGarantiasPendientes.Rows.Count > 0)) Then
+                                If ObjUsados.GetVentasGarantiaPendiente(CveVenta, NowADS(), UsuarioActual.CveEmpresa) Then
-                                    Alert("Tiene garantías pendientes de recibir", TipoMensaje.MsgAdvertencia)
+                                    DtGarantiasPendientes = ObjUsados.DtResultados.Copy()
+                                End If
+
+                                'If ObjUsados.GetVentasGarantiaPendiente(CveVenta, -1, NowADS(), UsuarioActual.CveEmpresa) Then
+                                '    DtGarantiasPendientes = ObjUsados.DtResultados.Copy()
+                                'End If
+
+                                ObjUsados.Dispose()
+
+                                BtnsFacturar.Visible = True
+
+                                'VERIFICA SI YA SE FACTURO COMPLETAMENTE
+                                If TmpDT.SUM("CantidadFacturadaRem") = TmpDT.SUM("Cantidad") Then
                                     BtnsFacturar.Visible = False
                                 End If
+
+                                'VERIFICA SI TIENE USADOS O GARANTIAS PENDIENTES
+                                If BtnsFacturar.Visible Then
+                                    If (Not EsGarantia AndAlso (DtUsadosPendientes IsNot Nothing AndAlso DtUsadosPendientes.Rows.Count > 0)) Then
+                                        BtnsFacturar.Visible = False
+                                        Alert("Tiene usados pendiente de recibir", TipoMensaje.MsgAdvertencia)
+                                    End If
+
+                                    If (EsGarantia AndAlso (DtGarantiasPendientes IsNot Nothing AndAlso DtGarantiasPendientes.Rows.Count > 0)) Then
+                                        Alert("Tiene garantías pendientes de recibir", TipoMensaje.MsgAdvertencia)
+                                        BtnsFacturar.Visible = False
+                                    End If
+                                End If
+
+                                LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
                             End If
 
-                            LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
                         End If
 
                         'SI ES COMPLEMENTARIA, NO DEBE PERMITIR FACTURAR
@@ -6071,7 +6085,7 @@ Partial Class Ventas
                     CargaPS(-1, DdlPS)
 
                     'Verifico si tiene la funcionalidad (135)
-                    If DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(135).Contiene("1", "2") Then
+                    If DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(135).Contiene("1", "2") AndAlso TieneBloqueoPorCreditoVencimiento = 0 Then
 
                         Select Case UsuarioActual.Empresa.Funcionalidad(135)
                             Case "1" ' POR SUPERVISOR
@@ -6182,14 +6196,13 @@ Partial Class Ventas
     End Function
 
     Private Sub VerificarBtnFacturarCotizacion(CveVendedor As Integer, Optional MostrarGenerarRemision As Boolean = True)
-        If TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") AndAlso DdlTipoComprobante.SelectedValue.Contiene("Cot") Then
+        If TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") AndAlso DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso TieneBloqueoPorCreditoVencimiento = 0 Then
 
             If UsuarioActual.TienePermisoProceso(199) Then
                 BtnGenerarRemision.Visible = If(CveEstatus = 10, False, True)
             Else
                 BtnGenerarRemision.Visible = False
             End If
-
             If UsuarioActual.TienePermisoProceso(60) Then BtnsFacturar.Visible = True 'puede facturar
 
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.TienePermisoProceso(60) Then
@@ -7590,7 +7603,7 @@ Partial Class Ventas
                             If Not EsCreaApartirDe AndAlso (DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0) Then
                                 DdlTipoComprobante.SelectedValueExist("Cot")
                             Else
-                                If UsuarioActual.Empresa.Funcionalidad(531) <> "1" Then
+                                If UsuarioActual.Empresa.Funcionalidad(595) = "1" Then
                                     DdlTipoComprobante.SelectedValueExistInsert("PA", "Autorización")
                                     DdlTipoComprobante.SelectedValue = "PA"
 
@@ -7611,9 +7624,19 @@ Partial Class Ventas
                                 DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
                             End If
 
+                            Dim Bloqueo As Boolean = False
+
+                            If Not DdlTipoComprobante.SelectedValue.Contiene("PA") AndAlso UsuarioActual.Empresa.Funcionalidad(531) <> "1" Then
+                                Bloqueo = True
+                            End If
+
+                            'SI EL CLIENTE ES DISTRIBUIDOR Y TIENE FACTURAS VENCIDAS, DEBE BLOQUEAR
+                            If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ClienteEsDistribuidor AndAlso Opcion.Contiene(2, 3) Then
+                                Bloqueo = True
+                            End If
 
                             'SI ES AUTORIZACION DEBE PERMITIR GENERARLA
-                            If (Not DdlTipoComprobante.SelectedValue.Contiene("PA")) AndAlso UsuarioActual.Empresa.Funcionalidad(531) <> "1" Then
+                            If Bloqueo Then
                                 BtnEmitirImprimir.Visible = False
                                 BtnsFacturar.Visible = False
                                 LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
@@ -7621,6 +7644,11 @@ Partial Class Ventas
                                 LnkPedido2SinFacturar.Visible = False
                                 LnkCotizaciones.Visible = False
                                 LnkOCs.Visible = False
+
+                                If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                                    TieneBloqueoPorCreditoVencimiento = 1
+                                End If
+
                             End If
 
                             If DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
@@ -7645,6 +7673,7 @@ Partial Class Ventas
                                 'SI NO TIENE AUTORIZACION, MANTIENE EL BLOQUEO POR CONDICIONES DE CREDITO
                                 If Autorizacion > 0 Then
                                     BtnsFacturar.Visible = True
+                                    TieneBloqueoPorCreditoVencimiento = 0
                                 End If
                             End If
 
@@ -7688,6 +7717,7 @@ Partial Class Ventas
                                 'SI NO TIENE AUTORIZACION, MANTIENE EL BLOQUEO POR CONDICIONES DE CREDITO
                                 If Autorizacion > 0 Then
                                     BtnsFacturar.Visible = True
+                                    TieneBloqueoPorCreditoVencimiento = 0
                                 End If
                             End If
 
@@ -7758,6 +7788,10 @@ Partial Class Ventas
                                         BtnsFacturar.Visible = False
                                         BtnGenerarRemision.Visible = False
                                         Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
+
+                                        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ClienteEsDistribuidor AndAlso Opcion.Contiene(2, 3) Then
+                                            TieneBloqueoPorCreditoVencimiento = 1
+                                        End If
                                     End If
                                 End If
                             End If
@@ -7773,45 +7807,62 @@ Partial Class Ventas
                             End If
                             ObjVentas.Dispose()
                         Case Else 'SI NO TIENE NINGUN TIPO DE AUTORIZACION CONFIGURADO
-                            'RMF. codigo temporal para pruebas
+                            'VERIFICAR CANDADOS DE VENTA
-                            If Alertas AndAlso UsuarioActual.CveEmpresa = 140 Then
+                            If DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0 Then
                                 Dim Vta As New ClsVentas
                                 Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
                                 Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
                                 Vta.Dispose()
                                 If Opcion > 0 Then
-                                    LnkSolicitarCredito.Visible = True
+                                    BtnsFacturar.Visible = False
+                                    BtnGenerarRemision.Visible = False
                                     Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
+                                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ClienteEsDistribuidor AndAlso Opcion.Contiene(2, 3) Then
+                                        TieneBloqueoPorCreditoVencimiento = 1
+                                    End If
                                 End If
+                            End If
+
+                            If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+                                RBLPago.SelectedValue = "2"
+                                RBLPago.Items(0).Enabled = False
+                                RBLPago_SelectedIndexChanged(Nothing, Nothing)
+                                UPCondicionesPago.Update()
                             Else
-                                'VERIFICAR CANDADOS DE VENTA
+                                'este codigo no es temporal
-                                If DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0 Then
+                                If Alertas Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
-                                    Dim Vta As New ClsVentas
+
-                                    Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
+                                If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                                    Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
+                                    LnkSolicitarCredito.Visible = True
-                                    Vta.Dispose()
+                                    DdlTipoAutorizacion.SelectedValueExist("1")
-                                    If Opcion > 0 Then
+
-                                        BtnsFacturar.Visible = False
+                                    If Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "PA") Then
-                                        BtnGenerarRemision.Visible = False
+                                        Dim Autorizacion As Integer = 0
-                                        Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
+
+                                        Dim ObjVentas As New ClsVentas
+                                        If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedor.SelectedValue.ToEntero, "Ing", CveEstatus:=1) Then
+                                            Dim RowAutorizacion As DataRow = Nothing
+                                            'SI TIENE DIAS VENCIDOS BUSCAR POR TIPO VENCIMIENTO
+                                            If TieneDiasVencidos Then
+                                                RowAutorizacion = ObjVentas.DtResultados.FiltroPrimero($"TipoAutorizacion IN(1,2) AND CveVenta IS NULL AND CveTipoDocumento='Ing'", Orderby:="Importe DESC")
+                                            Else
+                                                RowAutorizacion = ObjVentas.DtResultados.FiltroPrimero($"TipoAutorizacion = 1 AND CveVenta IS NULL AND CveTipoDocumento='Ing'", Orderby:="Importe DESC")
+                                            End If
+
+                                            If RowAutorizacion IsNot Nothing Then
+                                                Autorizacion = RowAutorizacion("CveAutorizacion").ToString().ToEntero()
+                                            End If
+                                        End If
+                                        ObjVentas.Dispose()
+
+                                        'SI NO TIENE AUTORIZACION, MANTIENE EL BLOQUEO POR CONDICIONES DE CREDITO
+                                        If Autorizacion <= 0 Then
+                                            BtnEmitirImprimir.Visible = False
+                                            TieneBloqueoPorCreditoVencimiento = 1
+                                        End If
+
                                     End If
                                 End If
-
-                                If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
-                                    RBLPago.SelectedValue = "2"
-                                    RBLPago.Items(0).Enabled = False
-                                    RBLPago_SelectedIndexChanged(Nothing, Nothing)
-                                    UPCondicionesPago.Update()
-                                Else
-                                    'este codigo no es temporal
-                                    If Alertas Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
-                                    If UsuarioActual.CveEmpresa = 140 Then
-                                        LnkSolicitarCredito.Visible = True
-                                        DdlTipoAutorizacion.SelectedValueExist("1")
-                                    End If
-                                End If
-
-
                             End If
                     End Select
 
@@ -7822,13 +7873,32 @@ Partial Class Ventas
 
             'VERIFICAR RESTRICCIONES DEL CLIENTE
             If Not UsuarioActual.Empresa.Funcionalidad(702).ToEntero() > 0 Then
-                If (DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0 AndAlso RBLPago.SelectedValue = "2") Then
+
-                    Dim Valida As Boolean = True
+                Dim ValidaRemision As Boolean = False
-                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso (Me.CveCliente = UsuarioActual.Empresa.Funcionalidad(714).ToEntero() OrElse Me.PermiteCredito) Then
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-                        Valida = False
+                    ValidaRemision = True
+                End If
+
+                Dim ValidaCondicionesCredito As Boolean = False
+
+                'SI ES UNA VENTA EXISTENTE
+                If CveVenta > 0 Then
+                    If (DdlTipoComprobante.SelectedValue = "Cot") AndAlso RBLPago.SelectedValue = "2" Then
+                        ValidaCondicionesCredito = True
                     End If
 
-                    If Valida Then
+                    If (ValidaRemision AndAlso DdlTipoComprobante.SelectedValue = "Rem") AndAlso RBLPago.SelectedValue = "1" Then
+                        ValidaCondicionesCredito = True
+                    End If
+                End If
+
+                If ValidaCondicionesCredito Then
+                    Dim ValidaCliente As Boolean = True
+                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso (Me.CveCliente = UsuarioActual.Empresa.Funcionalidad(714).ToEntero() OrElse Me.PermiteCredito) Then
+                        ValidaCliente = False
+                    End If
+
+                    If ValidaCliente Then
                         Dim Vta As New ClsVentas
                         Dim Opcion As Integer = Vta.ObtenerClienteLimitesVenta(CveCliente, UsuarioActual.CveEmpresa)
                         Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", Vta.SerieVenta)
@@ -7858,6 +7928,10 @@ Partial Class Ventas
                                 Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
                                 BtnsFacturar.Visible = False
                                 BtnGenerarRemision.Visible = False
+
+                                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ClienteEsDistribuidor AndAlso Opcion.Contiene(2, 3) Then
+                                    TieneBloqueoPorCreditoVencimiento = 1
+                                End If
                             End If
 
                         Else
@@ -7865,6 +7939,10 @@ Partial Class Ventas
                                 Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
                                 BtnsFacturar.Visible = False
                                 BtnGenerarRemision.Visible = False
+
+                                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ClienteEsDistribuidor AndAlso Opcion.Contiene(2, 3) Then
+                                    TieneBloqueoPorCreditoVencimiento = 1
+                                End If
                             End If
                         End If
                     End If
@@ -17932,7 +18010,7 @@ Partial Class Ventas
         TrAlmacenOrigen.Visible = False
 
         If DdlTipoComprobante.SelectedValue = "Cot" And UsuarioActual.Empresa.Funcionalidad(135).Contiene("1", "2") Then
-            Alert("Se ocupa una autorización.", TipoMensaje.MsgAdvertencia)
+            Alert("Se requiere una autorización.", TipoMensaje.MsgAdvertencia)
             TrDireccion.Visible = False
             TrCiudad.Visible = False
             TrRFC.Visible = False
@@ -18327,14 +18405,14 @@ Partial Class Ventas
                     If Not CveEmpresaCRM > 0 Then
                         'SI ES UNA REMISION EXISTENTE, NO MOSTRAR LOS BOTONES
                         If Not (CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Rem") Then
-                            BtnCrearApartirDe.Enabled = EstatusCliente
+                            BtnCrearApartirDe.Enabled = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
-                            BtnEmitirImprimir.Visible = EstatusCliente
+                            BtnEmitirImprimir.Visible = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
                             TrVistaPrevia.Visible = EstatusCliente
                         End If
                     Else
                         If TipoDoctoConsulta.Contiene("Ing", "Egs", "Ant", "Dev") Then
-                            BtnCrearApartirDe.Enabled = EstatusCliente
+                            BtnCrearApartirDe.Enabled = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
-                            BtnEmitirImprimir.Visible = EstatusCliente
+                            BtnEmitirImprimir.Visible = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
                             TrVistaPrevia.Visible = EstatusCliente
                         Else
                             BtnCrearApartirDe.Enabled = True
@@ -23383,8 +23461,11 @@ Partial Class Ventas
         '    DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND  (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
         'End If
 
-        DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-
+            DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0}", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+        Else
+            DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+        End If
         DtCC.Dispose()
 
         DdlCuentaEfectivo.DataBind()