-

App_Code/ClsTransportes.vb

@@ -298,23 +298,22 @@ Public Class ClsTransportes
     End Function
     Public Function UpdateViajesPasajeros(CveViajePasajero As Integer, Optional Estatus As Boolean = True, Optional Activar As Boolean = False) As Boolean
 
-        If Activar Then
+        Dim Retorno As Boolean = False
-            Dim Retorno As Boolean = False
             DataAdapter("PA_Trans_ViajesPasajerosUpdate")
-            With SqlAdapter.SelectCommand.Parameters
+        With SqlAdapter.SelectCommand.Parameters
-                .Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero
+            .Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero
-                .Add("@Estatus", SqlDbType.Int).Value = Estatus
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
-            End With
+        End With
 
-            Try
+        Try
-                SqlAdapter.Fill(Data)
+            SqlAdapter.Fill(Data)
-                Retorno = True
+            Retorno = True
-            Catch ex As Exception
+        Catch ex As Exception
-                OnError("Ocurrió un error al actualizar el boleto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            OnError("Ocurrió un error al actualizar el boleto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-            End Try
+        End Try
+
+        Return Retorno
 
-            Return Retorno
-        End If
     End Function
 #End Region
 

App_Code/ClsVentas.vb

@@ -604,13 +604,14 @@ 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) As Boolean
+                                             Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasObservacionesUpdate")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@CveUsoCFDI", SqlDbType.Int).Value = CveUsoCFDI
             .Add("@Observaciones", SqlDbType.NVarChar).Value = Observaciones
             .Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria
             .Add("@CorreoNotificaciones", SqlDbType.NVarChar).Value = CorreoNotificaciones

App_Code/LogicNominas.vb

@@ -20,6 +20,7 @@ Public Class LogicNominas
             sw.Start()
         End If
         hasfiniquito = False
+        CvePAC = 4
         Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual, False, versionTimbre) 'CvePersonal, CvePeriodo,
         If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then
             If Not cfdi.Timbrado Then