Liren Large Software Subsidy 14

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 14 / 14.iso / s / s005 / 52.ddi / AMIMERGE.SM$ / AMIMERGE.SMM

Wrap

INI File | 1993-10-26 | 122.4 KB | 7,925 lines

[ver] 4 [sty] _default.sty [charset] 82 ANSI (Windows, IBM CP 1252) [PanoseFontTable] 6 5 Arial MT 257 257 257 257 257 Arial 2818 1030 514 514 1026 TimesNewRomanPS 257 257 257 257 257 Helvetica 2818 1029 514 514 1026 Helv 2818 1029 514 770 1026 Times New Roman 514 774 1029 517 1027 [revisions] 0 [recfile] D:\AMIOS2\DOCS\MERGE\SSADATA.SAM * 1 1 3 8 0 0 [lang] 1 [desc] 751658200 3 751160524 12 1 0 0 0 0 1 [prn] QMS-PS 810 [port] LPT3.OS2 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [tag] Table Text 1 [fnt] Arial MT 200 0 0 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Table Text 0 0 [tag] Body Single 3 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Bullet 4 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 <*0> 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Bullet 1 5 [fnt] Times New Roman 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 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] Times New Roman 240 0 49152 [algn] 1 1 360 360 360 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 <*:>. 0 1 1 0 16 0 0 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Subhead 7 [fnt] Times New Roman 240 0 49155 [algn] 1 1 0 0 0 [spc] 33 0 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 2 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Title 8 [fnt] Arial 360 0 49153 [algn] 4 1 0 0 0 [spc] 33 0 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Header 9 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Header 0 0 [tag] Footer 11 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Footer 0 0 [tag] Body Text 2 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 0 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 0 1 1 144 144 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 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 [frght] [lyfrm] 0 13184 0 14400 12240 15840 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s> > [hrght] [lyfrm] 0 11136 0 0 12240 1440 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 1 0 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s> > [elay] [lay] 1 1537 [rght] 15840 12240 1 720 1440 1 1440 720 0 0 16777215 1 0 2 1 720 11520 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] 0 11136 0 0 12240 1440 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 0 16777215 0 0 0 1 1440 10800 1 1 720 [txt] <:s><:#P30670848,P943718><+B> <+!> of <:s><:#P30670848,P943718><+B><+!>July 1, 1993 <:s><:#P30670848,P943718><+B><+!> 18:00 > [frght] [lyfrm] 0 13184 0 14400 12240 15840 0 1 1 0 0 0 0 0 0 0 0 16777215 0 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 0 16777215 0 0 0 1 1440 10800 2 2 4680 3 9360 [txt] <:s><:#P30670848,P943718> > [elay] [l1] 1 [edoc] @Body Single@<:s><:#P35389440,P943718>' View in outline mode @Body Single@<:s><:#P35389440,P943718>' Description <:s><:#P35389440,P943718>' Merge macro to Ami Pro 3.0 <:s><:#P35389440,P943718>' Peyton McManus <:s><:#P35389440,P943718>' Lotus WPD @Body Single@<:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718><:X3,0;include "amixlat2.sam!amimerge"><+!><:f200,BArial,0,0,0>'Amimerge Defines @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define NotDataFile "Not a valid data file. " @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define InTable "Automated data entry is not supported in tables" @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define NameDataFile "Name merge data file" @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define TitleText "Data File - " @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define SelField "Please select a field." @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define NoSpace "Field names cannot begin with a space." @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define NoSave "Save is not available" @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define ErrSave "The file was not saved" @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define SelFieldToRename "Select a field to rename" @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define PleaseWait "Please Wait...Renaming field names" @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define UpdatingRec "Please Wait...Updating record # " @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define WaitSearching " Please wait....Searching for " @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define NoMatch "No Match Found " @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>define YesToChanges() Decide("The current record has been modifed. Return to cardfile to save changes?", "Ami Pro") @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define ErrFieldName "Fieldnames cannot begin with a number." @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define ErrNoInfo "Please enter fieldname to insert or rename" @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define SaveChanges "The current record has been modified. To save these changes, you must return to the cardfile and select add or update. Return to the cardfile to save changes?" @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define NoNumbers "Field names cannot begin with a number" @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define TitleCreate "Create Data File" @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define NoBlankDelims "Cannot use a blank delimiter" @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define NoDupDelims "Cannot use duplicate delimiters" @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define CantuseDelim "Cannot use that delimeter " @Outline2@<:s><+@><:S+65535><:f200,BHelvetica,0,0,0>Define DelimInField "You cannot a delimiter in a field name" @Outline2@<:s> <:X~3,0;include "amixlat2.sam!amimerge"> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Define Normal 1 <:s><:#P35389440,P943718>Define Grey 0 <:s><:#P35389440,P943718>Define Hide 1 <:s><:#P35389440,P943718>Define Show 0 <:s><:#P35389440,P943718>Define On 1 <:s><:#P35389440,P943718>Define Off 0 <:s><:#P35389440,P943718>Define True 1 <:s><:#P35389440,P943718>define ShadeRec() Type("<[>ShiftCtrlDown]<[>ShiftRight]") <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>define SetHelpPanel(Panel) DlgSetHelpNumber(%1) <:s><:#P35389440,P943718>define Help_MainBox 854 <:s><:#P35389440,P943718>define Help_Sort 850 <:s><:#P35389440,P943718>define Help_Goto 855 <:s><:#P35389440,P943718>define Help_FieldManage 853 <:s><:#P35389440,P943718>define Help_DefineFields 3028 <:s><:#P35389440,P943718>Define Define_Options 853 <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>define SetRecordClean() SetGlobalVar("IsRecordDirty",0) <:s><:#P35389440,P943718>define IsRecordDirty() GetGlobalVar$("IsRecordDirty") <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>define NoReturn 1 <:s><:#P35389440,P943718>define AddReturn 0 <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>'Declares <:s><:#P35389440,P943718>Declare PackGlobals(FieldNameArray,FldSep,RecSep) <:s><:#P35389440,P943718>Declare Drive2(AddIndex) <:s><:#P35389440,P943718>Declare UpdateDisplay(Hdlg,id,Dummy) <:s><:#P35389440,P943718>Declare RebuildHeader(FieldNames) <:s><:#P35389440,P943718>Declare StuffInfo(Hdlg) <:s><:#P35389440,P943718>Declare ModifyFile() <:s><:#P35389440,P943718>Declare SortEm() <:s><:#P35389440,P943718>Declare CheckIt(Shade) <:s><:#P35389440,P943718>Declare ReadFive(Hdlg) <:s><:#P35389440,P943718>Declare ReloadNames(Hdlg) <:s><:#P35389440,P943718>Declare InsertField(Hdlg) <:s><:#P35389440,P943718>Declare FastForward(hdlg) <:s><:#P35389440,P943718>Declare WriteOut(WithReturn) <:s><:#P35389440,P943718>Declare CreateOptionsBox(Hdlg) <:s><:#P35389440,P943718>Declare MoveFirst() <:s><:#P35389440,P943718>Declare DriveFile(Addindex) <:s><:#P35389440,P943718>Declare DebugArray(Arrayname) <:s><:#P35389440,P943718>Declare FastReverse(Hdlg) <:s><:#P35389440,P943718>Declare RestoreView(Level) <:s><:#P35389440,P943718>Declare MainCall(Hdlg,id,dummy) <:s><:#P35389440,P943718>Declare FreeGlobals() <:s><:#P35389440,P943718>Declare GetFieldData(Hdlg) <:s><:#P35389440,P943718>Declare GotoMain(Hdlg) <:s><:#P35389440,P943718>Declare DefineFields() <:s><:#P35389440,P943718>Declare CollectHeader(Fieldname,fldSep,RecSep) <:s><:#P35389440,P943718>Declare Finditem(p1,p2) <:s><:#P35389440,P943718>Declare WriteFields(p1) <:s><:#P35389440,P943718>Declare MessageDlg(Hdlg,Message) <:s><:#P35389440,P943718>Declare IsBadCharacter(FldName) <:s><:#P35389440,P943718>Declare InitFont() <:s><:#P35389440,P943718>Declare SaveData() <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function Main() <:s><:#P35389440,P943718>IgnoreKeyBoard(2) <:s><:#P35389440,P943718>DefStr FldSep,RecSep,Stat, CurrentView; <:s><:#P35389440,P943718>Dim FieldNames(1) <:s><:#P35389440,P943718>'If 0 != GetInfo(328) ' in typeover mode ? <:s><:#P35389440,P943718>' TypeOver() ' Toggle to insert mode <:s><:#P35389440,P943718>'Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Again: <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>If 0=Assign(&Stat,CollectHeader(&FieldNames,&FldSep,&RecSep)) <:s><:#P35389440,P943718>Else <:s><:#P35389440,P943718> Switch Stat <:s><:#P35389440,P943718> Case -1 ' we are in a blank file, use this <:s><:#P35389440,P943718> SaveStat = SaveData() <:s><:#P35389440,P943718> If SaveStat != 1 <:s><:#P35389440,P943718> ' Cancel from the name box <:s><:#P35389440,P943718> FreeGlobals() <:s><:#P35389440,P943718> Return 0 <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> If 1=Assign(&Stat,DefineFields()) <:s><:#P35389440,P943718> FreeGlobals() <:s><:#P35389440,P943718> Goto Again <:s><:#P35389440,P943718> Return 0 <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> FreeGlobals() <:s><:#P35389440,P943718> Exit Function <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Case 1 ' something is here, open a new file <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Message(NotDataFile,"Ami Pro") <:s><:#P35389440,P943718> FreeGlobals() <:s><:#P35389440,P943718> Exit Function <:s><:#P35389440,P943718> Case 2 ' we are in a table <:s><:#P35389440,P943718> Message(InTable,"Ami Pro") <:s><:#P35389440,P943718> FreeGlobals() <:s><:#P35389440,P943718> Exit Function <:s><:#P35389440,P943718> EndSwitch <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718>IgnoreKeyBoard(2) <:s><:#P35389440,P943718>PackGlobals(&FieldNames,FldSep,RecSep) <:s><:#P35389440,P943718>ProDir=GetAmiDirectory$() <:s><:#P35389440,P943718>Mac=GetRunningMacroFile$() <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>' these compose the cardfile bitmap. 4 sections and the symbol <:s><:#P35389440,P943718>FillEdit(1000, "{ProDir}mrgtop.bmp") <:s><:#P35389440,P943718>FillEdit(1011, "{ProDir}mrgleft.bmp") <:s><:#P35389440,P943718>Filledit(1012, "{ProDir}mrgbott.bmp") <:s><:#P35389440,P943718>FillEdit(1013, "{ProDir}mrgright.bmp") <:s><:#P35389440,P943718>FillEdit(1014,"{ProDir}mrgsym.bmp") <:s><:#P35389440,P943718>FillEdit(1015,"{ProDir}mrgbotr.bmp") <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Filledit(23,"{ProDir}down.bmp") <:s><:#P35389440,P943718>Filledit(24,"{ProDir}up.bmp") <:s><:#P35389440,P943718>Filledit(28,"{ProDir}next3.bmp") <:s><:#P35389440,P943718>Filledit(29,"{ProDir}prev3.bmp") <:s><:#P35389440,P943718>Filledit(35,"{ProDir}ffwrd.bmp") <:s><:#P35389440,P943718>Filledit(36,"{ProDir}frev.bmp") <:s><:#P35389440,P943718>Filledit(55,"{ProDir}stop.bmp") <:s><:#P35389440,P943718>Filledit(56,"{ProDir}stop.bmp") <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Filledit(82,"") <:s><:#P35389440,P943718>Filledit(83,"") <:s><:#P35389440,P943718>Filledit(84,"") <:s><:#P35389440,P943718>Filledit(85,"") <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>SetDlgCallBack(0,"{Mac}!PreBuild") <:s><:#P35389440,P943718>SetDlgCallBack(21,"{Mac}!MainCall") <:s><:#P35389440,P943718>SetDlgCallBack(23,"{Mac}!MainCall") <:s><:#P35389440,P943718>SetDlgCallBack(24,"{Mac}!MainCall") <:s><:#P35389440,P943718>SetDlgCallBack(27,"{Mac}!MainCall") <:s><:#P35389440,P943718>SetDlgCallBack(28,"{Mac}!MainCall") <:s><:#P35389440,P943718>SetDlgCallBack(29,"{Mac}!MainCall") <:s><:#P35389440,P943718>SetDlgCallBack(30,"{Mac}!MainCall") <:s><:#P35389440,P943718>SetDlgCallBack(31,"{Mac}!MainCall") <:s><:#P35389440,P943718>SetDlgCallBack(32,"{Mac}!MainCall") <:s><:#P35389440,P943718>SetDlgCallBack(33,"{Mac}!MainCall") <:s><:#P35389440,P943718>SetDlgCallBack(34,"{Mac}!MainCall") <:s><:#P35389440,P943718>SetDlgCallBack(35,"{Mac}!MainCall") <:s><:#P35389440,P943718>SetDlgCallBack(36,"{Mac}!MainCall") <:s><:#P35389440,P943718>SetDlgCallBack(55,"{Mac}!MainCall") <:s><:#P35389440,P943718>SetDlgCallBack(56,"{Mac}!MainCall") <:s><:#P35389440,P943718>SetDlgCallBack(41,"{Mac}!MainCall") 'Save button <:s><:#P35389440,P943718>SetDlgCallBack(82,"{Mac}!HitFolder") <:s><:#P35389440,P943718>SetDlgCallBack(83,"{Mac}!HitFolder") <:s><:#P35389440,P943718>SetDlgCallBack(84,"{Mac}!HitFolder") <:s><:#P35389440,P943718>SetDlgCallBack(85,"{Mac}!HitFolder") <:s><:#P35389440,P943718>SetDlgCallBack(51,"{Mac}!MainCall") ' The close button <:s><:#P35389440,P943718>SetHelpPanel(Help_Mainbox) <:s><:#P35389440,P943718>Box=DialogBox("{ProDir}merge.dlg","Mainbox") <:s><:#P35389440,P943718>FreeGlobals() <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>if ("" = GetOpenFileName$()) <:s><:#P35389440,P943718> saveas <:s><:#P35389440,P943718>endif <:s><:#P35389440,P943718>fname = GetOpenFileName$() <:s><:#P35389440,P943718>if ("" != fname) <:s><:#P35389440,P943718> FileClose() <:s><:#P35389440,P943718> .UserInterface.Merge.Record = fname; <:s><:#P35389440,P943718> .UserInterface.Merge.Description = ""; <:s><:#P35389440,P943718> .UserInterface.Merge.Flag = 2; <:s><:#P35389440,P943718> PostCommand(781) <:s><:#P35389440,P943718>endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Type ("<[>Esc]") <:s><:#P35389440,P943718>end Function <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function MainCall(Hdlg,id,dummy) <:s><:#P35389440,P943718>IgnoreKeyBoard(2) <:s><:#P35389440,P943718>LastField=GetGlobalArray$("LastField",1) <:s><:#P35389440,P943718>TotalFields=GetGlobalArray$("TotalFields",1) <:s><:#P35389440,P943718>SelRecord = CurShade$() <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Switch id <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 21 ' Update the current record <:s><:#P35389440,P943718> If CurShade$() != "" <:s><:#P35389440,P943718> StuffInfo(Hdlg) <:s><:#P35389440,P943718> If GetGlobalArray$("RedoNames",1)=1 ' Updating field names <:s><:#P35389440,P943718> For t=1 to TotalFields <:s><:#P35389440,P943718> SetGlobalArray("FieldNames",T,GetGlobalArray$("EditData",t)) <:s><:#P35389440,P943718> Next <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> WriteOut(AddReturn) <:s><:#P35389440,P943718> Type("<[>CtrlUp]") <:s><:#P35389440,P943718> ShadeRec() <:s><:#P35389440,P943718> GetFieldData(Hdlg) <:s><:#P35389440,P943718> UpdateDisplay(hdlg,id,dummy) <:s><:#P35389440,P943718> ReadFive(Hdlg) <:s><:#P35389440,P943718> SetRecordClean() <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Break; <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 23' scroll fields forward <:s><:#P35389440,P943718> StuffInfo(Hdlg) <:s><:#P35389440,P943718> LastField=LastField+10 <:s><:#P35389440,P943718> If LastField<;>=TotalFields <:s><:#P35389440,P943718> LastField=LastField - 10 <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> SetGlobalArray("RefreshMain",1,1) <:s><:#P35389440,P943718> SetGlobalArray("LastField",1,LastField) <:s><:#P35389440,P943718> UpdateDisplay(hdlg,id,dummy) <:s><:#P35389440,P943718> Break; <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 24' scroll fields backward <:s><:#P35389440,P943718> StuffInfo(Hdlg) <:s><:#P35389440,P943718> LastField=LastField - 10 <:s><:#P35389440,P943718> If LastField <<0 <:s><:#P35389440,P943718> LastField=0 <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> SetGlobalArray("RefreshMain",1,1) <:s><:#P35389440,P943718> SetGlobalArray("LastField",1,LastField) <:s><:#P35389440,P943718> UpdateDisplay(Hdlg,id,dummy) <:s><:#P35389440,P943718> Break; <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 27 ' Sort the records in this database <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 28 ' Move Next Record <:s><:#P35389440,P943718> Type("<[>CtrlDown]") <:s><:#P35389440,P943718> Type ("<[>CtrlUp]") <:s><:#P35389440,P943718> If .Text.EndOfStream <:s><:#P35389440,P943718> Type ("<[>CtrlUp]") <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> ShadeRec() <:s><:#P35389440,P943718> Getfielddata(hdlg) <:s><:#P35389440,P943718> UpdateDisplay(Hdlg,id,dummy) <:s><:#P35389440,P943718> ReadFive(Hdlg) <:s><:#P35389440,P943718> SetRecordClean() <:s><:#P35389440,P943718> Break; <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 29 ' Move Previous Record <:s><:#P35389440,P943718> If Curshade$()="" <:s><:#P35389440,P943718> Type("<[>CtrlUp]") <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> Type("<[>CtrlUp]<[>CtrlUp]") <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> ShadeRec() <:s><:#P35389440,P943718> If -1 =Getfielddata(hdlg) <:s><:#P35389440,P943718> MoveFirst() <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> UpdateDisplay(Hdlg,id,dummy) <:s><:#P35389440,P943718> ReadFive(Hdlg) <:s><:#P35389440,P943718> SetRecordClean() <:s><:#P35389440,P943718> Break; <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 30 ' Goto Location <:s><:#P35389440,P943718> SetHelpPanel(Help_Goto) <:s><:#P35389440,P943718> GotoMain(Hdlg) <:s><:#P35389440,P943718> SetHelpPanel(Help_MainBox) <:s><:#P35389440,P943718> ReadFive(Hdlg) <:s><:#P35389440,P943718> SetRecordClean() <:s><:#P35389440,P943718> Break; <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 31 ' Add button pressed <:s><:#P35389440,P943718> StuffInfo(Hdlg) <:s><:#P35389440,P943718> Type("<[>Esc]") <:s><:#P35389440,P943718> WriteOut(AddReturn) <:s><:#P35389440,P943718> Type("<[>CtrlUp]") <:s><:#P35389440,P943718> LastField=0 <:s><:#P35389440,P943718> SetGlobalArray("LastField",1,LastField) ' set lastfield to 0 <:s><:#P35389440,P943718> SetGlobalArray("RefreshMain",1,1) 'force a repaint of the box <:s><:#P35389440,P943718> UpdateDisplay(Hdlg,id,dummy) <:s><:#P35389440,P943718> ReadFive(Hdlg) <:s><:#P35389440,P943718> SetRecordClean() <:s><:#P35389440,P943718> Break; <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 32 ' Delete this record <:s><:#P35389440,P943718> Shaded = Curshade$() <:s><:#P35389440,P943718> If Curshade$() !="" <:s><:#P35389440,P943718> Type("<[>Del]") <:s><:#P35389440,P943718> If AtEof() <:s><:#P35389440,P943718> Type ("<[>CtrlUp]") <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> ShadeRec() <:s><:#P35389440,P943718> Getfielddata(hdlg) <:s><:#P35389440,P943718> UpdateDisplay(Hdlg,id,dummy) <:s><:#P35389440,P943718> ReadFive(Hdlg) <:s><:#P35389440,P943718> SetRecordClean() <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Break; <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 33 ' New Card button pressed <:s><:#P35389440,P943718> Type("<[>Esc]") <:s><:#P35389440,P943718> For t=1 to TotalFields <:s><:#P35389440,P943718> SetGlobalArray("EditData",t,"") <:s><:#P35389440,P943718> Next <:s><:#P35389440,P943718> LastField=0 <:s><:#P35389440,P943718> SetGlobalArray("LastField",1,LastField) <:s><:#P35389440,P943718> UpdateDisplay(Hdlg,id,dummy) <:s><:#P35389440,P943718> SetRecordClean() <:s><:#P35389440,P943718> Break; <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 34 ' Field Management hit <:s><:#P35389440,P943718> SetHelpPanel(Help_FieldManage) <:s><:#P35389440,P943718> Stat = InsertField(Hdlg) <:s><:#P35389440,P943718> If Stat = 0 ' They didn't cancel the routine <:s><:#P35389440,P943718> MoveFirst() <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> SetHelpPanel(Help_MainBox) <:s><:#P35389440,P943718> GetFieldData(Hdlg) <:s><:#P35389440,P943718> UpdateDisplay(Hdlg,id,dummy) <:s><:#P35389440,P943718> ReadFive(Hdlg) <:s><:#P35389440,P943718> SetRecordClean() <:s><:#P35389440,P943718> Break; <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 35 ' Fast Forward Hit <:s><:#P35389440,P943718> SetGlobalVar("Speed",1) <:s><:#P35389440,P943718> DlgHideControl(Hdlg, 35, Hide) ' hide the fast fwd button <:s><:#P35389440,P943718> DlgHideControl(Hdlg, 55,Show) ' show the stop button <:s><:#P35389440,P943718> FastForward(Hdlg) <:s><:#P35389440,P943718> DlgHideControl(Hdlg, 35,Show) ' show fast fwd <:s><:#P35389440,P943718> DlgHideControl(Hdlg, 55, Hide) ' Hide the stop <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Getfielddata(hdlg) <:s><:#P35389440,P943718> UpdateDisplay(Hdlg,id,dummy) <:s><:#P35389440,P943718> ReadFive(Hdlg) <:s><:#P35389440,P943718> SetRecordClean() <:s><:#P35389440,P943718> Break; <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 36 ' Fast Reverse <:s><:#P35389440,P943718> SetGlobalVar("Speed",1) <:s><:#P35389440,P943718> DlgHideControl(Hdlg, 36, Hide) <:s><:#P35389440,P943718> DlgHideControl(Hdlg, 56, Show) <:s><:#P35389440,P943718> FastReverse(Hdlg) <:s><:#P35389440,P943718><:ZDDE_BookMark2> DlgHideControl(Hdlg, 36, Show) <:s><:#P35389440,P943718> DlgHideControl(Hdlg, 56, Hide) <:s><:#P35389440,P943718> GetFieldData(Hdlg) <:s><:#P35389440,P943718> UpdateDisplay(Hdlg,id,dummy) <:s><:#P35389440,P943718> ReadFive(Hdlg) <:s><:#P35389440,P943718> SetRecordClean()<:Z~DDE_BookMark2> <:s><:#P35389440,P943718> Break; <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 41 ' Save button <:s><:#P35389440,P943718> If IsOKToRun(Save) <:s><:#P35389440,P943718> Stat = Save() <:s><:#P35389440,P943718> If Stat = -2 <:s><:#P35389440,P943718> MessageDlg(Hdlg, ErrSave) <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> MessageDlg(Hdlg,NoSave ) <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Break; <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 55 ' the stop button <:s><:#P35389440,P943718> SetGlobalVar("Speed",0) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 56 ' Stop button <:s><:#P35389440,P943718> SetGlobalVar("Speed",0) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> DlgHideControl(Hdlg, 36, Show) <:s><:#P35389440,P943718> DlgHideControl(Hdlg, 56, Hide) <:s><:#P35389440,P943718> GetFieldData(Hdlg) <:s><:#P35389440,P943718> UpdateDisplay(Hdlg,id,dummy) <:s><:#P35389440,P943718> ReadFive(Hdlg) <:s><:#P35389440,P943718> SetRecordClean() <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 51 ' The close Button <:s><:#P35389440,P943718> StuffInfo(Hdlg) <:s><:#P35389440,P943718> If GetGlobalVar$("IsRecordDirty") <:s><:#P35389440,P943718> If Decide(SaveChanges, "Ami Pro") <:s><:#P35389440,P943718> Break; <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> DlgClose(Hdlg) <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> DlgClose(Hdlg) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>EndSwitch <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function FastForward(Hdlg) <:s><:#P35389440,P943718>Mac = GetRunningMacroFile$() <:s><:#P35389440,P943718>MouseInterrupt("{Mac}!Stopit") <:s><:#P35389440,P943718>Dim StoreName(6) <:s><:#P35389440,P943718>FldSep = GetGlobalArray$("FieldSep",1) <:s><:#P35389440,P943718>RecSep = GetGlobalArray$("RecSep",1) <:s><:#P35389440,P943718>KeyField = GetGlobalArray$("KeyField",1) <:s><:#P35389440,P943718> While not AtEof() <:s><:#P35389440,P943718> If GetGlobalVar$("Speed") = 0 <:s><:#P35389440,P943718> Type("<[>CtrlUp]") <:s><:#P35389440,P943718> ShadeRec() <:s><:#P35389440,P943718> Break <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Type("<[>CtrlDown]") <:s><:#P35389440,P943718> If .Text.EndOfStream <:s><:#P35389440,P943718> Type ("<[>CtrlUp]") <:s><:#P35389440,P943718> Type("<[>ShiftCtrlDown]") <:s><:#P35389440,P943718> SetGlobalVar("Speed",0) <:s><:#P35389440,P943718> Break; <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Shade=GetTextBeforeCursor$() <:s><:#P35389440,P943718> StoreName(5)=StoreName(4) <:s><:#P35389440,P943718> StoreName(4)=StoreName(3) <:s><:#P35389440,P943718> StoreName(3)=StoreName(2) <:s><:#P35389440,P943718> StoreName(2)=StoreName(1) <:s><:#P35389440,P943718> StoreName(1)=Strfield$(Shade,KeyField,FldSep) <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,1017,StoreName(5)) <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,1018,StoreName(4)) <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,1019,StoreName(3)) <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,1020,StoreName(2)) <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,1021,StoreName(1)) <:s><:#P35389440,P943718> Wend <:s><:#P35389440,P943718>Return 0 <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function SaveData() <:s><:#P35389440,P943718>IgnoreKeyBoard(2) <:s><:#P35389440,P943718>Mac = GetRunningMacroFile$() <:s><:#P35389440,P943718>SetDlgCallBack(0,"{Mac}!initSaveData") <:s><:#P35389440,P943718>Stat = SubClassDialog(104, 1021) <:s><:#P35389440,P943718>Return Stat <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function InitSaveData(Hdlg, id) <:s><:#P35389440,P943718>DlgSetCaption(Hdlg, NameDataFile) <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function FastReverse(Hdlg) <:s><:#P35389440,P943718>Mac = GetRunningMacroFile$() <:s><:#P35389440,P943718>MouseInterrupt("{Mac}!Stopit") <:s><:#P35389440,P943718>DefStr Stat; <:s><:#P35389440,P943718>Dim StoreName(6) <:s><:#P35389440,P943718>FldSep = GetGlobalArray$("FieldSep",1) <:s><:#P35389440,P943718>RecSep = GetGlobalArray$("RecSep",1) <:s><:#P35389440,P943718>KeyField = GetGlobalArray$("KeyField",1) <:s><:#P35389440,P943718> While (1) <:s><:#P35389440,P943718> If GetGlobalVar$("Speed") = 0 <:s><:#P35389440,P943718> Type("<[>CtrlUp]") <:s><:#P35389440,P943718> ShadeRec() <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Break <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Type("<[>CtrlUp]") <:s><:#P35389440,P943718> Type ("<[>CtrlUp]") <:s><:#P35389440,P943718> Type("<[>CtrlDown]") <:s><:#P35389440,P943718> Shade=GetTextBeforeCursor$() <:s><:#P35389440,P943718> If Len(Shade) << 3 <:s><:#P35389440,P943718> SetGlobalVar("Speed",0) <:s><:#P35389440,P943718> MoveFirst() <:s><:#P35389440,P943718> Break <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> StoreName(5)=StoreName(4) <:s><:#P35389440,P943718> StoreName(4)=StoreName(3) <:s><:#P35389440,P943718> StoreName(3)=StoreName(2) <:s><:#P35389440,P943718> StoreName(2)=StoreName(1) <:s><:#P35389440,P943718> StoreName(1)=Strfield$(Shade,KeyField,FldSep) <:s><:#P35389440,P943718> If StoreName(1)=GetGlobalArray$("FieldNames",KeyField) <:s><:#P35389440,P943718> If 1 Assign(&Stat,Checkit(Shade)) ' We are on our fieldname <:s><:#P35389440,P943718> SetGlobalVar("Speed",0) <:s><:#P35389440,P943718> MoveFirst() <:s><:#P35389440,P943718> Break <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,1017,StoreName(5)) <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,1018,StoreName(4)) <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,1019,StoreName(3)) <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,1020,StoreName(2)) <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,1021,StoreName(1)) <:s><:#P35389440,P943718> Wend <:s><:#P35389440,P943718>Return 0 <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function Checkit(Shade) <:s><:#P35389440,P943718>FldSep = GetGlobalArray$("FieldSep",1) <:s><:#P35389440,P943718>RecSep = GetGlobalArray$("RecSep",1) <:s><:#P35389440,P943718>TotalFields = GetGlobalArray$("TotalFields",1) <:s><:#P35389440,P943718>For t =1 to TotalFields <:s><:#P35389440,P943718> Data=StrField$(Shade,t,FldSep) <:s><:#P35389440,P943718> if Data = GetGlobalArray$("FieldNames",t) <:s><:#P35389440,P943718> Trouble = Trouble +1 <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718>Next <:s><:#P35389440,P943718>If Trouble = TotalFields <:s><:#P35389440,P943718> Return 1 <:s><:#P35389440,P943718>Else <:s><:#P35389440,P943718> Return 0 <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function Stopit() <:s><:#P35389440,P943718>MouseInterrupt("") <:s><:#P35389440,P943718><:ZDDE_BookMark1>SetGlobalVar("Speed",0)<:Z~DDE_BookMark1> <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function HitFolder(Hdlg,id,dummy) <:s><:#P35389440,P943718>IgnorekeyBoard(2) <:s><:#P35389440,P943718>Folder=Id - 81 <:s><:#P35389440,P943718>For t= 1 to Folder <:s><:#P35389440,P943718> Type ("<[>CtrlDown]") <:s><:#P35389440,P943718>Next <:s><:#P35389440,P943718> Type ("<[>CtrlUp]") <:s><:#P35389440,P943718> ShadeRec() <:s><:#P35389440,P943718> Getfielddata(hdlg) <:s><:#P35389440,P943718> UpdateDisplay(Hdlg,id,dummy) <:s><:#P35389440,P943718> ReadFive(Hdlg) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function HitKey(Hdlg,id) <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function PreBuild(Hdlg,id,dummy) <:s><:#P35389440,P943718>IgnoreKeyBoard(2) <:s><:#P35389440,P943718>TotalFields=GetGlobalArray$("TotalFields",1) <:s><:#P35389440,P943718>MyOpenFile=GetDocInfo$(1) <:s><:#P35389440,P943718>app = getopenfilename$() ' this sizes the doc correctly <:s><:#P35389440,P943718>If app !="" <:s><:#P35389440,P943718> apprestore(app) <:s><:#P35389440,P943718> appmove(app, 25, 15)' <:s><:#P35389440,P943718> appsize(app, 60, 60) <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>DlgHidecontrol(Hdlg, 55, Hide) <:s><:#P35389440,P943718>DlgHideControl(Hdlg, 56, Hide) <:s><:#P35389440,P943718>DlgHideControl(Hdlg, 93, Hide) <:s><:#P35389440,P943718>If TotalFields<<10 <:s><:#P35389440,P943718> DlgHideControl(hdlg, 23, Hide) <:s><:#P35389440,P943718> DlgHideControl(Hdlg, 24, Hide) <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718>SetGlobalVar("MainHdlg",Hdlg) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Title=StrCat$(TitleText,MyOpenFile) <:s><:#P35389440,P943718>DlgSetCaption(hdlg, Title) <:s><:#P35389440,P943718>MoveFirst() <:s><:#P35389440,P943718>Getfielddata(hdlg) <:s><:#P35389440,P943718>UpdateDisplay(Hdlg,id,dummy) <:s><:#P35389440,P943718>ReadFive(Hdlg) <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function HitEnter(Hdlg,id,dummy) <:s><:#P35389440,P943718>IgnoreKeyBoard(2) <:s><:#P35389440,P943718>hwnd = 0 <:s><:#P35389440,P943718>id = 8001 <:s><:#P35389440,P943718>If Id <<8000 or id <;>8010 <:s><:#P35389440,P943718> Return -1 <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718>Forward=id+1 <:s><:#P35389440,P943718>TargetEdit=GetGlobalArray$("EditTarget",1) <:s><:#P35389440,P943718>LastEditField=GetGlobalArray$("LastEditField",1) <:s><:#P35389440,P943718>if Forward=LastEditField ' need to set default button to add <:s><:#P35389440,P943718> Nextwin=GetDlgItem(Hdlg,Forward) <:s><:#P35389440,P943718> DlgSetFocus(Hdlg, NextWin) <:s><:#P35389440,P943718>' SetDefId(31) <:s><:#P35389440,P943718>ElseIf Id = LastEditField ' Enter was hit, and on the last field <:s><:#P35389440,P943718> MainCall(Hdlg,31,0) <:s><:#P35389440,P943718>Elseif id<<TargetEdit <:s><:#P35389440,P943718> Nextwin=GetDlgItem(Hdlg,Forward) <:s><:#P35389440,P943718> DlgSetFocus(Hdlg, NextWin) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Else <:s><:#P35389440,P943718> NextWin=GetDlgITem(Hdlg,8001) <:s><:#P35389440,P943718> DlgSetFocus(Hdlg, NextWin) <:s><:#P35389440,P943718> MainCall(Hdlg,23,0) <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function UpDateDisplay(Hdlg,id,dummy) <:s><:#P35389440,P943718>IgnoreKeyBoard(2) <:s><:#P35389440,P943718>Identifier=GetGlobalArray$("KeyField",1) <:s><:#P35389440,P943718>TotalFields=GetGlobalArray$("TotalFields",1) <:s><:#P35389440,P943718>LastField=GetGlobalArray$("LastField",1) <:s><:#P35389440,P943718>RefreshStat=GetGlobalArray$("RefreshMain",1) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Switch RefreshStat <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Case 0 ' no need to repaint entire box <:s><:#P35389440,P943718> For t=1 to 10 <:s><:#P35389440,P943718> If LastField+T << TotalFields <:s><:#P35389440,P943718> SetGlobalArray("EditTarget",1,8000+t) ' Enter key target for adding <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,8000+t,GetGlobalArray$("EditData",T+LastField)) <:s><:#P35389440,P943718> Elseif LastField+t=Totalfields <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,8000+t,GetGlobalArray$("EditData",t+LastField)) <:s><:#P35389440,P943718> SetGlobalArray("EditTarget",1,8000+t) ' Enter key target for adding <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Next <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Case 1 ' Need to repaint box <:s><:#P35389440,P943718> If LastField=0 <:s><:#P35389440,P943718> DlgHideControl(Hdlg, 24, Hide) ' hide the up button <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> DlgHideControl(Hdlg, 24, Show) ' Up button is fine <:s><:#P35389440,P943718> DlgSetFocus(Hdlg, 24) <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> If LastField+10 <;>=TotalFields <:s><:#P35389440,P943718> DlgHideControl(Hdlg, 23, Hide) ' Hide the down button <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> DlgHideControl(hdlg, 23, Show) ' Down is fine <:s><:#P35389440,P943718> DlgSetFocus(hdlg, 23) <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> For t=1 to 10 <:s><:#P35389440,P943718> If LastField+T << TotalFields <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,8000+t,GetGlobalArray$("EditData",t+LastField)) <:s><:#P35389440,P943718> SetGlobalArray("EditTarget",1,8000+t) <:s><:#P35389440,P943718> SetGlobalArray("LastEditField",1,0) 'no need to auto add <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,1000+t,GetGlobalArray$("FieldNames",T+LastField)) <:s><:#P35389440,P943718> DlgHideControl(hdlg, 8000+t, Show) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Elseif LastField+t=Totalfields <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,8000+t,GetGlobalArray$("EditData",t+LastField)) <:s><:#P35389440,P943718> SetGlobalArray("EditTarget",1,8000+t) <:s><:#P35389440,P943718> SetGlobalArray("LastEditField",1,8000+t) ' set autoadd flag <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,1000+t,GetGlobalArray$("FieldNames",T+LastField)) <:s><:#P35389440,P943718> DlgHideControl(Hdlg, 8000 + t, Show) <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,1000+t,"") <:s><:#P35389440,P943718> DlgHideControl(hdlg, 8000 + t, Hide) <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,8000+T,"") <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Next <:s><:#P35389440,P943718> SetGlobalArray("RefreshMain",1,0) ' no need to repaint next time <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>EndSwitch <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>SetDlgItemText(Hdlg,1017,GetGlobalArray$("EditData",Identifier)) <:s><:#P35389440,P943718>DlgSetFocus(Hdlg,8001) <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function StuffInfo(Hdlg) <:s><:#P35389440,P943718>LastField=GetGlobalArray$("LastField",1) <:s><:#P35389440,P943718>TotalFields=GetGlobalArray$("TotalFields",1) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>For t=1 to 10 <:s><:#P35389440,P943718> Info=GetDlgItemText(Hdlg,8000+t) <:s><:#P35389440,P943718> If LastField+t <<= TotalFields <:s><:#P35389440,P943718>' If 0 != AppSendMessage(GetDlgItem(Hdlg,8000+t), EM_CANUNDO,0,0) <:s><:#P35389440,P943718>' ' this edit is dirty <:s><:#P35389440,P943718>' SetGlobalVar("IsRecordDirty",1) <:s><:#P35389440,P943718>' Endif <:s><:#P35389440,P943718> SetGlobalArray("EditData",LastField+t,Info) <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718>Next <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function Writeout(LastChar) <:s><:#P35389440,P943718>TotalFields=GetGlobalArray$("TotalFields",1) <:s><:#P35389440,P943718>FldSep=GetGlobalArray$("FieldSep",1) <:s><:#P35389440,P943718>RecSep=GetGlobalArray$("RecSep",1) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>For t=1 to TotalFields <:s><:#P35389440,P943718> Info=GetGlobalArray$("EditData",T) <:s><:#P35389440,P943718> SetGlobalArray("EditData",t,"") <:s><:#P35389440,P943718> Type ("{Info}{FldSep}") <:s><:#P35389440,P943718>Next <:s><:#P35389440,P943718>Type("<[>BackSpace]") <:s><:#P35389440,P943718>Type("{RecSep}") <:s><:#P35389440,P943718>If LastChar = AddReturn <:s><:#P35389440,P943718> Type("<[>Enter]") <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function GetFieldData(Hdlg) <:s><:#P35389440,P943718>DefStr Name; <:s><:#P35389440,P943718>FldSep=GetGlobalArray$("FieldSep",1) <:s><:#P35389440,P943718>RecSep=GetGlobalArray$("RecSep",1) <:s><:#P35389440,P943718>RefreshStat=GetGlobalArray$("RefreshButton",1) <:s><:#P35389440,P943718>TotalFields=GetGlobalArray$("TotalFields",1) <:s><:#P35389440,P943718>Again: <:s><:#P35389440,P943718>Shaded=CurShade$() <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>For x=1 to TotalFields <:s><:#P35389440,P943718> Name=StrField$(Shaded,x,FldSep) <:s><:#P35389440,P943718> Name=StrField$(Name,1,RecSep) <:s><:#P35389440,P943718> If Name = -1 <:s><:#P35389440,P943718> Name = "" <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> SetGlobalArray("EditData",x,Name) <:s><:#P35389440,P943718> If Name=GetGlobalArray$("FieldNames",x) <:s><:#P35389440,P943718> Trouble=Trouble+1 <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718>Next <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>If Trouble=TotalFields ' we are on a record that looks like our field names <:s><:#P35389440,P943718> Trouble = 0 <:s><:#P35389440,P943718> MoveFirst() <:s><:#P35389440,P943718> Goto Again <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function SortEm() <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function InitfldMan(Hdlg, id) <:s><:#P35389440,P943718>KeyField = GetGlobalVar$("KeyField") <:s><:#P35389440,P943718>Key = KeyField - 1 <:s><:#P35389440,P943718>DlgSetListBoxIndex(hdlg, 9500, Key) <:s><:#P35389440,P943718>End function <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function InsertField(Hdlg) <:s><:#P35389440,P943718>IgnoreKeyBoard(2) <:s><:#P35389440,P943718>Dim TempFields(1) <:s><:#P35389440,P943718>Status = 0 <:s><:#P35389440,P943718>Mac = GetRunningMacroFile$() <:s><:#P35389440,P943718>TotalFields=GetGlobalArray$("TotalFields",1) <:s><:#P35389440,P943718>AllocGlobalVar("TempTotal",1) 'Temp for Total number fields <:s><:#P35389440,P943718>AllocGlobalVar("IsInserted",1) 'Flag for inserted field <:s><:#P35389440,P943718>AllocGlobalVar("IsRenamed",1) 'Flag for any renaming <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>SetGlobalVar("TempTotal",TotalFields) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>For t=1 to TotalFields <:s><:#P35389440,P943718> fName = GetGlobalArray$("FieldNames",t) <:s><:#P35389440,P943718> Name = StrCat$(Fname, " ^Org") <:s><:#P35389440,P943718> ArrayInsert(&TempFields,t,Name) <:s><:#P35389440,P943718> FillEdit(9500, fname) <:s><:#P35389440,P943718>Next <:s><:#P35389440,P943718>Filledit(9000,&TempFields) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>setDlgCallBack(0,"{Mac}!InitFldMan") <:s><:#P35389440,P943718>SetDlgCallBack(20,"{Mac}!InsertCall") <:s><:#P35389440,P943718>SetDlgCallBack(22,"{Mac}!InsertCall") <:s><:#P35389440,P943718>SetDlgCallBack(21,"{Mac}!InsertCall") <:s><:#P35389440,P943718>SetDlgCallBack(30,"{Mac}!InsertCall") <:s><:#P35389440,P943718>'DlgKeyInterrupt(VK_F1,"{Mac}!HelpFunction") <:s><:#P35389440,P943718>DlgSetHelpNumber(Help_FieldManage) <:s><:#P35389440,P943718>AmiDir = GetAmiDirectory$() <:s><:#P35389440,P943718>Box = DialogBox("{AmiDir}merge.dlg","AddField") <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Status = GetGlobalVar("DialogClose") <:s><:#P35389440,P943718>If Status <<<;>1 <:s><:#P35389440,P943718> Status = 2 ' we canceled <:s><:#P35389440,P943718> Goto Quit ' we quit <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718>HourGlass(on) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Stat = ModifyFile() <:s><:#P35389440,P943718>MoveFirst() <:s><:#P35389440,P943718>Quit: <:s><:#P35389440,P943718>SetGlobalVar("DialogClose",0) <:s><:#P35389440,P943718>FreeGlobalVar("IsInserted") <:s><:#P35389440,P943718>FreeGlobalVar("IsRenamed") <:s><:#P35389440,P943718>FreeGlobalVar("TempTotal") <:s><:#P35389440,P943718>FreeGlobalVar("HoldList") <:s><:#P35389440,P943718>HourGlass(off) <:s><:#P35389440,P943718>Return Status <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function InsertCall(Hdlg,id,dummy) <:s><:#P35389440,P943718>IgnoreKeyBoard(2) <:s><:#P35389440,P943718>DefStr Stat, ListItem; <:s><:#P35389440,P943718>AmiDir = GetAmiDirectory$() <:s><:#P35389440,P943718>IndexSel = DlgGetListBoxIndex(Hdlg, 9000) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>EditBoxText= GetDlgItemText(Hdlg, 8001) <:s><:#P35389440,P943718>ListData = GetDlgItemText(hdlg,9000) <:s><:#P35389440,P943718>If id <;>20 and Id<<30 ' if other than OK check if edit box is empty <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> If IsNumeric(GetDlgItemText(Hdlg,8001)) <:s><:#P35389440,P943718> MessageDLG(hdlg, ErrFieldName) 'DEZ <:s><:#P35389440,P943718> DlgSetFocus(Hdlg,8001) <:s><:#P35389440,P943718> Exit Function <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> If "" != Assign(&Stat, GetDlgItemText(Hdlg,8001)) <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> MessageDLG(hdlg,ErrNoInfo ) 'DEZ <:s><:#P35389440,P943718> DlgSetFocus(Hdlg,8001) <:s><:#P35389440,P943718> Exit Function <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Switch Id <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 21 ' hit the insert button <:s><:#P35389440,P943718> If 0 = IsBadCharacter(EditBoxText) <:s><:#P35389440,P943718> If 32 != Asc(Left$(EditBoxText, 1))' Cannot insert a space <:s><:#P35389440,P943718> If IndexSel != -1 ' <:s><:#P35389440,P943718> Filledit(20,1) <:s><:#P35389440,P943718> Box = DialogBox("{AmiDir}Merge.dlg","InsertField") <:s><:#P35389440,P943718> If Box <<<;>1 <:s><:#P35389440,P943718> Exit Function <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> If GetDialogField$(21) ' After was selected <:s><:#P35389440,P943718> IndexSel = IndexSel +1 <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Name=StrCat$(Stat," ^Add") <:s><:#P35389440,P943718> DlgListBoxInsertItem(Hdlg, 9000, IndexSel, Name) <:s><:#P35389440,P943718> SetGlobalVar("IsInserted",1) <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,8001,"") <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> Message(SelField,"Ami Pro") <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> Message(NoSpace, "Ami Pro") <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 22 ' hit the rename button <:s><:#P35389440,P943718> If "Org" = StrField$(ListData,2,"^" ) <:s><:#P35389440,P943718> NewName = StrCat$(Stat," ^Org") <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> NewName = StrCat$(Stat, " ^Add") <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> If IndexSel != -1 <:s><:#P35389440,P943718> DlgListBoxDeleteItem(Hdlg, 9000, IndexSel) <:s><:#P35389440,P943718> DlgListboxInsertItem(Hdlg, 9000, IndexSel, NewName) <:s><:#P35389440,P943718> SetGlobalVar("IsRenamed",1) <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,8001,"") <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> Message(SelFieldToRename,"Ami Pro") <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 20 ' hit the ok button <:s><:#P35389440,P943718> TotalCount = DlgGetListboxCount(Hdlg, 9000) <:s><:#P35389440,P943718> AllocGlobalVar("HoldList",TotalCount) <:s><:#P35389440,P943718> SetGlobalVar("TempTotal",TotalCount) <:s><:#P35389440,P943718> Target = TotalCount - 1 <:s><:#P35389440,P943718> For g = 0 to Target <:s><:#P35389440,P943718> ListItem = DlgGetListboxLine$(Hdlg, 9000, g) <:s><:#P35389440,P943718> SetGlobalArray("HoldList",g+1,ListItem) <:s><:#P35389440,P943718> Next <:s><:#P35389440,P943718> Key = DlgGetListBoxIndex(Hdlg, 9500) <:s><:#P35389440,P943718> Key = Key + 1 ' boxes are zero based <:s><:#P35389440,P943718> SetGlobalVar("KeyField",Key) <:s><:#P35389440,P943718> SetGlobalVar("DialogClose",1) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> DlgClose(Hdlg) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 30 ' hit cancel <:s><:#P35389440,P943718> SetGlobalVar("DialogClose",0) <:s><:#P35389440,P943718> DlgClose(Hdlg) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>EndSwitch <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Quit: <:s><:#P35389440,P943718>DlgSetFocus(Hdlg,8001) <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function GetVars(TotalFields, FldSep, RecSep) <:s><:#P35389440,P943718>*FldSep=GetGlobalArray$("FieldSep",1); <:s><:#P35389440,P943718>*RecSep= GetGlobalArray$("RecSep",1); <:s><:#P35389440,P943718>*TotalFields=GetGlobalArray$("TotalFields",1); <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function ModifyFile() <:s><:#P35389440,P943718>HourGlass(on) <:s><:#P35389440,P943718>DefStr Totalfields, FldSep, RecSep, FieldName; <:s><:#P35389440,P943718>GetVars(&TotalFields, &FldSep, &RecSep) <:s><:#P35389440,P943718>TempTotal = GetGlobalVar$("TempTotal") <:s><:#P35389440,P943718>Dim TempName(TempTotal) <:s><:#P35389440,P943718>Dim NewName(TempTotal) <:s><:#P35389440,P943718>AddCount = 0 <:s><:#P35389440,P943718>Dim AddIndex(1) <:s><:#P35389440,P943718>For t = 1 to TempTotal <:s><:#P35389440,P943718> TempName(t) = GetGlobalArray$("HoldList",t) <:s><:#P35389440,P943718> If -1 != Assign(&FieldName, StrField$(Tempname(t),1,"^")) <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Hittest =Len(FieldName) <:s><:#P35389440,P943718> While " " = Mid$(FieldName,HitTest, 1) <:s><:#P35389440,P943718> HitTest = HitTest - 1 <:s><:#P35389440,P943718> Wend <:s><:#P35389440,P943718> FieldName=Left$(FieldName,HitTest) <:s><:#P35389440,P943718> If StrField$(TempName(t),2,"^") = "Add" <:s><:#P35389440,P943718> ArrayInsert(&NewName,t,FieldName) <:s><:#P35389440,P943718> AddCount = AddCount + 1 <:s><:#P35389440,P943718> ArrayInsert(&AddIndex,Addcount,T) <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> ArrayInsert(&NewName,t,FieldName) <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718>Next <:s><:#P35389440,P943718>RebuildHeader(&NewName) <:s><:#P35389440,P943718>If AddIndex(1) <;>0 ' some stuff was added, drive file <:s><:#P35389440,P943718> Drive2(&AddIndex) <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718>HourGlass(off) <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function RebuildHeader(NewName) <:s><:#P35389440,P943718>DefStr Totalfields, FldSep, RecSep; <:s><:#P35389440,P943718>HourGlass(on) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>StatusBarMsg(PleaseWait) <:s><:#P35389440,P943718>GetVars(&TotalFields, &FldSep, &RecSep) <:s><:#P35389440,P943718>Count = ArraySize(&NewName) <:s><:#P35389440,P943718>FreeGlobalVar("EditData") <:s><:#P35389440,P943718>FreeGlobalVar("FieldNames") <:s><:#P35389440,P943718>AllocGlobalVar("FieldNames",Count) <:s><:#P35389440,P943718>AllocGlobalVar("EditData",Count) <:s><:#P35389440,P943718>Type ("<[>CtrlHome]") <:s><:#P35389440,P943718>Type ("<[>Down]<[>ShiftCtrlDown]") <:s><:#P35389440,P943718>For t = 1 to Count <:s><:#P35389440,P943718> Name=*NewName(t); <:s><:#P35389440,P943718> Type ("{Name}{FldSep}") <:s><:#P35389440,P943718> SetGlobalArray("FieldNames",t,Name) 'Add to global var <:s><:#P35389440,P943718>Next <:s><:#P35389440,P943718>Type ("<[>BackSpace]") <:s><:#P35389440,P943718>Type ("{RecSep}") <:s><:#P35389440,P943718>SetGlobalArray("TotalFields",1,Count) <:s><:#P35389440,P943718>SetGlobalArray("LastField",1,0) <:s><:#P35389440,P943718>SetGlobalArray("RefreshMain",1,1) <:s><:#P35389440,P943718>StatusBarMsg("") <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function Drive2(AddIndex) <:s><:#P35389440,P943718>DefStr Totalfields, FldSep, RecSep; <:s><:#P35389440,P943718>GetVars(&TotalFields, &FldSep, &RecSep) <:s><:#P35389440,P943718>AddTotal = ArraySize(&AddIndex) <:s><:#P35389440,P943718>NewTotal = Addtotal + TotalFields <:s><:#P35389440,P943718>Hdlg = GetGlobalVar$("MainHdlg") <:s><:#P35389440,P943718>Flag = 0 <:s><:#P35389440,P943718>y = 0 <:s><:#P35389440,P943718>MoveFirst() <:s><:#P35389440,P943718>While Not AtEof() <:s><:#P35389440,P943718> Y = Y + 1 <:s><:#P35389440,P943718> Dim Name(TotalFields) <:s><:#P35389440,P943718> Rec = CurShade$() <:s><:#P35389440,P943718> If Len(Rec) <<1 <:s><:#P35389440,P943718> 'No record here, break out of the loop <:s><:#P35389440,P943718> Break <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> For t = 1 to TotalFields <:s><:#P35389440,P943718> Name(t) = StrField$(Rec,t,FldSep) <:s><:#P35389440,P943718> If Name(t) = -1 <:s><:#P35389440,P943718> Name(t) = "" <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Next <:s><:#P35389440,P943718> For q = 1 to AddTotal <:s><:#P35389440,P943718> TestIndex = *Addindex(q) <:s><:#P35389440,P943718> ArrayInsert(&Name,TestIndex,"") <:s><:#P35389440,P943718> Next <:s><:#P35389440,P943718> NewSize = ArraySize(&Name) <:s><:#P35389440,P943718> For l = 1 to NewSize <:s><:#P35389440,P943718> Field = Name(l) <:s><:#P35389440,P943718> Type ("{Field}{FldSep}") <:s><:#P35389440,P943718> Next <:s><:#P35389440,P943718> Type("<[>Enter]") <:s><:#P35389440,P943718> Type ("<[>Left]<[>BackSpace]") <:s><:#P35389440,P943718> Type ("<[>CtrlUp]<[>CtrlDown]<[>Right]") <:s><:#P35389440,P943718> ShadeRec() <:s><:#P35389440,P943718> DlgSetCaption(Hdlg,StrCat$(UpdatingRec,y)) <:s><:#P35389440,P943718> If AtEOF() <:s><:#P35389440,P943718> Flag = -1 <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718>Wend <:s><:#P35389440,P943718>MyOpenFile = GetDocInfo$(1) <:s><:#P35389440,P943718>Title=StrCat$(TitleText,MyOpenFile) <:s><:#P35389440,P943718>DlgSetCaption(hdlg, Title) <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function GotoMain(Hdlg) <:s><:#P35389440,P943718>IgnoreKeyBoard(2) <:s><:#P35389440,P943718>Dim TempFields(1) <:s><:#P35389440,P943718>Mac = GetRunningMacroFile$() <:s><:#P35389440,P943718>AmiDir = GetAmiDirectory$() <:s><:#P35389440,P943718>TotalFields=GetGlobalArray$("TotalFields",1) <:s><:#P35389440,P943718>For t=1 to TotalFields <:s><:#P35389440,P943718> ArrayInsert(&TempFields,t,GetGlobalArray$("FieldNames",t)) <:s><:#P35389440,P943718>Next <:s><:#P35389440,P943718>Filledit(9500,&TempFields) <:s><:#P35389440,P943718>Filledit(20,True) <:s><:#P35389440,P943718>SetDlgCallBack(0,"{Mac}!InitGoto") <:s><:#P35389440,P943718>SetDlgCallBack(9500,"{Mac}!GotoCallBack") <:s><:#P35389440,P943718>DlgSetHelpNumber(Help_Goto) <:s><:#P35389440,P943718>Box=DialogBox("{AmiDir}merge.dlg","Goto") <:s><:#P35389440,P943718>If Box<<<;>1 <:s><:#P35389440,P943718> Exit Function <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718>Type ("<[>Esc]") <:s><:#P35389440,P943718>GotoField=GetdialogField$(20) <:s><:#P35389440,P943718>GotoFirst=Getdialogfield$(21) <:s><:#P35389440,P943718>GotoLast=GetDialogField$(22) <:s><:#P35389440,P943718>FieldName=GetDialogField$(9500) <:s><:#P35389440,P943718>TargetName=GetDialogField$(8000) <:s><:#P35389440,P943718>HourGlass(on) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>StatusBarMsg(StrCat$(WaitSearching, Fieldname," = ",TargetName)) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>If GotoField <:s><:#P35389440,P943718> FieldIndex=ArraySearch(&TempFields,FieldName) <:s><:#P35389440,P943718> If 0=FindItem(TargetName,FieldIndex) <:s><:#P35389440,P943718> Getfielddata(hdlg) <:s><:#P35389440,P943718> UpDateDisplay(Hdlg,0,0) <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> MessageDLG(hdlg,NoMatch ) 'DEZ <:s><:#P35389440,P943718> StatusBarMsg("") <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718>If GotoFirst <:s><:#P35389440,P943718> MoveFirst() <:s><:#P35389440,P943718> Getfielddata(hdlg) <:s><:#P35389440,P943718> UpdateDisplay(Hdlg,0,0) <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>If GotoLast <:s><:#P35389440,P943718> Type ("<[>CtrlEnd]") <:s><:#P35389440,P943718> Type ("<[>CtrlUp]") <:s><:#P35389440,P943718> Type ("<[>ShiftCtrlDown]") <:s><:#P35389440,P943718> Getfielddata(hdlg) <:s><:#P35389440,P943718> UpdateDisplay(Hdlg,0,0) <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>StatusBarMsg("") <:s><:#P35389440,P943718>Hourglass(off) <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function InitGoto(Hdlg) <:s><:#P35389440,P943718>DlgSetListBoxIndex(Hdlg, 9500,0) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function GotoCallBack(Hdlg, id, value) <:s><:#P35389440,P943718>SetDlgItemText(Hdlg,20,1) ' turn the radion button on <:s><:#P35389440,P943718>end function <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function FindItem(SearchData,FieldIndex) <:s><:#P35389440,P943718>DefStr Stat , Wild; <:s><:#P35389440,P943718>Sep=GetGlobalArray$("FieldSep",1) <:s><:#P35389440,P943718>If SearchData="" <:s><:#P35389440,P943718> ' Nothing entered. <:s><:#P35389440,P943718> Return 1 <:s><:#P35389440,P943718> Exit Function <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718>If 0 != Assign(&Wild,Instr(0,SearchData,"*")) <:s><:#P35389440,P943718> FindString = Left$(SearchData,Wild - 1) <:s><:#P35389440,P943718>Else <:s><:#P35389440,P943718> FindString = SearchData <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718>FromPage1 = 8192 <:s><:#P35389440,P943718>Flag = FromPage1 + 4 <:s><:#P35389440,P943718>If CurShade$() <:s><:#P35389440,P943718> Type("<[>Left]") <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718>While ((1=Assign(&Stat,Replace(0,0,Flag,SearchData,""))) and (Not (AtEOF()))) <:s><:#P35389440,P943718> If AtEof() <:s><:#P35389440,P943718> Break <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Type("<[>CtrlDown]") <:s><:#P35389440,P943718> Type ("<[>CtrlUp]") <:s><:#P35389440,P943718> ShadeRec() <:s><:#P35389440,P943718> Char=Curshade$() <:s><:#P35389440,P943718> If 0!=Assign(&Stat,Instr(0,Ucase$(StrField$(Char,FieldIndex,Sep)),Ucase$(FindString))) <:s><:#P35389440,P943718> 'Message("We Were Successful") <:s><:#P35389440,P943718> Return 0 <:s><:#P35389440,P943718> Exit Function <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> type ("<[>Right]") <:s><:#P35389440,P943718> Flag = 4 <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718>Wend <:s><:#P35389440,P943718>Return 1 <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function CollectHeader(FieldNames,FldSep,RecSep) <:s><:#P35389440,P943718>'IgnoreKeyBoard(2) <:s><:#P35389440,P943718>DefStr Stat,sr,sc,er,ec; <:s><:#P35389440,P943718>Dim TempHead(1) <:s><:#P35389440,P943718>Type ("<[>CtrlHome]") <:s><:#P35389440,P943718>Type ("<[>Home]<[>ShiftEnd]") <:s><:#P35389440,P943718> If (0=Assign(&Stat,TableGetRange(&Sr,&Sc,&Er,&Ec))) <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718><:I0,360,360,360> Return 2 ' we are in a table, bye bye... <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718>Char=Curshade$() <:s><:#P35389440,P943718>CharLength = Len(Char) <:s><:#P35389440,P943718>If CharLength<<1 <:s><:#P35389440,P943718> Return -1 ' fail no need to open new file, use this one <:s><:#P35389440,P943718> Exit Function <:s><:#P35389440,P943718>Elseif CharLength <;>2 <:s><:#P35389440,P943718> Return 1 ' Fail we need a new file <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Sep=Mid$(Char,1,1) <:s><:#P35389440,P943718>Rec=Mid$(Char,2,1) <:s><:#P35389440,P943718>Type ("<[>Home]<[>Down]<[>ShiftCtrlDown]") <:s><:#P35389440,P943718>Char=Curshade$() <:s><:#P35389440,P943718>x=1 <:s><:#P35389440,P943718>While -1!=Assign(&Stat,StrField$(Char,x,Sep)) <:s><:#P35389440,P943718> If 0!=Instr(0,Stat,Rec) <:s><:#P35389440,P943718> Stat=StrField$(Stat,1,Rec) <:s><:#P35389440,P943718> ArrayInsert(&FieldNames,x,Stat) <:s><:#P35389440,P943718> Break <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> ArrayInsert(&FieldNames,x,Stat) <:s><:#P35389440,P943718> x=x+1 <:s><:#P35389440,P943718>Wend <:s><:#P35389440,P943718>*FldSep=Sep; <:s><:#P35389440,P943718>*RecSep=Rec; <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function<:ZDefine Fields> DefineFields()<:Z~Define Fields> <:s><:#P35389440,P943718>IgnoreKeyBoard(2) <:s><:#P35389440,P943718>Mac=GetRunningMacroFile$() <:s><:#P35389440,P943718>Prodir=GetAmiDirectory$() <:s><:#P35389440,P943718>AllocGlobalVar("DefineField",1) <:s><:#P35389440,P943718>AllocGlobalVar("DefineRec",1) <:s><:#P35389440,P943718>AllocGlobalVar("BoxReturn",1) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>SetGlobalArray("BoxReturn",1,0) <:s><:#P35389440,P943718>SetGlobalArray("DefineField",1,"~") <:s><:#P35389440,P943718>SetGlobalArray("DefineRec",1,"|") <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Filledit(23,"{ProDir}up.bmp") <:s><:#P35389440,P943718>Filledit(24,"{ProDir}down.bmp") <:s><:#P35389440,P943718>SetDlgCallBack(0,"{Mac}!InitDlgDefine") <:s><:#P35389440,P943718>SetDlgCallBack(20,"{Mac}!MakeCall") <:s><:#P35389440,P943718>SetDlgCallBack(21,"{Mac}!MakeCall") <:s><:#P35389440,P943718>SetDlgCallBack(22,"{Mac}!MakeCall") <:s><:#P35389440,P943718>SetDlgCallBack(23,"{Mac}!MakeCall") <:s><:#P35389440,P943718>SetDlgCallBack(24,"{Mac}!MakeCall") <:s><:#P35389440,P943718>SetDlgCallBack(30,"{Mac}!MakeCall") <:s><:#P35389440,P943718>SetDlgCallBack(8001,"{Mac}!MakeCall") <:s><:#P35389440,P943718>SetHelpPanel(Help_DefineFields) <:s><:#P35389440,P943718>AmiDir = GetAmiDirectory$() <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Box=DialogBox("{AmiDir}merge.dlg","MakeFields") <:s><:#P35389440,P943718>BoxStat=GetGlobalArray$("BoxReturn",1) <:s><:#P35389440,P943718>Return BoxStat ' if done was hit, boxreturn = 1 <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>End Function @Body Single@<:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function InitDlgDefine(Hdlg, id, value) <:s><:#P35389440,P943718>IgnoreKeyBoard(2) <:s><:#P35389440,P943718>DlgEnablecontrol(Hdlg, 21, 0) <:s><:#P35389440,P943718>DlgSetCaption(Hdlg,TitleCreate) <:s><:#P35389440,P943718>End Function @Body Single@<:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function MakeCall(Hdlg,id,dummy) <:s><:#P35389440,P943718>IgnoreKeyBoard(2) <:s><:#P35389440,P943718>DefStr Total; <:s><:#P35389440,P943718>EditBoxText=GetDlgItemText(Hdlg,8001) <:s><:#P35389440,P943718>ListBoxText=GetDlgItemText(Hdlg,9000) <:s><:#P35389440,P943718>FldSep=GetGlobalArray$("DefineField",1) <:s><:#P35389440,P943718>RecSep=GetGlobalArray$("DefineRec",1) <:s><:#P35389440,P943718>IndexSel=DlgGetListBoxIndex(Hdlg, 9000) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Switch Id <:s><:#P35389440,P943718> Case 21 ' Add <:s><:#P35389440,P943718> If 0 = IsBadCharacter(EditBoxText) <:s><:#P35389440,P943718> If 32 != Asc(Left$(EditBoxText, 1))' Cannot insert a space <:s><:#P35389440,P943718> If EditBoxText !="" <:s><:#P35389440,P943718> If Not IsNumeric(EditBoxText) <:s><:#P35389440,P943718> If 0 =Instr(0,EditBoxText,FldSep) And 0 =Instr(0,EditBoxText,RecSep) <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,9000,EditBoxText) <:s><:#P35389440,P943718> Total=DlgGetListBoxCount(Hdlg, 9000) <:s><:#P35389440,P943718> If Total<;> 7 <:s><:#P35389440,P943718> Display=Total - 3 <:s><:#P35389440,P943718> 'AppSendMessage(hListBox,LB_SetTopIndex,Display,0) <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,8001,"") <:s><:#P35389440,P943718> DlgSetFocus(Hdlg, 8001) <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> Message(DelimInField,"Ami Pro") <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> Message(NoNumbers,"Ami Pro") <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> Message(NoSpace,"Ami Pro") <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 22 ' Remove <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> If IndexSel !=-1 <:s><:#P35389440,P943718> DlgListBoxDeleteItem(Hdlg, 9000, IndexSel) <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,8001,"") <:s><:#P35389440,P943718> DlgSetFocus(Hdlg, 9000) <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 23 ' Up <:s><:#P35389440,P943718> If IndexSel !=-1 <:s><:#P35389440,P943718> String=GetDlgItemText(Hdlg,9000) <:s><:#P35389440,P943718> DlgListboxDeleteItem(Hdlg, 9000, IndexSel) <:s><:#P35389440,P943718> If IndexSel !=0 <:s><:#P35389440,P943718> NewPos=IndexSel - 1 <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> ' Index is 0 , set sel to 0 <:s><:#P35389440,P943718> NewPos = 0 <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> DlgListBoxInsertItem(Hdlg, 9000, NewPos, String) <:s><:#P35389440,P943718> DlgSetListBoxIndex(Hdlg, 9000, NewPos) <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 24 'Down <:s><:#P35389440,P943718> Total=DlgGetListBoxCount(Hdlg, 9000) <:s><:#P35389440,P943718> If IndexSel !=-1 <:s><:#P35389440,P943718> String=GetDlgItemText(Hdlg,9000) <:s><:#P35389440,P943718> DlgListBoxDeleteItem(Hdlg, 9000, IndexSel) <:s><:#P35389440,P943718> If IndexSel<<(Total - 1) <:s><:#P35389440,P943718> NewPosition=IndexSel + 1 <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> NewPostition = IndexSel <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> DlgListBoxInsertItem(Hdlg, 9000, NewPosition, String) <:s><:#P35389440,P943718> DlgSetListBoxIndex(Hdlg, 9000, NewPosition) <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 30 ' Options Box <:s><:#P35389440,P943718> CreateOptionsBox(Hdlg) <:s><:#P35389440,P943718> DlgSetFocus(Hdlg, 8001) <:s><:#P35389440,P943718> SetHelpPanel(Help_DefineFields)<:ZHere><:Z~Here> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> Case 20 ' Ok <:s><:#P35389440,P943718> If 0!=Assign(&Total,DlgGetListBoxCount(Hdlg, 9000)) <:s><:#P35389440,P943718> SetGlobalArray("BoxReturn",1,1) <:s><:#P35389440,P943718> Dim TempNames(Total) <:s><:#P35389440,P943718> ItemName="" <:s><:#P35389440,P943718> For t=0 to (Total - 1) <:s><:#P35389440,P943718> ItemName = DlgGetListBoxLine$(Hdlg, 9000, t) <:s><:#P35389440,P943718> TempNames(T+1)=ItemName <:s><:#P35389440,P943718> Next <:s><:#P35389440,P943718> WriteFields(&TempNames) <:s><:#P35389440,P943718> DlgClose(Hdlg) <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718>EndSwitch <:s><:#P35389440,P943718>If GetDlgItemText(Hdlg, 8001) = "" <:s><:#P35389440,P943718> DlgEnableControl(Hdlg, 21, Grey) <:s><:#P35389440,P943718>Else <:s><:#P35389440,P943718> DlgEnableControl(Hdlg, 21, Normal) <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>end function @Body Single@<:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function WriteFields(TempName) <:s><:#P35389440,P943718>Size=ArraySize(&TempName) <:s><:#P35389440,P943718>RecSep=GetGlobalArray$("DefineRec",1) <:s><:#P35389440,P943718>FldSep=GetGlobalArray$("DefineField",1) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>Type ("<[>CtrlHome]") <:s><:#P35389440,P943718>Type ("{FldSep}{RecSep}<[>Enter]") <:s><:#P35389440,P943718>For t=1 to Size <:s><:#P35389440,P943718> Item=*TempName(T) <:s><:#P35389440,P943718> Type("{Item}") <:s><:#P35389440,P943718> Type("{FldSep}") <:s><:#P35389440,P943718>Next <:s><:#P35389440,P943718>Type("<[>BackSpace]") <:s><:#P35389440,P943718>Type("{RecSep}") <:s><:#P35389440,P943718>Type("<[>Enter]") <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function IsBadCharacter(Name) <:s><:#P35389440,P943718>DefStr BadCharIndex; <:s><:#P35389440,P943718>BadCharacters = "~!@#$%^&*()|?+-=" <:s><:#P35389440,P943718>LenName = Len(BadCharacters) <:s><:#P35389440,P943718>For t =1 to LenName <:s><:#P35389440,P943718> TestChar = Mid$(BadCharacters, t, 1) <:s><:#P35389440,P943718> If 0 != Assign(&BadCharIndex, Instr(0,Name,TestChar)) <:s><:#P35389440,P943718> Return BadCharIndex <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718>Next <:s><:#P35389440,P943718>Return 0; <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function PreCreateOptions(hdlg,id,dummy) <:s><:#P35389440,P943718>DlgLimitText(Hdlg, 8002, 1) <:s><:#P35389440,P943718>DlgLimitText(Hdlg, 8003, 1) <:s><:#P35389440,P943718>DlgSetFocus(hdlg, 8002) <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function CreateOptionsBox(Hdlg) <:s><:#P35389440,P943718>AmiDir = GetAmiDirectory$() <:s><:#P35389440,P943718>Again: <:s><:#P35389440,P943718>Mac=GetRunningMacroFile$() <:s><:#P35389440,P943718>SetDlgCallBack(0,"{Mac}!PreCreateOptions") <:s><:#P35389440,P943718>SetHelpPanel(Define_Options) <:s><:#P35389440,P943718>Filledit(8002,GetGlobalArray$("DefineField",1)) <:s><:#P35389440,P943718>Filledit(8003,GetGlobalArray$("DefineRec",1)) <:s><:#P35389440,P943718>Box=DialogBox("{AmiDir}Merge.dlg","MakeOptions") <:s><:#P35389440,P943718>If Box<<<;>1 <:s><:#P35389440,P943718> Return 0; <:s><:#P35389440,P943718> Exit Function <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718>Field=GetDialogField$(8002) <:s><:#P35389440,P943718>Rec=GetDialogField$(8003) <:s><:#P35389440,P943718>If Field ="" or Rec ="" <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> MessageDlg(Hdlg,NoBlankDelims) <:s><:#P35389440,P943718> Goto Again <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>If Rec = Field <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> MessageDlg(Hdlg,NoDupDelims) <:s><:#P35389440,P943718> Goto Again <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718>quot=chr$(34) 'DEZ <:s><:#P35389440,P943718>goodchars="!{quot}#$%&'()*+|,-./:;<<=<;>~?@<[>\]^_`{<:ZDDE_BookMark3><:Z~DDE_BookMark3>}" <:s><:#P35389440,P943718>if Instr(0, goodchars, field) =0 <:s><:#P35389440,P943718> MessageDlg(Hdlg,StrCat$(CantUseDelim, Field)) <:s><:#P35389440,P943718> goto again <:s><:#P35389440,P943718>endif <:s><:#P35389440,P943718>if Instr(0, goodchars, rec) = 0 <:s><:#P35389440,P943718> MessageDlg(Hdlg,StrCat$(CantUseDelim, Rec)) <:s><:#P35389440,P943718> goto again <:s><:#P35389440,P943718>endif <:s><:#P35389440,P943718>SetGlobalArray("DefineField",1,Field) <:s><:#P35389440,P943718>SetGlobalArray("DefineRec",1,Rec) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function MoveFirst() <:s><:#P35389440,P943718> Type ("<[>CtrlHome]") <:s><:#P35389440,P943718> Type ("<[>CtrlDown]<[>CtrlDown]<[>Right]") <:s><:#P35389440,P943718> 'Type ("<[>ShiftCtrlDown]") <:s><:#P35389440,P943718> ShadeRec() <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function ReadFive(Hdlg) <:s><:#P35389440,P943718>DefStr Name; <:s><:#P35389440,P943718>' this is only until AtEof is fixed <:s><:#P35389440,P943718>FldSep=GetGlobalArray$("FieldSep",1) <:s><:#P35389440,P943718>RecSep=GetGlobalArray$("RecSep",1) <:s><:#P35389440,P943718>Count=0 <:s><:#P35389440,P943718>Current=1 <:s><:#P35389440,P943718>KeyField=GetGlobalArray$("KeyField",1) <:s><:#P35389440,P943718>FirstFolder=1016 <:s><:#P35389440,P943718>ReadTo=5 <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>RetSymbol=Chr$(10) <:s><:#P35389440,P943718>Shade=Curshade$() <:s><:#P35389440,P943718>If Shade="" <:s><:#P35389440,P943718> Start=1 <:s><:#P35389440,P943718> FirstFolder=1017 <:s><:#P35389440,P943718> ReadTo=4 <:s><:#P35389440,P943718>Else <:s><:#P35389440,P943718> Start=2 <:s><:#P35389440,P943718> Count = 1 <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>For x=Start to ReadTo <:s><:#P35389440,P943718> Type ("<[>CtrlDown]") <:s><:#P35389440,P943718> If .Text.EndOfStream <:s><:#P35389440,P943718> Field="" <:s><:#P35389440,P943718> Else <:s><:#P35389440,P943718> Rec=GetTextBeforeCursor$() <:s><:#P35389440,P943718> Field=StrField$(Rec,KeyField,FldSep) <:s><:#P35389440,P943718> If Field = -1 <:s><:#P35389440,P943718> Field = "" <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Count=Count+1 <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718> Folder = FirstFolder + x <:s><:#P35389440,P943718> If Folder <;> 1016 and Folder << 1022 <:s><:#P35389440,P943718> SetDlgItemText(Hdlg,Folder,Left$(Field,13)) <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718>Next <:s><:#P35389440,P943718>For t=1 to Count <:s><:#P35389440,P943718> Type ("<[>CtrlUp]") <:s><:#P35389440,P943718>Next <:s><:#P35389440,P943718>If Shade != "" <:s><:#P35389440,P943718> ShadeRec() <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function MessageDlg(Hdlg,Message) <:s><:#P35389440,P943718>Filledit(1000,Message) <:s><:#P35389440,P943718>AmiDir = GetAmiDirectory$() <:s><:#P35389440,P943718>Box = DialogBox("{AmiDir}Merge.dlg","MergeMessage") <:s><:#P35389440,P943718>end Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function RestoreView(Level) <:s><:#P35389440,P943718>Switch Level <:s><:#P35389440,P943718> Case 1 <:s><:#P35389440,P943718> LayoutMode() <:s><:#P35389440,P943718> Case 16 <:s><:#P35389440,P943718> DraftMode() <:s><:#P35389440,P943718> Case 48 <:s><:#P35389440,P943718> OutlineMode() <:s><:#P35389440,P943718> Default <:s><:#P35389440,P943718> LayoutMode() <:s><:#P35389440,P943718>EndSwitch <:s><:#P35389440,P943718>End Function @Body Single@<:s><:#P35389440,P943718>Function PackGlobals(FieldNames,FldSep,RecSep) <:s><:#P35389440,P943718>DefStr Key; <:s><:#P35389440,P943718>TotalFields=ArraySize(&FieldNames) <:s><:#P35389440,P943718>AllocGlobalVar("TotalFields",1) <:s><:#P35389440,P943718>AllocGlobalVar("FieldNames",TotalFields) <:s><:#P35389440,P943718>AllocGlobalVar("LastField",1) <:s><:#P35389440,P943718>AllocGlobalVar("EditData",TotalFields) <:s><:#P35389440,P943718>AllocGlobalVar("FieldSep",1) ' Field Sep <:s><:#P35389440,P943718>AllocGlobalVar("RecSep",1) ' record sep. <:s><:#P35389440,P943718>AllocGlobalVar("KeyField",1) ' Field to sort on <:s><:#P35389440,P943718>AllocGlobalVar("EditTarget",1) <:s><:#P35389440,P943718>AllocGlobalVar("RedoNames",1) <:s><:#P35389440,P943718>AllocGlobalVar("RefreshMain",1) ' should the main screen be repainted 1 yes <:s><:#P35389440,P943718>AllocGlobalVar("RefreshButton",1) ' are buttons dirty 1 yes <:s><:#P35389440,P943718>AllocGlobalVar("LastEditField",1) ' Will hold the id of the last edit field available <:s><:#P35389440,P943718>AllocGlobalVar("Speed",1) <:s><:#P35389440,P943718>AllocGlobalVar("MainHdlg",1) <:s><:#P35389440,P943718>AllocGlobalVar("HelpPanel",1) <:s><:#P35389440,P943718>AllocGlobalVar("IsRecordDirty",1) <:s><:#P35389440,P943718>AllocGlobalVar("DialogClose",1) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>SetGlobalVar("DialogClose",0) <:s><:#P35389440,P943718>SetGlobalVar("IsRecordDirty",0) <:s><:#P35389440,P943718>SetGlobalVar("HelpPanel",Help_MainBox) <:s><:#P35389440,P943718>SetGlobalVar("Speed",1) <:s><:#P35389440,P943718>SetGlobalArray("RefreshButton",1,1) <:s><:#P35389440,P943718>SetGlobalArray("RedoNames",1,0) <:s><:#P35389440,P943718>SetGlobalArray("FieldSep",1,FldSep) <:s><:#P35389440,P943718>SetGlobalArray("RecSep",1,RecSep) <:s><:#P35389440,P943718>SetGlobalArray("TotalFields",1,TotalFields) <:s><:#P35389440,P943718>SetGlobalArray("LastField",1,0) <:s><:#P35389440,P943718>SetGlobalArray("KeyField",1,1) <:s><:#P35389440,P943718>SetGlobalArray("RefreshMain",1,1) <:s><:#P35389440,P943718>SetGlobalArray("LastEditField",1,0) <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>If "" != Assign(&Key,GetDocVar("KeyField")) <:s><:#P35389440,P943718> If Key << TotalFields <:s><:#P35389440,P943718> SetGlobalArray("KeyField",1,Key) <:s><:#P35389440,P943718> Endif <:s><:#P35389440,P943718>Endif <:s><:#P35389440,P943718> <:s><:#P35389440,P943718>For t=1 to TotalFields <:s><:#P35389440,P943718> SetGlobalArray("FieldNames",T,*FieldNames(T)) <:s><:#P35389440,P943718>Next <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> @Body Single@<:s><:#P35389440,P943718>Function FreeGlobals()FreeGlobalVar("TotalFields")FreeGlobalVar("FieldNames") <:s><:#P35389440,P943718>FreeGlobalVar("LastField") <:s><:#P35389440,P943718>FreeGlobalVar("EditData") <:s><:#P35389440,P943718>FreeGlobalVar("FieldSep") <:s><:#P35389440,P943718>FreeGlobalVar("RecSep") <:s><:#P35389440,P943718>FreeGlobalVar("DefineField") <:s><:#P35389440,P943718>FreeGlobalVar("DefineRec") <:s><:#P35389440,P943718>FreeGlobalVar("BoxReturn") <:s><:#P35389440,P943718>FreeGlobalVar("KeyField") <:s><:#P35389440,P943718>FreeGlobalVar("EditTarget") <:s><:#P35389440,P943718>FreeGlobalVar("RedoNames") <:s><:#P35389440,P943718>FreeGlobalVar("RefreshMain") <:s><:#P35389440,P943718>FreeGlobalVar("RefreshButton") <:s><:#P35389440,P943718>FreeGlobalVar("LastEditField") <:s><:#P35389440,P943718>FreeGlobalVar("Speed") <:s><:#P35389440,P943718>FreeGlobalVar("MainHdlg") <:s><:#P35389440,P943718>FreeGlobalVar("HelpPanel") <:s><:#P35389440,P943718>FreeGlobalVar("IsRecordDirty") <:s><:#P35389440,P943718>FreeGlobalVar("DialogClose") <:s><:#P35389440,P943718>End Function <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> <:s><:#P35389440,P943718> > [Embedded] 00085227 > [macsum4] 42 454 Main 0 0 11 94 MainCall 2597 3 7 207 FastForward 8087 1 7 417 SaveData 9141 0 3 454 InitSaveData 9325 2 1 462 FastReverse 9440 1 8 467 Checkit 10720 1 7 512 Stopit 11276 0 1 529 HitFolder 11358 3 3 535 HitKey 11771 2 1 549 PreBuild 11833 3 5 552 HitEnter 12582 3 6 582 UpDateDisplay 13355 3 6 610 StuffInfo 15584 1 5 675 Writeout 16020 1 6 692 GetFieldData 16538 1 9 709 SortEm 17351 0 1 739 InitfldMan 17393 2 3 742 InsertField 17576 1 11 749 InsertCall 18903 3 14 799 GetVars 21520 3 1 892 ModifyFile 21717 0 12 898 RebuildHeader 22798 1 7 932 Drive2 23568 1 19 958 GotoMain 25156 1 13 1005 InitGoto 26707 1 1 1061 GotoCallBack 26789 3 1 1068 FindItem 26898 2 8 1074 CollectHeader 27949 3 12 1112 DefineFields 29053 0 6 1150 InitDlgDefine 29862 3 1 1181 MakeCall 30024 3 15 1188 WriteFields 32729 1 6 1290 IsBadCharacter 33214 1 6 1309 PreCreateOptions 33675 3 1 1322 CreateOptionsBox 33842 1 9 1328 MoveFirst 35077 0 1 1370 ReadFive 35205 1 17 1377 MessageDlg 36561 2 3 1424 RestoreView 36755 1 1 1430 PackGlobals 37014 3 4 1442 FreeGlobals 38376 0 1 1488 [macse] 14 Main 29 0 Main 17 1 0 32 2 17 2 29 1 FldSep 29 2 RecSep 29 3 Stat 29 4 CurrentView 17 3 5 1 29 5 FieldNames 21 5 [X] 17 11 5 0 16 CollectHeader &5 &1 &2 13 0 805 &3 [X] 13 18 0 11 00000226 10 00000839 17 13 5 -1 6 3 18 0 11 00000578 17 15 29 6 SaveStat 16 SaveData 13 8 6 17 16 6 6 5 1 18 1 11 00000385 17 18 16 FreeGlobals 17 19 5 0 15 9 17 22 5 1 16 DefineFields 13 0 805 &3 [X] 13 18 0 11 00000530 17 23 16 FreeGlobals 17 24 10 00000133 17 25 5 0 15 9 10 00000565 17 27 16 FreeGlobals 6 0 15 9 10 00000839 5 1 6 3 18 0 11 00000703 17 32 0 3 "Not a valid data file. " "Ami Pro" 17 33 16 FreeGlobals 6 0 15 9 10 00000839 5 2 6 3 18 0 11 00000839 17 36 0 3 "Automated data entry is not supported in tables" "Ami Pro" 17 37 16 FreeGlobals 6 0 15 9 17 41 0 32 2 17 42 16 PackGlobals &5 "{1}" "{2}" 17 43 29 7 ProDir 0 798 13 8 7 17 44 29 8 Mac 0 802 13 8 8 17 48 0 31 1000 "{7}mrgtop.bmp" 17 49 0 31 1011 "{7}mrgleft.bmp" 17 50 0 31 1012 "{7}mrgbott.bmp" 17 51 0 31 1013 "{7}mrgright.bmp" 17 52 0 31 1014 "{7}mrgsym.bmp" 17 53 0 31 1015 "{7}mrgbotr.bmp" 17 56 0 31 23 "{7}down.bmp" 17 57 0 31 24 "{7}up.bmp" 17 58 0 31 28 "{7}next3.bmp" 17 59 0 31 29 "{7}prev3.bmp" 17 60 0 31 35 "{7}ffwrd.bmp" 17 61 0 31 36 "{7}frev.bmp" 17 62 0 31 55 "{7}stop.bmp" 17 63 0 31 56 "{7}stop.bmp" 17 65 0 31 82 "" 17 66 0 31 83 "" 17 67 0 31 84 "" 17 68 0 31 85 "" 17 71 0 41 0 "{8}!PreBuild" 17 72 0 41 21 "{8}!MainCall" 17 73 0 41 23 "{8}!MainCall" 17 74 0 41 24 "{8}!MainCall" 17 75 0 41 27 "{8}!MainCall" 17 76 0 41 28 "{8}!MainCall" 17 77 0 41 29 "{8}!MainCall" 17 78 0 41 30 "{8}!MainCall" 17 79 0 41 31 "{8}!MainCall" 17 80 0 41 32 "{8}!MainCall" 17 81 0 41 33 "{8}!MainCall" 17 82 0 41 34 "{8}!MainCall" 17 83 0 41 35 "{8}!MainCall" 17 84 0 41 36 "{8}!MainCall" 17 85 0 41 55 "{8}!MainCall" 17 86 0 41 56 "{8}!MainCall" 17 87 0 41 41 "{8}!MainCall" 17 88 0 41 82 "{8}!HitFolder" 17 89 0 41 83 "{8}!HitFolder" 17 90 0 41 84 "{8}!HitFolder" 17 91 0 41 85 "{8}!HitFolder" 17 92 0 41 51 "{8}!MainCall" 17 93 0 73 854 17 94 29 9 Box 0 26 "{7}merge.dlg" "Mainbox" 13 8 9 17 95 16 FreeGlobals 17 97 7 "" 16 _$$2GetOpenFileName$ 13 18 0 11 00002338 24 104 17 100 29 10 fname 16 _$$2GetOpenFileName$ 13 8 10 17 101 7 "" 6 10 18 1 11 00002557 17 102 2 732 1 17 103 6 10 30 101 221 223 17 104 7 "" 30 101 221 162 17 105 5 2 30 101 221 226 17 106 0 67 781 17 109 0 6 "[27]" 6 0 15 17 110 9 14 MainCall 29 0 Hdlg 29 1 id 29 2 dummy 29 3 MainCall 17 1 0 32 2 17 2 29 4 LastField 0 273 "LastField" 1 13 8 4 17 3 29 5 TotalFields 0 273 "TotalFields" 1 13 8 5 17 4 29 6 SelRecord 16 _$$3CurShade$ 13 8 6 17 6 5 21 6 1 18 0 11 00000817 17 9 16 _$$3CurShade$ 13 7 "" 18 1 11 00000784 17 10 16 StuffInfo "{0}" 17 11 0 273 "RedoNames" 1 13 5 1 18 0 11 00000581 29 7 t 5 1 8 7 17 12 6 5 6 7 18 2 12 00000503 10 00000581 5 1 6 7 3 0 8 7 10 00000421 17 13 0 273 "EditData" "{7}" 13 0 272 "FieldNames" "{7}" [X] 10 00000470 17 16 16 WriteOut 0 17 17 0 6 "[16422]" 17 18 0 6 "[20520][4135]" 17 19 16 GetFieldData "{0}" 17 20 16 UpdateDisplay "{0}" "{1}" "{2}" 17 21 16 ReadFive "{0}" 17 22 0 264 "IsRecordDirty" 0 17 24 10 00005470 10 00005470 5 23 6 1 18 0 11 00001108 17 27 16 StuffInfo "{0}" 17 28 6 4 5 10 3 0 8 4 17 29 6 4 6 5 18 2 11 00000966 17 30 6 4 5 10 3 1 8 4 17 32 0 272 "RefreshMain" 1 1 17 33 0 272 "LastField" 1 "{4}" 17 34 16 UpdateDisplay "{0}" "{1}" "{2}" 17 35 10 00005470 10 00005470 5 24 6 1 18 0 11 00001388 17 38 16 StuffInfo "{0}" 17 39 6 4 5 10 3 1 8 4 17 40 6 4 5 0 18 5 11 00001246 17 41 5 0 8 4 17 43 0 272 "RefreshMain" 1 1 17 44 0 272 "LastField" 1 "{4}" 17 45 16 UpdateDisplay "{0}" "{1}" "{2}" 17 46 10 00005470 10 00005470 5 27 6 1 18 0 11 00001431 10 00005470 5 28 6 1 18 0 11 00001754 17 52 0 6 "[16424]" 17 53 0 6 "[16422]" 17 54 31 18 342 13 11 00001562 17 55 0 6 "[16422]" 17 57 0 6 "[20520][4135]" 17 58 16 Getfielddata "{0}" 17 59 16 UpdateDisplay "{0}" "{1}" "{2}" 17 60 16 ReadFive "{0}" 17 61 0 264 "IsRecordDirty" 0 17 62 10 00005470 10 00005470 5 29 6 1 18 0 11 00002144 17 65 16 _$$3CurShade$ 13 7 "" 18 0 11 00001873 17 66 0 6 "[16422]" 10 00001902 17 68 0 6 "[16422][16422]" 17 70 0 6 "[20520][4135]" 17 71 5 -1 16 Getfielddata "{0}" 13 18 0 11 00002010 17 72 16 MoveFirst 17 74 16 UpdateDisplay "{0}" "{1}" "{2}" 17 75 16 ReadFive "{0}" 17 76 0 264 "IsRecordDirty" 0 17 77 10 00005470 10 00005470 5 30 6 1 18 0 11 00002325 17 80 0 73 855 17 81 16 GotoMain "{0}" 17 82 0 73 854 17 83 16 ReadFive "{0}" 17 84 0 264 "IsRecordDirty" 0 17 85 10 00005470 10 00005470 5 31 6 1 18 0 11 00002662 17 89 16 StuffInfo "{0}" 17 90 0 6 "[27]" 17 91 16 WriteOut 0 17 92 0 6 "[16422]" 17 93 5 0 8 4 17 94 0 272 "LastField" 1 "{4}" 17 95 0 272 "RefreshMain" 1 1 17 96 16 UpdateDisplay "{0}" "{1}" "{2}" 17 97 16 ReadFive "{0}" 17 98 0 264 "IsRecordDirty" 0 17 99 10 00005470 10 00005470 5 32 6 1 18 0 11 00003075 17 102 29 8 Shaded 16 _$$3CurShade$ 13 8 8 17 103 16 _$$3CurShade$ 13 7 "" 18 1 11 00003041 17 104 0 6 "[46]" 17 105 16 _$$4AtEof 13 11 00002877 17 106 0 6 "[16422]" 17 108 0 6 "[20520][4135]" 17 109 16 Getfielddata "{0}" 17 110 16 UpdateDisplay "{0}" "{1}" "{2}" 17 111 16 ReadFive "{0}" 17 112 0 264 "IsRecordDirty" 0 17 114 10 00005470 10 00005470 5 33 6 1 18 0 11 00003430 17 117 0 6 "[27]" 5 1 8 7 17 118 6 5 6 7 18 2 12 00003218 10 00003266 5 1 6 7 3 0 8 7 10 00003135 17 119 0 272 "EditData" "{7}" "" 10 00003185 17 121 5 0 8 4 17 122 0 272 "LastField" 1 "{4}" 17 123 16 UpdateDisplay "{0}" "{1}" "{2}" 17 124 0 264 "IsRecordDirty" 0 17 125 10 00005470 10 00005470 5 34 6 1 18 0 11 00003774 17 129 0 73 853 17 130 29 9 Stat 16 InsertField "{0}" 13 8 9 17 131 6 9 5 0 18 0 11 00003587 17 132 16 MoveFirst 17 134 0 73 854 17 135 16 GetFieldData "{0}" 17 136 16 UpdateDisplay "{0}" "{1}" "{2}" 17 137 16 ReadFive "{0}" 17 138 0 264 "IsRecordDirty" 0 17 139 10 00005470 10 00005470 5 35 6 1 18 0 11 00004128 17 142 0 264 "Speed" 1 17 143 0 56 "{0}" 35 1 17 144 0 56 "{0}" 55 0 17 145 16 FastForward "{0}" 17 146 0 56 "{0}" 35 0 17 147 0 56 "{0}" 55 1 17 149 16 Getfielddata "{0}" 17 150 16 UpdateDisplay "{0}" "{1}" "{2}" 17 151 16 ReadFive "{0}" 17 152 0 264 "IsRecordDirty" 0 17 153 10 00005470 10 00005470 5 36 6 1 18 0 11 00004482 17 156 0 264 "Speed" 1 17 157 0 56 "{0}" 36 1 17 158 0 56 "{0}" 56 0 17 159 16 FastReverse "{0}" 17 160 0 56 "{0}" 36 0 17 161 0 56 "{0}" 56 1 17 162 16 GetFieldData "{0}" 17 163 16 UpdateDisplay "{0}" "{1}" "{2}" 17 164 16 ReadFive "{0}" 17 165 0 264 "IsRecordDirty" 0 17 166 10 00005470 10 00005470 5 41 6 1 18 0 11 00004765 17 169 0 79 103 13 11 00004678 17 170 2 103 1 13 8 9 17 171 6 9 5 -2 18 0 11 00004665 17 172 16 MessageDlg "{0}" "The file was not saved" 10 00004731 17 175 16 MessageDlg "{0}" "Save is not available" 17 177 10 00005470 10 00005470 5 55 6 1 18 0 11 00004833 17 180 0 264 "Speed" 0 10 00005470 5 56 6 1 18 0 11 00005086 17 184 0 264 "Speed" 0 17 186 0 56 "{0}" 36 0 17 187 0 56 "{0}" 56 1 17 188 16 GetFieldData "{0}" 17 189 16 UpdateDisplay "{0}" "{1}" "{2}" 17 190 16 ReadFive "{0}" 17 191 0 264 "IsRecordDirty" 0 10 00005470 5 51 6 1 18 0 11 00005470 17 197 16 StuffInfo "{0}" 17 198 0 265 "IsRecordDirty" 13 11 00005450 17 199 0 2 "The current record has been modified. To save these changes, you must return to the cardfile and select add or update. Return to the cardfile to save changes?" "Ami Pro" 13 11 00005430 17 200 10 00005470 10 00005450 17 202 0 64 "{0}" 17 205 0 64 "{0}" 6 3 15 17 208 9 14 FastForward 29 0 Hdlg 29 1 FastForward 17 1 29 2 Mac 0 802 13 8 2 17 2 0 1315 "{2}!Stopit" 17 3 5 6 29 3 StoreName 21 3 [X] 17 4 29 4 FldSep 0 273 "FieldSep" 1 13 8 4 17 5 29 5 RecSep 0 273 "RecSep" 1 13 8 5 17 6 29 6 KeyField 0 273 "KeyField" 1 13 8 6 17 7 16 _$$4AtEof 13 1 3 11 00001016 17 8 0 265 "Speed" 13 5 0 18 0 11 00000445 17 9 0 6 "[16422]" 17 10 0 6 "[20520][4135]" 17 11 10 00001016 17 13 0 6 "[16424]" 17 14 31 18 342 13 11 00000590 17 15 0 6 "[16422]" 17 16 0 6 "[20520]" 17 17 0 264 "Speed" 0 17 18 10 00001016 17 20 29 7 Shade 16 _$$4GetTextBeforeCursor 13 8 7 17 21 5 5 5 4 22 3 23 3 17 22 5 4 5 3 22 3 23 3 17 23 5 3 5 2 22 3 23 3 17 24 5 2 5 1 22 3 23 3 17 25 5 1 0 20 "{7}" "{6}" "{4}" 13 23 3 17 26 5 5 22 3 0 43 "{0}" 1017 [X] 17 27 5 4 22 3 0 43 "{0}" 1018 [X] 17 28 5 3 22 3 0 43 "{0}" 1019 [X] 17 29 5 2 22 3 0 43 "{0}" 1020 [X] 17 30 5 1 22 3 0 43 "{0}" 1021 [X] 10 00000285 17 32 5 0 15 9 6 1 15 17 34 9 14 SaveData 29 0 SaveData 17 1 0 32 2 17 2 29 1 Mac 0 802 13 8 1 17 3 0 41 0 "{1}!initSaveData" 17 4 29 2 Stat 0 71 104 1021 13 8 2 17 5 6 2 15 9 6 0 15 17 6 9 14 InitSaveData 29 0 Hdlg 29 1 id 29 2 InitSaveData 17 1 0 75 "{0}" "Name merge data file" 6 2 15 17 2 9 14 FastReverse 29 0 Hdlg 29 1 FastReverse 17 1 29 2 Mac 0 802 13 8 2 17 2 0 1315 "{2}!Stopit" 17 3 29 3 Stat 17 4 5 6 29 4 StoreName 21 4 [X] 17 5 29 5 FldSep 0 273 "FieldSep" 1 13 8 5 17 6 29 6 RecSep 0 273 "RecSep" 1 13 8 6 17 7 29 7 KeyField 0 273 "KeyField" 1 13 8 7 17 8 5 1 11 00001242 17 9 0 265 "Speed" 13 5 0 18 0 11 00000445 17 10 0 6 "[16422]" 17 11 0 6 "[20520][4135]" 17 13 10 00001242 17 15 0 6 "[16422]" 17 16 0 6 "[16422]" 17 17 0 6 "[16424]" 17 18 29 8 Shade 16 _$$4GetTextBeforeCursor 13 8 8 17 19 0 14 "{8}" 13 5 3 18 5 11 00000679 17 20 0 264 "Speed" 0 17 21 16 MoveFirst 17 22 10 00001242 17 24 5 5 5 4 22 4 23 4 17 25 5 4 5 3 22 4 23 4 17 26 5 3 5 2 22 4 23 4 17 27 5 2 5 1 22 4 23 4 17 28 5 1 0 20 "{8}" "{7}" "{5}" 13 23 4 17 29 5 1 22 4 0 273 "FieldNames" "{7}" 13 18 0 11 00001034 17 30 5 1 11 00001034 16 Checkit "{8}" 13 0 805 &3 [X] 17 31 0 264 "Speed" 0 17 32 16 MoveFirst 17 33 10 00001242 17 36 5 5 22 4 0 43 "{0}" 1017 [X] 17 37 5 4 22 4 0 43 "{0}" 1018 [X] 17 38 5 3 22 4 0 43 "{0}" 1019 [X] 17 39 5 2 22 4 0 43 "{0}" 1020 [X] 17 40 5 1 22 4 0 43 "{0}" 1021 [X] 10 00000302 17 42 5 0 15 9 6 1 15 17 43 9 14 Checkit 29 0 Shade 29 1 Checkit 17 1 29 2 FldSep 0 273 "FieldSep" 1 13 8 2 17 2 29 3 RecSep 0 273 "RecSep" 1 13 8 3 17 3 29 4 TotalFields 0 273 "TotalFields" 1 13 8 4 29 5 t 5 1 8 5 17 4 6 4 6 5 18 2 12 00000287 10 00000450 5 1 6 5 3 0 8 5 10 00000206 17 5 29 6 Data 0 20 "{0}" "{5}" "{2}" 13 8 6 17 6 6 6 0 273 "FieldNames" "{5}" 13 18 0 11 00000437 17 7 29 7 Trouble 6 7 5 1 3 0 8 7 10 00000254 17 10 6 7 6 4 18 0 11 00000518 17 11 5 1 15 9 10 00000537 17 13 5 0 15 9 6 1 15 17 15 9 14 Stopit 29 0 Stopit 17 1 0 1315 "" 17 2 0 264 "Speed" 0 6 0 15 17 3 9 14 HitFolder 29 0 Hdlg 29 1 id 29 2 dummy 29 3 HitFolder 17 1 0 32 2 17 2 29 4 Folder 6 1 5 81 3 1 8 4 29 5 t 5 1 8 5 17 3 6 4 6 5 18 2 12 00000215 10 00000249 5 1 6 5 3 0 8 5 10 00000134 17 4 0 6 "[16424]" 10 00000182 17 6 0 6 "[16422]" 17 7 0 6 "[20520][4135]" 17 8 16 Getfielddata "{0}" 17 9 16 UpdateDisplay "{0}" "{1}" "{2}" 17 10 16 ReadFive "{0}" 6 3 15 17 12 9 14 HitKey 29 0 Hdlg 29 1 id 29 2 HitKey 6 2 15 17 1 9 14 PreBuild 29 0 Hdlg 29 1 id 29 2 dummy 29 3 PreBuild 17 1 0 32 2 17 2 29 4 TotalFields 0 273 "TotalFields" 1 13 8 4 17 3 29 5 MyOpenFile 16 _$$1GetDocInfo$ 1 13 8 5 17 4 29 6 app 16 _$$2GetOpenFileName$ 13 8 6 17 5 6 6 7 "" 18 1 11 00000342 17 6 0 1031 "{6}" 17 7 0 1025 "{6}" 25 15 17 8 0 1026 "{6}" 60 60 17 11 0 56 "{0}" 55 1 17 12 0 56 "{0}" 56 1 17 13 0 56 "{0}" 93 1 17 14 6 4 5 10 18 5 11 00000499 17 15 0 56 "{0}" 23 1 17 16 0 56 "{0}" 24 1 17 18 0 264 "MainHdlg" "{0}" 17 21 29 7 Title 0 16 "Data File - " "{5}" 13 8 7 17 22 0 75 "{0}" "{7}" 17 23 16 MoveFirst 17 24 16 Getfielddata "{0}" 17 25 16 UpdateDisplay "{0}" "{1}" "{2}" 17 26 16 ReadFive "{0}" 6 3 15 17 27 9 14 HitEnter 29 0 Hdlg 29 1 id 29 2 dummy 29 3 HitEnter 17 1 0 32 2 17 2 29 4 hwnd 5 0 8 4 17 3 5 8001 8 1 17 4 6 1 5 8000 18 5 6 1 5 8010 18 3 1 2 11 00000201 17 5 5 -1 15 9 17 7 29 5 Forward 6 1 5 1 3 0 8 5 17 8 29 6 TargetEdit 0 273 "EditTarget" 1 13 8 6 17 9 29 7 LastEditField 0 273 "LastEditField" 1 13 8 7 17 10 6 5 6 7 18 0 11 00000477 17 11 29 8 Nextwin 0 44 "{0}" "{5}" 13 8 8 17 12 0 55 "{0}" "{8}" 10 00000754 17 14 6 1 6 7 18 0 11 00000557 17 15 16 MainCall "{0}" 31 0 10 00000754 17 16 6 1 6 6 18 5 11 00000665 17 17 0 44 "{0}" "{5}" 13 8 8 17 18 0 55 "{0}" "{8}" 10 00000754 17 21 0 44 "{0}" 8001 13 8 8 17 22 0 55 "{0}" "{8}" 17 23 16 MainCall "{0}" 23 0 6 3 15 17 25 9 14 UpDateDisplay 29 0 Hdlg 29 1 id 29 2 dummy 29 3 UpDateDisplay 17 1 0 32 2 17 2 29 4 Identifier 0 273 "KeyField" 1 13 8 4 17 3 29 5 TotalFields 0 273 "TotalFields" 1 13 8 5 17 4 29 6 LastField 0 273 "LastField" 1 13 8 6 17 5 29 7 RefreshStat 0 273 "RefreshMain" 1 13 8 7 17 8 5 0 6 7 18 0 11 00000841 29 8 t 5 1 8 8 17 11 5 10 6 8 18 2 12 00000436 10 00000828 5 1 6 8 3 0 8 8 10 00000353 17 12 6 6 6 8 3 0 6 5 18 5 11 00000632 17 13 5 8000 6 8 3 0 0 272 "EditTarget" 1 [X] 17 14 5 8000 6 8 3 0 6 8 6 6 3 0 0 273 "EditData" [X] 13 0 43 "{0}" [X] [X] 10 00000815 17 15 6 6 6 8 3 0 6 5 18 0 11 00000815 17 16 5 8000 6 8 3 0 6 8 6 6 3 0 0 273 "EditData" [X] 13 0 43 "{0}" [X] [X] 17 17 5 8000 6 8 3 0 0 272 "EditTarget" 1 [X] 10 00000403 10 00002130 5 1 6 7 18 0 11 00002130 17 22 6 6 5 0 18 0 11 00000943 17 23 0 56 "{0}" 24 1 10 00000989 17 25 0 56 "{0}" 24 0 17 26 0 55 "{0}" 24 17 29 6 6 5 10 3 0 6 5 18 2 11 00001073 17 30 0 56 "{0}" 23 1 10 00001119 17 32 0 56 "{0}" 23 0 17 33 0 55 "{0}" 23 5 1 8 8 17 36 5 10 6 8 18 2 12 00001212 10 00002098 5 1 6 8 3 0 8 8 10 00001129 17 37 6 6 6 8 3 0 6 5 18 5 11 00001573 17 38 5 8000 6 8 3 0 6 8 6 6 3 0 0 273 "EditData" [X] 13 0 43 "{0}" [X] [X] 17 39 5 8000 6 8 3 0 0 272 "EditTarget" 1 [X] 17 40 0 272 "LastEditField" 1 0 17 41 5 1000 6 8 3 0 6 8 6 6 3 0 0 273 "FieldNames" [X] 13 0 43 "{0}" [X] [X] 17 42 5 8000 6 8 3 0 0 56 "{0}" [X] 0 10 00002085 17 44 6 6 6 8 3 0 6 5 18 0 11 00001954 17 45 5 8000 6 8 3 0 6 8 6 6 3 0 0 273 "EditData" [X] 13 0 43 "{0}" [X] [X] 17 46 5 8000 6 8 3 0 0 272 "EditTarget" 1 [X] 17 47 5 8000 6 8 3 0 0 272 "LastEditField" 1 [X] 17 48 5 1000 6 8 3 0 6 8 6 6 3 0 0 273 "FieldNames" [X] 13 0 43 "{0}" [X] [X] 17 49 5 8000 6 8 3 0 0 56 "{0}" [X] 0 10 00002085 17 51 5 1000 6 8 3 0 0 43 "{0}" [X] "" 17 52 5 8000 6 8 3 0 0 56 "{0}" [X] 1 17 53 5 8000 6 8 3 0 0 43 "{0}" [X] "" 10 00001179 17 56 0 272 "RefreshMain" 1 0 17 60 0 273 "EditData" "{4}" 13 0 43 "{0}" 1017 [X] 17 61 0 55 "{0}" 8001 6 3 15 17 62 9 14 StuffInfo 29 0 Hdlg 29 1 StuffInfo 17 1 29 2 LastField 0 273 "LastField" 1 13 8 2 17 2 29 3 TotalFields 0 273 "TotalFields" 1 13 8 3 29 4 t 5 1 8 4 17 4 5 10 6 4 18 2 12 00000249 10 00000417 5 1 6 4 3 0 8 4 10 00000167 17 5 29 5 Info 5 8000 6 4 3 0 0 42 "{0}" [X] 13 8 5 17 6 6 2 6 4 3 0 6 3 18 4 11 00000404 17 11 6 2 6 4 3 0 0 272 "EditData" [X] "{5}" 10 00000216 6 1 15 17 14 9 14 Writeout 29 0 LastChar 29 1 Writeout 17 1 29 2 TotalFields 0 273 "TotalFields" 1 13 8 2 17 2 29 3 FldSep 0 273 "FieldSep" 1 13 8 3 17 3 29 4 RecSep 0 273 "RecSep" 1 13 8 4 29 5 t 5 1 8 5 17 5 6 2 6 5 18 2 12 00000292 10 00000408 5 1 6 5 3 0 8 5 10 00000211 17 6 29 6 Info 0 273 "EditData" "{5}" 13 8 6 17 7 0 272 "EditData" "{5}" "" 17 8 0 6 "{6}{3}" 10 00000259 17 10 0 6 "[8]" 17 11 0 6 "{4}" 17 12 6 0 5 0 18 0 11 00000499 17 13 0 6 "[13]" 6 1 15 17 15 9 14 GetFieldData 29 0 Hdlg 29 1 GetFieldData 17 1 29 2 Name 17 2 29 3 FldSep 0 273 "FieldSep" 1 13 8 3 17 3 29 4 RecSep 0 273 "RecSep" 1 13 8 4 17 4 29 5 RefreshStat 0 273 "RefreshButton" 1 13 8 5 17 5 29 6 TotalFields 0 273 "TotalFields" 1 13 8 6 17 7 29 7 Shaded 16 _$$3CurShade$ 13 8 7 29 8 x 5 1 8 8 17 9 6 6 6 8 18 2 12 00000417 10 00000700 5 1 6 8 3 0 8 8 10 00000336 17 10 0 20 "{7}" "{8}" "{3}" 13 8 2 17 11 0 20 "{2}" 1 "{4}" 13 8 2 17 12 6 2 5 -1 18 0 11 00000548 17 13 7 "" 8 2 17 15 0 272 "EditData" "{8}" "{2}" 17 16 6 2 0 273 "FieldNames" "{8}" 13 18 0 11 00000687 17 17 29 9 Trouble 6 9 5 1 3 0 8 9 10 00000384 17 22 6 9 6 6 18 0 11 00000794 17 23 5 0 8 9 17 24 16 MoveFirst 17 25 10 00000272 6 1 15 17 27 9 14 SortEm 29 0 SortEm 6 0 15 17 1 9 14 InitfldMan 29 0 Hdlg 29 1 id 29 2 InitfldMan 17 1 29 3 KeyField 0 265 "KeyField" 13 8 3 17 2 29 4 Key 6 3 5 1 3 1 8 4 17 3 0 62 "{0}" 9500 "{4}" 6 2 15 17 4 9 14 InsertField 29 0 Hdlg 29 1 InsertField 17 1 0 32 2 17 2 5 1 29 2 TempFields 21 2 [X] 17 3 29 3 Status 5 0 8 3 17 4 29 4 Mac 0 802 13 8 4 17 5 29 5 TotalFields 0 273 "TotalFields" 1 13 8 5 17 6 0 271 "TempTotal" 1 17 7 0 271 "IsInserted" 1 17 8 0 271 "IsRenamed" 1 17 10 0 264 "TempTotal" "{5}" 29 6 t 5 1 8 6 17 12 6 5 6 6 18 2 12 00000428 10 00000650 5 1 6 6 3 0 8 6 10 00000346 17 13 29 7 fName 0 273 "FieldNames" "{6}" 13 8 7 17 14 29 8 Name 0 16 "{7}" " ^Org" 13 8 8 17 15 0 1041 &2 "{6}" "{8}" 17 16 0 31 9500 "{7}" 10 00000395 17 18 0 31 9000 &2 17 20 0 41 0 "{4}!InitFldMan" 17 21 0 41 20 "{4}!InsertCall" 17 22 0 41 22 "{4}!InsertCall" 17 23 0 41 21 "{4}!InsertCall" 17 24 0 41 30 "{4}!InsertCall" 17 26 0 73 853 17 27 29 9 AmiDir 0 798 13 8 9 17 28 29 10 Box 0 26 "{9}merge.dlg" "AddField" 13 8 10 17 30 0 265 "DialogClose" 13 8 3 17 31 6 3 5 1 18 1 11 00001058 17 32 5 2 8 3 17 33 10 00001139 17 35 0 296 1 17 37 29 11 Stat 16 ModifyFile 13 8 11 17 38 16 MoveFirst 17 40 0 264 "DialogClose" 0 17 41 0 266 "IsInserted" 17 42 0 266 "IsRenamed" 17 43 0 266 "TempTotal" 17 44 0 266 "HoldList" 17 45 0 296 0 17 46 6 3 15 9 6 1 15 17 47 9 14 InsertCall 29 0 Hdlg 29 1 id 29 2 dummy 29 3 InsertCall 17 1 0 32 2 17 2 29 4 Stat 29 5 ListItem 17 3 29 6 AmiDir 0 798 13 8 6 17 4 29 7 IndexSel 0 61 "{0}" 9000 13 8 7 17 6 29 8 EditBoxText 0 42 "{0}" 8001 13 8 8 17 7 29 9 ListData 0 42 "{0}" 9000 13 8 9 17 8 6 1 5 20 18 3 6 1 5 30 18 5 1 1 11 00000702 17 10 0 42 "{0}" 8001 13 0 277 [X] 13 11 00000508 17 11 16 MessageDLG "{0}" "Fieldnames cannot begin with a number." 17 12 0 55 "{0}" 8001 6 3 15 9 17 16 7 "" 0 42 "{0}" 8001 13 0 805 &4 [X] 13 18 1 11 00000592 10 00000702 17 18 16 MessageDLG "{0}" "Please enter fieldname to insert or rename" 17 19 0 55 "{0}" 8001 6 3 15 9 17 24 5 21 6 1 18 0 11 00001425 17 27 5 0 16 IsBadCharacter "{8}" 13 18 0 11 00001412 17 28 5 32 0 806 "{8}" 1 13 0 40 [X] 13 18 1 11 00001349 17 29 6 7 5 -1 18 1 11 00001289 17 30 0 31 20 1 17 31 29 10 Box 0 26 "{6}Merge.dlg" "InsertField" 13 8 10 17 32 6 10 5 1 18 1 11 00001031 6 3 15 9 17 35 0 27 21 13 11 00001091 17 36 6 7 5 1 3 0 8 7 17 38 29 11 Name 0 16 "{4}" " ^Add" 13 8 11 17 39 0 66 "{0}" 9000 "{7}" "{11}" 17 40 0 264 "IsInserted" 1 17 41 0 43 "{0}" 8001 "" 10 00001336 17 43 0 3 "Please select a field." "Ami Pro" 10 00001412 17 46 0 3 "Field names cannot begin with a space." "Ami Pro" 10 00002574 5 22 6 1 18 0 11 00001927 17 51 7 "Org" 0 20 "{9}" 2 "^" 13 18 0 11 00001618 17 52 29 12 NewName 0 16 "{4}" " ^Org" 13 8 12 10 00001693 17 54 0 16 "{4}" " ^Add" 13 8 12 17 57 6 7 5 -1 18 1 11 00001865 17 58 0 65 "{0}" 9000 "{7}" 17 59 0 66 "{0}" 9000 "{7}" "{12}" 17 60 0 264 "IsRenamed" 1 17 61 0 43 "{0}" 8001 "" 10 00001914 17 63 0 3 "Select a field to rename" "Ami Pro" 10 00002574 5 20 6 1 18 0 11 00002495 17 67 29 13 TotalCount 0 60 "{0}" 9000 13 8 13 17 68 0 271 "HoldList" "{13}" 17 69 0 264 "TempTotal" "{13}" 17 70 29 14 Target 6 13 5 1 3 1 8 14 29 15 g 5 0 8 15 17 71 6 14 6 15 18 2 12 00002223 10 00002327 5 1 6 15 3 0 8 15 10 00002137 17 72 0 63 "{0}" 9000 "{15}" 13 8 5 17 73 6 15 5 1 3 0 0 272 "HoldList" [X] "{5}" 10 00002188 17 75 29 16 Key 0 61 "{0}" 9500 13 8 16 17 76 6 16 5 1 3 0 8 16 17 77 0 264 "KeyField" "{16}" 17 78 0 264 "DialogClose" 1 17 80 0 64 "{0}" 10 00002574 5 30 6 1 18 0 11 00002574 17 83 0 264 "DialogClose" 0 17 84 0 64 "{0}" 17 89 0 55 "{0}" 8001 6 3 15 17 90 9 14 GetVars 29 0 TotalFields 29 1 FldSep 29 2 RecSep 29 3 GetVars 17 1 0 273 "FieldSep" 1 13 28 1 17 2 0 273 "RecSep" 1 13 28 2 17 3 0 273 "TotalFields" 1 13 28 0 6 3 15 17 4 9 14 ModifyFile 29 0 ModifyFile 17 1 0 296 1 17 2 29 1 Totalfields 29 2 FldSep 29 3 RecSep 29 4 FieldName 17 3 16 GetVars &1 &2 &3 17 4 29 5 TempTotal 0 265 "TempTotal" 13 8 5 17 5 6 5 29 6 TempName 21 6 [X] 17 6 6 5 29 7 NewName 21 7 [X] 17 7 29 8 AddCount 5 0 8 8 17 8 5 1 29 9 AddIndex 21 9 [X] 29 10 t 5 1 8 10 17 9 6 5 6 10 18 2 12 00000432 10 00000955 5 1 6 10 3 0 8 10 10 00000348 17 10 6 10 0 273 "HoldList" "{10}" 13 23 6 17 11 5 -1 6 10 22 6 0 20 [X] 1 "^" 13 0 805 &4 [X] 13 18 1 11 00000562 17 14 29 11 Hittest 0 14 "{4}" 13 8 11 17 15 7 " " 0 15 "{4}" "{11}" 1 13 18 0 11 00000706 17 16 6 11 5 1 3 1 8 11 10 00000606 17 18 0 806 "{4}" "{11}" 13 8 4 17 19 6 10 22 6 0 20 [X] 2 "^" 13 7 "Add" 18 0 11 00000911 17 20 0 1041 &7 "{10}" "{4}" 17 21 6 8 5 1 3 0 8 8 17 22 0 1041 &9 "{8}" "{10}" 10 00000942 17 24 0 1041 &7 "{10}" "{4}" 10 00000397 17 27 16 RebuildHeader &7 17 28 5 1 22 9 5 0 18 3 11 00001046 17 29 16 Drive2 &9 17 31 0 296 0 6 0 15 17 32 9 14 RebuildHeader 29 0 NewName 29 1 RebuildHeader 17 1 29 2 Totalfields 29 3 FldSep 29 4 RecSep 17 2 0 296 1 17 4 0 789 "Please Wait...Renaming field names" 17 5 16 GetVars &2 &3 &4 17 6 29 5 Count 0 1046 &0 13 8 5 17 7 0 266 "EditData" 17 8 0 266 "FieldNames" 17 9 0 271 "FieldNames" "{5}" 17 10 0 271 "EditData" "{5}" 17 11 0 6 "[16420]" 17 12 0 6 "[40][20520]" 29 6 t 5 1 8 6 17 13 6 5 6 6 18 2 12 00000493 10 00000600 5 1 6 6 3 0 8 6 10 00000411 17 14 29 7 Name 6 6 22 0 8 7 17 15 0 6 "{7}{3}" 17 16 0 272 "FieldNames" "{6}" "{7}" 10 00000460 17 18 0 6 "[8]" 17 19 0 6 "{4}" 17 20 0 272 "TotalFields" 1 "{5}" 17 21 0 272 "LastField" 1 0 17 22 0 272 "RefreshMain" 1 1 17 23 0 789 "" 6 1 15 17 24 9 14 Drive2 29 0 AddIndex 29 1 Drive2 17 1 29 2 Totalfields 29 3 FldSep 29 4 RecSep 17 2 16 GetVars &2 &3 &4 17 3 29 5 AddTotal 0 1046 &0 13 8 5 17 4 29 6 NewTotal 6 5 6 2 3 0 8 6 17 5 29 7 Hdlg 0 265 "MainHdlg" 13 8 7 17 6 29 8 Flag 5 0 8 8 17 7 29 9 y 5 0 8 9 17 8 16 MoveFirst 17 9 16 _$$4AtEof 13 1 3 11 00001428 17 10 6 9 5 1 3 0 8 9 17 11 6 2 29 10 Name 21 10 [X] 17 12 29 11 Rec 16 _$$3CurShade$ 13 8 11 17 13 0 14 "{11}" 13 5 1 18 5 11 00000531 17 15 10 00001428 29 12 t 5 1 8 12 17 17 6 2 6 12 18 2 12 00000636 10 00000770 5 1 6 12 3 0 8 12 10 00000551 17 18 6 12 0 20 "{11}" "{12}" "{3}" 13 23 10 17 19 6 12 22 10 5 -1 18 0 11 00000757 17 20 6 12 7 "" 23 10 10 00000601 29 13 q 5 1 8 13 17 23 6 5 6 13 18 2 12 00000875 10 00000959 5 1 6 13 3 0 8 13 10 00000790 17 24 29 14 TestIndex 6 13 22 0 8 14 17 25 0 1041 &10 "{14}" "" 10 00000840 17 27 29 15 NewSize 0 1046 &10 13 8 15 29 16 l 5 1 8 16 17 28 6 15 6 16 18 2 12 00001109 10 00001183 5 1 6 16 3 0 8 16 10 00001023 17 29 29 17 Field 6 16 22 10 8 17 17 30 0 6 "{17}{3}" 10 00001074 17 32 0 6 "[13]" 17 33 0 6 "[37][8]" 17 34 0 6 "[16422][16424][39]" 17 35 0 6 "[20520][4135]" 17 36 0 16 "Please Wait...Updating record # " "{9}" 13 0 75 "{7}" [X] 17 37 16 _$$4AtEof 13 11 00001415 17 38 5 -1 8 8 10 00000313 17 41 29 18 MyOpenFile 16 _$$1GetDocInfo$ 1 13 8 18 17 42 29 19 Title 0 16 "Data File - " "{18}" 13 8 19 17 43 0 75 "{7}" "{19}" 6 1 15 17 44 9 14 GotoMain 29 0 Hdlg 29 1 GotoMain 17 1 0 32 2 17 2 5 1 29 2 TempFields 21 2 [X] 17 3 29 3 Mac 0 802 13 8 3 17 4 29 4 AmiDir 0 798 13 8 4 17 5 29 5 TotalFields 0 273 "TotalFields" 1 13 8 5 29 6 t 5 1 8 6 17 6 6 5 6 6 18 2 12 00000313 10 00000383 5 1 6 6 3 0 8 6 10 00000232 17 7 0 273 "FieldNames" "{6}" 13 0 1041 &2 "{6}" [X] 10 00000280 17 9 0 31 9500 &2 17 10 0 31 20 1 17 11 0 41 0 "{3}!InitGoto" 17 12 0 41 9500 "{3}!GotoCallBack" 17 13 0 73 855 17 14 29 7 Box 0 26 "{4}merge.dlg" "Goto" 13 8 7 17 15 6 7 5 1 18 1 11 00000607 6 1 15 9 17 18 0 6 "[27]" 17 19 29 8 GotoField 0 27 20 13 8 8 17 20 29 9 GotoFirst 0 27 21 13 8 9 17 21 29 10 GotoLast 0 27 22 13 8 10 17 22 29 11 FieldName 0 27 9500 13 8 11 17 23 29 12 TargetName 0 27 8000 13 8 12 17 24 0 296 1 17 26 0 16 " Please wait....Searching for " "{11}" " = " "{12}" 13 0 789 [X] 17 28 6 8 11 00001231 17 29 29 13 FieldIndex 0 1044 &2 "{11}" 13 8 13 17 30 5 0 16 FindItem "{12}" "{13}" 13 18 0 11 00001168 17 31 16 Getfielddata "{0}" 17 32 16 UpDateDisplay "{0}" 0 0 10 00001231 17 34 16 MessageDLG "{0}" "No Match Found " 17 35 0 789 "" 17 38 6 9 11 00001342 17 39 16 MoveFirst 17 40 16 Getfielddata "{0}" 17 41 16 UpdateDisplay "{0}" 0 0 17 44 6 10 11 00001499 17 45 0 6 "[16419]" 17 46 0 6 "[16422]" 17 47 0 6 "[20520]" 17 48 16 Getfielddata "{0}" 17 49 16 UpdateDisplay "{0}" 0 0 17 52 0 789 "" 17 53 0 296 0 6 1 15 17 54 9 14 InitGoto 29 0 Hdlg 29 1 InitGoto 17 1 0 62 "{0}" 9500 0 6 1 15 17 3 9 14 GotoCallBack 29 0 Hdlg 29 1 id 29 2 value 29 3 GotoCallBack 17 1 0 43 "{0}" 20 1 6 3 15 17 2 9 14 FindItem 29 0 SearchData 29 1 FieldIndex 29 2 FindItem 17 1 29 3 Stat 29 4 Wild 17 2 29 5 Sep 0 273 "FieldSep" 1 13 8 5 17 3 6 0 7 "" 18 0 11 00000201 17 5 5 1 15 9 6 2 15 9 17 8 5 0 0 808 0 "{0}" "*" 13 0 805 &4 [X] 13 18 1 11 00000349 17 9 29 6 FindString 6 4 5 1 3 1 0 806 "{0}" [X] 13 8 6 10 00000366 17 11 6 0 8 6 17 13 29 7 FromPage1 5 8192 8 7 17 14 29 8 Flag 6 7 5 4 3 0 8 8 17 15 16 _$$3CurShade$ 13 11 00000501 17 16 0 6 "[37]" 17 18 5 1 16 _$$4Replace 0 0 "{8}" "{0}" "" 13 0 805 &3 [X] 13 18 0 16 _$$4AtEof 13 1 3 1 1 11 00001013 17 19 16 _$$4AtEof 13 11 00000675 17 20 10 00001013 17 22 0 6 "[16424]" 17 23 0 6 "[16422]" 17 24 0 6 "[20520][4135]" 17 25 29 9 Char 16 _$$3CurShade$ 13 8 9 17 26 5 0 0 20 "{9}" "{1}" "{5}" 13 0 18 [X] 13 0 18 "{6}" 13 0 808 0 [X] [X] 13 0 805 &3 [X] 13 18 1 11 00000964 17 28 5 0 15 9 6 2 15 9 10 00001000 17 31 0 6 "[39]" 17 32 5 4 8 8 10 00000501 17 35 5 1 15 9 6 2 15 17 36 9 14 CollectHeader 29 0 FieldNames 29 1 FldSep 29 2 RecSep 29 3 CollectHeader 17 2 29 4 Stat 29 5 sr 29 6 sc 29 7 er 29 8 ec 17 3 5 1 29 9 TempHead 21 9 [X] 17 4 0 6 "[16420]" 17 5 0 6 "[36][4131]" 17 6 5 0 16 _$$4TableGetRange &5 &6 &7 &8 13 0 805 &4 [X] 13 18 0 11 00000315 10 00000333 17 8 5 2 15 9 17 10 29 10 Char 16 _$$3CurShade$ 13 8 10 17 11 29 11 CharLength 0 14 "{10}" 13 8 11 17 12 6 11 5 1 18 5 11 00000510 17 13 5 -1 15 9 6 3 15 9 10 00000566 17 15 6 11 5 2 18 3 11 00000566 17 16 5 1 15 9 17 19 29 12 Sep 0 15 "{10}" 1 1 13 8 12 17 20 29 13 Rec 0 15 "{10}" 2 1 13 8 13 17 21 0 6 "[36][40][20520]" 17 22 16 _$$3CurShade$ 13 8 10 17 23 29 14 x 5 1 8 14 17 24 5 -1 0 20 "{10}" "{14}" "{12}" 13 0 805 &4 [X] 13 18 1 11 00001047 17 25 5 0 0 808 0 "{4}" "{13}" 13 18 1 11 00000974 17 26 0 20 "{4}" 1 "{13}" 13 8 4 17 27 0 1041 &0 "{14}" "{4}" 17 28 10 00001047 17 30 0 1041 &0 "{14}" "{4}" 17 31 6 14 5 1 3 0 8 14 10 00000748 17 33 6 12 28 1 17 34 6 13 28 2 6 3 15 17 35 9 14 DefineFields 29 0 DefineFields 17 1 0 32 2 17 2 29 1 Mac 0 802 13 8 1 17 3 29 2 Prodir 0 798 13 8 2 17 4 0 271 "DefineField" 1 17 5 0 271 "DefineRec" 1 17 6 0 271 "BoxReturn" 1 17 8 0 272 "BoxReturn" 1 0 17 9 0 272 "DefineField" 1 "~" 17 10 0 272 "DefineRec" 1 "|" 17 12 0 31 23 "{2}up.bmp" 17 13 0 31 24 "{2}down.bmp" 17 14 0 41 0 "{1}!InitDlgDefine" 17 15 0 41 20 "{1}!MakeCall" 17 16 0 41 21 "{1}!MakeCall" 17 17 0 41 22 "{1}!MakeCall" 17 18 0 41 23 "{1}!MakeCall" 17 19 0 41 24 "{1}!MakeCall" 17 20 0 41 30 "{1}!MakeCall" 17 21 0 41 8001 "{1}!MakeCall" 17 22 0 73 3028 17 23 29 3 AmiDir 0 798 13 8 3 17 25 29 4 Box 0 26 "{3}merge.dlg" "MakeFields" 13 8 4 17 26 29 5 BoxStat 0 273 "BoxReturn" 1 13 8 5 17 27 6 5 15 9 6 0 15 17 29 9 14 InitDlgDefine 29 0 Hdlg 29 1 id 29 2 value 29 3 InitDlgDefine 17 1 0 32 2 17 2 0 53 "{0}" 21 0 17 3 0 75 "{0}" "Create Data File" 6 3 15 17 4 9 14 MakeCall 29 0 Hdlg 29 1 id 29 2 dummy 29 3 MakeCall 17 1 0 32 2 17 2 29 4 Total 17 3 29 5 EditBoxText 0 42 "{0}" 8001 13 8 5 17 4 29 6 ListBoxText 0 42 "{0}" 9000 13 8 6 17 5 29 7 FldSep 0 273 "DefineField" 1 13 8 7 17 6 29 8 RecSep 0 273 "DefineRec" 1 13 8 8 17 7 29 9 IndexSel 0 61 "{0}" 9000 13 8 9 17 9 5 21 6 1 18 0 11 00001110 17 11 5 0 16 IsBadCharacter "{5}" 13 18 0 11 00001097 17 12 5 32 0 806 "{5}" 1 13 0 40 [X] 13 18 1 11 00001034 17 13 6 5 7 "" 18 1 11 00001021 17 14 0 277 "{5}" 13 1 3 11 00000958 17 15 5 0 0 808 0 "{5}" "{7}" 13 18 0 5 0 0 808 0 "{5}" "{8}" 13 18 0 1 1 11 00000882 17 16 0 43 "{0}" 9000 "{5}" 17 17 0 60 "{0}" 9000 13 8 4 17 18 6 4 5 7 18 3 11 00000818 17 19 29 10 Display 6 4 5 3 3 1 8 10 17 22 0 43 "{0}" 8001 "" 17 23 0 55 "{0}" 8001 10 00000945 17 25 0 3 "You cannot a delimiter in a field name" "Ami Pro" 10 00001021 17 29 0 3 "Field names cannot begin with a number" "Ami Pro" 10 00001097 17 33 0 3 "Field names cannot begin with a space." "Ami Pro" 10 00002572 5 22 6 1 18 0 11 00001271 17 39 6 9 5 -1 18 1 11 00001258 17 40 0 65 "{0}" 9000 "{9}" 17 41 0 43 "{0}" 8001 "" 17 42 0 55 "{0}" 9000 10 00002572 5 23 6 1 18 0 11 00001607 17 46 6 9 5 -1 18 1 11 00001594 17 47 29 11 String 0 42 "{0}" 9000 13 8 11 17 48 0 65 "{0}" 9000 "{9}" 17 49 6 9 5 0 18 1 11 00001507 17 50 29 12 NewPos 6 9 5 1 3 1 8 12 10 00001525 17 53 5 0 8 12 17 55 0 66 "{0}" 9000 "{12}" "{11}" 17 56 0 62 "{0}" 9000 "{12}" 10 00002572 5 24 6 1 18 0 11 00001997 17 60 0 60 "{0}" 9000 13 8 4 17 61 6 9 5 -1 18 1 11 00001984 17 62 0 42 "{0}" 9000 13 8 11 17 63 0 65 "{0}" 9000 "{9}" 17 64 6 9 6 4 5 1 3 1 18 5 11 00001877 17 65 29 13 NewPosition 6 9 5 1 3 0 8 13 10 00001915 17 67 29 14 NewPostition 6 9 8 14 17 69 0 66 "{0}" 9000 "{13}" "{11}" 17 70 0 62 "{0}" 9000 "{13}" 10 00002572 5 30 6 1 18 0 11 00002116 17 74 16 CreateOptionsBox "{0}" 17 75 0 55 "{0}" 8001 17 76 0 73 3028 10 00002572 5 20 6 1 18 0 11 00002572 17 79 5 0 0 60 "{0}" 9000 13 0 805 &4 [X] 13 18 1 11 00002572 17 80 0 272 "BoxReturn" 1 1 17 81 6 4 29 15 TempNames 21 15 [X] 17 82 29 16 ItemName 7 "" 8 16 29 17 t 5 0 8 17 17 83 6 4 5 1 3 1 6 17 18 2 12 00002436 10 00002526 5 1 6 17 3 0 8 17 10 00002341 17 84 0 63 "{0}" 9000 "{17}" 13 8 16 17 85 6 17 5 1 3 0 6 16 23 15 10 00002401 17 87 16 WriteFields &15 17 88 0 64 "{0}" 17 91 0 42 "{0}" 8001 13 7 "" 18 0 11 00002662 17 92 0 53 "{0}" 21 0 10 00002686 17 94 0 53 "{0}" 21 1 6 3 15 17 97 9 14 WriteFields 29 0 TempName 29 1 WriteFields 17 1 29 2 Size 0 1046 &0 13 8 2 17 2 29 3 RecSep 0 273 "DefineRec" 1 13 8 3 17 3 29 4 FldSep 0 273 "DefineField" 1 13 8 4 17 5 0 6 "[16420]" 17 6 0 6 "{4}{3}[13]" 29 5 t 5 1 8 5 17 7 6 2 6 5 18 2 12 00000330 10 00000411 5 1 6 5 3 0 8 5 10 00000249 17 8 29 6 Item 6 5 22 0 8 6 17 9 0 6 "{6}" 17 10 0 6 "{4}" 10 00000297 17 12 0 6 "[8]" 17 13 0 6 "{3}" 17 14 0 6 "[13]" 6 1 15 17 15 9 14 IsBadCharacter 29 0 Name 29 1 IsBadCharacter 17 1 29 2 BadCharIndex 17 2 29 3 BadCharacters 7 "~!@#$%^&*()|?+-=" 8 3 17 3 29 4 LenName 0 14 "{3}" 13 8 4 29 5 t 5 1 8 5 17 4 6 4 6 5 18 2 12 00000269 10 00000423 5 1 6 5 3 0 8 5 10 00000188 17 5 29 6 TestChar 0 15 "{3}" "{5}" 1 13 8 6 17 6 5 0 0 808 0 "{0}" "{6}" 13 0 805 &2 [X] 13 18 1 11 00000410 17 7 6 2 15 9 10 00000236 17 10 5 0 15 9 6 1 15 17 11 9 14 PreCreateOptions 29 0 hdlg 29 1 id 29 2 dummy 29 3 PreCreateOptions 17 1 0 74 "{0}" 8002 1 17 2 0 74 "{0}" 8003 1 17 3 0 55 "{0}" 8002 6 3 15 17 4 9 14 CreateOptionsBox 29 0 Hdlg 29 1 CreateOptionsBox 17 1 29 2 AmiDir 0 798 13 8 2 17 3 29 3 Mac 0 802 13 8 3 17 4 0 41 0 "{3}!PreCreateOptions" 17 5 0 73 853 17 6 0 273 "DefineField" 1 13 0 31 8002 [X] 17 7 0 273 "DefineRec" 1 13 0 31 8003 [X] 17 8 29 4 Box 0 26 "{2}Merge.dlg" "MakeOptions" 13 8 4 17 9 6 4 5 1 18 1 11 00000395 17 10 5 0 15 9 6 1 15 9 17 13 29 5 Field 0 27 8002 13 8 5 17 14 29 6 Rec 0 27 8003 13 8 6 17 15 6 5 7 "" 18 0 6 6 7 "" 18 0 1 2 11 00000609 17 18 16 MessageDlg "{0}" "Cannot use a blank delimiter" 17 19 10 00000090 17 22 6 6 6 5 18 0 11 00000727 17 24 16 MessageDlg "{0}" "Cannot use duplicate delimiters" 17 25 10 00000090 17 27 29 7 quot 0 39 34 13 8 7 17 28 29 8 goodchars 29 9 7 "!{7}#$%&'()*+|,-./:;<=>~?@[92]^_`{9}" 8 8 17 29 0 808 0 "{8}" "{5}" 13 5 0 18 0 11 00000993 17 30 0 16 "Cannot use that delimeter " "{5}" 13 16 MessageDlg "{0}" [X] 17 31 10 00000090 17 33 0 808 0 "{8}" "{6}" 13 5 0 18 0 11 00001146 17 34 0 16 "Cannot use that delimeter " "{6}" 13 16 MessageDlg "{0}" [X] 17 35 10 00000090 17 37 0 272 "DefineField" 1 "{5}" 17 38 0 272 "DefineRec" 1 "{6}" 6 1 15 17 40 9 14 MoveFirst 29 0 MoveFirst 17 1 0 6 "[16420]" 17 2 0 6 "[16424][16424][39]" 17 4 0 6 "[20520][4135]" 6 0 15 17 5 9 14 ReadFive 29 0 Hdlg 29 1 ReadFive 17 1 29 2 Name 17 3 29 3 FldSep 0 273 "FieldSep" 1 13 8 3 17 4 29 4 RecSep 0 273 "RecSep" 1 13 8 4 17 5 29 5 Count 5 0 8 5 17 6 29 6 Current 5 1 8 6 17 7 29 7 KeyField 0 273 "KeyField" 1 13 8 7 17 8 29 8 FirstFolder 5 1016 8 8 17 9 29 9 ReadTo 5 5 8 9 17 11 29 10 RetSymbol 0 39 10 13 8 10 17 12 29 11 Shade 16 _$$3CurShade$ 13 8 11 17 13 6 11 7 "" 18 0 11 00000534 17 14 29 12 Start 5 1 8 12 17 15 5 1017 8 8 17 16 5 4 8 9 10 00000569 17 18 5 2 8 12 17 19 5 1 8 5 29 13 x 6 12 8 13 17 22 6 9 6 13 18 2 12 00000675 10 00001131 5 1 6 13 3 0 8 13 10 00000590 17 23 0 6 "[16424]" 17 24 31 18 342 13 11 00000777 17 25 29 14 Field 7 "" 8 14 10 00000959 17 27 29 15 Rec 16 _$$4GetTextBeforeCursor 13 8 15 17 28 0 20 "{15}" "{7}" "{3}" 13 8 14 17 29 6 14 5 -1 18 0 11 00000932 17 30 7 "" 8 14 17 32 6 5 5 1 3 0 8 5 17 34 29 16 Folder 6 8 6 13 3 0 8 16 17 35 6 16 5 1016 18 3 6 16 5 1022 18 5 1 1 11 00001118 17 36 0 806 "{14}" 13 13 0 43 "{0}" "{16}" [X] 10 00000640 29 17 t 5 1 8 17 17 39 6 5 6 17 18 2 12 00001236 10 00001271 5 1 6 17 3 0 8 17 10 00001151 17 40 0 6 "[16422]" 10 00001201 17 42 6 11 7 "" 18 1 11 00001337 17 43 0 6 "[20520][4135]" 6 1 15 17 45 9 14 MessageDlg 29 0 Hdlg 29 1 Message 29 2 MessageDlg 17 1 0 31 1000 "{1}" 17 2 29 3 AmiDir 0 798 13 8 3 17 3 29 4 Box 0 26 "{3}Merge.dlg" "MergeMessage" 13 8 4 6 2 15 17 4 9 14 RestoreView 29 0 Level 29 1 RestoreView 17 1 5 1 6 0 18 0 11 00000109 17 3 2 210 1 10 00000240 5 16 6 0 18 0 11 00000167 17 5 2 211 1 10 00000240 5 48 6 0 18 0 11 00000225 17 7 2 218 1 10 00000240 17 9 2 210 1 6 1 15 17 11 9 14 PackGlobals 29 0 FieldNames 29 1 FldSep 29 2 RecSep 29 3 PackGlobals 17 1 29 4 Key 17 2 29 5 TotalFields 0 1046 &0 13 8 5 17 3 0 271 "TotalFields" 1 17 4 0 271 "FieldNames" "{5}" 17 5 0 271 "LastField" 1 17 6 0 271 "EditData" "{5}" 17 7 0 271 "FieldSep" 1 17 8 0 271 "RecSep" 1 17 9 0 271 "KeyField" 1 17 10 0 271 "EditTarget" 1 17 11 0 271 "RedoNames" 1 17 12 0 271 "RefreshMain" 1 17 13 0 271 "RefreshButton" 1 17 14 0 271 "LastEditField" 1 17 15 0 271 "Speed" 1 17 16 0 271 "MainHdlg" 1 17 17 0 271 "HelpPanel" 1 17 18 0 271 "IsRecordDirty" 1 17 19 0 271 "DialogClose" 1 17 21 0 264 "DialogClose" 0 17 22 0 264 "IsRecordDirty" 0 17 23 0 264 "HelpPanel" 854 17 24 0 264 "Speed" 1 17 25 0 272 "RefreshButton" 1 1 17 26 0 272 "RedoNames" 1 0 17 27 0 272 "FieldSep" 1 "{1}" 17 28 0 272 "RecSep" 1 "{2}" 17 29 0 272 "TotalFields" 1 "{5}" 17 30 0 272 "LastField" 1 0 17 31 0 272 "KeyField" 1 1 17 32 0 272 "RefreshMain" 1 1 17 33 0 272 "LastEditField" 1 0 17 35 7 "" 32 2 101 32795 95 "KeyField" 13 0 805 &4 [X] 13 18 1 11 00001182 17 36 6 4 6 5 18 5 11 00001182 17 37 0 272 "KeyField" 1 "{4}" 29 6 t 5 1 8 6 17 41 6 5 6 6 18 2 12 00001282 10 00001343 5 1 6 6 3 0 8 6 10 00001200 17 42 6 6 22 0 0 272 "FieldNames" "{6}" [X] 10 00001249 6 3 15 17 44 9 14 FreeGlobals 29 0 FreeGlobals 0 266 "TotalFields" 0 266 "FieldNames" 17 1 0 266 "LastField" 17 2 0 266 "EditData" 17 3 0 266 "FieldSep" 17 4 0 266 "RecSep" 17 5 0 266 "DefineField" 17 6 0 266 "DefineRec" 17 7 0 266 "BoxReturn" 17 8 0 266 "KeyField" 17 9 0 266 "EditTarget" 17 10 0 266 "RedoNames" 17 11 0 266 "RefreshMain" 17 12 0 266 "RefreshButton" 17 13 0 266 "LastEditField" 17 14 0 266 "Speed" 17 15 0 266 "MainHdlg" 17 16 0 266 "HelpPanel" 17 17 0 266 "IsRecordDirty" 17 18 0 266 "DialogClose" 6 0 15 17 19 9 00085252