PC Pro 2004 April/DPPCPRO0404.ISO/April/CAS/disk3/data.3/WINFAX/AMIPRO/jjfaxdoc.smm

INI File | 1995-06-14 | 24.3 KB | 1,852 lines

[ver]
    4
[sty]

[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    HP LaserJetIIISi PostScript
[port]
    LPT2:
[lang]
    1
[fldnames]
    Field1
    Field2
    Field3
    Field4
    Field5
    Field6
    Field7
    Field8
[desc]
    Gets a list of items Commence using search criteria and faxes the current document to the one selected by the user




    803183922
    42
    706654187
    704
    8
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0


[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[tag]
    Body Text
    2
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Body Single
    3
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Single
    0
    0
[tag]
    Bullet
    4
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        0
        288
        288
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*0>
        360
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Bullet
    0
    0
[tag]
    Bullet 1
    5
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        288
        288
        288
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*5>
        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Bullet 1
    0
    0
[tag]
    Number List
    6
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        360
        360
        360
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*:>.
        360
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Number List
    0
    0
[tag]
    Subhead
    7
    [fnt]
        TimesNewRomanPS
        240
        0
        49155
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        72
        72
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        2

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Subhead
    0
    0
[tag]
    Title
    8
    [fnt]
        Arial MT
        360
        0
        16385
    [algn]
        4
        1
        0
        0
        0
    [spc]
        33
        446
        1
        144
        72
        1
        100
    [brk]
        16
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        1

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Title
    0
    0
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1440
        1440
        0
        1
        0
        1
        0
        2
        1
        1440
        10800
        12
        1
        720
        1
        1440
        1
        2160
        1
        2880
        1
        3600
        1
        4320
        1
        5040
        1
        5760
        1
        6480
        1
        7200
        1
        7920
        1
        8640
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1440
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1440
        12240
        1
        1440
        72
        1
        792
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        1
        3
        9360
    [txt]
>
    [frght]
    [lyfrm]
        1
        13248
        0
        14400
        12240
        15840
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        15840
        12240
        1
        1440
        792
        1
        14472
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        2
        2
        4680
        3
        9360
    [txt]

>
[elay]
[l1]
    0
[pg]
    8
    45 0 37 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    89 0 17 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    134 0 26 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    177 0 4 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    222 0 20 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    267 0 49 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    312 0 12 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    349 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#284,9360><-!>Function JJFaxDoc()

<:#284,9360>'Copyright 1993-95 Jensen-Jones Inc.

<:#284,9360>'Commence Data Retrieval Macro

<:#284,9360>'Selects a list of items from Commence and then lets you select one as the recipient

<:#284,9360>'for a fax of the current document.  Gets th fax number, selects the fax printer,

<:#284,9360>'faxes the document and resets the printer.  Uses JJFAXLIB.SMM!JJSendFax

<:#284,9360>

<:#284,9360>' 1.1 changes

<:#284,9360>' 2/17/93:

<:#284,9360>' Add dq function to handle quotes in names

<:#284,9360>' Change to new TR1 function to speed up performance

<:#284,9360>' Note: this version will not distinguish between items with identical names!

<:#284,9360>' 3/23 changes

<:#284,9360>' Get clarified names if release <;> 1.0X

<:#284,9360>

<:#284,9360>' 3.0 changes 4/3/95

<:#284,9360>' support 50 character item names

<:#284,9360>' Commence 1.0a or later is required

<:#284,9360>

<:#284,9360>'SingleStep(1)

<:#284,9360>

<:#284,9360>DEFSTR AppName, c, b, q, itemlist, fldlist, NameField, ItemName, cr, FAXname, FAXnum

<:#284,9360>DEFSTR WK, Conn, CField, Cat, Rest, Req, Cnamefld, Tmp, s, Val, Value

<:#284,9360>DEFSTR ret, fcount, fitem, FilterValue, version, dqName

<:#284,9360>DEFSTR gMsg1, gMsg2, gMsg3, gMsg4, gCancelJob

<:#284,9360>

<:#284,9360>DEFSTR gFax1, gFax2

<:#284,9360>DEFSTR MacroTitle, gOK, gCancel, gSelectQualifier, gEquals, gContains

<:#284,9360>DEFSTR gDoesNotContain, gCaseSensitive, gCopyright, gSearchCategory

<:#284,9360>DEFSTR gText1, gSelRecipient

<:#284,9360>

<:#284,9360>AppName = "Commence"

<:#284,9360>

<:#284,9360>' Literal text; START TRANSLATION

<:#284,9360>

<:#284,9360>gMsg1 = "Could NOT Establish DDE with {AppName}; Exiting ..."

<:#284,9360>gMsg2 = "Could NOT launch {AppName}; Exiting .."

<:#284,9360>gMsg3 = "Could not find the Fax number field for this category, cancelling job!"

<:#284,9360>gMsg4 = "No FAX phone number value in field "

<:#284,9360>gCancelJob = ", cancelling job!"

<:#284,9360>

<:#284,9360>gFax1 = "Fax"

<:#284,9360>gFax2 = "FAX"

<:#284,9360>

<:#284,9360>MacroTitle = "Commence FaxDoc Macro "

<:#284,9360>gOK = "OK"

<:#284,9360>gCancel = "Cancel"

<:#284,9360>gSelectQualifier = "Select a qualifier:"

<:#284,9360>gEquals = "&Equals"

<:#288,9360>gContains = "&Contains"

<:#288,9360>gDoesNotContain = "&Does Not Contain"

<:#288,9360>gCaseSensitive = "Case Sensitive"

<:#288,9360>gCopyright = "Copyright </i> 1993-94 Jensen-Jones, Inc."

<:#288,9360>gSearchCategory = "Search category:"

<:#288,9360>

<:#288,9360>gText1 = "No items matched your search criteria. Do you want to try another value?"

<:#288,9360>gSelRecipient = "Select the recipient from the list:"

<:#288,9360>

<:#288,9360>'This macro displays an edit box in which you can type a string of characters.

<:#288,9360>'The macro uses this string to

<:#576,9360>'filter the name field of a category in the active Commence database.  The default value in the edit box is

<:#288,9360>' "*" which retrieves all the items in the category.  It then displays a list of items

<:#288,9360>'whose name field contains the string.  After you select one of the items,

<:#288,9360>'the macro retrieves the fax number for that items..

<:#288,9360>'The macro then sends the item name and fax number to SendFax and faxes the document

<:#288,9360>

<:#288,9360>'The following line determines which category will be used in

<:#288,9360>'this macro to find fax numbers.  You can change this string to get data from

<:#288,9360>'another category.

<:#288,9360>

<:#288,9360>Category = "Person"

<:#288,9360>

<:#288,9360>' END OF TRANSLATION

<:#288,9360>

<:#288,9360>cr = Chr$(13)    'a carriage return

<:#288,9360>b = Chr$(91)        'a left bracket

<:#288,9360>p = Chr$(124)    'the pipe character

<:#288,9360>q = Chr$(34)        'the double quote character

<:#288,9360>DIM Field(6)

<:#288,9360>DIM Items(500)

<:#288,9360>nFields = 6

<:#288,9360>nItems = 500

<:#288,9360>

<:#288,9360>OnError Normalx        'If we get an error, just cancel the macro

<:#288,9360>

<:#288,9360>c = DDEInitiate("Commence", "GetData")

<:#288,9360>

<:#288,9360>if c <<=0 THEN

<:#284,9360>    ' DO Error Check

<:#284,9360>    AppName = "Commence"

<:#288,9360>    id = c

<:#284,9360>    OK = Exec("{AppName}.EXE", "", 1)  ' Open it

<:#284,9360>    IF OK <;> 32 THEN

<:#284,9360>        c = DDEInitiate("{AppName}", "GetData")  ' Call Application again

<:#284,9360>        IF c<<=0  THEN ' Still not open, End macro

<:#284,9360>            BEEP()

<:#284,9360>            HourGlass(0)

<:#284,9360>            IgnoreKeyboard(0)

<:#284,9360>            BEEP()

<:#284,9360>            Message(gMsg1)

<:#284,9360>            StatusBarMsg("")

<:#284,9360>            HourGlass(0)

<:#284,9360>            EXIT FUNCTION

<:#284,9360>        ENDIF

<:#284,9360>    ELSE    'Could not lauch Commence

<:#284,9360>        HourGlass(0)

<:#284,9360>        IgnoreKeyboard(0)

<:#284,9360>        BEEP()

<:#284,9360>        Message(gMsg2)

<:#284,9360>        StatusBarMsg("")

<:#284,9360>        HourGlass(0)

<:#284,9360>        EXIT FUNCTION

<:#284,9360>    ENDIF

<:#284,9360>Endif  ' End of Error Check

<:#284,9360>

<:#284,9360>'Get the name field for this category

<:#284,9360>fldlist  = DDEReceive$(c, "{b}GetFieldNames({q}{Category}{q},|)]")

<:#284,9360>J = InStr(1,fldlist, "|")

<:#284,9360>NameField = Left$(fldlist, J - 1)

<:#284,9360>

<:#284,9360>GetFilter:

<:#284,9360>FillEdit(8000, "*")

<:#284,9360>FillEdit(8001, {Category})

<:#284,9360>FillEdit(24, TRUE)

<:#284,9360>filbox = DialogBox(".", "filter")

<:#284,9360>

<:#284,9360>IF filbox = 0 THEN

<:#284,9360>    EXIT FUNCTION

<:#284,9360>ENDIF

<:#284,9360>FilterValue = GetDialogField$(8000)

<:#284,9360>'SingleStep(1)

<:#284,9360>If GetDialogField$(23) THEN

<:#284,9360>    Qualifier = "Equal To"

<:#284,9360>ElseIf GetDialogField$(25)

<:#284,9360>    Qualifier = "Doesn't Contain"

<:#284,9360>ElseIf GetDialogField$(24)

<:#284,9360>    Qualifier = "Contains"

<:#284,9360>ENDIF

<:#284,9360>

<:#284,9360>If GetDialogField$(20)

<:#284,9360>    CaseSense = "CS"

<:#284,9360>Else

<:#284,9360>    CaseSense = ""

<:#284,9360>EndIf

<:#284,9360>'Find out what version of Commence is running

<:#284,9360>c2 = DDEInitiate("Commence", "System")

<:#284,9360>version = DDEReceive$(c2, "Version")

<:#284,9360>DDETerminate(c2)

<:#284,9360>

If Left$(version,9) = "Version 1" OR Left$(version, 9) = "Version 2" Then

<:#284,9360>    NameSize = 35

<:#284,9360>Else

<:#284,9360>    NameSize = 50

<:#284,9360>Endif

<:#284,9360>

<:#284,9360>d = DDEInitiate("Commence", "ViewData")

<:#284,9360>

<:#284,9360>' Use clarified item names to avoid problems with duplicate names

<:#284,9360>Tmp = "{b}ClarifyItemNames(True)]"

<:#284,9360>s = DDEReceive$(d,Tmp)

<:#284,9360>

<:#284,9360>ret = DDEReceive$(d, "{b}ViewCategory({q}{Category}{q})]")

<:#852,9360>ret = DDEReceive$(d, "{b}ViewFilter(1,F,,{q}{NameField}{q},{q}{Qualifier}{q},{q}{FilterValue}{q},{CaseSense})]")

<:#284,9360>nItems = DDEReceive$(d, "{b}ViewItemCount]")

<:#284,9360>If nItems = 0 Then

<:#284,9360>    tryagain = DialogBox(".", "nomatch")

<:#284,9360>    IF tryagain = 0 THEN

<:#284,9360>        EXIT FUNCTION

<:#284,9360>    ELSE

<:#284,9360>        GOTO GetFilter

<:#284,9360>    ENDIF

<:#284,9360>ENDIF

<:#284,9360>

<:#284,9360>FOR I = 1 To nItems

<:#284,9360>    Items(I) = DDEReceive$(d, "{b}ViewItemName({I})]")

<:#284,9360>    FillList(Items(I))

<:#284,9360>NEXT

<:#284,9360>DDETerminate(d)

<:#284,9360>

<:#284,9360>

<:#284,9360>'Ask which item to use

<:#284,9360>catbox = DialogBox(".", "cats")

<:#284,9360>IF catbox = 0 THEN

<:#284,9360>    EXIT FUNCTION

<:#284,9360>ENDIF

<:#284,9360>

<:#284,9360>ItemName = GetDialogField$(9000)

<:#284,9360>dqName= Call dq(ItemName)

<:#284,9360>If Len(ItemName) <;> NameSize Then

<:#284,9360>    Tmp = Call Trim (Left$(ItemName, NameSize))

<:#284,9360>Else

<:#284,9360>    Tmp = ItemName

<:#284,9360>EndIF

<:#284,9360>dqPlainName = Call dq(Tmp)

<:#284,9360>

<:#284,9360>'Find the Fax number field

<:#284,9360>Req ="{b}GetFieldNames({q}{Category}{q})]"

<:#284,9360>Val = DDEReceive$(c, Req)

<:#284,9360>I = Instr(0,Val, gFax1)

<:#284,9360>IF I <<<;> 0 THEN

<:#284,9360>    J = Instr(I,Val,cr)

<:#284,9360>    L = J - I

<:#284,9360>    FAX = Mid$(Val, I, L)

<:#284,9360>ELSE

<:#284,9360>    I = Instr(0,Val, gFax2)

<:#284,9360>        IF I <<<;> 0 THEN

<:#284,9360>            J = Instr(I,Val,cr)

<:#284,9360>            L = J - I

<:#284,9360>            FAX = Mid$(Val, I, L)

<:#284,9360>        ELSE

<:#284,9360>            Message(gMsg3)

<:#284,9360>            Goto Normalx

<:#284,9360>        ENDIF

<:#284,9360>ENDIF

<:#284,9360>

<:#284,9360>Req ="{b}GetField({q}{Category}{q},"

<:#284,9360>Req = strcat$(Req,"{q}{dqName}{q},{q}{FAX}{q})]")

<:#284,9360>Val = DDEReceive$(c, Req)

<:#284,9360>'Get the trimmed fax number

<:#284,9360>FAXnum = Call TrimFront(Val)

<:#284,9360>'Check for a non-null fax number

<:#284,9360>IF FAXnum <<<;> "" THEN

<:#284,9360>    'Call Commence to get the reversed version of the name

<:#284,9360>    Req ="{b}GetReverseName({q}{dqPlainName}{q})]"

<:#284,9360>    FAXname=DDEReceive$(c,Req)

<:#284,9360>    CALL JJFaxLib.smm!JJFaxSend(FAXname,FAXnum,1)

<:#284,9360>ELSE

<:#284,9360>    ' build messsage including FAX phone field.

<:#284,9360>    temp = gMsg4

<:#284,9360>    temp = strcat$(temp, "{FAX}")

<:#284,9360>    temp = strcat$(temp, gCancelJob)

<:#284,9360>    Message(temp)

<:#284,9360>ENDIF

<:#284,9360>

<:#284,9360>

<:#284,9360>

<:#284,9360>Normalx:

<:#284,9360>DDETerminate(c)

<:#284,9360>DDETerminate(d)

<:#284,9360>END FUNCTION

<:#284,9360>

<:#284,9360>DIALOG filter

<:#284,9360>-2134900736 11 54 20 180 138 "" "" MacroTitle

<:#284,9360>9 87 158 12 8000 1350762624 "edit" "" 0

<:#284,9360>136 30 32 15 1 1342373888 "button" gOK 0

<:#284,9360>136 51 32 14 2 1342373888 "button" gCancel 0

<:#284,9360>10 22 97 56 22 1342308359 "button" gSelectQualifier 0

<:#284,9360>24 34 50 12 23 1342242825 "button" gEquals 0

<:#284,9360>24 47 50 12 24 1342242825 "button" gContains 0

<:#284,9360>24 59 74 12 25 1342242825 "button" gDoesNotContain 0

<:#284,9360>53 106 94 12 20 1342373891 "button" gCaseSensitive 0

<:#284,9360>70 8 96 10 8001 1342177280 "static" "text" 0

<:#284,9360>28 123 125 10 1001 1342177281 "static" gCopyright 0

<:#284,9360>10 8 58 10 1002 1342177280 "static" gSearchCategory 0

<:#284,9360>END DIALOG

<:#284,9360>

<:#284,9360>DIALOG nomatch

<:#284,9360>-2134900736 4 52 20 180 65 "" "" MacroTitle

<:#284,9360>143 7 32 15 1 1342373888 "button" gOK 0

<:#284,9360>143 28 32 14 2 1342373888 "button" gCancel 0

<:#284,9360>23 48 125 10 1001 1342177281 "static" gCopyright 0

<:#284,9360>9 15 128 27 1002 1342177280 "static" gText1 0

<:#284,9360>END DIALOG

<:#284,9360>

<:#284,9360>

<:#284,9360>DIALOG    cats

<:#284,9360>-2134900736    5    52    20    206    106    ""    ""      MacroTitle

<:#284,9360>169    25    32    14    1    1342373888    "button"        gOK    0

<:#284,9360>169    46    32    14    2    1342373888    "button"        gCancel    0

<:#284,9360>10    20    152    65    9000    1352728579    "listbox"    ""    0

<:#284,9360>36    94    125    10    1001    1342177281    "static"        gCopyright    0

<:#284,9360>15    5    135    10    1002    1342177280    "static"        gSelRecipient    0

<:#284,9360>END DIALOG

<:#284,9360>Function Trim(s)

<:#284,9360>'Removes trailing blanks

<:#284,9360>i = Len(s)

<:#284,9360>WHILE (i <;> 0)

<:#284,9360>    IF(Mid$(s, i, 1) <<<;> " ") THEN

<:#284,9360>        Goto loopend

<:#284,9360>    ENDIF

<:#284,9360>    i = i - 1

<:#284,9360>WEND

<:#284,9360>loopend:

<:#284,9360>IF i = 0 THEN

<:#284,9360>    Trim = ""

<:#284,9360>ELSE

<:#284,9360>    Trim = Mid$(s, 1, i)

<:#284,9360>ENDIF

<:#284,9360>End Function

<:#284,9360>

<:#284,9360>

<:#284,9360>Function Tr1(OS)

<:#284,9360>' Translates NL to "" in a string since Ami treats CR/NL as two lines

<:#284,9360>'New algorithm to speed this up 2/12/92

<:#284,9360>n = Chr$(10)

<:#284,9360>Newstring = ""

<:#284,9360>J = 1

<:#284,9360>NextLook:

<:#284,9360>K = InStr(J,OS,n)

<:#284,9360>If K <<<;> 0 Then

<:#284,9360>        Newstring = strcat$(Newstring,Mid$(OS,J,K - J))

<:#284,9360>    J = K + 1

<:#284,9360>    Goto NextLook

<:#284,9360>Else

<:#284,9360>    IF J = 1 THEN

<:#284,9360>        Newstring = strcat$(Newstring,Mid$(OS,J, Len(OS)))

<:#284,9360>    ELSE

<:#284,9360>        Newstring = strcat$(Newstring,Mid$(OS,J, Len(OS) - J + 1))

<:#284,9360>    ENDIF

<:#284,9360>ENDIF

<:#284,9360>Tr1 = Newstring

<:#284,9360>End Function

<:#284,9360>

<:#284,9360>Function dq(OS)

<:#284,9360>' Translates " to "" for transmission back to Commence

<:#284,9360>q = Chr$(34)

<:#284,9360>q2 ="{q}{q}"

<:#284,9360>Newstring = ""

<:#284,9360>J = Len(OS)

<:#284,9360>FOR I = 1 TO J

<:#284,9360>        Schar = Mid$(OS, I, 1)

<:#284,9360>        IF Schar = q THEN

<:#284,9360>        Schar = q2

<:#284,9360>    ENDIF

<:#284,9360>        Newstring = strcat$(Newstring, Schar)

<:#284,9360>NEXT

<:#284,9360>dq = Newstring

<:#284,9360>End Function

<:#284,9360>

<:#284,9360>Function TrimFront(OS)

<:#284,9360>'Removes leading blanks

<:#284,9360>k = Len(OS)

<:#284,9360>i = 1

<:#284,9360>While(i << k)

<:#284,9360>    If(Mid$(OS, i, 1) <<<;> " ") Then

<:#284,9360>        Goto loopend

<:#284,9360>    ENDIF

<:#284,9360>    i = i + 1

<:#284,9360>Wend

<:#284,9360>loopend:

<:#284,9360>If i = k or k = 0 Then

<:#284,9360>    TrimFront = ""

<:#284,9360>Else

    TrimFront = Mid$(OS, i, k)

<:#284,9360>EndIf

<:#284,9360>End Function

<:#284,9360>

<:#284,9360>

@Normal@<:#284,9360>

>

[Embedded]
00018586
>
[macsum] 8
JJFaxDoc 0 0 70 0
filter 3688 0 -1 241
nomatch 4302 0 -1 256
cats 4554 0 -1 265
Trim 4858 1 2 273
Tr1 5107 1 5 291
dq 5547 1 7 313
TrimFront 5836 1 3 329
[macse]
14 JJFaxDoc
7 "Commence"
8 1
7 "Could NOT Establish DDE with {1}; Exiting ..."
8 29
7 "Could NOT launch {1}; Exiting .."
8 30
7 "Could not find the Fax number field for this category, cancelling job!"
8 31
7 "No FAX phone number value in field "
8 32
7 ", cancelling job!"
8 33
7 "Fax"
8 34
7 "FAX"
8 35
7 "Commence FaxDoc Macro "
8 36
7 "OK"
8 37
7 "Cancel"
8 38
7 "Select a qualifier:"
8 39
7 "&Equals"
8 40
7 "&Contains"
8 41
7 "&Does Not Contain"
8 42
7 "Case Sensitive"
8 43
7 "Copyright </i> 1993-94 Jensen-Jones, Inc."
8 44
7 "Search category:"
8 45
7 "No items matched your search criteria. Do you want to try another value?"
8 46
7 "Select the recipient from the list:"
8 47
7 "Person"
8 48
0 39 13
13
8 9
0 39 91
13
8 3
0 39 124
13
8 49
0 39 34
13
8 4
5 6
21 50 [X]
5 500
21 51 [X]
5 6
8 52
5 500
8 53
20 00003653
0 8 "Commence" "GetData"
13
8 2
6 2
5 0
18 4
11 00001257
7 "Commence"
8 1
6 2
8 54
0 22 "{1}.EXE" "" 1
13
8 55
6 55
5 32
18 3
11 00001190
0 8 "{1}" "GetData"
13
8 2
6 2
5 0
18 4
11 00001177
0 801
0 296 0
0 32 0
0 801
0 3 "{29}"
0 789 ""
0 296 0
6 0
15
9
10 00001257
0 296 0
0 32 0
0 801
0 3 "{30}"
0 789 ""
0 296 0
6 0
15
9
0 10 "{2}" "{3}GetFieldNames({4}{48}{4},|)]"
13
8 6
0 808 1 "{6}" "|"
13
8 56
6 56
5 1
3 1
0 806 "{6}" [X]
13
8 7
0 31 8000 "*"
0 31 8001 "{48}"
0 31 24 1
0 26 "." "filter"
13
8 57
6 57
5 0
18 0
11 00001498
6 0
15
9
0 27 8000
13
8 26
0 27 23
13
11 00001578
7 "Equal To"
8 58
10 00001690
0 27 25
13
11 00001644
7 "Doesn't Contain"
8 58
10 00001690
0 27 24
13
11 00001690
7 "Contains"
8 58
0 27 20
13
11 00001743
7 "CS"
8 59
10 00001755
7 ""
8 59
0 8 "Commence" "System"
13
8 60
0 10 "{60}" "Version"
13
8 27
0 9 "{60}"
0 806 "{27}" 9
13
7 "Version 1"
18 0
0 806 "{27}" 9
13
7 "Version 2"
18 0
1 2
11 00001960
5 35
8 61
10 00001972
5 50
8 61
0 8 "Commence" "ViewData"
13
8 62
7 "{3}ClarifyItemNames(True)]"
8 19
0 10 "{62}" "{19}"
13
8 20
0 10 "{62}" "{3}ViewCategory({4}{48}{4})]"
13
8 23
0 10 "{62}" "{3}ViewFilter(1,F,,{4}{7}{4},{4}{58}{4},{4}{26}{4},{59})]"
13
8 23
0 10 "{62}" "{3}ViewItemCount]"
13
8 53
6 53
5 0
18 0
11 00002385
0 26 "." "nomatch"
13
8 63
6 63
5 0
18 0
11 00002372
6 0
15
9
10 00002385
10 00001383
5 1
8 64
6 53
6 64
18 2
12 00002475
10 00002566
5 1
6 64
3 0
8 64
10 00002396
6 64
0 10 "{62}" "{3}ViewItemName({64})]"
13
23 51
6 64
22 51
0 25 [X]
10 00002440
0 9 "{62}"
0 26 "." "cats"
13
8 65
6 65
5 0
18 0
11 00002647
6 0
15
9
0 27 9000
13
8 8
16 dq "{8}"
13
8 28
0 14 "{8}"
13
6 61
18 3
11 00002791
0 806 "{8}" "{61}"
13
16 Trim [X]
13
8 19
10 00002802
6 8
8 19
16 dq "{19}"
13
8 66
7 "{3}GetFieldNames({4}{48}{4})]"
8 17
0 10 "{2}" "{17}"
13
8 21
0 808 0 "{21}" "{34}"
13
8 64
6 64
5 0
18 1
11 00003069
0 808 "{64}" "{21}" "{9}"
13
8 56
6 56
6 64
3 1
8 67
0 15 "{21}" "{64}" "{67}"
13
8 68
10 00003267
0 808 0 "{21}" "{35}"
13
8 64
6 64
5 0
18 1
11 00003242
0 808 "{64}" "{21}" "{9}"
13
8 56
6 56
6 64
3 1
8 67
0 15 "{21}" "{64}" "{67}"
13
8 68
10 00003267
0 3 "{31}"
10 00003653
7 "{3}GetField({4}{48}{4},"
8 17
0 16 "{17}" "{4}{28}{4},{4}{68}{4})]"
13
8 17
0 10 "{2}" "{17}"
13
8 21
16 TrimFront "{21}"
13
8 11
6 11
7 ""
18 1
11 00003569
7 "{3}GetReverseName({4}{66}{4})]"
8 17
0 10 "{2}" "{17}"
13
8 10
16 JJFaxLib.smm!JJFaxSend "{10}" "{11}" 1
10 00003653
6 32
8 69
0 16 "{69}" "{68}"
13
8 69
0 16 "{69}" "{33}"
13
8 69
0 3 "{69}"
0 9 "{2}"
0 9 "{62}"
6 0
15
9
DIALOG filter
-2134900736 11 54 20 180 138 "" "" MacroTitle
9 87 158 12 8000 1350762624 "edit" "" 0
136 30 32 15 1 1342373888 "button" gOK 0
136 51 32 14 2 1342373888 "button" gCancel 0
10 22 97 56 22 1342308359 "button" gSelectQualifier 0
24 34 50 12 23 1342242825 "button" gEquals 0
24 47 50 12 24 1342242825 "button" gContains 0
24 59 74 12 25 1342242825 "button" gDoesNotContain 0
53 106 94 12 20 1342373891 "button" gCaseSensitive 0
70 8 96 10 8001 1342177280 "static" "text" 0
28 123 125 10 1001 1342177281 "static" gCopyright 0
10 8 58 10 1002 1342177280 "static" gSearchCategory 0
DIALOG nomatch
-2134900736 4 52 20 180 65 "" "" MacroTitle
143 7 32 15 1 1342373888 "button" gOK 0
143 28 32 14 2 1342373888 "button" gCancel 0
23 48 125 10 1001 1342177281 "static" gCopyright 0
9 15 128 27 1002 1342177280 "static" gText1 0
DIALOG cats
-2134900736 5 52 20 206 106 "" "" MacroTitle
169 25 32 14 1 1342373888 "button" gOK 0
169 46 32 14 2 1342373888 "button" gCancel 0
10 20 152 65 9000 1352728579 "listbox" "" 0
36 94 125 10 1001 1342177281 "static" gCopyright 0
15 5 135 10 1002 1342177280 "static" gSelRecipient 0
14 Trim
0 14 "{0}"
13
8 2
6 2
5 0
18 3
11 00000155
0 15 "{0}" "{2}" 1
13
7 " "
18 1
11 00000122
10 00000155
6 2
5 1
3 1
8 2
10 00000030
6 2
5 0
18 0
11 00000208
7 ""
8 1
10 00000237
0 15 "{0}" 1 "{2}"
13
8 1
6 1
15
9
14 Tr1
0 39 10
13
8 2
7 ""
8 3
5 1
8 4
0 808 "{4}" "{0}" "{2}"
13
8 5
6 5
5 0
18 1
11 00000222
6 5
6 4
3 1
0 15 "{0}" "{4}" [X]
13
0 16 "{3}" [X]
13
8 3
6 5
5 1
3 0
8 4
10 00000047
10 00000418
6 4
5 1
18 0
11 00000331
0 14 "{0}"
13
0 15 "{0}" "{4}" [X]
13
0 16 "{3}" [X]
13
8 3
10 00000418
0 14 "{0}"
13
6 4
3 1
5 1
3 0
0 15 "{0}" "{4}" [X]
13
0 16 "{3}" [X]
13
8 3
6 3
8 1
6 1
15
9
14 dq
0 39 34
13
8 2
7 "{2}{2}"
8 3
7 ""
8 4
0 14 "{0}"
13
8 5
5 1
8 6
6 5
6 6
18 2
12 00000159
10 00000267
5 1
6 6
3 0
8 6
10 00000084
0 15 "{0}" "{6}" 1
13
8 7
6 7
6 2
18 0
11 00000227
6 3
8 7
0 16 "{4}" "{7}"
13
8 4
10 00000126
6 4
8 1
6 1
15
9
14 TrimFront
0 14 "{0}"
13
8 2
5 1
8 3
6 3
6 2
18 5
11 00000170
0 15 "{0}" "{3}" 1
13
7 " "
18 1
11 00000137
10 00000170
6 3
5 1
3 0
8 3
10 00000045
6 3
6 2
18 0
6 2
5 0
18 0
1 2
11 00000244
7 ""
8 1
10 00000277
0 15 "{0}" "{3}" "{2}"
13
8 1
6 1
15
9
00018611