FiveTech Software tech support forums

menu oMenu 2007
   endmenu


       SetBalloon( .T. )

    DEFINE FONT oFont1 NAME "Arial" SIZE 0,-30 // BOLD
   
    DEFINE WINDOW oApp:oWnd   from oApp:oTop,oApp:oLeft to oApp:oBottom,oApp:oRight  TITLE "Polizarium Control de Polizas V 1.00 2010" COLOR CLR_WHITE, CLR_BLUE   ;
            MDI MENU oMenu brush oBrush1 STYLE nOr( WS_OVERLAPPED + WS_CAPTION + WS_CLIPCHILDREN )

      MENU oMenu POPUP 2007
      MENUITEM "Datos Clientes"     FILE "ima\16x16\faces.bmp" action DoSimpleList()
      MENUITEM "Polizas pagadas"    FILE "ima\16x16\database.bmp"  action Maind()
      MENUITEM "Polizas canceladas" FILE "ima\16x16\cancelar1.bmp" action pngMainx()
      MENUITEM "Renovaciones"       FILE "ima\16x16\toggle.bmp"    action Renueva()
      MENUITEM "Comisiones"         FILE "ima\16x16\Image1.bmp"
      ENDMENU



     MENU oMenuu POPUP 2007
     MENUITEM "Solicitud"            FILE "ima\16x16\new2.bmp" action DoSimpleList()
     MENUITEM "Poliza"               FILE "ima\16x16\inspect.bmp"  action Maind()
     MENUITEM "Documentos generales" FILE "ima\16x16\template.bmp" //action Mainx()
     ENDMENU


    DEFINE RIBBONBAR oRBar WINDOW oApp:oWnd PROMPT "Principal", "Reportes", "Fondos","Catalogos" ,"Sistema";
         HEIGHT 70 TOPMARGIN 25


        ADD GROUP oGr1  RIBBON oRBar TO OPTION 1 width 500

          @ 02, 05 ADD BUTTON oBtn1 GROUP oGr1 BITMAP "ima\16x16\address_book2.bmp" ;
           SIZE 79,20 PROMPT "Agenda" MOSTLEFT  round ;
       action WinExec("agenda\EssentialPIM.exe")




        @ 02, 80 ADD BUTTON oBtn2 GROUP oGr1 BITMAP "ima\16x16\calc.bmp" ;
           SIZE 82,20 PROMPT "Calculadora" MOSTLEFT  round ;
       action WinExec("Calc.exe")

         @ 02, 165 ADD BUTTON oBtn3 GROUP oGr1 BITMAP "ima\16x16\explorer.bmp" ;
           SIZE 79,20 PROMPT "Internet" MOSTLEFT round ;
       action  VERMAPA3() //explorar()


        @ 02, 245 ADD BUTTON oBtn4 GROUP oGr1 BITMAP "ima\16x16\giar.bmp" ;
           SIZE 79,20 PROMPT "GiaRoji" MOSTLEFT round ;
       action  VERMAPA4()



       @ 02, 323 ADD BUTTON oBtn5 GROUP oGr1 BITMAP "ima\16x16\Google.bmp" ;
           SIZE 79,20 PROMPT "GooleMap" MOSTLEFT round ;
       action VerMapa2()



        @ 02, 400 ADD BUTTON oBtn6 GROUP oGr1 BITMAP "ima\16x16\scan2.bmp" MENU oMenuu;
           SIZE 79,20 PROMPT "Scaner" MOSTLEFT round Popup //;
       //action Maind()



    //----------------------------------------------------------------------------------------- 1
       ADD GROUP oGr1 RIBBON oRBar TO OPTION 1 PROMPT " " width 410

      @ 02, 15 ADD BUTTON oBtn2 GROUP oGr1 BITMAP "ima\16x16\help2.bmp" ;
           SIZE 75,20 PROMPT "Ayuda" MOSTLEFT round  ;
                      action    quiensoy()

       @ 02, 110 ADD BUTTON oBtn3 GROUP oGr1 BITMAP "ima\16x16\exit2.bmp" ;
           SIZE 90,20 PROMPT "Salir" MOSTLEFT round ;
       action(oApp:oWnd:end(),oApp:lExit := .T.)
     //----------------------------------------------------------------------------------------- 2

    ADD GROUP oGr2 RIBBON oRBar TO OPTION 2 PROMPT "Control de Reportes" WIDTH 210

      @ 02, 05  ADD BUTTON oBtn2 GROUP oGr2 BITMAP "ima\16x16\form.bmp" MENU oMenu;
       SIZE 75,20 PROMPT "Autos"  MOSTLEFT round Popup//;
       //action DoSimpleList()//oApp:FrPrn:DesignReport() // MOSTLEFT round

     @ 02, 110 ADD BUTTON oBtn3 GROUP oGr2 BITMAP "ima\16x16\addprg.bmp" ;
       SIZE 75,20 PROMPT "Generador"  MOSTLEFT round;
       action   DesignReport() //oApp:FrPrn:DesignReport()
 // MOSTLEFT round    ,oApp:FrPrn:LoadLangRes("SPANISH.Xml")


*----------------------------------------------


     //-----------------------------------------------------------------------------------------  3

      ADD GROUP oGr3 RIBBON oRBar TO OPTION 3 PROMPT "Primer Cuadro" WIDTH 308

     @ 02, 05 ADD BUTTON oBtn2 GROUP oGr3 BITMAP "ima\16x16\Image2.bmp" ;
           SIZE 75,20 PROMPT "Fondo" MOSTLEFT round ;
       action BckFromImage1( oApp:oBrwX01 )

    @ 02, 80 ADD BUTTON oBtn3 GROUP oGr3 BITMAP "ima\16x16\labels.bmp" ;
           SIZE 75,20 PROMPT "Recortado" MOSTLEFT round ;
       action oApp:oBrwX01:SetBackGround( nil, BCK_TILED )

    @ 02, 155 ADD BUTTON oBtn4 GROUP oGr3 BITMAP "ima\16x16\size.bmp" ;
           SIZE 75,20 PROMPT "Estirar" MOSTLEFT round ;
       action oApp:oBrwX01:SetBackGround( nil, BCK_STRETCH )

    @ 02, 230 ADD BUTTON oBtn5 GROUP oGr3 BITMAP "ima\16x16\image.bmp" ;
           SIZE 75,20 PROMPT "LLenar" MOSTLEFT round ;
       action oApp:oBrwX01:SetBackGround( nil, BCK_FILL )

//----------------------------------------------------------------------------------------- 3

      ADD GROUP oGr3 RIBBON oRBar TO OPTION 3 PROMPT "Segundo Cuadro" WIDTH 308

     @ 02, 05 ADD BUTTON oBtn2 GROUP oGr3 BITMAP "ima\16x16\Image2.bmp" ;
           SIZE 75,20 PROMPT "Fondo" MOSTLEFT round ;
       action BckFromImage2( oApp:oBrwX2 )

    @ 02, 80 ADD BUTTON oBtn3 GROUP oGr3 BITMAP "ima\16x16\labels.bmp" ;
           SIZE 75,20 PROMPT "Recortado" MOSTLEFT round ;
       action oApp:oBrwX2:SetBackGround( nil, BCK_TILED )

    @ 02, 155 ADD BUTTON oBtn4 GROUP oGr3 BITMAP "ima\16x16\size.bmp" ;
           SIZE 75,20 PROMPT "Estirar" MOSTLEFT round ;
       action oApp:oBrwX2:SetBackGround( nil, BCK_STRETCH )

    @ 02, 230 ADD BUTTON oBtn5 GROUP oGr3 BITMAP "ima\16x16\image.bmp" ;
           SIZE 75,20 PROMPT "LLenar" MOSTLEFT round ;
       action oApp:oBrwX2:SetBackGround( nil, BCK_FILL )

//----------------------------------------------------------------------------------------4
      ADD GROUP oGr4 RIBBON oRBar TO OPTION 4 PROMPT "Registro de Clientes, Agentes, Compañias, Marcas" WIDTH 350

     @ 02, 05 ADD BUTTON oBtn2 GROUP oGr4 BITMAP "ima\16x16\id_card.bmp" ;
           SIZE 75,20 PROMPT "Clientes" MOSTLEFT round ;
       action alta_agentes()


     @ 02, 80 ADD BUTTON oBtn2 GROUP oGr4 BITMAP "ima\16x16\id_card2.bmp" ;
           SIZE 75,20 PROMPT "Agentes" MOSTLEFT round ;
       action alta_agentes()

    @ 02, 160 ADD BUTTON oBtn3 GROUP oGr4 BITMAP "ima\16x16\home-a.bmp" ;
           SIZE 75,20 PROMPT "Compañias" MOSTLEFT round ;
       action alta_conpania()

    @ 02, 240 ADD BUTTON oBtn4 GROUP oGr4 BITMAP "ima\16x16\cars.bmp"  ;
          SIZE 75,20 PROMPT "Marcas" MOSTLEFT round ;
      action alta_Marcas()

//----------------------------------------------------------------------------------------5



      ADD GROUP oGr5 RIBBON oRBar TO OPTION 5 PROMPT "Audio" WIDTH 155

         @ 02, 05 ADD BUTTON oBtn2 GROUP oGr5 BITMAP "ima\16x16\btn_Mute_H.bmp" ;
           SIZE 75,20 PROMPT "Activar" MOSTLEFT round ;
         action apagarvoces(eStados:="si",eStados)



         @ 02, 80 ADD BUTTON oBtn3 GROUP oGr5 BITMAP "ima\16x16\btn_Mute_H_S.bmp" ;
           SIZE 75,20 PROMPT "Silenciar" MOSTLEFT round ;
         action apagarvoces(eStados:="no",eStados)



   DEFINE OUTLOOK2003 oOutLook2003 OF oApp:oWnd ;
      PROMPTS "Autos", "Daños", "Vida", "Gastos Medicos", "Accidentes" ;
      BITMAPS  "ima\auto.bmp", "ima\btn3.bmp","ima\vidal.bmp","ima\medical_bag.bmp", "ima\gmm.bmp"





   oApp:oWnd:oLeft = nil // Because the splitter is going to control the resize



    @ 0, 0 EXPLORERBAR oExBar OF oOutLook2003:aDialogs[ 1 ] ;
    SIZE oOutLook2003:aDialogs[ 1 ]:nWidth, oOutLook2003:aDialogs[ 1 ]:nHeight


      oPanel = oExBar:AddPanel("ALTAS AUTOS", "HEADER1"  )
      oPanel:lSpecial = .T.
      oPanel:AddLink("Alta solicitud",            {|| ALTA_A() }     ,"ima\16x16\new2.bmp")
      oPanel:AddLink("Alta de Folio Solicitud",{|| BUSCASOL1()}   ,"ima\16x16\mget.bmp")
      oPanel:AddLink("Alta poliza",               {|| BUSCAPOL1()}   ,"ima\16x16\inspect.bmp")
      oPanel:AddLink("Modificaciones",         {|| MODIFICAPOLIZA() }      ,"ima\16x16\source.bmp")
      oPanel:AddLink("Pagos",                    {|| pagos() }      ,"ima\16x16\Image1.bmp")

      oPanel = oExBar:AddPanel("BAJAS AUTOS" )
      oPanel:AddLink("Cancelaciones"          ,{||CACELA()}        ,"ima\16x16\stop.bmp")
      oPanel:AddLink("Rehabilitaciónes"       ,{||EXCACELA()}      ,"ima\16x16\favorite.bmp")
      oPanel:AddLink("Baja Total Poliza"      ,{||BUSCABORRAS()}   ,"ima\16x16\delete.bmp")
      oPanel:AddLink("Baja Total Solicitud"   ,{||BUSCABORRASF()}  ,"ima\16x16\delete.bmp")      

      oPanel = oExBar:AddPanel("CONSULTAS" )
      oPanel:AddLink("No. de poliza",{|| BUSCAPOLIZA1()},"ima\16x16\find3.bmp")
      oPanel:AddLink("Nombre",{||  ShowPopup()},"ima\16x16\find3.bmp")

   




   SetParent( oOutLook2003:hWnd, oApp:oWnd:hWnd )

   oApp:oWnd:oClient = nil


       @  00,00 SPLITTER oSplit ;
      VERTICAL _3DLOOK ;
      PREVIOUS CONTROLS oOutLook2003 ;
      HINDS CONTROLS oApp:oWnd:oWndClient ;
      SIZE 4, oApp:oWnd:nHeight - 70 PIXEL ;
      OF oApp:oWnd  COLOR nRgb(26,26,112)
            oSplit:lStatic:=.T.

         SetParent( oSplit:hWnd, oApp:oWnd:hWnd )