--merge SaldosIniciales

App_Code/ClsDestinos.vb

@@ -1,152 +0,0 @@
-Imports System.Data
-Imports System.Data.SqlClient
-Imports Extensiones
-
-Public Class ClsDestinos
-    Implements IDisposable
-
-#Region "Campos"
-    'SQL
-    Private SqlConexion As SqlConnection
-    Private SqlAdapter As SqlDataAdapter
-    Private SqlCommand As SqlCommand
-    Private SqlTransacc As SqlTransaction
-    Private Data As DataTable
-    Private DSet As New DataSet
-
-    Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
-    'REGISTRAR CONEXIÓN
-    Private CveConexion As Integer = 0
-    Public ReadOnly Property DtResultados() As DataTable
-        Get
-            DtResultados = Data
-        End Get
-    End Property
-
-#End Region
-
-#Region "Propiedades"
-    Public Property CveDestino As Integer
-    Public Property CveUsuario As Integer
-    Public Property CveEmpresa As Integer
-    Public Property Destino As String
-    Public Property Estatus As Boolean
-    Public Property EsNacional As Boolean
-    Public Property FechaIng As DateTime
-#End Region
-
-#Region "Funciones básicas"
-    Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
-
-        If TransaccionCompartida Is Nothing Then
-            SqlConexion = New SqlConnection
-            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
-            Try
-                SqlConexion.Open()
-            Catch ex As Exception
-                OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
-            End Try
-        Else
-            SqlConexion = TransaccionCompartida.Connection
-            SqlTransacc = TransaccionCompartida
-        End If
-
-        SqlAdapter = New SqlDataAdapter("", SqlConexion)
-        ConexionAdd()
-    End Sub
-    Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
-        With SqlAdapter.SelectCommand
-            .Parameters.Clear()
-            .CommandText = StrSQL
-            .CommandType = TipoComando
-        End With
-        If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
-        Data = New DataTable
-    End Sub
-#Region "Conexiones"
-
-    Private Sub ConexionAdd()
-        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
-            Try
-                DataAdapter("PA_Sis_RegistrarConexion")
-                With SqlAdapter.SelectCommand.Parameters
-                    .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name
-                    .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString)
-                    .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output
-                End With
-                SqlAdapter.Fill(Data)
-                CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero
-            Catch ex As Exception
-                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End Try
-
-        End If
-    End Sub
-
-    Private Sub ConexionClose()
-        If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
-
-            DataAdapter(String.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text)
-
-            Try
-                SqlAdapter.Fill(Data)
-
-            Catch ex As Exception
-                OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End Try
-            CveConexion = 0
-        End If
-
-    End Sub
-#End Region
-    Public Function IniciaTransacSQL() As SqlTransaction
-        If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
-        Return SqlTransacc
-    End Function
-    Public Sub RollBack()
-        SqlTransacc.Rollback()
-    End Sub
-    Public Sub Commit()
-        SqlTransacc.Commit()
-    End Sub
-    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
-        If Not disposedValue Then
-            If disposing Then
-                If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
-                If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing
-                If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
-                If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
-                If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
-                If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
-                If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
-
-            End If
-        End If
-        disposedValue = True
-    End Sub
-    Public Sub Dispose() Implements IDisposable.Dispose
-        ConexionClose()
-        Dispose(True)
-        GC.SuppressFinalize(Me)
-    End Sub
-#End Region
-    Public Function GetDestinos(Optional CveRuta As Integer = 0) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Trans_DestinosGet")
-        If CveRuta <> 0 Then
-            With SqlAdapter.SelectCommand.Parameters
-                .Add("@CveRuta", SqlDbType.Int).Value = CveRuta
-            End With
-        End If
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
-End Class

App_Code/ClsPaginas.vb

@@ -5868,6 +5868,12 @@ Public Class ClsPaginas
                     NombreArchivo = "Factura"
                     NombreArchivoDescarga = "Factura"
                     TipoDocumento = "INGRESO"
+
+                    If Vta.CveSubProyecto.Contiene(12696, 12698) Then
+                        NombreArchivo = "FacturaUSA"
+                        NombreArchivoDescarga = "FacturaUSA"
+                    End If
+
                     If UsuarioActual.CveEmpresa.Contiene(137) Then
                         params.Add(New ReportParameter("CveVenta", Vta.CveVenta.ToString))
                     End If
@@ -5915,6 +5921,10 @@ Public Class ClsPaginas
                     NombreArchivo = "Remision"
                     NombreArchivoDescarga = "Remisión"
                     TipoDocumento = "REMISION"
+                    If Vta.CveSubProyecto.Contiene(12696, 12698) Then
+                        NombreArchivo = "FacturaUSA"
+                        NombreArchivoDescarga = "FacturaUSA"
+                    End If
                     params.Add(New ReportParameter("TipoDocumento", NombreArchivoDescarga))
                     params.Add(New ReportParameter("Tipo", TipoDocumento))
                     params.Add(New ReportParameter("Ref", TipoDocumentoRef))
@@ -5924,7 +5934,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.FechaEjecucion.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)
@@ -6032,7 +6042,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.FechaEjecucion.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)
@@ -6346,7 +6356,7 @@ Public Class ClsPaginas
             Dim paramsArray As New JArray()
             For Each rds As ReportDataSource In DataSource
                 Dim Nombre As String = rds.Name
-                If RutaReporte.Contains("Factura.mrt") OrElse RutaReporte.Contains("Remision.mrt") OrElse RutaReporte.Contains("Cotizacion.mrt") OrElse RutaReporte.Contains("NotaDevolucion.mrt") OrElse RutaReporte.Contains("Pedido.mrt") Then
+                If RutaReporte.Contains("Factura") OrElse RutaReporte.Contains("Remision") OrElse RutaReporte.Contains("Cotizacion") OrElse RutaReporte.Contains("NotaDevolucion") OrElse RutaReporte.Contains("Pedido") Then
                     Select Case rds.Name
                         Case "DsOC"
                             Nombre = "DtDetalle"
@@ -9621,9 +9631,9 @@ Public Class ClsPaginas
 #End Region
 
 #Region "Transportes"
-            PaginaDict.Add("/Transportes/ListadoContratos.aspx".ToUpper(), 598)
+            PaginaDict.Add("/Transportes/RepContratos.aspx".ToUpper(), 598)
-            PaginaDict.Add("/Transportes/ListadoViajes.aspx".ToUpper(), 599)
+            PaginaDict.Add("/Transportes/RepViajes.aspx".ToUpper(), 599)
-            PaginaDict.Add("/Transportes/ListadoBoletos.aspx".ToUpper(), 600)
+            PaginaDict.Add("/Transportes/RepBoletos.aspx".ToUpper(), 600)
             PaginaDict.Add("/Transportes/Boletos.aspx".ToUpper(), 601)
 #End Region
             'Antes de aquí.

App_Code/ClsRH.vb

@@ -1910,7 +1910,20 @@ Public Class ClsRH
         Return Retorno
     End Function
 
-
+    Public Function PA_RH_PersonalSalarioMenorAlMinimo(cveEmpresa As Int32, calculaSalarioV As Boolean, guardar As Boolean, cveRegistroPatronal As Int32, salarioZonaA As Decimal, salarioZonaB As Decimal, salarioZonaC As Decimal, fecha As DateTime) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_RH_PersonalSalarioMenorAlMinimo", CommandType.StoredProcedure)
+        addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
+        addParameters("@CalculaSalarioV", SqlDbType.Bit, calculaSalarioV)
+        addParameters("@Guardar", SqlDbType.Bit, guardar)
+        addParameters("@CveRegistroPatronal", SqlDbType.Int, cveRegistroPatronal)
+        addParameters("@SalarioZonaA", SqlDbType.Money, salarioZonaA)
+        addParameters("@SalarioZonaB", SqlDbType.Money, salarioZonaB)
+        addParameters("@SalarioZonaC", SqlDbType.Money, salarioZonaC)
+        addParameters("@Fecha", SqlDbType.Date, fecha)
+        retorno = RunQuery("Ocurrió un error al obtener el personal con salario menor al minimo.")
+        Return retorno
+    End Function
     Public Function GetPersonalMasivo(CveTurno As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveSupervisor As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         'Data = New DataTable
@@ -1947,7 +1960,7 @@ Public Class ClsRH
         NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String,
         CveJornada As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Beneficiario As String, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
         Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1,
-        Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1, Optional TipoSangre As String = "-1", Optional CveSubTipoPeriodo As Integer = -1) As Boolean
+        Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1, Optional TipoSangre As String = "-1", Optional CveSubTipoPeriodo As Integer = -1, Optional AreaGeografica As String = "A") As Boolean
 
         Dim Retorno As Boolean = False
         Dim noguardoXcurp As Boolean = False
@@ -2036,6 +2049,7 @@ Public Class ClsRH
             .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador
             .Add("@NetoPeriodo", SqlDbType.Money).Value = NetoPeriodo
             .Add("@TipoSangre", SqlDbType.VarChar).Value = TipoSangre
+            .Add("@AreaGeografica", SqlDbType.VarChar).Value = AreaGeografica
 
             .Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo
 
@@ -2079,7 +2093,7 @@ Public Class ClsRH
         Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1,
         Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1,
         Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1,
-       Optional TipoSangre As String = "-1", Optional CveSubTipoPeriodo As Integer = -1) As Boolean
+       Optional TipoSangre As String = "-1", Optional CveSubTipoPeriodo As Integer = -1, Optional AreaGeografica As String = "") As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -2174,6 +2188,8 @@ Public Class ClsRH
             .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador
             .Add("@NetoPeriodo", SqlDbType.Money).Value = NetoPeriodo
             .Add("@TipoSangre", SqlDbType.VarChar).Value = TipoSangre
+            .Add("@AreaGeografica", SqlDbType.VarChar).Value = AreaGeografica
+
             .Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo
 
         End With

App_Code/ClsRutas.vb

@@ -129,26 +129,6 @@ Public Class ClsRutas
         GC.SuppressFinalize(Me)
     End Sub
 #End Region
-    Public Function GetRutas(CveRuta As Integer, CveUsuario As Integer, CveEmpresa As Integer, Ruta As String, Estatus As Boolean, FechaIng As DateTime) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Trans_RutasGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveRuta", SqlDbType.Int).Value = CveRuta
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@Ruta", SqlDbType.VarChar).Value = Ruta
-            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
-            .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng
 
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las rutas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
 
 End Class

App_Code/ClsTransportes.vb

@@ -241,7 +241,7 @@ Public Class ClsTransportes
 #End Region
 
 #Region "Boletos"
-    Public Function AddViajesPasajeros(CveViaje As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal, Asiento As Integer, Nombre As String, Visa As String, Celular As String, Sexo As Boolean, Observacion As String, CveUsuario As Integer) As Integer
+    Public Function AddViajesPasajeros(CveViaje As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal, Asiento As Integer, Nombre As String, Visa As String, Celular As String, Sexo As Boolean, Observacion As String, CveUsuario As Integer, CveVendedor As Integer) As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_Trans_ViajesPasajerosAdd")
@@ -259,6 +259,7 @@ Public Class ClsTransportes
             .Add("@Sexo", SqlDbType.Bit).Value = Sexo
             .Add("@Observacion", SqlDbType.VarChar).Value = Observacion
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
 
         End With
 
@@ -299,7 +300,7 @@ Public Class ClsTransportes
     Public Function UpdateViajesPasajeros(CveViajePasajero As Integer, Optional Estatus As Boolean = True, Optional Activar As Boolean = False) As Boolean
 
         Dim Retorno As Boolean = False
-            DataAdapter("PA_Trans_ViajesPasajerosUpdate")
+        DataAdapter("PA_Trans_ViajesPasajerosUpdate")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero
             .Add("@Estatus", SqlDbType.Int).Value = Estatus
@@ -317,6 +318,53 @@ Public Class ClsTransportes
     End Function
 #End Region
 
+#Region "Destinos"
+    Public Function GetDestinos(Optional CveRuta As Integer = 0) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Trans_DestinosGet")
+        If CveRuta <> 0 Then
+            With SqlAdapter.SelectCommand.Parameters
+                .Add("@CveRuta", SqlDbType.Int).Value = CveRuta
+            End With
+        End If
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
+
+
+#Region "Rutas"
+    Public Function GetRutas(CveRuta As Integer, CveUsuario As Integer, CveEmpresa As Integer, Ruta As String, Estatus As Boolean, FechaIng As DateTime) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Trans_RutasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveRuta", SqlDbType.Int).Value = CveRuta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Ruta", SqlDbType.VarChar).Value = Ruta
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las rutas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
 #Region "Tarifas"
     Public Function GetDestinosTarifas(CveDestinoOrigen As Integer, CveDestinoFinal As Integer) As Boolean
         Dim Retorno As Boolean = False

App_Code/ClsVentas.vb

@@ -217,6 +217,25 @@ Public Class ClsVentas
         End Try
         Return retorno
     End Function
+    Public Function CGame_ManifiestoUpvta(cveVenta As Int32, cveUsuario As Int32, cveEmpresa As Int32, CveManifiesto As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_CGame_ManifiestoUpvta", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = cveVenta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
+            .Add("@CveManifiesto", SqlDbType.Int).Value = CveManifiesto
+            .Add("@CveUsuario", SqlDbType.Int).Value = cveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar venta manifiesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
+
     Public Function GetVentaTerminal(CveVentaTerminal As Integer, Fecha As DateTime, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_VentasGetTerminal")
@@ -549,35 +568,33 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function UpdateVentas(SubTotal As Double, Descuento As Double, IVA As Double, IEPS As Double, Total As Double, CveMoneda As Integer, TipoCambio As Double,
+    Public Function UpdateVentas(SubTotal As Decimal, Descuento As Decimal, IVA As Decimal, IEPS As Decimal, Total As Decimal, CveMoneda As Integer, TipoCambio As Decimal,
-                                 Fecha As Date, Observaciones As String, CveEmpresa As Integer, CveVenta As Integer, CveMetodoPago As Integer, FormaPago As Integer,
+                                 Fecha As Date, Observaciones As String, CveEmpresa As Integer, CveVenta As Integer,
                                  Optional TipoDocto As String = "Cot", Optional Vigencia As Date = MinFecha, Optional CondicionesPago As Integer = -1,
-                                 Optional AtencionA As String = "-1", Optional PedidoContrato As String = "-1", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1,
+                                 Optional AtencionA As String = "", Optional PedidoContrato As String = "", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1,
-                                 Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1,
+                                 Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Decimal = -1,
-                                 Optional RetISR As Double = -1, Optional Kilometraje As Double = 0, Optional CveUsoCFDi As Integer = -1, Optional ServicioDomicilio As Boolean = False, Optional CveVendedor As Integer = -1,
+                                 Optional RetISR As Decimal = -1, Optional Kilometraje As Decimal = 0, Optional CveUsoCFDi As Integer = -1, Optional ServicioDomicilio As Boolean = False, Optional CveVendedor As Integer = -1,
-                                 Optional RequiereOS As Boolean = False) As Boolean
+                                 Optional RequiereOS As Boolean = False, Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasUpdate")
 
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@SubTotal", SqlDbType.Float).Value = SubTotal
+            .Add("@SubTotal", SqlDbType.Money).Value = SubTotal
-            .Add("@Descuento", SqlDbType.Float).Value = Descuento
+            .Add("@Descuento", SqlDbType.Money).Value = Descuento
-            .Add("@IVA", SqlDbType.Float).Value = IVA
+            .Add("@IVA", SqlDbType.Money).Value = IVA
-            .Add("@IEPS", SqlDbType.Float).Value = IEPS
+            .Add("@IEPS", SqlDbType.Money).Value = IEPS
-            .Add("@Total", SqlDbType.Float).Value = Total
+            .Add("@Total", SqlDbType.Money).Value = Total
             .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
-            .Add("@TipoCambio", SqlDbType.Float).Value = TipoCambio
+            .Add("@TipoCambio", SqlDbType.Money).Value = TipoCambio
-            .Add("@RetIVA", SqlDbType.Float).Value = RetIVA
+            .Add("@RetIVA", SqlDbType.Money).Value = RetIVA
-            .Add("@RetISR", SqlDbType.Float).Value = RetISR
+            .Add("@RetISR", SqlDbType.Money).Value = RetISR
             .Add("@Fecha", SqlDbType.Date).Value = Fecha
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
             .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
-            .Add("@CveMetodoPago", SqlDbType.Int).Value = CveMetodoPago
             .Add("@CondicionesPago", SqlDbType.Int).Value = CondicionesPago
-            .Add("@FormaPago", SqlDbType.Int).Value = FormaPago
             .Add("@AtencionA", SqlDbType.VarChar).Value = AtencionA
             .Add("@Vigencia", SqlDbType.Date).Value = Vigencia
             .Add("@PedidoContrato", SqlDbType.VarChar).Value = PedidoContrato
@@ -586,11 +603,13 @@ Public Class ClsVentas
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
             .Add("@OrdenCompra", SqlDbType.VarChar).Value = OrdenCompra
-            .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje
+            .Add("@Kilometraje", SqlDbType.Money).Value = Kilometraje
             .Add("@CveUsoCFDi", SqlDbType.SmallInt).Value = CveUsoCFDi
             .Add("@ServicioDomicilio", SqlDbType.Bit).Value = ServicioDomicilio
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
             .Add("@RequiereOS", SqlDbType.Int).Value = RequiereOS
+            .Add("@CveMedico", SqlDbType.Int).Value = CveMedico
+            .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento
         End With
 
         Try
@@ -604,7 +623,7 @@ Public Class ClsVentas
     End Function
 
     Public Function UpdateObservacionesVenta(CveVenta As Integer, CveEmpresa As Integer, CveVendedor As Integer, Observaciones As String, FormaPaqueteria As Integer, CorreoNotificaciones As String, ObservacionesAlm As String,
-                                             Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer) As Boolean
+                                             Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer, Optional DescripcionVenta As String = "-1", Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasObservacionesUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -619,6 +638,11 @@ Public Class ClsVentas
             .Add("@Pedido", SqlDbType.NVarChar).Value = Pedido
             .Add("@OrdenCompra", SqlDbType.NVarChar).Value = OrdenCompra
             .Add("@FechaPago", SqlDbType.Date).Value = FechaPago
+            .Add("@DescripcionVenta", SqlDbType.VarChar).Value = DescripcionVenta
+            .Add("@CveMedico", SqlDbType.Int).Value = CveMedico
+            .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento
+
+
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -1356,7 +1380,8 @@ Public Class ClsVentas
                                     CvePresupuestoIngreso As Integer, Optional TiempoEntrega As String = "", Optional CveVentaDetallePadre As Integer = -1,
                                     Optional CveContratoDetalle As Integer = -1, Optional PorcentajeIVA As Decimal = 0, Optional IEPS As Decimal = -1, Optional PorcentajeIEPS As Double = 0, Optional CvePromocionDetalle As Integer = -1,
                                     Optional CveMovimientoDetallePedido As Integer = -1, Optional ImporteRetIVA As Decimal = 0, Optional PorcentajeRetIVA As Double = 0,
-                                    Optional ImporteRetISR As Decimal = 0, Optional PorcentajeRetISR As Decimal = 0, Optional CuentaPredial As String = "", Optional CvePrecioLista As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional NumTurnos As Decimal = 0D) As Boolean
+                                    Optional ImporteRetISR As Decimal = 0, Optional PorcentajeRetISR As Decimal = 0, Optional CuentaPredial As String = "", Optional CvePrecioLista As Integer = -1, Optional CveActivoFijo As Integer = -1,
+                                    Optional NumTurnos As Decimal = 0D, Optional EstatusAlmacen As Integer = 0) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_VentasDetalleAdd")
 
@@ -1389,6 +1414,7 @@ Public Class ClsVentas
             .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
             .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
             .Add("@NumTurnos", SqlDbType.Decimal).Value = NumTurnos
+            .Add("@EstatusAlmacen", SqlDbType.Int).Value = EstatusAlmacen
         End With
 
         Try

App_Code/Usuario.vb

@@ -227,12 +227,12 @@ Namespace ADSSession
                         Case OpcionSession.getListasession
                             retorno = _dicSessionobj.Values.ToList()
                         Case OpcionSession.CerrarSession
-                            Dim objlist = _dicSessionobj.Values.ToList()
+                            Dim objlist As List(Of ADSSessionObj) = _dicSessionobj.Values.ToList()
                             For Each user As ADSSession.ADSSessionObj In objlist
                                 If CveUsuario = user.CveUsuario Then 'AndAlso (CveEmpresa = -1 OrElse CveEmpresa = user.CveEmpresa) Then
                                     Dim taspsig As String = user.ASPSIG '"94C6AC57E8599390A4B7B8AB41FEABEF466D9B31120BE06D78110E66265F1ACC5616297BF3B88EDCEE71EBCFE35484308F62C8017EAC29FB3F0FB45CEC09E8F03DFBB4A4DD890D45755B7A30185C6D01F20AEFA74BE3A25FD12D536B20DCB8D9940A3D95"
                                     Dim tsessionID As String = user.SessionID
-                                    Dim url = System.Configuration.ConfigurationManager.AppSettings("urlcerrarSession").ToString()
+                                    Dim url As String = System.Configuration.ConfigurationManager.AppSettings("urlcerrarSession").ToString()
                                     Dim cookie As String = String.Format("ASP.NET_SessionId={0};.ASPXSIG={1}", tsessionID, taspsig)
                                     sendURL(url, cookie)
                                 End If

Ashx/E119.ashx

@@ -384,8 +384,13 @@ Public Class E119 : Implements IHttpHandler
                     CveMoneda = 1
                     Descuento = 0
                     MsgLog.AppendLine("1.3 billing")
-                    Dim RFC As String = If(JsonRequest("billing") Is Nothing, "", JsonRequest("billing")("first_name").ToString())
+                    Dim RFC As String = ""
-                    Dim NombreCliente As String = If(JsonRequest("billing") Is Nothing, "", JsonRequest("billing")("first_name").ToString() & " " & JsonRequest("billing")("last_name").ToString())
+                    Dim NombreCliente As String = ""
+                    If JsonRequest("billing") IsNot Nothing Then
+                        RFC = JsonRequest("billing").First("first_name").ToString()
+                        NombreCliente = JsonRequest("billing").First("first_name").ToString() & " " & JsonRequest("billing").First("last_name").ToString()
+                    End If
+
                     'BUSCAR SI ESTÁ REGISTRADO EL CLIENTE
                     If ObjClientes.GetClientes(-1, "-1", "-1", "-1", RFC, "-1", "-1", -1, CveEmpresa, 1, TipoCliente:=-1, TopSelect:=1) Then
                         If ObjClientes.DtResultados.Rows.Count > 0 Then
@@ -401,16 +406,16 @@ Public Class E119 : Implements IHttpHandler
                         MsgLog.AppendLine("1.5 crear cliente")
                         If JsonRequest("billing") IsNot Nothing Then
                             Dim CveEstado As Integer = -1
-                            Dim Direccion As String = If(JsonRequest("billing")("address_1") Is Nothing, "", JsonRequest("billing")("address_1").ToString())
+                            Dim Direccion As String = If(JsonRequest("billing").First("address_1") Is Nothing, "", JsonRequest("billing").First("address_1").ToString())
                             Dim NumExt As String = ""
                             Dim NumInt As String = ""
                             Dim Colonia As String = ""
-                            Dim Ciudad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString())
+                            Dim Ciudad As String = If(JsonRequest("billing").First("city") Is Nothing, "", JsonRequest("billing").First("city").ToString())
-                            Dim Localidad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString())
+                            Dim Localidad As String = If(JsonRequest("billing").First("city") Is Nothing, "", JsonRequest("billing").First("city").ToString())
-                            Dim CP As String = If(JsonRequest("billing")("postcode") Is Nothing, "", JsonRequest("billing")("postcode").ToString())
+                            Dim CP As String = If(JsonRequest("billing").First("postcode") Is Nothing, "", JsonRequest("billing").First("postcode").ToString())
-                            Dim Telefono As String = If(JsonRequest("billing")("phone") Is Nothing, "", JsonRequest("billing")("phone").ToString())
+                            Dim Telefono As String = If(JsonRequest("billing").First("phone") Is Nothing, "", JsonRequest("billing").First("phone").ToString())
-                            Dim Correo As String = If(JsonRequest("billing")("email") Is Nothing, "", JsonRequest("billing")("email").ToString())
+                            Dim Correo As String = If(JsonRequest("billing").First("email") Is Nothing, "", JsonRequest("billing").First("email").ToString())
-                            Dim Estado As String = If(JsonRequest("billing")("state") Is Nothing, "", JsonRequest("billing")("state").ToString())
+                            Dim Estado As String = If(JsonRequest("billing").First("state") Is Nothing, "", JsonRequest("billing").First("state").ToString())
                             If Not String.IsNullOrEmpty(Estado) Then
                                 CveEstado = ClsPaginas.GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{Estado.Trim}'").ToEntero()
                                 If CveEstado <= 0 Then 'SI NO ENCUENTRA EL ESTADO INGRESA EL DE SONORA

Ashx/E141.ashx

@@ -98,8 +98,8 @@ Public Class E141 : Implements IHttpHandler
     Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
         Dim retorno As String = ""
         Try
-            Dim Params = If(context.Request("P") = Nothing, "", context.Request("P").ToString())
+            Dim Params As String = If(context.Request("P") = Nothing, "", context.Request("P").ToString())
-            Dim ParamsV = If(context.Request("PV") = Nothing, "", context.Request("PV").ToString())
+            Dim ParamsV As String = If(context.Request("PV") = Nothing, "", context.Request("PV").ToString())
 
             Dim ParametrosNuevos As Boolean = False
             If Not String.IsNullOrEmpty(ParamsV) Then
@@ -135,16 +135,16 @@ Public Class E141 : Implements IHttpHandler
 
             Else
 
-                Dim Metodo = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString())
+                Dim Metodo As String = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString())
                 'OBTENER EXISTENCIAS
                 If Metodo = "GetExistencia" Then
                     context.Response.ContentType = "application/json"
 
-                    Dim Codigo = If(context.Request("Sku") = Nothing, "", context.Request("Sku").ToString())
+                    Dim Codigo As String = If(context.Request("Sku") = Nothing, "", context.Request("Sku").ToString())
                     retorno = GetExistencia(context, Codigo)
                 ElseIf Metodo = "ConsultarRFC" Then
                     context.Response.ContentType = "application/json"
-                    Dim Auth = ValidarSolicitud(context)
+                    Dim Auth As AuthMessage = ValidarSolicitud(context)
 
                     If Auth.IsSucces Then
                         retorno = ConsultaRFC(context)
@@ -155,7 +155,7 @@ Public Class E141 : Implements IHttpHandler
 
                 ElseIf Metodo = "ValidarCarrito" Then
                     context.Response.ContentType = "application/json"
-                    Dim Auth = ValidarSolicitud(context)
+                    Dim Auth As AuthMessage = ValidarSolicitud(context)
 
                     If Auth.IsSucces Then
                         retorno = ValidarCarrito(context)
@@ -166,7 +166,7 @@ Public Class E141 : Implements IHttpHandler
 
                 ElseIf Metodo = "RegistrarPedido" Then
                     context.Response.ContentType = "application/json"
-                    Dim Auth = ValidarSolicitud(context)
+                    Dim Auth As AuthMessage = ValidarSolicitud(context)
 
                     If Auth.IsSucces Then
                         retorno = RegistrarPedido(context)

Compras/PopUpVerFactura.aspx.vb

@@ -7,8 +7,7 @@ Imports System.Xml
 Imports Extensiones
 Imports iText.Barcodes.Dmcode
 Imports Microsoft.Reporting.WebForms
-Imports Stimulsoft.Report
+
-Imports Stimulsoft.Report.Web
 
 Partial Class PopUpVerFactura
     Inherits ClsPaginas
@@ -3400,12 +3399,8 @@ Partial Class PopUpVerFactura
                 If Archivo.Exists Then
                     If RegenerarPDF Then
                         Archivo.Delete()
-                        If UsuarioActual.Empresa.CvePlataforma = 2 Then
+                        ImprimirbytesPDF(PdfFactura(Vta, AplicaPagare:=AplicaPagare, Guardar:=True, SubReportData:=CartaPorte, RegenerarQR:=True), Vta.SerieFolio, "PDF")
-                            GeneraPDFVtaPyMe(Vta, "PDF")
+                        Vta = Nothing
-                        Else
-                            ImprimirbytesPDF(PdfFactura(Vta, AplicaPagare:=AplicaPagare, Guardar:=True, SubReportData:=CartaPorte, RegenerarQR:=True), Vta.SerieFolio, "PDF")
-                            Vta = Nothing
-                        End If
                     Else
                         HttpContext.Current.Response.Clear()
                         HttpContext.Current.Response.ClearContent()
@@ -3418,20 +3413,11 @@ Partial Class PopUpVerFactura
                         Archivo = Nothing
                     End If
                 Else
-
+                    ImprimirbytesPDF(PdfFactura(Vta, AplicaPagare:=AplicaPagare, Guardar:=Guardar, SubReportData:=CartaPorte), Vta.SerieFolio, "PDF")
-                    '04/05/2018 - Se agrega seccion pruebas para generar factura venta .mrt para PyME
+                    Vta = Nothing
-                    If UsuarioActual.Empresa.CvePlataforma = 2 Then
-                        GeneraPDFVtaPyMe(Vta, "PDF")
-                    Else
-                        ImprimirbytesPDF(PdfFactura(Vta, AplicaPagare:=AplicaPagare, Guardar:=Guardar, SubReportData:=CartaPorte), Vta.SerieFolio, "PDF")
-                        Vta = Nothing
-                    End If
                 End If
             End If
-
-
         End If
-
     End Sub
 #End Region
 
@@ -6530,65 +6516,6 @@ Partial Class PopUpVerFactura
     End Sub
 #End Region
 
-#Region "OP = VTA - PyME"
-
-    ' 04/05/2018 - Pruebas de impresion de factura PyME
-    Private Sub GeneraPDFVtaPyMe(Venta As Modelos.Factura, Optional Formato As String = "PDF")
-        Dim Directorio1 As String = String.Format("{0}Formatos\Factura.mrt", UsuarioActual.Empresa.Ruta)
-        Dim File As FileInfo = New FileInfo(Directorio1)
-
-        If File.Exists Then
-            Dim Reporte As StiReport = New StiReport()
-            Reporte.Load(Directorio1)
-            Reporte.Dictionary.DataSources.Clear()
-
-            Dim ds As DataSet = New DataSet()
-            Venta.DtDetalle.TableName = "Datos"
-
-            ds.Tables.Add(Venta.DtDetalle)
-
-            Reporte.RegData(ds)
-
-            Reporte.Dictionary.Variables("Empresa").Value = UsuarioActual.Empresa.Empresa
-
-            Reporte.Dictionary.Variables("Tipo").Value = "Ingreso"
-            Reporte.Dictionary.Variables("RFC").Value = UsuarioActual.Empresa.RFC
-            Reporte.Dictionary.Variables("Serie").Value = Venta.Serie
-            Reporte.Dictionary.Variables("Folio").Value = Venta.Folio.ToString()
-
-            Reporte.Dictionary.Variables("ClienteNombre").Value = Venta.Cliente.Nombre
-            Reporte.Dictionary.Variables("ClienteDireccion").Value = Venta.Cliente.Direccion
-            Reporte.Dictionary.Variables("ClienteLugar").Value = Venta.Cliente.Ciudad
-            Reporte.Dictionary.Variables("ClienteRFC").Value = Venta.Cliente.RFC
-
-            Reporte.Dictionary.Variables("DomicilioExpedicion").Value = Venta.SubProyecto.Direccion
-
-            Dim SubtTotal As Decimal = (Venta.DtDetalle.SUM("PU") * Venta.DtDetalle.SUM("Cantidad")) '* 0.16 lleva el IVA?
-            Dim IVA As Decimal = SubtTotal * 0.16D 'lleva IVA?
-            Dim Total As Decimal = SubtTotal + IVA
-
-            'Reporte.Dictionary.Variables("Importe").Value =
-            Reporte.Dictionary.Variables("ImporteLetra").Value = Total.Texto2Letras()
-
-            Reporte.Dictionary.Variables("SubTotal").Value = SubtTotal.ToString()
-            Reporte.Dictionary.Variables("IVA").Value = IVA.ToString()
-            Reporte.Dictionary.Variables("Total").Value = Total.ToString()
-
-            Reporte.Dictionary.Variables("UsoCFDI").Value = Venta.UsoCFDI
-            Reporte.Dictionary.Variables("MetodoPago").Value = Venta.MetodoPago33
-            Reporte.Dictionary.Variables("FormaPago").Value = Venta.FormaPago33
-
-            Reporte.Dictionary.Variables("QR").Value = "lajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsad"
-            Reporte.Dictionary.Variables("SelloCFDI").Value = "lajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsadlajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsadlajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsad"
-            Reporte.Dictionary.Variables("SelloSAT").Value = "lajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsad"
-            Reporte.Dictionary.Synchronize()
-
-            StiReportResponse.ResponseAsPdf(Me, Reporte)
-        Else
-            RegistraScript("alert('No hay un formato de factura predefinido,favor de comunicar a soporte tecnico')")
-        End If
-    End Sub
-#End Region
 
 #Region "OP = ENTREGAS - Entregas por realizar"
     Public Sub ImprimeEntregasPorRealizar(CveAsignacionEntrega As Long, pUsuarioEntregar As String)

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

@@ -2130,6 +2130,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                     If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then
 
+                        If dColumn.ColumnName = "SinSubProyecto" Then
+                            'TxtSub = "Sin SubProyecto"
+                            'Continue For
+                            Exit For
+                        End If
+
                         CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName
                         GvIngresosSubProyectoH.Columns(IndexGv).Visible = True
 
@@ -2143,10 +2149,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
                             Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
 
-                            If dColumn.ColumnName = "SinSubProyecto" Then
+
-                                TxtSub = "Sin SubProyecto"
-                                Continue For
-                            End If
 
 
                             CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub

General/SaldosIniciales.aspx.vb

@@ -682,13 +682,9 @@ Partial Class General_SaldosIniciales
                     DtMarcas = ObjPS.DtResultados.Copy
                 End If
 
-                If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
+                DtMedidas = GlobalDTPSMedidas(UsuarioActual.CveEmpresa)
-                    DtMedidas = ObjGral.DtResultados.Copy
+                DtRinTamaño = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa)
-                End If
 
-                If ObjGral.GetRinTamanios(UsuarioActual.CveEmpresa) Then
-                    DtRinTamaño = ObjGral.DtResultados.Copy
-                End If
 
                 If ObjGral.GetModelos(UsuarioActual.CveEmpresa) Then
                     DtModelos = ObjGral.DtResultados.Copy

Inventarios/EntradasSalidas.aspx.vb

@@ -2070,7 +2070,10 @@ Partial Class Inventarios_EntradasSalidas
                                             ErrorMovInv = True
                                         End If
                                     Next
-
+                                Else
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoAlmacen, tValorInventario, tValorInventario, CveConceptoContable, TxtObservaciones.Text.Trim, TxtObservaciones.Text.Trim, CveMovimientoAlmacen:=CveMovimiento, CveClasificacion:=CveClasificacion, Contabilizable:=EsContabilizable) Then
+                                        ErrorMovInv = True
+                                    End If
                                 End If
                             End If
                         Else
@@ -4433,7 +4436,7 @@ Partial Class Inventarios_EntradasSalidas
 
 #End Region
 
-#Region "GUARDAR"
+#Region "GUARDAR   CAMBIO INVENTARIO FISICO "
     Private Sub BtnAplicarCambioInvFisico_Click(sender As Object, e As EventArgs) Handles BtnAplicarCambioInvFisico.Click
 
         If GvEntradas.Rows.Count = 0 And GvSalidas.Rows.Count = 0 Then

Inventarios/EntregaAlmacen.aspx.vb

@@ -5,7 +5,7 @@ Imports System.Data
 Imports System.Data.SqlClient
 Imports System.IO
 Imports Extensiones
-
+Imports Microsoft.Owin.Security.Provider
 Imports Microsoft.Reporting.WebForms
 
 Partial Class Inventarios_EntregaAlmacen
@@ -4269,27 +4269,36 @@ Partial Class Inventarios_EntregaAlmacen
 
             Respuesta = ObjOS.UpdateOrdenesServiciosEstatus(CveOSEstatusFinalizada, UsuarioActual.CveUsuario, CveOSCerrar)
 
+            Dim cancelarPeido As Boolean = CancelarPedido(TransaccionSql, CveMovimientoGenerado, Respuesta)
+
             If Respuesta Then
-
+                Dim ObjInventario As New ClsInventarios(TransaccionSql)
-                Dim ObjInventario As New ClsInventarios(ObjOS.IniciaTransacSQL)
-
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoGenerado, UsuarioActual.CveEmpresa) Then
+                    If Not cancelarPeido Then
+                        For Each Dr As DataRow In ObjInventario.DtResultados.Rows
 
-                    For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+                            Dim CveVentaDetalle As Integer = Dr("CveVentaDetalle").ToString().ToEntero()
+                            Dim Cantidad As Decimal = Dr("Cantidad").ToString().ToDecimal
 
-                        Dim CveVentaDetalle As Integer = Dr("CveVentaDetalle").ToString().ToEntero()
+                            If CveVentaDetalle > 0 Then
-                        Dim Cantidad As Decimal = Dr("Cantidad").ToString().ToDecimal
+                                If Not ObjInventario.UpdatePedidoDetalleCantidad(CveVentaDetalle, Cantidad) Then
-
+                                    Respuesta = False
-                        If CveVentaDetalle > 0 Then
+                                    Exit For
-                            If Not ObjInventario.UpdatePedidoDetalleCantidad(CveVentaDetalle, Cantidad) Then
+                                End If
+                            Else
                                 Respuesta = False
-                                Exit For
                             End If
-                        Else
-                            Respuesta = False
-                        End If
 
-                    Next
+                        Next
+                    End If
+
+                End If
+            End If
+
+            If Respuesta AndAlso cancelarPeido Then
+                Dim objVentas As New ClsVentas(TransaccionSql)
+                If Not objVentas.UpdateEstatusVenta(CveVentaSurtir, 4, UsuarioActual.CveEmpresa) Then
+                    Respuesta = False
                 End If
             End If
 
@@ -4302,4 +4311,48 @@ Partial Class Inventarios_EntregaAlmacen
 
     End Function
 
+    Private Function CancelarPedido(ByRef TransaccionSql As SqlTransaction, CveMovimientoGenerado As Integer, ByRef RespuestaPadre As Boolean) As Boolean
+
+        Dim Cancelar As Boolean = True
+
+        Dim objVentas As New ClsVentas(TransaccionSql)
+        Dim ObjInventario As New ClsInventarios(TransaccionSql)
+
+        Dim DTMovimiento As New DataTable
+        Dim DTPedidoDetalle As New DataTable
+
+        If ObjInventario.GetMovimientosDetalle(CveMovimientoGenerado, UsuarioActual.CveEmpresa) Then
+            DTMovimiento = ObjInventario.DtResultados
+        Else
+            RespuestaPadre = False
+        End If
+
+        If objVentas.GetVentaDetalle(CveVentaSurtir) Then
+            DTPedidoDetalle = objVentas.DtResultados
+        Else
+            RespuestaPadre = False
+        End If
+
+
+        If RespuestaPadre Then
+
+            For Each rowPedido As DataRow In DTPedidoDetalle.Rows
+                Dim CantidadPedido As Decimal = rowPedido("Cantidad").ToString.ToDecimal
+                Dim CveVentaDetalle As Integer = rowPedido("CveVentaDetalle").ToString.ToEntero
+
+                Dim CantidadDevuelto As Decimal = DTMovimiento.FiltroPrimeroValor("Cantidad", $"CveVentaDetalle = {CveVentaDetalle}").ToDecimal
+
+                If CantidadPedido <> CantidadDevuelto Then
+                    Cancelar = False
+                    Exit For
+                End If
+
+            Next
+
+        End If
+
+        Return Cancelar
+
+    End Function
+
 End Class

Inventarios/RecepcionAlmacen.aspx

@@ -192,7 +192,7 @@
                                        
                                         </div>
                                         <div class="col-md-10">
-                                            <asp:DropDownList ID="DdlAlmacen" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlAlmacen_SelectedIndexChanged" DataTextField="Almacen" AppendDataBoundItems="true" DataValueField="CveAlmacen" CssClass="form-control input-sm select2me" Width="320px"></asp:DropDownList>
+                                            <asp:DropDownList ID="DdlAlmacen" runat="server"    DataTextField="Almacen" AppendDataBoundItems="true" DataValueField="CveAlmacen" CssClass="form-control input-sm select2me" Width="320px"></asp:DropDownList>
                                             <asp:RequiredFieldValidator ID="RFVAlmacen" runat="server" ControlToValidate="DdlAlmacen" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                             <ajax:ValidatorCalloutExtender ID="VCEAlmacen" runat="server" HighlightCssClass="vco" TargetControlID="RFVAlmacen" Width="350px"></ajax:ValidatorCalloutExtender>
                                         </div>

Inventarios/RecepcionAlmacen.aspx.vb

@@ -474,7 +474,7 @@ Partial Class Inventarios_RecepcionAlmacen
             CargaPendientes()
 
             CargaPermisos()
-            If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True
+
             Dim PermisoEspecialCambioFecha As Boolean = False
             If UsuarioActual.CveUsuario.Contiene(100, 1937) Then PermisoEspecialCambioFecha = True
 
@@ -591,9 +591,7 @@ Partial Class Inventarios_RecepcionAlmacen
         UpGenerales.Update()
     End Sub
 
-    Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs)
+
-        RecargaporAlmacenes()
-    End Sub
 
     Private Sub RecargaporAlmacenes()
         CveTipoAlmacen = -1

Inventarios/RepEntradasSalidas.aspx

@@ -209,7 +209,7 @@
     <asp:UpdatePanel ID="UpEncabezado" runat="server" UpdateMode="Conditional">
         <ContentTemplate> 
             <div id="dvCa" style="width:100%;visibility:hidden;top:40px">
-            <table id="dTable" class="correcto table  Widthall "><tr>                       
+            <table id="dTable" class="correcto table  Widthall " runat="server"><tr>                       
                 <td id="dvArt" runat="server" class="dataTables_scrollHead" style="text-align:center!important; font-size:14px;width:32.5%;"><b>Producto</b></td>                
                 <td id="dvCan" runat="server" class="dataTables_scrollHead" style="text-align:center!important; font-size:14px; border-right-color: white!important;border-left-color: white!important;width:30%;border-style: solid;"><b>Cantidad</b></td>                  
                 <td id="dvImp" runat="server"  class="dataTables_scrollHead" style="text-align:center!important;width: 37.5%;font-size:14px;"><b>Importe</b></td>

Inventarios/RepEntradasSalidas.aspx.vb

@@ -3,6 +3,7 @@ Option Strict On
 
 Imports System.Data
 Imports System.IO
+Imports DocumentFormat.OpenXml.Office2013.Excel
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
@@ -101,13 +102,31 @@ Partial Class Inventarios_ReporteEntradasSalidas
     Private Sub CargaPermisos()
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
 
+        If Not TienePermisoImportes Then
+            GvM.Columns(0).HeaderStyle.Width = 268
+            GvM.Columns(4).HeaderStyle.Width = 269
+            GvM.Columns(6).HeaderStyle.Width = 133
+            GvM.Columns(7).HeaderStyle.Width = 133
+            GvM.Columns(8).HeaderStyle.Width = 133
+            GvM.Columns(10).HeaderStyle.Width = 134
+            GvM.CssClass = "table table-smallpadding table-striped table-hover ScrollAD"
+            GvM.Width = 1074
+            dvArt.Attributes.Add("style", "text-align:center!important; font-size:14px;width:537px;")
+            dvCan.Attributes.Add("style", "text-align:center!important; font-size:14px; border-right-color: white!important;border-left-color: white!important;width:537px;border-style: solid;")
+            dTable.Attributes.Add("class", "correcto table")
+            dTable.Attributes.Add("style", "width:1074px;")
+        End If
+
         dvImp.Visible = TienePermisoImportes
+
         GvM.Columns(11).Visible = TienePermisoImportes
         GvM.Columns(12).Visible = TienePermisoImportes
         GvM.Columns(13).Visible = TienePermisoImportes
         GvM.Columns(14).Visible = TienePermisoImportes
         GvM.Columns(15).Visible = TienePermisoImportes
 
+
+
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
             GvM.Columns(9).Visible = True
         End If
@@ -303,7 +322,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
 
                 e.Row.CssClass = "Totales"
                 Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM)
-                'e.Row.Cells(0).Text = $"<a class='Texto' href='./RepExistenciasCostos.aspx?CvePS={e.Row.DataKey("CvePS")}&CveMoneda={e.Row.DataKey("CveMoneda")}&CveProveedor={e.Row.DataKey("CveProveedor")}&CveConcepto={e.Row.DataKey("CveConcepto")}&FechaI={e.Row.DataKey("FechaF").ToDate().ToString("dd/MM/yyyy")}&FechaF={e.Row.DataKey("FechaF").ToDate().ToString("dd/MM/yyyy")}&CveAlmacen={e.Row.DataKey("CveAlmacen")}&CvePersonal={e.Row.DataKey("CvePersonal")}'>{e.Row.DataKey("Codigo")}</a>"
+                'e.Row.Cells(0).Text = $"<a Class='Texto' href='./RepExistenciasCostos.aspx?CvePS={e.Row.DataKey("CvePS")}&CveMoneda={e.Row.DataKey("CveMoneda")}&CveProveedor={e.Row.DataKey("CveProveedor")}&CveConcepto={e.Row.DataKey("CveConcepto")}&FechaI={e.Row.DataKey("FechaF").ToDate().ToString("dd/MM/yyyy")}&FechaF={e.Row.DataKey("FechaF").ToDate().ToString("dd/MM/yyyy")}&CveAlmacen={e.Row.DataKey("CveAlmacen")}&CvePersonal={e.Row.DataKey("CvePersonal")}'>{e.Row.DataKey("Codigo")}</a>"
                 e.Row.Cells(4).Text = $"<a class='Texto' href='./RepExistenciasCostos.aspx?CvePS={DdlPS.txtValue.Value}&CveMoneda={DdlMoneda.SelectedValue}&CveProveedor={DdlProveedor.txtValue.Value}&CveConcepto={DdlTipoMovimiento.SelectedValue}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}&CveAlmacen={Almacenes}&CvePersonal={DdlPersonal.SelectedValue}&Tipo={DdlMovs.SelectedValue.ToEntero}'>{e.Row.DataKey("PS")}</a>"
                 'e.Row.Cells(4).Text = $"<a class='Texto' href='./RepExistenciasCostos.aspx?CvePS={e.Row.DataKey("CvePS")}&CveMoneda={e.Row.DataKey("CveMoneda")}&CveProveedor={e.Row.DataKey("CveProveedor")}&CveConcepto={e.Row.DataKey("CveConcepto")}&FechaI={e.Row.DataKey("FechaF").ToDate().ToString("dd/MM/yyyy")}&FechaF={e.Row.DataKey("FechaF").ToDate().ToString("dd/MM/yyyy")}&CveAlmacen={e.Row.DataKey("CveAlmacen")}&CvePersonal={e.Row.DataKey("CvePersonal")}'>{e.Row.DataKey("PS")}</a>"
 

Inventarios/TraspasoAlmacen.aspx.vb

@@ -2932,6 +2932,7 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim RowsCargados As Integer = 0
             Dim RowsNoCargados As Integer = 0
             Dim NoPSConSerie As Integer = 0
+            DtMovimientos.Clear()
             Try
                 Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
                 For Each RowExcel As DataRow In dt.Rows
@@ -2970,23 +2971,23 @@ Partial Class Inventarios_TraspasoAlmacen
                             End If
 
                             If Valido AndAlso (Cantidad > 0 AndAlso RowPS("VentaMinima").ToString.ToDecimal > 0) Then
-                                    If Cantidad Mod RowPS("VentaMinima").ToString.ToDecimal <> 0 Then
+                                If Cantidad Mod RowPS("VentaMinima").ToString.ToDecimal <> 0 Then
-                                        Valido = False
+                                    Valido = False
-                                        ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString())
+                                    ProductosNoCargados.AppendFormat("{0},", RowPS("PSCodigo").ToString())
-                                    End If
                                 End If
+                            End If
 
-                                If Valido Then
+                            If Valido Then
-                                    Valido = ValidaExistencia(Cantidad, CveProducto, CveUnidadMedida, -1, If(Not String.IsNullOrEmpty(Serie), Serie, "-1"), If(Not String.IsNullOrEmpty(Lote), Lote, "-1"), FechaCaducidad)
+                                Valido = ValidaExistencia(Cantidad, CveProducto, CveUnidadMedida, -1, If(Not String.IsNullOrEmpty(Serie), Serie, "-1"), If(Not String.IsNullOrEmpty(Lote), Lote, "-1"), FechaCaducidad)
-                                End If
+                            End If
 
-                                If Valido Then
+                            If Valido Then
-                                    AgregarPS(Cantidad, CveProducto, CveUnidadMedida, Observaciones, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=DdlSeccionAlmacen.SelectedItem.Text, Serie:=If(Not String.IsNullOrEmpty(Serie), Serie, ""), Lote:=Lote, FechaCaducidad:=FechaCaducidad, Limpia:=False)
+                                AgregarPS(Cantidad, CveProducto, CveUnidadMedida, Observaciones, CveSeccionAlmacen:=DdlSeccionAlmacen.SelectedValue.ToEntero, SeccionAlmacen:=DdlSeccionAlmacen.SelectedItem.Text, Serie:=If(Not String.IsNullOrEmpty(Serie), Serie, ""), Lote:=Lote, FechaCaducidad:=FechaCaducidad, Limpia:=False)
-                                    RowsCargados = RowsCargados + 1
+                                RowsCargados = RowsCargados + 1
-                                Else
+                            Else
-                                    RowsNoCargados = RowsNoCargados + 1
+                                RowsNoCargados = RowsNoCargados + 1
-                                    ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString())
+                                ProductosNoCargados.AppendFormat("{0},", RowPS("PSCodigo").ToString())
-                                End If
+                            End If
 
                             Else
                                 RowsNoCargados = RowsNoCargados + 1

OS/Asignaciones.aspx

@@ -203,10 +203,7 @@
                                         <asp:BoundField DataField="Concepto" HeaderText="Concepto" ItemStyle-HorizontalAlign="Left" />
                                         <asp:BoundField DataField="EstatusOrdenServicio" HeaderText="Estatus" ItemStyle-HorizontalAlign="Left" />
                                         <asp:BoundField DataField="FechaIng" HeaderText="Fecha Ingreso" DataFormatString="{0:d}" ItemStyle-Width="130px" />
-                                        <asp:TemplateField ItemStyle-Width="120px">
+                                        <asp:TemplateField ItemStyle-Width="120px" HeaderText="Fecha Servicio">                                            
-                                            <HeaderTemplate>
-                                                Fecha Servicio
-                                            </HeaderTemplate>
                                             <ItemTemplate>
                                                 <asp:Literal ID="LtlFechaServicio" runat="server" Visible="false" Text='<%# Eval("FechaCita", "{0:d}")%>'> ></asp:Literal>
 
@@ -224,10 +221,7 @@
                                                 </div>
                                             </ItemTemplate>
                                         </asp:TemplateField>
-                                        <asp:TemplateField ItemStyle-Width="60px">
+                                        <asp:TemplateField ItemStyle-Width="60px" HeaderText="Hora Servicio">                                            
-                                            <HeaderTemplate>
-                                                Hora Servicio
-                                            </HeaderTemplate>
                                             <ItemTemplate>
                                                  <asp:Literal ID="LtlHoraServicio" runat="server" Visible="false" Text='<%# Eval("HoraCita", "{0:t}")%>'> ></asp:Literal>
                                                 <cc1:TimeSelector ID="TimeSelector" runat="server" DisplaySeconds="false" DisplayButtons="false" Visible="false" SelectedTimeFormat="TwentyFour" Width="60px" Height="20px" CssClass="test" >

OS/Asignaciones.aspx.vb

@@ -45,6 +45,12 @@ Partial Class OS_Asignaciones
             CargaClientes()
             CargaSubProyecto()
 
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+                GvNA.Columns(2).HeaderText = "Hospital"
+                GvNA.Columns(7).HeaderText = "Fecha Cirugía"
+                GvNA.Columns(8).HeaderText = "Hora Cirugía"
+            End If
+
             If UsuarioActual.TienePermisoProceso(171) Then
                 CargaOrdenesServiciosAsignadasXPersona()
                 CargaOrdenesServiciosNoAsignadas()

OS/OrdenesServicios.aspx.vb

@@ -3072,7 +3072,7 @@ Partial Class OS_OrdenesServicios
                     Dim PU As Decimal = GvRow.DataKey("PU").ToDecimal
 
                     If CantidadRegistro > 0 Then
-                        Dim CveVentaDetalle As Integer = DtVentaDetalle.Rows(IndexMov1)("CveVentaDetalle").ToString.ToEntero
+                        Dim CveVentaDetalle As Integer = GvRow.DataKey("CveVentaDetalle").ToEntero   ' DtVentaDetalle.Rows(IndexMov1)("CveVentaDetalle").ToString.ToEntero
                         Dim CveMovimientoDetalle As Integer = GvRow.DataKey("CveMovimientoDetalle").ToEntero
 
                         Dim Serie As String = GvRow.DataKey("Serie")

RH/CatPersonal.aspx.vb

@@ -1196,7 +1196,8 @@ Partial Class RH_CatPersonal
                    -1, DdlSubProyectoAsignadoAdd.SelectedValue.ToEntero, "",
                    DdlSupervisor.SelectedValue.ToEntero, "", "", DdlJornada.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, "", -1, CveUniforme:=-1,
                    TelefonoExtension:="", CelularPersonal:="", TelefonoMarcadoRapido:="", ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=isSindicalizado, CvePais:=151,
-                   CveMedioTransporte:=DdlMedioTransporte.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero()
+                   CveMedioTransporte:=DdlMedioTransporte.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(),
+                   AreaGeografica:=DdlAreageografica.SelectedValue
                 ) Then
                 Dim filesgral As List(Of Archivo) = TxtFoto.getfiles().Archivos
                 Dim filemove As String = ""

RH/Personal.aspx

@@ -1506,6 +1506,16 @@
                                                         </asp:DropDownList>
                                                         <asp:Label runat="server" AssociatedControlID="DDlTipoSalario" Text="Tipo Salario:"></asp:Label>
                                                     </div>
+                                                    
+                                                <div class="form-group form-md-line-input input-iconright">
+
+                                                    <asp:DropDownList ID="DdlAreageografica" runat="server" CssClass="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardarAddS">
+                                                        <asp:ListItem Selected="True" Text="A" Value="A"></asp:ListItem>
+                                                        <asp:ListItem Text="B" Value="B"></asp:ListItem>
+                                                        <asp:ListItem Text="C" Value="C"></asp:ListItem>
+                                                    </asp:DropDownList>
+                                                    <asp:Label runat="server" AssociatedControlID="DdlAreageografica" Text="Area geografica:"></asp:Label>
+                                                </div>
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:DropDownList ID="DdlRegimenContratacion" Width="100%" runat="server" AppendDataBoundItems="true" DataTextField="ClaveRegimenContratacion" CssClass="form-control input-sm select2me" DataValueField="CveSATRegimenContratacion" ValidationGroup="GrpGuardar">
                                                             <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>

RH/Personal.aspx.vb

@@ -2,16 +2,10 @@
 Option Strict On
 
 Imports Extensiones
-'Imports System.Runtime.InteropServices
 Imports System.IO
-'Imports Word = Microsoft.Office.Interop.Word
 Imports System.Data
 Imports Microsoft.Reporting.WebForms
 Imports System.Globalization
-Imports System.Xml
-Imports System.Web.Script.Services
-Imports System.Linq
-
 
 Partial Class RH_Personal
     Inherits ClsPaginas
@@ -1149,6 +1143,11 @@ Partial Class RH_Personal
             GVAsistencia.Columns(1).Visible = True
         End If
 
+        If UsuarioActual.TienePermisoProceso(372) Then
+            TxtSalarioDiarioImSS.Enabled = True
+            TxtSalarioDiarioIntegrado.Enabled = True
+        End If
+
     End Sub
     Private Sub SetPermisos()
         'Permisos
@@ -1702,6 +1701,7 @@ Partial Class RH_Personal
                 TxtCodigo.Text = ObjPersonal.Codigo
                 DdlEscolaridad.SelectedValue = ObjPersonal.CveEscolaridad.ToString()
                 DdlEstadoCivil.SelectedValueExist(ObjPersonal.CveEstadoCivil.ToString())
+                DdlAreageografica.SelectedValueExist(drow("Areageografica").ToString())
                 DdlGenero.SelectedValue = ObjPersonal.CveGenero.ToString()
                 TxtFechaNacimiento.Text = ObjPersonal.FechaNacimiento.ToShortDateString
                 TxtRFC.Text = ObjPersonal.RFC
@@ -2051,7 +2051,8 @@ Partial Class RH_Personal
                            UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), TxtBeneficiario.Text.Trim, DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(),
                            TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(),
                            Sindicalizado:=ChkSindicalizado.Checked, Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(),
-                           CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue, CveSubTipoPeriodo:=CveSubTipoPeriodo) Then
+                           CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue, CveSubTipoPeriodo:=CveSubTipoPeriodo,
+                           AreaGeografica:=DdlAreageografica.SelectedValue) Then
 
                             If Archivo.Exists Then
 
@@ -2137,7 +2138,8 @@ Partial Class RH_Personal
                            TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario,
                            CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(),
                            CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero(), EsReserva:=If(chkEsReserva.Checked, 1, 0),
-                           Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue, CveSubTipoPeriodo:=CveSubTipoPeriodo) Then
+                           Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue, CveSubTipoPeriodo:=CveSubTipoPeriodo,
+                            AreaGeografica:=DdlAreageografica.SelectedValue) Then
 
                             'Funcion usa RH Familiares
                             If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then

Sistemas/UsuarioDetalle.aspx

@@ -109,7 +109,7 @@
                                                         <tr>
                                                             <td>Usuario:</td>
                                                             <td>
-                                                                <asp:TextBox ID="TxtUsuario" runat="server"></asp:TextBox>
+                                                                <asp:TextBox ID="TxtUsuario" runat="server" Width="350px"></asp:TextBox>
                                                                 <asp:RequiredFieldValidator ID="RFVUsuario" runat="server" ControlToValidate="TxtUsuario" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Usuario''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                                 <ajax:ValidatorCalloutExtender ID="VCEUsuario" runat="server" HighlightCssClass="vco" TargetControlID="RFVUsuario" Width="300px"></ajax:ValidatorCalloutExtender>
                                                                 &nbsp;

Transportes/Boletos.aspx

@@ -67,14 +67,14 @@
     </style>
 </asp:Content>
 
-<asp:Content ID="Content1" ContentPlaceHolderID="HB" runat="Server">
+<%--<asp:Content ID="Content1" ContentPlaceHolderID="HB" runat="Server">
     <contenttemplate>      
         <li>
             <asp:HyperLink ID="LBListadoViajes" runat="server" NavigateUrl="ListadoViajes.aspx"
                 Target="_blank"><i class='fa fa-road'></i>Viajes</asp:HyperLink>
         </li>
     </contenttemplate>
-</asp:Content>
+</asp:Content>--%>
 
 <asp:Content ID="Content2" ContentPlaceHolderID="C" runat="Server">
 

Transportes/Boletos.aspx.vb

@@ -85,7 +85,8 @@ Partial Class Boletos
 
     Protected Sub InicializaCombos()
         'Lista Destinos''carga específicos
-        Dim ObjDestinos As New ClsDestinos()
+        Dim ObjDestinos As New ClsTransportes()
+
         If ObjDestinos.GetDestinos(CveRuta:=CveRuta) Then
 
             If ObjDestinos.DtResultados.Rows.Count > 0 Then
@@ -99,6 +100,7 @@ Partial Class Boletos
                 DdlDestino.Items.Insert(0, New ListItem("Seleccione Destino", ""))
             End If
         End If
+        ObjDestinos.Dispose()
     End Sub
 
     Protected Sub CotizarTarifa(sender As Object, e As EventArgs)
@@ -107,6 +109,8 @@ Partial Class Boletos
             Dim ObjDestinos As New ClsTransportes()
             Dim retorno As Boolean = ObjDestinos.GetDestinosTarifas(DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero)
             Dim ImporteR As Decimal = ObjDestinos.DtResultados.FiltroPrimeroValor("Importe").ToDecimal
+            ObjDestinos.Dispose()
+
             If retorno Then
                 If ImporteR > 0 Then
                     Dim redondeado As String = CStr(Math.Round(ImporteR, 2))
@@ -150,12 +154,13 @@ Partial Class Boletos
 
         Try
             AsientoSeleccionado = AsientoSeleccionado.Replace("A", "")
-            Dim retorno As Integer = ObjTransporte.AddViajesPasajeros(CveViaje, DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero, Importe, AsientoSeleccionado.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, CBool(RblSexo.SelectedValue), TxtObservaciones.Text, UsuarioActual.CveUsuario)
+            Dim retorno As Integer = ObjTransporte.AddViajesPasajeros(CveViaje, DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero, Importe, AsientoSeleccionado.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, CBool(RblSexo.SelectedValue), TxtObservaciones.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
             If retorno > 1 Then
                 ObjTransporte.Commit()
             End If
         Catch ex As Exception
+            ObjTransporte.RollBack()
             Alert($"No se pudo generar el boleto {ex}", TipoMensaje.MsgError)
         Finally
             ObjTransporte.Dispose()

Transportes/RepBoletos.aspx

@@ -1,5 +1,5 @@
 <%@ Page Language="VB" Title="Transportes V&A - Boletos"  AutoEventWireup="false"
-    MasterPageFile="~/Site.master" CodeFile="ListadoBoletos.aspx.vb"
+    MasterPageFile="~/Site.master" CodeFile="RepBoletos.aspx.vb"
     Inherits="ListadoBoletos" EnableEventValidation="true" %>
 
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -14,9 +14,9 @@
     </style>
 </asp:Content>
 
-<asp:Content ID="Content1" ContentPlaceHolderID="HB" runat="Server">
+<%--<asp:Content ID="Content1" ContentPlaceHolderID="HB" runat="Server">
  
-</asp:Content>
+</asp:Content>--%>
 
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
     <div class="row my-1" style="margin-right: 10px; margin-top: 10px;" align="right">
@@ -107,8 +107,6 @@
         </asp:GridView>
     </div>
 
-
-
 </asp:Content>
 
 

Transportes/RepBoletos.aspx.vb

@@ -28,7 +28,7 @@ Partial Class ListadoBoletos
     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")
+                Response.Redirect("/Transportes/RepViajes.aspx")
             End If
             CveViaje = Request.QueryString("CveViaje").ToEntero
             Ruta = Request.QueryString("Ruta")

Transportes/RepContratos.aspx

@@ -1,5 +1,5 @@
 <%@ Page Language="VB" AutoEventWireup="false" Title="Transportes V&A - Contratos" MasterPageFile="~/Site.master"
-    CodeFile="ListadoContratos.aspx.vb"
+    CodeFile="RepContratos.aspx.vb"
     Inherits="ListadoContratos" %>
 
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -38,14 +38,14 @@
             <li>
                 <asp:LinkButton ID="LBAgregarContrato" runat="server"><i class='fa fa-plus'></i>Agregar Contrato</asp:LinkButton>
             </li>
-            <li>
+<%--            <li>
-                <asp:HyperLink ID="LBListadoContratos" runat="server" NavigateUrl="ListadoContratos.aspx"
+                <asp:HyperLink ID="LBListadoContratos" runat="server" NavigateUrl="RepContratos.aspx"
                     Target="_blank"><i class='fa fa-file'></i>Contratos</asp:HyperLink>
             </li>
             <li>
-                <asp:HyperLink ID="LBListadoViajes" runat="server" NavigateUrl="ListadoViajes.aspx"
+                <asp:HyperLink ID="LBListadoViajes" runat="server" NavigateUrl="RepViajes.aspx"
                     Target="_blank"><i class='fa fa-road'></i>Viajes</asp:HyperLink>
-            </li>
+            </li>--%>
 
         </ContentTemplate>
     </asp:UpdatePanel>

Transportes/RepViajes.aspx

@@ -1,5 +1,5 @@
 <%@ Page Language="VB" Title="Transportes V&A - Viajes" AutoEventWireup="false" MasterPageFile="~/Site.master"
-    CodeFile="ListadoViajes.aspx.vb"
+    CodeFile="RepViajes.aspx.vb"
     Inherits="ListadoViajes" %>
 
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -27,14 +27,14 @@
         <li>
             <asp:LinkButton ID="LBAgregarViaje" runat="server"><i class='fa fa-plus'></i>Agregar viaje</asp:LinkButton>
         </li>
-        <li>
+<%--        <li>
             <asp:HyperLink ID="LBListadoContratos" runat="server" NavigateUrl="ListadoContratos.aspx"
                 Target="_blank"><i class='fa fa-file'></i>Contratos</asp:HyperLink>
         </li>
         <li>
             <asp:HyperLink ID="LBListadoViajes" runat="server" NavigateUrl="ListadoViajes.aspx"
                 Target="_blank"><i class='fa fa-road'></i>Viajes</asp:HyperLink>
-        </li>
+        </li>--%>
     </contenttemplate>
 
 </asp:Content>

Transportes/RepViajes.aspx.vb

@@ -1,6 +1,5 @@
 Option Explicit On
 Option Strict On
-Imports ADSNetLibrary.SIGAPI.Helpers
 Imports Extensiones.ModExtensiones
 
 Partial Class ListadoViajes
@@ -46,7 +45,7 @@ Partial Class ListadoViajes
         ObjAF.Dispose()
 
         'Lista Rutas'
-        Dim ObjRutas As New ClsRutas()
+        Dim ObjRutas As New ClsTransportes()
         If ObjRutas.GetRutas(-1, -1, -1, "", True, DateTime.Now) Then
 
             If ObjRutas.DtResultados.Rows.Count > 0 Then
@@ -55,25 +54,24 @@ Partial Class ListadoViajes
                 DdlRutas.Items.Insert(0, New ListItem("Seleccione Ruta", ""))
             End If
         End If
-        ObjRutas.Dispose()
-
         'Lista Destinos'
-        Dim ObjDestinos As New ClsDestinos()
-        If ObjDestinos.GetDestinos() Then
 
-            If ObjDestinos.DtResultados.Rows.Count > 0 Then
+        If ObjRutas.GetDestinos() Then
-                DdlPartida.DataSource = ObjDestinos.DtResultados
+
+            If ObjRutas.DtResultados.Rows.Count > 0 Then
+                DdlPartida.DataSource = ObjRutas.DtResultados
                 DdlPartida.DataBind()
                 DdlPartida.Items.Insert(0, New ListItem("Seleccione Partida", ""))
 
-                DdlDestino.DataSource = ObjDestinos.DtResultados
+                DdlDestino.DataSource = ObjRutas.DtResultados
                 DdlDestino.DataBind()
                 DdlDestino.Items.Insert(0, New ListItem("Seleccione Destino", ""))
             End If
         End If
         ObjRutas.Dispose()
+
         'Lista Chofer'
-        DdlChofer.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
+        DdlChofer.DataSource = GlobalDTRHPersonal(185)
         DdlChofer.DataBind()
         DdlChofer.Items.Insert(0, New ListItem("Seleccione Chofer", ""))
 
@@ -256,7 +254,7 @@ Partial Class ListadoViajes
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim CveViaje As String = GvRow.DataKey("CveViaje")
         Dim Ruta As String = GvRow.DataKey("Ruta")
-        Response.Redirect(String.Format("~/Transportes/ListadoBoletos.aspx?CveViaje={0}&Ruta={1}", CveViaje, Ruta))
+        Response.Redirect(String.Format("~/Transportes/RepBoletos.aspx?CveViaje={0}&Ruta={1}", CveViaje, Ruta))
 
     End Sub
 End Class

Ventas/ClientesAbonar.aspx.vb

@@ -258,20 +258,15 @@ Partial Class Ventas_ClientesAbonar
 
     Private Sub CargaCuentas()
         DdlCuenta.Items.Clear()
-        Dim CveTipoCuenta As Integer = 2
-        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then CveTipoCuenta = -1 'que se muestren todas, para empresa acumuladores
-
-
         Dim dt As DataTable
+        Dim CveTipoCuenta As Integer = -1
+        If UsuarioActual.CveEmpresa = 119 Then CveTipoCuenta = 2 'solo las cuentas de cheques
 
         If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
             dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=-1).FiltraParametros(" CveTipoCuenta in (1,2) ")
         Else
             dt = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=CveTipoCuenta)
         End If
-
-
-
         If ChkPagarPesos.Checked Then
             dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))
             RegistraScript("CambiaPesosDolares();")

Ventas/PV.aspx.vb

@@ -1871,7 +1871,7 @@ Partial Class PV
         Dim ObjAC As ClsContPAQi = Nothing
 
         Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero
-        Dim TipoCambio As Double = TxtTipoCambio.Text.ToDouble
+        Dim TipoCambio As Decimal = TxtTipoCambio.Text.ToDecimal
         Try
             'CONVERTIR REMISION - TIPO MONEDA  -DOLARES A PESOS
             If DdlMoneda.SelectedValue.ToEntero <> 2 AndAlso ChkConvertirDolares.Checked Then
@@ -1960,7 +1960,7 @@ Partial Class PV
 
             'Actualizo los parametros de la venta
             If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim,
-                                          UsuarioActual.CveEmpresa, CveVenta, 0, 0,
+                                          UsuarioActual.CveEmpresa, CveVenta,
                                           Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
                                           PedidoContrato:="", AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero,
                                           CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal,

Ventas/RepProductosServicios.aspx

@@ -389,13 +389,14 @@
                             <asp:Literal ID="LtlCantidad" runat="server" Text='<%# Eval("Cantidad", "{0:N0}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:BoundField HeaderText="Sub Total" DataField="SubTotal" ItemStyle-Width="10%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Sub Total" DataField="SubTotal" ItemStyle-Width="10%" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Descuento" DataField="Descuento" ItemStyle-Width="10%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <%--<asp:BoundField HeaderText="Amortización" DataField="Amortizacion" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />--%>
                     <asp:BoundField HeaderText="IVA" DataField="IVA" ItemStyle-Width="10%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="IEPS" DataField="IEPS" ItemStyle-Width="10%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" Visible="false" />
                     <%--<asp:BoundField HeaderText="Ret. IVA" DataField="RetIVA" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />--%>
                     <%--<asp:BoundField HeaderText="Ret. ISR" DataField="RetISR" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />--%>
-                    <asp:BoundField HeaderText="Total" DataField="Total" ItemStyle-Width="10%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Total" DataField="Total" ItemStyle-Width="10%" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Sub. Máximo" DataField="MAX_SubTotal" ItemStyle-Width="10%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" Visible="false" />
                     <asp:BoundField HeaderText="Sub. Promedio" DataField="AVG_SubTotal" ItemStyle-Width="10%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" Visible="false" />
                     <asp:BoundField HeaderText="Sub. Mínimo" DataField="MIN_SubTotal" ItemStyle-Width="10%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" Visible="false" />
@@ -444,6 +445,12 @@
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkMinTot" runat="server" Text="Total Mínimo" /></td>
                                     </tr>
+                                    <tr>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" Visible ="false" />
+                                        </td>
+                                        <td style="text-align: left;">            </td>
+                                    </tr>
                                 </tbody>
                             </table>
                         </div>

Ventas/RepProductosServicios.aspx.vb

@@ -53,8 +53,6 @@ Partial Class Ventas_RepProductosServicios
             If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
             CargarMarcas()
             SetValues()
-
-
         End If
     End Sub
 
@@ -115,8 +113,6 @@ Partial Class Ventas_RepProductosServicios
             divClasif2.Visible = True
 
             DdlGrupo.Items.Add(New ListItem("Clasificacion2", "25"))
-
-
             LblServicioDomicilioFiltro.Visible = True
             DVServicioDomicilio.Visible = True
 
@@ -144,6 +140,12 @@ Partial Class Ventas_RepProductosServicios
             DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then
+            ChkIEPS.Visible = True
+            ChkIEPS.Checked = True
+            GvDatos.Columns(6).Visible = True
+        End If
+
         'CargaEstatus
         DdlEstatus.DataSource = GlobalDTEstatusFactura.FiltraParametros(" CveEstatusFactura NOT IN (1, 4, 5) ")
         DdlEstatus.DataBind()
@@ -334,43 +336,48 @@ Partial Class Ventas_RepProductosServicios
 
     Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
 
-
+        If ChkIEPS.Checked Then
-        If ChkMaxSub.Checked Then
             GvDatos.Columns(6).Visible = True
         Else
             GvDatos.Columns(6).Visible = False
         End If
 
-        If ChkAVGSub.Checked Then
+        If ChkMaxSub.Checked Then
             GvDatos.Columns(7).Visible = True
         Else
             GvDatos.Columns(7).Visible = False
         End If
 
-        If ChkMinSub.Checked Then
+        If ChkAVGSub.Checked Then
             GvDatos.Columns(8).Visible = True
         Else
             GvDatos.Columns(8).Visible = False
         End If
 
-        If ChkMaxTot.Checked Then
+        If ChkMinSub.Checked Then
             GvDatos.Columns(9).Visible = True
         Else
             GvDatos.Columns(9).Visible = False
         End If
 
-        If ChkAvgTot.Checked Then
+        If ChkMaxTot.Checked Then
             GvDatos.Columns(10).Visible = True
         Else
             GvDatos.Columns(10).Visible = False
         End If
 
-        If ChkMinTot.Checked Then
+        If ChkAvgTot.Checked Then
             GvDatos.Columns(11).Visible = True
         Else
             GvDatos.Columns(11).Visible = False
         End If
 
+        If ChkMinTot.Checked Then
+            GvDatos.Columns(12).Visible = True
+        Else
+            GvDatos.Columns(12).Visible = False
+        End If
+
         UPDatos.Update()
     End Sub
 #End Region

Ventas/RepProductosServiciosDetalle.aspx

@@ -399,13 +399,13 @@
                     <%--3--%>
                     <asp:BoundField HeaderText="Suc. Cob." DataField="SubProyectoCobranza" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" Visible="false" />
                     <%--4--%>
-                    <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="2.5%" ItemStyle-HorizontalAlign="Left" />
                     <%--5--%>
                     <asp:BoundField HeaderText="Cliente" DataField="Nombre" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
                     <%--6--%>
-                    <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="2.5%" ItemStyle-HorizontalAlign="Right" />
                     <%--7--%>
-                    <asp:BoundField HeaderText="Código" DataField="CodigoProducto" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Código" DataField="CodigoProducto" ItemStyle-Width="2.5%" ItemStyle-HorizontalAlign="Left" />
                     <%--8--%>
                     <asp:BoundField HeaderText="Producto/Servicio" DataField="PS" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left" />
                     <%--9--%>
@@ -413,13 +413,13 @@
                     <%--10--%>
                     <asp:BoundField HeaderText="PU" DataField="PU" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
                     <%--11--%>
-                    <asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N2}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Right" />
                     <%--12--%>
                     <asp:BoundField HeaderText="Desc" DataField="Descuento" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
                     <%--13--%>
                     <asp:BoundField HeaderText="IVA" DataField="IVA" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
                     <%--14--%>
-                    <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:###,###,###,###.##}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-Width="7.5%" ItemStyle-HorizontalAlign="Right" />
                     <%--15--%>
                     <asp:BoundField HeaderText="RFC" DataField="RFC" ItemStyle-Width="5%" Visible="false" />
                     <%--16--%>

Ventas/RepVentaDetalle.aspx

@@ -579,12 +579,18 @@
                             <asp:Literal ID="LtlKm" runat="server" Text='<%# Eval("Kilometraje") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <%-- 39--%>
+                    <%-- 40--%>
                     <asp:TemplateField HeaderText="TC" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="LtlTC" runat="server" Text='<%# Eval("TipoCambio") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                     <%-- 41--%>
+                    <asp:TemplateField HeaderText="Descripción Venta" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlDescripcionVenta" runat="server" Text='<%# Eval("DescripcionVenta") %>'></asp:Literal>
+                        </ItemTemplate>
+                     </asp:TemplateField>
 
                 </Columns>
             </asp:GridView>
@@ -732,6 +738,11 @@
                                         <td style="text-align: left;"> </td>                                   
                                         <td style="text-align: left;"><asp:CheckBox ID="ChkKilometraje" runat="server" Visible="False" Text="&nbsp; Kilometraje" /></td>                           
                                     </tr>
+                                    <tr>
+                                        <td style="text-align: left;"></td>
+                                        <td style="text-align: left;"> </td>                                   
+                                        <td style="text-align: left;"><asp:CheckBox ID="ChkDescripcionVenta" runat="server" Visible="true" Text="&nbsp; Descripción Venta" /></td>                           
+                                    </tr>
  
                                 </tbody>
                             </table> 

Ventas/RepVentaDetalle.aspx.vb

@@ -705,6 +705,8 @@ Partial Class RepVentaDetalle
 
         If ChkTC.Checked Then ListPersonalizada.Add("TC")
 
+        If ChkDescripcionVenta.Checked Then ListPersonalizada.Add("DescripcionVenta")
+
         If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepVentaDetalles.aspx", String.Join("|", ListPersonalizada)) Then
             'Alert("Personalizacion guardada")
         End If
@@ -889,6 +891,9 @@ Partial Class RepVentaDetalle
                     Case "Kilometraje"
                         ChkKilometraje.Checked = True
                         Exit Select
+                    Case "DescripcionVenta"
+                        ChkDescripcionVenta.Checked = True
+                        Exit Select
                     Case Else
                         Exit Select
                 End Select
@@ -947,6 +952,8 @@ Partial Class RepVentaDetalle
         GvDatos.Columns(38).Visible = ChkUsoCFDI.Checked
         GvDatos.Columns(39).Visible = ChkKilometraje.Checked
         GvDatos.Columns(40).Visible = ChkTC.Checked
+        GvDatos.Columns(41).Visible = ChkDescripcionVenta.Checked
+
 
         Personalizo = 1
         If Personalizo = 1 Then

Ventas/RepVentas.aspx

@@ -366,13 +366,13 @@
                         </ItemTemplate>
                     </asp:TemplateField>
                     <%--2--%>
-                    <asp:BoundField HeaderText="Sub Total" DataField="SubTotal" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Sub Total" DataField="SubTotal" ItemStyle-Width="7.5%" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <%--3--%>
                     <asp:BoundField HeaderText="Descuento" DataField="Descuento" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <%--4--%>
                     <asp:BoundField HeaderText="Amortización" DataField="Amortizacion" Visible="false" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <%--5--%>
-                    <asp:BoundField HeaderText="Sub Total 2" DataField="SubTotal2" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Sub Total 2" DataField="SubTotal2" ItemStyle-Width="7.5%" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <%--6--%>
                     <asp:BoundField HeaderText="IVA" DataField="IVA" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <%--7--%>
@@ -384,7 +384,7 @@
                     <%--10--%>
                     <asp:BoundField HeaderText="Imp. Locales" DataField="TotalImpuestos" ItemStyle-Width="10%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <%--11--%>
-                    <asp:BoundField HeaderText="Total" DataField="Total" ItemStyle-Width="10%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Total" DataField="Total" ItemStyle-Width="10%" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <%--12--%>
                     <asp:BoundField HeaderText="Sub. Máximo" DataField="MAX_SubTotal" ItemStyle-Width="5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <%--13--%>

Ventas/RepVentas.aspx.vb

@@ -390,7 +390,7 @@ Partial Class Ventas_RepVentas
                 CveMoneda = e.Row.DBCampo("CveMoneda").ToString.ToEntero
             End If
 
-            Dim CveSubProyecto = "-1", CveProyecto = "-1"
+            Dim CveSubProyecto As String = "-1", CveProyecto As String = "-1"
             If DdlGrupo.SelectedValue.ToEntero = 19 Then
                 CveSubProyecto = e.Row.DBCampo("CveCentroCosto")
                 CveProyecto = e.Row.DBCampo("CveCentroCostoProyecto")
@@ -411,7 +411,7 @@ Partial Class Ventas_RepVentas
                         If e.Row.DBCampo("Mes").ToEntero() > 0 Then
                             Dim Anio As Integer = FechaFRef.Year
                             Dim Mes As Integer = e.Row.DBCampo("Mes").ToEntero()
-                            Dim lastDayOfMonth = DateTime.DaysInMonth(Anio, Mes)
+                            Dim lastDayOfMonth As Integer = DateTime.DaysInMonth(Anio, Mes)
 
                             Dim Dia As Integer = FechaFRef.Day
 
@@ -423,7 +423,7 @@ Partial Class Ventas_RepVentas
                                 FechaInicial = New DateTime(Anio, Mes, 1).ToString("dd/MM/yyyy")
                             End If
 
-                            Dim FechaFinalRef = New DateTime(Anio, Mes, Dia)
+                            Dim FechaFinalRef As New DateTime(Anio, Mes, Dia)
 
                             'ASIGNAR LA FECHA FINAL DEL GRUPO, SI ES MENOR A LA FECHA DEL FILTRO 
                             If FechaF <> "-1" Then
@@ -435,9 +435,6 @@ Partial Class Ventas_RepVentas
                             Else
                                 FechaFinal = FechaFinalRef.ToString("dd/MM/yyyy")
                             End If
-
-
-
                         End If
 
                     Case 3 ' AÑO/MES
@@ -445,13 +442,13 @@ Partial Class Ventas_RepVentas
                         Dim FechaFRef As DateTime = FechaF.ToDateTime()
 
                         Dim separator As Char = "/".ToCharArray().FirstOrDefault()
-                        Dim AnioMes = e.Row.DBCampo("AnioMes").Split(separator)
+                        Dim AnioMes As String() = e.Row.DBCampo("AnioMes").Split(separator)
 
                         Dim Anio As Integer = AnioMes(0).ToEntero()
                         Dim Mes As Integer = AnioMes(1).ToEntero()
 
                         If Anio > 0 AndAlso Mes > 0 Then
-                            Dim lastDayOfMonth = DateTime.DaysInMonth(Anio, Mes)
+                            Dim lastDayOfMonth As Integer = DateTime.DaysInMonth(Anio, Mes)
 
                             Dim DiaFinal As Integer = FechaFRef.Day
 
@@ -469,8 +466,7 @@ Partial Class Ventas_RepVentas
                                 End If
                             End If
 
-                            Dim FechaFinalRef = New DateTime(Anio, Mes, DiaFinal)
+                            Dim FechaFinalRef As New DateTime(Anio, Mes, DiaFinal)
-
                             'ASIGNAR LA FECHA FINAL DEL GRUPO, SI ES MENOR A LA FECHA DEL FILTRO 
                             If FechaF <> "-1" Then
                                 If FechaFRef < FechaFinalRef Then
@@ -504,7 +500,6 @@ Partial Class Ventas_RepVentas
                 e.Row.Attributes.Add("style", "background:#CCCCCC !important")
             End If
 
-
             If DdlGrupo.SelectedValue.ToEntero = 21 Then
                 If e.Row.DBCampo("GPO").Contains("Total") Then
                     e.Row.CssClass = "Totales"
@@ -517,8 +512,6 @@ Partial Class Ventas_RepVentas
                         e.Row.Cells(6).BackColor = Drawing.Color.Transparent
                     End If
                 End If
-
-
             End If
         End If
     End Sub
@@ -818,9 +811,8 @@ Partial Class Ventas_RepVentas
             If DdlClienteClasificacion.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Clasificación Cliente</b>: {0}", DdlClienteClasificacion.SelectedItem.Text)
             If DdlCondicionesPago.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Condiciones Pago</b>: {0}", DdlCondicionesPago.SelectedItem.Text)
 
-
             Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+            Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
             Dim dt As DataTable = DtVentas '.FiltraParametros("", "Orden") '.FiltraParametros("Total > 0", DistinctColumns:={"GPO", "Cantidad", "SubTotal", "Descuento", "Amortizacion", "IVA", "Total"})
             Dim FechaI, FechaF As String
             FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
@@ -964,7 +956,7 @@ Partial Class Ventas_RepVentas
     End Sub
 
     Private Sub CalcularIntervaloRepHP()
-        Dim PrevMondayDate = DateTime.Today.AddDays(-Weekday(Today.AddDays(-1), Microsoft.VisualBasic.FirstDayOfWeek.Monday))
+        Dim PrevMondayDate As Date = DateTime.Today.AddDays(-Weekday(Today.AddDays(-1), Microsoft.VisualBasic.FirstDayOfWeek.Monday))
         Dim Sunday As DateTime = PrevMondayDate.AddDays(6)
 
         txtFechaIHP.Text = PrevMondayDate.ToString("dd/MM/yyyy")

Ventas/Ventas.aspx

@@ -446,16 +446,14 @@
                                     :</b></td>
                                 <td align="left">
                                     <div class="row align-items-start">
-                                        <div class="col-md-10">
+                                        <div class="col-md-12">
-                                            <asp:DropDownList ID="DdlSucursalCliente" runat="server" AutoPostBack="true" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="SucursalCliente" DataValueField="CveClienteSucursal">
+                                            <asp:DropDownList ID="DdlSucursalCliente" runat="server" Width="100%" AutoPostBack="true" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="SucursalCliente" DataValueField="CveClienteSucursal">
                                             </asp:DropDownList>
                                         </div>                                         
-                                        <div class="col-md-2" style="padding: inherit;">
-                                            <asp:LinkButton ID="LnkAgregarSucursal" Visible="false" runat="server" CssClass="btn btn-primary btn-circle btn-xs" Text="<i class='fa fa-plus' aria-hidden='true'></i>" OnClick="LnkAgregarSucursal_Click"></asp:LinkButton>
-                                        </div>
                                     </div>
                                 </td>
                                 <td align="left">
+                                    <asp:LinkButton ID="LnkAgregarSucursal" Visible="false" runat="server" CssClass="btn btn-primary btn-circle btn-xs" Text="<i class='fa fa-plus' aria-hidden='true'></i>" OnClick="LnkAgregarSucursal_Click"></asp:LinkButton>
                                     <b>
                                         <asp:Label ID="LtlTitleRFCSucursal" runat="server" Text=""></asp:Label></b>
                                 </td>
@@ -584,16 +582,16 @@
                             </tr>
 
                             <tr runat="server" id="TrVentasMedicas2" visible="false">
-                                <td runat="server" id="TdRequiereTecnico1" visible="false">
+                                <td runat="server" id="TdRequiereTecnico1" visible="true">
                                     <b>Requiere Técnico:</b>
                                 </td>
-                                <td runat="server" id="TdRequiereTecnico2" visible="false">
+                                <td runat="server" id="TdRequiereTecnico2" visible="true">
                                     <asp:CheckBox ID="ChkRequiereTecnico" runat="server" CssClass="chksino" OnCheckedChanged="ChkRequiereTecnico_CheckedChanged" AutoPostBack="true" Text="Requiere Técnico:" />
                                 </td>
-                                <td runat="server" id="TdFechaOS1" visible="false">
+                                <td runat="server" id="TdFechaOS1" visible="true">
                                     <b>Fecha de Cirugia:</b>
                                 </td>
-                                <td runat="server" id="TdFechaOS2" visible="false">
+                                <td runat="server" id="TdFechaOS2" visible="true">
                                     <asp:TextBox ID="TxtFechaOS" type="datetime-local" runat="server" CssClass="make-switchsd" CausesValidation="true" Style="width: 130px" ></asp:TextBox>
                                 </td>
                             </tr>
@@ -1978,12 +1976,13 @@
                                                             </div>
                                                             <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>
+                                                                <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>
+                                                                <ajax:ValidatorCalloutExtender ID="VcoRFVFechaEje" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaEje" Width="350px"></ajax:ValidatorCalloutExtender>
                                                             </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>
+                                                            
-                                                            <ajax:ValidatorCalloutExtender ID="VcoRFVFechaEje" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaEje" Width="350px"></ajax:ValidatorCalloutExtender>
                                                             <ajax:ValidatorCalloutExtender ID="VcoCVFechaEje" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaEje" Width="350px"></ajax:ValidatorCalloutExtender>
                                                             &nbsp;
                                                         </td>
@@ -4095,7 +4094,7 @@
                             </tr>
 
 
-                            <tr align="left" id="TrObsMedico1" visible="false" runat="server">
+                            <%--<tr align="left" id="TrObsMedico1" visible="false" runat="server">
                                 <td>Médico:&nbsp;</td>
                             </tr>
                             <tr align="left" id="TrObsMedico2" visible="false" runat="server">
@@ -4116,7 +4115,7 @@
                                         <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
                                     </asp:DropDownList>
                                 </td>
-                            </tr>
+                            </tr>--%>
 
 
                         </table>
@@ -4205,7 +4204,7 @@
                                             <asp:Button ID="BtnEditar" runat="server" Text="Editar" CssClass="btn myventasbutton btn-primary" Visible="false" />
 
                                             <asp:LinkButton ID="BtnAdjuntar" runat="server" Visible="false" Text="<i class='fa-upload fa' style=' color: white;'></i>  Adjuntar" data-toggle="modal" data-target="#ModalAdjuntar" CssClass="btn myventasbutton btn-primary" />
-                                            <asp:LinkButton ID="BtnArchivoAdjunto" runat="server" Visible="false" Text="" Font-Size="14px" />
+                                            <br /><asp:LinkButton ID="BtnArchivoAdjunto" runat="server" Visible="false" Text="" Font-Size="14px" />
                                             <asp:LinkButton ID="BtnEliminarAdjunto" runat="server" Visible="false" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
 
                                         </td>
@@ -8407,13 +8406,13 @@
 
                         <%--Tipo Venta--%>
                         <div class="row" runat="server" visible="True" id="DvModalTipoVentaPasoTipo">
-                            <div class="col-md-4">
+                            <div class="col-md-3">
                             </div>
-                            <div class="col-md-4" style="text-align: left!important">
+                            <div class="col-md-6" style="text-align: left!important">
                                 <asp:RadioButtonList ID="RBLTipoVenta" DataTextField="TipoVenta" RepeatDirection="Vertical" DataValueField="CveTipoVenta" runat="server" AutoPostBack="true" OnSelectedIndexChanged="RBLTipoVenta_SelectedIndexChanged" Style="margin-top: 10px!important">
                                 </asp:RadioButtonList>
                             </div>
-                            <div class="col-md-4">
+                            <div class="col-md-3">
                             </div>
                         </div>
 
@@ -8491,7 +8490,7 @@
                         <div runat="server" visible="False" id="DvModalTipoVentaPasoRequiereOS">
                             <div class="row">
                                 <div class="form-group col-md-6 form-md-line-input input-iconright ">
-                                    <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlMedicoModal">Requiere Técnico:</asp:Label>
+                                    <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="ChkRequiereTecnicoModal">Requiere Técnico:</asp:Label>
                                     <asp:CheckBox ID="ChkRequiereTecnicoModal" CssClass="chksino" runat="server" OnCheckedChanged="ChkRequiereTecnicoModal_CheckedChanged" AutoPostBack="true" Text="Requiere Técnico" />
                                 </div>
                                 <div class="form-group col-md-6 form-md-line-input input-iconright " runat="server" id="DvModalRequiereOSFecha" visible="false">

Ventas/Ventas.aspx.vb

@@ -2282,6 +2282,53 @@ Partial Class Ventas
         End Set
     End Property
 
+
+#Region "VENTA MEDICA"
+
+    Property EsVentaMedica As Boolean
+        Get
+            If ViewState("EsVentaMedica") Is Nothing Then
+                ViewState("EsVentaMedica") = False
+            End If
+
+            Return Boolean.Parse(ViewState("EsVentaMedica").ToString)
+
+        End Get
+        Set(value As Boolean)
+            ViewState("EsVentaMedica") = value
+        End Set
+    End Property
+
+
+    Property SeEstaFActurandoVentaMedica As Boolean
+        Get
+            If ViewState("SeEstaFActurandoVentaMedica") Is Nothing Then
+                ViewState("SeEstaFActurandoVentaMedica") = False
+            End If
+
+            Return Boolean.Parse(ViewState("SeEstaFActurandoVentaMedica").ToString)
+
+        End Get
+        Set(value As Boolean)
+            ViewState("SeEstaFActurandoVentaMedica") = value
+        End Set
+    End Property
+
+
+    Public Property CveTipoVenta As Integer
+        Get
+            If ViewState("CveTipoVenta") Is Nothing Then
+                ViewState("CveTipoVenta") = -1
+            End If
+            Return ViewState("CveTipoVenta").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveTipoVenta") = value
+        End Set
+    End Property
+
+#End Region
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 
         If Not IsPostBack Then
@@ -2678,8 +2725,7 @@ Partial Class Ventas
                 Using ObjVentas As New ClsCGame()
 
                     If ObjVentas.ManifiestoGet(Request("CveManifiesto").ToEntero(), -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, "-1", "-1") Then
-                        'DdlSubProyectoDatos.SelectedValueExist(ObjVentas.DtResultados.Rows(0)("CveSubProyecto").ToString())
+                        DdlSubProyectoDatos.SelectedValueExist(ObjVentas.DtResultados.Rows(0)("CveSubProyecto").ToString())
-                        DdlSubProyectoDatos.SelectedValueExist("12629")
                     End If
 
                     If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveManifiesto").ToEntero()) Then
@@ -2738,7 +2784,12 @@ Partial Class Ventas
                     If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then BtnCrearApartirDe.Visible = False
 
                     If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") Then BtnEditar.Visible = True
-                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem") Then BtnPermisoEditarRemision.Visible = True
+                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped") Then BtnPermisoEditarRemision.Visible = True
+
+                    If DdlTipoComprobante.SelectedValue = "Ped" Then
+                        BtnPermisoEditarRemision.Text = "Editar Pedido"
+                        BtnEditarRemision.Text = "Actualizar Pedido"
+                    End If
 
                     DivFechaAnticipoCliente.Visible = True
                     TxtFechaAnticipoCliente.Text = NowADS().ToShortDateString
@@ -3387,19 +3438,27 @@ Partial Class Ventas
                 End If
             End If
 
-
+            If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
-            If CveVenta <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+                If CveVenta <= 0 Then
-                EsVentaMedica = True
+                    EsVentaMedica = True
-                CargaTiposVenta()
+                    CargaTiposVenta()
-
+                    If CveCliente > 0 Then
-                If CveCliente > 0 Then
+                        SeleccionarClienteSucursal(CveCliente:=CveCliente)
-                    SeleccionarClienteSucursal(CveCliente:=CveCliente)
+                    End If
+                End If
+                If CveVenta >= 0 Then
+                    HLFAgregarOS.Visible = True
+                    HLFAgregarOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveVenta={CveVenta}"
                 End If
-            End If
 
-            If CveVenta >= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+                TxtPrecio.Enabled = False
-                HLFAgregarOS.Visible = True
+                'ocultar la columna de subproyecto
-                HLFAgregarOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveVenta={CveVenta}"
+                GvPS.Columns(ColumnaSubProyecto).Visible = False
+                ThProyecto.Visible = False
+                ThProyecto2.Visible = False
+
+                TxtCantidad.Text = "1"
+                TxtCantidad.Focus()
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
@@ -3418,10 +3477,6 @@ Partial Class Ventas
                 RegistraScript("$('#TxtCantidad').focus();", "A1")
             End If
 
-            If EsVentaMedica Then
-                TxtPrecio.Enabled = False
-            End If
-
         End If
 
     End Sub
@@ -5322,7 +5377,7 @@ Partial Class Ventas
             End If
 
             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")
+                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")
@@ -5811,14 +5866,16 @@ Partial Class Ventas
 
             If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
 
-                If DbRowVenta("CveMedico").ToString.ToEntero > 0 Then
+                CveTipoVenta = If(DbRowVenta("CveTipoVenta").ToString.ToEntero > 0, DbRowVenta("CveTipoVenta").ToString.ToEntero, -1)
-                    TrObsMedico1.Visible = True
-                    TrObsMedico2.Visible = True
-                    TrObsProcedimiento1.Visible = True
-                    TrObsProcedimiento2.Visible = True
 
-                    DdlMedicoObservaciones.SelectedValueExist(DbRowVenta("CveMedico").ToString)
+                If DbRowVenta("CveMedico").ToString.ToEntero > 0 AndAlso CveTipoVenta.Contiene(1, 3, 5) Then
-                    DdlProcedimientoObservaciones.SelectedValueExist(DbRowVenta("CveProcedimiento").ToString)
+                    TrVentasMedicas1.Visible = True
+                    DdlMedico.SelectedValueExist(DbRowVenta("CveMedico").ToString)
+                    DdlProcedimiento.SelectedValueExist(DbRowVenta("CveProcedimiento").ToString)
+
+
+                    DdlMedico.Enabled = False
+                    DdlProcedimiento.Enabled = False
 
                 End If
 
@@ -10120,6 +10177,12 @@ Partial Class Ventas
 
                                 If ObjVentas.Embarque_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveEmbarqueManifiesto").ToEntero()) Then
 
+                                End If
+                            End If
+                            If Request("CveManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveManifiesto")) AndAlso Request("CveManifiesto").ToEntero() > 0 Then
+
+                                If ObjVentas.CGame_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveManifiesto").ToEntero()) Then
+
                                 End If
                             End If
                         Catch ex As Exception
@@ -13179,6 +13242,18 @@ Partial Class Ventas
         Dim DescripcionVenta As String = ""
         If TxtDescripcionVenta.Text <> "" Then DescripcionVenta = TxtDescripcionVenta.Text
 
+
+        Dim CveMedico As Integer = -1
+        Dim CveProcedimiento As Integer = -1
+        Dim CveTipoVentaGuardar As Integer = -1
+
+        If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+            CveMedico = DdlMedico.SelectedValue.ToEntero
+            CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero
+            CveTipoVentaGuardar = If(SeEstaFActurandoVentaMedica, CveTipoVenta, RBLTipoVenta.SelectedValue.ToEntero)
+        End If
+
+
         If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC,
                            factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC,
                            factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento,
@@ -13196,7 +13271,7 @@ Partial Class Ventas
                            Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text,
                            FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado, EsGarantia:=factura.EsGarantia, ServicioDomicilio:=TrServicioDomicilio.Visible,
                            CveLineaAdicional:=DdlLineaAdicional.SelectedValue.ToEntero(), DescripcionVenta:=DescripcionVenta,
-                           CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=RBLTipoVenta.SelectedValue.ToEntero, RequiereOS:=ChkRequiereTecnico.Checked) Then
+                           CveMedico:=CveMedico, CveProcedimiento:=CveProcedimiento, CveTipoVenta:=CveTipoVentaGuardar, RequiereOS:=ChkRequiereTecnico.Checked) Then
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
         Else
             If factura.TipoDocto.Contiene("Dev", "Egs") OrElse DtVentasNC IsNot Nothing OrElse CveEstatusRefacturacion > 0 OrElse CveAnticipoPadre > 0 Then
@@ -13306,13 +13381,16 @@ Partial Class Ventas
                 CargaNCDT(factura.CveVentaPadre, DdlTipoComprobante.SelectedValue, factura.Total, NuevaFactura:=NuevaFactura, ObjVentas:=ObjVentas)
             End If
 
+            Dim EsatusAlmacen As Integer = If(RBLTipoVenta.SelectedValue = "5" AndAlso EsVentaMedica AndAlso DdlTipoComprobante.SelectedValue = "Ped", 1, 0) ', EstatusAlmacen:=EsatusAlmacen
             'Se agregan los PS
             For Each Row As DataRow In TmpDTDetalle.Rows
                 If Not ObjVentas.AddVentaDetalle(ObjVentas.CveVenta, Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDecimal, Row("CveUM").ToString().ToEntero(),
                                                  Row("PU").ToString().ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("ImporteIVA").ToString().ToDecimal, Math.Round((Row("Total").ToString().ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)) * (1 + Row("PorcentajeIVA").ToString().ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)))), 6),
                                                  Row("Obs").ToString(), Row("Descuento").ToString().ToDecimal(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("TipoDescuento").ToString().ToEntero(), Row("CveSubProyecto").ToString().ToEntero(), Row("CvePresupuestoIngreso").ToString().ToEntero(), TiempoEntrega:=Row("TiempoEntrega").ToString(), CveVentaDetallePadre:=Row("CveVentaDetalle").ToString().ToEntero(),
                                                  CveContratoDetalle:=Row("CveContratoDetalle").ToString().ToEntero(), CvePromocionDetalle:=Row("CvePromocionDetalle").ToString().ToEntero(), IEPS:=Row("ImporteIEPS").ToString().ToDecimal, CveMovimientoDetallePedido:=Row("CveMovimientoDetallePedido").ToString().ToEntero(), ImporteRetIVA:=Row("ImporteRetIVA").ToString().ToDecimal, ImporteRetISR:=Row("ImporteRetISR").ToString().ToDecimal,
-                                                 PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDecimal, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDecimal, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString().ToDecimal, CuentaPredial:=Row("CuentaPredial").ToString(), CvePrecioLista:=Row("CvePrecioLista").ToString().ToEntero(), CveActivoFijo:=Row("CveActivoFijo").ToString().ToEntero(), NumTurnos:=Row("NumTurnos").ToString().ToDecimal()) Then
+                                                 PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDecimal, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDecimal,
+                                                 PorcentajeRetISR:=Row("PorcentajeRetISR").ToString().ToDecimal, CuentaPredial:=Row("CuentaPredial").ToString(), CvePrecioLista:=Row("CvePrecioLista").ToString().ToEntero(),
+                                                 CveActivoFijo:=Row("CveActivoFijo").ToString().ToEntero(), NumTurnos:=Row("NumTurnos").ToString().ToDecimal(), EstatusAlmacen:=EsatusAlmacen) Then
                     ErrorList.Add("Ocurrió un error al agregar un Producto o Servicio a la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
                     Exit For
                 Else
@@ -21691,6 +21769,13 @@ Partial Class Ventas
 
         ViewState("CveClienteAnterior") = CveCliente
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveTipoVenta.Contiene(1, 3, 5) Then
+            TrVentasMedicas1.Visible = True
+            DdlMedico.Enabled = True
+            DdlProcedimiento.Enabled = True
+        End If
+
+
         Dim CantidadFacturadaRemision As Decimal = 0
 
         'EN BDH NO DEBE PERMITIR EDITAR EL PU
@@ -21753,6 +21838,7 @@ Partial Class Ventas
         UpPS.Update()
         UpCliente.Update()
         UPObservaciones.Update()
+
     End Sub
     Private Sub BtnEditarRemision_Click(sender As Object, e As EventArgs) Handles BtnEditarRemision.Click
         Dim OcurrioError As Boolean = False
@@ -21764,7 +21850,7 @@ Partial Class Ventas
         Dim ObjCGame As New ClsCGame(ObjVentas.IniciaTransacSQL())
 
         Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero()
-        Dim TipoCambio As Double = TxtTipoCambio.Text.ToDouble
+        Dim TipoCambio As Decimal = TxtTipoCambio.Text.ToDecimal
         EditoRemision = True
         Try
             'CONVERTIR REMISION - TIPO MONEDA  -DOLARES A PESOS
@@ -21840,14 +21926,13 @@ Partial Class Ventas
                 Moneda = 1
             End If
 
-            'Actualizo los parametros de la venta
             If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim,
-                                          UsuarioActual.CveEmpresa, CveVenta, 0, 0,
+                                          UsuarioActual.CveEmpresa, CveVenta,
                                           Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
                                           PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(),
-                                          CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal,
+                                          CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:=DdlTipoComprobante.SelectedValue, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal,
-                                          OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDouble, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(),
+                                          OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(),
-                                          CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible) Then
+                                          CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero) Then
                 OcurrioError = True
             End If
 
@@ -30282,7 +30367,7 @@ Partial Class Ventas
         End If
 
         Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero()
-        Dim TipoCambio As Double = TxtTipoCambio.Text.Trim.ToDecimal
+        Dim TipoCambio As Decimal = TxtTipoCambio.Text.Trim.ToDecimal
         If DdlMoneda.SelectedValue.ToEntero() <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then
             TipoCambio = 1
             Moneda = 1
@@ -30371,17 +30456,20 @@ Partial Class Ventas
 
 
             'ACTUALIZA VENTA
-            If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDouble(), LblDescuentos.Text.ToDouble(), TxtIVA.Text.ToDouble(), TxtIEPS.Text.ToDouble(), TxtTotal.Text.ToDouble(),
+            'ACTUALIZA VENTA
+            If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal(), TxtIVA.Text.ToDecimal(), TxtIEPS.Text.ToDecimal(), TxtTotal.Text.ToDecimal(),
                                   Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim,
-                                  UsuarioActual.CveEmpresa, CveVenta, 0, 0,
+                                  UsuarioActual.CveEmpresa, CveVenta,
                                   Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
                                   PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(),
                                   CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal,
-                                  TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDouble, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero()) Then
+                                  TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero()) Then
                 MensajeError = "Ocurrió un error al actualizar la información de la cotización"
                 OcurrioError = True
             End If
 
+
+
             'ELIMINA DETALLES
             If Not ObjVentas.RemoveVentasDetalle(CveVenta) Then
                 MensajeError = "Ocurrió un error al actualizar las partidas de la cotización"
@@ -32166,6 +32254,8 @@ Partial Class Ventas
     End Function
     Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String)
 
+
+
         If DdlVendedor.SelectedValue.ToEntero() <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso TipoDoctoNuevo = "Ing" Then
             Alert("Debe seleccionar un vendedor.", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -32199,6 +32289,9 @@ Partial Class Ventas
 
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Rem" AndAlso TipoDoctoNuevo = "Ing" Then
+            SeEstaFActurandoVentaMedica = True
+        End If
 
         If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And RBLPago.SelectedValue.ToEntero() = 2 Then
             Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia)
@@ -33642,6 +33735,12 @@ Partial Class Ventas
             DdlUsoCFDI.Enabled = True
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveTipoVenta.Contiene(1, 3, 5) Then
+            TrVentasMedicas1.Visible = True
+            DdlMedico.Enabled = True
+            DdlProcedimiento.Enabled = True
+        End If
+
         If UsuarioActual.TienePermisoProceso(289) Then
             If LblSeTimbro.Text = "No" Then
                 DdlUsoCFDI.Enabled = False
@@ -33660,6 +33759,9 @@ Partial Class Ventas
             UpPS.Update()
         End If
 
+        TxtDescripcionVenta.Enabled = True
+
+        UpCliente.Update()
         UpParametros.Update()
         UPObservaciones.Update()
         UpFacturar.Update()
@@ -33677,8 +33779,12 @@ Partial Class Ventas
         Dim ObjVentas As New ClsVentas()
         ObjVentas.IniciaTransacSQL()
 
+        'DdlMedicoObservaciones.Enabled = True
+        'DdlProcedimientoObservaciones.Enabled = True
+
         If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text,
-                                              TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero) Then
+                                                TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero, DescripcionVenta:=TxtDescripcionVenta.Text.Trim,
+                                                CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero) Then
             TieneError = True
         End If
 
@@ -34999,19 +35105,6 @@ Partial Class Ventas
         End Set
     End Property
 
-    Property EsVentaMedica As Boolean
-        Get
-            If ViewState("EsVentaMedica") Is Nothing Then
-                ViewState("EsVentaMedica") = False
-            End If
-
-            Return Boolean.Parse(ViewState("EsVentaMedica").ToString)
-
-        End Get
-        Set(value As Boolean)
-            ViewState("EsVentaMedica") = value
-        End Set
-    End Property
 
 
 
@@ -35997,7 +36090,7 @@ Partial Class Ventas
 
         RBLTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ")
         RBLTipoVenta.DataBind()
-        RBLTipoVenta.Items.Add(New ListItem("Otros", "5"))
+        RBLTipoVenta.Items.Add(New ListItem("Otros", "99"))
 
         TrVentasMedicas1.Visible = True
         TrVentasMedicas2.Visible = True
@@ -36016,8 +36109,7 @@ Partial Class Ventas
         DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         DdlProcedimientoModal.DataBind()
 
-        DdlProcedimientoObservaciones.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa)
+
-        DdlProcedimientoObservaciones.DataBind()
 
     End Sub
 
@@ -36028,8 +36120,7 @@ Partial Class Ventas
         DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         DdlMedicoModal.DataBind()
 
-        DdlMedicoObservaciones.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa)
+
-        DdlMedicoObservaciones.DataBind()
 
     End Sub
 
@@ -36080,7 +36171,11 @@ Partial Class Ventas
     End Sub
 
     Protected Sub ChkRequiereTecnico_CheckedChanged(sender As Object, e As EventArgs)
-        TdFechaOS2.Visible = ChkRequiereTecnicoModal.Checked
+
+
+        TdFechaOS1.Visible = ChkRequiereTecnico.Checked
+        TdFechaOS2.Visible = ChkRequiereTecnico.Checked
+
         UpCliente.Update()
     End Sub
 
@@ -36107,7 +36202,7 @@ Partial Class Ventas
 
 
             Select Case RBLTipoVenta.SelectedValue
-                Case "1" ' Fuera de linea
+                Case "1", "5" '1 Fuera de linea  ||  5 Consignación - Uso material
                     ChkRequiereTecnicoModal.Checked = True
                     ChkRequiereTecnicoModal.Enabled = True
                     DvModalRequiereOSFecha.Visible = True
@@ -36121,13 +36216,13 @@ Partial Class Ventas
                     DvModalRequiereOSFecha.Visible = False
                     DvModalTipoVentaPasoMedicoProcedimiento.Visible = False
                     DVGvProductosProcedimiento.Visible = False
-                Case "4" 'Consigna
+                Case "4" 'Consignación
                     ChkRequiereTecnicoModal.Checked = False
                     DvModalTipoVentaPasoRequiereOS.Visible = False
                     DvModalRequiereOSFecha.Visible = False
                     DvModalTipoVentaPasoMedicoProcedimiento.Visible = False
                     DVGvProductosProcedimiento.Visible = False
-                Case "5" ' Otros
+                Case "99" ' Otros
                     LnkDvModalTipoVentaAceptar.Visible = False
                     UpDvModalTipoVenta.Update()
                     RegistraScript("$('#DvModalTipoVenta').modal('hide');")
@@ -36230,6 +36325,8 @@ Partial Class Ventas
 
     Protected Sub LnkDvModalTipoVentaAceptar_Click(sender As Object, e As EventArgs)
 
+
+
         If DdlClienteSucursalCliente() > 0 Then
             ViewState("CveCliente") = DdlClienteSucursalCliente()
         Else
@@ -36259,18 +36356,43 @@ Partial Class Ventas
         DdlProcedimiento.SelectedValueExist(DdlProcedimientoModal.SelectedValue)
 
 
-        'si es  pago directo es factura
+        If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es  pago directo es factura
-        If RBLTipoVenta.SelectedValue.Contiene("2") Then
             DdlTipoComprobante.SelectedValueExist("Ing")
-            TdRequiereTecnico1.Visible = True
+
-            TdRequiereTecnico2.Visible = True
+            TrVentasMedicas1.Visible = True
-        Else
+            TrVentasMedicas2.Visible = True
+
             TdFechaOS1.Visible = True
             TdFechaOS2.Visible = True
             ChkRequiereTecnico.Checked = True
             ChkRequiereTecnico.Enabled = False
+
+        ElseIf RBLTipoVenta.SelectedValue.Contiene("3") Then ' A vista
             DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))
             DdlTipoComprobante.SelectedValueExist("Ped")
+            TrVentasMedicas1.Visible = False
+            TrVentasMedicas2.Visible = False
+            ChkRequiereTecnico.Enabled = True
+        ElseIf RBLTipoVenta.SelectedValue.Contiene("4") Then ' consignacion
+            DdlTipoComprobante.SelectedValueExist("Ing")
+            TrVentasMedicas1.Visible = False
+            TrVentasMedicas2.Visible = False
+            ChkRequiereTecnico.Enabled = True
+        Else
+            DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))
+            DdlTipoComprobante.SelectedValueExist("Ped")
+
+            TrVentasMedicas1.Visible = True
+            TrVentasMedicas2.Visible = True
+
+            TdFechaOS1.Visible = True
+            TdFechaOS2.Visible = True
+
+            ChkRequiereTecnico.Enabled = True
+            ChkRequiereTecnico.Checked = ChkRequiereTecnicoModal.Checked
+            TdFechaOS1.Visible = ChkRequiereTecnicoModal.Checked
+            TdFechaOS2.Visible = ChkRequiereTecnicoModal.Checked
+
 
         End If
         DdlTipoComprobante.Enabled = False