Vya - Nuevas observaciones 2024.07.19

Transportes/RepContratos.aspx.vb

@@ -51,6 +51,11 @@ Partial Class ListadoContratos
         DdlEstatus.DataBind()
         DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
 
+        CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoModal)
+
+        DdlSubProyectoModal.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectoModal.DataBind()
+        DdlSubProyectoModal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
     End Sub
     Private Sub CargaDatos()
         Dim ObjContratos As New ClsContratos
@@ -91,27 +96,102 @@ Partial Class ListadoContratos
     End Sub
     Protected Sub AddContrato(sender As Object, e As EventArgs)
 
+        Dim ErrorProceso As Boolean = False
+        Dim CveContrato As Integer = -1
+
+        Dim FileExtension As String = "-1"
+        Dim Filesgral As List(Of Extensiones.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 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
+        '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.ToDateTime, TxtFechaRegreso.Text.ToDateTime, TxtUbicacion.Text, "", CveSubProyecto, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text, CveVendedor:=UsuarioActual.CveVendedor) > 0 Then
-            ObjContratos.Commit()
-            Alert("Agregado Correctamente.")
+
+        CveContrato = ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDateTime, TxtFechaRegreso.Text.ToDateTime, TxtUbicacion.Text, "",
+                                     DdlSubProyectoModal.SelectedValue.ToEntero, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal,
+                                     DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text,
+                                     CveVendedor:=UsuarioActual.CveVendedor)
+
+        If CveContrato > 0 Then
+
+            If Filesgral.Count > 0 Then
+
+                For Each fileItem As Archivo In Filesgral
+
+                    FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
+                    Dim tempArray() As String
+                    tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
+                    Dim fDestino = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos", $"{CveContrato.ToString}.{ FileExtension}")
+
+                    Try
+                        If File.Exists(fDestino) Then
+                            File.Delete(fDestino)
+                        End If
+
+                        File.Move(fileItem.FileUrl, fDestino)
+
+                        If Not File.Exists(fDestino) Then
+                            ErrorProceso = True
+                        End If
+
+                        If ObjContratos.UpdateContratoArchivo(CveContrato, $"{CveContrato.ToString}.{ FileExtension}", UsuarioActual.CveEmpresa) Then
+                            ErrorProceso = False
+                        End If
+
+                    Catch ex As Exception
+                        ErrorProceso = True
+                    End Try
+
+
+                    Exit For
+                Next
+
+            Else
+                ErrorProceso = False
+            End If
+            Anexo.Text = ""
+
+        Else
+            ErrorProceso = True
         End If
-        ObjContratos.Dispose()
+
 
         'Aumentamos Folio
-        Dim ObjFolios As New ClsGralFolios
-        If ObjFolios.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then
-            ObjFolios.Dispose()
+        Dim ObjFolios As New ClsGralFolios(ObjContratos.IniciaTransacSQL())
+        If Not ObjFolios.UpdateFolioActual(DdlSubProyectoModal.SelectedValue.ToEntero, "Con", True, UsuarioActual.CveEmpresa) Then
+            ErrorProceso = True
         End If
 
+
+        If Not ErrorProceso Then
+            ObjContratos.Commit()
+            Alert("Agregado Correctamente.")
+        Else
+            ObjContratos.RollBack()
+            Alert("Se presento un error al guardar el contrato.", TipoMensaje.MsgAdvertencia)
+        End If
+
+        ObjContratos.Dispose()
+
+        ResetModal()
+
+        CargaDatos()
+        RegistraScript("$('#ModalAgregar').modal('hide')", "hidemodal1")
+    End Sub
+
+    Protected Sub ResetModal()
         'Reiniciamos modal
         TxtDescripcion.Text = ""
         TxtFechaSalida.Text = ""
@@ -119,6 +199,7 @@ Partial Class ListadoContratos
         TxtObservaciones.Text = ""
         TxtUbicacion.Text = ""
         DdlClientes.SelectedText = ""
+        DdlSubProyectoModal.SelectedValueExist(-1)
         DdlTipoAF.SelectedValueExist(-1)
         TxtImporte.Text = ""
         TxtAnticipo.Text = ""
@@ -126,8 +207,6 @@ Partial Class ListadoContratos
         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)