home *** CD-ROM | disk | FTP | other *** search
INI File | 1995-04-04 | 25.6 KB | 1,617 lines
[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] [port] LPT2: [lang] 1 [fldnames] Field1 Field2 Field3 Field4 Field5 Field6 Field7 Field8 [desc] Gets Commence Field Codes and inserts them into the current document (used to create letter templates). 797045506 23 706654187 128 5 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] 5 55 0 39 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 117 0 31 0 0 0 0 65535 2 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 180 0 78 0 0 0 0 65535 46 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 242 0 68 0 0 1 0 65535 43 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0 249 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] <:f200,QCourier,0,0,0>Function JJgetfld() @Normal@<:f200,QCourier,0,0,0>'Copyright 1992-95 Jensen-Jones Inc. @Normal@<:f200,QCourier,0,0,0>'Commence Letter Field Code Macro @Normal@<:f200,QCourier,0,0,0>' Get Field Codes from Commence categories @Normal@<:f200,QCourier,0,0,0> @Normal@<:f200,QCourier,0,0,0><:f><:f200,QCourier,0,0,0>'SingleStep(1) @Normal@<:f200,QCourier,0,0,0> @Normal@<:f200,QCourier,0,0,0>DEFSTR c<:f><:f200,QCourier,0,0,0>, b, dqCat @Normal@<:f200,QCourier,0,0,0>DEFSTR DlgTitle, DlgFooter, SelectCategory, SelectField, DlgInfo1, DlgInfo2<:f> @Normal@<:f200,QCourier,0,0,0>DEFSTR AppName, NoDDE NoLaunch @Normal@<:f200,QCourier,0,0,0> @Normal@<:f200,QCourier,0,0,0>' Init some strings, don't forget to translate dialog box caption below! @Normal@<:f200,QCourier,0,0,0>AppName = "Commence" @Normal@<:f200,QCourier,0,0,0>NoDDE = <:f><:f200,QCourier,0,0,0>"Could NOT Establish DDE with {AppName}; Exiting ..."<:f> @Normal@<:f200,QCourier,0,0,0>NoLaunch<:f><:f200,QCourier,0,0,0> = "Could NOT launch <:f><:f200,QCourier,0,0,0>{AppName}; Exiting ..."<:f> @Normal@<:f200,QCourier,0,0,0>DlgTitle = "Commence Field Code Selection" @Normal@<:f200,QCourier,0,0,0>DlgFooter = "Copyright 1992-94 Jensen-Jones, Inc." @Normal@<:f200,QCourier,0,0,0>DlgInfo1 = "Categories available in Commence:" @Normal@<:f200,QCourier,0,0,0>DlgInfo2 = "Fields from the " @Normal@<:f200,QCourier,0,0,0>DlgInfo3 = " Category:"<:f> @Normal@<:f200,QCourier,0,0,0>SelectCategory = "Select a Category from the list"<:f> @Normal@<:f200,QCourier,0,0,0>SelectField = "Select a Field from the list"<:f> @Normal@<:f200,QCourier,0,0,0> <:f> @Normal@<:f200,QCourier,0,0,0>b = Chr$(91) @Normal@<:f200,QCourier,0,0,0>q = Chr$(34) @Normal@<:f200,QCourier,0,0,0> @Normal@<:f200,QCourier,0,0,0>rmac = GetRunningMacroFile$() <:f> @Normal@<:f200,QCourier,0,0,0>OnError Normalx 'If we get an error, just cancel the macro @Normal@<:f200,QCourier,0,0,0> @Normal@<:f200,QCourier,0,0,0>Dim Fld(100) @Normal@<:f200,QCourier,0,0,0> @Normal@<:f200,QCourier,0,0,0>c = DDEInitiate("{AppName}", "GetData") @Modified Line@<:f200,QCourier,0,0,0>if c<<=0 @Modified Line@<:f200,QCourier,0,0,0> ' DO Error Check @CMD Line@<:f200,QCourier,0,0,0> id = c @CMD Line@<:f200,QCourier,0,0,0> OK = Exec("{AppName}.EXE", "", 2) ' <+">Open it<-"> @CMD Line@<:f200,QCourier,0,0,0> IF OK <;> 32 THEN @CMD Line@<:f200,QCourier,0,0,0> c<:f><:f200,QCourier,0,0,0> = DDEInitiate("{AppName}", "GetData") ' <+">Call Application<-"><+"> again<-"> @CMD Line@<:f200,QCourier,0,0,0> IF c<:f><:f200,QCourier,0,0,0><<=0 THEN ' <+">Still not open, End macro<-"> @CMD Line@<:R1,5,1,720,1,1440,1,2160,1,2970,1,3690,><:f200,QCourier,0,0,0> BEEP() @CMD Line@<:R><:f200,QCourier,0,0,0> <:f><:f200,QCourier,0,0,0>HourGlass(0) @CMD Line@<:f200,QCourier,0,0,0> IgnoreKeyboard(0) @CMD Line@<:f200,QCourier,0,0,0> BEEP() @CMD Line@<:f200,QCourier,0,0,0> Message("{NoDDE}") @CMD Line@<:f200,QCourier,0,0,0> StatusBarMsg("") @CMD Line@<:f200,QCourier,0,0,0> HourGlass(0) @CMD Line@<:f200,QCourier,0,0,0> EXIT FUNCTION @CMD Line@<:f200,QCourier,0,0,0> ENDIF @CMD Line@<:f200,QCourier,0,0,0> <:f><:f200,QCourier,0,0,0>ELSE 'Could not lauch Commence @CMD Line@<:f200,QCourier,0,0,0> <:f><:f200,QCourier,0,0,0> HourGlass(0) @CMD Line@<:#235,9360><:f200,QCourier,0,0,0> IgnoreKeyboard(0) @CMD Line@<:#235,9360><:f200,QCourier,0,0,0> BEEP() @CMD Line@<:#235,9360><:f200,QCourier,0,0,0> Message("{NoLaunch}<:f><:f200,QCourier,0,0,0>") @CMD Line@<:#235,9360><:f200,QCourier,0,0,0> StatusBarMsg("") @CMD Line@<:#235,9360><:f200,QCourier,0,0,0> HourGlass(0)<:f> @CMD Line@<:#235,9360><:f200,QCourier,0,0,0> EXIT FUNCTION @CMD Line@<:#235,9360><:f200,QCourier,0,0,0> ENDIF @Modified Line@<:#235,9360><:f200,QCourier,0,0,0> Endif ' End of Error Check<:f> @Normal@<:#235,9360><:f200,QCourier,0,0,0> @Normal@<:#235,9360><:f200,QCourier,0,0,0>'Get the list of category names @Normal@<:#235,9360><:f200,QCourier,0,0,0>catlist = DDEReceive$(c, "{b}GetCategoryNames(|)]") @Normal@<:#235,9360><:f200,QCourier,0,0,0>FOR I = 1 To 100<:f> @Normal@<:#235,9360><:f200,QCourier,0,0,0> J = InStr(1,catlist, "|") @Normal@<:#235,9360><:f200,QCourier,0,0,0> IF J <<<;> 0 THEN @Normal@<:#202,9360><:f200,QCourier,0,0,0> Fld(I) = Left$(catlist, J - 1) @Normal@<:#202,9360><:f200,QCourier,0,0,0> catlist = Mid$(catlist, J + 1, Len(catlist) - J) @Normal@<:#202,9360><:f200,QCourier,0,0,0> FillList(Fld(I)) @Normal@<:#202,9360><:f200,QCourier,0,0,0> ELSE @Normal@<:#202,9360><:f200,QCourier,0,0,0> Fld(I) = catlist @Normal@<:#202,9360><:f200,QCourier,0,0,0> FillList(Fld(I)) @Normal@<:#202,9360><:f200,QCourier,0,0,0> catcount = I @Normal@<:#202,9360><:f200,QCourier,0,0,0> Goto Break0 @Normal@<:#202,9360><:f200,QCourier,0,0,0> ENDIF @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0>NEXT @Normal@<:#202,9360><:f200,QCourier,0,0,0>Break0: @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0>'Ask which category to use @Normal@<:#202,9360><:f200,QCourier,0,0,0>FillEdit(1000, "{SelectCategory}")<:f> @Normal@<:#202,9360><:f200,QCourier,0,0,0>FillEdit(1001, "{DlgFooter}")<:f> @Normal@<:#202,9360><:f200,QCourier,0,0,0>FillEdit(1002, "{DlgInfo1}")<:f> @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0>hdlg = DialogBox(".", "lbdlg") @Normal@<:#202,9360><:f200,QCourier,0,0,0>IF hdlg = 0 THEN @Normal@<:#202,9360><:f200,QCourier,0,0,0> EXIT FUNCTION @Normal@<:#202,9360><:f200,QCourier,0,0,0>ENDIF @Normal@<:#202,9360><:f200,QCourier,0,0,0>Category = GetDialogField$(9000) @Normal@<:#202,9360><:f200,QCour''ier,0,0,0>dqCat = Call dq(Category) @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0>'Get the names of the direct fields for the selected category @Normal@<:#202,9360><:f200,QCourier,0,0,0>Req = strcat$("{b}GetFieldNames(",q, dqCat, q,",|)]") @Normal@<:#202,9360><:f200,QCourier,0,0,0>catlist = DDEReceive$(c, Req) @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0>FOR I = 1 To 40 @Normal@<:#202,9360><:f200,QCourier,0,0,0> J = InStr(1, catlist, "|") @Normal@<:#202,9360><:f200,QCourier,0,0,0> IF J <<<;> 0 THEN @Normal@<:#202,9360><:f200,QCourier,0,0,0> Fld(I) = Left$(catlist, J - 1) @Normal@<:#202,9360><:f200,QCourier,0,0,0> catlist = Mid$(catlist, J + 1, Len(catlist) - J) @Normal@<:#202,9360><:f200,QCourier,0,0,0> <:f><:f200,QCourier,0,0,0>FillList(Fld(I))<:f> @Normal@<:#202,9360><:f200,QCourier,0,0,0> ELSE @Normal@<:#202,9360><:f200,QCourier,0,0,0> Fld(I) = catlist @Normal@<:#202,9360><:f200,QCourier,0,0,0> <:f><:f200,QCourier,0,0,0>FillList(Fld(I))<:f> @Normal@<:#202,9360><:f200,QCourier,0,0,0> catcount = I @Normal@<:#202,9360><:f200,QCourier,0,0,0> Goto Break1 @Normal@<:#202,9360><:f200,QCourier,0,0,0> ENDIF @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0>NEXT @Normal@<:#202,9360><:f200,QCourier,0,0,0>Break1: @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0>'Get the names of the indirect fields for the selected category @Normal@<:#235,9360><:f200,QCourier,0,0,0> @Normal@<:#235,9360><:f200,QCourier,0,0,0>Req = strcat$("{b}GetConnectionNames(", q, dqCat, q, ",|)]") @Normal@<:#202,9360><:f200,QCourier,0,0,0>catlist = DDEReceive$(c, Req) @Normal@<:#202,9360><:f200,QCourier,0,0,0>'Just initialize as many array items as we have left to avoid DDE for count @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#235,9360><:f200,QCourier,0,0,0> @Normal@<:f200,QCourier,0,0,0>Iquit = -1 @Normal@<:#235,9360><:f200,QCourier,0,0,0>FOR I = 1 TO 100<:f><:f200,QCourier,0,0,0> - catcount @Normal@<:#202,9360><:f200,QCourier,0,0,0> J = InStr(1, catlist, "|") @Normal@<:#202,9360><:f200,QCourier,0,0,0> IF J <<<;> 0 THEN @Normal@<:#202,9360><:f200,QCourier,0,0,0> Fld(I + catcount) = strcat$(Left$(catlist, J - 1), "...") @Normal@<:#202,9360><:f200,QCourier,0,0,0> catlist = Mid$(catlist, J + 1, Len(catlist) - J) @Normal@<:#202,9360><:f200,QCourier,0,0,0> ELSE @Normal@<:#202,9360><:f200,QCourier,0,0,0> <:f><:f200,QCourier,0,0,0>Fld(I + catcount) = strcat$(catlist, "...") @Normal@<:#202,9360><:f200,QCourier,0,0,0> Iquit = 1<:f><:f200,QCourier,0,0,0> <:f> @Normal@<:#202,9360><:f200,QCourier,0,0,0> ENDIF @Normal@<:#202,9360><:f200,QCourier,0,0,0> 'Change the tabs to two spaces @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0> K = InStr(1,Fld(I + catcount), Chr$(9)) @Normal@<:#202,9360><:f200,QCourier,0,0,0> IF K <<<;> 0 THEN @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0> Tmp = Left$(Fld(I + catcount), K - 1) @Normal@<:#202,9360><:f200,QCourier,0,0,0> Tmp2 = Mid$(Fld(I + catcount), K + 1, Len(Fld(I + catcount)) - K ) @Normal@<:#202,9360><:f200,QCourier,0,0,0> Fld(I + catcount)= strcat$(Tmp, " ", Tmp2) @Normal@<:#202,9360><:f200,QCourier,0,0,0> <:f><:f200,QCourier,0,0,0>FillList(Fld(I + catcount))<:f> @Normal@<:#202,9360><:f200,QCourier,0,0,0> ENDIF @Normal@<:#202,9360><:f200,QCourier,0,0,0> If Iquit = 1 THEN @Normal@<:#202,9360><:f200,QCourier,0,0,0> Goto Break4 @Normal@<:#202,9360><:f200,QCourier,0,0,0> ENDIF @Normal@<:#202,9360><:f200,QCourier,0,0,0>NEXT @Normal@<:#202,9360><:f200,QCourier,0,0,0>Break4: @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0>'Ask which field to use<:f> @Normal@<:#202,9360><:f200,QCourier,0,0,0>FillEdit(1000, "{SelectField}")<:f> @Normal@<:#202,9360><:f200,QCourier,0,0,0>FillEdit(1001, "{DlgFooter}")<:f> @Normal@<:#202,9360><:f200,QCourier,0,0,0>FillEdit(1002, "{DlgInfo2} {Category} {DlgInfo3}") @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0>hdlg = DialogBox(".", "lbdlg") @Normal@<:#202,9360><:f200,QCourier,0,0,0>IF hdlg = 0 THEN @Normal@<:#202,9360><:f200,QCourier,0,0,0> EXIT FUNCTION @Normal@<:#202,9360><:f200,QCourier,0,0,0>ENDIF @Normal@<:#202,9360><:f200,QCourier,0,0,0>Field = GetDialogField$(9000) @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0>I = InStr(1, Field, "...") @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0>IF I = 0 THEN 'Direct field, just enter the field name @Normal@<:#202,9360><:f200,QCourier,0,0,0> Type("(%{Field}%)") @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0>ELSE @Normal@<:#202,9360><:f200,QCourier,0,0,0> 'Indirect field, get the fields for the connected category @Normal@<:#202,9360><:f200,QCourier,0,0,0> 'This code extract the connection and the category @Normal@<:#202,9360><:f200,QCourier,0,0,0> 'It assume they are separated by at least two spaces @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0> J = InStr(1,Field, " ") @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0> Tmp1 = Left$(Field, J - 1) @Normal@<:#202,9360><:f200,QCourier,0,0,0> Tmp2 = Mid$(Field, J + 2, I - J - 2) @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0> 'Now strip off the leading spaces from the to category @Normal@<:#202,9360><:f200,QCourier,0,0,0> WHILE InStr(1,Tmp2, " ") = 1 @Normal@<:#202,9360><:f200,QCourier,0,0,0> Tmp2 = Mid$(Tmp2, 2, Len(Tmp2) - 1) @Normal@<:#202,9360><:f200,QCourier,0,0,0> WEND @Normal@<:#235,9360><:f200,QCourier,0,0,0> @Normal@<:#235,9360><:f200,QCourier,0,0,0> 'Now get the field names for the connected category @Normal@<:#202,9360><:f200,QCourier,0,0,0> Tmp2 = Call dq(Tmp2) @Normal@<:#202,9360><:f200,QCourier,0,0,0> Req = strcat$("{b}GetFieldNames(",q, Tmp2, q,",|)]") @Normal@<:#202,9360><:f200,QCourier,0,0,0> catlist = DDEReceive$(c, Req) @Normal@<:#235,9360><:f200,QCourier,0,0,0> @Normal@<:f200,QCourier,0,0,0>'Just list up to 100<:f><:f200,QCourier,0,0,0> elements max @Normal@<:#235,9360><:f200,QCourier,0,0,0>FOR I = 1 to 100<:f> @Normal@<:#235,9360><:f200,QCourier,0,0,0> J = InStr(1,catlist, "|") @Normal@<:#202,9360><:f200,QCourier,0,0,0> IF J <<<;> 0 THEN @Normal@<:#202,9360><:f200,QCourier,0,0,0> Fld(I) = Left$(catlist, J - 1) @Normal@<:#202,9360><:f200,QCourier,0,0,0> catlist = Mid$(catlist, J + 1, Len(catlist) - J) @Normal@<:#202,9360><:f200,QCourier,0,0,0> FillList(Fld(I)) @Normal@<:#202,9360><:f200,QCourier,0,0,0> ELSE @Normal@<:#202,9360><:f200,QCourier,0,0,0> Fld(I) = catlist @Normal@<:#202,9360><:f200,QCourier,0,0,0> FillList(Fld(I)) @Normal@<:#202,9360><:f200,QCourier,0,0,0> catcount = I @Normal@<:#202,9360><:f200,QCourier,0,0,0> GoTo Break3 @Normal@<:#202,9360><:f200,QCourier,0,0,0> 'Break out when we run out of items @Normal@<:#202,9360><:f200,QCourier,0,0,0> ENDIF @Normal@<:#202,9360><:f200,QCourier,0,0,0>NEXT @Normal@<:#202,9360><:f200,QCourier,0,0,0>Break3: @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0>'Ask which field to use<:f> @Normal@<:#202,9360><:f200,QCourier,0,0,0>FillEdit(1000, "{SelectField}")<:f> @Normal@<:#202,9360><:f200,QCourier,0,0,0>FillEdit(1001, "{DlgFooter}")<:f> @Normal@<:#202,9360><:f200,QCourier,0,0,0>FillEdit(1002, "{DlgInfo2} {Tmp2} {DlgInfo3}")<:f> @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0>hdlg = DialogBox(".", "lbdlg") @Normal@<:#202,9360><:f200,QCourier,0,0,0>IF hdlg = 0 THEN @Normal@<:#202,9360><:f200,QCourier,0,0,0> EXIT FUNCTION @Normal@<:#202,9360><:f200,QCourier,0,0,0>ENDIF @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0>Field = GetDialogField$(9000) @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0>'Now insert the field code for the indirect field, must double all %'s @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0>Code = strcat$("(%%", Tmp1, "%%%%", Tmp2, "%%%%", Field, "%%)") @Normal@<:#202,9360><:f200,QCourier,0,0,0>Type ({Code}) @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0>ENDIF @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0>Normalx: @Normal@<:#202,9360><:f200,QCourier,0,0,0>DDETerminate(c) @Normal@<:#202,9360><:f200,QCourier,0,0,0>END FUNCTION <:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0> @Normal@<:#202,9360><:f200,QCourier,0,0,0> <:#202,9360><:f200,QCourier,0,0,0>DIALOG lbdlg <:#202,9360><:f200,QCourier,0,0,0>-2134900736 6 51 22 189 142 "" "" "Commence Field Code<:f><:f200,QCourier,0,0,0> Selection" <:#202,9360><:f200,QCourier,0,0,0>13 7 133 8 1002 1342177280 "static" "" 0 <:f> <:#202,9360><:f200,QCourier,0,0,0>11 22 129 79 9000 1352728579 "listbox" "" 0 <:f> <:#202,9360><:f200,QCourier,0,0,0>150 22 31 14 1 1342373888 "button" "&OK" 0 <:#235,9360><:f200,QCourier,0,0,0>150 42 32 14 2 1342373888 "button" "Cancel" 0 <:#202,9360><:f200,QCourier,0,0,0>22 107 105 10 1000 1342177280 "static" "" 0 <:#202,9360><:f200,QCourier,0,0,0>33 125 127 10 1001 1342177281 "static" "" 0 @Normal@<:#202,9360><:f200,QCourier,0,0,0>END DIALOG<:f> <:#288,9360> <:#288,9360> @Normal@<:S+-1><:#202,9360><:f200,QCourier,0,0,0><+!>Function dq(OS)<-!> @Normal@<:#202,9360><:f200,QCourier,0,0,0><+">' Translates "<:f><:f200,QCourier,0,0,0> to "" for transmission back to Commence<:f><:f200,QCourier,0,0,0> <-"><:f> @Normal@<:#235,9360><:f200,QCourier,0,0,0>q <:f><:f200,QCourier,0,0,0>= Chr$(34<:f><:f200,QCourier,0,0,0>) @Normal@<:#235,9360><:f200,QCourier,0,0,0>q2 ="{<:f><:f200,QCourier,0,0,0>q}{q}"<:f> @Normal@<:#202,9360><:f200,QCourier,0,0,0>Newstring = "" @Normal@<:#202,9360><:f200,QCourier,0,0,0>J = Len(OS) @Normal@<:#202,9360><:f200,QCourier,0,0,0>FOR I = 1 TO J @Normal@<:#235,9360><:f200,QCourier,0,0,0> Schar = Mid$(OS, I, 1) @Normal@<:f200,QCourier,0,0,0> IF Schar = q<:f><:f200,QCourier,0,0,0> THEN @Normal@<:#235,9360><:f200,QCourier,0,0,0> Schar = q2<:f> @Normal@<:#202,9360><:f200,QCourier,0,0,0> ENDIF @Normal@<:#202,9360><:f200,QCourier,0,0,0> Newstring = strcat$(Newstring, Schar) @Normal@<:#202,9360><:f200,QCourier,0,0,0>NEXT @Normal@<:#202,9360><:f200,QCourier,0,0,0>dq = Newstring @Normal@<:#202,9360><:f200,QCourier,0,0,0><+!>End Function<-!><:f> <:S+-1><:#284,9360> > [Embedded] 00021343 > [macsum] 3 JJgetfld 0 0 33 0 lbdlg 4101 0 -1 222 dq 4457 1 7 233 [macse] 14 JJgetfld 7 "Commence" 8 10 7 "Could NOT Establish DDE with {10}; Exiting ..." 8 11 7 "Could NOT launch {10}; Exiting ..." 8 12 7 "Commence Field Code Selection" 8 4 7 "Copyright 1992-94 Jensen-Jones, Inc." 8 5 7 "Categories available in Commence:" 8 8 7 "Fields from the " 8 9 7 " Category:" 8 13 7 "Select a Category from the list" 8 6 7 "Select a Field from the list" 8 7 0 39 91 13 8 2 0 39 34 13 8 14 0 802 13 8 15 20 00004078 5 100 21 16 [X] 0 8 "{10}" "GetData" 13 8 1 6 1 5 0 18 4 11 00000831 6 1 8 17 0 22 "{10}.EXE" "" 2 13 8 18 6 18 5 32 18 3 11 00000764 0 8 "{10}" "GetData" 13 8 1 6 1 5 0 18 4 11 00000751 0 801 0 296 0 0 32 0 0 801 0 3 "{11}" 0 789 "" 0 296 0 6 0 15 9 10 00000831 0 296 0 0 32 0 0 801 0 3 "{12}" 0 789 "" 0 296 0 6 0 15 9 0 10 "{1}" "{2}GetCategoryNames(|)]" 13 8 19 5 1 8 20 5 100 6 20 18 2 12 00000970 10 00001272 5 1 6 20 3 0 8 20 10 00000890 0 808 1 "{19}" "|" 13 8 21 6 21 5 0 18 1 11 00001192 6 20 6 21 5 1 3 1 0 806 "{19}" [X] 13 23 16 6 21 5 1 3 0 0 14 "{19}" 13 6 21 3 1 0 15 "{19}" [X] [X] 13 8 19 6 20 22 16 0 25 [X] 10 00001259 6 20 6 19 23 16 6 20 22 16 0 25 [X] 6 20 8 22 10 00001272 10 00000935 0 31 1000 "{6}" 0 31 1001 "{5}" 0 31 1002 "{8}" 0 26 "." "lbdlg" 13 8 23 6 23 5 0 18 0 11 00001393 6 0 15 9 0 27 9000 13 8 24 16 dq "{24}" 13 8 3 0 16 "{2}GetFieldNames(" "{14}" "{3}" "{14}" ",|)]" 13 8 25 0 10 "{1}" "{25}" 13 8 19 5 1 8 20 5 40 6 20 18 2 12 00001619 10 00001921 5 1 6 20 3 0 8 20 10 00001540 0 808 1 "{19}" "|" 13 8 21 6 21 5 0 18 1 11 00001841 6 20 6 21 5 1 3 1 0 806 "{19}" [X] 13 23 16 6 21 5 1 3 0 0 14 "{19}" 13 6 21 3 1 0 15 "{19}" [X] [X] 13 8 19 6 20 22 16 0 25 [X] 10 00001908 6 20 6 19 23 16 6 20 22 16 0 25 [X] 6 20 8 22 10 00001921 10 00001584 0 16 "{2}GetConnectionNames(" "{14}" "{3}" "{14}" ",|)]" 13 8 25 0 10 "{1}" "{25}" 13 8 19 5 -1 8 26 5 1 8 20 5 100 6 22 3 1 6 20 18 2 12 00002132 10 00002838 5 1 6 20 3 0 8 20 10 00002041 0 808 1 "{19}" "|" 13 8 21 6 21 5 0 18 1 11 00002362 6 20 6 22 3 0 6 21 5 1 3 1 0 806 "{19}" [X] 13 0 16 [X] "..." 13 23 16 6 21 5 1 3 0 0 14 "{19}" 13 6 21 3 1 0 15 "{19}" [X] [X] 13 8 19 10 00002420 6 20 6 22 3 0 0 16 "{19}" "..." 13 23 16 5 1 8 26 6 20 6 22 3 0 22 16 0 39 9 13 0 808 1 [X] [X] 13 8 27 6 27 5 0 18 1 11 00002782 6 20 6 22 3 0 22 16 6 27 5 1 3 1 0 806 [X] [X] 13 8 28 6 20 6 22 3 0 22 16 6 27 5 1 3 0 6 20 6 22 3 0 22 16 0 14 [X] 13 6 27 3 1 0 15 [X] [X] [X] 13 8 29 6 20 6 22 3 0 0 16 "{28}" " " "{29}" 13 23 16 6 20 6 22 3 0 22 16 0 25 [X] 6 26 5 1 18 0 11 00002825 10 00002838 10 00002097 0 31 1000 "{7}" 0 31 1001 "{5}" 0 31 1002 "{9} {24} {13}" 0 26 "." "lbdlg" 13 8 23 6 23 5 0 18 0 11 00002969 6 0 15 9 0 27 9000 13 8 30 0 808 1 "{30}" "..." 13 8 20 6 20 5 0 18 0 11 00003081 0 6 "(%{30}%)" 10 00004078 0 808 1 "{30}" " " 13 8 21 6 21 5 1 3 1 0 806 "{30}" [X] 13 8 31 6 21 5 2 3 0 6 20 6 21 3 1 5 2 3 1 0 15 "{30}" [X] [X] 13 8 29 0 808 1 "{29}" " " 13 5 1 18 0 11 00003347 0 14 "{29}" 13 5 1 3 1 0 15 "{29}" 2 [X] 13 8 29 10 00003230 16 dq "{29}" 13 8 29 0 16 "{2}GetFieldNames(" "{14}" "{29}" "{14}" ",|)]" 13 8 25 0 10 "{1}" "{25}" 13 8 19 5 1 8 20 5 100 6 20 18 2 12 00003555 10 00003857 5 1 6 20 3 0 8 20 10 00003475 0 808 1 "{19}" "|" 13 8 21 6 21 5 0 18 1 11 00003777 6 20 6 21 5 1 3 1 0 806 "{19}" [X] 13 23 16 6 21 5 1 3 0 0 14 "{19}" 13 6 21 3 1 0 15 "{19}" [X] [X] 13 8 19 6 20 22 16 0 25 [X] 10 00003844 6 20 6 19 23 16 6 20 22 16 0 25 [X] 6 20 8 22 10 00003857 10 00003520 0 31 1000 "{7}" 0 31 1001 "{5}" 0 31 1002 "{9} {29} {13}" 0 26 "." "lbdlg" 13 8 23 6 23 5 0 18 0 11 00003988 6 0 15 9 0 27 9000 13 8 30 0 16 "(%" "{31}" "%%" "{29}" "%%" "{30}" "%)" 13 8 32 0 6 "{32}" 0 9 "{1}" 6 0 15 9 DIALOG lbdlg -2134900736 6 51 22 189 142 "" "" "Commence Field Code Selection" 13 7 133 8 1002 1342177280 "static" "" 0 11 22 129 79 9000 1352728579 "listbox" "" 0 150 22 31 14 1 1342373888 "button" "&OK" 0 150 42 32 14 2 1342373888 "button" "Cancel" 0 22 107 105 10 1000 1342177280 "static" "" 0 33 125 127 10 1001 1342177281 "static" "" 0 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 00021368 
