CHAT
Search
 
 

Display results as :
 


Rechercher Advanced Search

Latest topics

Con OutLook2003

View previous topic View next topic Go down

Con OutLook2003

Post  AIDA on Tue Jul 06, 2010 2:48 pm

Hola

Aqui esta lo que me pediste farao





Code:


 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

  oExBar := TExplorerBar():New(oOutLook2003:aDialogs[ 1 ])

      bClick := {|| msgbeep() }

      DEFINE TASKPANEL oExBar
          TASKGROUP  "ALTAS AUTOS" BITMAP "ima\auto.bmp" SPECIAL WATERMARK "ima\Image28.bmp"  COLLAPSABLE
            TASKITEM "Alta solicitud"          BITMAP "ima\16x16\new2.bmp"    TOOLTIP "Registre la solicitud del cliente"                        action ALTA_A()
            TASKITEM "Alta de Folio Solicitud" BITMAP "ima\16x16\mget.bmp"    TOOLTIP "Registre el folio de recepcion de la compañia de seguros" action  BUSCASOL1()
            TASKITEM "Alta poliza"            BITMAP "ima\16x16\inspect.bmp"  TOOLTIP "Registre los datos de la poliza"                          action  BUSCAPOL1()
       TASKITEM "Modificaciones"          BITMAP "ima\16x16\source.bmp"  TOOLTIP "Modulo de modificaciones de datos de solicitud"          action  MODIFICAPOLIZA()
       TASKITEM "Pagos"                  BITMAP "ima\16x16\Image1.bmp"  TOOLTIP "Modulo de ingresos a la compañia"                        action  pagos()
        ENDTASKGROUP
            TASKGROUP "BAJAS AUTOS"  BITMAP "ima\auto.bmp" SPECIAL WATERMARK "ima\cancelar.bmp"  COLLAPSABLE
            TASKITEM "Cancelaciones"          BITMAP "ima\16x16\stop.bmp"      action  CACELA()
            TASKITEM "Rehabilitaciónes"        BITMAP "ima\16x16\favorite.bmp"  action  EXCACELA()
            TASKITEM "Baja Total Poliza"      BITMAP "ima\16x16\delete.bmp"    action  BUSCABORRAS()
       TASKITEM "Baja Total Solicitud"    BITMAP "ima\16x16\delete.bmp"    action  BUSCABORRASF()
   ENDTASKGROUP
        TASKGROUP  "CONSULTAS"  BITMAP "ima\16x16\find2.bmp"  SPECIAL WATERMARK "ima\Image15.bmp"  COLLAPSED
            TASKITEM "No. de poliza"          BITMAP "ima\16x16\find3.bmp"    action  BUSCAPOLIZA1()
            TASKITEM "Nombre"                  BITMAP "ima\16x16\find3.bmp"    action    Lista_clientes() //ShowPopup()
        ENDTASKGROUP
                   oExBar:lAnimate := !oExBar:lAnimate
      
      ENDTASKPANEL

      
       oExBar:AnchorLeft()
       oExBar:AnchorRight()

Saluditos lol!
avatar
AIDA

Posts : 1
Reputation : 0
Join date : 2010-07-06

View user profile

Back to top Go down

Re: Con OutLook2003

Post  Francis Barrimbhal on Tue Jan 11, 2011 7:38 pm

Aida, saludos!
¡Qué hermosa es su software. Hay manera de compartir el código completo o una copia con este compañero que es nuevo en Brazil Fivewin? Me encantaría.
Felicito a usted, es espléndido.

dr.microso@hotmail.com

Francis Barrimbhal

Posts : 2
Reputation : 0
Join date : 2011-01-11
Age : 47
Location : Belo Horizonte/MG/Brazil

View user profile

Back to top Go down

View previous topic View next topic Back to top


 
Permissions in this forum:
You cannot reply to topics in this forum