home *** CD-ROM | disk | FTP | other *** search
/ Pegasus 5 / Pegasus_Vol_5_CD2.iso / lotus / lotus043.dsk / ORGMERGE.SMM < prev    next >
INI File  |  1995-11-23  |  37KB  |  2,158 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [recfile]
  12.     c:\lotsuite\amipro\docs\_OrgData.Sam
  13.     
  14.     1
  15.     0
  16.     32200
  17.     38944
  18.     71
  19.     48
  20. [prn]
  21.     Generic / Text Only
  22. [port]
  23.     FILE:
  24. [lang]
  25.     1
  26. [fldnames]
  27.     Field1
  28.     Field2
  29.     Field3
  30.     Field4
  31.     Field5
  32.     Field6
  33.     Field7
  34.     Field8
  35. [desc]
  36.     Dieses Makro verwendet DDE, um Adre<\_>eintr<\d>ge von Lotus Organizer 2.x in eine Mail-Mischdatei in Ami Pro aufzunehmen.
  37.     
  38.     
  39.     
  40.     
  41.     807302246
  42.     75
  43.     769637593
  44.     2440
  45.     9
  46.     1049
  47.     7676
  48.     24
  49.     24
  50.     
  51.     
  52.     
  53.     
  54.     
  55.     
  56.     1
  57. [fopts]
  58.     0
  59.     1
  60.     0
  61.     0
  62.     
  63.     
  64. [lnopts]
  65.     2
  66.     Body Text
  67.     1
  68. [docopts]
  69.     5
  70.     2
  71. [GramStyle]
  72.     
  73. [tag]
  74.     Body Text
  75.     2
  76.     [fnt]
  77.         Arial
  78.         200
  79.         0
  80.         16384
  81.     [algn]
  82.         1
  83.         1
  84.         0
  85.         0
  86.         0
  87.     [spc]
  88.         33
  89.         273
  90.         1
  91.         0
  92.         0
  93.         1
  94.         100
  95.     [brk]
  96.         4
  97.     [line]
  98.         8
  99.         0
  100.         1
  101.         0
  102.         1
  103.         1
  104.         1
  105.         10
  106.         10
  107.         1
  108.     [spec]
  109.         0
  110.         0
  111.         
  112.         0
  113.         1
  114.         1
  115.         0
  116.         0
  117.         0
  118.         0
  119.     [nfmt]
  120.         272
  121.         1
  122.         3
  123.         .
  124.         ,
  125.         $
  126.     Body Text
  127.     0
  128.     0
  129. [tag]
  130.     Function
  131.     3
  132.     [fnt]
  133.         Arial
  134.         200
  135.         0
  136.         16385
  137.     [algn]
  138.         1
  139.         1
  140.         0
  141.         0
  142.         0
  143.     [spc]
  144.         33
  145.         244
  146.         1
  147.         0
  148.         0
  149.         1
  150.         100
  151.     [brk]
  152.         68
  153.     [line]
  154.         8
  155.         0
  156.         1
  157.         0
  158.         1
  159.         1
  160.         1
  161.         10
  162.         10
  163.         1
  164.     [spec]
  165.         0
  166.         0
  167.         
  168.         0
  169.         1
  170.         1
  171.         0
  172.         0
  173.         0
  174.         0
  175.     [nfmt]
  176.         272
  177.         1
  178.         3
  179.         .
  180.         ,
  181.         $
  182.     Body Text
  183.     0
  184.     0
  185. [tag]
  186.     Header
  187.     4
  188.     [fnt]
  189.         Tms Rmn
  190.         200
  191.         0
  192.         49153
  193.     [algn]
  194.         4
  195.         1
  196.         0
  197.         0
  198.         0
  199.     [spc]
  200.         33
  201.         273
  202.         1
  203.         0
  204.         0
  205.         1
  206.         100
  207.     [brk]
  208.         4
  209.     [line]
  210.         8
  211.         0
  212.         1
  213.         0
  214.         1
  215.         1
  216.         1
  217.         10
  218.         10
  219.         1
  220.     [spec]
  221.         0
  222.         0
  223.         
  224.         0
  225.         1
  226.         1
  227.         0
  228.         0
  229.         0
  230.         0
  231.     [nfmt]
  232.         272
  233.         1
  234.         3
  235.         .
  236.         ,
  237.         $
  238.     Header
  239.     0
  240.     0
  241. [tag]
  242.     Comments
  243.     5
  244.     [fnt]
  245.         Arial
  246.         200
  247.         32768
  248.         16385
  249.     [algn]
  250.         1
  251.         1
  252.         216
  253.         0
  254.         0
  255.     [spc]
  256.         33
  257.         273
  258.         1
  259.         0
  260.         0
  261.         1
  262.         100
  263.     [brk]
  264.         4
  265.     [line]
  266.         8
  267.         0
  268.         1
  269.         0
  270.         1
  271.         1
  272.         1
  273.         10
  274.         10
  275.         1
  276.     [spec]
  277.         0
  278.         0
  279.         
  280.         0
  281.         1
  282.         1
  283.         0
  284.         0
  285.         0
  286.         0
  287.     [nfmt]
  288.         272
  289.         1
  290.         3
  291.         .
  292.         ,
  293.         $
  294.     Body Text
  295.     0
  296.     0
  297. [lay]
  298.     Standard
  299.     513
  300.     [rght]
  301.         15840
  302.         12240
  303.         1
  304.         720
  305.         1080
  306.         1
  307.         1252
  308.         1440
  309.         2
  310.         1
  311.         0
  312.         1
  313.         1
  314.         2
  315.         1
  316.         720
  317.         10800
  318.         14
  319.         1
  320.         720
  321.         1
  322.         1440
  323.         1
  324.         2160
  325.         1
  326.         2880
  327.         1
  328.         3600
  329.         1
  330.         4320
  331.         1
  332.         5040
  333.         1
  334.         5760
  335.         1
  336.         6480
  337.         1
  338.         7200
  339.         1
  340.         7920
  341.         1
  342.         8640
  343.         1
  344.         9360
  345.         1
  346.         10080
  347.     [hrght]
  348.     [lyfrm]
  349.         1
  350.         11200
  351.         0
  352.         0
  353.         12240
  354.         1252
  355.         0
  356.         1
  357.         3
  358.         1 0 0 0 0 0 0
  359.         0
  360.         0
  361.         1
  362.     [frmlay]
  363.         1252
  364.         12240
  365.         1
  366.         1440
  367.         0
  368.         1
  369.         360
  370.         1440
  371.         0
  372.         1
  373.         0
  374.         1
  375.         1
  376.         0
  377.         1
  378.         1440
  379.         10800
  380.         0
  381.     [txt]
  382. @Header@<:X3,0;GetDocInfo$(1)>ORGMERGE.SMM<:X~3,0;GetDocInfo$(1)>
  383.  
  384. @Header@<+!><:f200,2Times,0,0,0>Dieses<-!><:f><+!><:f200,2Times,0,0,0> Makro verwendet DDE, um Adre<\_>eintr<\d>ge von Lotus Organizer 2.1 in eine Mail-Mischdatei in 
  385. <-!><:f><+!><:f200,2Times,0,0,0>              Ami Pro aufzunehmen<-!><:f>
  386.  
  387. @Header@By:  
  388.  
  389. @Header@<:X3,0;EditDate %Dd>Friday, September 23, 1994<:X~3,0;EditDate %Dd> at 
  390. <:X3,0;EditDate %T6><:f,,>6:08 <:f><:X~3,0;EditDate %T6>
  391.  
  392. @Header@
  393. >
  394.     [frght]
  395.     [lyfrm]
  396.         1
  397.         13248
  398.         0
  399.         14760
  400.         12240
  401.         15840
  402.         0
  403.         1
  404.         3
  405.         1 0 0 0 0 0 0
  406.         0
  407.         0
  408.         2
  409.     [frmlay]
  410.         15840
  411.         12240
  412.         1
  413.         1440
  414.         360
  415.         1
  416.         14940
  417.         1440
  418.         0
  419.         1
  420.         0
  421.         1
  422.         1
  423.         0
  424.         1
  425.         1440
  426.         10800
  427.         0
  428.     [txt]
  429. @Header@Revision Number <:X3,0;NumEdits>22<:X~3,0;NumEdits>
  430.  
  431. @Header@<:P10,0,Page > of <:X3,16384;NumPages>6<:X~3,16384;NumPages>
  432.  
  433. >
  434. [elay]
  435. [l1]
  436.     0
  437. [edoc]
  438. <:#226,10080>Define        IniSection            "OrganizerMerge"
  439.  
  440. <:#226,10080>Define        IniKey                "AddressSection"
  441.  
  442. <:#226,10080>Define        IniFileName            "AmiPro2.Ini"
  443.  
  444. <:#226,10080>Define        DefaultAddressSection          "<:f200,BArial,0,0,0>Adressen<:f>"    
  445.  
  446. <:#226,10080>Define        OrgDataFileName            "_OrgData.Sam"
  447.  
  448. <:#226,10080>
  449.  
  450. <:#226,10080><:f200,BArial,0,0,0>Define        StatBar_BuildingDataHeader    "Erstelle Feldnamen f<\|>r die Ami Pro Datendatei"
  451.  
  452. <:#226,10080><:f200,BArial,0,0,0>Define        StatusMsg_BlankRecord    "<\\>berspringe leeren Datensatz: "
  453.  
  454. <:#226,10080><:f200,BArial,0,0,0>Define        Status_SortingData        "Sortiere die Daten..."
  455.  
  456. <:#226,10080>
  457.  
  458. <:#226,10080><:f200,BArial,0,0,0>
  459.  
  460. Define        Error_CouldNotInitDDE        "<:f200,BArial,0,0,0>Kann Organizer 2.x nicht finden. Bitte starten Sie Organizer 2.x und versuchen Sie es erneut<:f><:f200,BArial,0,0,0>.<:f>"
  461.  
  462. <:s><:#226,10080>
  463.  
  464. <:#226,10080>Define        Error_NoFileOpenInOrganizer    "<:f200,BArial,0,0,0>Es ist keine Datei in Organizer ge<\v>ffnet<:f><:f200,BArial,0,0,0>.<:f>" 
  465.  
  466. <:s><:#226,10080>
  467.  
  468. <:#452,10080>Define        Error_NoDDEOnOpenFile    "<:f200,BArial,0,0,0>DDE konnte nicht eingeleitet<:f><:f200,BArial,0,0,0> werden, wahrscheinlich weil die Datei {OrganizerFileName} nicht ge<\v>ffnet ist.<:f>"
  469.  
  470. <:s><:#226,10080>
  471.  
  472. <:#452,10080>Define        Error_CouldNotLocateSection    "<:f200,BArial,0,0,0>Das Register Adressen<:f><:f200,BArial,0,0,0> konnte nicht gefunden werden. Verwendetes Register = 
  473. <:f>{AddressSectionName}"
  474.  
  475. <:#226,10080>Define        Error_DidNotLocateSpareIndex    "<:f200,BArial,0,0,0>Zus<\d>tzlicher Index konnte nicht gefunden werden.<:f>"
  476.  
  477. <:#226,10080>Define        Error_CouldNotExecFind    "<:f200,BArial,0,0,0>Suchanweisung konnte nicht ausgef<\|>hrt werden."<:f>
  478.  
  479. <:#240,10080><:f200,BHelv,0,0,0>Define        cNowConverting        "<:f><:f200,BArial,0,0,0>Konvertiere Datensatznummer:<:f><:f200,BHelv,0,0,0>"<:f>    
  480.  
  481. <:#226,10080>Define        Error_FontDlgWrongParam    "<:f200,BArial,0,0,0>Fontdlg ung<\|>ltigen Parameter erhalten {Action}<:f>"
  482.  
  483. <:s><:#226,10080>
  484.  
  485. <:s><:#226,10080>
  486.  
  487. <:s><:#226,10080>' Dialog box defines
  488.  
  489. Define        PleaseSelect    "<:f240,2Times New Roman,0,0,0>Geben<:f><:f240,2Times New Roman,0,0,0> Sie das O<:f>rganizer Register ein, das Sie als Quelle f<\|>r die Mischdatendatei verwenden m<\v>chten. Nachdem die Datendatei erstellt wurde, f<\|>hren Sie Schritt 
  490. 2 des Mischvorgangs aus: Erstellen oder Bearbeiten eines Mischdokuments."
  491.  
  492. Define        WelcomeText    "Willkommen im Organizer 2.x Mischassis<:f240,2Times New Roman,0,0,0>tent<:f>"
  493.  
  494. <:#226,10080>
  495.  
  496. <:#226,10080>
  497.  
  498. <:#226,10080>' Windows API defines
  499.  
  500. <:#226,10080>Define        LockWindowUpdate()        DllCall("User,LockWindowUpdate,AH",%1)
  501.  
  502. @Outline2@<:#226,10080>Define         Getfocus()             DllCall("user,GetFocus,H")
  503.  
  504. <:#226,10080>Define        TextBox             1000
  505.  
  506. <:#226,10080>
  507.  
  508. @Function@<:#235,10080>Declare        CreateAmiDataFile(SectionName, IndexField, OrgFileName)
  509.  
  510. @Function@<:#235,10080>Declare        GetOpenOrgFileName()
  511.  
  512. @Function@<:#235,10080>Declare        FontDlg(Action, Hdlg, id)
  513.  
  514. @Function@<:#235,10080>Declare        SortTheRecords(FieldName, ArrayOFFields, Delimeter)
  515.  
  516. @Function@<:#235,10080>Declare        MoveFirst()
  517.  
  518. <:#226,10080>
  519.  
  520. <:#226,10080>
  521.  
  522. <:#226,10080>
  523.  
  524. @Function@<:#235,10080>FUNCTION GetAddress()
  525.  
  526. <:#240,10080><+!><:f240,QCourier,0,128,0>
  527.  
  528. <:#240,10080><+!><:f240,QCourier,0,128,0>'<-!>
  529.  
  530. <+!><:f240,QCourier,0,128,0>'    MAIL MERGE MACRO USING LOTUS ORGANIZER 2.x<-!>
  531.  
  532. <:#240,10080><+!><:f240,QCourier,0,128,0>'            (Created by Adam Mark Johnson 23/9/94)<-!>
  533.  
  534. <:#240,10080><:f240,QCourier,0,128,0>
  535.  
  536. <:#240,10080><+!><:f240,QCourier,0,128,0>'    Set variable defaults<-!>
  537.  
  538. <:#240,10080><+!><:f240,QCourier,0,128,0>'<-!><:f>
  539.  
  540. <:#226,10080>OrganizeEXEName = GetProfileString$("Lotus Applications","Organize","Lotus.INI")
  541.  
  542. <:#226,10080>OrganizeFilePath = GetProfileString$("Settings","OrgFilesPath","Organize.INI")
  543.  
  544. <:#226,10080>AmiDir = GetAmiDirectory$()
  545.  
  546. <:#226,10080>AmiDocsDir = GetDocPath$()
  547.  
  548. <:#226,10080>
  549.  
  550. <:#226,10080>TEMPDIR = DOSGetEnv$("TEMP")
  551.  
  552. <:#226,10080>
  553.  
  554. <:#226,10080>TempDataFileName = StrCat$(AmiDocsDir,OrgDataFileName)
  555.  
  556. <:#226,10080>
  557.  
  558. <:#240,10080><:f240,QCourier,0,128,0><+!>'    Query the Organizer System topic to see what file is currently
  559.  
  560. <:#240,10080><+!><:f240,QCourier,0,128,0>'    open<-!><:f>
  561.  
  562. <:#240,10080><+!><:f240,QCourier,0,128,0>
  563.  
  564. <:#226,10080>OrganizerFileName = GetOpenOrgFileName() 
  565.  
  566. <:#226,10080>
  567.  
  568. <:#226,10080>If OrganizerFileName = 0
  569.  
  570. <:#226,10080>    Exit Function
  571.  
  572. <:#226,10080>Endif
  573.  
  574. <:#226,10080>
  575.  
  576. <:#226,10080>
  577.  
  578. <:#226,10080>if OrganizerFileName = ""
  579.  
  580. <:#226,10080>    Message( Error_NoFileOpenInOrganizer )
  581.  
  582. <:#226,10080>    Return 0;
  583.  
  584. <:#226,10080>endif
  585.  
  586. <:#226,10080>
  587.  
  588. <:#240,10080><+!><:f240,QCourier,0,128,0>'    Get the Address section name<-!><:f>
  589.  
  590. <:#226,10080>' This is sticky, so it should be set to whatever was selected in the previous merge
  591.  
  592. <:#226,10080>
  593.  
  594. <:#226,10080>AddressSection = GetProfileString$(IniSection, IniKey, IniFileName)
  595.  
  596. <:#226,10080>If AddressSection = ""
  597.  
  598. <:#226,10080>    AddressSection = DefaultAddressSection
  599.  
  600. <:#226,10080>Endif
  601.  
  602. <:#226,10080>
  603.  
  604. <:#226,10080>FontDlg(1,0,0)    ' Create a small font for use in the dialog box
  605.  
  606. <:#226,10080>SetDlgCallBack(0,"InitDlg")
  607.  
  608. <:#226,10080>
  609.  
  610. <:#226,10080>FillEdit (1003, OrganizerFileName)
  611.  
  612. <:#226,10080>FillEdit (1004, PleaseSelect)
  613.  
  614. <:#226,10080>FillEdit(1005, WelcomeText)
  615.  
  616. <:#226,10080>FillEdit(8000, AddressSection)
  617.  
  618. <:#226,10080>'FillEdit( 9501, "Company" )
  619.  
  620. <:#226,10080>'FillEdit( 9501, "Last Name" )
  621.  
  622. <:#226,10080>'FillEdit( 9501, "First Name")
  623.  
  624. <:#226,10080>'FillEdit(9501, "City")
  625.  
  626. <:#226,10080>'FillEdit(9501, "State")
  627.  
  628. <:#226,10080>'FillEdit( 9501, "Category" )
  629.  
  630. <:#226,10080>
  631.  
  632. <:#226,10080>Box = DialogBox( "." , "OrgMerge" )
  633.  
  634. <:#226,10080>FontDlg(4,0,0)    ' Destroy the small font that was created earlier
  635.  
  636. <:#226,10080>
  637.  
  638. <:#226,10080>If Box <<<;> 1
  639.  
  640. <:#240,10080><:f240,QCourier,0,128,0><+!>    'User pressed cancel or box not found<-!><:f>
  641.  
  642. <:#226,10080>    Return 0;
  643.  
  644. <:#226,10080>EndIF
  645.  
  646. <:#226,10080>
  647.  
  648. IndexMethod = "<:f200,BArial,0,0,0>Nachname<:f>"
  649.  
  650.  
  651. <:#226,10080>AddressSectionName = GetDialogField$(8000)
  652.  
  653. <:#226,10080>
  654.  
  655. @Comments@<:#235,10080>' Write the name of the address section to the amipro2.ini so we can prefill the editbox the next time
  656.  
  657. <:#226,10080>WriteProfileString(IniSection, IniKey, AddressSectionName,IniFileName)
  658.  
  659. <:#240,10080><+!><:f240,QCourier,0,128,0>
  660.  
  661. <:#226,10080>If -1 = CreateAmiDataFile(AddressSectionName, IndexMethod, OrganizerFileName)
  662.  
  663. <:#226,10080>    Exit Function
  664.  
  665. <:#226,10080>Endif
  666.  
  667. <:#226,10080>
  668.  
  669. @Comments@<:#235,10080>'    Delete the existing Temp data file 
  670.  
  671. @Comments@<:#235,10080>'    (doesn't matter if file didn't exist)
  672.  
  673. <:#226,10080>
  674.  
  675. <:#226,10080>DosDelFile ( TempDataFileName )
  676.  
  677. <:#226,10080>
  678.  
  679. @Comments@<:#235,10080>'    Save the current data as the temp data file.
  680.  
  681. <:#226,10080>SaveAs(TempDataFileName  32 ""  ""   )
  682.  
  683. <:#226,10080>
  684.  
  685. <:#240,10080><:f240,QCourier,0,128,0><+!>'    Close the current file.<-!><:f>
  686.  
  687. <:#226,10080>FileChanged(1, 0)
  688.  
  689. <:#226,10080>If 1 = FileClose()
  690.  
  691. <:#226,10080>    IF GetOpenFileCount() <<1
  692.  
  693. <:#226,10080>        If New
  694.  
  695. <:#226,10080>            SelectDataFile(TempDataFileName,"")
  696.  
  697. <:#226,10080>        Endif
  698.  
  699. <:#226,10080>    Else
  700.  
  701. <:#226,10080>        SelectDataFile(TempDataFileName,"")
  702.  
  703. <:#226,10080>    Endif        
  704.  
  705. <:#226,10080>Endif
  706.  
  707. <:#226,10080>     
  708.  
  709. <:#226,10080><-!>'    DosDelFile ( TempDataFileName )
  710.  
  711. <:#226,10080>
  712.  
  713. <:#226,10080>BailOut:
  714.  
  715. <:#226,10080>
  716.  
  717. <:#226,10080>END FUNCTION
  718.  
  719. @Function@<:#235,10080>
  720.  
  721. @Function@<:#235,10080>
  722.  
  723. @Function@<:#235,10080>Function InitDlg(Hdlg, id, value)
  724.  
  725. <:#226,10080>' This function is called before the merge assistant dialog box is displayed.
  726.  
  727. <:#226,10080>' The dialogbox is created - this routine will set the text of several fields to a smaller font that is easier to read
  728.  
  729. <:#226,10080>
  730.  
  731. <:#226,10080>' We created a small font before we popped this box. 
  732.  
  733. <:#226,10080>' Now assign several controls to display with the smaller font.  
  734.  
  735. <:#226,10080>FontDlg(3, Hdlg, TextBox)
  736.  
  737. <:#226,10080>FontDlg(3, Hdlg, 1004)
  738.  
  739. <:#226,10080>FontDlg(3, Hdlg, 1003)
  740.  
  741. <:#226,10080>End function
  742.  
  743. <:#226,10080>
  744.  
  745. <:#226,10080>
  746.  
  747. @Function@<:#235,10080>Function GetOpenOrgFileName()
  748.  
  749. <:#226,10080>id = DDEInitiate("ORGANIZE200", "System")
  750.  
  751. <:#226,10080>IF id = 0
  752.  
  753. <:#226,10080>     Message(Error_CouldNotInitDDE)
  754.  
  755. <:#226,10080>    return 0;
  756.  
  757. <:#226,10080>Else
  758.  
  759. <:#226,10080>    'If the Organizer has a file open then the file name can be found by skipping
  760.  
  761. <:#226,10080>    'past the System topic name, Strings are separated by the tab character.
  762.  
  763. <:#240,10080><:f200,BHelv,0,0,0>    FieldValue = <:f>DDEReceive$(id, <:f200,BHelv,0,0,0>"Topics"<:f><:f200,BHelv,0,0,0> 
  764. <:f>)    
  765.  
  766. <:#226,10080>    I = strchr( 1, Fieldvalue, CHR$( 9 ) )
  767.  
  768. <:#226,10080>    if -1 = I
  769.  
  770. <:#226,10080>        Message(Error_NoFileOpenInOrganizer )
  771.  
  772. <:#226,10080>        DDETerminate(id)
  773.  
  774. <:#226,10080>        return 0;
  775.  
  776. <:#226,10080>    Else
  777.  
  778. <:#226,10080>        FileName = MID$( Fieldvalue, I+1, len( Fieldvalue ) - I )
  779.  
  780.     Endif
  781.  
  782. <:#226,10080>    DDETerminate(id)
  783.  
  784. <:#226,10080>Endif
  785.  
  786. <:#226,10080>Return FileName
  787.  
  788. <:#226,10080>End Function
  789.  
  790. @Function@<:#235,10080>
  791.  
  792. @Function@<:#235,10080>Function CreateAmiDataFile(AddressSectionName, IndexMethod, OrganizerFileName)
  793.  
  794. <+@><:I0,0,0,0><:#240,10080><-!><:f200,BHelv,0,0,0>OnCancel BailOut<:f>
  795.  
  796. <:#226,10080>
  797.  
  798. <:#226,10080>id = DDEInitiate("ORGANIZE200", OrganizerFileName)
  799.  
  800. <:#226,10080>IF id = 0
  801.  
  802. <:#226,10080>    Message(Error_NoDDEOnOpenFile)
  803.  
  804. <:#226,10080>    Return -1
  805.  
  806. <:#226,10080>ENDIF
  807.  
  808. <+@><:I0,0,0,0><:#240,10080><:f200,BHelv,0,0,0>
  809.  
  810. <+@><:I0,0,0,0><:#240,10080><:f200,BHelv,0,0,0>    NUMBER_OF_FIELDS  = 32
  811.  
  812. <+@><:I0,0,0,0><:#240,10080><:f200,BHelv,0,0,0>    Dim DDEAddressFields(<:f><:f200,BHelv,0,0,0>NUMBER_OF_FIELDS 
  813. <:f><:f200,BHelv,0,0,0>)
  814.  
  815. <+@><:I0,0,0,0><:#240,10080><:f200,BHelv,0,0,0>
  816.  
  817. <:#226,10080>    DDEAddressFields(1) = "Categories"
  818.  
  819. <:#226,10080>    DDEAddressFields(2) = "FirstName"
  820.  
  821. <:#226,10080>    DDEAddressFields(3) = "LastName"
  822.  
  823. <:#226,10080>    DDEAddressFields(4) = "Title"
  824.  
  825. <:#226,10080>    DDEAddressFields(5) = "Position"
  826.  
  827. <:#226,10080>    DDEAddressFields(6) = "Company"
  828.  
  829. <:#226,10080>    DDEAddressFields(7) = "Address"
  830.  
  831. <:#226,10080>    DDEAddressFields(8) = "City"
  832.  
  833. <:#226,10080>    DDEAddressFields(9) = "State"
  834.  
  835. <:#226,10080>    DDEAddressFields(10) = "Zip"
  836.  
  837. <:#226,10080>    DDEAddressFields(11) = "Country"
  838.  
  839. <:#226,10080>    DDEAddressFields(12) = "Phone"
  840.  
  841. <:#226,10080>    DDEAddressFields(13) = "Extn"
  842.  
  843. <:#226,10080>    DDEAddressFields(14) = "Fax"
  844.  
  845. <:#226,10080>    DDEAddressFields(15) = "E-mail"
  846.  
  847. <:#226,10080>    DDEAddressFields(16) = "Business Tel2"
  848.  
  849. <:#226,10080>    DDEAddressFields(17) = "Assistant"
  850.  
  851. <:#226,10080>    DDEAddressFields(18) = "Notes"
  852.  
  853. <:#226,10080>    DDEAddressFields(19) = "Spouse"
  854.  
  855. <:#226,10080>    DDEAddressFields(20) = "Children"
  856.  
  857. <:#226,10080>    DDEAddressFields(21) = "Home-Address"
  858.  
  859. <:#226,10080>    DDEAddressFields(22) = "Home-City"
  860.  
  861. <:#226,10080>    DDEAddressFields(23) = "Home-State"
  862.  
  863. <:#226,10080>    DDEAddressFields(24) = "Home-Zip"
  864.  
  865. <:#226,10080>    DDEAddressFields(25) = "Home-Country"
  866.  
  867. <:#226,10080>    DDEAddressFields(26) = "Home-Phone"
  868.  
  869. <:#226,10080>    DDEAddressFields(27) = "Home-Extn"
  870.  
  871. <:#226,10080>    DDEAddressFields(28) = "Home-Fax"
  872.  
  873. <:#226,10080>    DDEAddressFields(29) = "Home-EMail"
  874.  
  875. <:#226,10080>    DDEAddressFields(30) = "Home-Unused1"
  876.  
  877. <:#226,10080>    DDEAddressFields(31) = "Home-Unused2"
  878.  
  879. <:#226,10080>    DDEAddressFields(32) = "Home-Notes"
  880.  
  881. <:#226,10080>
  882.  
  883. <:#452,10080>    ' Organizer will request the info with English field names, but we may need to build the datafile in Ami Pro with another language.
  884.  
  885. <:#226,10080>    ' If you want to change the names of the fields that display in Ami Pro, please change them here.
  886.  
  887. <:#226,10080>  
  888.  
  889. <:#226,10080><:f200,BArial,255,0,0>    ' PMM
  890.  
  891. <:#226,10080><:f200,BArial,255,0,0>    ' 12/13/94
  892.  
  893. <:#226,10080><:f200,BArial,255,0,0>    Dim LocalizedFieldName(NUMBER_OF_FIELDS)
  894.  
  895. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldNa<:f200,BArial,0,0,0>me (1) = "Kategorien"        
  896.  
  897. <:f200,BArial,0,0,0>    LocalizedFieldName(2) = "Vorname"
  898.  
  899. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(3) = "Nachname"
  900.  
  901. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(4) = "Titel"
  902.  
  903. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(5) = "Position"<:f>
  904.  
  905. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(6)="Firma"
  906.  
  907. <:#226,10080><:f200,BArial,0,0,0><:X12,-32768;MergeField PRIVAT_BUNDESLD_><:X~12,-32768;MergeField PRIVAT_BUNDESLD_>    LocalizedFieldName(7)="Stra<\_>e"
  908.  
  909. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(8)="Ort"
  910.  
  911. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(9)="Bundesld"
  912.  
  913. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(10)="PLZ"
  914.  
  915. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(11)="Land"
  916.  
  917. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(12)="Tel"
  918.  
  919. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(13) ="App."
  920.  
  921. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(14) ="Fax"
  922.  
  923. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(15)="E-Mail"
  924.  
  925. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(16)="Unben 1"
  926.  
  927. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(17)="Unben 1"
  928.  
  929. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(18)="Notizen"
  930.  
  931. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(19)="Privat</V>Titel"            'Note this has been changed
  932.  
  933. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(20)="Privat</V>Firma"            'Note this has been changed
  934.  
  935. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(21)="Privat</V>Stra<\_>e"
  936.  
  937. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(22)="Privat</V>Ort"
  938.  
  939. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(23)="Privat</V>Bundesld"
  940.  
  941. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(24)="Privat</V>PLZ"
  942.  
  943. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(25)="Privat</V>Land"
  944.  
  945. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(26)="Privat</V>Tel"
  946.  
  947. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(27)="Privat</V>App"
  948.  
  949. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(28)="Privat</V>Fax"
  950.  
  951. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(29)= "Privat</V>E-Mail"
  952.  
  953. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(30)="Privat</V>Unben 1"
  954.  
  955. <:#226,10080><:f200,BArial,0,0,0>    <:f200,BArial,0,0,0>LocalizedFieldName(31)="Tel<:f><:f200,BArial,0,0,0>2"                'Note this has been changed
  956.  
  957. <:#226,10080><:f200,BArial,0,0,0>    LocalizedFieldName(32)="Privat</V>Notizen"<:f>
  958.  
  959. <:#226,10080>
  960.  
  961. <:#240,10080><:f240,QCourier,0,128,0><+!>'    Access the Address section<-!><:f>
  962.  
  963. <:#226,10080>
  964.  
  965. <:#226,10080>command = "<[><[>SelectSection(""{AddressSectionName}"")]"
  966.  
  967. <:#226,10080>retval = DDEExecute(id, command)
  968.  
  969. <:#226,10080>IF retval = -1
  970.  
  971. <:#226,10080>    Message(Error_CouldNotLocateSection)
  972.  
  973. <:#226,10080>    Goto Bailout
  974.  
  975. <:#226,10080>ENDIF
  976.  
  977. <:#226,10080>
  978.  
  979. <:#226,10080>command = "<[><[>SelectIndex(""{IndexMethod}"")]"
  980.  
  981. <:#226,10080>retval = DDEExecute(id, command)
  982.  
  983. <:#226,10080>IF retval = -1
  984.  
  985. <:#226,10080>    Message(Error_DidnotLocateSpareIndex)
  986.  
  987. <:#226,10080>    Stat = 0;
  988.  
  989. <:#226,10080>    Goto Bailout
  990.  
  991. <:#226,10080>ENDIF
  992.  
  993. <:#226,10080>
  994.  
  995. <:#240,10080><-!><+!><:f240,QCourier,0,128,0>'    Find the first record.<-!><:f>
  996.  
  997. <:#240,10080><+!><:f240,QCourier,0,128,0>
  998.  
  999. <:#226,10080>command = "<[><[>Find(""<<FIRST<;>"")]"
  1000.  
  1001. <:#226,10080>retval = DDEExecute(id, command)
  1002.  
  1003. <:#226,10080>
  1004.  
  1005. <:#226,10080>if retval = -1
  1006.  
  1007. <:#226,10080>    Message(Error_CouldNotExecFind)
  1008.  
  1009. <:#226,10080>    Stat = 0
  1010.  
  1011. <:#226,10080>    Goto Bailout;
  1012.  
  1013. <:#226,10080>ENDIF
  1014.  
  1015.  
  1016. <+@><:S+-1><:#240,10080><:f240,QCourier,0,128,0><+!>'    Create a temporary data file for use with the mail merge.<-!><:f>
  1017.  
  1018. <:#226,10080><:>
  1019.  
  1020. <:#226,10080>If GetOpenFileCount() << 1
  1021.  
  1022. @Comments@<:#235,10080>    ' We must open a document, or the createdatafile command will return an error
  1023.  
  1024. <:#226,10080>    DefStyle =  GetProfileString$("AmiPro","DefStyle","AmiPro.ini")
  1025.  
  1026. <:#226,10080>    New(DefStyle, 1, 0)
  1027.  
  1028. <:#226,10080>Endif
  1029.  
  1030. <:#226,10080>
  1031.  
  1032. <:#226,10080>If CreateDataFile( )
  1033.  
  1034. <:#226,10080>Else
  1035.  
  1036. <:#226,10080>    Return -1
  1037.  
  1038. <:#226,10080>Endif
  1039.  
  1040. <:#226,10080>
  1041.  
  1042. <:#226,10080>' Turn off painting in the current window
  1043.  
  1044. <:#226,10080>hWnd = GetFocus()
  1045.  
  1046. <:#226,10080>HourGlass(on)
  1047.  
  1048. <:#226,10080>LockWindowUpdate(hWnd)
  1049.  
  1050. <:#226,10080>
  1051.  
  1052. <:#226,10080>StatusBarMSg(StatBar_BuildingDataHeader)
  1053.  
  1054. <:#226,10080>
  1055.  
  1056. <:#226,10080>Type( "<[>CTRLHome]<[>Home]<[>SHIFTEnd]<[>CTRLHome]~|<[>Enter]" )    
  1057.  
  1058. <:#226,10080>
  1059.  
  1060. <:#240,10080>For T = 1 To <:f200,BHelv,0,0,0>NUMBER_OF_FIELDS <:f>
  1061.  
  1062. <:#245,10080><:f200,BHelv,0,0,0>'<:f240,QCourier,255,0,0>//<:f>    <:f200,BArial,255,0,0>Build the list of fields that will go at the top of the Ami Pro datafile.  
  1063.  
  1064. <:#226,10080><:f200,BArial,255,0,0>'    Use the localized names array instead of the DDEAddressFields array.
  1065.  
  1066. <:#240,10080><:f200,BHelv,0,0,0>    
  1067.  
  1068. <:#240,10080><:f200,BHelv,0,0,0>    Type (LocalizedFieldName(T))
  1069.  
  1070. <:#240,10080><:f240,QCourier,255,0,0>'    Type ( DDEAddressFields(T) )<:f>
  1071.  
  1072. <:#240,10080><:f200,BHelv,0,0,0>    Type ( "~" )
  1073.  
  1074. <:#226,10080>Next
  1075.  
  1076. <:#240,10080><:f200,BHelv,0,0,0>Type ( "<[>Backspace]|<[>Enter]" )<:f>
  1077.  
  1078. <:#240,10080><:f200,BHelv,0,0,0>
  1079.  
  1080. <:#240,10080><+!><:f240,QCourier,0,128,0>'Loop around getting all of the Address records from the Address 
  1081.     <-!><:f>
  1082.  
  1083. <:#240,10080><+!><:f240,QCourier,0,128,0>
  1084.  
  1085. <:#226,10080>Count = 0
  1086.  
  1087. <:#226,10080>NoMoreRecords = 0
  1088.  
  1089. <:#226,10080>WHILE retval != -1 and NoMoreRecords <<10
  1090.  
  1091. <:#226,10080>    BlankRecord = 1
  1092.  
  1093. <:#240,10080><:f200,BHelv,0,0,0>    TypeThis = ""<:f>
  1094.  
  1095. <:#240,10080>    For T = 1 To <:f200,BHelv,0,0,0>NUMBER_OF_FIELDS <:f>
  1096.  
  1097. <:#240,10080><:f200,BHelv,0,0,0>        FieldValue = <:f>DDEReceive$(id, <:f200,BHelv,0,0,0>DDEAddressFields<:f><:f200,BHelv,0,0,0>(T)<:f><:f200,BHelv,0,0,0> 
  1098. <:f>)
  1099.  
  1100. <:#240,10080><:f200,BHelv,0,0,0>        If FieldValue <<<;> ""<:f>    <:f200,BArial,255,0,0>'  This could be a blank record or the end of the data file. 
  1101. <:f>
  1102.  
  1103. <:#240,10080><:f200,BHelv,0,0,0>            BlankRecord = 0
  1104.  
  1105. <:#240,10080><:f200,BHelv,0,0,0>            break;
  1106.  
  1107. <:#240,10080><:f200,BHelv,0,0,0>        EndIf<:f><:f200,BHelv,0,0,0> <:f>
  1108.  
  1109. <:#226,10080>    Next
  1110.  
  1111. <:#226,10080>    
  1112.  
  1113. <:#226,10080>
  1114.  
  1115. <:#226,10080>
  1116.  
  1117. <:#226,10080>
  1118.  
  1119. <:#226,10080>
  1120.  
  1121. <:#226,10080>    If BlankRecord = 0
  1122.  
  1123. <:#240,10080>        For T = 1 To <:f200,BHelv,0,0,0>NUMBER_OF_FIELDS <:f>
  1124.  
  1125. <:#240,10080><:f200,BHelv,0,0,0>            FieldValue = <:f>DDEReceive$(id, <:f200,BHelv,0,0,0>DDEAddressFields<:f><:f200,BHelv,0,0,0>(T)<:f><:f200,BHelv,0,0,0> 
  1126. <:f>)
  1127.  
  1128. <:#240,10080><:f200,BHelv,0,0,0>            Type( "{FieldValue}")
  1129.  
  1130. <:#240,10080><:f200,BHelv,0,0,0>
  1131.  
  1132. <:#240,10080><:f200,BHelv,0,0,0>            If T << NUMBER_OF_FIELDS
  1133.  
  1134. <:#240,10080><:f200,BHelv,0,0,0>                Type("~")
  1135.  
  1136. <:#240,10080><:f200,BHelv,0,0,0>            Endif
  1137.  
  1138. <:#226,10080>        Next
  1139.  
  1140. <:#226,10080>    Endif
  1141.  
  1142. <:#226,10080>
  1143.  
  1144. <:#240,10080><:f200,BHelv,0,0,0>
  1145.  
  1146. <:#240,10080><:f200,BHelv,0,0,0>    StatusMsg = StrCat$(cNowConverting, Count) 
  1147.  
  1148. <:#240,10080><:f200,BHelv,0,0,0>    StatusBarMsg(StatusMsg)
  1149.  
  1150. <:#226,10080>    If BlankRecord = 1
  1151.  
  1152. <:#226,10080>        NoMoreRecords = NoMoreRecords +1
  1153.  
  1154. <:#226,10080>        Status_BlankRecord = StrCat$(StatusMsg_BlankRecord,NoMoreRecords)
  1155.  
  1156. <:#226,10080>        StatusBarMsg(Status_BlankRecord)
  1157.  
  1158. <:#226,10080>    Else
  1159.  
  1160. <:#240,10080><:f200,BHelv,0,0,0>        StatusMsg = StrCat$(cNowConverting, Count) 
  1161.  
  1162. <:#240,10080><:f200,BHelv,0,0,0>        StatusBarMsg(StatusMsg)<:f>
  1163.  
  1164. <:#226,10080>        MoreRecords = 0
  1165.  
  1166. <:#226,10080>        Type( "|<[>Enter]" )
  1167.  
  1168. <:#226,10080>    EndIf
  1169.  
  1170. <:#226,10080>    command = "<[><[>Find(""<<NEXT<;>"")]"
  1171.  
  1172. <:#226,10080>    retval = DDEExecute(id, command)
  1173.  
  1174. <:#226,10080>    If retval = -1 
  1175.  
  1176. <:#226,10080>        Message(Error_CouldNotExecFind)
  1177.  
  1178. <:#226,10080>        Goto Bailout;
  1179.  
  1180. <:#226,10080>    ENDIF
  1181.  
  1182. <:#226,10080>    Count = Count + 1
  1183.  
  1184. <:#226,10080>WEND
  1185.  
  1186. <:#226,10080>
  1187.  
  1188. <+@><:S+-1><:#240,10080><:f240,QCourier,0,128,0><+!>'    End the DDE Conversation<:>.<-!><:f>
  1189.  
  1190. <:#226,10080>StatusBarMsg(Status_SortingData)
  1191.  
  1192. <:#226,10080>'Stat = SortTheRecords(IndexMethod, &DDEAddressFields, "~")
  1193.  
  1194. <:#226,10080>
  1195.  
  1196. <:#226,10080>Bailout:
  1197.  
  1198. <:#226,10080>LockWindowUpdate("")
  1199.  
  1200. <:#226,10080>DDETerminate(id)    <:f200,BArial,255,0,0>'  This only terminated the last DDE Channel 
  1201. <:f>
  1202.  
  1203. <:#226,10080>End Function
  1204.  
  1205. <:#226,10080>
  1206.  
  1207. <:#226,10080>
  1208.  
  1209. @Function@<:#235,10080>Function SortTheRecords(FieldName, ArrayOfFieldNames, Delimeter)
  1210.  
  1211. <:#226,10080>' Sort the datafile from the information supplied in the first dialog box
  1212.  
  1213. <:#226,10080>
  1214.  
  1215. <:#226,10080>Ascending = True
  1216.  
  1217. <:#226,10080>Alphanumeric = true
  1218.  
  1219. <:#226,10080>MoveFirst()
  1220.  
  1221. <:#226,10080>Type ("<[>ShiftCtrlEnd]")
  1222.  
  1223. <:#226,10080>
  1224.  
  1225. <:#226,10080>Sortorder=1
  1226.  
  1227. <:#226,10080>SortType=2
  1228.  
  1229. <:#226,10080>
  1230.  
  1231. <:#226,10080>Options=SortOrder + SortType + 4096 ' was 4444
  1232.  
  1233. <:#226,10080>FieldIndex=ArraySearch(&ArrayOfFieldNames,FieldName)
  1234.  
  1235. <:#226,10080>
  1236.  
  1237. <:#226,10080>Sort(FieldIndex,1,1,1,Delimeter,4099)
  1238.  
  1239. <:#226,10080>SetDocVar("KeyField",FieldIndex)
  1240.  
  1241. <:#226,10080>
  1242.  
  1243. <:#226,10080>Type ("<[>CtrlHome]")
  1244.  
  1245. <:#226,10080>
  1246.  
  1247. <:#226,10080>
  1248.  
  1249. <:#226,10080>Return 1
  1250.  
  1251. <:#226,10080>End Function
  1252.  
  1253.  
  1254. @Function@<:#235,10080>Function MoveFirst()
  1255.  
  1256. <:#226,10080>    Type ("<[>CtrlHome]")
  1257.  
  1258. <:#226,10080>    Type ("<[>CtrlDown]<[>CtrlDown]<[>Right]")
  1259.  
  1260. <:#226,10080>    Type ("<[>ShiftCtrlDown]")
  1261.  
  1262. <:#226,10080>End Function
  1263.  
  1264. @Body Single@<:#226,10080>
  1265.  
  1266. <:#226,10080>
  1267.  
  1268. <:#226,10080>
  1269.  
  1270. <:#226,10080>
  1271.  
  1272. <:#226,10080>
  1273.  
  1274. @Function@<:#235,10080>Function FontDlg(Action, Hdlg, id)
  1275.  
  1276. <:#226,10080>' 1    Create a font and allocvar
  1277.  
  1278. <:#226,10080>' 2    Return the handle of the create font 
  1279.  
  1280. <:#226,10080>' 3    Set the id specified to the font
  1281.  
  1282. <:#226,10080>' 4    Freeglobalvar and delete created object
  1283.  
  1284. <:#226,10080>
  1285.  
  1286. @Outline2@<:#452,10080>define    CreateFontDLG()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  1287.  
  1288. @Outline2@<:#226,10080>define    DeleteObjectDLG(handle)    DllCall("gdi,DeleteObject,HH", %1)
  1289.  
  1290. @Outline2@<:#226,10080>define    SendMessageDLG(hwnd, msg, wpara, lparm)    DllCall("user,SendMessage,HHHHJ", %1, %2, %3, %4)
  1291.  
  1292. @Outline2@<:#226,10080>
  1293.  
  1294. @Outline2@<:#226,10080>
  1295.  
  1296. <:#226,10080>Switch Action
  1297.  
  1298. <:#226,10080>    Case 1    ' Create the font and store it
  1299.  
  1300. @Outline2@<:#226,10080>        Font = CreateFontDLG(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, "Helv")
  1301.  
  1302. <:#226,10080>        AllocGlobalVar("FontHandle",1)
  1303.  
  1304. <:#226,10080>        If Font
  1305.  
  1306. <:#226,10080>            SetGlobalVar("FontHandle",Font)
  1307.  
  1308. <:#226,10080>            Return Font
  1309.  
  1310. <:#226,10080>        Else
  1311.  
  1312. <:#226,10080>            Return 0;    ' no font
  1313.  
  1314. <:#226,10080>        Endif
  1315.  
  1316. <:#226,10080>        Break;
  1317.  
  1318. <:#226,10080>    Case 2    ' Return the handle to the font
  1319.  
  1320. <:#226,10080>        Handle = GetGlobalVar$("FontHandle")
  1321.  
  1322. <:#226,10080>        If Handle 
  1323.  
  1324. <:#226,10080>            Return Handle
  1325.  
  1326. <:#226,10080>        Else
  1327.  
  1328. <:#226,10080>            Return 0
  1329.  
  1330. <:#226,10080>        Endif
  1331.  
  1332. <:#226,10080>
  1333.  
  1334. <:#226,10080>    Case 3    ' Set the id to the font
  1335.  
  1336. <:#226,10080>        Handle = GetGlobalVar$("FontHandle")
  1337.  
  1338. <:#226,10080>        If Handle 
  1339.  
  1340. <:#226,10080>            IdControl = GetDlgITem(Hdlg, id)
  1341.  
  1342. <:#226,10080>            SendMessageDlg(idControl, 0x30, Handle, 0)
  1343.  
  1344. <:#226,10080>            Return 1
  1345.  
  1346. <:#226,10080>        Else
  1347.  
  1348. <:#226,10080>            Return 0
  1349.  
  1350. <:#226,10080>        Endif
  1351.  
  1352. <:#226,10080>        Break;        
  1353.  
  1354. <:#226,10080>        
  1355.  
  1356. <:#226,10080>    Case 4    ' Delete the font and clear the var
  1357.  
  1358. <:#226,10080>        Handle = GetGlobalVar$("FontHandle")
  1359.  
  1360. <:#226,10080>        If Handle
  1361.  
  1362. <:#226,10080>            DeleteObjectDLG(Handle)
  1363.  
  1364. <:#226,10080>            Stat = 1    
  1365.  
  1366. <:#226,10080>        Else
  1367.  
  1368.             Stat = 0
  1369.  
  1370.         Endif
  1371.  
  1372.         FreeGlobalVar("FontHandle")
  1373.  
  1374.         Return Stat        
  1375.  
  1376.     Default
  1377.  
  1378.         Message(Error_FontDlgWrongParam)
  1379.  
  1380. EndSwitch    
  1381.  
  1382.  
  1383. End Function
  1384.  
  1385. @Subhead@
  1386. DIALOG    OrgMerge
  1387.  
  1388. -2134376448    8    56    56    220    110    ""    ""    "Organizer 2.x Mischassistent"
  1389.  
  1390. FONT    8    "HELV"
  1391.  
  1392. 172    3    40    14    1    1342373889    "button"    "OK"    0 
  1393.  
  1394. 172    20    40    14    2    1342373888    "button"    "<:f200,BArial,0,0,0>Abbrechen<:f>"    0 
  1395.  
  1396. 5    87    30    8    1001    1342177280    "static"    "<:f200,BArial,0,0,0>Register:<:f>"    0 
  1397.  
  1398. 40    85    83    12    8000    1350631552    "edit"    ""    0 
  1399.  
  1400. 82    65    100    10    1003    1342177280    "static"    "<:f200,BArial,0,0,0>Dateiname<:f>"    0 
  1401.  
  1402. 5    65    76    8    1000    1342177280    "static"    "<:f200,BArial,0,0,0>Aktueller Organizer Dateiname:<:f>"    0 
  1403.  
  1404. 5    17    150    34    1004    1342177280    "static"    "text"    0 
  1405.  
  1406. 5    3    160    8    1005    1342177280    "static"    "<:f200,BArial,0,0,0>Willkommen<:f>"    0 
  1407.  
  1408. END DIALOG
  1409.  
  1410.  
  1411. DIALOG    OrgMergeBak
  1412.  
  1413. -2134376448    10    56    56    220    117    ""    ""    "Organizer 2.x Mischassistent"
  1414.  
  1415. FONT    8    "HELV"
  1416.  
  1417. 172    3    40    14    1    1342373889    "button"    "OK"    0 
  1418.  
  1419. 172    20    40    14    2    1342373888    "button"    "<:f200,BArial,0,0,0>Cancel<:f>"    0 
  1420.  
  1421. 5    67    30    8    1001    1342177280    "static"    "Section:"    0 
  1422.  
  1423. 5    88    29    8    1002    1342177280    "static"    "Sort by:"    0 
  1424.  
  1425. 40    86    84    44    9501    1344274435    "combobox"    ""    0 
  1426.  
  1427. 40    65    83    12    8000    1350631552    "edit"    ""    0 
  1428.  
  1429. 82    50    100    10    1003    1342177280    "static"    "filename"    0 
  1430.  
  1431. 5    50    76    8    1000    1342177280    "static"    "Current Organizer filename:"    0 
  1432.  
  1433. 5    14    150    34    1004    1342177280    "static"    "text"    0 
  1434.  
  1435. 5    3    160    8    1005    1342177280    "static"    "Welcome"    0 
  1436.  
  1437. END DIALOG
  1438.  
  1439. >
  1440.  
  1441. [Embedded]
  1442. 00028599
  1443. >
  1444. [macsum] 9
  1445. GetAddress 0 0 12 42
  1446. InitDlg 1363 3 1 142
  1447. GetOpenOrgFileName 1462 0 5 154
  1448. CreateAmiDataFile 1969 3 19 176
  1449. SortTheRecords 6034 3 7 382
  1450. MoveFirst 6277 0 1 405
  1451. FontDlg 6359 3 5 415
  1452. OrgMerge 7208 0 -1 472
  1453. OrgMergeBak 7721 0 -1 485
  1454. [macse]
  1455. 14 GetAddress
  1456. 0 286 "Lotus Applications" "Organize" "Lotus.INI"
  1457. 13
  1458. 8 1
  1459. 0 286 "Settings" "OrgFilesPath" "Organize.INI"
  1460. 13
  1461. 8 2
  1462. 0 798
  1463. 13
  1464. 8 3
  1465. 0 268
  1466. 13
  1467. 8 4
  1468. 0 774 "TEMP"
  1469. 13
  1470. 8 5
  1471. 0 16 "{4}" "_OrgData.Sam"
  1472. 13
  1473. 8 6
  1474. 16 GetOpenOrgFileName
  1475. 13
  1476. 8 7
  1477. 6 7
  1478. 5 0
  1479. 18 0
  1480. 11 00000296
  1481. 6 0
  1482. 15
  1483. 9
  1484. 6 7
  1485. 7 ""
  1486. 18 0
  1487. 11 00000390
  1488. 0 3 "Es ist keine Datei in Organizer ge<\v>ffnet."
  1489. 5 0
  1490. 15
  1491. 9
  1492. 0 286 "OrganizerMerge" "AddressSection" "AmiPro2.Ini"
  1493. 13
  1494. 8 8
  1495. 6 8
  1496. 7 ""
  1497. 18 0
  1498. 11 00000503
  1499. 7 "Adressen"
  1500. 8 8
  1501. 16 FontDlg 1 0 0
  1502. 0 41 0 "InitDlg"
  1503. 0 31 1003 "{7}"
  1504. 0 31 1004 "Geben Sie das Organizer Register ein, das Sie als Quelle f<\|>r die Mischdatendatei verwenden m<\v>chten. Nachdem die Datendatei erstellt wurde, f<\|>hren Sie Schritt 2 des Mischvorgangs aus: Erstellen oder Bearbeiten eines Mischdokuments."
  1505. 0 31 1005 "Willkommen im Organizer 2.x Mischassistent"
  1506. 0 31 8000 "{8}"
  1507. 0 26 "." "OrgMerge"
  1508. 13
  1509. 8 9
  1510. 16 FontDlg 4 0 0
  1511. 6 9
  1512. 5 1
  1513. 18 1
  1514. 11 00000971
  1515. 5 0
  1516. 15
  1517. 9
  1518. 7 "Nachname"
  1519. 8 10
  1520. 0 27 8000
  1521. 13
  1522. 8 11
  1523. 0 287 "OrganizerMerge" "AddressSection" "{11}" "AmiPro2.Ini"
  1524. 5 -1
  1525. 16 CreateAmiDataFile "{11}" "{10}" "{7}"
  1526. 13
  1527. 18 0
  1528. 11 00001157
  1529. 6 0
  1530. 15
  1531. 9
  1532. 0 779 "{6}"
  1533. 2 104 1 "{6}" 32 "" ""
  1534. 0 34 1 0
  1535. 5 1
  1536. 2 147 1
  1537. 13
  1538. 18 0
  1539. 11 00001351
  1540. 0 1050
  1541. 13
  1542. 5 1
  1543. 18 5
  1544. 11 00001333
  1545. 24 101
  1546. 13
  1547. 11 00001320
  1548. 2 780 1 "{6}" ""
  1549. 10 00001351
  1550. 2 780 1 "{6}" ""
  1551. 6 0
  1552. 15
  1553. 9
  1554. 14 InitDlg
  1555. 16 FontDlg 3 "{0}" 1000
  1556. 16 FontDlg 3 "{0}" 1004
  1557. 16 FontDlg 3 "{0}" 1003
  1558. 6 3
  1559. 15
  1560. 9
  1561. 14 GetOpenOrgFileName
  1562. 0 8 "ORGANIZE200" "System"
  1563. 13
  1564. 8 1
  1565. 6 1
  1566. 5 0
  1567. 18 0
  1568. 11 00000215
  1569. 0 3 "Kann Organizer 2.x nicht finden. Bitte starten Sie Organizer 2.x und versuchen Sie es erneut."
  1570. 5 0
  1571. 15
  1572. 9
  1573. 10 00000483
  1574. 0 10 "{1}" "Topics"
  1575. 13
  1576. 8 2
  1577. 0 39 9
  1578. 13
  1579. 0 13 1 "{2}" [X]
  1580. 13
  1581. 8 3
  1582. 5 -1
  1583. 6 3
  1584. 18 0
  1585. 11 00000402
  1586. 0 3 "Es ist keine Datei in Organizer ge<\v>ffnet."
  1587. 0 9 "{1}"
  1588. 5 0
  1589. 15
  1590. 9
  1591. 10 00000472
  1592. 6 3
  1593. 5 1
  1594. 3 0
  1595. 0 14 "{2}"
  1596. 13
  1597. 6 3
  1598. 3 1
  1599. 0 15 "{2}" [X] [X]
  1600. 13
  1601. 8 4
  1602. 0 9 "{1}"
  1603. 6 4
  1604. 15
  1605. 9
  1606. 6 0
  1607. 15
  1608. 9
  1609. 14 CreateAmiDataFile
  1610. 19 00004005
  1611. 0 8 "ORGANIZE200" "{2}"
  1612. 13
  1613. 8 4
  1614. 6 4
  1615. 5 0
  1616. 18 0
  1617. 11 00000212
  1618. 0 3 "DDE konnte nicht eingeleitet werden, wahrscheinlich weil die Datei {2} nicht ge<\v>ffnet ist."
  1619. 5 -1
  1620. 15
  1621. 9
  1622. 5 32
  1623. 8 5
  1624. 6 5
  1625. 21 6 [X]
  1626. 5 1
  1627. 7 "Categories"
  1628. 23 6
  1629. 5 2
  1630. 7 "FirstName"
  1631. 23 6
  1632. 5 3
  1633. 7 "LastName"
  1634. 23 6
  1635. 5 4
  1636. 7 "Title"
  1637. 23 6
  1638. 5 5
  1639. 7 "Position"
  1640. 23 6
  1641. 5 6
  1642. 7 "Company"
  1643. 23 6
  1644. 5 7
  1645. 7 "Address"
  1646. 23 6
  1647. 5 8
  1648. 7 "City"
  1649. 23 6
  1650. 5 9
  1651. 7 "State"
  1652. 23 6
  1653. 5 10
  1654. 7 "Zip"
  1655. 23 6
  1656. 5 11
  1657. 7 "Country"
  1658. 23 6
  1659. 5 12
  1660. 7 "Phone"
  1661. 23 6
  1662. 5 13
  1663. 7 "Extn"
  1664. 23 6
  1665. 5 14
  1666. 7 "Fax"
  1667. 23 6
  1668. 5 15
  1669. 7 "E-mail"
  1670. 23 6
  1671. 5 16
  1672. 7 "Business Tel2"
  1673. 23 6
  1674. 5 17
  1675. 7 "Assistant"
  1676. 23 6
  1677. 5 18
  1678. 7 "Notes"
  1679. 23 6
  1680. 5 19
  1681. 7 "Spouse"
  1682. 23 6
  1683. 5 20
  1684. 7 "Children"
  1685. 23 6
  1686. 5 21
  1687. 7 "Home-Address"
  1688. 23 6
  1689. 5 22
  1690. 7 "Home-City"
  1691. 23 6
  1692. 5 23
  1693. 7 "Home-State"
  1694. 23 6
  1695. 5 24
  1696. 7 "Home-Zip"
  1697. 23 6
  1698. 5 25
  1699. 7 "Home-Country"
  1700. 23 6
  1701. 5 26
  1702. 7 "Home-Phone"
  1703. 23 6
  1704. 5 27
  1705. 7 "Home-Extn"
  1706. 23 6
  1707. 5 28
  1708. 7 "Home-Fax"
  1709. 23 6
  1710. 5 29
  1711. 7 "Home-EMail"
  1712. 23 6
  1713. 5 30
  1714. 7 "Home-Unused1"
  1715. 23 6
  1716. 5 31
  1717. 7 "Home-Unused2"
  1718. 23 6
  1719. 5 32
  1720. 7 "Home-Notes"
  1721. 23 6
  1722. 6 5
  1723. 21 7 [X]
  1724. 5 1
  1725. 7 "Kategorien"
  1726. 23 7
  1727. 5 2
  1728. 7 "Vorname"
  1729. 23 7
  1730. 5 3
  1731. 7 "Nachname"
  1732. 23 7
  1733. 5 4
  1734. 7 "Titel"
  1735. 23 7
  1736. 5 5
  1737. 7 "Position"
  1738. 23 7
  1739. 5 6
  1740. 7 "Firma"
  1741. 23 7
  1742. 5 7
  1743. 7 "Stra<\_>e"
  1744. 23 7
  1745. 5 8
  1746. 7 "Ort"
  1747. 23 7
  1748. 5 9
  1749. 7 "Bundesld"
  1750. 23 7
  1751. 5 10
  1752. 7 "PLZ"
  1753. 23 7
  1754. 5 11
  1755. 7 "Land"
  1756. 23 7
  1757. 5 12
  1758. 7 "Tel"
  1759. 23 7
  1760. 5 13
  1761. 7 "App."
  1762. 23 7
  1763. 5 14
  1764. 7 "Fax"
  1765. 23 7
  1766. 5 15
  1767. 7 "E-Mail"
  1768. 23 7
  1769. 5 16
  1770. 7 "Unben 1"
  1771. 23 7
  1772. 5 17
  1773. 7 "Unben 1"
  1774. 23 7
  1775. 5 18
  1776. 7 "Notizen"
  1777. 23 7
  1778. 5 19
  1779. 7 "Privat</V>Titel"
  1780. 23 7
  1781. 5 20
  1782. 7 "Privat</V>Firma"
  1783. 23 7
  1784. 5 21
  1785. 7 "Privat</V>Stra<\_>e"
  1786. 23 7
  1787. 5 22
  1788. 7 "Privat</V>Ort"
  1789. 23 7
  1790. 5 23
  1791. 7 "Privat</V>Bundesld"
  1792. 23 7
  1793. 5 24
  1794. 7 "Privat</V>PLZ"
  1795. 23 7
  1796. 5 25
  1797. 7 "Privat</V>Land"
  1798. 23 7
  1799. 5 26
  1800. 7 "Privat</V>Tel"
  1801. 23 7
  1802. 5 27
  1803. 7 "Privat</V>App"
  1804. 23 7
  1805. 5 28
  1806. 7 "Privat</V>Fax"
  1807. 23 7
  1808. 5 29
  1809. 7 "Privat</V>E-Mail"
  1810. 23 7
  1811. 5 30
  1812. 7 "Privat</V>Unben 1"
  1813. 23 7
  1814. 5 31
  1815. 7 "Tel2"
  1816. 23 7
  1817. 5 32
  1818. 7 "Privat</V>Notizen"
  1819. 23 7
  1820. 7 "[[SelectSection(""{0}"")]"
  1821. 8 8
  1822. 0 11 "{4}" "{8}"
  1823. 13
  1824. 8 9
  1825. 6 9
  1826. 5 -1
  1827. 18 0
  1828. 11 00002140
  1829. 0 3 "Das Register Adressen konnte nicht gefunden werden. Verwendetes Register = {0}"
  1830. 10 00004005
  1831. 7 "[[SelectIndex(""{1}"")]"
  1832. 8 8
  1833. 0 11 "{4}" "{8}"
  1834. 13
  1835. 8 9
  1836. 6 9
  1837. 5 -1
  1838. 18 0
  1839. 11 00002314
  1840. 0 3 "Zus<\d>tzlicher Index konnte nicht gefunden werden."
  1841. 5 0
  1842. 8 10
  1843. 10 00004005
  1844. 7 "[[Find(""<<FIRST>"")]"
  1845. 8 8
  1846. 0 11 "{4}" "{8}"
  1847. 13
  1848. 8 9
  1849. 6 9
  1850. 5 -1
  1851. 18 0
  1852. 11 00002483
  1853. 0 3 "Suchanweisung konnte nicht ausgef<\|>hrt werden."
  1854. 5 0
  1855. 8 10
  1856. 10 00004005
  1857. 0 1050
  1858. 13
  1859. 5 1
  1860. 18 5
  1861. 11 00002589
  1862. 0 286 "AmiPro" "DefStyle" "AmiPro.ini"
  1863. 13
  1864. 8 11
  1865. 2 101 1 "{11}" 1 0
  1866. 2 784 1
  1867. 13
  1868. 11 00002628
  1869. 10 00002641
  1870. 5 -1
  1871. 15
  1872. 9
  1873. 0 284 "user,GetFocus,H"
  1874. 13
  1875. 8 12
  1876. 0 296 1
  1877. 0 284 "User,LockWindowUpdate,AH" "{12}"
  1878. 0 789 "Erstelle Feldnamen f<\|>r die Ami Pro Datendatei"
  1879. 0 6 "[16420][36][4131][16420]~|[13]"
  1880. 5 1
  1881. 8 13
  1882. 6 5
  1883. 6 13
  1884. 18 2
  1885. 12 00002911
  1886. 10 00002954
  1887. 5 1
  1888. 6 13
  1889. 3 0
  1890. 8 13
  1891. 10 00002833
  1892. 6 13
  1893. 22 7
  1894. 0 6 [X]
  1895. 0 6 "~"
  1896. 10 00002876
  1897. 0 6 "[8]|[13]"
  1898. 5 0
  1899. 8 14
  1900. 5 0
  1901. 8 15
  1902. 6 9
  1903. 5 -1
  1904. 18 1
  1905. 6 15
  1906. 5 10
  1907. 18 5
  1908. 1 1
  1909. 11 00003974
  1910. 5 1
  1911. 8 16
  1912. 7 ""
  1913. 8 17
  1914. 5 1
  1915. 8 13
  1916. 6 5
  1917. 6 13
  1918. 18 2
  1919. 12 00003157
  1920. 10 00003263
  1921. 5 1
  1922. 6 13
  1923. 3 0
  1924. 8 13
  1925. 10 00003079
  1926. 6 13
  1927. 22 6
  1928. 0 10 "{4}" [X]
  1929. 13
  1930. 8 18
  1931. 6 18
  1932. 7 ""
  1933. 18 1
  1934. 11 00003250
  1935. 5 0
  1936. 8 16
  1937. 10 00003263
  1938. 10 00003122
  1939. 6 16
  1940. 5 0
  1941. 18 0
  1942. 11 00003484
  1943. 5 1
  1944. 8 13
  1945. 6 5
  1946. 6 13
  1947. 18 2
  1948. 12 00003382
  1949. 10 00003484
  1950. 5 1
  1951. 6 13
  1952. 3 0
  1953. 8 13
  1954. 10 00003304
  1955. 6 13
  1956. 22 6
  1957. 0 10 "{4}" [X]
  1958. 13
  1959. 8 18
  1960. 0 6 "{18}"
  1961. 6 13
  1962. 6 5
  1963. 18 5
  1964. 11 00003471
  1965. 0 6 "~"
  1966. 10 00003347
  1967. 0 16 "Konvertiere Datensatznummer:" "{14}"
  1968. 13
  1969. 8 19
  1970. 0 789 "{19}"
  1971. 6 16
  1972. 5 1
  1973. 18 0
  1974. 11 00003690
  1975. 6 15
  1976. 5 1
  1977. 3 0
  1978. 8 15
  1979. 0 16 "<\\>berspringe leeren Datensatz: " "{15}"
  1980. 13
  1981. 8 20
  1982. 0 789 "{20}"
  1983. 10 00003782
  1984. 0 16 "Konvertiere Datensatznummer:" "{14}"
  1985. 13
  1986. 8 19
  1987. 0 789 "{19}"
  1988. 5 0
  1989. 8 21
  1990. 0 6 "|[13]"
  1991. 7 "[[Find(""<<NEXT>"")]"
  1992. 8 8
  1993. 0 11 "{4}" "{8}"
  1994. 13
  1995. 8 9
  1996. 6 9
  1997. 5 -1
  1998. 18 0
  1999. 11 00003939
  2000. 0 3 "Suchanweisung konnte nicht ausgef<\|>hrt werden."
  2001. 10 00004005
  2002. 6 14
  2003. 5 1
  2004. 3 0
  2005. 8 14
  2006. 10 00002992
  2007. 0 789 "Sortiere die Daten..."
  2008. 0 284 "User,LockWindowUpdate,AH" ""
  2009. 0 9 "{4}"
  2010. 6 3
  2011. 15
  2012. 9
  2013. 14 SortTheRecords
  2014. 5 1
  2015. 8 4
  2016. 5 1
  2017. 8 5
  2018. 16 MoveFirst
  2019. 0 6 "[20515]"
  2020. 5 1
  2021. 8 6
  2022. 5 2
  2023. 8 7
  2024. 6 6
  2025. 6 7
  2026. 3 0
  2027. 5 4096
  2028. 3 0
  2029. 8 8
  2030. 0 1044 &1 "{0}"
  2031. 13
  2032. 8 9
  2033. 2 456 1 "{9}" 1 1 1 "{2}" 4099
  2034. 0 1311 "KeyField" "{9}"
  2035. 0 6 "[16420]"
  2036. 5 1
  2037. 15
  2038. 9
  2039. 6 3
  2040. 15
  2041. 9
  2042. 14 MoveFirst
  2043. 0 6 "[16420]"
  2044. 0 6 "[16424][16424][39]"
  2045. 0 6 "[20520]"
  2046. 6 0
  2047. 15
  2048. 9
  2049. 14 FontDlg
  2050. 5 1
  2051. 6 0
  2052. 18 0
  2053. 11 00000255
  2054. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  2055. 13
  2056. 8 4
  2057. 0 271 "FontHandle" 1
  2058. 6 4
  2059. 11 00000217
  2060. 0 264 "FontHandle" "{4}"
  2061. 6 4
  2062. 15
  2063. 9
  2064. 10 00000229
  2065. 5 0
  2066. 15
  2067. 9
  2068. 10 00000837
  2069. 10 00000837
  2070. 5 2
  2071. 6 0
  2072. 18 0
  2073. 11 00000381
  2074. 0 265 "FontHandle"
  2075. 13
  2076. 8 5
  2077. 6 5
  2078. 11 00000356
  2079. 6 5
  2080. 15
  2081. 9
  2082. 10 00000368
  2083. 5 0
  2084. 15
  2085. 9
  2086. 10 00000837
  2087. 5 3
  2088. 6 0
  2089. 18 0
  2090. 11 00000596
  2091. 0 265 "FontHandle"
  2092. 13
  2093. 8 5
  2094. 6 5
  2095. 11 00000558
  2096. 0 44 "{1}" "{2}"
  2097. 13
  2098. 8 6
  2099. 0 284 "user,SendMessage,HHHHJ" "{6}" 48 "{5}" 0
  2100. 5 1
  2101. 15
  2102. 9
  2103. 10 00000570
  2104. 5 0
  2105. 15
  2106. 9
  2107. 10 00000837
  2108. 10 00000837
  2109. 5 4
  2110. 6 0
  2111. 18 0
  2112. 11 00000785
  2113. 0 265 "FontHandle"
  2114. 13
  2115. 8 5
  2116. 6 5
  2117. 11 00000730
  2118. 0 284 "gdi,DeleteObject,HH" "{5}"
  2119. 5 1
  2120. 8 7
  2121. 10 00000740
  2122. 5 0
  2123. 8 7
  2124. 0 266 "FontHandle"
  2125. 6 7
  2126. 15
  2127. 9
  2128. 10 00000837
  2129. 0 3 "Fontdlg ung<\|>ltigen Parameter erhalten {0}"
  2130. 6 3
  2131. 15
  2132. 9
  2133. DIALOG OrgMerge
  2134. -2134376448 8 56 56 220 110 "" "" "Organizer 2.x Mischassistent" 
  2135. FONT 8 "HELV" 
  2136. 172 3 40 14 1 1342373889 "button" "OK" 0 
  2137. 172 20 40 14 2 1342373888 "button" "Abbrechen" 0 
  2138. 5 87 30 8 1001 1342177280 "static" "Register:" 0 
  2139. 40 85 83 12 8000 1350631552 "edit" "" 0 
  2140. 82 65 100 10 1003 1342177280 "static" "Dateiname" 0 
  2141. 5 65 76 8 1000 1342177280 "static" "Aktueller Organizer Dateiname:" 0 
  2142. 5 17 150 34 1004 1342177280 "static" "text" 0 
  2143. 5 3 160 8 1005 1342177280 "static" "Willkommen" 0 
  2144. DIALOG OrgMergeBak
  2145. -2134376448 10 56 56 220 117 "" "" "Organizer 2.x Mischassistent" 
  2146. FONT 8 "HELV" 
  2147. 172 3 40 14 1 1342373889 "button" "OK" 0 
  2148. 172 20 40 14 2 1342373888 "button" "Cancel" 0 
  2149. 5 67 30 8 1001 1342177280 "static" "Section:" 0 
  2150. 5 88 29 8 1002 1342177280 "static" "Sort by:" 0 
  2151. 40 86 84 44 9501 1344274435 "combobox" "" 0 
  2152. 40 65 83 12 8000 1350631552 "edit" "" 0 
  2153. 82 50 100 10 1003 1342177280 "static" "filename" 0 
  2154. 5 50 76 8 1000 1342177280 "static" "Current Organizer filename:" 0 
  2155. 5 14 150 34 1004 1342177280 "static" "text" 0 
  2156. 5 3 160 8 1005 1342177280 "static" "Welcome" 0 
  2157. 00028624
  2158.