--Se eliminó la parte para agregar viajes y se cambió todo a contratos.

Transportes/RepViajes.aspx.vb

@@ -1,17 +1,18 @@
 Option Explicit On
 Option Strict On
+Imports System.Data
 Imports Extensiones.ModExtensiones
 
 Partial Class ListadoViajes
     Inherits ClsPaginas
 
 #Region "Propiedades"
-    Private Property CveViaje As String
+    Private Property CveContrato As String
         Get
-            Return ViewState("CveViaje").ToString()
+            Return ViewState("CveContrato").ToString()
         End Get
         Set(value As String)
-            ViewState("CveViaje") = value
+            ViewState("CveContrato") = value
         End Set
     End Property
     Private Property Ruta As String
@@ -43,7 +44,6 @@ Partial Class ListadoViajes
             End If
         End If
         'Lista Destinos'
-
         If ObjRutas.GetDestinos() Then
 
             If ObjRutas.DtResultados.Rows.Count > 0 Then
@@ -59,24 +59,25 @@ Partial Class ListadoViajes
         ObjRutas.Dispose()
 
     End Sub
-    Private Sub GvViajes_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvViajes.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
-            If e.Row.DBCampo("CveMasivo") <> "" Then
-                e.Row.FCLabel("LtlMasivo").Text = "Sí"
-                e.Row.FCLabel("LtlMasivo").ForeColor = Drawing.Color.Green
+    Private Sub CargaDatos()
+        'Carga Viajes
+        Dim ObjContratos As New ClsContratos
+
+        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, TipoContrato:=35) Then
+            GvContratos.DataSource = ObjContratos.DtResultados
+            GvContratos.DataBind()
+        End If
+
+        'Generar Folio
+        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
+        Dim ObjFolio As New ClsGralFolios
+        If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto) Then
+            If ObjFolio.DtResultados.Rows.Count > 0 Then
+                Dim drr As DataRow = ObjFolio.DtResultados.FiltroPrimero("")
+                LbFolio.Text = $"{drr("Serie").ToString}-{drr("FActual").ToString}"
             End If
         End If
     End Sub
-    Private Sub CargaDatos()
-        Dim ObjTransportes As New ClsTransportes
-
-        If ObjTransportes.GetViajes(-1, UsuarioActual.CveEmpresa) Then
-            GvViajes.DataSource = ObjTransportes.DtResultados
-            ObjTransportes.Dispose()
-            GvViajes.DataBind()
-        End If
-
-    End Sub
 
     Private Sub LBAgregarViaje_Click(sender As Object, e As EventArgs) Handles LBAgregarViaje.Click
         MostrarModal()
@@ -95,10 +96,7 @@ Partial Class ListadoViajes
     End Sub
 
     Protected Sub AddViaje(sender As Object, e As EventArgs)
-        Dim ObjTransportes As New ClsTransportes
-
-        ObjTransportes.IniciaTransacSQL()
-
+        'Generador de Viajes Masivos
         If IsMasivo.Checked = True Then
             If TxtFechaInicial.Text = "" Or TxtFrecuencia.Text = "" Then
                 Alert("Es necesario agregar la fecha inicial y la frecuencia", TipoMensaje.MsgAdvertencia)
@@ -106,65 +104,88 @@ Partial Class ListadoViajes
             End If
 
             Dim CveMasivo As Integer = DateTimeOffset.Now.ToUnixTimeSeconds().ToEntero
-
-            Dim fechaInicial As DateTime = DateTime.Parse(TxtFechaInicial.Text)
-            Dim frecuencia As Integer = Integer.Parse(TxtFrecuencia.Text)
+            Dim fechaInicial As DateTime = TxtFechaInicial.Text.ToDate
             Dim fechasGeneradas As New List(Of DateTime)()
+
             While fechaInicial.Year = DateTime.Now.Year
                 fechasGeneradas.Add(fechaInicial)
-                fechaInicial = fechaInicial.AddDays(frecuencia)
+                fechaInicial = fechaInicial.AddDays(TxtFrecuencia.Text.ToEntero)
             End While
-
-            For Each fecha As DateTime In fechasGeneradas
-                Try
-                    Dim CveContratoHijo As Integer = -1
-                    CveContratoHijo = ObjTransportes.AddViajes(DdlRutas.Text.ToEntero, -1, -1, UsuarioActual.CveEmpresa, fecha, DdlPartida.Text.ToEntero, DdlDestino.Text.ToEntero, IsMasivo:=True, CveMasivo:=CveMasivo)
-
-                    If CveContratoHijo > 0 Then
-                        ObjTransportes.Commit()
-                    End If
-                Catch ex As Exception
-                    Alert($"Ocurrió un error {ex}", TipoMensaje.MsgError)
-                End Try
-            Next
-
-            DdlRutas.Text = ""
-
-            TxtFechaViaje.Text = ""
-            DdlPartida.Text = ""
-            DdlDestino.SelectedValue = ""
-            ObjTransportes.Dispose()
-            CargaDatos()
-            Alert("El viaje masivo se registró correctamente.", TipoMensaje.MsgInformacion)
-        Else
             Try
-                If BtnGuardar.Text = "Guardar" Then
-                    Dim CveContratoHijo As Integer = -1
-                    CveContratoHijo = ObjTransportes.AddViajes(DdlRutas.Text.ToEntero, -1, -1, UsuarioActual.CveEmpresa, TxtFechaViaje.Text.ToDate, DdlPartida.Text.ToEntero, DdlDestino.Text.ToEntero)
+                For Each fecha As DateTime In fechasGeneradas
+                    Dim ObjFolio As New ClsGralFolios
+                    Dim ObjContratos As New ClsContratos
 
-                    If CveContratoHijo > 0 Then
-                        ObjTransportes.Commit()
-                        Alert("El Viaje se registró Correctamente.", TipoMensaje.MsgInformacion)
-                        DdlRutas.Text = ""
-                        TxtFechaViaje.Text = ""
-                        DdlPartida.Text = ""
-                        DdlDestino.SelectedValue = ""
+                    'Generamos folio
+                    Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
+                    If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto) Then
+                        If ObjFolio.DtResultados.Rows.Count > 0 Then
+                            Dim drr As DataRow = ObjFolio.DtResultados.FiltroPrimero("")
+                            LbFolio.Text = $"{drr("Serie").ToString}-{drr("FActual").ToString}"
+                        End If
+                    End If
+                    'Agregamos contrato
+                    ObjContratos.IniciaTransacSQL()
+                    If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, fecha, fecha, "", "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CveRuta:=DdlRutas.Text.ToEntero, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero, CveMasivo:=CveMasivo) > 0 Then
+                        ObjContratos.Commit()
+                    End If
+                    'Actualizamos Folio
+                    If ObjFolio.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then
+                        ObjFolio.Dispose()
+                    End If
+                Next
+                Alert("Viajes Masivos generados correctamente.")
+            Catch ex As Exception
+                Dim ObjContratos As New ClsContratos
+                ObjContratos.RollBack()
+                Alert("Ocurrió un error al generar viajes masivo", TipoMensaje.MsgError)
+            Finally
+                DdlRutas.Text = ""
+                TxtFechaViaje.Text = ""
+                DdlPartida.Text = ""
+                DdlDestino.SelectedValue = ""
+
+                Dim ObjContratos As New ClsContratos
+                ObjContratos.Dispose()
+                CargaDatos()
+            End Try
+        Else
+            Dim ObjContratos As New ClsContratos
+            ObjContratos.IniciaTransacSQL()
+
+            Try
+                'Agregamos Viaje
+                If BtnGuardar.Text = "Agregar" Then
+                    If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaViaje.Text.ToDate, TxtFechaViaje.Text.ToDate, "", "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CveRuta:=DdlRutas.Text.ToEntero, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) > 0 Then
+                        ObjContratos.Commit()
+                        Alert("Viaje agregado correctamente.")
                     End If
                 Else
-
-                    If ObjTransportes.UpdateViajes(CveViaje.ToEntero, DdlRutas.Text.ToEntero, -1, -1, UsuarioActual.CveEmpresa, TxtFechaViaje.Text.ToDate, DdlPartida.Text.ToEntero, DdlDestino.Text.ToEntero) = True Then
-                        Alert("El viaje se modificó correctamente.", TipoMensaje.MsgInformacion)
-                        ObjTransportes.Commit()
-                        CargaDatos()
+                    'Actualizamos Viaje
+                    If ObjContratos.UpdateContratos(CveContrato.ToEntero, LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaInicial.Text.ToDate, TxtFechaInicial.Text.ToDate, "", "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CveRuta:=DdlRutas.Text.ToEntero, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) = True Then
+                        ObjContratos.Commit()
+                        Alert("El viaje se actualizó correctamente.")
                     End If
                 End If
             Catch ex As Exception
-                ObjTransportes.RollBack()
+                Alert("Ocurrió un error al generar viaje", TipoMensaje.MsgError)
+                ObjContratos.RollBack()
             Finally
+                DdlRutas.Text = ""
+                TxtFechaViaje.Text = ""
+                DdlPartida.Text = ""
+                DdlDestino.SelectedValue = ""
+                Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
+                Dim ObjFolios As New ClsGralFolios
+                If ObjFolios.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then
+                    ObjFolios.Dispose()
+                End If
                 CargaDatos()
-                ObjTransportes.Dispose()
+                ObjContratos.Dispose()
             End Try
         End If
+
+
     End Sub
 
     Protected Sub UpdateViaje(sender As Object, e As EventArgs)
@@ -175,7 +196,7 @@ Partial Class ListadoViajes
         DdlRutas.SelectedValue = GvRow.DataKey("CveRuta")
         DdlDestino.SelectedValue = GvRow.DataKey("CveDestino")
         DdlPartida.SelectedValue = GvRow.DataKey("CvePartida")
-        ViewState("CveViaje") = GvRow.DataKey("CveViaje")
+        ViewState("CveContrato") = GvRow.DataKey("CveContrato")
         ViewState("Ruta") = GvRow.DataKey("Ruta")
         Dim fecha As DateTime
 
@@ -192,31 +213,31 @@ Partial Class ListadoViajes
     End Sub
 
     Protected Sub RemoveViaje(sender As Object, e As EventArgs)
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim CveMasivo As String = GvRow.DataKey("CveMasivo")
+        'Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        'Dim CveMasivo As String = GvRow.DataKey("CveMasivo")
 
-        Dim ObjTransportes As New ClsTransportes
+        'Dim ObjTransportes As New ClsTransportes
 
-        ObjTransportes.IniciaTransacSQL()
-        If CveMasivo = "" Then
-            Try
-                ObjTransportes.RemoveViaje(CveViaje:=GvRow.DataKey("CveViaje").ToEntero)
-                ObjTransportes.Commit()
-            Catch ex As Exception
-                Alert($"Ocurrió un error {ex}", TipoMensaje.MsgError)
-            End Try
-        Else
-            Try
-                ObjTransportes.RemoveViaje(CveMasivo:=CveMasivo.ToEntero)
-                ObjTransportes.Commit()
-            Catch ex As Exception
-                Alert($"Ocurrió un error {ex}", TipoMensaje.MsgError)
+        'ObjTransportes.IniciaTransacSQL()
+        'If CveMasivo = "" Then
+        '    Try
+        '        ObjTransportes.RemoveViaje(CveViaje:=GvRow.DataKey("CveViaje").ToEntero)
+        '        ObjTransportes.Commit()
+        '    Catch ex As Exception
+        '        Alert($"Ocurrió un error {ex}", TipoMensaje.MsgError)
+        '    End Try
+        'Else
+        '    Try
+        '        ObjTransportes.RemoveViaje(CveMasivo:=CveMasivo.ToEntero)
+        '        ObjTransportes.Commit()
+        '    Catch ex As Exception
+        '        Alert($"Ocurrió un error {ex}", TipoMensaje.MsgError)
 
-            End Try
-        End If
-        Alert("Viaje eliminado correctamente")
-        CargaDatos()
-        ObjTransportes.Dispose()
+        '    End Try
+        'End If
+        'Alert("Viaje eliminado correctamente")
+        'CargaDatos()
+        'ObjTransportes.Dispose()
 
     End Sub