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

App_Code/CLSErrorMessage.vb

@@ -0,0 +1,18 @@
+Imports ClosedXML.Excel.XLPredefinedFormat
+Imports System.Buffers
+Imports Microsoft.VisualBasic
+
+Public NotInheritable Class CLSErrorMessage
+
+
+    Public Shared Function GetErrorMesagge(mesage As String, ex As Exception, tipoMensaje As Extensiones.ModExtensiones.TipoMensaje) As Tuple(Of String, Extensiones.ModExtensiones.TipoMensaje)
+        Dim newmesage As String = mesage
+        Dim newtipoMensaje As Extensiones.ModExtensiones.TipoMensaje = tipoMensaje
+        If ex.ToString().ToLower().Contains("chk_rh_personalsalarioimss") Then
+            newmesage = "El salario base cotización no puede ser menor al salario diario integrado"
+            newtipoMensaje = Extensiones.ModExtensiones.TipoMensaje.MsgAdvertencia
+        End If
+
+        Return Tuple.Create(newmesage, newtipoMensaje)
+    End Function
+End Class

App_Code/CalendarEvent.vb

@@ -62,4 +62,8 @@ Public Class CalendarEvent
     Public Property NumeroContrato As String
     Public Property Observaciones As String
 
+    Public Property CveMoneda As Integer
+    Public Property Moneda As String
+
+
 End Class

App_Code/ClsContratos.vb

@@ -684,6 +684,48 @@ Public Class ClsContratos
         Return Retorno
     End Function
 
+    Public Function GetContratosValUnidadesAgendadas(CveAF As Integer, FechaInicial As DateTime, FechaFinal As DateTime, CveEmpresa As Integer, CveContrato As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Con_ContratosValUnidadesAgendadasGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@FechaInicial", SqlDbType.DateTime).Value = FechaInicial
+            .Add("@FechaFinal", SqlDbType.DateTime).Value = FechaFinal
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las unidades agendadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+    Public Function UpdateContratoArchivo(CveContrato As Integer, Archivo As String, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Con_ContratosArchivoUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
+            .Add("@Archivo", SqlDbType.VarChar).Value = Archivo
+            .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  archivo adjunto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
 #End Region
 
 

App_Code/ClsNominas.vb

@@ -642,6 +642,22 @@ Public Class ClsNominas
         retorno = RunQuery("Ocurrió un error al obtener el valor de la UMA.")
         Return retorno
     End Function
+    Public Function GetEfectivaleXLS(CvePeriodo As Int32, CveEmpresa As Int32, CvePersonal As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Nom_EfectivaleXLSGet", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el layout de nóminas(Efetivale).", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
     'Public Function GetDispersionnominaXLS(CvePeriodo As Int32, CveEmpresa As Int32) As Boolean
     '    Dim retorno As Boolean = False
     '    DataAdapter("PA_Nom_DispersionnominaXLS", CommandType.StoredProcedure)
@@ -657,9 +673,9 @@ Public Class ClsNominas
     '    End Try
     '    Return retorno
     'End Function
-    Public Function GetDispersionNomina(CvePeriodo As Int32, CveEmpresa As Int32, CveSATBanco As Int32) As Boolean
+    Public Function GetDispersionnomina(CvePeriodo As Int32, CveEmpresa As Int32, CveSATBanco As Int32) As Boolean
         Dim retorno As Boolean = False
-        DataAdapter("PA_Nom_DispersionNomina", CommandType.StoredProcedure)
+        DataAdapter("PA_Nom_Dispersionnomina", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
@@ -1456,7 +1472,7 @@ Public Class ClsNominas
     Public Function AddConcepto(Codigo As String, Concepto As String, Tipo As String, Formula As String, Sistema As Boolean, Estado As Boolean, CveConceptoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer,
                                 EsRetencion As Boolean, CveClasificacion As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer,
                                 AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer,
-                                ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, CveCuentaB As Integer, CveConceptoContablePasivo As Integer) As Integer
+                                ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, CveCuentaB As Integer, CveConceptoContablePasivo As Integer, Optional AplicaEfectivale As Integer = 0) As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_Nom_ConceptosAdd")
@@ -1489,6 +1505,7 @@ Public Class ClsNominas
             .Add("CveConceptoContableB", SqlDbType.Int).Value = cveConceptoContableB
             .Add("CveCuentaB", SqlDbType.Int).Value = CveCuentaB
             .Add("CveConceptoContablePasivo", SqlDbType.Int).Value = CveConceptoContablePasivo
+            .Add("AplicaEfectivale", SqlDbType.Int).Value = AplicaEfectivale
 
         End With
 
@@ -1515,7 +1532,8 @@ Public Class ClsNominas
     Public Function UpdateConcepto(Codigo As String, Concepto As String, Tipo As String, Formula As String, Sistema As Boolean, Estado As Boolean, CveConceptoPadre As Integer, CveConcepto As Integer,
                                    EsRetencion As Boolean, CveClasificacion As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer,
                                    AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer, CveEmpresa As Integer,
-                                   ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, CveCuentaB As Integer, CveConceptoContablePasivo As Integer) As Boolean
+                                   ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, CveCuentaB As Integer,
+                                   CveConceptoContablePasivo As Integer, Optional AplicaEfectivale As Integer = 0) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Nom_ConceptosUpdate")
@@ -1547,6 +1565,7 @@ Public Class ClsNominas
             .Add("CveConceptoContableB", SqlDbType.Int).Value = cveConceptoContableB
             .Add("CveCuentaB", SqlDbType.Int).Value = CveCuentaB
             .Add("CveConceptoContablePasivo", SqlDbType.Int).Value = CveConceptoContablePasivo
+            .Add("AplicaEfectivale", SqlDbType.Int).Value = AplicaEfectivale
         End With
 
         Try

App_Code/ClsVentas.vb

@@ -2157,7 +2157,70 @@ Public Class ClsVentas
 
 #End Region
 
-#Region "V E N T A S - P R E C I O L I S T A S" 'Hecho por Charlie 1/9/2016
+#Region "V E N T A S - P R E C I O L I S T A S"
+
+    Public Function GetPreciosListaSPPermitidos(CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Vta_PrecioListaSPPermitdosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .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 catálogo de listas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetPreciosListasSubProyecto(CvePrecioLista As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Vta_PrecioListaSubProyectosGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
+            .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 Catálogo de Listas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function UpdatePreciosListasSubProyecto(CvePrecioLista As Integer, CveSubProyecto As Integer, Permitir As Boolean, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Vta_PrecioListaSubProyectosUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Permitir", SqlDbType.Bit).Value = Permitir
+            .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 subproyecto del precio de lista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function GetPrecioListas(Optional CveEmpresa As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
@@ -2177,7 +2240,7 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
-    Public Function AddPrecioLista(CveUsuario As Integer, CveEmpresa As Integer, PrecioLista As String, Predeterminada As Boolean, Porcentaje As Double, Optional CvePrecioListaClonar As Integer = -1, Optional UpdateFranquicia As Boolean = False) As Integer
+    Public Function AddPrecioLista(CveUsuario As Integer, CveEmpresa As Integer, PrecioLista As String, Predeterminada As Boolean, Restringida As Boolean, Porcentaje As Double, Optional CvePrecioListaClonar As Integer = -1, Optional UpdateFranquicia As Boolean = False) As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_Vta_PrecioListaAdd")
@@ -2188,6 +2251,7 @@ Public Class ClsVentas
             .Add("@PrecioLista", SqlDbType.VarChar).Value = PrecioLista
             .Add("@Porcentaje", SqlDbType.SmallMoney).Value = Porcentaje
             .Add("@Predeterminada", SqlDbType.Bit).Value = Predeterminada
+            .Add("@Restringida", SqlDbType.Bit).Value = Restringida
             .Add("@CvePrecioListaClonar", SqlDbType.Int).Value = CvePrecioListaClonar
             .Add("@UpdateFranquicia", SqlDbType.Bit).Value = UpdateFranquicia
             .Add("@CvePrecioLista", SqlDbType.Int).Direction = ParameterDirection.Output
@@ -2210,7 +2274,7 @@ Public Class ClsVentas
     End Function
 
     Public Function UpdatePrecioLista(PrecioLista As String, Estatus As Boolean, CveUsuario As Integer, Porcentaje As Double,
-                                      Predeterminada As Boolean, CvePrecioLista As Integer, Optional UpdateFranquicia As Boolean = False) As Boolean
+                                      Predeterminada As Boolean, Restringida As Boolean, CvePrecioLista As Integer, Optional UpdateFranquicia As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_PrecioListaUpdate")
@@ -2221,6 +2285,7 @@ Public Class ClsVentas
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@Porcentaje", SqlDbType.SmallMoney).Value = Porcentaje
             .Add("@Predeterminada", SqlDbType.Bit).Value = Predeterminada
+            .Add("@Restringida", SqlDbType.Bit).Value = Restringida
             .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
             .Add("@UpdateFranquicia", SqlDbType.Bit).Value = UpdateFranquicia
         End With

App_Code/modExtensiones.vb

@@ -600,6 +600,9 @@ Namespace Extensiones
         <Runtime.CompilerServices.Extension()>
         Public Sub OnError(Obj As Object, Mensaje As String, Exeption As Exception, Optional InfoAdicional As String = "", Optional TipoMensaje As TipoMensaje = TipoMensaje.MsgError)
             GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", Mensaje, Exeption.ToString, vbCrLf, InfoAdicional))
+            Dim resultado = CLSErrorMessage.GetErrorMesagge(Mensaje, Exeption, TipoMensaje)
+            Mensaje = resultado.Item1
+            TipoMensaje = resultado.Item2
             Alert(Obj, Mensaje, TipoMensaje)
             If WebConfigurationManager.AppSettings("SiteName") IsNot Nothing AndAlso WebConfigurationManager.AppSettings("SiteName").ToString = "1" Then MandaCorreoError(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", Mensaje, Exeption.ToString, vbCrLf, InfoAdicional))
         End Sub

Ashx/CargaEventos.ashx

@@ -109,10 +109,6 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                         CveUsuario = context.Request("U").ToEntero
                         CveEmpresa = context.Request("E").ToEntero
 
-                        Dim CveSubProyecto As Integer = If(context.Request("CveSubProyecto") IsNot Nothing, context.Request("CveSubProyecto").ToEntero, -1)
-                        Dim CveUsuarioPara As Integer = If(context.Request("CveUsuarioPara") IsNot Nothing, context.Request("CveUsuarioPara").ToEntero, -1)
-
-
                         FI = context.Request("start").ToDate
                         FF = context.Request("end").ToDate
 
@@ -489,18 +485,54 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
         DT_SubProyectos.Columns.Add("backgroundColor")
         DT_EstatusOS.Columns.Add("", GetType(Integer))
 
-        Dim cveContrato As Integer = -1
 
-        If context.Request("cveContrato") IsNot Nothing Then
+        Dim cveContrato As Integer = If(context.Request("cveContrato") IsNot Nothing, context.Request("cveContrato").ToEntero, -1)
-            cveContrato = context.Request("cveContrato").ToEntero()
+        Dim CveSubProyecto As Integer = If(context.Request("CveSubProyecto") IsNot Nothing, context.Request("CveSubProyecto").ToEntero, -1)
+        Dim CveUsuarioPara As Integer = If(context.Request("CveUsuarioPara") IsNot Nothing, context.Request("CveUsuarioPara").ToEntero, -1)
+
+        Dim CveCliente As Integer = If(context.Request("CveCliente") IsNot Nothing, context.Request("CveCliente").ToEntero, -1)
+        Dim CveContratoEstatus As Integer = If(context.Request("CveContratoEstatus") IsNot Nothing, context.Request("CveContratoEstatus").ToEntero, -1)
+        Dim CveTipoActivoFijo As Integer = If(context.Request("CveTipoActivoFijo") IsNot Nothing, context.Request("CveTipoActivoFijo").ToEntero, -1)
+        Dim CvePersonal As Integer = If(context.Request("CvePersonal") IsNot Nothing, context.Request("CvePersonal").ToEntero, -1)
+
+        If Not cveContrato > 0 Then
+            cveContrato = -1
         End If
 
-        If ObjContratos.GetContratos(cveContrato, usuarioActual_.CveEmpresa, TipoContrato:=34) Then
+        If Not CveCliente > 0 Then
+            CveCliente = -1
+        End If
 
-            If ObjContratos.DtResultados.Rows.Count > 0 Then
+        If ObjContratos.GetContratos(cveContrato, usuarioActual_.CveEmpresa, TipoContrato:=34, CveCliente:=CveCliente, CveEstatus:=CveContratoEstatus) Then
+
+            'CveTipoAF
+            'CveChofer, CveChofer2
+            Dim filtro As String = ""
+            If CveTipoActivoFijo > 0 Then
+                filtro = $"{filtro} CveTipoAF = {CveTipoActivoFijo}"
+            End If
+
+            If CvePersonal > 0 Then
+                If filtro.Length > 0 Then
+                    filtro = $"{filtro} AND "
+                End If
+                filtro = $"{filtro} CveChofer = {CvePersonal} OR CveChofer2 = {CvePersonal} "
+            End If
+
+
+            If CveSubProyecto > 0 Then
+                If filtro.Length > 0 Then
+                    filtro = $"{filtro} AND "
+                End If
+                filtro = $"{filtro} CveSubProyecto = {CveSubProyecto}  "
+            End If
+
+            Dim DTContratos As DataTable = ObjContratos.DtResultados.FiltraParametros(filtro)
+
+            If DTContratos.Rows.Count > 0 Then
 
                 Try
-                    For Each dr As DataRow In ObjContratos.DtResultados.Rows
+                    For Each dr As DataRow In DTContratos.Rows
                         Dim cevent As CalendarEvent = New CalendarEvent()
 
                         cevent.id = dr("CveContrato").ToString.ToEntero
@@ -524,6 +556,10 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                         cevent.CantidadPasajeros = dr("CantidadPasajeros").ToString
                         cevent.NumeroContrato = dr("NumeroContrato").ToString
                         cevent.Observaciones = dr("Observaciones").ToString
+                        cevent.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
+                        cevent.CveMoneda = dr("CveMoneda").ToString.ToEntero
+                        cevent.Moneda = dr("Moneda").ToString
+
 
                         If Not cevent.recurrenciatipo > 0 Then
 

Compras/eFacturas.aspx.vb

@@ -2852,7 +2852,7 @@ Partial Class Compras_eFacturas
 
     Protected Sub LnkSolicitarSat_Click(ByVal sender As Object, ByVal e As EventArgs)
 
-        Exit Sub
+
 
         Dim sbResultado As StringBuilder = New StringBuilder()
         Dim idSolicitudCFDI As Integer = 0

Nomina/ConceptoNomina.aspx

@@ -430,6 +430,10 @@
                                         <div class="col-md-3">
                                             <asp:CheckBox ID="ChkMovtoPermanente" AutoPostBack="true" OnCheckedChanged="ChkMovtoPermanente_CheckedChanged" CssClass="chksino" Text=" " runat="server" />
                                         </div>
+                                        <label class="col-md-3 truncate ">Aplica EfectiVale:</label>
+                                        <div class="col-md-3">
+                                            <asp:CheckBox ID="chkAplicaEfectivale" AutoPostBack="true" OnCheckedChanged="chkAplicaEfectivale_CheckedChanged" CssClass="chksino" Text=" " runat="server" />
+                                        </div>
                                     </div>
                                 </div>
                             </div>

Nomina/ConceptoNomina.aspx.cs

@@ -362,7 +362,7 @@ public partial class Nomina_CatConcepto : ClsPaginas
         int CveConceptoContablePasivo = DdlConceptoContablePasivo.SelectedValue.ToEntero(); 
         int IdCtaContableB = (DdlCtaContableB.DataValueField == "Id" ? DdlCtaContableB.SelectedValue.ToEntero() : 0);
         int CveCuentaB = (DdlCtaContableB.DataValueField == "Id" ? 0 : DdlCtaContableB.SelectedValue.ToEntero());
-
+        int AplicaEfectivale = chkAplicaEfectivale.Checked ? 1 : 0;
         ClsNominas ObjNomina = new ClsNominas();
         ObjNomina.IniciaTransacSQL();
 
@@ -372,7 +372,7 @@ public partial class Nomina_CatConcepto : ClsPaginas
         {
             TieneError = !ObjNomina.UpdateConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, CveConcepto, retencion, CveClasificacion, 
                 CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, CveSATConcepto, 
-                UsuarioActual.CveEmpresa, ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB , CveCuentaB, CveConceptoContablePasivo);
+                UsuarioActual.CveEmpresa, ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB , CveCuentaB, CveConceptoContablePasivo, AplicaEfectivale);
 
             if (!TieneError)
             {
@@ -404,7 +404,7 @@ public partial class Nomina_CatConcepto : ClsPaginas
         {
             CveConcepto = ObjNomina.AddConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 
                 retencion, CveClasificacion, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, 
-                CveSATConcepto, ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB, CveCuentaB, CveConceptoContablePasivo);
+                CveSATConcepto, ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB, CveCuentaB, CveConceptoContablePasivo, AplicaEfectivale);
 
 
 
@@ -502,6 +502,7 @@ public partial class Nomina_CatConcepto : ClsPaginas
                 ChkEstado.Checked = drow["Estado"].Equals("Activo");
                 ChkSistema.Checked = drow["Sistema"].Equals("Sí");
                 ChkAutomaticoLiquidacion.Checked = drow["AplicaFiniquito"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
+                chkAplicaEfectivale.Checked = drow["AplicaEfectivale"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
                 ChkContabiliza.Checked = drow["Contabiliza"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
                 chkCtaImporteNegativoProv.Checked = drow["CtaImporteNegativoProv"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
                 ChkAutomaticoGlobal.Checked = drow["AutomaticoGlobal"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
@@ -671,4 +672,9 @@ public partial class Nomina_CatConcepto : ClsPaginas
         //}
 
     }
+
+    protected void chkAplicaEfectivale_CheckedChanged(object sender, EventArgs e)
+    {
+
+    }
 }

Nomina/Nomina.aspx.cs

@@ -10005,28 +10005,31 @@ public partial class Nomina_Nomina2 : ClsPaginas
         libro.Cell(row, column++).Value = "XTIPOPEDIDO";
         libro.Cell(row, column++).Value = "XNUMERO";
         libro.Cell(row, column++).Value = "XIMPORTE";
-        //libro.Cell(row, column++).Value = "CLABE";
+
-        //libro.Cell(row, column++).Value = "Neto";
         int maxxolumn = column;
         libro.Range(row, 1, row, column - 1).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
         libro.Range(row, 1, row, column - 1).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
         DataRow dcon;
         decimal subtotal = 0;
-        if (dtempleados != null && dtempleados.Rows.Count > 0 && dtConceptos != null && dtConceptos.Rows.Count > 0 && (dcon = dtConceptos.FiltroPrimero("Tipo ='P' AND Codigo = 'P028' ")) != null)
+        DataTable dt = null;
+        using (ClsNominas objnom = new ClsNominas())
         {
-            foreach (DataRow dRow in dtempleados.FiltraParametros("CvePersonal > 0").Rows)
+            objnom.GetEfectivaleXLS(CvePeriodoSeleccionado, UsuarioActual.CveEmpresa, -1);
+            dt = objnom.DtResultados;
+        }
+        if (dt != null && dt.Rows.Count > 0)
+        {
+
+            foreach (DataRow dRow in dt.Rows)
             {
-                decimal importe = dRow[string.Format("V_{0}", dcon["CveConcepto"])].ToString().ToDecimal();
+                decimal importe = dRow["Importe"].ToString().ToDecimal();
-                if (importe > 0)
+                subtotal = subtotal + importe;
-                {
+                row++;
-                    subtotal = subtotal + importe;
+                column = 1;
-                    row++;
+                libro.Cell(row, column++).Value = string.Format("'{0}", dRow["XCLIENTE"]);
-                    column = 1;
+                libro.Cell(row, column++).Value = string.Format("'{0}", dRow["XTIPOPEDIDO"]);
-                    libro.Cell(row, column++).Value = "'103646-1";
+                libro.Cell(row, column++).Value = string.Format("'{0}", dRow["CodigoDispersionVale"]);
-                    libro.Cell(row, column++).Value = "'DISPERSION";
+                libro.Cell(row, column++).Value = importe;
-                    libro.Cell(row, column++).Value = string.Format("'{0}", dRow["Codigo"]);
-                    libro.Cell(row, column++).Value = importe;
-                }
             }
         }
         libro.Cell(1, 2).Value = subtotal;

Transportes/RepContratoDetalle.aspx

@@ -118,7 +118,6 @@
                                         <div class="row my-1">
                                             <label class="col-md-4 bold text-primary">Folio</label>
                                             <asp:Label class="col-md-8" runat="server" ID="LbFolio" Text=""></asp:Label>                                            
-                                            <asp:Label runat="server" ID="LbCveSubProyecto" Visible="false"></asp:Label>
                                         </div>
 
                                         <div class="row my-1">
@@ -136,6 +135,21 @@
                                             </div>
                                         </div>
 
+                                          <div class="row my-1">
+                                          <label class="col-md-4"> 
+                                              <asp:Label runat="server" ID="LblSubProyectoModal"></asp:Label>
+                                          </label>
+                                          <div class="col-md-8">
+                                                   <asp:DropDownList runat="server" ID="DdlSubProyecto" Width="100%"  DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline select2me"></asp:DropDownList>
+       <asp:RequiredFieldValidator ID="RfvDdlSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" InitialValue="-1" ErrorMessage="Campo sub Proyecto requerido." Display="None"
+           ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+       <ajax:ValidatorCalloutExtender ID="VCERfvDdlSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
+</div>
+                                              <div class="input-group">
+                                                   
+                                          </div>
+                                      </div>
+
                                         <div class="row">
                                             <label class="col-md-4">Servicio</label>
                                             <div class="col-md-8">

Transportes/RepContratoDetalle.aspx.vb

@@ -125,6 +125,15 @@ Partial Class RepContratoDetalle
         'Lista de Monedas
         DdlMoneda.DataSource = GlobalDTMonedas
         DdlMoneda.DataBind()
+
+
+        CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoModal)
+
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataBind()
+        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+
     End Sub
     Private Sub CargaDatos()
         'Información General
@@ -139,7 +148,7 @@ Partial Class RepContratoDetalle
                 SubProyecto = Contrato.Rows(0)("SubProyecto").ToString
                 CveMasivo = Contrato.Rows(0)("CveMasivo").ToString.ToEntero
                 LbFolio.Text = Contrato.Rows(0)("NumeroContrato").ToString
-                LbCveSubProyecto.Text = Contrato.Rows(0)("CveSubProyecto").ToString
+
                 DdlClientes.SelectedText = Contrato.Rows(0)("NombreComercial").ToString
                 DdlClientes.SelectedValue = Contrato.Rows(0)("CveCliente").ToString
                 DdlMoneda.SelectedValue = Contrato.Rows(0)("CveMoneda").ToString
@@ -147,13 +156,14 @@ Partial Class RepContratoDetalle
                 TxtObservaciones.Text = Contrato.Rows(0)("Observaciones").ToString
                 TelefonoEmpresa = Contrato.Rows(0)("Telefono").ToString
                 TxtUbicacion.Text = Contrato.Rows(0)("Ubicacion").ToString
-                TxtFechaSalida.Text = Contrato.Rows(0)("FechaInicial").ToString
+                TxtFechaSalida.Text = Contrato.Rows(0)("FechaInicial").ToString.ToDate.ToString("dd/MM/yyyy HH:mm:ss")
-                TxtFechaRegreso.Text = Contrato.Rows(0)("FechaFinal").ToString
+                TxtFechaRegreso.Text = Contrato.Rows(0)("FechaFinal").ToString.ToDate.ToString("dd/MM/yyyy HH:mm:ss")
                 TxtCantidadPasajeros.Text = Contrato.Rows(0)("CantidadPasajeros").ToString
                 DdlTipoAF.SelectedValue = If(Contrato.Rows(0)("CveTipoAF") Is Nothing, "", Contrato.Rows(0)("CveTipoAF").ToString)
                 TxtImporte.Text = Math.Round(Importe, 2).ToString
                 TxtAnticipo.Text = Math.Round(Anticipo, 2).ToString
                 CveContratoEstatus = Contrato.Rows(0)("CveContratosEstatus").ToString.ToEntero
+                DdlSubProyecto.SelectedValueExist(Contrato.Rows(0)("CveSubProyecto").ToString)
 
                 If Not IsDBNull(ObjContratos.Archivo) AndAlso ObjContratos.Archivo <> "" AndAlso ObjContratos.Archivo <> "-1" AndAlso ObjContratos.Archivo <> $"{ObjContratos.CveContrato}." Then
                     ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "CONTRATOS", ObjContratos.Archivo)
@@ -277,7 +287,7 @@ Partial Class RepContratoDetalle
         ObjContratos.IniciaTransacSQL()
         Try
             If ObjContratos.UpdateContratos(CveContrato, LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "",
-                                            LbCveSubProyecto.Text.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal,
+                                            DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal,
                                             DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservacion.Text) Then
                 Alert("Contrato actualizado correctamente")
             End If

Transportes/RepContratos.aspx

@@ -262,7 +262,8 @@
                                         <label class="col-md-4">Cliente</label>
                                         <div class="col-md-8">
                                             <div class="input-group">
-                                                <ADS:Dropdownlost ID="DdlClientes" CssClass="form-control" data-metodo="getcliente"
+
+                                                <ADS:Dropdownlost ID="DdlClientes" CssClass="form-control" data-metodo="getcliente" Width="100%" CssStyle="width: 100%;"
                                                     runat="server" DataTextField="NombreComercial" DataValueField="CveCliente"
                                                     UsaWebService="true" Enabled="false"></ADS:Dropdownlost>
                                                 <div class="input-group-addon" style="background-color: #428bca">
@@ -273,6 +274,28 @@
                                         </div>
                                     </div>
 
+
+
+                                     <div class="row my-1">
+                                     <label class="col-md-4">
+                                         <asp:Label runat="server" ID="LblSubProyectoModal"></asp:Label>
+                                     </label>
+                                     <div class="col-md-8">
+                                         <div class="input-group">
+                                             
+                                            <asp:DropDownList runat="server" ID="DdlSubProyectoModal" Width="100%" DataValueField="CveSubProyecto" DataTextField="SubProyecto" CssClass="select2me"></asp:DropDownList>
+                                            <asp:RequiredFieldValidator ID="RfvDdlSubProyectoModal" runat="server" ControlToValidate="DdlSubProyectoModal" InitialValue="-1" ErrorMessage="Campo sub Proyecto requerido." 
+                                                ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                            <ajax:ValidatorCalloutExtender ID="VCERfvDdlSubProyectoModal" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlSubProyectoModal" Width="300px"></ajax:ValidatorCalloutExtender>
+
+                                            <%-- <div class="input-group-addon" style="background-color: #428bca">
+                                                 <asp:LinkButton runat="server" ForeColor="White" Text="<i class='fa fa-add'></i>"
+                                                     PostBackUrl="~/Ventas/Clientes.aspx?CveCliente=-1"></asp:LinkButton>
+                                             </div>--%>
+                                         </div>
+                                     </div>
+                                 </div>
+
                                     <div class="row">
                                         <label class="col-md-4">Servicio</label>
                                         <div class="col-md-8">
@@ -323,18 +346,16 @@
                                         <label class="col-md-4">Fecha Salida</label>
                                         <div class="col-md-8">
                                             <div class="input-group">
-                                                <asp:TextBox ID="TxtFechaSalida" runat="server" CssClass="form-control" CausesValidation="True"
+                                                <asp:TextBox ID="TxtFechaSalida" runat="server" CssClass="form-control" CausesValidation="True" type="datetime-local"
                                                     Width="100%"
-                                                    type="datetime"></asp:TextBox>
+                                                     ></asp:TextBox>
                                                 <asp:RequiredFieldValidator ID="RFVTxtFechaSalida" runat="server" ControlToValidate="TxtFechaSalida"
                                                     Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Salida''</b> es necesario, por favor ingréselo."
                                                     ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                 <ajax:ValidatorCalloutExtender ID="VCETxtFechaSalida" runat="server" HighlightCssClass="vco"
                                                     TargetControlID="RFVTxtFechaSalida" Width="100%">
                                                 </ajax:ValidatorCalloutExtender>
-                                                <div class="input-group-addon">
+
-                                                    <i class="fa fa-calendar"></i>
-                                                </div>
                                             </div>
                                         </div>
                                     </div>
@@ -344,18 +365,16 @@
                                         <div class="col-md-8">
                                             <div class="input-group">
 
-                                                <asp:TextBox ID="TxtFechaRegreso" runat="server" CssClass="form-control" CausesValidation="True"
+                                                <asp:TextBox ID="TxtFechaRegreso" runat="server" CssClass="form-control" CausesValidation="True" type="datetime-local"
                                                     Width="100%"
-                                                    type="datetime"></asp:TextBox>
+                                                     ></asp:TextBox>
                                                 <asp:RequiredFieldValidator ID="RFVTxtFechaRegreso" runat="server" ControlToValidate="TxtFechaRegreso"
                                                     Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Regreso''</b> es necesario, por favor ingréselo."
                                                     ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco"
                                                     TargetControlID="RFVTxtFechaRegreso" Width="100%">
                                                 </ajax:ValidatorCalloutExtender>
-                                                <div class="input-group-addon">
+                                                
-                                                    <i class="fa fa-calendar"></i>
-                                                </div>
                                             </div>
                                         </div>
                                     </div>
@@ -468,10 +487,10 @@
                                 Text="Agregar"
                                 ValidationGroup="GrpGuardar"></asp:Button>
                             <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
-                            <button type="button" class="btn btn-secondary" runat="server" clientidmode="Static"
+                           <%-- <button type="button" class="btn btn-secondary" runat="server" clientidmode="Static"
                                 id="BtnArchivo" data-toggle="modal" data-target="#ModalUpload" visible="true">
                                 <i class="fa fa-upload"
-                                    aria-hidden="true"></i>Subir Archivo</button>
+                                    aria-hidden="true"></i>Subir Archivo</button>--%>
                         </div>
                     </div>
                 </asp:Panel>

Transportes/RepContratos.aspx.vb

@@ -51,6 +51,11 @@ Partial Class ListadoContratos
         DdlEstatus.DataBind()
         DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
 
+        CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoModal)
+
+        DdlSubProyectoModal.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectoModal.DataBind()
+        DdlSubProyectoModal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
     End Sub
     Private Sub CargaDatos()
         Dim ObjContratos As New ClsContratos
@@ -91,27 +96,102 @@ Partial Class ListadoContratos
     End Sub
     Protected Sub AddContrato(sender As Object, e As EventArgs)
 
+        Dim ErrorProceso As Boolean = False
+        Dim CveContrato As Integer = -1
+
+        Dim FileExtension As String = "-1"
+        Dim Filesgral As List(Of Extensiones.Archivo) = Anexo.getfiles().Archivos
+        Dim Filename As String = ""
+        Dim folderContratosPath As String = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos")
+
+        If Not Directory.Exists(folderContratosPath) Then
+            Directory.CreateDirectory(folderContratosPath)
+        End If
+
+
         If DdlClientes.SelectedValue = "" Then
             Alert("Debe seleccionar al cliente", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
-        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
+        'Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
 
         'Agregamos Contrato
         Dim ObjContratos As New ClsContratos
         ObjContratos.IniciaTransacSQL()
-        If ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDateTime, TxtFechaRegreso.Text.ToDateTime, TxtUbicacion.Text, "", CveSubProyecto, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text, CveVendedor:=UsuarioActual.CveVendedor) > 0 Then
+
-            ObjContratos.Commit()
+        CveContrato = ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDateTime, TxtFechaRegreso.Text.ToDateTime, TxtUbicacion.Text, "",
-            Alert("Agregado Correctamente.")
+                                     DdlSubProyectoModal.SelectedValue.ToEntero, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal,
+                                     DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text,
+                                     CveVendedor:=UsuarioActual.CveVendedor)
+
+        If CveContrato > 0 Then
+
+            If Filesgral.Count > 0 Then
+
+                For Each fileItem As Archivo In Filesgral
+
+                    FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
+                    Dim tempArray() As String
+                    tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
+                    Dim fDestino = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos", $"{CveContrato.ToString}.{ FileExtension}")
+
+                    Try
+                        If File.Exists(fDestino) Then
+                            File.Delete(fDestino)
+                        End If
+
+                        File.Move(fileItem.FileUrl, fDestino)
+
+                        If Not File.Exists(fDestino) Then
+                            ErrorProceso = True
+                        End If
+
+                        If ObjContratos.UpdateContratoArchivo(CveContrato, $"{CveContrato.ToString}.{ FileExtension}", UsuarioActual.CveEmpresa) Then
+                            ErrorProceso = False
+                        End If
+
+                    Catch ex As Exception
+                        ErrorProceso = True
+                    End Try
+
+
+                    Exit For
+                Next
+
+            Else
+                ErrorProceso = False
+            End If
+            Anexo.Text = ""
+
+        Else
+            ErrorProceso = True
         End If
-        ObjContratos.Dispose()
+
 
         'Aumentamos Folio
-        Dim ObjFolios As New ClsGralFolios
+        Dim ObjFolios As New ClsGralFolios(ObjContratos.IniciaTransacSQL())
-        If ObjFolios.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then
+        If Not ObjFolios.UpdateFolioActual(DdlSubProyectoModal.SelectedValue.ToEntero, "Con", True, UsuarioActual.CveEmpresa) Then
-            ObjFolios.Dispose()
+            ErrorProceso = True
         End If
 
+
+        If Not ErrorProceso Then
+            ObjContratos.Commit()
+            Alert("Agregado Correctamente.")
+        Else
+            ObjContratos.RollBack()
+            Alert("Se presento un error al guardar el contrato.", TipoMensaje.MsgAdvertencia)
+        End If
+
+        ObjContratos.Dispose()
+
+        ResetModal()
+
+        CargaDatos()
+        RegistraScript("$('#ModalAgregar').modal('hide')", "hidemodal1")
+    End Sub
+
+    Protected Sub ResetModal()
         'Reiniciamos modal
         TxtDescripcion.Text = ""
         TxtFechaSalida.Text = ""
@@ -119,6 +199,7 @@ Partial Class ListadoContratos
         TxtObservaciones.Text = ""
         TxtUbicacion.Text = ""
         DdlClientes.SelectedText = ""
+        DdlSubProyectoModal.SelectedValueExist(-1)
         DdlTipoAF.SelectedValueExist(-1)
         TxtImporte.Text = ""
         TxtAnticipo.Text = ""
@@ -126,8 +207,6 @@ Partial Class ListadoContratos
         LbArchivo.Text = ""
 
         UpModal.Update()
-        CargaDatos()
-        RegistraScript("$('#ModalAgregar').modal('hide')", "hidemodal1")
     End Sub
     Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
         GvContratos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString)

Transportes/RepContratosCalendario.aspx

@@ -46,7 +46,7 @@
                 <%-- Filtros --%>
                 <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
-                        <div class="portlet solid  grey-cascade portlet-filter">
+                        <div class="portlet solid  grey-cascade portlet-filter" id="dvFiltros">
                             <%-- Filtro Visible - Consulta --%>
                             <div class="portlet-title portlet-filterT smalltitle">
                                 <div class="tools">
@@ -103,7 +103,7 @@
                                         <%-- Estatus --%>
                                         <label class="col-md-1 ">Estatus:</label>
                                         <div class="col-md-1">
-                                            <asp:DropDownList ID="DdlEstatusConsulta" data-text="Todos" AppendDataBoundItems="true"
+                                            <asp:DropDownList ID="DdlEstatusConsulta" data-text="Todos" AppendDataBoundItems="true" ClientIDMode="Static"
                                                 DataTextField="ContratoEstatus"
                                                 DataValueField="CveContratoEstatus" CssClass="form-control ddlFiltros input-sm select2me Widthall"
                                                 Style="width: 100%;" runat="server">
@@ -118,7 +118,7 @@
                                 <label class="col-md-1 truncate ">Centro de Costos</label>
                                 <div class="col-md-1">
                                     <asp:DropDownList ID="DdlSubProyectos" data-text="Todos" AppendDataBoundItems="true"
-                                        DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control ddlFiltros input-sm select2me Widthall"
+                                        DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control ddlFiltros input-sm select2me Widthall" ClientIDMode="Static"
                                         Style="width: 100%;" runat="server">
                                     </asp:DropDownList>
                                 </div>
@@ -126,7 +126,7 @@
                                 <label class="col-md-1 ">Tipo de Unidad</label>
                                 <div class="col-md-1">
                                     <asp:DropDownList ID="DdlTipoUnidad" data-text="Todos" AppendDataBoundItems="true"
-                                        DataTextField="TipoActivoFijo" DataValueField="CveTipoActivoFijo" CssClass="form-control ddlFiltros input-sm select2me Widthall"
+                                        DataTextField="TipoActivoFijo" DataValueField="CveTipoActivoFijo" CssClass="form-control ddlFiltros input-sm select2me Widthall" ClientIDMode="Static"
                                         Style="width: 100%;" runat="server">
                                     </asp:DropDownList>
                                 </div>
@@ -134,7 +134,7 @@
                                 <label class="col-md-1 ">Chofer:</label>
                                 <div class="col-md-2">
                                     <asp:DropDownList ID="DdlChoferFiltro" data-text="Todos" AppendDataBoundItems="true"
-                                        DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control ddlFiltros input-sm select2me Widthall"
+                                        DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control ddlFiltros input-sm select2me Widthall" ClientIDMode="Static"
                                         Style="width: 100%;" runat="server">
                                     </asp:DropDownList>
                                 </div>
@@ -148,7 +148,7 @@
             <div class="col-md-12">
                 <ajax:TabContainer ID="Tab" runat="server" Width="100%" ActiveTabIndex="0">
                     <%--Calendario Tab--%>
-                    <ajax:TabPanel ID="TabAlta" runat="server" HeaderText="Calendario">
+                    <ajax:TabPanel ID="TabAlta" runat="server" HeaderText="Calendario" OnClientClick="TabAltaClicked" >
                         <ContentTemplate>
 
                             <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
@@ -208,7 +208,7 @@
                                     <asp:GridView ID="GvContratos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se Encontró Contrato Registrado"
                                         CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn miGrid"
                                         GridLines="None"
-                                        data-sort="true" DataKeyNames="CveContrato, NumeroContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente, NombreComercial, CveTipoAF, Importe, ImporteMin, ImporteMax, Observaciones, CveAF, CveChofer, CveChofer2, CveContratosEstatus, CantidadPasajeros,CveMoneda">
+                                        data-sort="true" DataKeyNames="CveContrato, NumeroContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente, NombreComercial, CveTipoAF, Importe, ImporteMin, ImporteMax, Observaciones, CveAF, CveChofer, CveChofer2, CveContratosEstatus, CantidadPasajeros,CveMoneda,Moneda,CveSubProyecto">
                                         <Columns>
                                             <asp:TemplateField HeaderText="Contrato">
                                                 <ItemTemplate>
@@ -358,6 +358,17 @@
                                 </div>
                             </div>
 
+                            <div class="row my-1">
+                                <label class="col-md-4">
+                                    <asp:Label runat="server" ID="LblSubProyectoModal"></asp:Label>
+                                </label>
+                                <div class="col-md-8">
+                                    <asp:DropDownList runat="server" ID="DdlSubProyectoModal" Width="100%" DataValueField="CveSubProyecto" DataTextField="SubProyecto" CssClass="select2me"></asp:DropDownList>
+                                    <asp:RequiredFieldValidator ID="RfvDdlSubProyectoModal" runat="server" ControlToValidate="DdlSubProyectoModal" InitialValue="-1" ErrorMessage="Campo sub Proyecto requerido." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCERfvDdlSubProyectoModal" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlSubProyectoModal" Width="300px"></ajax:ValidatorCalloutExtender>
+                                </div>
+                            </div>
+
                             <div class="row">
                                 <label class="col-md-4">Servicio:</label>
                                 <div class="col-md-8">
@@ -401,7 +412,7 @@
                             <div class="row my-1">
                                 <label class="col-md-4">Moneda:</label>
                                 <div class="col-md-8">
-                                    <asp:TextBox ID="TxtMoneda" runat="server" ReadOnly="true" Width="100%"></asp:TextBox>
+                                    <asp:TextBox ID="TxtMoneda" runat="server"  Width="100%" Enabled="false"></asp:TextBox>
                                 </div>
                             </div>
 
@@ -601,12 +612,22 @@
 
                 yAxis.data.setAll(categorias);
 
+                // Obtener valores de las cajas de texto
+                var fechaI = document.getElementById('<%= txtFechaI.ClientID %>').value;
+                var fechaF = document.getElementById('<%= txtFechaF.ClientID %>').value;
+
+                // Convertir valores a objetos Date
+                var minDate = new Date(fechaI.split("/").reverse().join("-"));
+                var maxDate = new Date(fechaF.split("/").reverse().join("-"));
+
                 dateAxis = am5xy.DateAxis.new(root, {
-                    baseInterval: { timeUnit: "minute", count: 1 },
+                    baseInterval: { timeUnit: "day", count: 1 },
                     renderer: am5xy.AxisRendererX.new(root, {
                         minorGridEnabled: true,
                         minGridDistance: 90
-                    })
+                    }),
+                    min: minDate.getTime(),
+                    max: maxDate.getTime()
                     //min: new Date(2024, 6, 15).getTime(),
                     //max: new Date(2024, 6, 31).getTime()
                 });
@@ -752,11 +773,18 @@
             $('#<%=DdlEstatusContrato.ClientID%>').val(event.CveEventoEstatus);
             $('#<%=TxtDolares.ClientID%>').val(event.Dolares);
             $('#<%=TxtPesos.ClientID%>').val(event.Pesos);
+            $('#<%=TxtMoneda.ClientID%>').val(event.Moneda);
+
+            //document.getElementById('<%= TxtMoneda.ClientID %>').value = event.Moneda;
+
             $('#<%=TxtAnticipo.ClientID%>').val(event.Anticipo);
             $('#<%=HdnCveContrato.ClientID%>').val(event.id);
             $('#<%=DdlTipoAF.ClientID%>').val(event.CveTipoAF);
+            $('#<%=DdlSubProyectoModal.ClientID%>').val(event.CveSubProyecto);
 
 
+           // alert(event.Moneda);
+            
 
             if (event.NombreComercial !== null) {
                 $('#HidModClienteNombre').val('');
@@ -769,29 +797,46 @@
 
         }
 
+        function formatearFechaISO(fechaISO) {
+            let fecha = new Date(fechaISO);
 
-            function formatearFechaISO(fechaISO) {
+            // Formatear la fecha en DD/MM/YYYY
-                let fecha = new Date(fechaISO);
+            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 fecha en DD/MM/YYYY
+            // Formatear la hora en formato 24 horas
-                let dia = fecha.getDate().toString().padStart(2, '0');
+            let horas = fecha.getHours().toString().padStart(2, '0');
-                let mes = (fecha.getMonth() + 1).toString().padStart(2, '0'); // getMonth() devuelve mes de 0-11
+            let minutos = fecha.getMinutes().toString().padStart(2, '0');
-                let año = fecha.getFullYear();
+            let segundos = fecha.getSeconds().toString().padStart(2, '0');
 
-                // Formatear la hora en formato 12 horas con AM/PM
+            // Combinar la fecha y la hora
-                let horas = fecha.getHours();
+            return `${dia}/${mes}/${año} ${horas}:${minutos}:${segundos}`;
-                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 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);
@@ -905,7 +950,11 @@
                         tipoVista: '<%= RBTipoVista.Text %>',
                         METODO: 'contrato_transportes',
                         CveUsuarioPara: $('#DdlTecnico').val(),
-                        CveSubProyecto: $('#DdlSubProyecto').val()
+                        CveSubProyecto: $('#DdlSubProyecto').val(),
+                        CveCliente: $('#C_DdlCliente_Value').val(),
+                        CveContratoEstatus: $('#DdlEstatusConsulta').val(),
+                        CveTipoActivoFijo: $('#DdlTipoUnidad').val(),
+                        CvePersonal: $('#DdlChoferFiltro').val()
                     }
                 },
                 eventDrop: eventDropped,
@@ -944,6 +993,16 @@
             }
 
 
+        function TabAltaClicked(sender, e) {
+
+            setTimeout(function () {
+                InitCalendar();
+                
+            }, 10);
+                       
+        }
+        
+
     </script>
 
 

Transportes/RepContratosCalendario.aspx.vb

@@ -75,6 +75,8 @@ Partial Class RepContratosCalendario
         GvContratos.DataBind()
         UpTitulos.Update()
 
+        RegistraScript("InitCalendar();")
+
     End Sub
 
     Public Shared Function GetLastDayOfMonth(ByVal dateTime As DateTime) As DateTime
@@ -157,7 +159,7 @@ Partial Class RepContratosCalendario
         DdlTipoUnidad.DataBind()
 
         'Lista de Activos fijos
-        DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
+        DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros(" EstadoActivoFijo= 'Activo' ")
         DdlAF.DataBind()
         DdlAF.Items.Insert(0, New ListItem("-", "-1"))
 
@@ -189,6 +191,12 @@ Partial Class RepContratosCalendario
         DdlSubProyectos.DataBind()
         DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
 
+        CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoModal)
+
+        DdlSubProyectoModal.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectoModal.DataBind()
+        DdlSubProyectoModal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
         'CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto)
         UpModal.Update()
     End Sub
@@ -197,6 +205,7 @@ Partial Class RepContratosCalendario
         If e.Row.RowType = DataControlRowType.DataRow Then
             Dim BackgroundColor As String = DataBinder.Eval(e.Row.DataItem, "BackgroundColor").ToString()
             e.Row.BackColor = Drawing.ColorTranslator.FromHtml(BackgroundColor)
+            e.Row.Cells(1).Attributes.Add("data-order", e.Row.DBCampo("FechaInicial").ToDate.Ticks.ToString)
         End If
     End Sub
     Protected Sub MostrarModal(sender As Object, e As System.EventArgs)
@@ -219,15 +228,40 @@ Partial Class RepContratosCalendario
     Protected Sub UpdateContrato(sender As Object, e As EventArgs)
         Dim ObjContratos As New ClsContratos
 
-        If ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=34, CveContratosEstatus:=DdlEstatusContrato.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveChofer2:=DdlChofer2.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text.Trim) Then
+        Dim DTAgendadados As New DataTable
+        If ObjContratos.GetContratosValUnidadesAgendadas(DdlAF.SelectedValue.ToEntero, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, UsuarioActual.CveEmpresa, CveContrato) Then
+
+            DTAgendadados = ObjContratos.DtResultados.Copy
+
+            If DTAgendadados.Rows.Count > 0 Then
+                Dim sb As New StringBuilder
+                sb.Append($"Se detectaron Contratos con la unidad {DdlAF.SelectedItem.Text} asignada en las fechas especificadas.</br></br>")
+                For Each dr As DataRow In DTAgendadados.Rows
+                    sb.AppendLine($"Contrato: <b>{dr("NumeroContrato").ToString }</b>, Salida: {dr("FechaInicial").ToString.ToDate.ToString("dd/MM/yyyy HH:mm:ss")}, Regreso: {dr("FechaFinal").ToString.ToDate.ToString("dd/MM/yyyy HH:mm:ss")} </br>")
+                Next
+
+                Alert(sb.ToString, TipoMensaje.MsgAdvertencia)
+                DTAgendadados.Dispose()
+                ObjContratos.Dispose()
+                Exit Sub
+
+            End If
+
+        End If
+
+
+        If ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", DdlSubProyectoModal.SelectedValue.ToEntero,
+                                            -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=34, CveContratosEstatus:=DdlEstatusContrato.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveChofer2:=DdlChofer2.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text.Trim) Then
             RegistraScript("$('#ModalActualizar').modal('hide');")
             Alert("Actualizado Correctamente.")
         End If
 
         ObjContratos.Dispose()
+
         UpTitulos.Update()
         CargaDatos()
         InicializaCalendar()
+
     End Sub
     Protected Sub UpdateModal(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
@@ -238,14 +272,15 @@ Partial Class RepContratosCalendario
         TxtDescripcion.Text = GvRow.DataKey("DescripcionContrato")
         TxtObservaciones.Text = GvRow.DataKey("Observaciones")
         TxtUbicacion.Text = GvRow.DataKey("Ubicacion")
-        TxtFechaSalida.Text = Convert.ToDateTime(GvRow.DataKey("FechaInicial")).ToString("dd/MM/yyyy hh:mm tt")
+        TxtFechaSalida.Text = Convert.ToDateTime(GvRow.DataKey("FechaInicial")).ToString("dd/MM/yyyy HH:mm:ss")
-        TxtFechaRegreso.Text = Convert.ToDateTime(GvRow.DataKey("FechaFinal")).ToString("dd/MM/yyyy hh:mm tt")
+        TxtFechaRegreso.Text = Convert.ToDateTime(GvRow.DataKey("FechaFinal")).ToString("dd/MM/yyyy HH:mm:ss ")
-        TxtMoneda.Text = GvRow.DataKey("CveMoneda")
+        TxtMoneda.Text = GvRow.DataKey("Moneda")
         'Requeridos 
-        DdlAF.SelectedValue = GvRow.DataKey("CveAF")
+        DdlAF.SelectedValueExist(GvRow.DataKey("CveAF"))
         DdlChofer.SelectedValueExist(GvRow.DataKey("CveChofer"))
         DdlChofer2.SelectedValueExist(GvRow.DataKey("CveChofer2"))
-        DdlEstatusContrato.SelectedValue = GvRow.DataKey("CveContratosEstatus")
+        DdlEstatusContrato.SelectedValueExist(GvRow.DataKey("CveContratosEstatus"))
+        DdlSubProyectoModal.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))
         CveContrato = GvRow.DataKey("CveContrato").ToEntero
         UpCommando.Update()
         UpModal.Update()
@@ -283,6 +318,8 @@ Partial Class RepContratosCalendario
     Protected Sub RBTipoVista_SelectedIndexChanged(sender As Object, e As EventArgs)
         InicializaCalendar()
         CargaCronograma()
+
+
     End Sub
 
     Protected Sub DdlTipoVista_SelectedIndexChanged(sender As Object, e As EventArgs)

Ventas/CatPreciosLista.aspx

@@ -13,7 +13,7 @@
     <li>
         <asp:UpdatePanel runat="server" UpdateMode="conditional">
             <ContentTemplate>
-                <asp:LinkButton runat="server" id="BtnOpenDiv"><i class="fa fa-plus"></i>Agregar Precio de Lista</asp:LinkButton>
+                <asp:LinkButton runat="server" ID="BtnOpenDiv"><i class="fa fa-plus"></i>Agregar Precio de Lista</asp:LinkButton>
             </ContentTemplate>
         </asp:UpdatePanel>
     </li>
@@ -21,37 +21,37 @@
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
-    <div class="row" style="margin-left:0px;margin-top:5px;margin-bottom:5px;text-align: right;margin-right: 5px;" align="left"> 
+    <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>
-        <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" GridLines="None" DataKeyNames="CvePrecioLista, PrecioLista, Estatus,Predeterminada" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros">
+            <asp:GridView ID="GvDatos" runat="server" GridLines="None" DataKeyNames="CvePrecioLista, PrecioLista, Estatus,Predeterminada,Restringuida" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros">
                 <Columns>
                     <asp:BoundField DataField="PrecioLista" ItemStyle-Width="50%" HeaderText="Precio de lista" ItemStyle-HorizontalAlign="Left" />
-                     <asp:TemplateField HeaderText="Predeterminada" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
+                    <asp:TemplateField HeaderText="Predeterminada" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
-                         <ItemTemplate>
+                        <ItemTemplate>
-                             <asp:Label ID="LblPred" runat="server" Text='<%#If(Eval("Predeterminada").ToString = "True", "Si", "") %>'></asp:Label>
+                            <asp:Label ID="LblPred" runat="server" Text='<%#If(Eval("Predeterminada").ToString = "True", "Si", "") %>'></asp:Label>
-                         </ItemTemplate>
+                        </ItemTemplate>
-                     </asp:TemplateField>
+                    </asp:TemplateField>
-                     <asp:TemplateField HeaderText="Crédito" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
+                    <asp:TemplateField HeaderText="Crédito" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
-                         <ItemTemplate>
+                        <ItemTemplate>
-                             <asp:Label ID="LblCred" runat="server" Text='<%#If(Eval("Credito").ToString = "True", "Si", "") %>'></asp:Label>
+                            <asp:Label ID="LblCred" runat="server" Text='<%#If(Eval("Credito").ToString = "True", "Si", "") %>'></asp:Label>
-                         </ItemTemplate>
+                        </ItemTemplate>
-                     </asp:TemplateField>
+                    </asp:TemplateField>
                     <asp:BoundField DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="20%" HeaderText="Fecha Ing" ItemStyle-HorizontalAlign="center" />
                     <asp:TemplateField HeaderText="Estatus" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Center">
                         <ItemTemplate>
                             <asp:Label ID="LblEstatus" runat="server" Text=""></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Editar"  ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right">
+                    <asp:TemplateField HeaderText="Editar" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right">
                         <ItemTemplate>
                             <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" OnClick="imgE_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
                         </ItemTemplate>
                     </asp:TemplateField>
-                         <asp:TemplateField ItemStyle-Width="5%" HeaderText="Eliminar" ItemStyle-HorizontalAlign="Left">
+                    <asp:TemplateField ItemStyle-Width="5%" HeaderText="Eliminar" ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
                             <asp:LinkButton ID="imgD" ItemStyle-Width="5%" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
                         </ItemTemplate>
@@ -80,20 +80,37 @@
                                     <label for="<%= TxtPrecioLista.ClientID.ToString()%>">Precio de Lista:</label>
                                 </div>
                                 <div class="form-group form-md-line-input input-iconright">
-                                    <asp:CheckBox ID="ChkPredeterminada" runat="server" Text="Predeterminada"   CausesValidation="true"></asp:CheckBox>                                
+                                    <asp:CheckBox ID="ChkPredeterminada" runat="server" Text="Predeterminada" CausesValidation="true"></asp:CheckBox>
                                 </div>
-                               <div id="dvEstatus" runat="server" class="form-group form-md-line-input input-iconright">
+                                <div id="dvEstatus" runat="server" class="form-group form-md-line-input input-iconright">
                                     <label>Activo: </label>
-                                    <asp:Checkbox  ID="chkEstatus" Text=" " runat="server" CssClass="chksino" Width="250px">
+                                    <asp:CheckBox ID="chkEstatus" Text=" " runat="server" CssClass="chksino" Width="250px"></asp:CheckBox>
-                                    </asp:Checkbox>
+                                </div>
+                                <div id="divPermiso" runat="server" visible="false" class="form-group form-md-line-input input-iconright">
+                                    <label>Restringida a permiso: </label>
+                                    <asp:CheckBox ID="ChkRestringida" Text=" " runat="server" CssClass="chksino" Width="250px"></asp:CheckBox>
+                                </div>
+                                <div class="row" id="divSP" runat="server" visible="false" >
+                                    <div class="col-md-12">
+                                        <asp:GridView ID="GvSubProyectos" runat="server" GridLines="None" DataKeyNames="CveSubProyecto,SubProyecto,Permitir" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" data-sort="true" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros">
+                                            <Columns>
+                                                <asp:BoundField DataField="SubProyecto" ItemStyle-Width="80%" HeaderText="Sucursal" ItemStyle-HorizontalAlign="Left" />
+                                                <asp:TemplateField HeaderText="Permitir" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="20%">
+                                                    <ItemTemplate>
+                                                        <asp:CheckBox ID="ChkPermitir" runat="server" Checked='<%# Eval("Permitir") %>' />
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
+                                            </Columns>
+                                        </asp:GridView>
+                                    </div>
                                 </div>
                             </ContentTemplate>
                         </asp:UpdatePanel>
                         <div class="modal-footer">
                             <asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
                                 <ContentTemplate>
-                                    <asp:LinkButton ID="BtnAgregarCatalogo" runat="server" Text="Agregar"  CssClass="btn btn-primary" ValidationGroup="GrpObligatorio"></asp:LinkButton>
+                                    <asp:LinkButton ID="BtnAgregarCatalogo" runat="server" Text="Agregar" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio"></asp:LinkButton>
-                                    <button id="btnCancelar" data-dismiss="modal" class="btn btn-default" >Cancelar</button>
+                                    <button id="btnCancelar" data-dismiss="modal" class="btn btn-default">Cancelar</button>
                                 </ContentTemplate>
                             </asp:UpdatePanel>
                         </div>

Ventas/CatPreciosLista.aspx.vb

@@ -31,6 +31,10 @@ Partial Class Ventas_CatPreciosLista
         If Not Page.IsPostBack Then
             CvePrecioLista = -1
             EsEditar = 0
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                divPermiso.Visible = True
+                divSP.Visible = True
+            End If
             dvEstatus.Visible = False
             CargaDatos()
         End If
@@ -56,9 +60,19 @@ Partial Class Ventas_CatPreciosLista
         TxtPrecioLista.Text = GvRow.DataKey("PrecioLista").ToString
         ChkPredeterminada.Checked = GvRow.DataKey("Predeterminada") = "True"
         chkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
+        ChkRestringida.Checked = CBool(GvRow.DataKey("Restringuida"))
+
         EsEditar = 1
         BtnAgregarCatalogo.Text = "Actualizar"
         dvEstatus.Visible = True
+
+        Using ObjVenta As New ClsVentas
+            If ObjVenta.GetPreciosListasSubProyecto(CvePrecioLista, UsuarioActual.CveEmpresa) Then
+                GvSubProyectos.DataSource = ObjVenta.DtResultados.Copy()
+            End If
+        End Using
+        GvSubProyectos.DataBind()
+
         UpBodyCo.Update()
         UpFooter.Update()
         RegistraScript("$('#divAgregar').modal()")
@@ -76,19 +90,46 @@ Partial Class Ventas_CatPreciosLista
         Dim TieneError As Boolean = False
         Try
             If EsEditar = 0 Then
-                If ObjVta.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, ChkPredeterminada.Checked, 0, UpdateFranquicia:=ActualizarFranquicias) > 0 Then
+                Dim CvePrecioLista As Integer = ObjVta.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, ChkPredeterminada.Checked, ChkRestringida.Checked, 0, UpdateFranquicia:=ActualizarFranquicias)
-                    Alert("El Precio de Lista se agregó correctamente", TipoMensaje.MsgInformacion)
+                If Not CvePrecioLista > 0 Then
-                Else
-                    Alert("Ocurrió un error al agregar el Precio de Lista", TipoMensaje.MsgError)
                     TieneError = True
                 End If
+
+                If Not TieneError Then
+                    If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                        For Each GvRow As GridViewRow In GvSubProyectos.Rows
+                            If GvRow.RowType = DataControlRowType.DataRow Then
+                                Dim Permitir As Boolean = GvRow.FCCheckBox("ChkPermitir").Checked
+                                Dim CveSubProyecto As Integer = GvRow.DataKey("CveSubProyecto").ToEntero()
+                                If Not ObjVta.UpdatePreciosListasSubProyecto(CvePrecioLista, CveSubProyecto, Permitir, UsuarioActual.CveEmpresa) Then
+                                    TieneError = False
+                                    Exit For
+                                End If
+                            End If
+                        Next
+                    End If
+                End If
+
             ElseIf EsEditar = 1 Then
-                If ObjVta.UpdatePrecioLista(TxtPrecioLista.Text, chkEstatus.Checked, UsuarioActual.CveUsuario, 0, ChkPredeterminada.Checked, CvePrecioLista, UpdateFranquicia:=ActualizarFranquicias) Then
+                If Not ObjVta.UpdatePrecioLista(TxtPrecioLista.Text, chkEstatus.Checked, UsuarioActual.CveUsuario, 0, ChkPredeterminada.Checked, ChkRestringida.Checked, CvePrecioLista, UpdateFranquicia:=ActualizarFranquicias) Then
-                    Alert("El Precio de Lista se editó correctamente", TipoMensaje.MsgInformacion)
-                Else
-                    Alert("Ocurrió un error al editar al Precio de Lista", TipoMensaje.MsgError)
                     TieneError = True
                 End If
+
+                If Not TieneError Then
+                    If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                        For Each GvRow As GridViewRow In GvSubProyectos.Rows
+                            If GvRow.RowType = DataControlRowType.DataRow Then
+                                Dim Permitir As Boolean = GvRow.FCCheckBox("ChkPermitir").Checked
+                                Dim CveSubProyecto As Integer = GvRow.DataKey("CveSubProyecto").ToEntero()
+                                If Not ObjVta.UpdatePreciosListasSubProyecto(Me.CvePrecioLista, CveSubProyecto, Permitir, UsuarioActual.CveEmpresa) Then
+                                    TieneError = False
+                                    Exit For
+                                End If
+                            End If
+                        Next
+                    End If
+                End If
+
                 EsEditar = 0
                 dvEstatus.Visible = False
                 BtnAgregarCatalogo.Text = "Agregar"
@@ -100,8 +141,10 @@ Partial Class Ventas_CatPreciosLista
 
         If TieneError Then
             ObjVta.RollBack()
+            Alert("Ocurrió un error al guardar el precio de lista", TipoMensaje.MsgError)
         Else
             ObjVta.Commit()
+            Alert("El precio de lista se guardo correctamente", TipoMensaje.MsgInformacion)
         End If
 
         RegistraScript("$('#divAgregar').modal('hide')")

Ventas/Clientes.aspx.vb

@@ -10619,7 +10619,7 @@ Partial Class Clientes
         End If
 
         Dim ObjVentas As New ClsVentas(transaccionSQL)
-        Dim CvePrecioListaNuevo As Integer = ObjVentas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, False, 0, CvePrecioListaClonar:=CvePrecioListaClonar)
+        Dim CvePrecioListaNuevo As Integer = ObjVentas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, False, False, 0, CvePrecioListaClonar:=CvePrecioListaClonar)
 
         If Not CvePrecioListaNuevo > 0 Then
             respuesta = False

Ventas/Ventas.aspx.vb

@@ -3731,6 +3731,20 @@ Partial Class Ventas
 
         UpPS.Update()
     End Sub
+
+    Private Sub CargaListasPreciosSubProyectos()
+        'If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.Empresa.Funcionalidad(360) = "1" Then
+        '    DivPrecioLista.Visible = True
+        '    Using ObjVta As New ClsVentas
+        '        If ObjVta.GetPreciosListaSPPermitidos(DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+        '            Dim Dt = ObjVta.DtResultados.Copy()
+        '            DdlPrecioLista.DataSource = Dt
+        '            DdlPrecioLista.SelectedValue = Dt.FiltroPrimeroValor("CvePrecioLista", "Predeterminada = 'True'")
+        '        End If
+        '    End Using
+        '    UpPS.Update()
+        'End If
+    End Sub
     Private Sub BloqueaClasificaciones()
         If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
             DdlClasificacion.Enabled = False
@@ -5284,8 +5298,12 @@ Partial Class Ventas
                                 Trsaldo.Visible = True
                                 HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
                                 HplPagado.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
-                                TrMotivoDev.Visible = True
+
-                                lblMotivoDev.Text = DbRowVenta("MotivoDevolucion").ToString()
+                                If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                                    TrMotivoDev.Visible = True
+                                    lblMotivoDev.Text = DbRowVenta("MotivoDevolucion").ToString()
+                                End If
+
                             Case "Ped"
                                 DdlTipoComprobante.Items.Insert(0, New ListItem("Pedido", "Ped"))
                                 CvePedido = CveVenta
@@ -12279,7 +12297,13 @@ Partial Class Ventas
         ObjFactura.Det_OrdenCompra = TxtDet_OrdenCompra.Text.Trim
         ObjFactura.Det_FechaOrdenCompra = TxtDet_FechaOrdenCompra.Text.Trim
         ObjFactura.Det_ContraRecibo = TxtDet_ContraRecibo.Text.Trim
-        ObjFactura.MonedaAbreviatura = DdlMoneda.SelectedItem.Text
+        ObjFactura.MonedaAbreviatura = ""
+
+        Try
+            ObjFactura.MonedaAbreviatura = GlobalDTMonedas().FiltroPrimeroValor("Moneda", $"CveMoneda = {DdlMoneda.SelectedValue.ToEntero}")
+        Catch ex As Exception
+
+        End Try
 
         If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
             ObjFactura.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
@@ -18540,6 +18564,8 @@ Partial Class Ventas
             DdlPS.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue)
         End If
 
+        CargaListasPreciosSubProyectos()
+
         UpDetalle.Update()
         UpEmitirTransitorio.Update()
     End Sub