Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

App_Code/ClsClientes.vb

@@ -444,23 +444,6 @@ Public Class ClsClientes
     End Function
 
 
-    Public Function RegistrarCliente(CveCliente As Integer) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_ClientesRegistrar")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al Registrar el Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
     'Public Function VincularCuentasContables(Id0CtaContClientes As Integer, Id0CtaContAnticipos As Integer, Id0CtaContRetIVA As Integer, Id0CtaContRetISR As Integer, CveCliente As Integer, Optional Id0CtaContComplementaria As Integer = -1, Optional Id0CtaContMonedaExtranjera As Integer = -1, Optional Id0CtaContMonedaExtranjeraAnticipos As Integer = -1, Optional Id0CtaContCompAnticipos As Integer = -1) As Boolean
 
     '    Dim Retorno As Boolean = False
@@ -954,6 +937,24 @@ Public Class ClsClientes
         End Try
         Return Retorno
     End Function
+    Public Function GetClienteSucursales(CveCliente As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Vta_ClienteSucursalesGet")
+        SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+        SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el las Sucursales del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
     Public Function GetSucursales(CveCliente As Integer, Optional CveClienteSucursal As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 

App_Code/ClsGenerales.vb

@@ -986,11 +986,11 @@ Public Class ClsGenerales
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "R I M T A M A N I O S"
-    Public Function GetRimTamanios(CveEmpresa As Integer, Optional CveRinTamaño As Integer = -1) As Boolean
+    Public Function GetRinTamanios(CveEmpresa As Integer, Optional CveRinTamaño As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_TamañosGet")
 

App_Code/ClsPaginas.vb

@@ -4401,6 +4401,45 @@ Public Class ClsPaginas
             Application(AppNombre) = value
         End Set
     End Property
+
+    Public Shared Property GlobalDTPSRinTamaños(CveEmpresa As Integer, Optional CveRinTamaño As Integer = -1) As DataTable
+        Get
+            Dim AppNombre As String = $"GlobalDTPSRinTamaños-{CveEmpresa}"
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Using ObjGral As New ClsGenerales()
+                    If ObjGral.GetRinTamanios(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados Else HttpContext.Current.Application(AppNombre) = Nothing
+                End Using
+            End If
+            Dim Str As New StringBuilder
+            If CveRinTamaño > 0 Then Str.AppendFormat(" CveRinTamaño = {0} ", CveRinTamaño)
+            Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            GlobalDTPSRinTamaños = Dv.ToTable
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = $"GlobalDTPSRinTamaños-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
+        End Set
+    End Property
+
+    Public Shared Property GlobalDTPSMedidas(CveEmpresa As Integer, Optional CveMedida As Integer = -1) As DataTable
+        Get
+            Dim AppNombre As String = $"GlobalDTPSMedidas-{CveEmpresa}"
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Using ObjGral As New ClsGenerales()
+                    If ObjGral.GetMedidas(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados Else HttpContext.Current.Application(AppNombre) = Nothing
+                End Using
+            End If
+            Dim Str As New StringBuilder
+            If CveMedida <> -1 Then Str.AppendFormat(" CveMedida = {0} ", CveMedida)
+            Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            GlobalDTPSMedidas = Dv.ToTable
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = $"GlobalDTPSMedidas-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
+        End Set
+    End Property
+
 #Region "CITRUS GAME"
     Property GlobalDTGralEmpacados(CveEmpresa As Integer) As DataTable
         Get
@@ -5885,7 +5924,7 @@ Public Class ClsPaginas
                         params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion))
                         params.Add(New ReportParameter("Medico", Vta.Medico))
                         params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento))
-                        params.Add(New ReportParameter("FechaCirugia", Vta.Alfa1.ToDateTime.ToString("dd/MM/yyyy hh:mm")))
+                        params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy hh:mm")))
                     End If
 
                     RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
@@ -5993,7 +6032,7 @@ Public Class ClsPaginas
                         params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion))
                         params.Add(New ReportParameter("Medico", Vta.Medico))
                         params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento))
-                        params.Add(New ReportParameter("FechaCirugia", Vta.Alfa1.ToDateTime.ToString("dd/MM/yyyy hh:mm")))
+                        params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy hh:mm")))
                     End If
 
                     RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
@@ -9583,9 +9622,9 @@ Public Class ClsPaginas
 
 #Region "Transportes"
             PaginaDict.Add("/Transportes/ListadoContratos.aspx".ToUpper(), 598)
-            PaginaDict.Add("/Transportes/ListadoViajes.aspx".ToUpper(), 598)
-            PaginaDict.Add("/Transportes/Boletos.aspx".ToUpper(), 598)
-            PaginaDict.Add("/Transportes/ListadoBoletos.aspx".ToUpper(), 598)
+            PaginaDict.Add("/Transportes/ListadoViajes.aspx".ToUpper(), 599)
+            PaginaDict.Add("/Transportes/ListadoBoletos.aspx".ToUpper(), 600)
+            PaginaDict.Add("/Transportes/Boletos.aspx".ToUpper(), 601)
 #End Region
             'Antes de aquí.
 

App_Code/ClsVentas.vb

@@ -406,7 +406,7 @@ Public Class ClsVentas
     End Function
 
     Public Function AddVenta(TipoDocto As String, FolioFact As Integer, CveCliente As Integer, CveClienteSucursal As Integer, SubTotal As Double, Descuento As Double, Amortizacion As Double, IVA As Double, RetIVA As Double, RetISR As Double, Total As Double,
-                             CveMoneda As Integer, TipoCambio As Double, CveMetodoPago As Integer, CondicionesPago As Integer, FormaPago As Integer, FechaVencimiento As DateTime, Fecha As DateTime, MotivoDescuento As String, Observaciones As String, FechaEjecucion As Date,
+                             CveMoneda As Integer, TipoCambio As Double, CveMetodoPago As Integer, CondicionesPago As Integer, FormaPago As Integer, FechaVencimiento As DateTime, Fecha As DateTime, MotivoDescuento As String, Observaciones As String, FechaEjecucion As DateTime,
                              CveVendedor As Integer, Alfa1 As String, Alfa2 As String, Alfa3 As String, Num1 As Double, Num2 As Double, Num3 As Double,
                              Fech1 As Date, Fech2 As Date, Fech3 As Date, CveCorte As Integer, NumeroPersonas As Integer, CvePrePoliza As Integer, CveUsuario As Integer, CveEmpresa As Integer,
                              Optional Propina As Double = -1, Optional CveVentaTerminal As Integer = -1, Optional AtencionA As String = "-1", Optional CveContrato As Integer = -1,
@@ -448,7 +448,7 @@ Public Class ClsVentas
             .Add("@Fecha", SqlDbType.DateTime).Value = Fecha
             .Add("@MotivoDescuento", SqlDbType.VarChar).Value = MotivoDescuento
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
-            .Add("@FechaEjecucion", SqlDbType.Date).Value = FechaEjecucion
+            .Add("@FechaEjecucion", SqlDbType.DateTime).Value = FechaEjecucion
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
             .Add("@Alfa1", SqlDbType.VarChar).Value = Alfa1
             .Add("@Alfa2", SqlDbType.VarChar).Value = Alfa2

App_Code/Modelos.vb

@@ -7563,7 +7563,7 @@ Namespace Modelos
         Public Property CveVendedor As Integer = 0
         Public Property VendedorCodigo As String = ""
         Public Property CveSucursalEjecucion As Integer
-        Public Property FechaEjecucion As Date
+        Public Property FechaEjecucion As DateTime
         Public Property CveSucursalCobranza As Integer
 
         Public Property CveSubProyectoCobranza As Integer

App_Code/Timbrado.vb

@@ -1025,7 +1025,7 @@ Public Class Timbrado
             End Using
         Catch ex As Exception
             Retorno = ""
-            OnError("Ocurrió un error al enviar la informacion", ex)
+            OnError("PAC no está respondiendo. No se puede emitir el timbre (Err.PAC5).", ex)
         End Try
         Return Retorno
     End Function

App_Code/Timbres.vb

@@ -303,7 +303,7 @@ Public Class Timbres
                                                                    .DescripEmbalaje = drr("Embalaje").ToString,
                                                                    .ValorMercancia = drr("PU").ToString.ToDecimal,
                                                                    .Moneda = If(drr("PU").ToString.ToDecimal > 0, "MXN", ""), 'temporal
-                                                                   .FraccionArrancelaria = "",
+                                                                   .FraccionArrancelaria = drr("ClaveSATFraccionArancelaria").ToString,
                                                                    .UUIDComercioExt = "",
                                                                    .SectorCOFEPRIS = drr("ClaveSectorCOFEPRIS").ToString,
                                                                    .NombreIngredienteActivo = drr("NombreIngredienteActivo").ToString,

App_Code/modExtensiones.vb

@@ -821,6 +821,10 @@ Namespace Extensiones
             End If
             Return Tmp
         End Function
+        <Runtime.CompilerServices.Extension()>
+        Public Function SubStringADS(Str As String, Longitud As Integer) As String
+            Return Str.Substring(0, If(Str.Length > Longitud, Longitud, Str.Length))
+        End Function
 
         <Runtime.CompilerServices.Extension()>
         Public Function Texto2Letras(ByVal Importe As Decimal, Optional CveMoneda As Integer = 1) As String

Compras/PopUpVerFactura.aspx.vb

@@ -3087,6 +3087,7 @@ Partial Class PopUpVerFactura
                 Vta.Medico = dtVentas(0)("Medico").ToString
                 Vta.Procedimiento = dtVentas(0)("Procedimiento").ToString
                 Vta.Alfa1 = dtVentas(0)("Alfa1").ToString
+                Vta.FechaEjecucion = dtVentas(0)("FechaEjecucion").ToString.ToDateTime
 
                 Vta.RefDocto = dtVentas(0)("Ref").ToString
                 Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

@@ -2145,6 +2145,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                             If dColumn.ColumnName = "SinSubProyecto" Then
                                 TxtSub = "Sin SubProyecto"
+                                Continue For
                             End If
 
 
@@ -2190,6 +2191,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             IndexData = IndexData + 1
 
             If dColumn.ColumnName = "SinSubProyecto" Then
+                'Continue For
                 Exit For
             End If
         Next

Inventarios/PopUpExistenciasAlmacen.aspx.vb

@@ -2,6 +2,7 @@
 Option Strict On
 
 Imports Extensiones
+Imports System.Data
 Partial Class Inventarios_Default
     Inherits ClsPaginas
 
@@ -247,7 +248,7 @@ Partial Class Inventarios_Default
         Dim ObjInventarios As New ClsInventarios
         If ObjInventarios.GetExistencias119(DDlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Compuesto) Then
             GV.DataSource = ObjInventarios.DtResultados
-            TblBusqueda.Visible = False
+            TblBusqueda.Visible = True
             CargaPS(DDlPS.SelectedValue.ToEntero)
             GV.Columns(6).Visible = True
         End If
@@ -280,16 +281,18 @@ Partial Class Inventarios_Default
     End Sub
 #End Region
 
-    Private Sub CargarMedRin()
-        Dim ObjGral As New ClsGenerales
-        If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
-            DdlMedidas.DataSource = ObjGral.DtResultados.FiltraParametros("", Orderby:="Medida")
-            If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
-                DdlRin.DataSource = ObjGral.DtResultados.FiltraParametros("", Orderby:="RinTamaño")
-            End If
-        End If
-        ObjGral.Dispose()
-        DdlMedidas.DataBind()
+    Private Sub CargarMedRin()
+        'Dim ObjGral As New ClsGenerales
+        'If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
+        '    DdlMedidas.DataSource = GlobalDTPS.FiltraParametros("", Orderby:="Medida")
+        '    If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
+        '        DdlRin.DataSource = ObjGral.DtResultados.FiltraParametros("", Orderby:="RinTamaño")
+        '    End If
+        'End If
+        'ObjGral.Dispose()
+        DdlMedidas.DataSource = GlobalDTPSMedidas(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Medida")
+        DdlMedidas.DataBind()
+        DdlRin.DataSource = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="RinTamaño")
         DdlRin.DataBind()
         DdlMedidas.Items.Insert(0, New ListItem("-", "-1"))
         DdlRin.Items.Insert(0, New ListItem("-", "-1"))

Inventarios/TraspasoAlmacen.aspx.vb

@@ -2933,11 +2933,10 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim RowsNoCargados As Integer = 0
             Dim NoPSConSerie As Integer = 0
             Try
-                Dim DtPS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa)
+                Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
                 For Each RowExcel As DataRow In dt.Rows
                     If RowExcel("Codigo").ToString() <> "" Then
 
-
                         Dim RowPS As DataRow = DtPS.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Codigo").ToString()))
 
                         Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero()
@@ -2954,7 +2953,7 @@ Partial Class Inventarios_TraspasoAlmacen
                             Dim Valido As Boolean = True
                             Dim ValidarLote As Boolean = True
 
-                            If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero = 6 Then
+                            If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}") = "6" Then
                                 ValidarLote = False
                             End If
 

Nomina/Finiquito.aspx

@@ -307,6 +307,25 @@
                                             </div>
                                         </div>
                                     </div>
+                                    
+                                    <div class="row">
+                                        <div class="col-md-4">
+                                            <div class="form-group form-md-line-input input-iconright">
+                                                <asp:TextBox ID="TxtDiasVacaciones" runat="server" Enabled="false" Text="--" CausesValidation="True" CssClass="form-control"></asp:TextBox>
+                                                <asp:Label runat="server" Text="DíasVacaciones: " AssociatedControlID="TxtDiasVacaciones"></asp:Label>
+                                            </div>
+                                        </div>
+                                        <div class="col-md-4">
+                                            <div class="form-group form-md-line-input input-iconright">
+                                                <asp:TextBox ID="TxtDiasAguinaldo" runat="server" Enabled="false" Text="--" CausesValidation="True" CssClass="form-control"></asp:TextBox>
+                                                <asp:Label runat="server" Text="Días Aguinaldo: " AssociatedControlID="TxtDiasAguinaldo"></asp:Label>
+                                            </div>
+                                        </div>
+                                        <div class="col-md-4">
+                                            <div class="form-group form-md-line-input input-iconright">
+                                            </div>
+                                        </div>
+                                    </div>
                                     <div class="gconceptos" runat="server" id="gconceptos">
                                         <div class="text-center tconceptos">Conceptos a incluir</div>
                                         <div class="row">

Nomina/Finiquito.aspx.cs

@@ -803,14 +803,15 @@ public partial class Nomina_Finiquito : ClsPaginas
                 }
                 else { continuar = false; }
                 if (continuar) { continuar = validaAutorizado(onom); }
-                if (continuar)
+                if (continuar && (continuar = onom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, diasindemnizacion: Txtdiasindemnizacion.Text.ToEntero())))
                 {
-                    continuar = onom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, diasindemnizacion: Txtdiasindemnizacion.Text.ToEntero());
                     if (onom.DtResultados.Rows.Count > 0)
                     {
                         DataRow drow = onom.DtResultados.Rows[0];
 
                         LnkShowFfiniquito.Text = string.Format("{0:##,###,###.00##}", drow["SalarioBC"]);
+                        TxtDiasVacaciones.Text = string.Format("{0:##,###,###.00##}", drow["dvacporcentaje"]);
+                        TxtDiasAguinaldo.Text = string.Format("{0:##,###,###.00##}", drow["dAguinaldo"]);
                         LtlSFSDI.Text = string.Format("<pre>{0:##,###,###.00##}</pre>", drow["SDI"]);
                         LtlSFDias.Text = string.Format("<pre>{0:##,###,###}</pre>", drow["diasMesAnterior"]);
                         LtlSFPercepciones.Text = string.Format("<pre>{0:##,###,###.00##}</pre>", drow["TotalPercepciones"]);

OS/OrdenesServicios.aspx

@@ -1291,7 +1291,7 @@
                                             <HeaderTemplate>Utilizado</HeaderTemplate>
                                             <ItemTemplate>
                                                 <asp:TextBox ID="TxtUtilizado" runat="server" Width="50px"  ></asp:TextBox>
-                                                <ajax:FilteredTextBoxExtender runat="server" FilterType="Custom" TargetControlID="TxtUtilizado" ValidChars="123456789." />
+                                                <ajax:FilteredTextBoxExtender runat="server" FilterType="Custom" TargetControlID="TxtUtilizado" ValidChars="1234567890." />
                                             </ItemTemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField>

OS/OrdenesServicios.aspx.vb

@@ -3007,18 +3007,27 @@ Partial Class OS_OrdenesServicios
         Dim ObjInventario As New ClsInventarios(ObjV.IniciaTransacSQL())
         Dim ObjConta As New ClsContabilidad(ObjV.IniciaTransacSQL())
 
+        Dim GenrarRemisionMovimientos As Boolean = False
         If ProcesoOK Then
             Dim AplicaDevolucion As Boolean = False
             For Each GvRow As GridViewRow In GvMU.Rows
                 Dim CveVentaDetalle As Integer = GvRow.DataKey("CveVentaDetalle").ToEntero
                 Dim CantidadDev As Decimal = GvRow.DataKey("Cantidad").ToDecimal - GvRow.FCTextBox("TxtUtilizado").Text.ToDecimal
+
                 If CantidadDev > 0 Then
                     AplicaDevolucion = True
                     If Not ObjV.UpdateVentasDetalleCantidadDevolucion(CveVentaDetalle, CantidadDev) Then
                         ProcesoOK = False
+                        GenrarRemisionMovimientos = False
+                        AplicaDevolucion = False
                         Exit For
                     End If
                 End If
+
+                If GvRow.FCTextBox("TxtUtilizado").Text.ToDecimal > 0 Then
+                    GenrarRemisionMovimientos = True
+                End If
+
             Next
             If AplicaDevolucion Then
                 If Not ObjV.UpdateVentasDevolucionAlmacen(1, CveVenta) Then
@@ -3032,7 +3041,7 @@ Partial Class OS_OrdenesServicios
         Dim ImporteAlmacen As Decimal
         Dim Fecha As DateTime = ClsPaginas.NowADS()
 
-        If ProcesoOK Then
+        If GenrarRemisionMovimientos AndAlso ProcesoOK Then
             Respuesta = GeneraRemision(CveVentaPedido, ObjV.IniciaTransacSQL())
 
             If Respuesta.CveVenta > 0 Then
@@ -3046,7 +3055,7 @@ Partial Class OS_OrdenesServicios
             End If
         End If
 
-        If ProcesoOK Then
+        If GenrarRemisionMovimientos AndAlso ProcesoOK Then
 
             CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Respuesta.CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtil")
             Dim Folio As Integer = ObjInventario.Folio
@@ -3146,7 +3155,13 @@ Partial Class OS_OrdenesServicios
 
         If ProcesoOK Then
             ObjV.Commit()
-            Alert("El material utilizado se guardó correctamente")
+
+            If GenrarRemisionMovimientos = False Then
+                Alert("El material sera recibido en almacén.")
+            Else
+                Alert("El material utilizado se guardó correctamente")
+            End If
+
             RegistraScript("$('#DivModalMaterialUtilizado').modal('hide');")
         Else
             ObjV.RollBack()

OS/RepOSMedicas.aspx

@@ -171,7 +171,7 @@
                     <%--1--%>                   
                     <asp:BoundField DataField="FechaCita"  HeaderText="Fecha Cirugía" ItemStyle-Width="100px" DataFormatString="{0:dd/MM/yyyy HH:mm}" HtmlEncode="False" />
                     <%--2--%>
-                    <asp:BoundField HeaderText="Cliente" DataField="Nombre"   ItemStyle-HorizontalAlign="Left" />                    
+                    <asp:BoundField HeaderText="Hospital" DataField="Nombre"   ItemStyle-HorizontalAlign="Left" />                    
                     <%--3--%>
                     <asp:BoundField HeaderText="Médico" DataField="Medico"   ItemStyle-HorizontalAlign="Left" />
                     <%--4--%>                    
@@ -196,10 +196,4 @@
 
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
-
- 
-
-
-
-
 </asp:Content>

RH/CalculoSBC.aspx.cs

@@ -85,8 +85,10 @@ public partial class RH_CalculoSBC : ClsPaginas
             string SuaFiletext = System.IO.File.ReadAllText(fileurl, Encoding.GetEncoding("iso-8859-1"));
             using (ClsNominas ObjPersonal = new ClsNominas())
             {
+                ObjPersonal.IniciaTransacSQL();
                 if (ObjPersonal.ProcesarSUA(SuaFiletext, UsuarioActual.CveEmpresa))
                 {
+                    ObjPersonal.Commit();
                     if (ObjPersonal.DTSetResultados.Tables.Count > 4)
                     {
                         DateTime dateperiodo;
@@ -96,6 +98,11 @@ public partial class RH_CalculoSBC : ClsPaginas
                         GVProcesarSUA.DataSource = ObjPersonal.DTSetResultados.Tables[3];
                     }
                 }
+                else
+                {
+                    ObjPersonal.RollBack();
+
+                }
             }
 
         }

RH/Personal.aspx.vb

@@ -6972,7 +6972,10 @@ Partial Class RH_Personal
         calcularSDI()
 
         Using ObjPersonal As ClsRH = New ClsRH()
+            ObjPersonal.IniciaTransacSQL()
+
             If ObjPersonal.UpdateSalariointegrado(CvePersonal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiario.Text.ToDouble) Then
+                ObjPersonal.Commit()
                 TxtSalarioDiario.Text = TxtFISalariodiario.Text
                 TxtSalarioDiarioM.Text = TxtFISalariodiario.Text
                 TxtSalarioCotizado.Text = TxtFISalarioDiarioIntegrado.Text
@@ -6980,8 +6983,10 @@ Partial Class RH_Personal
                 TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
                 TxtSDI.Text = TxtFISalarioDiarioIntegrado.Text
                 UpDatos.Update()
-                Alert("Se ha actualizado el salario diario integreado")
+                Alert("Se ha actualizado el salario diario integrado")
                 RegistraScript("$('#DmodalFactordeIntegraccion').modal('hide')")
+            Else
+                ObjPersonal.RollBack()
             End If
         End Using
     End Sub
@@ -7002,9 +7007,12 @@ Partial Class RH_Personal
         TxtSalarioDiarioImSS.Text = (TxtFISalarioDiarioIntegrado.Text.ToDecimal() + salarioVariable).ToString()
         TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
         Using ObjPersonal As ClsRH = New ClsRH()
+            ObjPersonal.IniciaTransacSQL()
             If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioImSS.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then
 
 
+                ObjPersonal.Commit()
+
                 TxtSalarioDiario.Text = TxtSalarioDiarioM.Text
                 TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
                 TxtSalarioCotizado.Text = TxtSalarioDiarioImSS.Text
@@ -7014,6 +7022,8 @@ Partial Class RH_Personal
                 UpModSalario.Update()
                 UpDatos.Update()
                 Alert("Se ha actualizado el salario", TipoMensaje.ToastInformacion)
+            Else
+                ObjPersonal.RollBack()
             End If
         End Using
 

Sistemas/CatModulos.aspx.vb

@@ -50,6 +50,7 @@ Partial Class CatModulos
                             UsuarioActual.CveUsuario, DdlPlataforma.SelectedValue.ToEntero) Then
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalModulos"))
                 Alert("El nuevo Módulo se guardó correctamente.", TipoMensaje.MsgInformacion)
+                GlobalDTModulos = Nothing
                 CargaDatos()
                 UpDatos.Update()
             End If
@@ -58,6 +59,7 @@ Partial Class CatModulos
                                    TxtOrden.Text.Trim().ToEntero(), TxtEstilo.Text.Trim(), CboIncluye.SelectedValue, CboAgrupacion.SelectedValue, UsuarioActual.CveUsuario, HdnID.Value.ToEntero, DdlPlataforma.SelectedValue.ToEntero) Then
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalModulos"))
                 Alert("El Módulo se actualizó correctamente.", TipoMensaje.MsgInformacion)
+                GlobalDTModulos = Nothing
                 CargaDatos()
                 UpDatos.Update()
             End If
@@ -129,12 +131,10 @@ Partial Class CatModulos
         Dim Modulo As New ClsModulos
         If Modulo.RemoveModulo(GvDatos.DataKeys(e.RowIndex).Value.ToString().ToEntero()) Then
             GvDatos.EditIndex = -1
+            GlobalDTModulos = Nothing
             CargaDatos()
         End If
-
         Modulo.Dispose()
-
-
     End Sub
 #End Region
 
@@ -198,6 +198,7 @@ Partial Class CatModulos
         LbAgregar.Text = "Actualizar"
         UpModal.Update()
         RegistraScript("$('#ModalModulos').modal();")
+        GlobalDTModulos = Nothing
     End Sub
 
 

Transportes/ListadoBoletos.aspx

@@ -19,7 +19,6 @@
 </asp:Content>
 
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
-
     <div class="row my-1" style="margin-right: 10px; margin-top: 10px;" align="right">
         <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvBoletos.ClientID) %>"
             style="display: inline-block; margin-right: -10px; width: 150px;" />
@@ -27,12 +26,13 @@
             style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier">
             </i></a>
     </div>
+    <asp:Label ID="Prueba" runat="server" Text=""></asp:Label>
 
     <div class="portlet light xspadding  bordered margin-bottom-10">
         <asp:GridView ID="GvBoletos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningún boleto registrado"
             CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"
-            data-sort="true">
-            <Columns>
+            data-sort="true" DataKeyNames="Asiento,Nombre, Visa,Celular,Sexo,Estatus,Partida,Destino, Importe">
+          <Columns>
 
                 <asp:TemplateField HeaderText="No. Asiento">
                     <ItemTemplate>
@@ -71,17 +71,35 @@
                     </ItemTemplate>
                 </asp:TemplateField>
 
+              <asp:TemplateField HeaderText="Partida">
+                  <ItemTemplate>
+                      <asp:Literal ID="LtlPartida" runat="server" Text='<%# Eval("Partida") %>'></asp:Literal>
+                  </ItemTemplate>
+              </asp:TemplateField>
+
+              <asp:TemplateField HeaderText="Destino">
+                  <ItemTemplate>
+                      <asp:Literal ID="LtlDestino" runat="server" Text='<%# Eval("Destino") %>'></asp:Literal>
+                  </ItemTemplate>
+              </asp:TemplateField>
+
+              <asp:TemplateField HeaderText="Importe">
+                  <ItemTemplate>
+                      <asp:Literal ID="LtlImporte" runat="server" Text='<%# Eval("Importe") %>'></asp:Literal>
+                  </ItemTemplate>
+              </asp:TemplateField>
 
                 <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Acciones">
                     <ItemTemplate>
                         <asp:LinkButton ID="BtnEditar" runat="server" AlternateText="Editar"
-                            CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
-                        <asp:LinkButton ID="BtnToggle" runat="server" AlternateText="Activar/Desactivar"
-                            CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-cancel'></i>"
+                            CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" ToolTip="Editar"/>
+                        <asp:LinkButton ID="BtnToggle" runat="server" AlternateText="Activar"
+                            ToolTip="Activar" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-cancel'></i>"
                             data-toggle="confirmation" data-popout="true" data-original-title='<%# If(Eval("Estatus").ToString = "True", "Cancelar Boleto", "Reactivar") %>'
                             data-btn-ok-label="si" OnClick="ToggleViajesPasajeros" />
-                        <asp:LinkButton ID="BtnViaje" runat="server" AlternateText="Viaje"
-                            CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-print'></i>" />
+                        <asp:LinkButton ID="BtnImprimir" runat="server" AlternateText="Viaje"
+                            CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-print'></i>" ToolTip="Imprimir"
+                            OnClick="ImprimirBoleto" />
 
                     </ItemTemplate>
                 </asp:TemplateField>

Transportes/ListadoBoletos.aspx.vb

@@ -1,8 +1,11 @@
 Option Explicit On
 Option Strict On
+Imports System.Data
 Imports ADSNetLibrary.Helpers
 Imports ADSNetLibrary.SIGAPI.Helpers
 Imports Extensiones.ModExtensiones
+Imports Microsoft.Reporting.WebForms
+
 
 Partial Class ListadoBoletos
     Inherits ClsPaginas
@@ -14,12 +17,23 @@ Partial Class ListadoBoletos
             ViewState("CveViaje") = value
         End Set
     End Property
+    Private Property Ruta As String
+        Get
+            Return ViewState("Ruta").ToString()
+        End Get
+        Set(value As String)
+            ViewState("Ruta") = value
+        End Set
+    End Property
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             If Request.QueryString("CveViaje") Is Nothing Then
                 Response.Redirect("/Transportes/ListadoViajes.aspx")
             End If
             CveViaje = Request.QueryString("CveViaje").ToEntero
+            Ruta = Request.QueryString("Ruta")
+
+            Prueba.Text = Ruta
 
             InicializaCombos()
             CargaDatos()
@@ -71,4 +85,30 @@ Partial Class ListadoBoletos
 
     End Sub
 
+    Protected Sub ImprimirBoleto(sender As Object, e As EventArgs)
+        Dim dtResult As New DataTable()
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim params As New List(Of ReportParameter)
+
+        params.Add(New ReportParameter("Ruta", Ruta))
+        params.Add(New ReportParameter("Origen", GvRow.DataKey("Partida")))
+        params.Add(New ReportParameter("Destino", GvRow.DataKey("Destino")))
+        params.Add(New ReportParameter("FechaSalida", "2024-01-03"))
+        params.Add(New ReportParameter("HoraSalida", "17:00"))
+        params.Add(New ReportParameter("Nombre", GvRow.DataKey("Nombre")))
+        params.Add(New ReportParameter("Visa", GvRow.DataKey("Visa")))
+        params.Add(New ReportParameter("Celular", GvRow.DataKey("Celular")))
+        params.Add(New ReportParameter("Importe", GvRow.DataKey("Importe")))
+        params.Add(New ReportParameter("TipoBoleto", "Tipo Boleto"))
+        params.Add(New ReportParameter("Agencia", "Agencia"))
+        params.Add(New ReportParameter("TelefonoAgencia", "Telefono Agencia"))
+
+        ImprimirPDFStimul("Empresas/188/Formatos/Boleto.mrt", dtResult, params, NombreArchivo:="Boleto")
+
+        'Empresas/Grales/Formatos/EntradaSalida.mrt
+        'Empresas/188/Formatos/Boleto.mrt
+
+    End Sub
+
 End Class

Transportes/ListadoViajes.aspx.vb

@@ -15,6 +15,14 @@ Partial Class ListadoViajes
             ViewState("CveViaje") = value
         End Set
     End Property
+    Private Property Ruta As String
+        Get
+            Return ViewState("Ruta").ToString()
+        End Get
+        Set(value As String)
+            ViewState("Ruta") = value
+        End Set
+    End Property
 #End Region
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 
@@ -192,7 +200,7 @@ Partial Class ListadoViajes
         DdlPartida.SelectedValue = GvRow.DataKey("CvePartida")
         DdlChofer.SelectedValue = GvRow.DataKey("CvePersonal")
         ViewState("CveViaje") = GvRow.DataKey("CveViaje")
-        Page.Response.Write("<script>console.log('El resultado de tu variable" + CveViaje + "')</script>")
+        ViewState("Ruta") = GvRow.DataKey("Ruta")
         Dim fecha As DateTime
 
         If DateTime.TryParse(GvRow.DataKey("Fecha").ToString, fecha) Then
@@ -247,6 +255,8 @@ Partial Class ListadoViajes
     Protected Sub GoBoletos(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim CveViaje As String = GvRow.DataKey("CveViaje")
-        Response.Redirect(String.Format("~/Transportes/ListadoBoletos.aspx?CveViaje={0}", CveViaje))
+        Dim Ruta As String = GvRow.DataKey("Ruta")
+        Response.Redirect(String.Format("~/Transportes/ListadoBoletos.aspx?CveViaje={0}&Ruta={1}", CveViaje, Ruta))
+
     End Sub
 End Class

Ventas/ActualizarPrecios.aspx

@@ -493,6 +493,126 @@
                                         <asp:TextBox ID="TxtPrecio_25" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
                                     </ItemTemplate>
                                 </asp:TemplateField>
+                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_26" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_26" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_27" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_27" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                    <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_28" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_28" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                     <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_29" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_29" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                  <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_30" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_30" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_31" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_31" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_32" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_32" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                   <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_33" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_33" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                    <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_34" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_34" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                    <HeaderTemplate>
+                                        <asp:Label ID="LtlLista_35" runat="server"></asp:Label>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtPrecio_35" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_36" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_36" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                 <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_37" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_37" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                    <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_38" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_38" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                     <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_39" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_39" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                  <asp:TemplateField Visible="false" ItemStyle-Width="100px">
+                                     <HeaderTemplate>
+                                         <asp:Label ID="LtlLista_40" runat="server"></asp:Label>
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:TextBox ID="TxtPrecio_40" runat="server" CssClass="CssCamviaPrecio" MaxLength="39" Width="80px" onkeypress="return onlyNumberKey(event)" Style="text-align: right !important;"></asp:TextBox>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
                             </Columns>
                         </asp:GridView>
                     </div>

Ventas/CatMedicos.aspx

@@ -225,7 +225,7 @@
                             <div class="col-md-12">
 
                                 <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
-                                    DataKeyNames="CveMedico,Medico,CedulaProfesional,FechaNacimiento,Notas,DiasAtencion,Horario,Lugar,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Consultorio,Torre"
+                                    DataKeyNames="CveMedico,Medico,CedulaProfesional,FechaNacimiento,Notas,DiasAtencion,Horario,Lugar,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Consultorio,Torre,Usuario"
                                     data-sort="true"
                                     EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
                                     <Columns>
@@ -278,13 +278,13 @@
                                         </asp:TemplateField>
 
 
-                                        <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
+                                        <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" Visible="false">
                                             <ItemTemplate>
                                                 <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
                                             </ItemTemplate>
                                         </asp:TemplateField>
 
-                                        <asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Center">
+                                        <asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Center" Visible="false">
                                             <ItemTemplate>
                                                 <asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
                                             </ItemTemplate>
@@ -548,6 +548,22 @@
                                 </div>
 
 
+                                 <div class="row" runat="server" id="DVUsuarioFechaIng" visible ="false">
+                                     <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:TextBox ID="TxtUsuario" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
+                                            <label for="<%= TxtUsuario.ClientID.ToString()%>">Usuario:</label>
+                                        </div>
+                                    </div>
+                                    <div class="col-md-6">
+                                        <div class="form-group form-md-line-input input-iconright" >
+                                            <asp:TextBox ID="TxtFechaIng" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
+                                            <label for="<%= TxtFechaIng.ClientID.ToString()%>">Fecha Ing.:</label>
+                                        </div>
+                                    </div>                                   
+                                </div>
+
+
 
                             </div>
                         </div>

Ventas/CatMedicos.aspx.vb

@@ -161,6 +161,10 @@ Partial Class Ventas_CatMedicos
         DdlEspecialidad.SelectedValueExist(-1)
         DdlSubEspecialidad.SelectedValueExist(-1)
         TxtTorre.Text = ""
+        DVUsuarioFechaIng.Visible = False
+        TxtFechaIng.Text = ""
+        TxtUsuario.Text = ""
+
 
         DVEstatus.Visible = False
         ChkEstatus.Checked = True
@@ -196,6 +200,10 @@ Partial Class Ventas_CatMedicos
         DdlSubEspecialidad.SelectedValueExist(GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero)
         TxtTorre.Text = GvRow.DataKey("Torre")
 
+        DVUsuarioFechaIng.Visible = True
+        TxtFechaIng.Text = GvRow.DataKey("FechaIng").ToDateTime.ToString("dd/MM/yyyy hh:mm:ss tt")
+        TxtUsuario.Text = GvRow.DataKey("Usuario")
+
         DVEstatus.Visible = True
         LbAgregar.Text = "Actualizar"
         LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfecional.Text}"

Ventas/Clientes.aspx

@@ -817,35 +817,7 @@
                                          </div>
                                     </div>
                                 </div>
-                            </div>
-
-                            <%-- Marcar el Cliente como Frecuente --%>
-                            <div class="col-md-6 " id="DivProtletRegistrar" visible="false" runat="server">
-                                <div class="portlet light xspadding bordered">
-                                    <div class="portlet-title">
-                                        <div class="caption font-green">
-                                            <i class="icon-pin font-green"></i>
-                                            <span class="caption-subject bold uppercase">Registrar</span>
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
-                                        </div>
-                                    </div>
-                                    <div class="portlet-body form">
-                                        <div class="table-responsive">
-                                            <table class="table table-striped table-advance table-hover" style="width: 100%">
-                                                <tr>
-                                                    <td style="text-align: center;">
-                                                        <asp:Button ID="BtnRegistrarCliente" runat="server" CssClass="btn btn-success" Text="Registrar" ValidationGroup="GrpGuardar" />
-                                                    </td>
-                                                </tr>
-                                            </table>
-                                        </div>
-                                    </div>
-                                </div>
-                            </div>
-
+                            </div>                           
                             <div class="col-md-6 " id="DivPortletSucursales" runat="server">
                                 <div class="portlet light xspadding bordered">
                                     <div class="portlet-title">

Ventas/Clientes.aspx.vb

@@ -1753,7 +1753,6 @@ Partial Class Clientes
                     'DivPortletBitacora.Visible = False
                     BtnEliminar.Visible = False
 
-                    DivProtletRegistrar.Visible = True
                 End If
 
                 TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString()
@@ -5847,19 +5846,8 @@ Partial Class Clientes
         Catch ex As Exception
             OnError("Ocurrió error al mandar MAIL", ex)
         End Try
-    End Sub
-
-    Private Sub BtnRegistrarCliente_Click(sender As Object, e As EventArgs) Handles BtnRegistrarCliente.Click
-        Dim ObjClientes As New ClsClientes
-
-        If ObjClientes.RegistrarCliente(CveCliente) Then
-            RegistraScript("location.reload();")
-        End If
-
-        ObjClientes.Dispose()
     End Sub
 
-
 #End Region
 
 #Region "C O N T R A T O S"

Ventas/ProductosServicios.aspx.vb

@@ -1,11 +1,9 @@
 Option Explicit On
 Option Strict On
 
-Imports System.Activities.Expressions
 Imports System.Data
 Imports System.Data.SqlClient
 Imports System.IO
-Imports ADSNetLibrary.SIGAPI.Models.RH.Response
 Imports Extensiones
 Imports ZXing
 
@@ -487,14 +485,10 @@ Partial Class ProductosyServicios
         If ObjGral.GetModelos(UsuarioActual.CveEmpresa) Then
             DdlModelo.DataSource = ObjGral.DtResultados.Copy()
         End If
-        If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
-            DdlMedida.DataSource = ObjGral.DtResultados.Copy()
-        End If
-        If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
-            DdlRin.DataSource = ObjGral.DtResultados.Copy()
-        End If
         ObjGral.Dispose()
+        DdlMedida.DataSource = GlobalDTPSMedidas(UsuarioActual.CveEmpresa)
 
+        DdlRin.DataSource = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa)
         DdlModelo.DataBind()
         DdlMedida.DataBind()
         DdlRin.DataBind()
@@ -3138,12 +3132,10 @@ Partial Class ProductosyServicios
             If ObjGral.GetModelos(CveEmpresaFranquicia) Then
                 CveModelo = ObjGral.DtResultados.FiltroPrimeroValor("CveModelo", String.Format("Modelo = '{0}'", DdlModelo.SelectedItem.Text)).ToEntero
             End If
-            If ObjGral.GetMedidas(CveEmpresaFranquicia) Then
-                CveMedida = ObjGral.DtResultados.FiltroPrimeroValor("CveMedida", String.Format("Medida = '{0}'", DdlMedida.SelectedItem.Text)).ToEntero
-            End If
-            If ObjGral.GetRimTamanios(CveEmpresaFranquicia) Then
-                CveRin = ObjGral.DtResultados.FiltroPrimeroValor("CveRinTamaño", String.Format("RinTamaño = '{0}'", DdlRin.SelectedItem.Text)).ToEntero
-            End If
+
+            CveMedida = GlobalDTPSMedidas(CveEmpresaFranquicia).FiltroPrimeroValor("CveMedida", String.Format("Medida = '{0}'", DdlMedida.SelectedItem.Text)).ToEntero
+            CveRin = GlobalDTPSRinTamaños(CveEmpresaFranquicia).FiltroPrimeroValor("CveRinTamaño", String.Format("RinTamaño = '{0}'", DdlRin.SelectedItem.Text)).ToEntero
+
 
             ObjGral.Dispose()
 

Ventas/Ventas.aspx

@@ -1976,7 +1976,10 @@
                                                                     <asp:LinkButton ID="ImgCalendarFechaEje" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                                                 </span>
                                                             </div>
-                                                            <ajax:MaskedEditExtender ID="MEEFechaEje" runat="server" TargetControlID="TxtFechaEjecucion" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                            <div runat="server" id="DVMEEFechaEje" visible="true">
+                                                                <ajax:MaskedEditExtender ID="MEEFechaEje" runat="server" TargetControlID="TxtFechaEjecucion" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                            </div>
+                                                            
                                                             <ajax:CalendarExtender runat="server" ID="CEFechaEje" TargetControlID="TxtFechaEjecucion" PopupButtonID="ImgCalendarFechaEje" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                                                             <asp:RequiredFieldValidator ID="RFVFechaEje" runat="server" ControlToValidate="TxtFechaEjecucion" Display="None" ErrorMessage="El campo <b>''Fecha de Ejecución''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpEmitirImprimir"></asp:RequiredFieldValidator>
                                                             <asp:CompareValidator ID="CVFechaEje" runat="server" ControlToValidate="TxtFechaEjecucion" Display="None" ErrorMessage="El campo <b>''Fecha Ejecución''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpEmitirImprimir"></asp:CompareValidator>
@@ -8415,19 +8418,35 @@
                         </div>
 
 
-                        <%--Cliente--%>
+                        <%--Cliente Sucursales --%>
                         <div runat="server" visible="False" id="DvModalTipoVentaPasoCliente">
+                            <div class="row">
+                                <div class="form-group col-md-12 form-md-line-input input-iconright ">                                    
+                                    <asp:DropDownList ID="DdlClienteSucursal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="Clave" CausesValidation="true"
+                                        AutoPostBack="true" OnSelectedIndexChanged="DdlClienteSucursal_SelectedIndexChanged">                                        
+                                    </asp:DropDownList>
+                                    <asp:RequiredFieldValidator ID="RfvDdlClienteSucursal" runat="server" CssClass="" Display="None" InitialValue="-1"
+                                        ControlToValidate="DdlClienteSucursal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hospital''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalVentaMedica"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VceRfvDdlClienteSucursal" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlClienteSucursal" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlClienteSucursal">Hospital:</asp:Label>
+                                </div>                                
+                            </div>
+                          </div>
+
+
+                        <%--Cliente--%>
+                     <%--   <div runat="server" visible="False" id="DvModalTipoVentaPasoClienteEliminar">
                             <div class="row">
                                 <div class="form-group col-md-12 form-md-line-input input-iconright ">
                                     <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlClientesWS">Hospital:</asp:Label>
                                     <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;" Onselectedindexchange="DdlClientesWS_selectedindexchange"></ADS:Dropdownlost>
                                 </div>
                             </div>
-                        </div>
+                        </div>--%>
 
 
                         <%--Sucursales--%>
-                          <div runat="server" visible="False" id="DvModalClientesucursal">
+                        <%--  <div runat="server" visible="False" id="DvModalClientesucursal">
                             <div class="row">
 
                                 <div class="form-group col-md-12 form-md-line-input input-iconright ">
@@ -8437,8 +8456,7 @@
                                     <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlSucursalClienteModal">Sucursal:</asp:Label>
                                 </div>                                
                             </div>
-
-                        </div>
+                          </div>--%>
                       
 
                         <%--Medico Procedimiento--%>
@@ -8511,11 +8529,6 @@
 
                             </div>
                         </div>
-
-
-
-
-
                     </div>
                     <div class="modal-footer">
                         <asp:LinkButton ID="LnkDvModalTipoVentaAceptar" ClientIDMode="Static" runat="server" CssClass="btn btn-primary" OnClick="LnkDvModalTipoVentaAceptar_Click" Text="Aceptar" Visible="false" ValidationGroup="GrpModalVentaMedica" />

Ventas/Ventas.aspx.vb

@@ -2553,8 +2553,7 @@ Partial Class Ventas
             If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                 CargaMedicos()
                 CargaProcedimientos()
-
-                CargaDdlClientes()
+                CargaDdlClientesSucursal()
             End If
 
 
@@ -3394,9 +3393,7 @@ Partial Class Ventas
                 CargaTiposVenta()
 
                 If CveCliente > 0 Then
-                    DdlClientesWS.txtValue.Value = CveCliente.ToString
-                    DdlClientesWS.txtText.Value = NombreCliente
-                    DdlClientesWS.SelectedValue = CveCliente.ToString
+                    SeleccionarClienteSucursal(CveCliente:=CveCliente)
                 End If
             End If
 
@@ -3421,10 +3418,16 @@ Partial Class Ventas
                 RegistraScript("$('#TxtCantidad').focus();", "A1")
             End If
 
+            If EsVentaMedica Then
+                TxtPrecio.Enabled = False
+            End If
+
         End If
 
     End Sub
 
+
+
     Private Sub CargaListasPrecios()
         DivPrecioLista.Visible = True
 
@@ -5195,7 +5198,7 @@ Partial Class Ventas
             HdnTotalVenta.Value = DbRowVenta("Total").ToString().FormatoNumero(2)
             TxtMotivoDescuento.Text = DbRowVenta("MotivoDescuento").ToString()
             TxtObsFact.Text = DbRowVenta("Observaciones").ToString()
-            LblUsuario.Text = DbRowVenta("Nombre").ToString()
+            LblUsuario.Text = DbRowVenta("Nombre").ToString().SubStringADS(30)
             LblFechaRegistro.Text = DbRowVenta("FechaIng").ToString().ToDate.ToShortDateString
             LblSeTimbro.Text = DbRowVenta("SeTimbro").ToString()
             LblMail.Text = DbRowVenta("EnvioMail").ToString()
@@ -5318,7 +5321,13 @@ Partial Class Ventas
 
             End If
 
-            TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy")
+            If DbRowVenta("CveMedico").ToString.ToEntero > 0 AndAlso DbRowVenta("CveProcedimiento").ToString.ToEntero > 0 Then
+                TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy hh:mm")
+                DVMEEFechaEje.Visible = False
+            Else
+                TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy")
+            End If
+
             'DdlSucursalEjecucion.SelectedValueExist(DbRowVenta("CveSucursalEjecucion").ToString())
             'DdlSucursalCobranza.SelectedValueExist(DbRowVenta("CveSucursalCobranza").ToString())
             DdlSucursalCliente.SelectedValueExist(DbRowVenta("CveClienteSucursal").ToString())
@@ -7745,88 +7754,7 @@ Partial Class Ventas
         DdlClasificacion.DataBind()
     End Sub
 
-    Private Sub CargaTiposVenta()
 
-        RBLTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ")
-        RBLTipoVenta.DataBind()
-        RBLTipoVenta.Items.Add(New ListItem("Otros", "5"))
-
-        TrVentasMedicas1.Visible = True
-        TrVentasMedicas2.Visible = True
-
-        For Each item As ListItem In RBLTipoVenta.Items
-            item.Text = $"&nbsp {item.Text}"
-        Next
-
-        RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });")
-    End Sub
-
-    Private Sub CargaProcedimientos()
-        DdlProcedimiento.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
-        DdlProcedimiento.DataBind()
-
-        DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
-        DdlProcedimientoModal.DataBind()
-
-        DdlProcedimientoObservaciones.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa)
-        DdlProcedimientoObservaciones.DataBind()
-
-    End Sub
-
-    Private Sub CargaMedicos()
-        DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
-        DdlMedico.DataBind()
-
-        DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
-        DdlMedicoModal.DataBind()
-
-        DdlMedicoObservaciones.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa)
-        DdlMedicoObservaciones.DataBind()
-
-    End Sub
-
-    Private Sub CargaSucursalesModal(CveClienteSeleccionado As Integer)
-
-        DdlSucursalClienteModal.Items.Clear()
-        DdlSucursalClienteModal.ClearSelection()
-        DdlSucursalClienteModal.SelectedValue = Nothing
-
-        Dim ObjCliente As New ClsClientes
-        If ObjCliente.GetSucursales(CveClienteSeleccionado) Then
-            DdlSucursalClienteModal.DataSource = ObjCliente.DtResultados
-            If ObjCliente.DtResultados.Rows.Count > 0 Then
-                DvModalClientesucursal.Visible = True
-            Else
-                DvModalClientesucursal.Visible = False
-            End If
-        Else
-            DvModalClientesucursal.Visible = False
-            DdlSucursalClienteModal.DataSource = Nothing
-        End If
-        ObjCliente.Dispose()
-
-        DdlSucursalClienteModal.DataBind()
-        DdlSucursalClienteModal.Items.Insert(0, New ListItem("Matriz", "-1"))
-
-        UpDvModalTipoVenta.FindDataSourceControl
-
-    End Sub
-
-
-
-    Private Sub CargaDdlClientes()
-        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
-            DdlClientesWS.setEsWebService(True)
-        Else
-            DdlClientesWS.setEsWebService(False)
-            If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
-                DdlClientesWS.ddl.Items.Clear()
-                DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
-                DdlClientesWS.DataBind()
-                DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
-            End If
-        End If
-    End Sub
 
     Private Sub CargaPS(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost, Optional AplicaParaVenta As Boolean = True)
 
@@ -8271,6 +8199,10 @@ Partial Class Ventas
             GvPS.Rows(e.NewEditIndex).FCTextBox("TxtDescuento").Enabled = False
         End If
 
+        If EsVentaMedica Then
+            GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = False
+        End If
+
         If CveCicloComercial > 0 Then
             For Each gvr As GridViewRow In GvContratoDetalles.Rows
                 If gvr.RowType = DataControlRowType.DataRow Then
@@ -10771,11 +10703,7 @@ Partial Class Ventas
         ObjFacturaDevolucion.Fech2 = TxtFech2.Text.Trim.ToDate
         ObjFacturaDevolucion.Fech3 = TxtFech3.Text.Trim.ToDate
 
-        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
-            ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim
-        Else
-            ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
-        End If
+
 
         ObjFacturaDevolucion.Alfa2 = TxtAlfa2.Text.Trim
         ObjFacturaDevolucion.Alfa3 = TxtAlfa3.Text.Trim
@@ -10803,6 +10731,13 @@ Partial Class Ventas
         ObjFacturaDevolucion.CveSucursalEjecucion = DdlSucursalEjecucion.SelectedValue.ToEntero()
         ObjFacturaDevolucion.CveSucursalCobranza = DdlSucursalCobranza.SelectedValue.ToEntero()
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
+            ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim
+            ObjFacturaDevolucion.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
+        Else
+            ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
+        End If
+
         ObjFacturaDevolucion.AtencionA = If(ObjFacturaDevolucion.TipoDocto = "Cot" Or (ObjFacturaDevolucion.TipoDocto.Contiene("Ing", "Rem") AndAlso LblRFC.Text = "XAXX010101000"), TxtAtencionA.Text, "-1")
         ObjFacturaDevolucion.MotivoDescuento = TxtMotivoDescuento.Text.Trim
         ObjFacturaDevolucion.Observaciones = TxtObsFact.Text.Trim
@@ -11053,12 +10988,6 @@ Partial Class Ventas
         ObjFacturaBonificacion.Fech2 = TxtFech2.Text.Trim.ToDate
         ObjFacturaBonificacion.Fech3 = TxtFech3.Text.Trim.ToDate
 
-        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
-            ObjFacturaBonificacion.Alfa1 = TxtFechaOS.Text.Trim
-        Else
-            ObjFacturaBonificacion.Alfa1 = TxtAlfa1.Text.Trim
-        End If
-
         ObjFacturaBonificacion.Alfa2 = TxtAlfa2.Text.Trim
         ObjFacturaBonificacion.Alfa3 = TxtAlfa3.Text.Trim
         ObjFacturaBonificacion.Num1 = TxtNum1.Text.Trim.ToDouble
@@ -11085,6 +11014,13 @@ Partial Class Ventas
         ObjFacturaBonificacion.CveSucursalEjecucion = DdlSucursalEjecucion.SelectedValue.ToEntero()
         ObjFacturaBonificacion.CveSucursalCobranza = DdlSucursalCobranza.SelectedValue.ToEntero()
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
+            ObjFacturaBonificacion.Alfa1 = TxtFechaOS.Text.Trim
+            ObjFacturaBonificacion.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
+        Else
+            ObjFacturaBonificacion.Alfa1 = TxtAlfa1.Text.Trim
+        End If
+
         ObjFacturaBonificacion.AtencionA = If(ObjFacturaBonificacion.TipoDocto = "Cot" Or (ObjFacturaBonificacion.TipoDocto.Contiene("Ing", "Rem") AndAlso LblRFC.Text = "XAXX010101000"), TxtAtencionA.Text, "-1")
         ObjFacturaBonificacion.MotivoDescuento = TxtMotivoDescuento.Text.Trim
         ObjFacturaBonificacion.Observaciones = TxtObsFact.Text.Trim
@@ -11541,11 +11477,7 @@ Partial Class Ventas
         ObjFactura.Fech2 = TxtFech2.Text.Trim.ToDate
         ObjFactura.Fech3 = TxtFech3.Text.Trim.ToDate
 
-        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
-            ObjFactura.Alfa1 = TxtFechaOS.Text.Trim
-        Else
-            ObjFactura.Alfa1 = TxtAlfa1.Text.Trim
-        End If
+
 
         ObjFactura.Alfa2 = TxtAlfa2.Text.Trim
         ObjFactura.Alfa3 = TxtAlfa3.Text.Trim
@@ -11609,6 +11541,13 @@ Partial Class Ventas
         ObjFactura.Det_ContraRecibo = TxtDet_ContraRecibo.Text.Trim
         ObjFactura.MonedaAbreviatura = ""
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
+            ObjFactura.Alfa1 = TxtFechaOS.Text.Trim
+            ObjFactura.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
+        Else
+            ObjFactura.Alfa1 = TxtAlfa1.Text.Trim
+        End If
+
         'CONVERTIR REMISION - TIPO MONEDA  -DOLARES A PESOS
         If (ObjFactura.CveMoneda = 2 AndAlso ObjFactura.ConvertirPesos = True AndAlso ObjFactura.TipodeComprobante = "Ingresos" AndAlso RemisionesLista.Count > 0) Then
             Dim TotalCalculableImpuestos, TotalCalculableImpuestosIVA As Decimal
@@ -12205,11 +12144,7 @@ Partial Class Ventas
         ObjFacturaDevolucion.Fech3 = TxtFech3.Text.Trim.ToDate
 
 
-        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
-            ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim
-        Else
-            ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
-        End If
+
 
         ObjFacturaDevolucion.Alfa2 = TxtAlfa2.Text.Trim
         ObjFacturaDevolucion.Alfa3 = TxtAlfa3.Text.Trim
@@ -12247,6 +12182,13 @@ Partial Class Ventas
         ObjFacturaDevolucion.Det_FechaOrdenCompra = TxtDet_FechaOrdenCompra.Text.Trim
         ObjFacturaDevolucion.MonedaAbreviatura = ""
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
+            ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim
+            ObjFacturaDevolucion.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
+        Else
+            ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
+        End If
+
         'Totales, Y se llena TmpDTImpuestos
         ObjFacturaDevolucion.SubTotal = TxtSubTotal.Text.ToDecimal
         ObjFacturaDevolucion.Descuento = LblDescuentos.Text.Trim.ToDecimal
@@ -13591,7 +13533,7 @@ Partial Class Ventas
 
             If EsVentaMedica AndAlso ErrorList.Count = 0 AndAlso ChkRequiereTecnico.Checked Then
 
-                GeneraOS(ObjVentas.IniciaTransacSQL, ErrorList)
+                GeneraOS(ObjVentas.IniciaTransacSQL, ErrorList, CveVentaOS:=factura.CveVenta, SerieFolioOS:=factura.SerieFolio)
 
                 If ErrorList.Count = 0 Then
                     If Not ObjOS.UpdateVentaOS(factura.CveVenta, CveOSVentaMedica) Then
@@ -16865,16 +16807,22 @@ Partial Class Ventas
                 DdlUnidadMedida.DataBind()
                 DdlUnidadMedida.SelectedValueExist(drPS("CveUnidadMedida").ToString())
 
-                If drPS("CveTipoPS").ToString() = "1" Then 'Si es servicio
-                    If UsuarioActual.Empresa.Funcionalidad(558).ToString() = "1" Then 'Si es Empresa llantera
-                        TxtPrecio.Enabled = True
-                    Else
-                        'TxtPrecio.Enabled = False
-                    End If
+                If EsVentaMedica Then
+                    TxtPrecio.Enabled = False
                 Else
-                    TxtPrecio.Enabled = True
+                    If drPS("CveTipoPS").ToString() = "1" Then 'Si es servicio
+                        If UsuarioActual.Empresa.Funcionalidad(558).ToString() = "1" Then 'Si es Empresa llantera
+                            TxtPrecio.Enabled = True
+                        Else
+                            'TxtPrecio.Enabled = False
+                        End If
+                    Else
+                        TxtPrecio.Enabled = True
+                    End If
                 End If
 
+
+
                 Dim PSCodigoSAT As String = drPS("SATClavePS").ToString
 
                 If UsuarioActual.TienePermisoProceso(68) AndAlso Not PSCodigoSAT.Contiene("84111506", "80141610") Then TxtPrecio.Enabled = False
@@ -18068,17 +18016,12 @@ Partial Class Ventas
 
         'YOKOHAMA
         If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso CveRinTamañoPS > 0 AndAlso CveMarcaPromocion.Contiene(800, 912, 1238, 1381, 1456, 1528, 1600, 1672, 1807) Then
-            Dim DtRines As DataTable = Nothing
-            Dim ObjGral As New ClsGenerales
-            If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
-                DtRines = ObjGral.DtResultados.Copy()
-            End If
-            ObjGral.Dispose()
+
 
             If CveMarcaPromocion > 0 Then
                 ObjDescuento.NombrePromo = "YOKOHAMA VERANO" 'dr("NombrePromocion").ToString()
                 ObjDescuento.CveMarca = CveMarcaPromocion
-                Dim Rin As String = DtRines.FiltroPrimeroValor("RinTamaño", $"CveRinTamaño = {CveRinTamañoPS}")
+                Dim Rin As String = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa, CveRinTamañoPS).FiltroPrimeroValor("RinTamaño", "")
                 Dim PromoDescuento As Decimal = (Descuento * (1 + If(IncluyeImpuestos, PorcentajeIVA, 0))).RoundSQL(2)
 
                 ObjDescuento.ObsDescuento = String.Format("RIN {0} BONO ${1:N2}", Rin, PromoDescuento)
@@ -21783,7 +21726,14 @@ Partial Class Ventas
         TxtObsPS.Enabled = True
         DdlProyecto.Enabled = True
         DdlSubProyecto.Enabled = True
-        TxtPrecio.Enabled = True
+
+        If EsVentaMedica Then
+            TxtPrecio.Enabled = False
+        Else
+            TxtPrecio.Enabled = True
+        End If
+
+
         LbAgregar.Enabled = True
         ImgDescTotal.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal();  $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '2';  $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = ''; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = 'none'; $get('BtnAplicarDescG').style.display = ''; $get('TrMotivoDescuento').style.display = '';")
         LblSubTotal1.Text = TxtSubTotal.Text
@@ -26259,7 +26209,26 @@ Partial Class Ventas
 
 #Region "  SALDAR VENTA  "
     Protected Sub BtnSaldarVenta_Click(sender As Object, e As EventArgs)
-        SaldarVenta()
+        'SaldarVenta()
+
+        Dim ObjCancelacion As New Timbrado
+
+        Dim FolioFiscal As String = LblFolioFiscal.Text
+        Dim RFCEmisor As String = UsuarioActual.Empresa.RFC
+        Dim RFCReceptor As String = LblRFC.Text
+        Dim CvePACCancelacion As Integer = 4
+
+
+        Dim RespCancelacion As RespuestaCancelacionSAT = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, TxtTotal.Text.ToDecimal, RFCReceptor, RFCEmisor, CvePACCancelacion, CveSATMotivoCancelacion:=3)
+
+        If RespCancelacion.Verificado Then
+
+
+
+        Else
+            Alert("Los servicios de cancelación del SAT no se encuentran disponibles o presentan time out. Intente de nuevo en unos minutos.<br/>Origen del error: WebService www.sat.gob.mx", TipoMensaje.MsgError)
+        End If
+
     End Sub
     Private Sub SaldarVenta()
         'Dim ObjVenta As New ClsVentas
@@ -36018,6 +35987,93 @@ Partial Class Ventas
 
 #Region "VENTAS MEDICAS"
 
+
+    Private Sub CargaTiposVenta()
+
+        RBLTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ")
+        RBLTipoVenta.DataBind()
+        RBLTipoVenta.Items.Add(New ListItem("Otros", "5"))
+
+        TrVentasMedicas1.Visible = True
+        TrVentasMedicas2.Visible = True
+
+        For Each item As ListItem In RBLTipoVenta.Items
+            item.Text = $"&nbsp {item.Text}"
+        Next
+
+        RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });")
+    End Sub
+
+    Private Sub CargaProcedimientos()
+        DdlProcedimiento.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
+        DdlProcedimiento.DataBind()
+
+        DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
+        DdlProcedimientoModal.DataBind()
+
+        DdlProcedimientoObservaciones.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa)
+        DdlProcedimientoObservaciones.DataBind()
+
+    End Sub
+
+    Private Sub CargaMedicos()
+        DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
+        DdlMedico.DataBind()
+
+        DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
+        DdlMedicoModal.DataBind()
+
+        DdlMedicoObservaciones.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa)
+        DdlMedicoObservaciones.DataBind()
+
+    End Sub
+
+    'Private Sub CargaSucursalesModal(CveClienteSeleccionado As Integer)
+
+    '    DdlSucursalClienteModal.Items.Clear()
+    '    DdlSucursalClienteModal.ClearSelection()
+    '    DdlSucursalClienteModal.SelectedValue = Nothing
+
+    '    Dim ObjCliente As New ClsClientes
+    '    If ObjCliente.GetSucursales(CveClienteSeleccionado) Then
+    '        DdlSucursalClienteModal.DataSource = ObjCliente.DtResultados
+    '        If ObjCliente.DtResultados.Rows.Count > 0 Then
+    '            DvModalClientesucursal.Visible = True
+    '        Else
+    '            DvModalClientesucursal.Visible = False
+    '        End If
+    '    Else
+    '        DvModalClientesucursal.Visible = False
+    '        DdlSucursalClienteModal.DataSource = Nothing
+    '    End If
+    '    ObjCliente.Dispose()
+
+    '    DdlSucursalClienteModal.DataBind()
+    '    DdlSucursalClienteModal.Items.Insert(0, New ListItem("Matriz", "-1"))
+
+    '    UpDvModalTipoVenta.FindDataSourceControl
+
+    'End Sub
+
+
+
+    Private Sub CargaDdlClientesSucursal()
+
+        Dim objcliente As New ClsClientes
+
+        If objcliente.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
+            DdlClienteSucursal.DataSource = objcliente.DtResultados
+        Else
+            DdlClienteSucursal.DataSource = Nothing
+        End If
+
+        objcliente.Dispose()
+
+        DdlClienteSucursal.DataBind()
+        DdlClienteSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+    End Sub
+
     Protected Sub ChkRequiereTecnico_CheckedChanged(sender As Object, e As EventArgs)
         TdFechaOS2.Visible = ChkRequiereTecnicoModal.Checked
         UpCliente.Update()
@@ -36036,9 +36092,9 @@ Partial Class Ventas
             ChkRequiereTecnicoModal.Enabled = True
             DvModalRequiereOSFecha.Visible = True
 
-            If CveCliente > 0 Then
-                CargaSucursalesModal(CveCliente)
-            End If
+            'If CveCliente > 0 Then
+            '    CargaSucursalesModal(CveCliente)
+            'End If
 
             TxtFechaModal.Text = NowADS.AddHours(1).ToString("yyyy-MM-dd HH").Replace(" ", "T") + ":00" ' ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T")
 
@@ -36076,13 +36132,51 @@ Partial Class Ventas
         UpDvModalTipoVenta.Update()
     End Sub
 
-    Protected Sub DdlClientesWS_selectedindexchange(sender As Object, e As EventArgs)
-        CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClientesWS.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedValue.ToEntero)
+    'Protected Sub DdlClientesWS_selectedindexchange(sender As Object, e As EventArgs)
 
-        CargaSucursalesModal(DdlClientesWS.SelectedValue.ToEntero)
+    '    CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClientesWS.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedValue.ToEntero)
+    '    'CargaSucursalesModal(DdlClientesWS.SelectedValue.ToEntero)
 
+    'End Sub
+
+
+    Protected Sub DdlClienteSucursal_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Dim CveClienteSplit As Integer = -1
+        CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero)
     End Sub
 
+    Private Function DdlClienteSucursalCliente() As Integer
+        If DdlClienteSucursal.SelectedValue = "-1" Then
+            Return -1
+        Else
+            Dim array As String() = DdlClienteSucursal.SelectedValue.Split("|"c)
+            Return If(array(0).ToEntero > 0, array(0).ToEntero, -1)
+        End If
+    End Function
+    Private Function DdlClienteSucursalSucursal() As Integer
+
+        If DdlClienteSucursal.SelectedValue = "-1" Then
+            Return -1
+        Else
+            Dim array As String() = DdlClienteSucursal.SelectedValue.Split("|"c)
+            Return If(array(1).ToEntero > 0, array(1).ToEntero, -1)
+        End If
+
+    End Function
+
+    Private Sub SeleccionarClienteSucursal(CveCliente As Integer)
+
+        Dim IndexSeleccion As Integer = 0
+        For Each item As ListItem In DdlClienteSucursal.Items
+            Dim array As String() = item.Value.Split("|"c)
+            If CveCliente = array(0).ToEntero Then
+                DdlClienteSucursal.SelectedIndex = IndexSeleccion
+                Exit For
+            End If
+            IndexSeleccion = IndexSeleccion + 1
+        Next
+
+    End Sub
 
     Protected Sub ModalValidaMedicoProcedimiento()
 
@@ -36107,9 +36201,10 @@ Partial Class Ventas
 
         ChkRequiereTecnicoModal.Enabled = True
 
-        DdlClientesWS.txtText.Value = ""
-        DdlClientesWS.txtValue.Value = ""
-        DdlClientesWS.ddl.SelectedValueExist(-1)
+        'DdlClientesWS.txtText.Value = ""
+        'DdlClientesWS.txtValue.Value = ""
+        'DdlClientesWS.ddl.SelectedValueExist(-1)
+        DdlClienteSucursal.SelectedValueExist(-1)
 
         DvModalRequiereOSFecha.Visible = False
         ChkRequiereTecnicoModal.Checked = False
@@ -36130,8 +36225,8 @@ Partial Class Ventas
 
     Protected Sub LnkDvModalTipoVentaAceptar_Click(sender As Object, e As EventArgs)
 
-        If DdlClientesWS.SelectedValue.ToEntero > 0 Then
-            ViewState("CveCliente") = DdlClientesWS.SelectedValue.ToEntero
+        If DdlClienteSucursalCliente() > 0 Then
+            ViewState("CveCliente") = DdlClienteSucursalCliente()
         Else
             Alert("Debe de seleccionar un cliente.", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -36177,7 +36272,7 @@ Partial Class Ventas
 
         CargaCliente(CveCliente)
 
-        DdlSucursalCliente.SelectedValueExist(DdlSucursalClienteModal.SelectedValue)
+        DdlSucursalCliente.SelectedValueExist(DdlClienteSucursalSucursal)
 
         DdlTipoComprobante_SelectedIndexChanged(sender, Nothing)
 
@@ -36234,7 +36329,7 @@ Partial Class Ventas
     End Sub
 
     Protected Sub DdlProcedimientoModal_SelectedIndexChanged(sender As Object, e As EventArgs)
-        CargaPSProcedimiento(DdlProcedimientoModal.SelectedValue.ToEntero, DdlClientesWS.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedValue.ToEntero)
+        CargaPSProcedimiento(DdlProcedimientoModal.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero)
     End Sub
 
     Private Sub CargaPSProcedimiento(CveProcedimiento As Integer, CveClienteL As Integer, CveSubProyectoL As Integer)
@@ -36255,7 +36350,7 @@ Partial Class Ventas
     End Sub
 
 
-    Private Function GeneraOS(ByRef TransacSQL As SqlTransaction, ByRef errorList As List(Of String)) As Boolean
+    Private Function GeneraOS(ByRef TransacSQL As SqlTransaction, ByRef errorList As List(Of String), CveVentaOS As Integer, SerieFolioOS As String) As Boolean
 
         Dim Errores As Boolean = False
 
@@ -36291,18 +36386,22 @@ Partial Class Ventas
             Dim CveOsDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(ObjOrdenServicio.CveOS, CvePSDetalle, 1, -1, -1, $"Venta: {LblSerie.Text}-{TxtFolio.Text}", False, True, False, -1, "-1", "-1", "-1", "", UsuarioActual.CveUsuario, Archivo:="")
 
             If CveOsDetalle > 0 Then
-                'MENSAJE PRINCIPAL
-                'Dim MensajeAlertOS As New StringBuilder
                 MensajeAlert.AppendFormat(String.Format("<br/>La  Orden de Servicio: <b>{0}</b>  se generó correctamente.<br/>", ObjOrdenServicio.Folio))
                 MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=OS&CVEOS={0}", ObjOrdenServicio.CveOS)))
-                'Dim Liga = $"document.location.href=""/OS/RepOrdenesServicios.aspx"";"
-                'Alert(MensajeAlertOS.ToString, TipoMensaje.MsgInformacion, Liga)
             Else
                 errorList.Add("Se presento un error al guardar la el detalle de la orden de servicio.")
                 Errores = True
             End If
+        End If
 
+        If Not Errores Then
+            Dim ObjEventos As New ClsOIEventos(TransacSQL)
+            Dim LigaVenta As String = String.Format("Pedido en Folio: <a href=""/Ventas/Ventas.aspx?CveVenta={0}"" target=""_blank"">{1}</a>", CveVentaOS, SerieFolioOS)
 
+            If Not ObjEventos.AddEventoBitacora(LigaVenta, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveOS:=CveOSVentaMedica) Then
+                errorList.Add("Se presento un error al guardar la bitacora de la orden de servicio.")
+                Errores = True
+            End If
         End If
 
         Return If(Errores, False, True)
@@ -36351,5 +36450,8 @@ Partial Class Ventas
     Protected Sub BtnCargaAuxiliarConta_Click(sender As Object, e As EventArgs)
         CargarSaldoAuxiliar(CveCliente)
     End Sub
+
+
+
 End Class