Exel anexos horizontales, AF

AF/OrdenTrabajo.aspx.vb

@@ -36,6 +36,7 @@ Partial Class AF_OrdenTrabajo
 
             If Request("CveOrdenTrabajo") IsNot Nothing Then
                 CveOrdenTrabajo = Request("CveOrdenTrabajo").ToEntero
+                Tab.Visible = True
             End If
 
             CargaCombos()
@@ -50,6 +51,15 @@ Partial Class AF_OrdenTrabajo
 #Region "  CARGA COMBOS  "
     Protected Sub CargaCombos()
 
+
+
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+
+        DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa, -1)
+        DdlAF.DataBind()
+
+
+
         Dim ObjAF As New ClsAF
 
         If ObjAF.GetTiposServicios(-1, -1, -1, UsuarioActual.CveEmpresa) Then
@@ -58,10 +68,21 @@ Partial Class AF_OrdenTrabajo
             DdlTipoServicio.DataSource = Nothing
         End If
 
+
+        If ObjAF.GetOrdenesTrabajoEstatus(UsuarioActual.CveEmpresa) Then
+            DdlOrdenesTrabajoEstatus.DataSource = ObjAF.DtResultados
+        Else
+            DdlOrdenesTrabajoEstatus.DataSource = Nothing
+        End If
+
+
         ObjAF.Dispose()
 
         DdlTipoServicio.DataBind()
+        DdlOrdenesTrabajoEstatus.DataBind()
+
         DdlTipoServicio.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        DdlOrdenesTrabajoEstatus.SelectedValueExist(1)
 
         UpFiltro.Update()
 
@@ -95,16 +116,6 @@ Partial Class AF_OrdenTrabajo
 
 
 
-    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
-
-        If e.Row.RowType = DataControlRowType.DataRow Then
-
-
-
-        End If
-
-    End Sub
-
 #End Region
 
     Protected Sub LnkEliminarMetricaValor_Click(sender As Object, e As EventArgs)
@@ -114,6 +125,34 @@ Partial Class AF_OrdenTrabajo
 
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
 
+        If CveOrdenTrabajo <= 0 Then
+
+
+            Dim ObjAF As New ClsAF
+            ObjAF.IniciaTransacSQL()
+            Dim ErrorProceso As Boolean = False
+
+            If Not ObjAF.AddOrdenesTrabajo(DdlTipoServicio.SelectedValue.ToEntero, DdlAF.SelectedValue.ToEntero, TxtServicio.Text.Trim, DdlSubProyecto.SelectedValue.ToEntero, DdlPrioridad.SelectedValue.ToEntero, txtFechaI.Text.ToDate, MaxFecha, MaxFecha, DdlOrdenesTrabajoEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+                ErrorProceso = True
+
+
+            End If
+
+            If Not ErrorProceso Then
+                ObjAF.Commit()
+                Alert($"Orden de trabajo guardada corectamente  <a href='./OrdenTrabajo.aspx?CveOrdenTrabajo={ObjAF.CveOrdenTrabajo}' class='Texto'> Folio {ObjAF.FolioOT}</a>")
+            Else
+                ObjAF.RollBack()
+            End If
+
+
+
+            ObjAF.Dispose()
+
+
+        Else
+
+        End If
 
 
 
@@ -282,4 +321,55 @@ Partial Class AF_OrdenTrabajo
 
 
 
+#Region "FOLIOS"
+
+
+    Private Function CargaFolios() As Boolean
+
+        Dim Respuesta As Boolean = False
+
+        If DdlSubProyecto.SelectedValue.ToEntero() <= 0 Then
+            Alert("No se tienen asignadas sucursales", TipoMensaje.MsgError)
+            Return False
+            Exit Function
+        End If
+
+        Dim ObjFolios As New ClsGralFolios()
+
+        If ObjFolios.GetFolios("OT", UsuarioActual.CveEmpresa) Then
+
+            Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format("  CveSubProyecto = {0}  And Estado = 'Activo'", DdlSubProyecto.SelectedValue))
+
+            If DT.Rows.Count > 0 Then
+                Respuesta = True
+            Else
+
+                Alert("No tiene registrados Folios para " & DdlSubProyecto.SelectedItem.Text & " ", TipoMensaje.MsgAdvertencia)
+            End If
+
+            DT.Dispose()
+
+        End If
+
+        ObjFolios.Dispose()
+
+
+        Return Respuesta
+    End Function
+
+#End Region
+
+
+    Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+        If CargaFolios() Then
+            BtnGuardar.Enabled = True
+        Else
+            BtnGuardar.Enabled = False
+        End If
+
+        UpGuardar.Update()
+
+
+    End Sub
 End Class