-

Transportes/RepContratos.aspx.vb

@@ -1,6 +1,7 @@
 Option Explicit On
 Option Strict On
 Imports System.Data
+Imports System.IO
 Imports Extensiones
 Imports Extensiones.ModExtensiones
 Imports Microsoft.Reporting.WebForms
@@ -18,6 +19,8 @@ Partial Class ListadoContratos
         End Set
     End Property
 #End Region
+
+#Region "Carga Página"
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         txtFechaI.Text = DateTime.Now.AddMonths(-1).ToShortDateString
         txtFechaF.Text = DateTime.Now.AddDays(7).ToShortDateString
@@ -71,6 +74,8 @@ Partial Class ListadoContratos
         UpTitulos.Update()
 
     End Sub
+#End Region
+
     Protected Sub MostrarModal()
         RegistraScript(String.Format("$('#{0}').modal('show');", "ModalAgregar"))
     End Sub
@@ -84,6 +89,15 @@ Partial Class ListadoContratos
             Exit Sub
         End If
 
+        '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
+            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
@@ -91,15 +105,6 @@ Partial Class ListadoContratos
             ObjFolios.Dispose()
         End If
 
-        '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, "", "", -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()
-
         'Reiniciamos modal
         TxtDescripcion.Text = ""
         TxtFechaSalida.Text = ""
@@ -112,10 +117,11 @@ Partial Class ListadoContratos
         TxtPesos.Text = ""
         TxtAnticipo.Text = ""
         TxtCantidadPasajeros.Text = ""
+        LbArchivo.Text = ""
 
         UpModal.Update()
         CargaDatos()
-
+        RegistraScript("$('#ModalAgregar').modal('hide')", "hidemodal1")
     End Sub
     Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
         GvContratos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString)
@@ -153,4 +159,35 @@ Partial Class ListadoContratos
         GvContratos.Columns(8).Visible = ChkUnidad.Checked
         UpTitulos.Update()
     End Sub
+    Protected Sub GuardarArchivo(sender As Object, e As EventArgs)
+        Dim FileExtension As String = "-1"
+        Dim Filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
+        Dim Filename As String = ""
+        Dim folderContratosPath As String = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos")
+
+        If Not Directory.Exists(folderContratosPath) Then
+            Directory.CreateDirectory(folderContratosPath)
+        End If
+
+        If Not Directory.Exists(Path.Combine(folderContratosPath, "Temp")) Then
+            Directory.CreateDirectory(Path.Combine(folderContratosPath, "Temp"))
+        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
+            tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
+
+
+            ViewState("extencion") = FileExtension
+            ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos", "Temp", fileItem.filename)
+
+            File.Move(fileItem.FileUrl, ViewState("FUrl").ToString)
+            LbArchivo.Text = fileItem.filenameO
+        Next
+
+        UpModal.Update()
+        RegistraScript("$('#ModalUpload').modal('hide')", "hidemodal1")
+    End Sub
 End Class