home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 4.0 / TESTDRIVE_4.ISO / ascend / ascami2.smm < prev    next >
Encoding:
INI File  |  1992-10-29  |  64.3 KB  |  3,666 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. [prn]
  12.     NEC Silentwriter LC890XL
  13. [port]
  14.     LPT2:
  15. [lang]
  16.     1
  17. [desc]
  18.     Ascend Insert Field, uses DDE to insert a field from one of Ascend's Address and Phone module entries
  19.     
  20.     
  21.     
  22.     
  23.     720371784
  24.     20
  25.     719679532
  26.     1375
  27.     18
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     3
  51. [GramStyle]
  52.     
  53. [tag]
  54.     Body Text
  55.     2
  56.     [fnt]
  57.         TimesNewRomanPS
  58.         240
  59.         0
  60.         49152
  61.     [algn]
  62.         1
  63.         1
  64.         0
  65.         0
  66.         0
  67.     [spc]
  68.         33
  69.         273
  70.         1
  71.         0
  72.         0
  73.         1
  74.         100
  75.     [brk]
  76.         4
  77.     [line]
  78.         8
  79.         0
  80.         1
  81.         0
  82.         1
  83.         1
  84.         1
  85.         10
  86.         10
  87.         1
  88.     [spec]
  89.         0
  90.         0
  91.         
  92.         0
  93.         1
  94.         1
  95.         0
  96.         0
  97.         0
  98.         0
  99.     [nfmt]
  100.         280
  101.         1
  102.         2
  103.         .
  104.         ,
  105.         $
  106.     Body Text
  107.     0
  108.     0
  109. [tag]
  110.     Body Single
  111.     3
  112.     [fnt]
  113.         TimesNewRomanPS
  114.         240
  115.         0
  116.         49152
  117.     [algn]
  118.         1
  119.         1
  120.         0
  121.         0
  122.         0
  123.     [spc]
  124.         33
  125.         273
  126.         1
  127.         0
  128.         0
  129.         1
  130.         100
  131.     [brk]
  132.         4
  133.     [line]
  134.         8
  135.         0
  136.         1
  137.         0
  138.         1
  139.         1
  140.         1
  141.         10
  142.         10
  143.         1
  144.     [spec]
  145.         0
  146.         0
  147.         
  148.         0
  149.         1
  150.         1
  151.         0
  152.         0
  153.         0
  154.         0
  155.     [nfmt]
  156.         280
  157.         1
  158.         2
  159.         .
  160.         ,
  161.         $
  162.     Body Single
  163.     0
  164.     0
  165. [tag]
  166.     Bullet
  167.     4
  168.     [fnt]
  169.         TimesNewRomanPS
  170.         240
  171.         0
  172.         49152
  173.     [algn]
  174.         1
  175.         1
  176.         0
  177.         288
  178.         288
  179.     [spc]
  180.         33
  181.         273
  182.         1
  183.         0
  184.         0
  185.         1
  186.         100
  187.     [brk]
  188.         4
  189.     [line]
  190.         8
  191.         0
  192.         1
  193.         0
  194.         1
  195.         1
  196.         1
  197.         10
  198.         10
  199.         1
  200.     [spec]
  201.         0
  202.         0
  203.         <*0>
  204.         360
  205.         1
  206.         1
  207.         0
  208.         0
  209.         0
  210.         0
  211.     [nfmt]
  212.         272
  213.         1
  214.         2
  215.         .
  216.         ,
  217.         $
  218.     Bullet
  219.     0
  220.     0
  221. [tag]
  222.     Bullet 1
  223.     5
  224.     [fnt]
  225.         TimesNewRomanPS
  226.         240
  227.         0
  228.         49152
  229.     [algn]
  230.         1
  231.         1
  232.         288
  233.         288
  234.         288
  235.     [spc]
  236.         33
  237.         273
  238.         1
  239.         0
  240.         0
  241.         1
  242.         100
  243.     [brk]
  244.         4
  245.     [line]
  246.         8
  247.         0
  248.         1
  249.         0
  250.         1
  251.         1
  252.         1
  253.         10
  254.         10
  255.         1
  256.     [spec]
  257.         0
  258.         0
  259.         <*5>
  260.         0
  261.         1
  262.         1
  263.         0
  264.         0
  265.         0
  266.         0
  267.     [nfmt]
  268.         280
  269.         1
  270.         2
  271.         .
  272.         ,
  273.         $
  274.     Bullet 1
  275.     0
  276.     0
  277. [tag]
  278.     Number List
  279.     6
  280.     [fnt]
  281.         TimesNewRomanPS
  282.         240
  283.         0
  284.         49152
  285.     [algn]
  286.         1
  287.         1
  288.         360
  289.         360
  290.         360
  291.     [spc]
  292.         33
  293.         273
  294.         1
  295.         0
  296.         0
  297.         1
  298.         100
  299.     [brk]
  300.         4
  301.     [line]
  302.         8
  303.         0
  304.         1
  305.         0
  306.         1
  307.         1
  308.         1
  309.         10
  310.         10
  311.         1
  312.     [spec]
  313.         0
  314.         0
  315.         <*:>.
  316.         360
  317.         1
  318.         1
  319.         0
  320.         0
  321.         0
  322.         0
  323.     [nfmt]
  324.         272
  325.         1
  326.         2
  327.         .
  328.         ,
  329.         $
  330.     Number List
  331.     0
  332.     0
  333. [tag]
  334.     Subhead
  335.     7
  336.     [fnt]
  337.         TimesNewRomanPS
  338.         240
  339.         0
  340.         49155
  341.     [algn]
  342.         1
  343.         1
  344.         0
  345.         0
  346.         0
  347.     [spc]
  348.         33
  349.         273
  350.         1
  351.         72
  352.         72
  353.         1
  354.         100
  355.     [brk]
  356.         4
  357.     [line]
  358.         8
  359.         0
  360.         1
  361.         0
  362.         1
  363.         1
  364.         1
  365.         10
  366.         10
  367.         1
  368.     [spec]
  369.         0
  370.         2
  371.         
  372.         0
  373.         1
  374.         1
  375.         0
  376.         0
  377.         0
  378.         0
  379.     [nfmt]
  380.         272
  381.         1
  382.         2
  383.         .
  384.         ,
  385.         $
  386.     Subhead
  387.     0
  388.     0
  389. [tag]
  390.     Title
  391.     8
  392.     [fnt]
  393.         Arial MT
  394.         360
  395.         0
  396.         16385
  397.     [algn]
  398.         4
  399.         1
  400.         0
  401.         0
  402.         0
  403.     [spc]
  404.         33
  405.         446
  406.         1
  407.         144
  408.         72
  409.         1
  410.         100
  411.     [brk]
  412.         16
  413.     [line]
  414.         8
  415.         0
  416.         1
  417.         0
  418.         1
  419.         1
  420.         1
  421.         10
  422.         10
  423.         1
  424.     [spec]
  425.         0
  426.         1
  427.         
  428.         0
  429.         1
  430.         1
  431.         0
  432.         0
  433.         0
  434.         0
  435.     [nfmt]
  436.         272
  437.         1
  438.         2
  439.         .
  440.         ,
  441.         $
  442.     Title
  443.     0
  444.     0
  445. [lay]
  446.     Standard
  447.     513
  448.     [rght]
  449.         15840
  450.         12240
  451.         1
  452.         1440
  453.         1440
  454.         1
  455.         1440
  456.         1440
  457.         0
  458.         1
  459.         0
  460.         1
  461.         0
  462.         2
  463.         1
  464.         1440
  465.         10800
  466.         12
  467.         1
  468.         720
  469.         1
  470.         1440
  471.         1
  472.         2160
  473.         1
  474.         2880
  475.         1
  476.         3600
  477.         1
  478.         4320
  479.         1
  480.         5040
  481.         1
  482.         5760
  483.         1
  484.         6480
  485.         1
  486.         7200
  487.         1
  488.         7920
  489.         1
  490.         8640
  491.     [hrght]
  492.     [lyfrm]
  493.         1
  494.         11200
  495.         0
  496.         0
  497.         12240
  498.         1440
  499.         0
  500.         1
  501.         3
  502.         1 0 0 0 0 0 0
  503.         0
  504.         0
  505.         1
  506.     [frmlay]
  507.         1440
  508.         12240
  509.         1
  510.         1440
  511.         72
  512.         1
  513.         792
  514.         1440
  515.         0
  516.         1
  517.         0
  518.         1
  519.         1
  520.         0
  521.         1
  522.         1440
  523.         10800
  524.         1
  525.         3
  526.         9360
  527.     [txt]
  528. >
  529.     [frght]
  530.     [lyfrm]
  531.         1
  532.         13248
  533.         0
  534.         14400
  535.         12240
  536.         15840
  537.         0
  538.         1
  539.         3
  540.         1 0 0 0 0 0 0
  541.         0
  542.         0
  543.         2
  544.     [frmlay]
  545.         15840
  546.         12240
  547.         1
  548.         1440
  549.         792
  550.         1
  551.         14472
  552.         1440
  553.         0
  554.         1
  555.         0
  556.         1
  557.         1
  558.         0
  559.         1
  560.         1440
  561.         10800
  562.         2
  563.         2
  564.         4680
  565.         3
  566.         9360
  567.     [txt]
  568.  
  569. >
  570. [elay]
  571. [l1]
  572.     0
  573. [edoc]
  574. <+@><:#278,9360>'    Ascend Insert Field
  575.  
  576. <+@><:#278,9360>'    Franklin Quest Co.
  577.  
  578. <+@><:#278,9360>'    Copyright </i> 1992
  579.  
  580. <+@><:#278,9360>
  581.  
  582. <+@><:#278,9360>'    This Macro accesses Franklin Quest's Ascend for Windows through DDE (Dynamic
  583.  
  584. <+@><:#278,9360>'    Data Exchange) to insert fields from Ascend's Address and Phone module into
  585.  
  586. <+@><:#278,9360>'    Ami Professional documents.
  587.  
  588. <+@><:#278,9360>
  589.  
  590. <+@><:#278,9360>
  591.  
  592. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  593.  
  594. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  595.  
  596. <+@><:#278,9360>Function Main()
  597.  
  598. <+@><:#278,9360>    Declare SetupDDE();
  599.  
  600. <+@><:#278,9360>    Declare CloseDDE();
  601.  
  602. <+@><:#278,9360>    Declare FreeGlobals();
  603.  
  604. <+@><:#278,9360>    Declare AscendGetFieldDialog(theName$);
  605.  
  606. <+@><:#278,9360>    Declare DoCustomFields(theField);
  607.  
  608. <+@><:#278,9360>    Declare FixName();
  609.  
  610. <+@><:#278,9360>    Declare InsertAscendField(theField, enter);
  611.  
  612. <+@><:#278,9360>
  613.  
  614. <+@><:#278,9360>    Defstr f, DDEChannel, errorMsg$, macroPath$, selectedRecord, selectedName$;
  615.  
  616. <+@><:#278,9360>
  617.  
  618. <+@><:#278,9360>    '  Global Variables
  619.  
  620. <+@><:#278,9360>    AllocGlobalVar("DDEChannel", 1);
  621.  
  622. <+@><:#278,9360>    AllocGlobalVar("selectedName$", 1);
  623.  
  624. <+@><:#278,9360>    AllocGlobalVar("selectedRecord", 1);
  625.  
  626. <+@><:#278,9360>    AllocGlobalVar("errorMsg$", 1);
  627.  
  628. <+@>    AllocGlobalVar("fields$", 59);
  629.  
  630. <+@><:#278,9360>
  631.  
  632. <+@><:#278,9360>    SetGlobalVar("errorMsg$", "An error occurred.");
  633.  
  634. <+@><:#278,9360>
  635.  
  636. <+@><:#278,9360>    Onerror reportError;
  637.  
  638. <+@><:#278,9360>
  639.  
  640. <+@><:#278,9360>    if (SetupDDE() = 0) then        '  Establish DDE communications
  641.  
  642. <+@><:#278,9360>        FreeGlobals();
  643.  
  644. <+@><:#278,9360>        Message("Can't initiate DDE communications with Ascend.", "DDE error");
  645.  
  646. <+@><:#278,9360>        Exit Function;
  647.  
  648. <+@><:#278,9360>    endif
  649.  
  650. <+@><:#278,9360>
  651.  
  652. <+@><:#278,9360>    DDEChannel = GetGlobalVar$("DDEChannel");
  653.  
  654. <+@><:#278,9360>
  655.  
  656. <+@>    '    Get the active record from Ascend.  If there isn't one,
  657.  
  658. <+@>    '    run the Ascend Find Name macro first.
  659.  
  660. <+@><:#278,9360>    selectedRecord = DDEReceive$(DDEChannel, "GetActiveRecord");
  661.  
  662. <+@><:#278,9360>    if selectedRecord = 0 then
  663.  
  664. <+@><:#278,9360>        CloseDDE();
  665.  
  666. <+@><:#278,9360>        macroPath$ = strcat$(GetMacPath$(), "ASCAMI1.SMM!Main");
  667.  
  668. <+@>        Calli macroPath$();
  669.  
  670. <+@>        Exit Function;
  671.  
  672. <+@><:#278,9360>    endif
  673.  
  674. <+@><:#278,9360>
  675.  
  676. <+@><:#278,9360>    SetGlobalVar("selectedRecord", selectedRecord);
  677.  
  678. <+@><:#556,9360>    selectedName$ = DDEReceive$(DDEChannel, strcat$("GetRec:", selectedRecord, ":Last"));
  679.  
  680. <+@><:#278,9360>    FixName();
  681.  
  682. <+@><:#278,9360>
  683.  
  684. <+@><:#278,9360>    f = AscendGetFieldDialog(selectedRecord);
  685.  
  686. <+@><:#278,9360>    if f << 0 then
  687.  
  688. <+@><:#278,9360>        CloseDDE();
  689.  
  690. <+@><:#278,9360>        FreeGlobals()
  691.  
  692. <+@><:#278,9360>        Exit Function;
  693.  
  694. <+@><:#278,9360>    endif
  695.  
  696. <+@><:#278,9360>
  697.  
  698. <+@><:#278,9360>    '    Special case for custom fields or Contact History
  699.  
  700. <+@><:#278,9360>    if f << 9 or f = 59 then
  701.  
  702. <+@><:#278,9360>        DoCustomFields(f)
  703.  
  704. <+@><:#278,9360>    else
  705.  
  706. <+@><:#278,9360>        InsertAscendField(f, FALSE);
  707.  
  708. <+@><:#278,9360>    endif
  709.  
  710. <+@><:#278,9360>
  711.  
  712. <+@><:#278,9360>    CloseDDE();
  713.  
  714. <+@><:#278,9360>    FreeGlobals();
  715.  
  716. <+@><:#278,9360>    Exit Function;
  717.  
  718. <+@><:#278,9360>
  719.  
  720. <+@><:#278,9360>reportError:
  721.  
  722. <+@><:#278,9360>    CloseDDE();
  723.  
  724. <+@><:#278,9360>
  725.  
  726. <+@><:#278,9360>    errorMsg$ = GetGlobalVar$("errorMsg$");
  727.  
  728. <+@><:#278,9360>    Message(errorMsg$, "Ascend Find Name");
  729.  
  730. <+@><:#278,9360>
  731.  
  732. <+@><:#278,9360>    FreeGlobals();
  733.  
  734. <+@><:#278,9360>End Function
  735.  
  736. <+@><:#278,9360>
  737.  
  738. <+@><:#278,9360>
  739.  
  740. <+@><:#278,9360>
  741.  
  742. <+@><:#278,9360>
  743.  
  744. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  745.  
  746. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  747.  
  748. <+@><:#278,9360>Function FreeGlobals()
  749.  
  750. <+@><:#278,9360>    FreeGlobalVar("DDEChannel");
  751.  
  752. <+@><:#278,9360>    FreeGlobalVar("selectedName$");
  753.  
  754. <+@><:#278,9360>    FreeGlobalVar("selectedRecord");
  755.  
  756. <+@><:#278,9360>    FreeGlobalVar("errorMsg$");
  757.  
  758. <+@>    FreeGlobalVar("fields$");
  759.  
  760. <+@><:#278,9360>End Function
  761.  
  762. <+@><:#278,9360>
  763.  
  764. <+@><:#278,9360>
  765.  
  766. <+@><:#278,9360>
  767.  
  768. <+@><:#278,9360>
  769.  
  770. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  771.  
  772. <+@><:#278,9360>'    SetErrorMessage() sets the global error message to the given string and returns
  773.  
  774. <+@><:#278,9360>'    the previous value
  775.  
  776. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  777.  
  778. <+@><:#278,9360>Function SetErrorMessage$(msg$)
  779.  
  780. <+@><:#278,9360>    SetErrorMessage = GetGlobalVar$("errorMsg$");
  781.  
  782. <+@><:#278,9360>    SetGlobalVar("errorMsg$", msg$);
  783.  
  784. <+@><:#278,9360>End Function
  785.  
  786. <+@><:#278,9360>
  787.  
  788. <+@><:#278,9360>
  789.  
  790. <+@><:#278,9360>
  791.  
  792. <+@><:#278,9360>
  793.  
  794. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  795.  
  796. <+@><:#278,9360>'    SetupDDE() establishes the DDE connection with Ascend.
  797.  
  798. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  799.  
  800. <+@><:#278,9360>Function SetupDDE()
  801.  
  802. <+@><:#278,9360>    Defstr DDEChannel, oldMsg$;
  803.  
  804. <+@><:#278,9360>
  805.  
  806. <+@><:#278,9360>    '    Prepare error message
  807.  
  808. <+@><:#278,9360>    oldMsg$ = SetErrorMessage$("Cannot initiate DDE connection with Ascend.");
  809.  
  810. <+@><:#278,9360>
  811.  
  812. <+@><:#278,9360>    SetupDDE = 1;
  813.  
  814. <+@><:#278,9360>
  815.  
  816. <+@><:#278,9360>    DDEChannel = DDEInitiate("Ascend", "Phone");
  817.  
  818. <+@><:#278,9360>    if (DDEChannel = 0) ;
  819.  
  820. <+@><:#278,9360>        SetupDDE = 0;
  821.  
  822. <+@><:#278,9360>    Endif
  823.  
  824. <+@><:#278,9360>
  825.  
  826. <+@><:#278,9360>    SetGlobalVar("DDEChannel", DDEChannel);
  827.  
  828. <+@><:#278,9360>
  829.  
  830. <+@><:#278,9360>    '    Restore error Message
  831.  
  832. <+@><:#278,9360>    oldMsg$ = SetErrorMessage$(oldMsg$);
  833.  
  834. <+@><:#278,9360>End Function
  835.  
  836. <+@><:#278,9360>
  837.  
  838. <+@><:#278,9360>
  839.  
  840. <+@><:#278,9360>
  841.  
  842. <+@><:#278,9360>
  843.  
  844. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  845.  
  846. <+@><:#278,9360>'    CloseDDE() closes the DDE connection with Ascend.
  847.  
  848. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  849.  
  850. <+@><:#278,9360>Function CloseDDE()
  851.  
  852. <+@><:#278,9360>    Defstr DDEChannel;
  853.  
  854. <+@><:#278,9360>
  855.  
  856. <+@><:#278,9360>    DDEChannel = GetGlobalVar$("DDEChannel");
  857.  
  858. <+@><:#278,9360>    DDETerminate(DDEChannel);
  859.  
  860. <+@><:#278,9360>    SetGlobalVar("DDEChannel", 0);
  861.  
  862. <+@><:#278,9360>End Function
  863.  
  864. <+@><:#278,9360>
  865.  
  866. <+@><:#278,9360>
  867.  
  868. <+@><:#278,9360>
  869.  
  870. <+@><:#278,9360>
  871.  
  872. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  873.  
  874. <+@>'    InsertAscendField() inserts a DDE link to the desired field and appends an <[>Enter] if
  875.  
  876. <+@>'    specified.
  877.  
  878. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  879.  
  880. <+@><:#278,9360>Function InsertAscendField(theField, enter)
  881.  
  882. <+@><:#278,9360>    Declare TranslateField$(n);
  883.  
  884. <+@><:#278,9360>
  885.  
  886. <+@><:#278,9360>    Defstr DDEChannel, oldMsg$, selectedRecord;
  887.  
  888. <+@><:#278,9360>
  889.  
  890. <+@><:#278,9360>    '    Prepare error message
  891.  
  892. <+@><:#278,9360>    oldMsg$ = SetErrorMessage$("Can't insert field into document.");
  893.  
  894. <+@><:#278,9360>
  895.  
  896. <+@><:#278,9360>    DDEChannel = GetGlobalVar$("DDEChannel");
  897.  
  898. <+@><:#278,9360>    selectedRecord = GetGlobalVar$("selectedRecord");
  899.  
  900. <+@><:#278,9360>
  901.  
  902. <+@><:#556,9360>    DDELinks(5, 0, "Ascend", "Phone", strcat$("GetRec:", selectedRecord, ":", TranslateField$(theField)));
  903.  
  904. <+@>    Type("<[>End]");
  905.  
  906. <+@><:#278,9360>
  907.  
  908. <+@>    if enter then
  909.  
  910. <+@><:#278,9360>        Type("<[>Enter]");
  911.  
  912. <+@><:#278,9360>    endif
  913.  
  914. <+@><:#278,9360>
  915.  
  916. <+@><:#278,9360>    '    Restore error message
  917.  
  918. <+@><:#278,9360>    oldMsg$ = SetErrorMessage$(oldMsg$);
  919.  
  920. <+@><:#278,9360>End Function
  921.  
  922. <+@><:#278,9360>
  923.  
  924. <+@><:#278,9360>
  925.  
  926. <+@><:#278,9360>
  927.  
  928. <+@><:#278,9360>
  929.  
  930. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  931.  
  932. <+@><:#278,9360>'    DoInsertName() inserts the first and last names properly for the selected name.
  933.  
  934. <+@><:#278,9360>'    If how is 0 then the first name comes first; if how is 1, last name is first.
  935.  
  936. <+@><:#278,9360>'    If withTitle is specified, the person's title will be appended.
  937.  
  938. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  939.  
  940. <+@><:#278,9360>Function DoInsertName(how, withTitle)
  941.  
  942. <+@><:#278,9360>    Defstr selectedRecord, first$, last$, title$, dde$, DDEChannel, oldMsg$;
  943.  
  944. <+@><:#278,9360>
  945.  
  946. <+@><:#278,9360>    '    Prepare error message
  947.  
  948. <+@><:#278,9360>    oldMsg$ = SetErrorMessage$("Can't insert name into document.");
  949.  
  950. <+@><:#278,9360>
  951.  
  952. <+@><:#278,9360>    DDEChannel = GetGlobalVar$("DDEChannel");
  953.  
  954. <+@><:#278,9360>    selectedRecord = GetGlobalVar$("selectedRecord");
  955.  
  956. <+@><:#278,9360>
  957.  
  958. <+@><:#278,9360>    dde$ = strcat$("GetRec:", selectedRecord, ":");
  959.  
  960. <+@><:#278,9360>
  961.  
  962. <+@><:#278,9360>    first$ = DDEReceive$(DDEChannel, strcat$(dde$, "First"));
  963.  
  964. <+@><:#278,9360>    last$ = DDEReceive$(DDEChannel, strcat$(dde$, "Last"));
  965.  
  966. <+@><:#278,9360>    title$ = DDEReceive$(DDEChannel, strcat$(dde$, "Title"));
  967.  
  968. <+@><:#278,9360>
  969.  
  970. <+@><:#278,9360>    if how = 0 then            '  First name first
  971.  
  972. <+@><:#278,9360>        if first$ <<<;> " " then
  973.  
  974. <+@><:#278,9360>            DDELinks(5, 0, "Ascend", "Phone", strcat$(dde$, "First"));
  975.  
  976. <+@>            Type("<[>End]");
  977.  
  978. <+@><:#278,9360>            if last$ <<<;> " " then
  979.  
  980. <+@><:#278,9360>                Type(" ");
  981.  
  982. <+@><:#278,9360>            endif
  983.  
  984. <+@><:#278,9360>        endif
  985.  
  986. <+@><:#278,9360>        if last$ <<<;> " " then
  987.  
  988. <+@><:#278,9360>            DDELinks(5, 0, "Ascend", "Phone", strcat$(dde$, "Last"));
  989.  
  990. <+@>            Type("<[>End]");
  991.  
  992. <+@>        endif
  993.  
  994. <+@><:#278,9360>    else                ' Last name first
  995.  
  996. <+@><:#278,9360>        if last$ <<<;> " " then
  997.  
  998. <+@><:#278,9360>            DDELinks(5, 0, "Ascend", "Phone", strcat$(dde$, "Last"));
  999.  
  1000. <+@>            Type("<[>End]");
  1001.  
  1002. <+@>            if first$ <<<;> " " then
  1003.  
  1004. <+@><:#278,9360>                Type(", ");
  1005.  
  1006. <+@><:#278,9360>            endif
  1007.  
  1008. <+@><:#278,9360>        endif
  1009.  
  1010. <+@><:#278,9360>        if first$ <<<;> " " then
  1011.  
  1012. <+@><:#278,9360>            DDELinks(5, 0, "Ascend", "Phone", strcat$(dde$, "First"));
  1013.  
  1014. <+@>            Type("<[>End]");
  1015.  
  1016. <+@>        endif
  1017.  
  1018. <+@><:#278,9360>    endif
  1019.  
  1020. <+@><:#278,9360>
  1021.  
  1022. <+@><:#278,9360>    if withTitle and title$ <<<;> " " then
  1023.  
  1024. <+@><:#278,9360>        Type(", ");
  1025.  
  1026. <+@><:#278,9360>        DDELinks(5, 0, "Ascend", "Phone", strcat$(dde$, "Title"));
  1027.  
  1028. <+@>        Type("<[>End]");
  1029.  
  1030. <+@>    endif
  1031.  
  1032. <+@><:#278,9360>    
  1033.  
  1034. <+@><:#278,9360>    Type("<[>Enter]");
  1035.  
  1036. <+@><:#278,9360>
  1037.  
  1038. <+@><:#278,9360>    '    Restore error message
  1039.  
  1040. <+@><:#278,9360>    oldMsg$ = SetErrorMessage$(oldMsg$);
  1041.  
  1042. <+@><:#278,9360>End Function
  1043.  
  1044. <+@><:#278,9360>
  1045.  
  1046. <+@><:#278,9360>
  1047.  
  1048. <+@><:#278,9360>
  1049.  
  1050. <+@><:#278,9360>
  1051.  
  1052. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  1053.  
  1054. <+@><:#278,9360>'    DoInsert() inserts the given field for the currently selected name, followed
  1055.  
  1056. <+@><:#278,9360>'    by follow$, followed by an end of paragraph mark unless para is 0.
  1057.  
  1058. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  1059.  
  1060. <+@><:#278,9360>Function DoInsert(theField$, follow$, para)
  1061.  
  1062. <+@><:#278,9360>    Defstr DDEChannel, oldMsg$, selectedRecord, insert$, dde$;
  1063.  
  1064. <+@><:#278,9360>
  1065.  
  1066. <+@><:#278,9360>    DoInsert = 0;
  1067.  
  1068. <+@><:#278,9360>
  1069.  
  1070. <+@><:#278,9360>    '    Prepare error message
  1071.  
  1072. <+@>    oldMsg$ = SetErrorMessage$("Can't insert field into document.");
  1073.  
  1074. <+@><:#278,9360>
  1075.  
  1076. <+@><:#278,9360>    DDEChannel = GetGlobalVar$("DDEChannel");
  1077.  
  1078. <+@><:#278,9360>    selectedRecord = GetGlobalVar$("selectedRecord");
  1079.  
  1080. <+@><:#278,9360>    dde$ = strcat$("GetRec:", selectedRecord, ":", theField$);
  1081.  
  1082. <+@><:#278,9360>
  1083.  
  1084. <+@><:#278,9360>    insert$ = DDEReceive$(DDEChannel, dde$);
  1085.  
  1086. <+@><:#278,9360>    if insert$ <<<;> " " then
  1087.  
  1088. <+@><:#278,9360>        DoInsert = 1;
  1089.  
  1090. <+@><:#278,9360>        DDELinks(5, 0, "Ascend", "Phone", dde$);
  1091.  
  1092. <+@>        Type("<[>End]{follow$}");
  1093.  
  1094. <+@><:#278,9360>        if para <<<;> 0 then
  1095.  
  1096. <+@><:#278,9360>            Type("<[>Enter]");
  1097.  
  1098. <+@><:#278,9360>        endif
  1099.  
  1100. <+@><:#278,9360>    endif
  1101.  
  1102. <+@><:#278,9360>
  1103.  
  1104. <+@><:#278,9360>    '    Restore error message
  1105.  
  1106. <+@><:#278,9360>    oldMsg$ = SetErrorMessage$(oldMsg$);
  1107.  
  1108. <+@><:#278,9360>End Function
  1109.  
  1110. <+@><:#278,9360>
  1111.  
  1112. <+@><:#278,9360>
  1113.  
  1114. <+@><:#278,9360>
  1115.  
  1116. <+@><:#278,9360>
  1117.  
  1118. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  1119.  
  1120. <+@><:#278,9360>'    DoInsertPhones() inserts the Work and Fax phone numbers, if it finds them, followed
  1121.  
  1122. <+@><:#278,9360>'    by their description.  which tells which numbers to insert:  1=Work, 2=Fax, 3=Both.
  1123.  
  1124. <+@><:#278,9360>'    Returns 0 if nothing inserted.
  1125.  
  1126. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  1127.  
  1128. <+@><:#278,9360>Function DoInsertPhones(which)
  1129.  
  1130. <+@><:#278,9360>    Defstr DDEChannel, oldMsg$, selectedRecord, dde$, j, phDesc$, lc$;
  1131.  
  1132. <+@><:#278,9360>
  1133.  
  1134. <+@><:#278,9360>    DoInsertPhones = 0;
  1135.  
  1136. <+@><:#278,9360>
  1137.  
  1138. <+@><:#278,9360>    '    Prepare error message
  1139.  
  1140. <+@><:#278,9360>    oldMsg$ = SetErrorMessage$("Can't insert phone numbers into document.");
  1141.  
  1142. <+@><:#278,9360>
  1143.  
  1144. <+@><:#278,9360>    DDEChannel = GetGlobalVar$("DDEChannel");
  1145.  
  1146. <+@><:#278,9360>    selectedRecord = GetGlobalVar$("selectedRecord");
  1147.  
  1148. <+@><:#278,9360>    dde$ = strcat$("GetRec:", selectedRecord, ":");
  1149.  
  1150. <+@><:#278,9360>
  1151.  
  1152. <+@>    '    Examine the five phone descriptions to find the Work and Fax numbers
  1153.  
  1154. <+@><:#278,9360>    for j = 1 to 5
  1155.  
  1156. <+@><:#556,9360>        phDesc$ = DDEReceive$(DDEChannel, strcat$(dde$, "PhDesc", chr$(j + asc("0"))));
  1157.  
  1158. <+@><:#278,9360>        lc$ = LCASE$(phDesc$);
  1159.  
  1160. <+@><:#278,9360>        if lc$ = "work" and (which = 1 or which = 3) then
  1161.  
  1162. <+@><:#278,9360>            if DoInsert(strcat$("Phone", chr$(j + asc("0"))), "", 0) <<<;> 0 then
  1163.  
  1164. <+@><:#278,9360>                Type(" Work");
  1165.  
  1166. <+@><:#278,9360>                DoInsertPhones = 1;
  1167.  
  1168. <+@><:#278,9360>                Type("<[>Enter]");
  1169.  
  1170. <+@><:#278,9360>            endif
  1171.  
  1172. <+@><:#278,9360>        elseif lc$ = "fax" and (which = 2 or which = 3) then
  1173.  
  1174. <+@><:#278,9360>            if DoInsert(strcat$("Phone", chr$(j + asc("0"))), "", 0) <<<;> 0 then
  1175.  
  1176. <+@><:#278,9360>                Type(" Fax");
  1177.  
  1178. <+@><:#278,9360>                DoInsertPhones = 1;
  1179.  
  1180. <+@><:#278,9360>                Type("<[>Enter]");
  1181.  
  1182. <+@><:#278,9360>            endif
  1183.  
  1184. <+@><:#278,9360>        endif
  1185.  
  1186. <+@><:#278,9360>    next
  1187.  
  1188. <+@><:#278,9360>
  1189.  
  1190. <+@><:#278,9360>    '    Restore error message
  1191.  
  1192. <+@><:#278,9360>    oldMsg$ = SetErrorMessage$(oldMsg$);
  1193.  
  1194. <+@><:#278,9360>End Function
  1195.  
  1196. <+@><:#278,9360>
  1197.  
  1198. <+@><:#278,9360>
  1199.  
  1200. <+@><:#278,9360>
  1201.  
  1202. <+@><:#278,9360>
  1203.  
  1204. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  1205.  
  1206. <+@><:#278,9360>'    DoCustomFields() inserts the proper fields for the customized fields and for
  1207.  
  1208. <+@><:#278,9360>'    Contact History.
  1209.  
  1210. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  1211.  
  1212. <+@><:#278,9360>Function DoCustomFields(which)
  1213.  
  1214. <+@><:#278,9360>    Defstr DDEChannel, oldMsg$, selectedRecord, d;
  1215.  
  1216. <+@><:#278,9360>    Defstr month1$, day1$, year1$, month2$, day2$, year2$;
  1217.  
  1218. <+@><:#278,9360>    Defstr contact;
  1219.  
  1220. <+@><:#278,9360>
  1221.  
  1222. <+@><:#278,9360>    '    Prepare error message
  1223.  
  1224. <+@>    oldMsg$ = SetErrorMessage$("Can't insert custom fields into document.");
  1225.  
  1226. <+@><:#278,9360>
  1227.  
  1228. <+@><:#278,9360>    DDEChannel = GetGlobalVar$("DDEChannel");
  1229.  
  1230. <+@><:#278,9360>    selectedRecord = GetGlobalVar$("selectedRecord");
  1231.  
  1232. <+@><:#278,9360>
  1233.  
  1234. <+@><:#278,9360>    Switch which
  1235.  
  1236. <+@><:#278,9360>        Case 1    '    Name and Address 1
  1237.  
  1238. <+@><:#278,9360>            DoInsertName(0, 0);
  1239.  
  1240. <+@><:#278,9360>
  1241.  
  1242. <+@><:#278,9360>            d = DoInsert("Address1Line1", "", 1);
  1243.  
  1244. <+@><:#278,9360>            d = DoInsert("Address1Line2", "", 1);
  1245.  
  1246. <+@><:#278,9360>            d = DoInsert("City1", ", ", 0);
  1247.  
  1248. <+@><:#278,9360>            d = DoInsert("State1", " ", 0);
  1249.  
  1250. <+@><:#278,9360>            d = DoInsert("Zip1", "", 1);
  1251.  
  1252. <+@><:#278,9360>
  1253.  
  1254. <+@><:#278,9360>        Case 2    '    Name and Address 2
  1255.  
  1256. <+@><:#278,9360>            DoInsertName(0, 0);
  1257.  
  1258. <+@><:#278,9360>
  1259.  
  1260. <+@><:#278,9360>            d = DoInsert("Address2Line1", "", 1);
  1261.  
  1262. <+@><:#278,9360>            d = DoInsert("Address2Line2", "", 1);
  1263.  
  1264. <+@><:#278,9360>            d = DoInsert("City2", ", ", 0);
  1265.  
  1266. <+@><:#278,9360>            d = DoInsert("State2", " ", 0);
  1267.  
  1268. <+@><:#278,9360>            d = DoInsert("Zip2", "", 1);
  1269.  
  1270. <+@><:#278,9360>
  1271.  
  1272. <+@><:#278,9360>        Case 3    '    Name and Phone 1
  1273.  
  1274. <+@><:#278,9360>            DoInsertName(0, 0);
  1275.  
  1276. <+@><:#278,9360>            d = DoInsert("Phone1", "", 1);
  1277.  
  1278. <+@><:#278,9360>
  1279.  
  1280. <+@><:#278,9360>        Case 4    '    Name and Phones 1 and 2
  1281.  
  1282. <+@><:#278,9360>            DoInsertName(0, 0);
  1283.  
  1284. <+@><:#278,9360>            d = DoInsert("Phone1", "", 1);
  1285.  
  1286. <+@><:#278,9360>            d = DoInsert("Phone2", "", 1);
  1287.  
  1288. <+@><:#278,9360>
  1289.  
  1290. <+@><:#278,9360>        Case 5    '    Full Heading, Address 1
  1291.  
  1292. <+@><:#278,9360>            DoInsertName(0, 1);
  1293.  
  1294. <+@><:#278,9360>            d = DoInsert("Company", "", 1);
  1295.  
  1296. <+@><:#278,9360>
  1297.  
  1298. <+@><:#278,9360>            d = DoInsert("Address1Line1", "", 1);
  1299.  
  1300. <+@><:#278,9360>            d = DoInsert("Address1Line2", "", 1);
  1301.  
  1302. <+@><:#278,9360>            d = DoInsert("City1", ", ", 0);
  1303.  
  1304. <+@><:#278,9360>            d = DoInsert("State1", " ", 0);
  1305.  
  1306. <+@><:#278,9360>            d = DoInsert("Zip1", "", 1);
  1307.  
  1308. <+@><:#278,9360>
  1309.  
  1310. <+@><:#278,9360>            d = DoInsertPhones(3);
  1311.  
  1312. <+@><:#278,9360>            Type("<[>Enter]<[>Enter]Dear ");
  1313.  
  1314. <+@><:#278,9360>            d = DoInsert("Hailing", ",<[>Enter]", 1);
  1315.  
  1316. <+@><:#278,9360>
  1317.  
  1318. <+@><:#278,9360>        Case 6    '    Full Heading, Address 2
  1319.  
  1320. <+@><:#278,9360>            DoInsertName(0, 1);
  1321.  
  1322. <+@><:#278,9360>            d = DoInsert("Company", "", 1);
  1323.  
  1324. <+@><:#278,9360>
  1325.  
  1326. <+@><:#278,9360>            d = DoInsert("Address2Line1", "", 1);
  1327.  
  1328. <+@><:#278,9360>            d = DoInsert("Address2Line2", "", 1);
  1329.  
  1330. <+@><:#278,9360>            d = DoInsert("City2", ", ", 0);
  1331.  
  1332. <+@><:#278,9360>            d = DoInsert("State2", " ", 0);
  1333.  
  1334. <+@><:#278,9360>            d = DoInsert("Zip2", "", 1);
  1335.  
  1336. <+@><:#278,9360>
  1337.  
  1338. <+@><:#278,9360>            d = DoInsertPhones(3);
  1339.  
  1340. <+@><:#278,9360>            Type("<[>Enter]<[>Enter]Dear ");
  1341.  
  1342. <+@><:#278,9360>            d = DoInsert("Hailing", ",<[>Enter]", 1);
  1343.  
  1344. <+@><:#278,9360>
  1345.  
  1346. <+@><:#278,9360>        Case 7    '    Fax Header Sheet
  1347.  
  1348. <+@><:#278,9360>            Type("Please Deliver the Following To:  ");
  1349.  
  1350. <+@><:#278,9360>            DoInsertName(0, 1);
  1351.  
  1352. <+@><:#278,9360>            Type("<[>Enter]Company Name:  ");
  1353.  
  1354. <+@><:#278,9360>            DoInsert("Company", "", 0);
  1355.  
  1356. <+@><:#278,9360>            Type("<[>Enter]<[>Enter]");
  1357.  
  1358. <+@><:#278,9360>            Type("Date:  ");
  1359.  
  1360. <+@><:#278,9360>            InsertDate(Today, DMY);
  1361.  
  1362. <+@><:#278,9360>            Type("<[>Enter]<[>Enter]");
  1363.  
  1364. <+@><:#278,9360>            Type("Destination FAX Number:  ");
  1365.  
  1366. <+@><:#278,9360>            if DoInsertPhones(2) <<<;> 0 then
  1367.  
  1368. <+@><:#278,9360>                '    Erase " Fax"
  1369.  
  1370. <+@><:#556,9360>                Type("<[>ShiftLeft]<[>ShiftLeft]<[>ShiftLeft]<[>ShiftLeft]<[>ShiftLeft]<[>Enter]<[>Enter]");
  1371.  
  1372. <+@><:#278,9360>            endif
  1373.  
  1374. <+@><:#278,9360>
  1375.  
  1376. <+@><:#278,9360>        Case 8    '    Name and Contact History
  1377.  
  1378. <+@><:#278,9360>            FillEdit(8000, "10");
  1379.  
  1380. <+@><:#278,9360>            FillEdit(8001, "01");
  1381.  
  1382. <+@><:#278,9360>            FillEdit(8002, "1992");
  1383.  
  1384. <+@><:#278,9360>            FillEdit(8003, "12");
  1385.  
  1386. <+@><:#278,9360>            FillEdit(8004, "31");
  1387.  
  1388. <+@><:#278,9360>            FillEdit(8005, "1997");
  1389.  
  1390. <+@><:#278,9360>
  1391.  
  1392. <+@><:#278,9360>            d = DialogBox(".", "ContactHistory");
  1393.  
  1394. <+@><:#278,9360>            if d = 1 then
  1395.  
  1396. <+@><:#278,9360>                HourGlass(1);
  1397.  
  1398. <+@><:#278,9360>
  1399.  
  1400. <+@><:#278,9360>                month1$ = GetDialogField$(8000);
  1401.  
  1402. <+@><:#278,9360>                day1$ = GetDialogField$(8001);
  1403.  
  1404. <+@><:#278,9360>                year1$ = GetDialogField$(8002);
  1405.  
  1406. <+@><:#278,9360>                month2$ = GetDialogField$(8003);
  1407.  
  1408. <+@><:#278,9360>                day2$ = GetDialogField$(8004);
  1409.  
  1410. <+@><:#278,9360>                year2$ = GetDialogField$(8005);
  1411.  
  1412. <+@><:#278,9360>
  1413.  
  1414. <+@><:#278,9360>                if Len(month1$) = 1 then
  1415.  
  1416. <+@><:#278,9360>                    month1$ = strcat$("0", month1$);
  1417.  
  1418. <+@><:#278,9360>                endif
  1419.  
  1420. <+@><:#278,9360>                if Len(day1$) = 1 then
  1421.  
  1422. <+@><:#278,9360>                    day1$ = strcat$("0", day1$);
  1423.  
  1424. <+@><:#278,9360>                endif
  1425.  
  1426. <+@><:#278,9360>                if Len(month2$) = 1 then
  1427.  
  1428. <+@><:#278,9360>                    month2$ = strcat$("0", month2$);
  1429.  
  1430. <+@><:#278,9360>                endif
  1431.  
  1432. <+@><:#278,9360>                if Len(day2$) = 1 then
  1433.  
  1434. <+@><:#278,9360>                    day2$ = strcat$("0", day2$);
  1435.  
  1436. <+@><:#278,9360>                endif
  1437.  
  1438. <+@><:#278,9360>                contact$ = strcat$("GetHistory:", selectedRecord, ":");
  1439.  
  1440. <+@><:#278,9360>                contact$ = strcat$(contact$, month1$, "-", day1$, "-", year1$, ":");
  1441.  
  1442. <+@><:#278,9360>                contact$ = strcat$(contact$, month2$, "-", day2$, "-", year2$);
  1443.  
  1444. <+@><:#278,9360>
  1445.  
  1446. <+@><:#278,9360>                DDELinks(5, 0, "Ascend", "Phone", contact$);
  1447.  
  1448. <+@>                Type("<[>End]<[>Enter]");
  1449.  
  1450. <+@><:#278,9360>
  1451.  
  1452. <+@><:#278,9360>                HourGlass(0);
  1453.  
  1454. <+@><:#278,9360>            endif            
  1455.  
  1456. <+@><:#278,9360>    EndSwitch
  1457.  
  1458. <+@><:#278,9360>
  1459.  
  1460. <+@><:#278,9360>    '    Restore error message
  1461.  
  1462. <+@><:#278,9360>    oldMsg$ = SetErrorMessage$(oldMsg$);
  1463.  
  1464. <+@><:#278,9360>End Function
  1465.  
  1466. <+@><:#278,9360>
  1467.  
  1468. <+@><:#278,9360>
  1469.  
  1470. <+@><:#278,9360>
  1471.  
  1472. <+@><:#278,9360>
  1473.  
  1474. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  1475.  
  1476. <+@><:#278,9360>'    FixName$() fixes selectedName$ by determining if the existing name is a last name or
  1477.  
  1478. <+@><:#278,9360>'    a company name.  If it is a last name, it appends a comma and then the first name to it
  1479.  
  1480. <+@><:#278,9360>'    and appends the company name, in parentheses, to that.
  1481.  
  1482. <+@><:#278,9360>'    If it is a company name, it appends the first and last name in parentheses.
  1483.  
  1484. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  1485.  
  1486. <+@><:#278,9360>Function FixName()
  1487.  
  1488. <+@><:#278,9360>    Defstr DDEChannel, localName$, localRecord, fixLast$, fixFirst$, fixComp$, oldMsg$;
  1489.  
  1490. <+@><:#278,9360>
  1491.  
  1492. <+@><:#278,9360>    '    Prepare error message
  1493.  
  1494. <+@><:#278,9360>    oldMsg$ = SetErrorMessage$("Can't resolve name from Ascend.");
  1495.  
  1496. <+@><:#278,9360>
  1497.  
  1498. <+@><:#278,9360>    DDEChannel = GetGlobalVar$("DDEChannel");
  1499.  
  1500. <+@><:#278,9360>
  1501.  
  1502. <+@><:#278,9360>    localName$ = GetGlobalVar$("selectedName$");
  1503.  
  1504. <+@><:#278,9360>    localRecord = GetGlobalVar$("selectedRecord");
  1505.  
  1506. <+@><:#278,9360>
  1507.  
  1508. <+@><:#278,9360>    fixLast$ = DDEReceive$(DDEChannel, strcat$("GetRec:", localRecord, ":Last"));
  1509.  
  1510. <+@><:#278,9360>    fixFirst$ = DDEReceive$(DDEChannel, strcat$("GetRec:", localRecord, ":First"));
  1511.  
  1512. <+@><:#278,9360>    fixComp$ = DDEReceive$(DDEChannel, strcat$("GetRec:", localRecord, ":Company"));
  1513.  
  1514. <+@><:#278,9360>
  1515.  
  1516. <+@><:#278,9360>    if localName$ = fixLast$ then
  1517.  
  1518. <+@><:#278,9360>        if fixFirst$ <<<;> " " then
  1519.  
  1520. <+@><:#278,9360>            localName$ = strcat$(localName$ ", ", fixFirst$);
  1521.  
  1522. <+@><:#278,9360>        endif
  1523.  
  1524. <+@><:#278,9360>        if fixComp$ <<<;> " " then
  1525.  
  1526. <+@><:#278,9360>            localName$ = strcat$(localName$, " (", fixComp$, ")");
  1527.  
  1528. <+@><:#278,9360>        endif
  1529.  
  1530. <+@><:#278,9360>    elseif localName$ = fixComp$ then
  1531.  
  1532. <+@><:#278,9360>        if fixFirst$ <<<;> " " then
  1533.  
  1534. <+@><:#278,9360>            localName$ = strcat$(localName$, " (", fixFirst$);
  1535.  
  1536. <+@><:#278,9360>            if fixLast$ <<<;> " " then
  1537.  
  1538. <+@><:#278,9360>                localName$ = strcat$(localName$, " ", fixLast$);
  1539.  
  1540. <+@><:#278,9360>            endif
  1541.  
  1542. <+@><:#278,9360>            localName$ = strcat$(localName$, ")");
  1543.  
  1544. <+@><:#278,9360>        elseif fixLast$ <<<;> " " then
  1545.  
  1546. <+@><:#278,9360>            localName$ = strcat$(localName$, " (", fixLast$, ")");
  1547.  
  1548. <+@><:#278,9360>        endif
  1549.  
  1550. <+@><:#278,9360>    endif
  1551.  
  1552. <+@><:#278,9360>
  1553.  
  1554. <+@><:#278,9360>    SetGlobalVar("selectedName$", localName$);
  1555.  
  1556. <+@><:#278,9360>    SetGlobalVar("selectedRecord", localRecord);
  1557.  
  1558. <+@><:#278,9360>
  1559.  
  1560. <+@><:#278,9360>    '    Restore error message
  1561.  
  1562. <+@><:#278,9360>    oldMsg$ = SetErrorMessage$(oldMsg$);
  1563.  
  1564. <+@><:#278,9360>End Function
  1565.  
  1566. <+@><:#278,9360>
  1567.  
  1568. <+@><:#278,9360>
  1569.  
  1570. <+@><:#278,9360>
  1571.  
  1572. <+@><:#278,9360>
  1573.  
  1574. <+@><:#278,9360>
  1575.  
  1576. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  1577.  
  1578. <+@><:#278,9360>'    GetAscendField$() gets the given field for the currently selected name
  1579.  
  1580. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  1581.  
  1582. <+@><:#278,9360>Function GetAscendField$(theField$)
  1583.  
  1584. <+@><:#278,9360>    Defstr DDEChannel, selectedRecord;
  1585.  
  1586. <+@><:#278,9360>
  1587.  
  1588. <+@><:#278,9360>    DDEChannel = GetGlobalVar$("DDEChannel");
  1589.  
  1590. <+@><:#278,9360>    selectedRecord = GetGlobalVar$("selectedRecord");
  1591.  
  1592. <+@><:#278,9360>
  1593.  
  1594. <+@><:#556,9360>    GetAscendField$ = DDEReceive$(DDEChannel, strcat$("GetRec:", selectedRecord, ":", theField$));
  1595.  
  1596. <+@><:#278,9360>End Function
  1597.  
  1598. <+@><:#278,9360>
  1599.  
  1600. <+@><:#278,9360>
  1601.  
  1602. <+@><:#278,9360>
  1603.  
  1604. <+@><:#278,9360>
  1605.  
  1606. <+@><:#278,9360>
  1607.  
  1608. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  1609.  
  1610. <+@><:#278,9360>'    TranslateField$() takes the number of the field name in the dialog list and returns
  1611.  
  1612. <+@><:#278,9360>'    Ascend's DDE name for the field.
  1613.  
  1614. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  1615.  
  1616. <+@><:#278,9360>Function TranslateField$(n)
  1617.  
  1618. <+@><:#278,9360>    TranslateField$ = "";
  1619.  
  1620. <+@><:#278,9360>
  1621.  
  1622. <+@><:#278,9360>    if n << 9 or n = 59 then
  1623.  
  1624. <+@><:#278,9360>        Exit Function;
  1625.  
  1626. <+@><:#278,9360>    endif
  1627.  
  1628. <+@><:#278,9360>
  1629.  
  1630. <+@><:#278,9360>    switch n
  1631.  
  1632. <+@><:#278,9360>        case 9 TranslateField$ = "Last";
  1633.  
  1634. <+@><:#278,9360>        case 10  TranslateField$ = "First";
  1635.  
  1636. <+@><:#278,9360>        case 11  TranslateField$ = "Company";
  1637.  
  1638. <+@><:#278,9360>        case 12  TranslateField$ = "Title";
  1639.  
  1640. <+@><:#278,9360>        case 13  TranslateField$ = "Department";
  1641.  
  1642. <+@><:#278,9360>        case 14  TranslateField$ = "Assistant";
  1643.  
  1644. <+@><:#278,9360>        case 15  TranslateField$ = "EmailAddress";
  1645.  
  1646. <+@><:#278,9360>        case 16  TranslateField$ = "Salutation";
  1647.  
  1648. <+@><:#278,9360>        case 17  TranslateField$ = "Hailing";
  1649.  
  1650. <+@><:#278,9360>        case 18  TranslateField$ = "Category";
  1651.  
  1652. <+@><:#278,9360>        case 19  TranslateField$ = "AddDesc1";
  1653.  
  1654. <+@><:#278,9360>        case 20  TranslateField$ = "Address1Line1";
  1655.  
  1656. <+@><:#278,9360>        case 21  TranslateField$ = "Address1Line2";
  1657.  
  1658. <+@><:#278,9360>        case 22  TranslateField$ = "City1";
  1659.  
  1660. <+@><:#278,9360>        case 23  TranslateField$ = "State1";
  1661.  
  1662. <+@><:#278,9360>        case 24  TranslateField$ = "Zip1";
  1663.  
  1664. <+@><:#278,9360>        case 25  TranslateField$ = "Country1";
  1665.  
  1666. <+@><:#278,9360>        case 26  TranslateField$ = "AddDesc2";
  1667.  
  1668. <+@><:#278,9360>        case 27  TranslateField$ = "Address2Line1";
  1669.  
  1670. <+@><:#278,9360>        case 28  TranslateField$ = "Address2Line2";
  1671.  
  1672. <+@><:#278,9360>        case 29  TranslateField$ = "City2";
  1673.  
  1674. <+@><:#278,9360>        case 30  TranslateField$ = "State2";
  1675.  
  1676. <+@><:#278,9360>        case 31  TranslateField$ = "Zip2";
  1677.  
  1678. <+@><:#278,9360>        case 32  TranslateField$ = "Country2";
  1679.  
  1680. <+@><:#278,9360>        case 33  TranslateField$ = "PhDesc1";
  1681.  
  1682. <+@><:#278,9360>        case 34  TranslateField$ = "Phone1";
  1683.  
  1684. <+@><:#278,9360>        case 35  TranslateField$ = "Ext1";
  1685.  
  1686. <+@><:#278,9360>        case 36  TranslateField$ = "PhDesc2";
  1687.  
  1688. <+@><:#278,9360>        case 37  TranslateField$ = "Phone2";
  1689.  
  1690. <+@><:#278,9360>        case 38  TranslateField$ = "Ext2";
  1691.  
  1692. <+@><:#278,9360>        case 39  TranslateField$ = "PhDesc3";
  1693.  
  1694. <+@><:#278,9360>        case 40  TranslateField$ = "Phone3";
  1695.  
  1696. <+@><:#278,9360>        case 41  TranslateField$ = "Ext3";
  1697.  
  1698. <+@><:#278,9360>        case 42  TranslateField$ = "PhDesc4";
  1699.  
  1700. <+@><:#278,9360>        case 43  TranslateField$ = "Phone4";
  1701.  
  1702. <+@><:#278,9360>        case 44  TranslateField$ = "Ext4";
  1703.  
  1704. <+@><:#278,9360>        case 45  TranslateField$ = "PhDesc5";
  1705.  
  1706. <+@><:#278,9360>        case 46  TranslateField$ = "Phone5";
  1707.  
  1708. <+@><:#278,9360>        case 47  TranslateField$ = "Ext5";
  1709.  
  1710. <+@><:#278,9360>        case 48  TranslateField$ = "Notes";
  1711.  
  1712. <+@><:#278,9360>        case 49  TranslateField$ = "Keys1";
  1713.  
  1714. <+@><:#278,9360>        case 50  TranslateField$ = "Keys2";
  1715.  
  1716. <+@><:#278,9360>        case 51  TranslateField$ = "Keys3";
  1717.  
  1718. <+@><:#278,9360>        case 52  TranslateField$ = "Keys4";
  1719.  
  1720. <+@><:#278,9360>        case 53  TranslateField$ = "Keys5";
  1721.  
  1722. <+@><:#278,9360>        case 54  TranslateField$ = "Keys6";
  1723.  
  1724. <+@><:#278,9360>        case 55  TranslateField$ = "VIP";
  1725.  
  1726. <+@><:#278,9360>        case 56  TranslateField$ = "DateEntered";
  1727.  
  1728. <+@><:#278,9360>        case 57  TranslateField$ = "LastContact";
  1729.  
  1730. <+@><:#278,9360>        case 58  TranslateField$ = "NextContact";
  1731.  
  1732. <+@><:#278,9360>    endswitch
  1733.  
  1734. <+@><:#278,9360>End Function
  1735.  
  1736. <+@><:#278,9360>
  1737.  
  1738. <+@><:#278,9360>
  1739.  
  1740. <+@><:#278,9360>
  1741.  
  1742. <+@><:#278,9360>
  1743.  
  1744. <+@><:#278,9360>
  1745.  
  1746. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  1747.  
  1748. <+@>'    InitializeFieldsArray() updates the global array "fields$" and puts each item in the list
  1749.  
  1750. <+@><:#278,9360>'    box for the dialog.
  1751.  
  1752. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  1753.  
  1754. <+@><:#278,9360>Function InitializeFieldsArray()
  1755.  
  1756. <+@><:#278,9360>    Defstr j, oldMsg$;
  1757.  
  1758. <+@><:#278,9360>
  1759.  
  1760. <+@><:#278,9360>    '    Prepare error message
  1761.  
  1762. <+@><:#278,9360>    oldMsg$ = SetErrorMessage$("Can't create list box for dialog");
  1763.  
  1764. <+@><:#278,9360>
  1765.  
  1766. <+@><:#278,9360>    HourGlass(1);
  1767.  
  1768. <+@><:#278,9360>    StatusBarMsg("Examining fields . . . ");
  1769.  
  1770. <+@><:#278,9360>
  1771.  
  1772. <+@>    SetGlobalArray("fields$", 1, "Custom Fields #1 (Name and Address 1)");
  1773.  
  1774. <+@>    SetGlobalArray("fields$", 2, "Custom Fields #2 (Name and Address 2)");
  1775.  
  1776. <+@>    SetGlobalArray("fields$", 3, "Custom Fields #3 (Name and Phone 1)");
  1777.  
  1778. <+@>    SetGlobalArray("fields$", 4, "Custom Fields #4 (Name and Phone 1 and 2)");
  1779.  
  1780. <+@>    SetGlobalArray("fields$", 5, "Custom Fields #5 (Full Heading, Address 1)");
  1781.  
  1782. <+@>    SetGlobalArray("fields$", 6, "Custom Fields #6 (Full Heading, Address 2)");
  1783.  
  1784. <+@>    SetGlobalArray("fields$", 7, "Custom Fields #7 (Fax Header Sheet)");
  1785.  
  1786. <+@>    SetGlobalArray("fields$", 8, "Custom Fields #8 (Name and Contact History)");
  1787.  
  1788. <+@>    SetGlobalArray("fields$", 9, strcat$("Last Name  (", GetAscendField$(TranslateField$(9)), ")"));
  1789.  
  1790. <+@>    SetGlobalArray("fields$", 10, strcat$("First Name  (", GetAscendField$(TranslateField$(10)), ")"));
  1791.  
  1792. <+@>    SetGlobalArray("fields$", 11, strcat$("Company  (", GetAscendField$(TranslateField$(11)), ")"));
  1793.  
  1794. <+@>    SetGlobalArray("fields$", 12, strcat$("Title  (", GetAscendField$(TranslateField$(12)), ")"));
  1795.  
  1796. <+@>    SetGlobalArray("fields$", 13, strcat$("Department  (", GetAscendField$(TranslateField$(13)), ")"));
  1797.  
  1798. <+@>    SetGlobalArray("fields$", 14, strcat$("Assistant  (", GetAscendField$(TranslateField$(14)), ")"));
  1799.  
  1800. <+@>    SetGlobalArray("fields$", 15, strcat$("E-mail Address  (", GetAscendField$(TranslateField$(15)), ")"));
  1801.  
  1802. <+@>    SetGlobalArray("fields$", 16, strcat$("Salutation  (", GetAscendField$(TranslateField$(16)), ")"));
  1803.  
  1804. <+@>    SetGlobalArray("fields$", 17, strcat$("Hailing  (", GetAscendField$(TranslateField$(17)), ")"));
  1805.  
  1806. <+@>    SetGlobalArray("fields$", 18, strcat$("Category  (", GetAscendField$(TranslateField$(18)), ")"));
  1807.  
  1808. <+@>    SetGlobalArray("fields$", 19, strcat$("Address 1 Description  (",
  1809.  
  1810. <+@>                                GetAscendField$(TranslateField$(19)), ")"));
  1811.  
  1812. <+@>    SetGlobalArray("fields$", 20, strcat$("Address 1, Line 1  (",
  1813.  
  1814. <+@>                                GetAscendField$(TranslateField$(20)), ")"));
  1815.  
  1816. <+@>    SetGlobalArray("fields$", 21, strcat$("Address 1, Line 2  (",
  1817.  
  1818. <+@>                                GetAscendField$(TranslateField$(21)), ")"));
  1819.  
  1820. <+@>    SetGlobalArray("fields$", 22, strcat$("Address 1, City  (", GetAscendField$(TranslateField$(22)), ")"));
  1821.  
  1822. <+@>    SetGlobalArray("fields$", 23, strcat$("Address 1, State  (", GetAscendField$(TranslateField$(23)), ")"));
  1823.  
  1824. <+@>    SetGlobalArray("fields$", 24, strcat$("Address 1, Zip Code  (",
  1825.  
  1826. <+@><:#556,9360>                                GetAscendField$(TranslateField$(24)), ")"));
  1827.  
  1828. <+@>    SetGlobalArray("fields$", 25, strcat$("Address 1, Country  (",
  1829.  
  1830. <+@><:#556,9360>                                GetAscendField$(TranslateField$(25)), ")"));
  1831.  
  1832. <+@>    SetGlobalArray("fields$", 26, strcat$("Address 2 Description  (",
  1833.  
  1834. <+@><:#556,9360>                                GetAscendField$(TranslateField$(26)), ")"));
  1835.  
  1836. <+@>    SetGlobalArray("fields$", 27, strcat$("Address 2, Line 1  (",
  1837.  
  1838. <+@>                                GetAscendField$(TranslateField$(27)), ")"));
  1839.  
  1840. <+@>    SetGlobalArray("fields$", 28, strcat$("Address 2, Line 2  (",
  1841.  
  1842. <+@>                                GetAscendField$(TranslateField$(28)), ")"));
  1843.  
  1844. <+@>    SetGlobalArray("fields$", 29, strcat$("Address 2, City  (", GetAscendField$(TranslateField$(29)), ")"));
  1845.  
  1846. <+@>    SetGlobalArray("fields$", 30, strcat$("Address 2, State  (", GetAscendField$(TranslateField$(30)), ")"));
  1847.  
  1848. <+@>    SetGlobalArray("fields$", 31, strcat$("Address 2, Zip Code  (",
  1849.  
  1850. <+@><:#556,9360>                                GetAscendField$(TranslateField$(31)), ")"));
  1851.  
  1852. <+@>    SetGlobalArray("fields$", 32, strcat$("Address 2, Country  (",
  1853.  
  1854. <+@><:#556,9360>                                GetAscendField$(TranslateField$(32)), ")"));
  1855.  
  1856. <+@>    SetGlobalArray("fields$", 33, strcat$("Phone Description 1  (",
  1857.  
  1858. <+@><:#556,9360>                                GetAscendField$(TranslateField$(33)), ")"));
  1859.  
  1860. <+@>    SetGlobalArray("fields$", 34, strcat$("Phone Number 1  (", GetAscendField$(TranslateField$(34)), ")"));
  1861.  
  1862. <+@>    SetGlobalArray("fields$", 35, strcat$("Extension 1  (", GetAscendField$(TranslateField$(35)), ")"));
  1863.  
  1864. <+@>    SetGlobalArray("fields$", 36, strcat$("Phone Description 2  (",
  1865.  
  1866. <+@><:#556,9360>                                GetAscendField$(TranslateField$(36)), ")"));
  1867.  
  1868. <+@>    SetGlobalArray("fields$", 37, strcat$("Phone Number 2  (", GetAscendField$(TranslateField$(37)), ")"));
  1869.  
  1870. <+@>    SetGlobalArray("fields$", 38, strcat$("Extension 2  (", GetAscendField$(TranslateField$(38)), ")"));
  1871.  
  1872. <+@>    SetGlobalArray("fields$", 39, strcat$("Phone Description 3  (",
  1873.  
  1874. <+@><:#556,9360>                                GetAscendField$(TranslateField$(39)), ")"));
  1875.  
  1876. <+@>    SetGlobalArray("fields$", 40, strcat$("Phone Number 3  (", GetAscendField$(TranslateField$(40)), ")"));
  1877.  
  1878. <+@>    SetGlobalArray("fields$", 41, strcat$("Extension 3  (", GetAscendField$(TranslateField$(41)), ")"));
  1879.  
  1880. <+@>    SetGlobalArray("fields$", 42, strcat$("Phone Description 4  (",
  1881.  
  1882. <+@><:#556,9360>                                GetAscendField$(TranslateField$(42)), ")"));
  1883.  
  1884. <+@>    SetGlobalArray("fields$", 43, strcat$("Phone Number 4  (", GetAscendField$(TranslateField$(43)), ")"));
  1885.  
  1886. <+@>    SetGlobalArray("fields$", 44, strcat$("Extension 4  (", GetAscendField$(TranslateField$(44)), ")"));
  1887.  
  1888. <+@>    SetGlobalArray("fields$", 45, strcat$("Phone Description 5  (",
  1889.  
  1890. <+@><:#556,9360>                                GetAscendField$(TranslateField$(45)), ")"));
  1891.  
  1892. <+@>    SetGlobalArray("fields$", 46, strcat$("Phone Number 5  (", GetAscendField$(TranslateField$(46)), ")"));
  1893.  
  1894. <+@>    SetGlobalArray("fields$", 47, strcat$("Extension 5  (", GetAscendField$(TranslateField$(47)), ")"));
  1895.  
  1896. <+@>    SetGlobalArray("fields$", 48, "Notes  ( . . . )");
  1897.  
  1898. <+@>    SetGlobalArray("fields$", 49, strcat$("Key Code 1  (", GetAscendField$(TranslateField$(49)), ")"));
  1899.  
  1900. <+@>    SetGlobalArray("fields$", 50, strcat$("Key Code 2  (", GetAscendField$(TranslateField$(50)), ")"));
  1901.  
  1902. <+@>    SetGlobalArray("fields$", 51, strcat$("Key Code 3  (", GetAscendField$(TranslateField$(51)), ")"));
  1903.  
  1904. <+@>    SetGlobalArray("fields$", 52, strcat$("Key Code 4  (", GetAscendField$(TranslateField$(52)), ")"));
  1905.  
  1906. <+@>    SetGlobalArray("fields$", 53, strcat$("Key Code 5  (", GetAscendField$(TranslateField$(53)), ")"));
  1907.  
  1908. <+@>    SetGlobalArray("fields$", 54, strcat$("Key Code 6  (", GetAscendField$(TranslateField$(54)), ")"));
  1909.  
  1910. <+@>    SetGlobalArray("fields$", 55, strcat$("VIP  (", GetAscendField$(TranslateField$(55)), ")"));
  1911.  
  1912. <+@>    SetGlobalArray("fields$", 56, strcat$("Date Entered  (", GetAscendField$(TranslateField$(56)), ")"));
  1913.  
  1914. <+@>    SetGlobalArray("fields$", 57, strcat$("Last Contact  (", GetAscendField$(TranslateField$(57)), ")"));
  1915.  
  1916. <+@>    SetGlobalArray("fields$", 58, strcat$("Next Contact  (", GetAscendField$(TranslateField$(58)), ")"));
  1917.  
  1918. <+@>    SetGlobalArray("fields$", 59, "Contact History . . . ");
  1919.  
  1920. <+@><:#278,9360>
  1921.  
  1922. <+@><:#278,9360>    For j = 1 to 59
  1923.  
  1924. <+@>        FillList(GetGlobalArray$("fields$", j));
  1925.  
  1926. <+@><:#278,9360>    next
  1927.  
  1928. <+@><:#278,9360>
  1929.  
  1930. <+@><:#278,9360>    StatusBarMsg("");
  1931.  
  1932. <+@><:#278,9360>    HourGlass(0);
  1933.  
  1934. <+@><:#278,9360>
  1935.  
  1936. <+@><:#278,9360>    '    Restore error message
  1937.  
  1938. <+@><:#278,9360>    oldMsg$ = SetErrorMessage$(oldMsg$);
  1939.  
  1940. <+@><:#278,9360>End Function
  1941.  
  1942. <+@><:#278,9360>
  1943.  
  1944. <+@><:#278,9360>
  1945.  
  1946. <+@><:#278,9360>
  1947.  
  1948. <+@><:#278,9360>
  1949.  
  1950. <+@><:#278,9360>
  1951.  
  1952. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  1953.  
  1954. <+@><:#278,9360>'    AscendGetFieldDialog() presents the user with a dialog allowing the user to select
  1955.  
  1956. <+@><:#278,9360>'    from all of Ascend's Address and Phone fields.
  1957.  
  1958. <+@><:#278,9360>'    It returns the index to the (local) array for the item that was selected.  This number
  1959.  
  1960. <+@><:#278,9360>'    can be used with the function TranslateFieldName$() to get the field identifier
  1961.  
  1962. <+@><:#278,9360>'    recognized by Ascend.
  1963.  
  1964. <+@><:#278,9360>' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
  1965.  
  1966. <+@><:#278,9360>Function AscendGetFieldDialog(theName)
  1967.  
  1968. <+@><:#278,9360>    Defstr oldMsg$, result, j, theField$;
  1969.  
  1970. <+@><:#278,9360>    Dim AscendFields$(59);
  1971.  
  1972. <+@><:#278,9360>
  1973.  
  1974. <+@><:#278,9360>    AscendGetFieldDialog  = -1;
  1975.  
  1976. <+@><:#278,9360>
  1977.  
  1978. <+@><:#278,9360>    '    Prepare error message
  1979.  
  1980. <+@><:#278,9360>    oldMsg$ = SetErrorMessage$("Error with Ascend Names dialog.");
  1981.  
  1982. <+@><:#278,9360>
  1983.  
  1984. <+@><:#278,9360>    InitializeFieldsArray();
  1985.  
  1986. <+@><:#278,9360>
  1987.  
  1988. <+@><:#278,9360>    result = DialogBox(".", "AscendInsertField");
  1989.  
  1990. <+@><:#278,9360>    if result = 0 or result = 2 then        '  user cancelled
  1991.  
  1992. <+@><:#278,9360>        goto done;
  1993.  
  1994. <+@><:#278,9360>    endif
  1995.  
  1996. <+@><:#278,9360>
  1997.  
  1998. <+@><:#278,9360>    '    Figure out the number of the item they chose
  1999.  
  2000. <+@><:#278,9360>    theField$ = GetDialogField$(9000);
  2001.  
  2002. <+@><:#278,9360>    for j = 1 to 59
  2003.  
  2004. <+@>        if theField$ = GetGlobalArray$("fields$", j) then
  2005.  
  2006. <+@><:#278,9360>            AscendGetFieldDialog = j;
  2007.  
  2008. <+@><:#278,9360>            break;
  2009.  
  2010. <+@><:#278,9360>        endif
  2011.  
  2012. <+@><:#278,9360>    next
  2013.  
  2014. <+@><:#278,9360>
  2015.  
  2016. <+@><:#278,9360>done:
  2017.  
  2018. <+@><:#278,9360>    '    Restore error message
  2019.  
  2020. <+@><:#278,9360>    oldMsg$ = SetErrorMessage$(oldMsg$);
  2021.  
  2022. <+@><:#278,9360>End Function
  2023.  
  2024. <+@><:#278,9360>
  2025.  
  2026. <+@><:#278,9360>
  2027.  
  2028. <:#278,9360>DIALOG    AscendInsertField
  2029.  
  2030. <:#278,9360>-2134900736    3    47    47    243    157    ""    ""    "Ascend Insert Field"
  2031.  
  2032. <:#278,9360>FONT    8    "Helv"
  2033.  
  2034. <:#278,9360>198    3    40    14    1    1342373889    "button"    "OK"    0 
  2035.  
  2036. <:#278,9360>198    20    40    14    2    1342373888    "button"    "Cancel"    0 
  2037.  
  2038. <:#278,9360>4    3    190    149    9000    1352728577    "listbox"    ""    0 
  2039.  
  2040. <:#278,9360>END DIALOG
  2041.  
  2042. <:#278,9360>
  2043.  
  2044. <:#278,9360>DIALOG    ContactHistory
  2045.  
  2046. <:#278,9360>-2134900736    16    94    79    199    43    ""    ""    "Ascend Contact History"
  2047.  
  2048. <:#278,9360>FONT    8    "Helv"
  2049.  
  2050. <:#278,9360>154    5    40    14    1    1342373889    "button"    "OK"    0 
  2051.  
  2052. <:#278,9360>154    24    40    14    2    1342373888    "button"    "Cancel"    0 
  2053.  
  2054. <:#278,9360>4    1    71    37    20    1342308359    "button"    "Starting Date"    0 
  2055.  
  2056. <:#278,9360>8    12    20    10    1000    1342177280    "static"    "Month"    0 
  2057.  
  2058. <:#278,9360>15    22    13    12    8000    1350631552    "edit"    ""    0 
  2059.  
  2060. <:#278,9360>32    12    15    10    1001    1342177280    "static"    "Day"    0 
  2061.  
  2062. <:#278,9360>32    22    13    12    8001    1350631552    "edit"    ""    0 
  2063.  
  2064. <:#278,9360>49    12    18    10    1002    1342177280    "static"    "Year"    0 
  2065.  
  2066. <:#278,9360>49    22    22    12    8002    1350631552    "edit"    ""    0 
  2067.  
  2068. <:#278,9360>79    1    71    37    21    1342308359    "button"    "Ending Date"    0 
  2069.  
  2070. <:#278,9360>83    12    20    10    1003    1342177280    "static"    "Month"    0 
  2071.  
  2072. <:#278,9360>90    22    13    12    8003    1350631552    "edit"    ""    0 
  2073.  
  2074. <:#278,9360>107    12    15    10    1004    1342177280    "static"    "Day"    0 
  2075.  
  2076. <:#278,9360>107    22    13    12    8004    1350631552    "edit"    ""    0 
  2077.  
  2078. <:#278,9360>125    12    18    10    1005    1342177280    "static"    "Year"    0 
  2079.  
  2080. <:#278,9360>125    22    22    12    8005    1350631552    "edit"    ""    0 
  2081.  
  2082. <:#278,9360>END DIALOG
  2083.  
  2084. >
  2085.  
  2086. [Embedded]
  2087. 00045857
  2088. >
  2089. [macsum] 17
  2090. Main 0 0 7 11
  2091. FreeGlobals 962 0 1 87
  2092. SetErrorMessage$ 1093 1 2 102
  2093. SetupDDE 1179 0 3 113
  2094. CloseDDE 1422 0 2 138
  2095. InsertAscendField 1509 2 4 153
  2096. DoInsertName 1847 2 8 183
  2097. DoInsert 2878 3 6 243
  2098. DoInsertPhones 3278 1 8 277
  2099. DoCustomFields 4190 1 13 319
  2100. FixName 7057 0 8 456
  2101. GetAscendField$ 7946 1 3 504
  2102. TranslateField$ 8101 1 1 521
  2103. InitializeFieldsArray 11240 0 3 590
  2104. AscendGetFieldDialog 17847 1 6 696
  2105. AscendInsertField 18332 0 -1 727
  2106. ContactHistory 18568 0 -1 735
  2107. [macse]
  2108. 14 Main
  2109. 0 271 "DDEChannel" 1
  2110. 0 271 "selectedName$" 1
  2111. 0 271 "selectedRecord" 1
  2112. 0 271 "errorMsg$" 1
  2113. 0 271 "fields$" 59
  2114. 0 264 "errorMsg$" "An error occurred."
  2115. 20 00000863
  2116. 16 SetupDDE
  2117. 13
  2118. 5 0
  2119. 18 0
  2120. 11 00000311
  2121. 16 FreeGlobals
  2122. 0 3 "Can't initiate DDE communications with Ascend." "DDE error"
  2123. 6 0
  2124. 15
  2125. 9
  2126. 0 265 "DDEChannel"
  2127. 13
  2128. 8 2
  2129. 0 10 "{2}" "GetActiveRecord"
  2130. 13
  2131. 8 5
  2132. 6 5
  2133. 5 0
  2134. 18 0
  2135. 11 00000492
  2136. 16 CloseDDE
  2137. 0 295
  2138. 13
  2139. 0 16 [X] "ASCAMI1.SMM!Main"
  2140. 13
  2141. 8 4
  2142. 16 "{4}"
  2143. 6 0
  2144. 15
  2145. 9
  2146. 0 264 "selectedRecord" "{5}"
  2147. 0 16 "GetRec:" "{5}" ":Last"
  2148. 13
  2149. 0 10 "{2}" [X]
  2150. 13
  2151. 8 6
  2152. 16 FixName
  2153. 16 AscendGetFieldDialog "{5}"
  2154. 13
  2155. 8 1
  2156. 6 1
  2157. 5 0
  2158. 18 5
  2159. 11 00000703
  2160. 16 CloseDDE
  2161. 16 FreeGlobals
  2162. 6 0
  2163. 15
  2164. 9
  2165. 6 1
  2166. 5 9
  2167. 18 5
  2168. 6 1
  2169. 5 59
  2170. 18 0
  2171. 1 2
  2172. 11 00000792
  2173. 16 DoCustomFields "{1}"
  2174. 10 00000822
  2175. 16 InsertAscendField "{1}" 0
  2176. 16 CloseDDE
  2177. 16 FreeGlobals
  2178. 6 0
  2179. 15
  2180. 9
  2181. 16 CloseDDE
  2182. 0 265 "errorMsg$"
  2183. 13
  2184. 8 3
  2185. 0 3 "{3}" "Ascend Find Name"
  2186. 16 FreeGlobals
  2187. 6 0
  2188. 15
  2189. 9
  2190. 14 FreeGlobals
  2191. 0 266 "DDEChannel"
  2192. 0 266 "selectedName$"
  2193. 0 266 "selectedRecord"
  2194. 0 266 "errorMsg$"
  2195. 0 266 "fields$"
  2196. 6 0
  2197. 15
  2198. 9
  2199. 14 SetErrorMessage$
  2200. 0 265 "errorMsg$"
  2201. 13
  2202. 8 2
  2203. 0 264 "errorMsg$" "{0}"
  2204. 6 1
  2205. 15
  2206. 9
  2207. 14 SetupDDE
  2208. 16 SetErrorMessage$ "Cannot initiate DDE connection with Ascend."
  2209. 13
  2210. 8 2
  2211. 5 1
  2212. 8 0
  2213. 0 8 "Ascend" "Phone"
  2214. 13
  2215. 8 1
  2216. 6 1
  2217. 5 0
  2218. 18 0
  2219. 11 00000169
  2220. 5 0
  2221. 8 0
  2222. 0 264 "DDEChannel" "{1}"
  2223. 16 SetErrorMessage$ "{2}"
  2224. 13
  2225. 8 2
  2226. 6 0
  2227. 15
  2228. 9
  2229. 14 CloseDDE
  2230. 0 265 "DDEChannel"
  2231. 13
  2232. 8 1
  2233. 0 9 "{1}"
  2234. 0 264 "DDEChannel" 0
  2235. 6 0
  2236. 15
  2237. 9
  2238. 14 InsertAscendField
  2239. 16 SetErrorMessage$ "Can't insert field into document."
  2240. 13
  2241. 8 4
  2242. 0 265 "DDEChannel"
  2243. 13
  2244. 8 3
  2245. 0 265 "selectedRecord"
  2246. 13
  2247. 8 5
  2248. 16 TranslateField$ "{0}"
  2249. 13
  2250. 0 16 "GetRec:" "{5}" ":" [X]
  2251. 13
  2252. 2 115 1 5 0 "Ascend" "Phone" [X]
  2253. 0 6 "[35]"
  2254. 6 1
  2255. 11 00000290
  2256. 0 6 "[13]"
  2257. 16 SetErrorMessage$ "{4}"
  2258. 13
  2259. 8 4
  2260. 6 2
  2261. 15
  2262. 9
  2263. 14 DoInsertName
  2264. 16 SetErrorMessage$ "Can't insert name into document."
  2265. 13
  2266. 8 9
  2267. 0 265 "DDEChannel"
  2268. 13
  2269. 8 8
  2270. 0 265 "selectedRecord"
  2271. 13
  2272. 8 3
  2273. 0 16 "GetRec:" "{3}" ":"
  2274. 13
  2275. 8 7
  2276. 0 16 "{7}" "First"
  2277. 13
  2278. 0 10 "{8}" [X]
  2279. 13
  2280. 8 4
  2281. 0 16 "{7}" "Last"
  2282. 13
  2283. 0 10 "{8}" [X]
  2284. 13
  2285. 8 5
  2286. 0 16 "{7}" "Title"
  2287. 13
  2288. 0 10 "{8}" [X]
  2289. 13
  2290. 8 6
  2291. 6 0
  2292. 5 0
  2293. 18 0
  2294. 11 00000608
  2295. 6 4
  2296. 7 " "
  2297. 18 1
  2298. 11 00000495
  2299. 0 16 "{7}" "First"
  2300. 13
  2301. 2 115 1 5 0 "Ascend" "Phone" [X]
  2302. 0 6 "[35]"
  2303. 6 5
  2304. 7 " "
  2305. 18 1
  2306. 11 00000495
  2307. 0 6 " "
  2308. 6 5
  2309. 7 " "
  2310. 18 1
  2311. 11 00000595
  2312. 0 16 "{7}" "Last"
  2313. 13
  2314. 2 115 1 5 0 "Ascend" "Phone" [X]
  2315. 0 6 "[35]"
  2316. 10 00000850
  2317. 6 5
  2318. 7 " "
  2319. 18 1
  2320. 11 00000749
  2321. 0 16 "{7}" "Last"
  2322. 13
  2323. 2 115 1 5 0 "Ascend" "Phone" [X]
  2324. 0 6 "[35]"
  2325. 6 4
  2326. 7 " "
  2327. 18 1
  2328. 11 00000749
  2329. 0 6 ", "
  2330. 6 4
  2331. 7 " "
  2332. 18 1
  2333. 11 00000850
  2334. 0 16 "{7}" "First"
  2335. 13
  2336. 2 115 1 5 0 "Ascend" "Phone" [X]
  2337. 0 6 "[35]"
  2338. 6 1
  2339. 6 6
  2340. 7 " "
  2341. 18 1
  2342. 1 1
  2343. 11 00000971
  2344. 0 6 ", "
  2345. 0 16 "{7}" "Title"
  2346. 13
  2347. 2 115 1 5 0 "Ascend" "Phone" [X]
  2348. 0 6 "[35]"
  2349. 0 6 "[13]"
  2350. 16 SetErrorMessage$ "{9}"
  2351. 13
  2352. 8 9
  2353. 6 2
  2354. 15
  2355. 9
  2356. 14 DoInsert
  2357. 5 0
  2358. 8 3
  2359. 16 SetErrorMessage$ "Can't insert field into document."
  2360. 13
  2361. 8 5
  2362. 0 265 "DDEChannel"
  2363. 13
  2364. 8 4
  2365. 0 265 "selectedRecord"
  2366. 13
  2367. 8 6
  2368. 0 16 "GetRec:" "{6}" ":" "{0}"
  2369. 13
  2370. 8 8
  2371. 0 10 "{4}" "{8}"
  2372. 13
  2373. 8 7
  2374. 6 7
  2375. 7 " "
  2376. 18 1
  2377. 11 00000352
  2378. 5 1
  2379. 8 3
  2380. 2 115 1 5 0 "Ascend" "Phone" "{8}"
  2381. 0 6 "[35]{1}"
  2382. 6 2
  2383. 5 0
  2384. 18 1
  2385. 11 00000352
  2386. 0 6 "[13]"
  2387. 16 SetErrorMessage$ "{5}"
  2388. 13
  2389. 8 5
  2390. 6 3
  2391. 15
  2392. 9
  2393. 14 DoInsertPhones
  2394. 5 0
  2395. 8 1
  2396. 16 SetErrorMessage$ "Can't insert phone numbers into document."
  2397. 13
  2398. 8 3
  2399. 0 265 "DDEChannel"
  2400. 13
  2401. 8 2
  2402. 0 265 "selectedRecord"
  2403. 13
  2404. 8 4
  2405. 0 16 "GetRec:" "{4}" ":"
  2406. 13
  2407. 8 5
  2408. 5 1
  2409. 8 6
  2410. 5 5
  2411. 6 6
  2412. 18 2
  2413. 12 00000285
  2414. 10 00000864
  2415. 5 1
  2416. 6 6
  2417. 3 0
  2418. 8 6
  2419. 10 00000210
  2420. 6 6
  2421. 0 40 "0"
  2422. 13
  2423. 3 0
  2424. 0 39 [X]
  2425. 13
  2426. 0 16 "{5}" "PhDesc" [X]
  2427. 13
  2428. 0 10 "{2}" [X]
  2429. 13
  2430. 8 7
  2431. 0 17 "{7}"
  2432. 13
  2433. 8 8
  2434. 6 8
  2435. 7 "work"
  2436. 18 0
  2437. 6 0
  2438. 5 1
  2439. 18 0
  2440. 6 0
  2441. 5 3
  2442. 18 0
  2443. 1 2
  2444. 1 1
  2445. 11 00000632
  2446. 6 6
  2447. 0 40 "0"
  2448. 13
  2449. 3 0
  2450. 0 39 [X]
  2451. 13
  2452. 0 16 "Phone" [X]
  2453. 13
  2454. 16 DoInsert [X] "" 0
  2455. 13
  2456. 5 0
  2457. 18 1
  2458. 11 00000619
  2459. 0 6 " Work"
  2460. 5 1
  2461. 8 1
  2462. 0 6 "[13]"
  2463. 10 00000851
  2464. 6 8
  2465. 7 "fax"
  2466. 18 0
  2467. 6 0
  2468. 5 2
  2469. 18 0
  2470. 6 0
  2471. 5 3
  2472. 18 0
  2473. 1 2
  2474. 1 1
  2475. 11 00000851
  2476. 6 6
  2477. 0 40 "0"
  2478. 13
  2479. 3 0
  2480. 0 39 [X]
  2481. 13
  2482. 0 16 "Phone" [X]
  2483. 13
  2484. 16 DoInsert [X] "" 0
  2485. 13
  2486. 5 0
  2487. 18 1
  2488. 11 00000851
  2489. 0 6 " Fax"
  2490. 5 1
  2491. 8 1
  2492. 0 6 "[13]"
  2493. 10 00000252
  2494. 16 SetErrorMessage$ "{3}"
  2495. 13
  2496. 8 3
  2497. 6 1
  2498. 15
  2499. 9
  2500. 14 DoCustomFields
  2501. 16 SetErrorMessage$ "Can't insert custom fields into document."
  2502. 13
  2503. 8 3
  2504. 0 265 "DDEChannel"
  2505. 13
  2506. 8 2
  2507. 0 265 "selectedRecord"
  2508. 13
  2509. 8 4
  2510. 5 1
  2511. 6 0
  2512. 18 0
  2513. 11 00000412
  2514. 16 DoInsertName 0 0
  2515. 16 DoInsert "Address1Line1" "" 1
  2516. 13
  2517. 8 5
  2518. 16 DoInsert "Address1Line2" "" 1
  2519. 13
  2520. 8 5
  2521. 16 DoInsert "City1" ", " 0
  2522. 13
  2523. 8 5
  2524. 16 DoInsert "State1" " " 0
  2525. 13
  2526. 8 5
  2527. 16 DoInsert "Zip1" "" 1
  2528. 13
  2529. 8 5
  2530. 10 00002819
  2531. 5 2
  2532. 6 0
  2533. 18 0
  2534. 11 00000669
  2535. 16 DoInsertName 0 0
  2536. 16 DoInsert "Address2Line1" "" 1
  2537. 13
  2538. 8 5
  2539. 16 DoInsert "Address2Line2" "" 1
  2540. 13
  2541. 8 5
  2542. 16 DoInsert "City2" ", " 0
  2543. 13
  2544. 8 5
  2545. 16 DoInsert "State2" " " 0
  2546. 13
  2547. 8 5
  2548. 16 DoInsert "Zip2" "" 1
  2549. 13
  2550. 8 5
  2551. 10 00002819
  2552. 5 3
  2553. 6 0
  2554. 18 0
  2555. 11 00000768
  2556. 16 DoInsertName 0 0
  2557. 16 DoInsert "Phone1" "" 1
  2558. 13
  2559. 8 5
  2560. 10 00002819
  2561. 5 4
  2562. 6 0
  2563. 18 0
  2564. 11 00000903
  2565. 16 DoInsertName 0 0
  2566. 16 DoInsert "Phone1" "" 1
  2567. 13
  2568. 8 5
  2569. 16 DoInsert "Phone2" "" 1
  2570. 13
  2571. 8 5
  2572. 10 00002819
  2573. 5 5
  2574. 6 0
  2575. 18 0
  2576. 11 00001290
  2577. 16 DoInsertName 0 1
  2578. 16 DoInsert "Company" "" 1
  2579. 13
  2580. 8 5
  2581. 16 DoInsert "Address1Line1" "" 1
  2582. 13
  2583. 8 5
  2584. 16 DoInsert "Address1Line2" "" 1
  2585. 13
  2586. 8 5
  2587. 16 DoInsert "City1" ", " 0
  2588. 13
  2589. 8 5
  2590. 16 DoInsert "State1" " " 0
  2591. 13
  2592. 8 5
  2593. 16 DoInsert "Zip1" "" 1
  2594. 13
  2595. 8 5
  2596. 16 DoInsertPhones 3
  2597. 13
  2598. 8 5
  2599. 0 6 "[13][13]Dear "
  2600. 16 DoInsert "Hailing" ",[13]" 1
  2601. 13
  2602. 8 5
  2603. 10 00002819
  2604. 5 6
  2605. 6 0
  2606. 18 0
  2607. 11 00001677
  2608. 16 DoInsertName 0 1
  2609. 16 DoInsert "Company" "" 1
  2610. 13
  2611. 8 5
  2612. 16 DoInsert "Address2Line1" "" 1
  2613. 13
  2614. 8 5
  2615. 16 DoInsert "Address2Line2" "" 1
  2616. 13
  2617. 8 5
  2618. 16 DoInsert "City2" ", " 0
  2619. 13
  2620. 8 5
  2621. 16 DoInsert "State2" " " 0
  2622. 13
  2623. 8 5
  2624. 16 DoInsert "Zip2" "" 1
  2625. 13
  2626. 8 5
  2627. 16 DoInsertPhones 3
  2628. 13
  2629. 8 5
  2630. 0 6 "[13][13]Dear "
  2631. 16 DoInsert "Hailing" ",[13]" 1
  2632. 13
  2633. 8 5
  2634. 10 00002819
  2635. 5 7
  2636. 6 0
  2637. 18 0
  2638. 11 00002025
  2639. 0 6 "Please Deliver the Following To:  "
  2640. 16 DoInsertName 0 1
  2641. 0 6 "[13]Company Name:  "
  2642. 16 DoInsert "Company" "" 0
  2643. 0 6 "[13][13]"
  2644. 0 6 "Date:  "
  2645. 2 165 1 2 3
  2646. 0 6 "[13][13]"
  2647. 0 6 "Destination FAX Number:  "
  2648. 16 DoInsertPhones 2
  2649. 13
  2650. 5 0
  2651. 18 1
  2652. 11 00002012
  2653. 0 6 "[4133][4133][4133][4133][4133][13][13]"
  2654. 10 00002819
  2655. 5 8
  2656. 6 0
  2657. 18 0
  2658. 11 00002819
  2659. 0 31 8000 "10"
  2660. 0 31 8001 "01"
  2661. 0 31 8002 "1992"
  2662. 0 31 8003 "12"
  2663. 0 31 8004 "31"
  2664. 0 31 8005 "1997"
  2665. 0 26 "." "ContactHistory"
  2666. 13
  2667. 8 5
  2668. 6 5
  2669. 5 1
  2670. 18 0
  2671. 11 00002819
  2672. 0 296 1
  2673. 0 27 8000
  2674. 13
  2675. 8 6
  2676. 0 27 8001
  2677. 13
  2678. 8 7
  2679. 0 27 8002
  2680. 13
  2681. 8 8
  2682. 0 27 8003
  2683. 13
  2684. 8 9
  2685. 0 27 8004
  2686. 13
  2687. 8 10
  2688. 0 27 8005
  2689. 13
  2690. 8 11
  2691. 0 14 "{6}"
  2692. 13
  2693. 5 1
  2694. 18 0
  2695. 11 00002415
  2696. 0 16 "0" "{6}"
  2697. 13
  2698. 8 6
  2699. 0 14 "{7}"
  2700. 13
  2701. 5 1
  2702. 18 0
  2703. 11 00002480
  2704. 0 16 "0" "{7}"
  2705. 13
  2706. 8 7
  2707. 0 14 "{9}"
  2708. 13
  2709. 5 1
  2710. 18 0
  2711. 11 00002545
  2712. 0 16 "0" "{9}"
  2713. 13
  2714. 8 9
  2715. 0 14 "{10}"
  2716. 13
  2717. 5 1
  2718. 18 0
  2719. 11 00002613
  2720. 0 16 "0" "{10}"
  2721. 13
  2722. 8 10
  2723. 0 16 "GetHistory:" "{4}" ":"
  2724. 13
  2725. 8 13
  2726. 0 16 "{13}" "{6}" "-" "{7}" "-" "{8}" ":"
  2727. 13
  2728. 8 13
  2729. 0 16 "{13}" "{9}" "-" "{10}" "-" "{11}"
  2730. 13
  2731. 8 13
  2732. 2 115 1 5 0 "Ascend" "Phone" "{13}"
  2733. 0 6 "[35][13]"
  2734. 0 296 0
  2735. 16 SetErrorMessage$ "{3}"
  2736. 13
  2737. 8 3
  2738. 6 1
  2739. 15
  2740. 9
  2741. 14 FixName
  2742. 16 SetErrorMessage$ "Can't resolve name from Ascend."
  2743. 13
  2744. 8 7
  2745. 0 265 "DDEChannel"
  2746. 13
  2747. 8 1
  2748. 0 265 "selectedName$"
  2749. 13
  2750. 8 2
  2751. 0 265 "selectedRecord"
  2752. 13
  2753. 8 3
  2754. 0 16 "GetRec:" "{3}" ":Last"
  2755. 13
  2756. 0 10 "{1}" [X]
  2757. 13
  2758. 8 4
  2759. 0 16 "GetRec:" "{3}" ":First"
  2760. 13
  2761. 0 10 "{1}" [X]
  2762. 13
  2763. 8 5
  2764. 0 16 "GetRec:" "{3}" ":Company"
  2765. 13
  2766. 0 10 "{1}" [X]
  2767. 13
  2768. 8 6
  2769. 6 2
  2770. 6 4
  2771. 18 0
  2772. 11 00000523
  2773. 6 5
  2774. 7 " "
  2775. 18 1
  2776. 11 00000443
  2777. 0 16 "{2}" ", " "{5}"
  2778. 13
  2779. 8 2
  2780. 6 6
  2781. 7 " "
  2782. 18 1
  2783. 11 00000510
  2784. 0 16 "{2}" " (" "{6}" ")"
  2785. 13
  2786. 8 2
  2787. 10 00000782
  2788. 6 2
  2789. 6 6
  2790. 18 0
  2791. 11 00000782
  2792. 6 5
  2793. 7 " "
  2794. 18 1
  2795. 11 00000715
  2796. 0 16 "{2}" " (" "{5}"
  2797. 13
  2798. 8 2
  2799. 6 4
  2800. 7 " "
  2801. 18 1
  2802. 11 00000677
  2803. 0 16 "{2}" " " "{4}"
  2804. 13
  2805. 8 2
  2806. 0 16 "{2}" ")"
  2807. 13
  2808. 8 2
  2809. 10 00000782
  2810. 6 4
  2811. 7 " "
  2812. 18 1
  2813. 11 00000782
  2814. 0 16 "{2}" " (" "{4}" ")"
  2815. 13
  2816. 8 2
  2817. 0 264 "selectedName$" "{2}"
  2818. 0 264 "selectedRecord" "{3}"
  2819. 16 SetErrorMessage$ "{7}"
  2820. 13
  2821. 8 7
  2822. 6 0
  2823. 15
  2824. 9
  2825. 14 GetAscendField$
  2826. 0 265 "DDEChannel"
  2827. 13
  2828. 8 2
  2829. 0 265 "selectedRecord"
  2830. 13
  2831. 8 3
  2832. 0 16 "GetRec:" "{3}" ":" "{0}"
  2833. 13
  2834. 0 10 "{2}" [X]
  2835. 13
  2836. 8 1
  2837. 6 1
  2838. 15
  2839. 9
  2840. 14 TranslateField$
  2841. 7 ""
  2842. 8 1
  2843. 6 0
  2844. 5 9
  2845. 18 5
  2846. 6 0
  2847. 5 59
  2848. 18 0
  2849. 1 2
  2850. 11 00000094
  2851. 6 1
  2852. 15
  2853. 9
  2854. 5 9
  2855. 6 0
  2856. 18 0
  2857. 11 00000151
  2858. 7 "Last"
  2859. 8 1
  2860. 10 00003127
  2861. 5 10
  2862. 6 0
  2863. 18 0
  2864. 11 00000210
  2865. 7 "First"
  2866. 8 1
  2867. 10 00003127
  2868. 5 11
  2869. 6 0
  2870. 18 0
  2871. 11 00000271
  2872. 7 "Company"
  2873. 8 1
  2874. 10 00003127
  2875. 5 12
  2876. 6 0
  2877. 18 0
  2878. 11 00000330
  2879. 7 "Title"
  2880. 8 1
  2881. 10 00003127
  2882. 5 13
  2883. 6 0
  2884. 18 0
  2885. 11 00000394
  2886. 7 "Department"
  2887. 8 1
  2888. 10 00003127
  2889. 5 14
  2890. 6 0
  2891. 18 0
  2892. 11 00000457
  2893. 7 "Assistant"
  2894. 8 1
  2895. 10 00003127
  2896. 5 15
  2897. 6 0
  2898. 18 0
  2899. 11 00000523
  2900. 7 "EmailAddress"
  2901. 8 1
  2902. 10 00003127
  2903. 5 16
  2904. 6 0
  2905. 18 0
  2906. 11 00000587
  2907. 7 "Salutation"
  2908. 8 1
  2909. 10 00003127
  2910. 5 17
  2911. 6 0
  2912. 18 0
  2913. 11 00000648
  2914. 7 "Hailing"
  2915. 8 1
  2916. 10 00003127
  2917. 5 18
  2918. 6 0
  2919. 18 0
  2920. 11 00000710
  2921. 7 "Category"
  2922. 8 1
  2923. 10 00003127
  2924. 5 19
  2925. 6 0
  2926. 18 0
  2927. 11 00000772
  2928. 7 "AddDesc1"
  2929. 8 1
  2930. 10 00003127
  2931. 5 20
  2932. 6 0
  2933. 18 0
  2934. 11 00000839
  2935. 7 "Address1Line1"
  2936. 8 1
  2937. 10 00003127
  2938. 5 21
  2939. 6 0
  2940. 18 0
  2941. 11 00000906
  2942. 7 "Address1Line2"
  2943. 8 1
  2944. 10 00003127
  2945. 5 22
  2946. 6 0
  2947. 18 0
  2948. 11 00000965
  2949. 7 "City1"
  2950. 8 1
  2951. 10 00003127
  2952. 5 23
  2953. 6 0
  2954. 18 0
  2955. 11 00001025
  2956. 7 "State1"
  2957. 8 1
  2958. 10 00003127
  2959. 5 24
  2960. 6 0
  2961. 18 0
  2962. 11 00001083
  2963. 7 "Zip1"
  2964. 8 1
  2965. 10 00003127
  2966. 5 25
  2967. 6 0
  2968. 18 0
  2969. 11 00001145
  2970. 7 "Country1"
  2971. 8 1
  2972. 10 00003127
  2973. 5 26
  2974. 6 0
  2975. 18 0
  2976. 11 00001207
  2977. 7 "AddDesc2"
  2978. 8 1
  2979. 10 00003127
  2980. 5 27
  2981. 6 0
  2982. 18 0
  2983. 11 00001274
  2984. 7 "Address2Line1"
  2985. 8 1
  2986. 10 00003127
  2987. 5 28
  2988. 6 0
  2989. 18 0
  2990. 11 00001341
  2991. 7 "Address2Line2"
  2992. 8 1
  2993. 10 00003127
  2994. 5 29
  2995. 6 0
  2996. 18 0
  2997. 11 00001400
  2998. 7 "City2"
  2999. 8 1
  3000. 10 00003127
  3001. 5 30
  3002. 6 0
  3003. 18 0
  3004. 11 00001460
  3005. 7 "State2"
  3006. 8 1
  3007. 10 00003127
  3008. 5 31
  3009. 6 0
  3010. 18 0
  3011. 11 00001518
  3012. 7 "Zip2"
  3013. 8 1
  3014. 10 00003127
  3015. 5 32
  3016. 6 0
  3017. 18 0
  3018. 11 00001580
  3019. 7 "Country2"
  3020. 8 1
  3021. 10 00003127
  3022. 5 33
  3023. 6 0
  3024. 18 0
  3025. 11 00001641
  3026. 7 "PhDesc1"
  3027. 8 1
  3028. 10 00003127
  3029. 5 34
  3030. 6 0
  3031. 18 0
  3032. 11 00001701
  3033. 7 "Phone1"
  3034. 8 1
  3035. 10 00003127
  3036. 5 35
  3037. 6 0
  3038. 18 0
  3039. 11 00001759
  3040. 7 "Ext1"
  3041. 8 1
  3042. 10 00003127
  3043. 5 36
  3044. 6 0
  3045. 18 0
  3046. 11 00001820
  3047. 7 "PhDesc2"
  3048. 8 1
  3049. 10 00003127
  3050. 5 37
  3051. 6 0
  3052. 18 0
  3053. 11 00001880
  3054. 7 "Phone2"
  3055. 8 1
  3056. 10 00003127
  3057. 5 38
  3058. 6 0
  3059. 18 0
  3060. 11 00001938
  3061. 7 "Ext2"
  3062. 8 1
  3063. 10 00003127
  3064. 5 39
  3065. 6 0
  3066. 18 0
  3067. 11 00001999
  3068. 7 "PhDesc3"
  3069. 8 1
  3070. 10 00003127
  3071. 5 40
  3072. 6 0
  3073. 18 0
  3074. 11 00002059
  3075. 7 "Phone3"
  3076. 8 1
  3077. 10 00003127
  3078. 5 41
  3079. 6 0
  3080. 18 0
  3081. 11 00002117
  3082. 7 "Ext3"
  3083. 8 1
  3084. 10 00003127
  3085. 5 42
  3086. 6 0
  3087. 18 0
  3088. 11 00002178
  3089. 7 "PhDesc4"
  3090. 8 1
  3091. 10 00003127
  3092. 5 43
  3093. 6 0
  3094. 18 0
  3095. 11 00002238
  3096. 7 "Phone4"
  3097. 8 1
  3098. 10 00003127
  3099. 5 44
  3100. 6 0
  3101. 18 0
  3102. 11 00002296
  3103. 7 "Ext4"
  3104. 8 1
  3105. 10 00003127
  3106. 5 45
  3107. 6 0
  3108. 18 0
  3109. 11 00002357
  3110. 7 "PhDesc5"
  3111. 8 1
  3112. 10 00003127
  3113. 5 46
  3114. 6 0
  3115. 18 0
  3116. 11 00002417
  3117. 7 "Phone5"
  3118. 8 1
  3119. 10 00003127
  3120. 5 47
  3121. 6 0
  3122. 18 0
  3123. 11 00002475
  3124. 7 "Ext5"
  3125. 8 1
  3126. 10 00003127
  3127. 5 48
  3128. 6 0
  3129. 18 0
  3130. 11 00002534
  3131. 7 "Notes"
  3132. 8 1
  3133. 10 00003127
  3134. 5 49
  3135. 6 0
  3136. 18 0
  3137. 11 00002593
  3138. 7 "Keys1"
  3139. 8 1
  3140. 10 00003127
  3141. 5 50
  3142. 6 0
  3143. 18 0
  3144. 11 00002652
  3145. 7 "Keys2"
  3146. 8 1
  3147. 10 00003127
  3148. 5 51
  3149. 6 0
  3150. 18 0
  3151. 11 00002711
  3152. 7 "Keys3"
  3153. 8 1
  3154. 10 00003127
  3155. 5 52
  3156. 6 0
  3157. 18 0
  3158. 11 00002770
  3159. 7 "Keys4"
  3160. 8 1
  3161. 10 00003127
  3162. 5 53
  3163. 6 0
  3164. 18 0
  3165. 11 00002829
  3166. 7 "Keys5"
  3167. 8 1
  3168. 10 00003127
  3169. 5 54
  3170. 6 0
  3171. 18 0
  3172. 11 00002888
  3173. 7 "Keys6"
  3174. 8 1
  3175. 10 00003127
  3176. 5 55
  3177. 6 0
  3178. 18 0
  3179. 11 00002945
  3180. 7 "VIP"
  3181. 8 1
  3182. 10 00003127
  3183. 5 56
  3184. 6 0
  3185. 18 0
  3186. 11 00003010
  3187. 7 "DateEntered"
  3188. 8 1
  3189. 10 00003127
  3190. 5 57
  3191. 6 0
  3192. 18 0
  3193. 11 00003075
  3194. 7 "LastContact"
  3195. 8 1
  3196. 10 00003127
  3197. 5 58
  3198. 6 0
  3199. 18 0
  3200. 11 00003127
  3201. 7 "NextContact"
  3202. 8 1
  3203. 6 1
  3204. 15
  3205. 9
  3206. 14 InitializeFieldsArray
  3207. 16 SetErrorMessage$ "Can't create list box for dialog"
  3208. 13
  3209. 8 2
  3210. 0 296 1
  3211. 0 789 "Examining fields . . . "
  3212. 0 272 "fields$" 1 "Custom Fields #1 (Name and Address 1)"
  3213. 0 272 "fields$" 2 "Custom Fields #2 (Name and Address 2)"
  3214. 0 272 "fields$" 3 "Custom Fields #3 (Name and Phone 1)"
  3215. 0 272 "fields$" 4 "Custom Fields #4 (Name and Phone 1 and 2)"
  3216. 0 272 "fields$" 5 "Custom Fields #5 (Full Heading, Address 1)"
  3217. 0 272 "fields$" 6 "Custom Fields #6 (Full Heading, Address 2)"
  3218. 0 272 "fields$" 7 "Custom Fields #7 (Fax Header Sheet)"
  3219. 0 272 "fields$" 8 "Custom Fields #8 (Name and Contact History)"
  3220. 16 TranslateField$ 9
  3221. 13
  3222. 16 GetAscendField$ [X]
  3223. 13
  3224. 0 16 "Last Name  (" [X] ")"
  3225. 13
  3226. 0 272 "fields$" 9 [X]
  3227. 16 TranslateField$ 10
  3228. 13
  3229. 16 GetAscendField$ [X]
  3230. 13
  3231. 0 16 "First Name  (" [X] ")"
  3232. 13
  3233. 0 272 "fields$" 10 [X]
  3234. 16 TranslateField$ 11
  3235. 13
  3236. 16 GetAscendField$ [X]
  3237. 13
  3238. 0 16 "Company  (" [X] ")"
  3239. 13
  3240. 0 272 "fields$" 11 [X]
  3241. 16 TranslateField$ 12
  3242. 13
  3243. 16 GetAscendField$ [X]
  3244. 13
  3245. 0 16 "Title  (" [X] ")"
  3246. 13
  3247. 0 272 "fields$" 12 [X]
  3248. 16 TranslateField$ 13
  3249. 13
  3250. 16 GetAscendField$ [X]
  3251. 13
  3252. 0 16 "Department  (" [X] ")"
  3253. 13
  3254. 0 272 "fields$" 13 [X]
  3255. 16 TranslateField$ 14
  3256. 13
  3257. 16 GetAscendField$ [X]
  3258. 13
  3259. 0 16 "Assistant  (" [X] ")"
  3260. 13
  3261. 0 272 "fields$" 14 [X]
  3262. 16 TranslateField$ 15
  3263. 13
  3264. 16 GetAscendField$ [X]
  3265. 13
  3266. 0 16 "E-mail Address  (" [X] ")"
  3267. 13
  3268. 0 272 "fields$" 15 [X]
  3269. 16 TranslateField$ 16
  3270. 13
  3271. 16 GetAscendField$ [X]
  3272. 13
  3273. 0 16 "Salutation  (" [X] ")"
  3274. 13
  3275. 0 272 "fields$" 16 [X]
  3276. 16 TranslateField$ 17
  3277. 13
  3278. 16 GetAscendField$ [X]
  3279. 13
  3280. 0 16 "Hailing  (" [X] ")"
  3281. 13
  3282. 0 272 "fields$" 17 [X]
  3283. 16 TranslateField$ 18
  3284. 13
  3285. 16 GetAscendField$ [X]
  3286. 13
  3287. 0 16 "Category  (" [X] ")"
  3288. 13
  3289. 0 272 "fields$" 18 [X]
  3290. 16 TranslateField$ 19
  3291. 13
  3292. 16 GetAscendField$ [X]
  3293. 13
  3294. 0 16 "Address 1 Description  (" [X] ")"
  3295. 13
  3296. 0 272 "fields$" 19 [X]
  3297. 16 TranslateField$ 20
  3298. 13
  3299. 16 GetAscendField$ [X]
  3300. 13
  3301. 0 16 "Address 1, Line 1  (" [X] ")"
  3302. 13
  3303. 0 272 "fields$" 20 [X]
  3304. 16 TranslateField$ 21
  3305. 13
  3306. 16 GetAscendField$ [X]
  3307. 13
  3308. 0 16 "Address 1, Line 2  (" [X] ")"
  3309. 13
  3310. 0 272 "fields$" 21 [X]
  3311. 16 TranslateField$ 22
  3312. 13
  3313. 16 GetAscendField$ [X]
  3314. 13
  3315. 0 16 "Address 1, City  (" [X] ")"
  3316. 13
  3317. 0 272 "fields$" 22 [X]
  3318. 16 TranslateField$ 23
  3319. 13
  3320. 16 GetAscendField$ [X]
  3321. 13
  3322. 0 16 "Address 1, State  (" [X] ")"
  3323. 13
  3324. 0 272 "fields$" 23 [X]
  3325. 16 TranslateField$ 24
  3326. 13
  3327. 16 GetAscendField$ [X]
  3328. 13
  3329. 0 16 "Address 1, Zip Code  (" [X] ")"
  3330. 13
  3331. 0 272 "fields$" 24 [X]
  3332. 16 TranslateField$ 25
  3333. 13
  3334. 16 GetAscendField$ [X]
  3335. 13
  3336. 0 16 "Address 1, Country  (" [X] ")"
  3337. 13
  3338. 0 272 "fields$" 25 [X]
  3339. 16 TranslateField$ 26
  3340. 13
  3341. 16 GetAscendField$ [X]
  3342. 13
  3343. 0 16 "Address 2 Description  (" [X] ")"
  3344. 13
  3345. 0 272 "fields$" 26 [X]
  3346. 16 TranslateField$ 27
  3347. 13
  3348. 16 GetAscendField$ [X]
  3349. 13
  3350. 0 16 "Address 2, Line 1  (" [X] ")"
  3351. 13
  3352. 0 272 "fields$" 27 [X]
  3353. 16 TranslateField$ 28
  3354. 13
  3355. 16 GetAscendField$ [X]
  3356. 13
  3357. 0 16 "Address 2, Line 2  (" [X] ")"
  3358. 13
  3359. 0 272 "fields$" 28 [X]
  3360. 16 TranslateField$ 29
  3361. 13
  3362. 16 GetAscendField$ [X]
  3363. 13
  3364. 0 16 "Address 2, City  (" [X] ")"
  3365. 13
  3366. 0 272 "fields$" 29 [X]
  3367. 16 TranslateField$ 30
  3368. 13
  3369. 16 GetAscendField$ [X]
  3370. 13
  3371. 0 16 "Address 2, State  (" [X] ")"
  3372. 13
  3373. 0 272 "fields$" 30 [X]
  3374. 16 TranslateField$ 31
  3375. 13
  3376. 16 GetAscendField$ [X]
  3377. 13
  3378. 0 16 "Address 2, Zip Code  (" [X] ")"
  3379. 13
  3380. 0 272 "fields$" 31 [X]
  3381. 16 TranslateField$ 32
  3382. 13
  3383. 16 GetAscendField$ [X]
  3384. 13
  3385. 0 16 "Address 2, Country  (" [X] ")"
  3386. 13
  3387. 0 272 "fields$" 32 [X]
  3388. 16 TranslateField$ 33
  3389. 13
  3390. 16 GetAscendField$ [X]
  3391. 13
  3392. 0 16 "Phone Description 1  (" [X] ")"
  3393. 13
  3394. 0 272 "fields$" 33 [X]
  3395. 16 TranslateField$ 34
  3396. 13
  3397. 16 GetAscendField$ [X]
  3398. 13
  3399. 0 16 "Phone Number 1  (" [X] ")"
  3400. 13
  3401. 0 272 "fields$" 34 [X]
  3402. 16 TranslateField$ 35
  3403. 13
  3404. 16 GetAscendField$ [X]
  3405. 13
  3406. 0 16 "Extension 1  (" [X] ")"
  3407. 13
  3408. 0 272 "fields$" 35 [X]
  3409. 16 TranslateField$ 36
  3410. 13
  3411. 16 GetAscendField$ [X]
  3412. 13
  3413. 0 16 "Phone Description 2  (" [X] ")"
  3414. 13
  3415. 0 272 "fields$" 36 [X]
  3416. 16 TranslateField$ 37
  3417. 13
  3418. 16 GetAscendField$ [X]
  3419. 13
  3420. 0 16 "Phone Number 2  (" [X] ")"
  3421. 13
  3422. 0 272 "fields$" 37 [X]
  3423. 16 TranslateField$ 38
  3424. 13
  3425. 16 GetAscendField$ [X]
  3426. 13
  3427. 0 16 "Extension 2  (" [X] ")"
  3428. 13
  3429. 0 272 "fields$" 38 [X]
  3430. 16 TranslateField$ 39
  3431. 13
  3432. 16 GetAscendField$ [X]
  3433. 13
  3434. 0 16 "Phone Description 3  (" [X] ")"
  3435. 13
  3436. 0 272 "fields$" 39 [X]
  3437. 16 TranslateField$ 40
  3438. 13
  3439. 16 GetAscendField$ [X]
  3440. 13
  3441. 0 16 "Phone Number 3  (" [X] ")"
  3442. 13
  3443. 0 272 "fields$" 40 [X]
  3444. 16 TranslateField$ 41
  3445. 13
  3446. 16 GetAscendField$ [X]
  3447. 13
  3448. 0 16 "Extension 3  (" [X] ")"
  3449. 13
  3450. 0 272 "fields$" 41 [X]
  3451. 16 TranslateField$ 42
  3452. 13
  3453. 16 GetAscendField$ [X]
  3454. 13
  3455. 0 16 "Phone Description 4  (" [X] ")"
  3456. 13
  3457. 0 272 "fields$" 42 [X]
  3458. 16 TranslateField$ 43
  3459. 13
  3460. 16 GetAscendField$ [X]
  3461. 13
  3462. 0 16 "Phone Number 4  (" [X] ")"
  3463. 13
  3464. 0 272 "fields$" 43 [X]
  3465. 16 TranslateField$ 44
  3466. 13
  3467. 16 GetAscendField$ [X]
  3468. 13
  3469. 0 16 "Extension 4  (" [X] ")"
  3470. 13
  3471. 0 272 "fields$" 44 [X]
  3472. 16 TranslateField$ 45
  3473. 13
  3474. 16 GetAscendField$ [X]
  3475. 13
  3476. 0 16 "Phone Description 5  (" [X] ")"
  3477. 13
  3478. 0 272 "fields$" 45 [X]
  3479. 16 TranslateField$ 46
  3480. 13
  3481. 16 GetAscendField$ [X]
  3482. 13
  3483. 0 16 "Phone Number 5  (" [X] ")"
  3484. 13
  3485. 0 272 "fields$" 46 [X]
  3486. 16 TranslateField$ 47
  3487. 13
  3488. 16 GetAscendField$ [X]
  3489. 13
  3490. 0 16 "Extension 5  (" [X] ")"
  3491. 13
  3492. 0 272 "fields$" 47 [X]
  3493. 0 272 "fields$" 48 "Notes  ( . . . )"
  3494. 16 TranslateField$ 49
  3495. 13
  3496. 16 GetAscendField$ [X]
  3497. 13
  3498. 0 16 "Key Code 1  (" [X] ")"
  3499. 13
  3500. 0 272 "fields$" 49 [X]
  3501. 16 TranslateField$ 50
  3502. 13
  3503. 16 GetAscendField$ [X]
  3504. 13
  3505. 0 16 "Key Code 2  (" [X] ")"
  3506. 13
  3507. 0 272 "fields$" 50 [X]
  3508. 16 TranslateField$ 51
  3509. 13
  3510. 16 GetAscendField$ [X]
  3511. 13
  3512. 0 16 "Key Code 3  (" [X] ")"
  3513. 13
  3514. 0 272 "fields$" 51 [X]
  3515. 16 TranslateField$ 52
  3516. 13
  3517. 16 GetAscendField$ [X]
  3518. 13
  3519. 0 16 "Key Code 4  (" [X] ")"
  3520. 13
  3521. 0 272 "fields$" 52 [X]
  3522. 16 TranslateField$ 53
  3523. 13
  3524. 16 GetAscendField$ [X]
  3525. 13
  3526. 0 16 "Key Code 5  (" [X] ")"
  3527. 13
  3528. 0 272 "fields$" 53 [X]
  3529. 16 TranslateField$ 54
  3530. 13
  3531. 16 GetAscendField$ [X]
  3532. 13
  3533. 0 16 "Key Code 6  (" [X] ")"
  3534. 13
  3535. 0 272 "fields$" 54 [X]
  3536. 16 TranslateField$ 55
  3537. 13
  3538. 16 GetAscendField$ [X]
  3539. 13
  3540. 0 16 "VIP  (" [X] ")"
  3541. 13
  3542. 0 272 "fields$" 55 [X]
  3543. 16 TranslateField$ 56
  3544. 13
  3545. 16 GetAscendField$ [X]
  3546. 13
  3547. 0 16 "Date Entered  (" [X] ")"
  3548. 13
  3549. 0 272 "fields$" 56 [X]
  3550. 16 TranslateField$ 57
  3551. 13
  3552. 16 GetAscendField$ [X]
  3553. 13
  3554. 0 16 "Last Contact  (" [X] ")"
  3555. 13
  3556. 0 272 "fields$" 57 [X]
  3557. 16 TranslateField$ 58
  3558. 13
  3559. 16 GetAscendField$ [X]
  3560. 13
  3561. 0 16 "Next Contact  (" [X] ")"
  3562. 13
  3563. 0 272 "fields$" 58 [X]
  3564. 0 272 "fields$" 59 "Contact History . . . "
  3565. 5 1
  3566. 8 1
  3567. 5 59
  3568. 6 1
  3569. 18 2
  3570. 12 00006490
  3571. 10 00006540
  3572. 5 1
  3573. 6 1
  3574. 3 0
  3575. 8 1
  3576. 10 00006414
  3577. 0 273 "fields$" "{1}"
  3578. 13
  3579. 0 25 [X]
  3580. 10 00006457
  3581. 0 789 ""
  3582. 0 296 0
  3583. 16 SetErrorMessage$ "{2}"
  3584. 13
  3585. 8 2
  3586. 6 0
  3587. 15
  3588. 9
  3589. 14 AscendGetFieldDialog
  3590. 5 59
  3591. 21 6 [X]
  3592. 5 -1
  3593. 8 1
  3594. 16 SetErrorMessage$ "Error with Ascend Names dialog."
  3595. 13
  3596. 8 2
  3597. 16 InitializeFieldsArray
  3598. 0 26 "." "AscendInsertField"
  3599. 13
  3600. 8 3
  3601. 6 3
  3602. 5 0
  3603. 18 0
  3604. 6 3
  3605. 5 2
  3606. 18 0
  3607. 1 2
  3608. 11 00000244
  3609. 10 00000437
  3610. 0 27 9000
  3611. 13
  3612. 8 5
  3613. 5 1
  3614. 8 4
  3615. 5 59
  3616. 6 4
  3617. 18 2
  3618. 12 00000350
  3619. 10 00000437
  3620. 5 1
  3621. 6 4
  3622. 3 0
  3623. 8 4
  3624. 10 00000274
  3625. 6 5
  3626. 0 273 "fields$" "{4}"
  3627. 13
  3628. 18 0
  3629. 11 00000424
  3630. 6 4
  3631. 8 1
  3632. 10 00000437
  3633. 10 00000317
  3634. 16 SetErrorMessage$ "{2}"
  3635. 13
  3636. 8 2
  3637. 6 1
  3638. 15
  3639. 9
  3640. DIALOG AscendInsertField
  3641. -2134900736 3 47 47 243 157 "" "" "Ascend Insert Field" 
  3642. FONT 8 "Helv" 
  3643. 198 3 40 14 1 1342373889 "button" "OK" 0 
  3644. 198 20 40 14 2 1342373888 "button" "Cancel" 0 
  3645. 4 3 190 149 9000 1352728577 "listbox" "" 0 
  3646. DIALOG ContactHistory
  3647. -2134900736 16 94 79 199 43 "" "" "Ascend Contact History" 
  3648. FONT 8 "Helv" 
  3649. 154 5 40 14 1 1342373889 "button" "OK" 0 
  3650. 154 24 40 14 2 1342373888 "button" "Cancel" 0 
  3651. 4 1 71 37 20 1342308359 "button" "Starting Date" 0 
  3652. 8 12 20 10 1000 1342177280 "static" "Month" 0 
  3653. 15 22 13 12 8000 1350631552 "edit" "" 0 
  3654. 32 12 15 10 1001 1342177280 "static" "Day" 0 
  3655. 32 22 13 12 8001 1350631552 "edit" "" 0 
  3656. 49 12 18 10 1002 1342177280 "static" "Year" 0 
  3657. 49 22 22 12 8002 1350631552 "edit" "" 0 
  3658. 79 1 71 37 21 1342308359 "button" "Ending Date" 0 
  3659. 83 12 20 10 1003 1342177280 "static" "Month" 0 
  3660. 90 22 13 12 8003 1350631552 "edit" "" 0 
  3661. 107 12 15 10 1004 1342177280 "static" "Day" 0 
  3662. 107 22 13 12 8004 1350631552 "edit" "" 0 
  3663. 125 12 18 10 1005 1342177280 "static" "Year" 0 
  3664. 125 22 22 12 8005 1350631552 "edit" "" 0 
  3665. 00045882
  3666.