FiveTech Support Forums

                                       NAME                                               DEPTH
========================================================================================  =====
VISUALIZAR                                                                                  0
   ESTABLECER LOS OBJETIVOS Y PROPÓSITOS DEL PROYECTO                                       1
      1. Establecer los objetivos y propósitos del proyecto                                 2
          A. Conformar el equipo de trabajo de la fase visualizar                           3
          B. Planificar fase visualizar                                                     3
          C. Preparar y convocar reunión mesa de trabajo No.1                               3
          D. Establecer productos y volúmenes de producción                                 3
          E. Establecer calidad de los productos                                            3
          F. Establecer alimentación requerida (volumen y calidad)                          3
          G. Premisas consideradas para establecer objetivos y Propósitos del proyecto      3
          H. Establecer requerimientos de prueba/ investigación adicional para verificar    3
          I. Establecer dependencias y relación con otros proyectos del plan                3
   VERIFICAR ALINEACIÓN DEL PROYECTO CON ESTRATEGIA CORPORATIVA                             1
      1. Verificar alineación del proyecto con estrategia corporativa                       2
          A. Conocer lineamientos y requerimientos del portafolio de oportunidades y/o      3
          B. Identificar oportunidades de optimización de infraestructuras                  3
          C. Documentar la identificación de alineación del proyecto con los objetivos      3
   DESARROLLO PRELIMINAR DEL PROYECTO                                                       1
      1. Elaborar alcance preliminar del proyecto:                                          2
          A. Recopilar  informaciOn requerida                                               3
          B. Identificar requerimientos de infraestructura y servicios                      3
          C. Establecer factibilidad técnica del proyecto                                  3
          D. Documentar alcance preliminar del proyecto                                     3
      2. Elaborar de costo Clase V                                                          2
          A. Recopilar información requerida                                                3
          B. Seleccionar metodologìa de estimación                                         3
          C. Elaboración de estimado de Clase V del proyecto, que incluya estimado Clase    3
      3. Elaborar PEP Clase                                                                 2
          A. Describir premisas a c0nsiderar para la programación del proyecto              3
          B. Identificar potenciales riesgos de incumplimiento                              3
          C. Establecer estrategias de ejecución                                            3
          D. Establecer cronograma para el desarrollo de los hitos principales de ejecuc    3
          E. Elaborar PEP Clase V del proyecto                                              3
          F.  Recursos requeridos para ejecutar la fase conceptualizar                      3
          G. Elaborar Plan de ejecución Clase II de la fase conceptualizar                  3
      4. Describir factibilidad del proyecto (técnica y económica)                          2
          A. Describir parámetros de prefactibilidad económica del Paquete que contiene    3
          B. Lista de riesgos mayores/ identificación preliminar de peligros SHA            3
          C. Preparar y convocar reunión mesa de trabajo No.2                               3
          D. Someter DSD1 y solicitar fondos para la fase conceptualizar                    3

Function BuildTree( oTree, aItems, cTreeName )
         LOCAL oItem0, oItem1, oItem2, oItem3, oItem4, oItem5, oItem6, oItem7, oItem8, oItem9
         LOCAL n
         LOCAL nPrevLevel := aItems[1][2]
         Local nImg := 0
         LOCAL nItems := LEN( aItems )
         FOR n := 1 TO nItems
             DO CASE
                CASE aItems[n][2] == 0
                     IF aItems[n][2] < nPrevLevel
                        oItem0 := NIL
                     ENDIF
                     IF oItem0 == NIL
                        oItem0 := oTree:Add( aItems[n][1] )
                     ELSE
                        oItem0:Add( aItems[n][1] ) 
                     ENDIF
                CASE aItems[n][2] == 1
                     IF aItems[n][2] < nPrevLevel
                        oItem1 := NIL
                     ENDIF
                     IF oItem1 == NIL
                        oItem1 := oItem0:Add( aItems[n][1] )
                     ELSE
                        oItem1:Add( aItems[n][1] ) 
                     ENDIF
                CASE aItems[n][2] == 2
                     IF aItems[n][2] < nPrevLevel
                        oItem2 := NIL
                     ENDIF
                     IF oItem2 == NIL
                        oItem2 := oItem1:Add( aItems[n][1] )
                     ELSE
                        oItem2:Add( aItems[n][1] ) 
                     ENDIF
                CASE aItems[n][2] == 3
                     IF aItems[n][2] < nPrevLevel
                        oItem3 := NIL
                     ENDIF
                     IF oItem3 == NIL
                        oItem3 := oItem2:Add( aItems[n][1] )
                     ELSE
                        oItem3:Add( aItems[n][1] ) 
                     ENDIF
                CASE aItems[n][2] == 4
                     IF aItems[n][2] < nPrevLevel
                        oItem4 := NIL
                     ENDIF
                     IF oItem4 == NIL
                        oItem4 := oItem3:Add( aItems[n][1] )
                     ELSE
                        oItem4:Add( aItems[n][1] ) 
                     ENDIF
                CASE aItems[n][2] == 5
                     IF aItems[n][2] < nPrevLevel
                        oItem5 := NIL
                     ENDIF
                     IF oItem5 == NIL
                        oItem5 := oItem4:Add( aItems[n][1] )
                     ELSE
                        oItem5:Add( aItems[n][1] ) 
                     ENDIF
                CASE aItems[n][2] == 6
                     IF aItems[n][2] < nPrevLevel
                        oItem6 := NIL
                     ENDIF
                     IF oItem6 == NIL
                        oItem6 := oItem5:Add( aItems[n][1] )
                     ELSE
                        oItem6:Add( aItems[n][1] ) 
                     ENDIF
                CASE aItems[n][2] == 7
                     MsgInfo( STR(n)+CRLF+aItems[n][1] )
                     IF aItems[n][2] < nPrevLevel
                        oItem7 := NIL
                     ENDIF
                     IF oItem7 == NIL
                        oItem7 := oItem6:Add( aItems[n][1] )
                     ELSE
                        oItem7:Add( aItems[n][1] ) 
                     ENDIF
                CASE aItems[n][2] == 8
                     IF aItems[n][2] < nPrevLevel
                        oItem8 := NIL
                     ENDIF
                     IF oItem8 == NIL
                        oItem8 := oItem7:Add( aItems[n][1] )
                     ELSE
                        oItem7:Add( aItems[n][1] ) 
                     ENDIF
                CASE aItems[n][2] == 9
                     IF aItems[n][2] < nPrevLevel
                        oItem9 := NIL
                     ENDIF
                     IF oItem9 == NIL
                        oItem9 := oItem8:Add( aItems[n][1] )
                     ELSE
                        oItem9:Add( aItems[n][1] ) 
                     ENDIF
             ENDCASE
             nPrevLevel := aItems[n][2]
        NEXT n

#include "fivewin.ch"

function main()
    local aData, oWnd, oTree

    aData = {;
{"VISUALIZAR",0},;
{"ESTABLECERLOSOBJETIVOSYPROPÓSITOSDELPROYECTO",1},;
{"1.Establecerlosobjetivosypropósitosdelproyecto",2},;
{"A.Conformarelequipodetrabajodelafasevisualizar",3},;
{"B.Planificarfasevisualizar",3},;
{"C.PrepararyconvocarreuniónmesadetrabajoNo.1",3},;
{"D.Establecerproductosyvolúmenesdeproducción",3},;
{"E.Establecercalidaddelosproductos",3},;
{"F.Estableceralimentaciónrequerida(volumenycalidad)",3},;
{"G.PremisasconsideradasparaestablecerobjetivosyPropósitosdelproyecto",3},;
{"H.Establecerrequerimientosdeprueba/investigaciónadicionalparaverificar",3},;
{"I.Establecerdependenciasyrelaciónconotrosproyectosdelplan",3},;
{"VERIFICARALINEACIÓNDELPROYECTOCONESTRATEGIACORPORATIVA",1},;
{"1.Verificaralineacióndelproyectoconestrategiacorporativa",2},;
{"A.Conocerlineamientosyrequerimientosdelportafoliodeoportunidadesy/o",3},;
{"B.Identificaroportunidadesdeoptimizacióndeinfraestructuras",3},;
{"C.Documentarlaidentificacióndealineacióndelproyectoconlosobjetivos",3},;
{"DESARROLLOPRELIMINARDELPROYECTO",1},;
{"1.Elaboraralcancepreliminardelproyecto:",2},;
{"A.RecopilarinformaciOnrequerida",3},;
{"B.Identificarrequerimientosdeinfraestructurayservicios",3},;
{"C.Establecerfactibilidadtécnicadelproyecto",3},;
{"D.Documentaralcancepreliminardelproyecto",3},;
{"2.ElaborardecostoClaseV",2},;
{"A.Recopilarinformaciónrequerida",3},;
{"B.Seleccionarmetodologìadeestimación",3},;
{"C.ElaboracióndeestimadodeClaseVdelproyecto,queincluyaestimadoClase",3},;
{"3.ElaborarPEPClase",2},;
{"A.Describirpremisasac0nsiderarparalaprogramacióndelproyecto",3},;
{"B.Identificarpotencialesriesgosdeincumplimiento",3},;
{"C.Establecerestrategiasdeejecución",3},;
{"D.Establecercronogramaparaeldesarrollodeloshitosprincipalesdeejecuc",3},;
{"E.ElaborarPEPClaseVdelproyecto",3},;
{"F.Recursosrequeridosparaejecutarlafaseconceptualizar",3},;
{"G.ElaborarPlandeejecuciónClaseIIdelafaseconceptualizar",3},;
{"4.Describirfactibilidaddelproyecto(técnicayeconómica)",2},;
{"A.DescribirparámetrosdeprefactibilidadeconómicadelPaquetequecontiene",3},;
{"B.Listaderiesgosmayores/identificaciónpreliminardepeligrosSHA",3},;
{"C.PrepararyconvocarreuniónmesadetrabajoNo.2",3},;
{"D.SometerDSD1ysolicitarfondosparalafaseconceptualizar",3};
}
    


    define window oWnd
        oTree = TTreeView():New( 0, 0, oWnd,,,,,400,400,,.t.)

        BuildTree(oTree, aData)
    activate window oWnd


return nil

function BuildTree( uObj, aData ) 

   local oItem := uObj
   local oSubItem, item, oParent, i
   
   for each item in aData
      if item[2] > 0
        if item[2] > oSubItem:Cargo["level"]
           oItem = oSubItem
        elseif item[2] == oSubItem:Cargo["level"]
            oItem = oSubItem:oParent
        else
           oParent = oSubItem:oParent
           for i = oSubItem:Cargo["level"] to item[2] + 1 step -1
              oParent = oParent:oParent
           next
           oItem = oParent
        endif
      endif
      oSubItem = oItem:Add(item[1])
      oSubItem:Cargo = { "level" => item[2] }
   next

return nil