--Se quitó imprimir boleto de repboleto por que se movió a repcontratodetalles. Se trabajo en la edición de los datos de usuario al editar el boleto. Se mejoró la estructura de repContratos y se quitaron llamados a modales en VB. Se implementó consulta en repContratos.

Transportes/RepContratos.aspx.vb

@@ -72,34 +72,26 @@ Partial Class ListadoContratos
         End If
 
         UpTitulos.Update()
-
     End Sub
 #End Region
-
-    Protected Sub MostrarModal()
-        RegistraScript(String.Format("$('#{0}').modal('show');", "ModalAgregar"))
-    End Sub
-    Private Sub LBAgregarContrato_Click(sender As Object, e As EventArgs) Handles LBAgregarContrato.Click
-        MostrarModal()
-    End Sub
     Protected Sub AddContrato(sender As Object, e As EventArgs)
 
         If DdlClientes.SelectedValue = "" Then
             Alert("Debe seleccionar al cliente", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
+        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
 
         'Agregamos Contrato
         Dim ObjContratos As New ClsContratos
         ObjContratos.IniciaTransacSQL()
-        If ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text) > 0 Then
+        If ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDateTime, TxtFechaRegreso.Text.ToDateTime, TxtUbicacion.Text, "", CveSubProyecto, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text) > 0 Then
             ObjContratos.Commit()
             Alert("Agregado Correctamente.")
         End If
         ObjContratos.Dispose()
 
         'Aumentamos Folio
-        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()
@@ -149,11 +141,16 @@ Partial Class ListadoContratos
         ObjContratos.Dispose()
     End Sub
     Protected Sub Consultar(sender As Object, e As EventArgs)
+        Dim ObjContratos As New ClsContratos
+
+        If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, CveSubProyecto:=DdlCentroCostos.SelectedValue.ToEntero, CveTipoAF:=DdlTipoUnidad.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero) Then
+            GvContratos.DataSource = ObjContratos.DtResultados
+            GvContratos.DataBind()
+        End If
+        ObjContratos.Dispose()
+
         UpTitulos.Update()
     End Sub
-    Protected Sub ModalPersonalizar(sender As Object, e As EventArgs)
-        RegistraScript("$('#DivPersonalizar').modal('show')")
-    End Sub
     Protected Sub Personalizar(sender As Object, e As EventArgs)
         GvContratos.Columns(6).Visible = ChkChofer.Checked
         GvContratos.Columns(7).Visible = ChkChofer2.Checked
@@ -175,6 +172,7 @@ Partial Class ListadoContratos
         End If
 
         For Each fileItem As Archivo In Filesgral
+
             FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
             Session("FileExtension") = FileExtension
             Dim tempArray() As String
@@ -185,10 +183,14 @@ Partial Class ListadoContratos
             ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos", "Temp", fileItem.filename)
 
             File.Move(fileItem.FileUrl, ViewState("FUrl").ToString)
-            LbArchivo.Text = fileItem.filenameO
+            LbArchivo.Text = tempArray(1)
+
         Next
 
+        UpArchivo.Update()
         UpModal.Update()
+
         RegistraScript("$('#ModalUpload').modal('hide')", "hidemodal1")
+
     End Sub
 End Class