podb File format Copyright (c) 1994,1995 by Oracle Corporation. ŌÄ9 ~2ĶŲųB% podbj××üj‘×Öü‘j€ j‘ ‘‘ d֑j dÖjj’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’j‘’’’’’’’’€’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’‘jj‘‘‘@÷0¾* ž’’’’’’’’’’’’’’’’’’’’’Ć’‘‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’‘‘‘‘‘j@ö0¹*ą’’’’’’’’’’’’’’’’’’’’’Ć’jj’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’jjjjjjb jjjjjjj Š7  jjjjjjjj|   jjjjjjj‘  eJ ‘‘‘‘‘‘‘j J £Mƒ¹c“_ŗb“ \Æš ~APPLID~00000008:000000000000.00010000š ~APPINF~0000000C:000000000000.00010001š0000002932EA61930000000E:000000000000.000107D0frmItemDetailš00000002327E0A5E00000013:000000000000.00010003frmMainš0000001B32C10FF900000120:000000000000.00010516nopictš0000001C32C1F80500000025:000000000000.00010578 frmLoginjjš0000001D32C43A750000002C:000000000000.000105DCfrmExportFileš00000030334A44580000006E:000000000000.0001089A frmSelectColumnsš0000001F32C58A330000003C:000000000000.000106A4 frmErrorsš0000002032C58D6800000041:000000000000.000106A5 frmTablesš00000031334A447E00000045:000000000000.0001089BfrmLinkš0000002232CC296900000052:000000000000.00010708 frmCusjjtomerš0000002632CD441D00000062:000000000000.0001076CBmpcustš0000002732CD442900000064:000000000000.0001076D Bmpitemdš0000002832CD443200000067:000000000000.0001076EBmpmainš0000002A3348097D00000069:000000000000.00010834 dlgImportjjj‘ [2‘‘‘‘‘‘‘‘ ¹ ` `‘‘‘‘‘‘‘j 2`Ņ IBM1252proplistµ proptblž¦ D udmDefToolBar udmDefMenu udmDefMenuBar?LongpForm AS Object@LongALongpForm AS Objectšń@ļ' One-time menu preparation 'Add entries to the custom menu MnuOrd = NEW Menu MnuOrd.Label = "Order Entry" MnuOrd.InsertMenuItem(1, "Customers", Cmd_Cust , NULL, NULL ) MnuOrd.InsertMenuItem(2, "Enter Orders", Cmd_Main , NULL, "^E" ) MnuOjjrd.InsertMenuItem(3, "-", 0 , NULL, NULL ) MnuOrd.InsertMenuItem(4, "Item Detail", Cmd_ItemD, NULL, NULL ) MnuOrd.InsertMenuItem(5, "-", 0 , NULL, NULL ) MnuOrd.InsertMenuItem(6, "Show Order Rate", Cmd_OrdRate , NULL, NULL ) AT' Set up general menu for Order Entry application ' DIM mnuBar AS Object 'Make MnuBar object into a menu bar mnuBar = NEW MenuBar 'Assign default menus to mnuBar pForm.DefaultMenuBar(mnuBar) 'Assign the custom menu to mnuBar mnuBar.InsertMenu( 4,jj MnuOrd ) 'Assign mnuBar to the calling form pForm.SetMenuBar(mnuBar) ?¦'Define a toolbar for use by most forms ' 'Declare object variable for toolbar DIM tbrMain AS Object 'Convert the object variable into a toolbar object tbrMain = NEW ToolBar ' 'Assign default buttons to toolbar pForm.DefaultToolBar(tbrMain) ' 'Custom Toolbar entries tbrMain.TBAppendButton( 0, NULL, ToolbarStyle_Separator, 0) tbrMain.TBAppendButton( Cmd_Cust, bmpCust, ToolbarStyle_PushBtn, 0) tbrMain.TBAppendBujjtton( Cmd_Main, bmpMain, ToolbarStyle_PushBtn, 0) tbrMain.TBAppendButton( 0, NULL, ToolbarStyle_Separator, 0) tbrMain.TBAppendButton( Cmd_ItemD, bmpItemD, ToolbarStyle_PushBtn, 0) ' 'Assign tbrMain to the calling form pForm.SetToolBar(tbrMain) )!' User-defined cmd codes for Menus CONST Cmd_Main = Cmd_FirstUserCommand + 10 CONST Cmd_ItemD = Cmd_FirstUserCommand + 11 CONST Cmd_Cust = Cmd_FirstUserCommand + 12 CONST Cmd_OrdRate = Cmd_FirstUserCommand + 13 ' GLOBAL mnuOrd jj Š8  jjjjjjj‘ Š ŅIBM1252 cpprpscr_nlprtrecproptbl¦ 8fonttbl» Ä System FontArial MS Sans Serif Courier NewApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlgerianArial Rou‘‘nded MT BoldMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensedCentury SchoolbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century Hand‘‘tooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight ‚l‚r ƒSƒVƒbƒN ‚l‚r –¾’©OsakaVFONT @‚l‚r –¾’© ff4550-‚f‚l @•W€ƒSƒVƒbƒN ‚g‚f³ž²‘‘ĢAbadi MT Condensed Light‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–¾’© @‚l‚r ‚o–¾’© @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT Condensed Extra BoldAmerican Uncial ‘‘Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 BdCn BT Calisto MTB‘j Š Ņookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BTShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Bold Cel850 BoldBlacjjkletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrols$ ˜‘nkkl€Default6~DefaultĖĢĶÓ„¢jjĆ%5 3µ«šæ:®Š‹Œ‰ˆ,D*¬÷DApplication.udmDefMenuBar( Self ) Application.udmDefToolBar( Self )“ Item Detail—! ITEM_NUMBER  ORDER_ITEM#Orphan DetailsfrmMain.rptOrderItems$Orphan Detailsš œ›™˜Ÿž" On Master¼½'¾ frmItemDetailÖ×jj…¦ŖØ§”+¹“–Ņ’‘Ž•”‡†©4ITEMSMCHORDERDATÄQFetch As Needed­€v@€p@ńfŹ-;2 Automatic2Standard Documenthijk   ”2SSŹ€©€†€‡€”€•€jj ŠŅŽ€€‘€’€Ņ€–€€“€¹€¦€…€¾€'€½€¼€ž€Ÿ€˜€™€›€œ€ €š€€—„ “€ˆ€‰€Œ€‹€Š€®€æ€µ€%€„€Ó€Ķ€€Ģ€Ė€€;-f89€\@@]@QFetch As NeededHORDERDATCM ITEM_PICTURES4€\@ąljj@+frmItemPicture" On Master$Refuse if Children Present frmItemDetail#Refuse if Children Present  ITEM_NUMBER! ITEM_NUMBERform1*D,:3~Centered6NOPICTl€Default  $— Ī""~Default„UPICTUREæa 3D Control:‚ƒ*¼½'¾pctItem…jj@¹OIF ISNULL(SELF) THEN Self.Visible = False ELSE Self.Visible = True END IF҇4E[@€Y@98f;  ęŸl€Default6„GetContainer().CloseWindow()æa 3D Control:   *+OK¼½'¾btnOK…@`@ m@€X@:@98; ’%66njj€Defaulto€Anym€DefaultULJK ImmediateINonešCATALOG_DESCRIPTIONString)a 3D Control:   ,*1CATALOG_DESCRIPTIONxy*,@e@4E i@L@98Start,;„Ńæ‚ƒ¼½'¾…¹Ņ‡Éjj Š Ņø žų m€Default :   *Catalog Descriptionstatic4,@b@@f@8@StartBottomzNone;„æ¼½'¾… ’%66n€Defaulto€Anym€DefaultULJK ImmediateINonePRICEDouble)jja 3D Control:   Currency,*1PRICExy*,@^@4EX@8@98Right,;„Ńæ‚ƒ¼½'¾…¹Ņ‡Éø žų m€Default :   *Pricestatic3,@jjX@X@8@StartBottomzNone;„æ¼½'¾… ’%66n€Defaulto€Anym€DefaultULJK ImmediateINone( DESCRIPTIONString)a 3D Control:   ,*1 DESCRIPTIONxy*,@@R@4E@s@8@9jj8Start,;„Ńæ‚ƒ¼½'¾…¹Ņ‡Éø žų m€Default :   * Descriptionstatic2,@€H@X@8@StartBottomzNone;„æ¼½'¾… ’%66n€Defaulto€Anym€DefaultUj‘Õe*23456KTUe‘‘‘‘‘‘‘‘_ŅIBM1252 cpprpscr_nlprtrecproptblw¦ DudpMinutesPerOrderudpDisplayMinPerOrdCDoubleDBooleanfonttbl» Ä System FontArial MS Sans Serif Courier NewApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixe‘‘dsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlgerianArial Rounded MT BoldMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensedCentury SchoolbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers CondensedFences Helvetica Arial Supe‘‘r San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight ‚l‚r ƒSƒVƒbƒN ‚l‚r –¾’©OsakaVFONT @‚l‚r –¾’© ff4550-‚f‚l @•W€ƒSƒVƒbƒN ‚g‚f³ž²‘‘ĢAbadi MT Condensed Light‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–¾’© @‚l‚r ‚o–¾’© @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucida Sans TechnicalAardvark Pa‘‘lmSpringsArabiaBahamasAbadi MT CondensedAbadi MT Condensed Extra BoldAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCoope‘‘aŅr BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 BdCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BTShelleyVolante BTArrus BT MS Dialog‘‘MS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsõz M˜‘nkmkj‘‘ih2Standard Document2 Automatic;-ʲ' Calculates the number of minutes taken to work with each order STATIC vStartSeconds AS Long STATIC vCount AS Long DIM vElapSeconds AS Long ' vCount = vCount + 1 ' IF vStartSeconds = 0 THEN vStartSeconds = TIMER() ELSE vElapSeconds = TIMER() - vStartSeconds IF vElapSeconds < 60 THEN vElapSeconds = 60 Self.udpMinutesPerOrder = (vElapSeconds / 60) / vCount EN‘‘D IF ' ValidateRow = TRUE fń’STATIC vSeconds AS Long ' SELECT CASE cmdCode CASE Cmd_ItemD TestCommand = TestCommand_Enabled CASE Cmd_OrdRate IF udpDisplayMinPerOrd THEN TestCommand = TestCommand_Checked ELSE TestCommand = TestCommand_Enabled END IF CASE Cmd_Main IF vSeconds = 0 THEN vSeconds = TIMER() IF (TIMER() - vSeconds) >= 10 THE‘‘=ŅN vSeconds = TIMER() IF udpDisplayMinPerOrd THEN Self.GetStatusLine().SetStatusPanelMsg( 2, & "Minutes per Order " & FORMAT(udpMinutesPerOrder, "##0.00") & " at " & TIME()) ELSE Self.GetStatusLine().SetStatusPanelMsg(2, "Minutes per Order rate not displayed" ) END IF END IF ' TestCommand = TestCommand_Enabled ‘‘CASE ELSE TestCommand = Application.TestCommand(cmdCode) END SELECT Ąx@‚@­QFetch Count FirstÄHORDERDATCMORDERS4©†‡łDIM oRecSet AS Object Inherited.Query() oRecSet = frmMain.GetRecordset() lblRecordStats.Label = "Record 1 of " & STR(oRecSet.GetRowCountAdvice()) btnFirst.Enabled = False btnPrev.Enabled = False btnNext.Enabled = True btnLast.Enabled = True ”•Ž‘‘‘’Ņ–“¹+”§ØŖ¦…×ÖfrmMain¾'½¼" On MasteržŸ˜™›œ š$Refuse if Children Present#Refuse if Children Present !— Enter Orders“÷ąApplication.udmDefMenuBar( Self ) Application.udmDefToolBar( Self ) ' DIM sbrMain AS Object sbrMain‘‘ = NEW StatusLine sbrMain.SysDefaultStatusLine() sbrMain.InsertStatusPanel(2, 200, 40) Self.SetStatusLine( sbrMain ) ¬*D,ˆ‰Œ‹Š®:æšXSELECT CASE cmdCode CASE Cmd_ItemD frmItemDetail.OpenWindow() DoCommand = TRUE CASE Cmd_OrdRate frmMain.udpDisplayMinPerOrd = IIF(frmMain.udpDisplayMinPerOrd, FALSE, TRUE) DoCommand = TRUE CASE ELSE DoC‘‘CŅommand = Application.DoCommand(cmdCode) END SELECT «µ35 %ķSTATIC sSQL As String DIM oControl As Object STATIC oRecSet As Object DIM oCurRecSet As Object DIM nCountNew As Integer DIM nCountCur As Integer DIM nPointerNew As Integer DIM nPointerCur As Integer IF op = 9 THEN IF sSQL = "" THEN oControl = frmMain.FirstChild DO WHILE NOT ISNULL(oControl) IF oControl.ControlType = 2 OR (oControl.ControlType > 4 AN‘‘D & oControl.ControlType < 10) THEN IF oControl.CompareOnLock = 0 AND oControl.DataSource <> "" THEN sSQL = oControl.DataSource & "," & sSQL END IF END IF oControl = oControl.NextControl() LOOP sSQL = LEFT(sSQL, LEN(sSQL) - 1) sSQL = "SELECT " & sSQL & " FROM " & & RecordSource & " WHERE ORDER_NUMBER " & & " = " & ORDER_NUMBER.Value END IF IF NOT ISNULL(oRecSet) THEN DELETE oRecSet E‘‘ND IF oRecSet = NEW DBRECORDSET( ORDERDAT ) oRecSet.SetQuery(sSQL, False) oRecSet.Requery() oCurRecSet = frmMain.GetRecordset() nCountNew = oRecSet.GetColCount() nCountCur = frmMain.GetRecordset.GetColCount() nPointerNew = 1 DO WHILE nPointerNew <= nCountNew nPointerCur = 1 DO WHILE nPointerCur <= nCountCur IF oRecSet.GetColName(nPointerNew) = & oCurRecSet.GetColName(nPointerCur) THEN IF oRecSet.GetColVal(nPointerNew) <> & oCu‘‘rRecSet.GetColVal(nPointerCur) THEN sError = oCurRecSet.GetColName(nPointerCur ) & & " column has changed to " & & oRecSet.GetColVal(nPointerNew) END IF EXIT DO END IF nPointerCur = nPointerCur + 1 LOOP IF NOT ISNULL(sError) THEN EXIT DO ELSE nPointerNew = nPointerNew + 1 END IF LOOP IF NOT ISNULL(sError) THEN sError = "Some of your ‘jzŅdata has been changed by other users. " & & CHR(13) & CHR(10) & " The " & sError & & ". Do you want to change your data or cancel your update?" IF MSGBOX(sError, 17, "Data Changed By Others")= 1 THEN oCurRecSet.SetColVal(nPointerCur, oRecSet.GetColVal(nPointerNew)) oCurRecSet.LockRow() END IF END IF END IF ĆDIM oRecSet As Object DIM nRows As Integer DIM nRowsLeft As Integer oRecSet = Self.GetRecorjjdset() nRows = oRecSet.GetRowCountAdvice() IF oRecSet.GetRowCount() <> nRows THEN nRowsLeft = nRows - oRecSet.GetRowCount() IF nRowsLeft > 100 THEN IF MSGBOX("There are " & STR(nRowsLeft) & & " rows left. Do you want to retrieve them?", 33, & "Retrieve the rows?") = 2 THEN EXIT SUB END IF END IF oRecSet.FetchAllRows() END IF Inherited.CommitForm() ¢„ÓĶĢĖjj ~Default6l€DefaultCD LęŸl€Default6„šREDIM sImportArray(9) AS String DIM nRows AS Integer, nErrors AS Integer nRows = 0 nErrors = 1 DIM nFileData AS Integer, nFileReason AS Integer nFileData =FREEFILE OPEN "c:\errors\error.txt" FOR OUTPUT AS nFileData nFileReason = FREEFILE OPEN "c:\errors\reason.txt" FOR OUTPUT AS nFileReason ' dlgImport.OpenFileDialog() dlgImport.OpenModal(0) DIM sInsert AS String IF jjISNULL(dlgImport.Pathname.Value) THEN MSGBOX("You did not choose a file to use for import.",16, "No import file") CLOSE nFileData CLOSE nFileReason EXIT SUB ELSE frmTables.OpenModal(0) frmLink.OpenModal(0) IF NOT ISNULL(frmLink.udpRecordset) THEN DIM nFile AS Integer nFile = FREEFILE ON ERROR RESUME NEXT OPEN dlgImport.Pathname.Value FOR INPUT AS nFile IF ERR <> 0 THEN MSGBOX("Unable to open the import file.", 48, "Fij‘“Ņle Open Failure") CLOSE nFileData CLOSE nFileReason EXIT SUB ELSE DIM sLineValue AS String, sValue AS String DIM nStart AS Integer, nNext AS Integer DO UNTIL EOF(nFile) LINE INPUT # nFile, sLineValue DIM nColumn AS Integer DIM sColumns AS String, sImportValues AS String sColumns = "" sImportValues = "" ‘‘nColumn = 1 nStart = 1 DO WHILE nStart <> 0 nNext = INSTR(nStart, sLineValue, ",") IF nNext <> 0 THEN sValue = MID(sLineValue, nStart, nNext - nStart) nStart = nNext + 1 ELSE sValue = MID(sLineValue, nStart) nStart = 0 END IF frmLink.udpRecordset.SetCurRow(nColumn) ‘‘ DIM sErrorText AS String IF NOT ISNULL(frmLink.udpRecordset.GetColVal("COLUMN")) THEN sErrorText = "" SELECT CASE frmLink.udpRecordset.GetColVal("DATATYPE") CASE 8 sValue = "'" & MID(sValue, 2, LEN(sValue) - 2) & "'" CASE 3, 4, 5, 6 IF NOT ISNUMERIC(sValue) THEN ‘‘ sErrorText = "The value for the " & & frmLink.udpRecordset.GetColVal("COLUMN") & " is not numeric." EXIT DO END IF CASE 7 IF NOT ISDATE(sValue) THEN sErrorText = "The value for the " & & frmLink.udpRecordset.GetC‘‘_ŅolVal("COLUMN") & " is not a date." EXIT DO END IF END SELECT sColumns = sColumns & frmLink.udpRecordset.GetColVal("COLUMN") & & "," sImportValues = sImportValues & sValue & "," 'new one END IF nColumn = nColumn + 1 LOOP ‘‘ IF sErrorText = "" THEN sColumns = LEFT(sColumns, LEN(sColumns) - 1) sImportValues = LEFT(sImportValues, LEN(sImportValues) - 1) sInsert = "INSERT INTO " & frmTables.rbfTables.Value & " ( " & & sColumns & ") VALUES(" & sImportValues & ")" EXEC SQL AT ORDERDAT :sInsert ELSE WRITE #nFileReason, nErrors, sErrorText WRITE #nFileData, nErrors, sLineValue nErr‘‘ors = nErrors + 1 END IF IF SqlErrCode() <> 0 AND sErrorText = "" THEN WRITE #nFileReason, nErrors, SqlErrCode() & " - " & SqlErrText() WRITE # nFileData, nErrors, sLineValue nErrors = nErrors + 1 ELSE IF sErrorText = "" THEN nRows = nRows + 1 END IF LOOP EXEC SQL AT ORDERDAT COMMIT END IF ON ERROR GOTO 0 END IF END IF CLOSE nFileData CLOSE nFileReason DIM sMes‘‘sage AS String sMessage = STR(nRows) & " rows inserted into the ORDERS table." & & CHR(13) & CHR(13) & STR(nErrors - 1) & " rows not inserted due to errors." IF nErrors = 1 THEN MSGBOX(sMessage, 64, "Results of Import") ELSE sMessage = sMessage & CHR(13) & CHR(13) & & "Would you like to review the errors?" IF MSGBOX(sMessage, 67, "Results of Import") = 6 THEN frmErrors.OpenModal(0) END IF END IF æa 3D Control:‘j@Ņ  *+Import¼½'¾ btnImport…Ą|@Ąf@T@6@98; KęŸ;89;@€^@@k@p{@… btnExport¾'½¼Export Current Rows+*  :a 3D Controlæ„[ DIM nFile AS Integjjer, nCount AS Integer, nPointer AS Integer DIM sExportFile AS String DIM objRecSet AS Object DIM sListValue AS String, sValue AS String nCount = frmMain.GetRecordset().GetColCount() REDIM sArray(nCount) AS String frmExportFile.OpenModal(0) sExportFile = frmExportFile.fldExportFile.Value ON ERROR RESUME NEXT IF NOT ISNULL(sExportFile) THEN frmSelectColumns.OpenModal(0) ' You have to parse through the values in the selected pick list to create the values in sArray. objRecSet = frmSelecjjtColumns.clsSelectedColumns.lstPickList.GetRecordset() nCount = objRecSet.GetRowCount() nPointer = 1 DO WHILE nPointer <= nCount objRecSet.SetCurRow(nPointer) sArray(nPointer - 1) = objRecSet.GetColVal(1) nPointer = nPointer + 1 ' nPointer = INSTR(sListValue, CHR(13)) ' IF nPointer <> 0 THEN ' sValue = LEFT(sListValue, nPointer - 1) ' sListValue = RIGHT(sListValue, LEN(sListValue) - (nPointer + 1)) ' jj ELSE ' sValue = sListValue ' sListValue = "" ' END IF ' sArray(nCount) = sValue ' nCount = nCount + 1 LOOP REDIM PRESERVE sArray(nCount - 1) nFile = FREEFILE OPEN sExportFile FOR OUTPUT AS nFile IF ERR <> 0 THEN MSGBOX("You could not open the " & sExportFile & & " file.", 32, "Open File Failed") EXIT SUB ELSE ON ERROR GOTO 0 END IF frmMain.GetRecordj‘”Ņset().FetchAllRows() objRecSet = frmMain.GetRecordset() nCount = objRecSet.GetRowCount() nPointer = 1 DIM nArrayCount AS Integer, nArrayPointer AS Integer nArrayCount = UBOUND(sArray) + 1 DO WHILE nPointer <= nCount objRecSet.SetCurRow(nPointer) DO WHILE nArrayPointer < nArrayCount DIM sLineValue AS String, sQuote AS String IF VARTYPE(objRecSet.GetColVal(sArray( & ‘‘ nArrayPointer))) = 8 THEN sQuote = "'" ELSE sQuote = "" END IF sLineValue = sLineValue & sQuote & FORMAT( & objRecSet.GetColVal(sArray(nArrayPointer))) & sQuote & "," nArrayPointer = nArrayPointer + 1 LOOP sLineValue = LEFT(sLineValue, LEN(sLineValue) - 1) PRINT #nFile, sLineValue nPointer = nPointer + 1 sLineValue = "" ‘‘ nArrayPointer = 0 LOOP CLOSE nFile ELSE MSGBOX("Export cancelled.", 32, "No Export") END IF 6l€Default JęŸ…¾'½¼æ„0frmMain.rptOrderItems.GetRecordset().DeleteRow();895@K@št@ą@ btnDeleteDelete+*  :a 3D Control6l€Default Hžų …¾‘‘'½¼æ„;zNoneTopCenter8@[@Ąo@h@lblRecordStats*  : m€Default GęŸ…€¾€'€½€¼€æ€„zDIM oRecSet As Object DIM nRow As Integer oRecSet = frmMain.GetRecordset() oRecSet.FetchAllRows() nRow = oRecSet.GetRowCountAdvice() oRecSet.SetCurRow(nRow) lblRecordStats.Label = "Record "‘jNŅ & Str(nRow) & & " of " & Str(nRow) oRecSet.SetCurRow(oRecSet.GetRowCount()) Self.Enabled = False btnNext.Enabled = False btnPrev.Enabled = True btnFirst.Enabled = True ;89=@;@ k@q@btnLast>>+*  :a 3D Control6l€Default FęŸ…¾'½¼æ„‹DIM oRecSet Ajjs Object oRecSet = frmMain.GetRecordset() oRecSet.SetCurRow(oRecSet.GetCurRow() + 1) lblRecordStats.Label = "Record " & & Str(oRecSet.GetCurRow()) & " of " & & Str(oRecSet.GetRowCountAdvice()) btnPrev.Enabled = True btnFirst.Enabled=True IF oRecSet.GetCurRow() = oRecSet.GetRowCountAdvice() THEN Self.Enabled = False btnLast.Enabled = False END IF ;89=@;@ k@Ąn@btnNext>+* jj :a 3D Control6l€Default EęŸ…€¾€'€½€¼€æ€„qDIM oRecSet As Object oRecSet = frmMain.GetRecordset() oRecSet.SetCurRow(oRecSet.GetCurRow() - 1) lblRecordStats.Label = "Record " & & Str(oRecSet.GetCurRow()) & " of " & & Str(oRecSet.GetRowCountAdvice()) btnNext.Enabled = True btnLast.Enabled=True IF oRecSet.GetCurRow() = 1 THEN Self.Enabled = False btnFirst.Enabled = False END jjIF ;89=@;@ k@`k@btnPrev<+*  :a 3D Control6l€Default DęŸ…€¾€'€½€¼€æ€„åfrmMain.GetRecordset().SetCurRow(1) lblRecordStats.Label = "Record 1 of " & & Str(frmMain.GetRecordset().GetRowCountAdvice()) Self.Enabled = False btnPrev.Enabled = False btnNext.Enabled = True btnLast.Enabled = True j‘mŅ;89=@;@ k@h@btnFirst<<+*  :a 3D Control6l€Default C’%66øÉ‡Ņ¹…¾'½¼ƒ‚FSHIP_NAME.Visible = True Self.Visible = False SHIP_NAME.SetFocus() æŃ„;,Start8 97@‘‘r@E4€f@Ą]@y*x fldDefault1*,  :a 3D Control)Same As CustomerStringINoneK ImmediateJLUm€Defaulto€Anyn€Default B’%66øÉ‡Ņ¹…¾'½¼ƒ‚æŃ„;,Start8‘‘98@Šq@E4[@^@y*xADDRESS21*,  :a 3D Control)StringADDRESS2INoneK ImmediateJLUm€Defaulto€Anyn€Default A’%66øÉ‡Ņ¹…¾'½¼ƒ‚æŃ„;,‘‘Start899@šq@E4ĄQ@^@y*xADDRESS11*,  :a 3D Control)StringADDRESS1INoneK ImmediateJLUm€Defaulto€Anyn€Default ?’%66øÉ‡Ņ¹…¾'½¼ƒ‚æŃ„;‘j*Ņ,Start899@a@E4@ r@y*x TELEPHONE1*,  :a 3D Control)String TELEPHONEINoneK ImmediateJLUm€Defaulto€Anyn€Default .Ė--ø.DIM sAddress1 AS String, sAddress2 AS String, sCijjty AS String DIM sState AS String, sZIP AS String, sCustomerName AS String DIM sTelephone AS String sCustomerName = newval EXEC SQL AT ORDERDAT SELECT ADDRESS1, ADDRESS2, CITY, STATE, ZIP, TELEPHONE & INTO :sAddress1, :sAddress2, :sCity, :sState, :sZIP, :sTelephone FROM CUSTOMERS WHERE & CUSTOMER_NAME = :sCustomerName ADDRESS1.Value = sAddress1 ADDRESS2.Value = sAddress2 CITY.Value = sCity STATE.Value = sState ZIP.Value = sZIP TELEPHONE.Value = sTelephone Validate = TrueČjjɇҹ …¾'½¼®ƒ‚æ„;,'@= AT ORDERDAT SELECT CUSTOMER_NAME, CUSTOMER_NAME FROM CUSTOMERS898@r@E4B@^@popCustomerNamepopCustomerName3*  :a 3D Control)String CUSTOMER_NAMEUl€Default (žų m€jjDefault :   * Line Totalstatic5y@r@X@8@StartCenterzNone;„€æ€¼€½€'€¾€…€ 'žų m€Default :   *Discountstatic4pt@r@N@8@StartCenterzNone;„€æ€¼€½j‘ ЇLJK ImmediateINone ITEM_NUMBER Long Integer)a 3D Control:   ,*1 ITEM_NUMBERxy*,@8@4EX@8@98Start,;„Ńæ‚ƒ¼½'¾…¹Ņ‡Éø‘‘ žų m€Default :   * Item Numberstatic1,@X@8@StartBottomzNone;„æ¼½'¾…m€Defaultžų m€Default :   * Item Numberstatic1,@X@8@Start‘‘BottomzNone;„æ¼½'¾……X@8@StartBottomzNone;„æ¼½'¾… Item Numberstatic1,@X@8@StartBottomzNone;„æ¼½'¾…‘‘‘‘!"Ņ‘‘‘‘‘‘‘‘"#Ņ‘‘‘‘‘‘‘‘#$Ņ‘‘‘‘‘‘‘j$*jjjjjjjj%xčQ&'(+Qjjjjjjjj&x&'ŅIBM1252 cpprpscr_nlprtrecproptblM¦ Ófonttbl» Ä System FontArial MS Sans Serif Courier NewApplication FontOCRjj A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlgerianArial Rounded MT BoldMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensedCentury SchoolboojjkCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight ‚l‚r ƒSƒVƒbƒN ‚l‚r –¾’©OsakaVFONT @‚l‚r –¾’© ff4550-‚f‚l @•W€ƒSƒVƒbƒN ‚g‚f³ž²‘‘ĢAbadi MT Condensedjj Light‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–¾’© @‚l‚r ‚o–¾’© @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT Condensed Extra BoldAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 jj'x6(ŅBTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 BdCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipjjCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BTShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOjjmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsp ˜‘nkkŹ€ń€­€€€Ä€©€†€‡€”€•€Ž€€‘€’€Ņ€–€€“€¹€”€§€Ø€Ŗ€¦€…€×€Ö€€¾€'€½€¼€ž€Ÿ€˜€™€›€œ€ €š€€—€“€÷jj¬€ˆ€‰€Œ€‹€Š€®€æ€š€«€µ€%€Ć€¢€„€Ó€Ķ€€Ģ€Ė€€kjih2Standard Document2 Automatic;-fh@x@QFetch As NeededHCM4+frmLogin" On Master$Refuse if Children Present#Refuse if Children Present jj(x+Ņ!Log In To A Database*D,:35 ~Default6l€Default  ęŸl€Default6a 3D Control:  *+Cancel btnCancel@j@€a@@T@<@98;„Application.CloseApp()æ¼½'¾… ęŸjjl€Default6„–DIM sConnect As String STATIC nFailures As Integer IF NOT ISNULL(fldUser.Value) THEN sConnect = fldUser.Value IF NOT ISNULL(fldPassword.Value) THEN sConnect = sConnect & "/" & fldPassword.Value END IF END IF sConnect = MID(popDatabase.Value, 1, INSTR( popDatabase.Value, & "#") - 1) & ":" & sConnect & MID(popDatabase.Value, INSTR(popDatabase.Value, & "#") + 1) ORDERDAT.RunConnect = TRIM(sConnect) ORDERDAT.Connect() IF ORDERDAT.jjIsConnected() THEN frmLogin.CloseWindow() ELSE IF nFailures = 3 THEN MSGBOX("Your log in has failed 3 times. Please contact the " & & "system administrator.", 16, "Too Many Failures") application.CloseApp() ELSE MSGBOX("You could not log in successfully. Please try again", 32, & "Login Failure") nFailures = nFailures + 1 END IF END IF æa 3D Control:  jj*+Connect¼½'¾ btnConnect…ĄR@€a@@T@<@98; žų m€Default :   * Password:static3$@ĄW@U@7@RightCenterzNone;„æ¼½'¾… žų m€Default : j‘*2Ņ€'€¾€…€ &žų m€Default :   *Pricestatic12p@r@€H@8@CenterCenterzNone;„€æ€¼€½€'€¾€…€ %žų m€Default :   *Quantitystatic11`i@r@‘‘€N@8@StartCenterzNone;„€æ€¼€½€'€¾€…€ $žų m€Default :   * Order Itemstatic10€I@r@b@8@StartCenterzNone;„€æ€¼€½€'€¾€…€ 2]øPPl€DefaultĖĢĶÓ„%‘‘3µæ:®Š‹Œ‰ˆ,D*“—! ORDER_NUMBER  ORDER_NUMBER#Delete CascadefrmMain$Update Cascadeš œ›™˜Ÿž" On Master¼½'¾ rptOrderItems…¦+(@€s@¹“–Ņ’‘Ž•”‡†©4 ORDER_I‘‘TEMSMCOLORSCHORDERDATQFetch As NeededĄ~@R@98 fŹ-;  s ° repeat_dummy1UUUUUUÅæUUUUUUÅæ…*:;„æ¼½¾ĖĢĶÓ89,flDefault' s °…¾'½¼æ„ÓĶĢ‘j+xQŅ  *User:static2$@€M@U@7@RightCenterzNone;„æ¼½'¾… ’%66n€Defaulto€Anym€Default„UŃLJK ImmediateINoneString)æa 3D Control:‚ƒ   jj,*¼½'¾1 fldPassword…xy*ĄX@ĄW@¹Ņ‡4ÉE o@:@98Startø,; ’%66n€Defaulto€Anym€Default„UŃLJK ImmediateINoneString)æa 3D Control:‚ƒ  jj ,*¼½'¾1fldUser…xy*ĄX@M@¹Ņ‡4ÉE o@:@98Startø,; žų m€Default :   * Database:static1$@:@U@7@RightCenterzNone;„jjæ¼½'¾… Ė--l€Default„UdString)æa 3D Control:‚ƒ   ®*3¼½'¾ popDatabase…€X@9@¹oIF NOT ISNULL(Self.Value) THEN btnConnect.Enabled = True ELSE btnConnect.Enabled = False END IF ҇4ÉE@o@j‘,Ü£^-./^‘‘‘‘‘‘‘j-Ü.ŅIBM1252 cpprpscr_nlprtrecproptbl+¦ Bfonttbl» Ä System FontArial MS Sans Serif Courier NewApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybilljjAlgerianArial Rounded MT BoldMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensedCentury SchoolbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNejjwtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight ‚l‚r ƒSƒVƒbƒN ‚l‚r –¾’©OsakaVFONT @‚l‚r –¾’© ff4550-‚f‚l @•W€ƒSƒVƒbƒN ‚g‚f³ž²‘‘ĢAbadi MT Condensed Light‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–¾’© @‚l‚r ‚o–¾’© @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT Condensed Extra BoljjdAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 Bdjj.Ü/ŅCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BTShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Boljjd Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsŒ  ˜‘nkkŹ€ń€­€€€Ä€©€†€‡€”€•€Ž€€jj‘€’€Ņ€–€€“€¹€”€§€Ø€Ŗ€¦€…€×€Ö€€¾€'€½€¼€ž€Ÿ€˜€™€›€œ€ €š€€—€“€÷DApplication.udmDefMenuBar( Self ) Application.udmDefToolBar( Self )¬€ˆ€‰€Œ€‹€Š€®€æ€š€«€µ€%€Ć€¢€„€Ó€Ķ€€Ģ€Ė€€kjih2Standajjrd Document2 Automatic;-f€`@€p@QFetch As NeededHCM4+ frmExportFile" On Master$Refuse if Children Present#Refuse if Children Present !Specify An Export File*D,:35 ~Default6l€Default ęŸl€Default6„=fldExportFile.Valjj/Ü^Ņue = "" GetContainer().DismissModal(Self) æa 3D Control:  *+Cancel¼½'¾ btnCancel…@a@@U@€J@7@98; ęŸl€Default6„¹IF ISNULL(fldExportFile.Value) THEN MSGBOX("You must enter a file name.", 32,"No File Name") fldExportFile.SetFocus() ELSE GetCjjontainer().DismissModal(Self) END IF æa 3D Control:  *+OK¼½'¾btnOK…€E@@U@€J@7@98; ’%66øÉ‡Ņ¹…¾'½¼ƒ‚æŃ„;,Start89;@n@E4€F@(@yjj*x fldExportFile1*,  :a 3D Control)StringdINoneK ImmediateJLUm€Defaulto€Anyn€Default žų …¾'½¼æ„;zNoneTopStart8@ąm@(@*@static1File to hold exported data:*jj  : m€Default  ,*1 fldExportFilexy*(@€F@4En@;@98Start,;„Ńæ‚ƒ¼½'¾…¹Ņ‡Éø žų m€Default :   *File to hold exported daj‘0š1ŅIBM1252 cpprpscr_nlprtrecproptblH¦ > udmClearList_AboutudpMatchingList udmAddItem udmFindEntry udmDeleteItem udpSortedudmGetDisplayValue6Long7Long8Object9Long$sDisplay As String, sValue As String:LongsValue As String;Boolean<Boolean=StringsValue As Stringfonttbl» Ä System FontArial MS Sans Serif Courier NewApplication FontOCR A Ex‘‘tendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlgerianArial Rounded MT BoldMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensedCentury SchoolbookCe‘‘ntury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight ‚l‚r ƒSƒVƒbƒN ‚l‚r –¾’©OsakaVFONT @‚l‚r –¾’© ff4550-‚f‚l @•W€ƒSƒVƒbƒN ‚g‚f³ž²‘‘ĢAbadi MT Condensed Ligh‘‘t‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–¾’© @‚l‚r ‚o–¾’© @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT Condensed Extra BoldAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BTL‘‘1š7Ņucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 BdCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipCodeB‘‘arcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BTShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis ‘‘Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsY ˜‘nkkl€Default6~Default€Ė€Ģ€€Ķ€Ó€„€¢€Ć€%€5 3µ€«€š€æ€:®€Š€‹€Œ€‰€ˆ€,D*¬€÷±DIM nCount AS Integer, nPointer AS Integer DIM objRe‘‘cSet AS Object objRecSet = frmMain.GetRecordset() nCount = objRecSet.GetColCount() nPointer = 1 DO WHILE nPointer <= nCount IF objRecSet.GetColName(nPointer) <> "ROWID" AND & objRecSet.GetColName(nPointer) <> "" THEN & clsAvailableColumns.udmAddItem(objRecSet.GetColName(nPointer),objRecSet.GetColName(nPointer)) nPointer = nPointer + 1 LOOP “€Select Columns To Export—€! #Refuse if Children Present$Refuse if Children P‘j23ŅĖ;f89Š?«ŖŖŖŖŹ@Š? repeat_dummy2*,:lDefault s °l€DefaultĖĢĶÓ„æ:,*¼½'¾ repeat_panel…°}@8@98f; "l­ĖŅ€¹€…€jj¾€'€½€¼€æĘIF NOT ISNULL(popOrderItem.Value) THEN frmItemDetail.OpenModal(0) ELSE MSGBOX("You can only view the catalog when you have selected an item.", & 64, "No Item Selected") END IF„€;6@>@@@ curOrderItem*:  ’%66n€Defaulto€Anym€DefaultULJK ImmediateINone =(QUANTITY*PRICE) * (1-DISCOUNT)jjDouble)a 3D Control:   Currency,*1 LINE_TOTALxy* w@4EĄW@8@98Right,;„€Ń€æ€‚€ƒ€¼€½€'€¾€€…€¹€Ņ€‡€É€ø€ ’%66n€Defaulto€Anym€DefaultULJK ImmediateINojjne~=SqlLookup(ORDERDAT, "select price from items where item_number = " & IIF(ISNULL(popOrderItem.Value), 0, popOrderItem.Value) )Double)a 3D Control:   Currency,*1PRICExy*o@4EP@8@98Right,;„€Ń€æ€‚€ƒ€¼€½€'€¾€€…€¹€Ņ€‡j‘3ķ4Ҁɀø€ Ė--l€Default„U ORDER_ITEM Long Integer)æa 3D Control:‚ƒ   ®*3popup1¼½'¾ popOrderItem…B@¹Ņ‡4ÉE€c@8@98'6=AT ORDERDAT select DESCRIPTION,ITEM_NUMBER fr‘‘om ITEMSČø,; ’%66n€Defaulto€Anym€DefaultULJK ImmediateINoneQUANTITY Long Integer)a 3D Control:   ,*1QUANTITYxy*h@4EL@8@98Center,;„€Ń€æ€‚„ƒ€¼€½€'‘‘€¾€€…€¹€Ņ€‡€É€ø„ ’%66n€Defaulto€Anym€DefaultULJK ImmediateINoneDISCOUNTDouble)a 3D Control:   Percent,*1DISCOUNTxy*s@4EP@8@98Right,;„€Ń€æ€‚€‘‘ƒ€¼€½€'€¾€€…€¹€Ņ€‡€É€ø€ ’%66øÉ‡Ņ¹…¾'½¼ƒ‚æŃ„;,Start898@8@E4(@y*x ORDER_ITEM_ID1*,  :a 3D Control) Long Integer ORDER_I‘‘4ķ5ŅTEM_IDINoneKDeferredJ ITEM_NUMBERSLUm€Defaulto€Anyn€Default ’%66øÉ‡Ņ¹©IF ISNULL(Value) THEN SHIP_NAME.Visible = False fldDefault.Visible = True ELSE SHIP_NAME.Visible = True fldDefault.Visible = False END IF …¾'½¼ƒ‚æŃ„;,Start8 9‘‘8@r@E4`f@Ą]@y*x SHIP_NAME1*,  :a 3D Control)String SHIP_NAME(INoneK ImmediateJLUm€Defaulto€Anyn€Default žų …¾'½¼æ„;zNoneCenterRight8@[@‘‘€f@ @static9 Ship To Name:*  : m€Default žų …¾'½¼æ„;zNoneBottomRight8@X@@h@static8 Telephone:*  : mDefault ’%66øÉ‡Ņ¹…¾'½‘‘¼ƒ‚æŃ„;,Start898@X@E4b@@w@y*xZIP1*,  :a 3D Control)StringZIP INoneK ImmediateJLUmDefaultoAnynDefault  ’%66øÉ‡Ņ¹…¾'‘j5ę6ҽ¼ƒ‚æŃ„;,Start898@B@E4b@@t@y*xSTATE1*,  :a 3D Control)StringSTATEINoneK ImmediateJLUm€Defaulto€Anyn€Default  ’%66øÉjj‡Ņ¹…¾'½¼ƒ‚æŃ„;,Start898@h@E4b@^@y*xCITY1*,  :a 3D Control)StringCITYITable, MAX()+CounterIncByK ImmediateJLUm€Defaulto€Anyn€Default jjžų …¾'½¼æ„;zNoneCenterRight8@X@R@4@static3Address:*  : m€Default žų …¾'½¼æ„;zNoneCenterRight8@X@B@4@static2 Customer:*  jj: m€Default ’%66øÉ‡Ņ¹…¾'½¼ƒ‚æŃ„;,Center898@N@E4@^@y*x ORDER_NUMBER1*,  :a 3D Control) Long Integer ORDER_NUMBERISequenceKj‘6ŃKŅ ImmediateJ ORDER_NUMBERSLUm€Defaulto€Anyn€Default žų …¾'½¼æ„;zNoneCenterRight8@X@@4@static1Order:*  : m€Default@h@static8 Telephone:*  ‘‘: mDefault ’%66øÉ‡Ņ¹…¾'½¼ƒ‚æŃ„;,Start898@X@E4b@@w@y*xZIP1*,  :a 3D Control)StringZIP INoneK ImmediateJLU‘‘mDefaultoAnynDefault  ’%66øÉ‡Ņ¹…¾'½¼ƒ‚æŃ„;,Start898@B@E4b@@t@y*xSTATE1*,  :a 3D Control)StringSTATEINoneK ImmediateJL‘‘Um€Defaulto€Anyn€Default  ’%66øÉ‡Ņ¹…¾'½¼ƒ‚æŃ„;,Start898@h@E4b@^@y*xCITY1*,  :a 3D Control)StringCITYITable, MAX()+CounterIncB‘‘7š8Ņresent€š€ €œ€›€™€˜€Ÿ€ž€" On Master¼€½€'€¾€€frmSelectColumnsÖ€×€…€¦€Ŗ€Ø€§€”€+¹€“€€–€Ņ€’€‘€€Ž€•€”€‡€†€©€4MCHÄ€QFetch As Needed€€­€u@@q@ń€fŹ€‘‘-;2 Automatic2Standard Documenthijk žų m€Default„ æ:   *Selected columns:¼½'¾static2…€f@(@€a@:@StartTopzNone;D  MasterLibrary0000000F32D22F99 clsPickList ”2S[796;:‘‘=8 clsAvailableColumns<l˜Default6~DefaultĖĢĶÓ„%3µæ:®Š‹Œ‰ˆ,D*“Class15—! #Refuse if Children Present$Refuse if Children Presentš œ›™˜Ÿž" On Master¼½'¾clsSelectedColumns…‘‘¦+€f@B@¹“–Ņ’‘Ž•”‡†©4MCHQFetch As Neededb@h@98fŹ-; Ū>,,;,øČ'"This is a dummy value" = 089Ąg@b@EÉ4‡Ņ¹@… lstPickList¾‘‘8š9Ņ'½¼3*®  ƒ‚:a 3D Controlæ)StringU„lˆDefaultD  MasterLibrary0000000F32D22F99 clsPickList ”2S[7š9š6š;š:š=’8 clsSelectedColumns<l˜Default6~Default˜Ė˜Ģ˜Ķ˜Ó˜„˜%˜3‘‘µ˜æ˜:®˜Š˜‹˜Œ˜‰˜ˆ˜,D*“˜Class15—˜! #Refuse if Children Present$Refuse if Children Present˜š˜ ˜œ˜›˜™˜˜˜Ÿ˜ž˜" On Master¼˜½˜'˜¾˜clsAvailableColumns…˜¦˜+(@B@¹˜“˜˜–˜Ņ˜’˜‘˜˜Ž˜•˜”˜‡˜†˜©˜4MC‘‘HQFetch As Neededb@h@98fŹ˜-; Ū>,,;,øČ'"This is a dummy value" = 089Ąg@b@EÉ4‡Ņ¹@… lstPickList¾'½¼3*®  ƒ‚:a 3D Controlæ)String‘‘U„lˆDefault ęŸl€Default6„æa 3D Control:  *+OK¼½'¾btnOK…^@n@Y@7@98; žų m€Default„ æ:   *Available columns:¼½'¾static1…0@‘‘9š:Ņ$@€a@:@StartTopzNone;’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ż’’’ž’’’ž’’’ž’’’’’’’’’’’’’’’’’’’’’’’‘‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’Root Entry‘‘’’’’’’’’ ģ­Ņ‘‡K Æ’f ģābō»Ole ’’’’’’’’’’’’Contents’’’’oOlePres000’’’’’’’’’’’’ž’’’ž’’’ž’’’’’’’’’’’’’’’’’’’‘‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’‘j:šāĘ FRć ‘ĪćŖKøQDB MS Sans Serif’’’’€–’*.*K’’’’jjŅQuickPak Professional for Windows, Copyright (c) 1995 Crescent Division of Progress Software Corporation. žų m€Default„€ æ€:   *Available columns:¼€½€'€¾€static1…€0@$@€j@:@StartTopzNonjje;jjj;œqopqjjjjjjjj<¤”]=>?@]jjjjjjjj=¤ >ŅIBM1252 cpprpscr_nlprtrecproptbl¦ {jjfonttbl» ÄArial MS Sans Serif System FontArial Rounded MT Bold Courier NewApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModjjernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlgerianMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensedCentury SchoolbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers jjCondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight ‚l‚r ƒSƒVƒbƒN ‚l‚r –¾’©OsakaVFONT @‚l‚r –¾’© ff4550-‚f‚l @•W€ƒSƒVƒbƒN ‚g‚f³ž²‘‘ĢAbadi MT Condensed Light‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–¾’© @‚l‚r ‚o–¾’© @FixedSysLucida Sans UnicodeCopperplate Gothic LightNUj‘>¤ ?ŅLL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT Condensed Extra BoldAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFla‘‘reserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 BdCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BT‘‘ShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrols‘‘ ˜‘nkkl€Default6~Default5 3:,D*Review bad data! #Refuse if Children Present$Refuse if Children Present" On Master frmErrors+4ERRORMCHerrorsQFetch As Neededx@@q@f-;2 Automatic2Standard Documenthij‘‘?¤@Ņk€Ė€Ģ€€Ķ€Ó€„€¢€Ć€%€µ€«€š€æ€®€Š€‹€Œ€‰€ˆ€¬€÷DApplication.udmDefMenuBar( Self ) Application.udmDefToolBar( Self )“€—€€š€ €œ€›€™€˜€Ÿ€ž€¼€½€'€¾€€Ö€×€…€¦€Ŗ€Ø€§€”€¹€“€€–€Ņ€’€‘€€‘‘Ž€•€”€‡€†€©€Ä€€€­€ń€Ź€  ęŸl€Default6a 3D Control:  *+OKbtnOK c@ n@ĄW@?@98;„€æ€¼€½€'€¾€…€ Ž9l€Default:*hsb1€Z@ j@<= d  container‘‘@h@9@;„€æ€Š€‹€Œ€‰€ˆ€¼€½€'€¾€…€¹€Ņ€  ”2SSl€Default6~Default3:,D*form1!ERROR_ID ERROR_ID#Refuse if Children Present frmErrors$Refuse if Children Present" On Masterform1+@@@\@4reasonMCHerrorsQ‘‘Fetch As Neededu@ĄV@98f-;€Ė€Ģ€€Ķ€Ó€„€%€µ€æ€®€Š€‹€Œ€‰€ˆ€“€—€€š€ €œ€›€™€˜€Ÿ€ž€¼€½€'€¾€…€¦€¹€“€€–€Ņ€’€‘€€Ž€•€”€‡€†€©€Ź€ ’%66n€Defaulto€Anym€DefaultULJK‘‘@¤]Ņ ImmediateINoneś ERROR_REASONString)a 3D Control:  ,*1 ERROR_REASONxy*ĄR@0@4E o@Q@98Start,;„€Ń€æ€‚€ƒ€¼€½€'€¾€€…€¹€Ņ€‡€É€ø€ žų m€‘‘Default :   *Error:static3"@R@8@RightCenterzNone;„€æ€¼€½€'€¾€…€ ’%66n€Defaulto€Anym€DefaultULJK ImmediateINoneś ERROR_DATAString)a 3D Control:  ,*‘‘1 ERROR_DATAxy*[@€F@4E€o@€O@98Start,;„€Ń€æ€‚€ƒ€¼€½€'€¾€€…€¹€Ņ€‡€É€ø€ žų m€Default :   *Data:static2"@€F@X@8@RightCenterzNone;„æ‘‘¼½'¾… ’%66nDefaultoAnymDefaultULJK ImmediateINoneERROR_IDDouble)a 3D Control:  ,*1ERROR_IDxy*[@@4EX@8@98Start,;„Ńæ‚ƒ¼½'‘‘A„‡_BCD_‘‘‘‘‘‘‘jB„ CŅIBM1252 cpprpscr_nlprtrecproptbl¦ {jjfonttbl» ÄArial MS Sans Serif System FontArial Rounded MT Bold Courier NewApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModjjernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlgerianMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensedCentury SchoolbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers jjCondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight ‚l‚r ƒSƒVƒbƒN ‚l‚r –¾’©OsakaVFONT @‚l‚r –¾’© ff4550-‚f‚l @•W€ƒSƒVƒbƒN ‚g‚f³ž²‘‘ĢAbadi MT Condensed Light‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–¾’© @‚l‚r ‚o–¾’© @FixedSysLucida Sans UnicodeCopperplate Gothic LightNUj‘C„DŅLL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT Condensed Extra BoldAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFla‘‘reserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 BdCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BT‘‘ShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsh ‘‘ ˜‘nkkl€Default6~Default5 3:,D*Import Dat From:! #Refuse if Children Present$Refuse if Children Present" On Master frmTables+4MCHQFetch As Neededh@e@f-;2 Automatic2Standard Documenthij‘‘D„_Ņk€Ė€Ģ€€Ķ€Ó€„€¢€Ć€%€µ€«€š€æ€®€Š€‹€Œ€‰€ˆ€¬€÷DApplication.udmDefMenuBar( Self ) Application.udmDefToolBar( Self )“€—€€š€ €œ€›€™€˜€Ÿ€ž€¼€½€'€¾€€Ö€×€…€¦€Ŗ€Ø€§€”€¹€“€€–€Ņ€’€‘€€Ž€•‘‘€”€‡€†€©€Ä€€€­€ń€Ź€ ęŸl€Default6a 3D Control:  *+OKbtnOKC@@^@@Z@8@98;„€æ€¼€½€'€¾€…€ Dv11l€Default UString)ORDERSa 3D Control:   ‘‘*3Destination Table rbfTables.@*@4E c@ĄW@98,;ĖĢĶӄ悃¼½'¾…¹Ņ‡Éø ōö..lDefault U Long Integer)a 3D Control:  * ORDER_ITEMSra‘‘dio2.@J@4EĄ^@<@98,&%;„悃¼½'¾…¹Ņ‡Éø ōö..l€Default UString)a 3D Control:  *ORDERSradio10@8@4E@_@7@98‘‘E›P FGHIJLMNOP‘‘‘‘‘‘‘‘F›GŅIBM1252 cpprpscr_nlprtrecproptblm¦ B udmClearList_AboutudpMatchingList udmAddItem udmFindEntry udmDeleteItem udpSortedudmGetDisplayValue udpRecordset 6Long7Long8Object9Long$sDisplay As String, sValue As String:LongsValue As String;Boolean<Boolean=StringsValue As String>Objectfonttbl» Ä System FontArial MS Sans Serif Co‘‘urier NewApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlgerianArial Rounded MT BoldMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClaren‘‘don CondensedCentury SchoolbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight ‚l‚r ƒSƒVƒbƒN ‚l‚r –¾’©OsakaVFONT @‚l‚r –¾’© ff4550-‚f‚l @•W€ƒSƒVƒbƒN ‘‘‚g‚f³ž²‘‘ĢAbadi MT Condensed Light‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–¾’© @‚l‚r ‚o–¾’© @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT Condensed Extra BoldAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHan‘jG›HŅdicraft BT Orbit-B BT News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 BdCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYorjjk SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BTShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOjjmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrols°" ˜‘nkl> l€Default6~DefaultĖĢĶÓ„¢Ć%5 3µ«šæ:®Š‹Œ‰ˆ,D*¬÷ĀDIM rsColjjumns AS Object DIM nCount AS Integer, nPointer AS Integer, nPosition AS Integer DIM nFile AS Integer DIM sInput AS String nFile = FREEFILE DIM nStart AS Integer, nNext AS Integer, nField AS Integer DIM nValue AS String OPEN dlgImport.Pathname.Value FOR INPUT AS nFile LINE INPUT # nFile, sInput nStart = 1 nField = 1 nNext = 1 DO WHILE nNext <> 0 nNext = INSTR(nStart, sInput, ",") IF nNext <> 0 THEN lstImportFields.Translation = lstImportFields.Translation & & jjH›IŅ " Field " & STR(nField) & " - " & MID(sInput, nStart, & nNext - nStart) & " = " & STR(nField) & CHR(13) ELSE lstImportFields.Translation = lstImportFields.Translation & & " Field " & STR(nField) & " - " & MID(sInput, nStart, & LEN(sInput) - (nStart - 1)) & " = " & STR(nField) END IF nStart = nNext + 1 nField = nField + 1 LOOP rsColumns = NEW DBRECORDSET( ORDERDAT ) udpRecordset =jj rsColumns rsColumns.SetQuery("SELECT * FROM " & frmTables.rbfTables.Value, FALSE) rsColumns.ReQuery() nCount = rsColumns.GetColCount() nPointer = 1 DO WHILE nPointer <= nCount 'Change the way the clsListColumns is populated ' nPosition = lstColumns.ListCount ' lstColumns.AddItem(rsColumns.GetColName(nPointer), nPosition) clsColumns.udmAddItem(rsColumns.GetColName(nPointer), rsColumns.GetColName(nPointer)) nPointer = nPointer + 1 LOOP CLOSE #nFile “*Link import fjjields and destination columns—! #Refuse if Children Present$Refuse if Children Presentš œ›™˜Ÿž" On Master¼½'¾frmLinkÖ×…¦ŖØ§”+¹“–Ņ’‘Ž•”‡†©4MCHÄQFetch As Nejjeded­x@r@ńfŹ-;2 Automatic2Standard DocumenthijkD  MasterLibrary0000000F32D22F99 clsPickList ”2S[;-Ź˜f89R@Ąu@QFetch As NeededHCM4©˜†˜‡˜”˜•˜Ž˜˜‘˜’˜Ņ˜–˜˜“˜¹˜€fjjI›JŅ@8@+¦˜…˜clsLink¾˜'˜½˜¼˜" On Masterž˜Ÿ˜˜˜™˜›˜œ˜ ˜š˜˜$Refuse if Children Present#Refuse if Children Present !—˜Class15“˜*D,ˆ˜‰˜Œ˜‹˜Š˜®˜:昵˜3%˜„˜Ó˜Ķ˜˜Ģ˜Ė˜˜~Default6ljj˜Default<8 =š:š;š6š9š7š Ū>,,;,ø˜Č˜'"This is a dummy value" = 089€Q@Ąu@Eɘ4‡˜Ņ˜¹˜…˜˜ lstPickList¾˜'˜½˜¼˜3*®˜  ƒ˜‚˜:a 3D Controlæ˜)StringU„˜l˜DefaultDjj  MasterLibrary0000000F32D22F99 clsPickList ”2S[796;:=8 <l˜Default6~DefaultĖĢĶÓ„%3µæ:®Š‹Œ‰ˆ,D*“Class15—! #Refuse if Children Present$Refuse if Children Presentš œ›™˜Ÿjjž" On Master¼½'¾ clsColumns…¦+€i@8@¹“–Ņ’‘Ž•”‡†©4MCHQFetch As Neededb@[@98fŹ-; Ū>,,;,øČ'"This is a dummy value" = 089 €Z@b@EÉ4‡Ņjj J›Lҹ@… lstPickList¾'½¼3*®  ƒ‚:a 3D Controlæ)StringU„lˆDefault ęŸl€Default6„VDELETE frmLink.udpRecordset frmLink.udpRecordset = NULL frmLink.DismissModal(Self) æa 3D Control:  jj*+Cancel¼½'¾ btnCancel…ąh@p@@U@5@98; ęŸl€Default6„~DIM rsLink AS Object DIM nCount AS Integer, nPointer AS Integer rsLink = NEW RECORDSET(True) rsLink.AddColumn("COLUMN", RecDty_String) rsLink.AddColumn("DATATYPE", RecDty_Integer) nCount = lstImportFields.GetRecordset().GetRowCount() nPointer = 1 DO WHILE nPointer <= nCount jj rsLink.InsertRow() nPointer = nPointer + 1 LOOP DIM sValue AS String DIM nRow AS Integer ' Change reference to lstColumns nCount = clsLink.lstPickList.GetRecordset.GetRowCount() nPointer = 0 IF nCount > 0 THEN DO WHILE nPointer < nCount ' Change how you derive sValue clsLink.lstPickList.GetRecordset().SetCurRow(nPointer + 1) sValue = clsLink.lstPickList.GetRecordset().GetColVal(1) nRow = CINT(MID(sValue,INSTR(sValue,"->") - 3,3)) rsLink.SetCurRow( nRow ) rsLinjjk.SetColVal("COLUMN", MID(sValue, INSTR(sValue, "->") +3)) rsLink.SetColVal("DATATYPE", VARTYPE(frmLink.udpRecordset.GetColVal(nRow ))) nPointer = nPointer + 1 LOOP DELETE frmLink.udpRecordset frmLink.udpRecordset = rsLink ELSE DELETE frmLink.udpRecordset frmLink.udpRecordset = NULL END IF frmLink.DismissModal(Self) æa 3D Control:  *+OK¼½'¾btnOK…ĄX@j‘K™TŅyK ImmediateJLUm€Defaulto€Anyn€Default žų …¾'½¼æ„;zNoneCenterRight8@X@R@4@static3Address:*  : m€Default žų …¾'½¼æ„;zNone‘‘CenterRight8@X@B@4@static2 Customer:*  : m€Default ’%66øÉ‡Ņ¹…¾'½¼ƒ‚æŃ„;,Center898@N@E4@^@y*x ORDER_NUMBER1*, ‘‘ :a 3D Control) Long Integer ORDER_NUMBERISequenceK ImmediateJ ORDER_NUMBERSLUm€Defaulto€Anyn€Default žų …¾'½¼æ„;zNoneCenterRight8@X@@4@static1Order:*  : m€Defau‘‘lt@98Center,;„Ńæ‚ƒ¼½'¾…¹Ņ‡Éø žų m€Default :   *Order:static14@@X@8@RightCenterzNone;„æ¼½'¾…INoneKDeferredJ ITEM_NUMBERSL‘jL›MŅp@@U@5@98; ęŸl€Default6„ĆDIM nCounter AS Integer DIM sValue AS String 'Change to use the new instances of clsPickList IF NOT ISNULL(lstImportFields.Value) AND NOT ISNULL(clsColumns.lstPickList.Value) THEN sValue = "Import field " & STR(lstImportFields.Value) & " -> " & & clsColumns.lstPickList.Value clsLink.udmAddItem(sValue, sValue) clsCjjolumns.udmDeleteItem() ' FOR nCounter = lstColumns.ListCount - 1 TO 0 STEP -1 ' IF lstColumns.Selected(nCounter) THEN lstColumns.RemoveItem(nCounter) ' NEXT nCounter lstImportFields.Value = NULL ELSE MSGBOX("You must select an import field and a column to add a link.", 48, & "Values Not Selected") END IF æa 3D Control:  *+Add Link¼½'¾btnAdd…jj`@Ąa@@_@7@98; žų ;zNoneCenterStart5@ a@@`i@…static5¾'½¼Destination Columns*  :æ „m€Default žų mDefaultzNone Import Fields:CenterStart  jj'¾½¼æ„;:*…5@€\@@2@static4 Ū>,,l€Default„€U Long Integer)æ€a 3D Control:‚€ƒ€  ®€*3¼€½€'€¾€lstImportFields€…€(@8@¹€Ņ€‡€4É€E€c@[@9jjM›NŅ8'Č€ø€,;’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’jjĄFRć ‘ĪćŖKøQDB MS Sans Serif’’’’€–’*.*K’’’’ŅQuickPak Professional forjj Windows, Copyright (c) 1995 Crescent Division of Progress Software Corporation. ęŸl€Default6„KDIM nCounter AS Integer IF NOT ISNULL(lstImportFields.Value) AND NOT ISNULL(lstColumns.Value) THEN lstLink.AddItem ( "Import field " & STR(lstImportFields.Value) & " -> " & & MID(lstColumns.SelText, 1, LEN(lstColumns.SelText) - 2), 0 ) FOR nCounter = lstColumns.LisjjtCount - 1 TO 0 STEP -1 IF lstColumns.Selected(nCounter) THEN lstColumns.RemoveItem(nCounter) NEXT nCounter lstImportFields.Value = NULL ELSE MSGBOX("You must select an import field and a column to add a link.", 48, & "Values Not Selected") END IF æa 3D Control:  *+Add Link¼½'¾btnAdd…`@Ąa@@_@7@98j‘N›OŅ; žų ;zNoneCenterStart5@ a@@`i@…static5¾'½¼Destination Columns*  :æ „m€Default %Hvn6`ą›ąšą™ą˜ą“d8Ą¼(d°ą;,ø€Æą®ąĮ`­`¾ą»de‘‘89¬`“ą«`€[@€c@Ŗ`©ą±ą³ąĪ ²ąØ`Ķ Ģ §ąµąEŗ`ŒĄ‹ĄÉ€ŠĄĖ Ļ 4‡€Ņ€¹€6@€i@‰Ą¦d*.*ˆĄ¶ą…€€„d·ą¤ą lstColumns£`‡Ą†Ą½(d…Ą„Ą¢`”ą ąÉ Ź <Ą;Ą:ĄĒ Č øąŸ`*žąĆ‘‘`œą—+dƒ€‚€Ę –ą•`”d’`‘`)9ĄString`U¹dŹ„ĄÅ `æ(dŽ(dĀd`Ä 7 Ąąē  ŠĻą”±į>ž’ ž’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’‘‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ż’’’ž’’’ž’’’ž’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’‘‘O›PŅ’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’Root Entry’’’’’’’’ ģ­Ņ‘‡K Æ’f »jzČõ»Ole ’’’’’’’’’’’’‘‘Contents’’’’oOlePres000’’’’’’’’’’’’ž’’’ž’’’ž’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’‘‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ ^ FRć ‘ĪćŖKøQDB MS Sans Serif’’’’€–’*.*K’’’’‘‘¼kŅQuickPak Professional for Windows, Copyright (c) 1995 Crescent Division of Progress Software Corporation. ‘jP›·žų mDefaultzNone Import Fields:CenterStart  '¾½¼æ„;:*…5@€\@@2@static4 Ū>,,;,ø€Č€'89[@€c@EÉ€4‡€Ņ€¹€8@(@…€€lstImjjportFields¾€'€½€¼€3*®€  ƒ€‚€:a 3D Controlæ€) Long IntegerU„€l€DefaultjjjjjjQxC7@98';Local database = ODBC#ORDERDAT Remote database = Oracle# Čø,;,;dUl€Default€X@9@4E@o@7@98'@Local database = ODBC#ORDERDAT Remote database = Oracle#local ,;„悃®¼½'¾…¹oIF NOT ISNULL(Self.Value) THEN btnConjjnect.Enabled = True ELSE btnConnect.Enabled = False END IF ҇ÉČøjjjjj‘R·\SVWXYZ[\‘‘‘‘‘‘‘‘SVŅIBM1252 cpprpscr_nlprtrecproptbl٦ éudmCheckCreditRDouble-pCustomerNa‘‘me AS String, pNewAmount AS Doublefonttbl» ÄArial MS Sans Serif System FontArial Rounded MT Bold Courier NewApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlgerianMonotype SortsMonotype CorsivaMarigoldMT Extra Letter Gothi‘‘cKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensedCentury SchoolbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld‘‘ Tight ‚l‚r ƒSƒVƒbƒN ‚l‚r –¾’©OsakaVFONT @‚l‚r –¾’© ff4550-‚f‚l @•W€ƒSƒVƒbƒN ‚g‚f³ž²‘‘ĢAbadi MT Condensed Light‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–¾’© @‚l‚r ‚o–¾’© @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT Condensed Extra BoldAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MT‘‘TƒUŅŃU„m€Defaulto€Anyn€Default ’%66;,øStart8 98@r@EÉ4‡Ņ¹§IF ISNULL(Value) THEN SHIP_NAME.Visible = False fldDefault.Visible = True ELSE SHIP_NAME.Visible = True fldDefault.Visible = False END IF €f@^@y*x… SHIP_NAME1¾'‘‘½¼*,  ƒ‚:a 3D Controlæ)String SHIP_NAME(INoneK ImmediateJLŃU„m€Defaulto€Anyn€Default žų ;zNoneBottomRight8@[@€f@…static9¾'½¼ Ship To Name:*  ‘‘ :æ „m€Default žų ;zNoneBottomRight8@X@@h@…static8¾'½¼ Telephone:*  :æ „mDefault ’%66;,øStart898@X@EÉ4‡Ņ¹b‘‘@@w@y*x…ZIP1¾'½¼*,  ƒ‚:a 3D Controlæ)StringZIP INoneK ImmediateJLŃU„mDefaultoAnynDefault  ’%66;,øStart898@B@EÉ4‡Ņ¹‘‘UgeŅb@@t@y*x…STATE1¾'½¼*,  ƒ‚:a 3D Controlæ)StringSTATEINoneK ImmediateJLŃU„m€Defaulto€Anyn€Default  ’%66;,øStart898@h‘‘@EÉ4‡Ņ¹b@^@y*x…CITY1¾'½¼*,  ƒ‚:a 3D Controlæ)StringCITYITable, MAX()+CounterIncByK ImmediateJLŃU„m€Defaulto€Anyn€Default žų ;zNoneBottomRigh‘‘t8@X@R@(@…static3¾'½¼Address:*  :æ „m€Default žų ;zNoneBottomRight8@X@B@(@…static2¾'½¼ Customer:*  :æ „m€Default ‘‘’%66;,øCenter898@N@EÉ4‡Ņ¹@^@y*x… ORDER_NUMBER1¾'½¼*,  ƒ‚:a 3D Controlæ) Long Integer ORDER_NUMBERISequenceK ImmediateJ ORDER_NUMBERSLŃU„m€De‘‘V'WŅLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 BdCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Boo‘‘kshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BTShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT ‘‘VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrols'$ ˜‘nknR¦DIM vOpenOrders AS Double EXEC SQL AT ORDERDAT & Select NVL( SUM((O_I.QUANTITY * It.Price) * (1 - O_I.DISCOUNT)) ,0) & Into :vOpenOrders & From ITEMS It, ‘‘& ORDER_ITEMS O_I, ORDERS Ord & Where O_I.ORDER_ITEM = It.ITEM_NUMBER & And O_I.ORDER_NUMBER = Ord.ORDER_NUMBER & And Ord.CUSTOMER_NAME = :pCustomerName ' IF SqlErrClass() > 0 THEN MSGBOX "There was a problem checking available credit. " & CHR(10) & SqlErrText() EXIT FUNCTION ELSE ' Business rule - everyone gets $100 credit, no questions asked. udmCheckCredit = NVL(CREDIT_LIMIT.Value, 100) - vOpenOrders - pNewAmount END IF l€Default‘‘WXŅ6~Default5 3:,D*Customer! #Refuse if Children Present$Refuse if Children Present" On Master frmCustomer+4 CUSTOMERSMCHORDERDATQFetch As Needed~@šu@98f-;2 Automatic2Standard Documenthi‘‘jk€Ė€Ģ€€Ķ€Ó€„€¢€Ć€%€µ€«€š€æ€®€Š€‹€Œ€‰€ˆ€¬€÷FApplication.udmDefMenuBar( Self ) Application.udmDefToolBar( Self ) “€—€€š€ €œ€›€™€˜€Ÿ€ž€¼€½€'€¾€€Ö€×€…€¦€Ŗ€Ø€§€”„¹€“€€–€Ņ€’€‘€€Ž€•€”€‘‘‡€†„©€Ä€€€­€ń€ŹµIF ISNULL(CUSTOMER_NAME.Value) THEN MSGBOX "Please enter a name for this customer" CUSTOMER_NAME.SetFocus() ValidateRow = False ELSE ValidateRow = True END IF  Į°­…€¾€'€½€¼€æ€„€;š?r@`j@^@line1*:a 3D Control>Upper Left to Lower Right ęŸl€Default6‘‘aStandard Control:  *+ Check creditbtnCheckąp@Pp@€`@;@98;„“MSGBOX("Remaining credit for this customer is: " & CHR$(10) && FORMAT(frmCustomer.udmCheckCredit(CUSTOMER_NAME.Value, 0), "$#####0.00") & , cOk , "Credit check") 怼€½€'€¾€…€ Ž9ҹ…¾'½¼ˆ‰‘‘XYŅŒ‹Šæ„;898@ q@  containerd= < s@^@hsb1*:l€Default ’%66øÉ‡Ņ¹…¾'½¼ƒ‚æŃ„;,Left898@R@E4€p@^@y‘‘*x CREDIT_LIMIT1*,Currency  :a 3D Control)100Double CREDIT_LIMITINoneK ImmediateJLUm€Defaulto€Anyn€Default žų …€¾€'€½€¼€æ€„€;zNoneCenterRight898@X@€p@(@static13 Cre‘‘dit Limit:*  : m€Default ’%66ø€É€‡€Ņ€¹€…€€¾€'€½€¼€ƒ€‚€æ€Ń€„€;,Left898@[@E4€l@^@y*x TELEPHONE1*,  :a 3D Control)String TELEPHONE ‘‘INoneK ImmediateJLUm€Defaulto€Anyn€Default žų …€¾€'€½€¼€æ€„€;zNoneCenterRight898@€S@€l@>@static9Phone:*  : m€Default ’%66ø€É€‡€Ņ€¹€…€€¾€'½€¼€ƒ€‚‘‘YZŅ€æ€Ń€„€;,Left898@X@E4@e@^@y*xZIP1*,  :a 3D Control)StringZIP INoneK ImmediateJLUmDefaultoAnynDefault  žų …€¾€'½€¼€æ€„‘‘€;zNoneCenterRight8 98@X@@e@(@static7Zip:*  : mDefault  ’%66ø€É€‡€Ņ€¹€…€€¾€'€½€¼€ƒ€‚€æ€Ń€„€;,Left8 98@H@E4@e@ v@y*xSTATE1‘‘*,  :a 3D Control)StringSTATEINoneK ImmediateJLUm€Defaulto€Anyn€Default  žų …€¾€'€½€¼€æ€„€;zNoneCenterRight8 98@U@@e@Ąn@static6 State/Prov:*  :‘‘ m€Default  ’%66ø€É€‡€Ņ€¹€…€€¾€'½€¼€ƒ€‚€æ€Ń€„€;,Left8 98@h@E4Ą`@^@y*xCITY1*,  :a 3D Control)StringCITYINoneK ImmediateJLUm‘‘Z[ŅDefaultoAnynDefault  žų …€¾€'€½€¼€æ€„€;zNoneCenterRight8 98@X@Ą`@(@static5City:*  : m€Default ’%66ø€É€‡€Ņ€¹€…€€¾€'€½€¼€ƒ€‚€æ€Ń€„€;‘‘,Left898@r@E4€X@^@y*xADDRESS21*,  :a 3D Control)StringADDRESS2(INoneK ImmediateJLUm€Defaulto€Anyn€Default ’%66ø€É€‡€Ņ€¹€…€€¾€'½€¼€ƒ€‚€æ€Ń‘‘€„€;,Left898@r@E4O@^@y*xADDRESS11*,  :a 3D Control)StringADDRESS1(INoneK ImmediateJLUmDefaultoAnynDefault žų …€¾€'½€¼€æ€„€;zNoneCenter‘‘Right898@X@O@(@static3Address:*  : mDefault ’%66øÉ‡Ņ¹…¾'½¼ƒ‚æŃ„;,Left898@r@E4:@^@y*x CUSTOMER_NAME1*,‘‘[\Ņ  :a 3D Control)String CUSTOMER_NAME(INoneK ImmediateJLUm€Defaulto€Anyn€Default žų …€¾€'€½€¼€æ€„€;zNoneCenterRight898@X@:@(@static2Name:*  ‘‘: m€Defaultžų m€Default :   *Name:static2(@:@X@8@98RightCenterzNone;„€æ€¼€½€'€¾€…€CenterzNone;„€æ€¼€½€'€¾€…€^@8@4EH@8@98‘‘Left,;„€Ń€æ€‚€ƒ€¼€½€'€¾€€…€¹€Ņ€‡€É€ø€ žų m€Default :   *Cust#:static1(@8@X@8@98RightCenterzNone;„€æ€¼€½€'€¾€…€…€fault :   *‘‘Cust#:static1(@8@X@8@98RightCenterzNone;„€æ€¼€½€'€¾€…€*xoAnynDefaultmDefault³€Ä€‚€Ķ€“€€€€¹€ø€·€~€}€ŗ€Ģ€€;#TopLeft89Š?@E4ä?ō? CUSTOMER_NAME1‘j\M!,  :aStandard Control String CUSTOMER_NAME(INoneK ImmediateJLU ±0EmDefaultzNone€€¹€ø€·€ŗ€€;BottomRight89Š?š?ä?Ą?static2Name:!   jj:  oü66y*xoAnynDefaultmDefault³Ä‚Ķ“€¹ø·~}ŗĢ;#TopLeft89Š?ą?E4Š?ō? CUSTOMER_KEY1!,  :aStandard Control  Long Integer CUSTOMER_KEYjjISequenceK ImmediateJ CUST_NUMBERSLU ±0EmDefaultzNone€€¹€ø€·€ŗ€€;BottomRight89Š?š?Š?Ą?static1Cust#:!   : jjj‘]¤[¾…¹Ņ‡Éø žų mDefault :   * Error Number:static1@€Z@8@RightCenterzNone;„æ¼½'¾…‘‘‘‘‘‘‘‘^ܬta:static1*@(@ąm@8@StartTopzNone;„æ¼½'¾…‘‘‘‘‘‘‘‘_„’,&%ORDERS;„€æ€‚€ƒ€¼€½€'€¾€€…€¹€Ņ€‡€É€ø€‘‘‘‘‘‘‘‘` nAs Object ' CONST cOk = 0}€ Gregorianp€$€¤%gORDERDATšSELECT CASE cmdCode CASE Cmd_Main frmMain.OpenWindow() DoCommand = TRUE CASE Cmd_Cust frmCustomer.OpenWindow() DoCommand = TRUE CASE ELSE DoCommand = FALSE END SELECT ÕSelf.udmDefMenu() Chapter 6£Chap6…+frmLogin.OpenModal(0) frmMain.OpenWindow()ń‘‘"SELECT CASE cmdCode CASE Cmd_Cust TestCommand = TestCommand_Enabled CASE Cmd_Main TestCommand = TestCommand_Enabled CASE Cmd_OrdRate IF frmMain.udpDisplayMinPerOrd THEN TestCommand = TestCommand_Disabled_Checked ELSE TestCommand = TestCommand_Disabled END IF CASE ELSE IF cmdCode >= Cmd_FirstUserCommand THEN TestCommand = TestCommand_Di‘‘sabled END IF END SELECT d_Disabled END IF END SELECT ELSE TestCommand = TestCommand_Disabled END IF CASE ELSE IF cmdCode >= Cmd_FirstUserCommand THEN TestCommand = TestCommand_Disabled END IF END SELECT brMain.TBAppendButton( Cmd_Cust, bmpCust, ToolbarStyle_PushBtn, 0) tbrMain.TBAppendButton( Cmd_Main, bmpMain, ToolbarStyle_PushBtn, 0) tbrMain.TBAppendButton( 0, NULL, ToolbarStyle‘‘_Separator, 0) tbrMain.TBAppendButton( Cmd_ItemD, bmpItemD, ToolbarStyle_PushBtn, 0) ' 'Assign tbrMain to the calling form pForm.SetToolBar(tbrMain) ‘jbl„ccjjjjjjjjclfBMfv(šĪŲæææææææææĄĄĄ€€€’’’’’’’’’’’’wwwwwwwwwwwwwwwwwwwwwˆˆˆˆˆˆˆˆww@ˆˆˆˆˆˆ@wwˆˆ„ww@@@@@@@@wwww@@@@@@@@wwptww@@G@@wpwwwwwwwp@G@@w@@wwttwwwp@GwwwpGwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwjjjjjjjjdm„ffjjjjjjj‘e+¼faulto€Anyn€Default žų ;zNoneBottomRight8@X@@*@…static1¾'½¼Order:*  :æ „mDefault,*¼½'¾1CITY…xy*^@e@¹Ņ‡‘‘4ÉEh@8@98Startø,; žų m€Default„ æ:   *Address:¼½'¾static3…(@X@X@8@RightBottomzNone; žų m€Default„ æ:   * Customer‘‘:¼½'¾static2…(@N@X@8@RightBottomzNone; ’%66n€Defaulto€Anym€Default„UŃLJ ORDER_NUMBERSK ImmediateISequence ORDER_NUMBER Long Integer)æa 3D Control:‚ƒ   ,*¼½'¾1‘‘ ORDER_NUMBER…xy*^@8@¹Ņ‡4ÉEN@8@98Centerø,; žų mDefault„ æ:   *Order:¼½'¾static1…(@8@X@8@RightBottomzNone;‘jfmĘBMĘ6(ĪŲæææææææææĄĄĄĄÜĄšČ¤jjjjšū’¤  €€€’’’’’’’’’’’’łłłųłųųųłų’ų’’’’’ų’’ųųų’ųųųųjjjjgn„hhjjjjjjjjhnĘBMĘ6(ĪŲæææææææææĄĄĄĄÜĄšČ¤€€€€€€€’ūš€€€€@’€@@¤Čš€’  ¤@€’€@€€@śśś ņņņāāā!!!ŠŠŠ222ĀĀĀ@@@°°°RRRŸŸŸaaa‚‚‚HHH®®®QQQ„„„ZZZœœœccc“““lllŠŠŠuuujjjjšū’¤  €€€’’’’’’’’’’’’ųūūū’’ū’’’ū’’’’ū’’’ū’’’’ū’’’’’ū’’’’’’’ū’’’’’ū’’’ū’łjjjji4mjkmjjjjjjj‘j4kŅIBM1252 cpprpscr_nlprtrecproptbl?¦ Lfonttbl» Ä System FontArial MS Sans Serif Courier NewApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script‘‘ CapitalsPlaybillAlgerianArial Rounded MT BoldMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensedCentury SchoolbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed New‘‘tSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight ‚l‚r ƒSƒVƒbƒN ‚l‚r –¾’©OsakaVFONT @‚l‚r –¾’© ff4550-‚f‚l @•W€ƒSƒVƒbƒN ‚g‚f³ž²‘‘ĢAbadi MT Condensed Light‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–¾’© @‚l‚r ‚o–¾’© @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT‘‘ Condensed Extra BoldAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 ‘‘k4mŅCn BTCentury725 BdCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BTShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush‘‘738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsF ˜‘nkkl€Default6~Default€Ė€Ģ‘‘€€Ķ€Ó€„€¢€Ć€%€5 3µ€«€š€æ€:®€Š€‹€Œ€‰€ˆ€,D*¬€÷€“€Select file to import . . .—€! #Refuse if Children Present$Refuse if Children Present€š€ €œ€›€™€˜€Ÿ€ž€" On Master¼€½€'€¾€€ dlgImportÖ€×€…€¦€Ŗ€Ø€§€‘‘”€+¹€“€€–€Ņ€’€‘€€Ž€•€”€‡€†€©€4MCHÄ€QFetch As Needed€€­€x@^@ń€fŹ€-;2 Automatic2Standard Documenthijk ęŸl€Default6„GetContainer().CloseWindow()æa 3D Control:‘jm4ä  *+OK¼½'¾button1…€\@@Q@Ą\@€@@98; ’%66n€Defaulto€Anym€Default„€UŃ€LJK ImmediateINoneśString)æ€a 3D Control:‚€ƒ€  ,*jj¼€½€'€¾€1Pathname€…€xy*€\@7@¹€Ņ€‡€4É€EĄn@9@98Startø€,; žų static1:@8@€Q@8@…*:;„æ¼½¾'  StartTopFile to Import: zNonemjjDefaultjjj‘nš:01789:‘‘‘‘‘‘‘‘oœpŅIBM1252 cpprpscr_nlprtrecproptbl?¦ Lfonttbl» Ä System FontArial MS Sans Serif Courier NewApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script‘‘ CapitalsPlaybillAlgerianArial Rounded MT BoldMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensedCentury SchoolbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed New‘‘tSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight ‚l‚r ƒSƒVƒbƒN ‚l‚r –¾’©OsakaVFONT @‚l‚r –¾’© ff4550-‚f‚l @•W€ƒSƒVƒbƒN ‚g‚f³ž²‘‘ĢAbadi MT Condensed Light‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–¾’© @‚l‚r ‚o–¾’© @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT‘‘ Condensed Extra BoldAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 ‘‘pœqŅCn BTCentury725 BdCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BTShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush‘‘738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsF ˜‘nkkl€Default6~Default€Ė€Ģ‘‘€€Ķ€Ó€„€¢€Ć€%€5 3µ€«€š€æ€:®€Š€‹€Œ€‰€ˆ€,D*¬€÷€“€Select file to import . . .—€! #Refuse if Children Present$Refuse if Children Present€š€ €œ€›€™€˜€Ÿ€ž€" On Master¼€½€'€¾€€ dlgImportÖ€×€…€¦€Ŗ€Ø€§€‘‘”€+¹€“€€–€Ņ€’€‘€€Ž€•€”€‡€†€©€4MCHÄ€QFetch As Needed€€­€x@^@ń€fŹ€-;2 Automatic2Standard Documenthijk ęŸl€Default6„GetContainer().CloseWindow()æa 3D Control:‘jqœä  *+OK¼½'¾button1…€\@@Q@Ą\@€@@98; ’%66n€Defaulto€Anym€Default„€UŃ€LJK ImmediateINoneśString)æ€a 3D Control:‚€ƒ€  ,*jj¼€½€'€¾€1Pathname€…€xy*€\@7@¹€Ņ€‡€4É€EĄn@9@98Startø€,; žų static1:@8@€Q@8@…*:;„æ¼½¾'  StartTopFile to Import: zNonemjjDefaultjjj‘rsŅ‘‘‘‘‘‘‘‘stŅ‘‘‘‘‘‘‘‘tuŅ‘‘‘‘‘‘‘‘uvŅ‘‘‘‘‘‘‘‘vwŅ‘‘‘‘‘‘‘‘wxŅ‘‘‘‘‘‘‘‘xyŅ‘‘‘‘‘‘‘‘yzŅ‘‘‘‘‘‘‘‘z{Ņ‘‘‘‘‘‘‘‘{|Ņ‘‘‘‘‘‘‘‘|}Ņ‘‘‘‘‘‘‘‘}~Ņ‘‘‘‘‘‘‘‘~Ņ‘‘‘‘‘‘‘‘€Ņ‘‘‘‘‘‘‘‘€Ņ‘‘‘‘‘‘‘‘‚Ņ‘‘‘‘‘‘‘‘‚ƒŅ‘‘‘‘‘‘‘‘ƒ„Ņ‘‘‘‘‘‘‘‘„…Ņ‘‘‘‘‘‘‘‘…†Ņ‘‘‘‘‘‘‘‘†‡Ņ‘‘‘‘‘‘‘‘‡ˆŅ‘‘‘‘‘‘‘‘ˆ‰Ņ‘‘‘‘‘‘‘‘‰ŠŅ‘‘‘‘‘‘‘‘Ћґ‘‘‘‘‘‘‘‹ŒŅ‘‘‘‘‘‘‘‘ŒŅ‘‘‘‘‘‘‘‘ŽŅ‘‘‘‘‘‘‘‘ŽŅ‘‘‘‘‘‘‘‘Ņ‘‘‘‘‘‘‘‘‘Ņ‘‘‘‘‘‘‘‘‘’Ņ‘‘‘‘‘‘‘‘’“Ņ‘‘‘‘‘‘‘‘“”Ņ‘‘‘‘‘‘‘‘”•Ņ‘‘‘‘‘‘‘‘•–Ņ‘‘‘‘‘‘‘‘–—Ņ‘‘‘‘‘‘‘‘—˜Ņ‘‘‘‘‘‘‘‘˜™Ņ‘‘‘‘‘‘‘‘™šŅ‘‘‘‘‘‘‘‘š›Ņ‘‘‘‘‘‘‘‘›œŅ‘‘‘‘‘‘‘‘œŅ‘‘‘‘‘‘‘‘žŅ‘‘‘‘‘‘‘‘žŸŅ‘‘‘‘‘‘‘‘Ÿ Ņ‘‘‘‘‘‘‘‘ ”Ņ‘‘‘‘‘‘‘‘”¢Ņ‘‘‘‘‘‘‘‘¢£Ņ‘‘‘‘‘‘‘‘£¤Ņ‘‘‘‘‘‘‘‘¤„Ņ‘‘‘‘‘‘‘‘„¦Ņ‘‘‘‘‘‘‘‘¦§Ņ‘‘‘‘‘‘‘‘§ØŅ‘‘‘‘‘‘‘‘Ø©Ņ‘‘‘‘‘‘‘‘©ŖŅ‘‘‘‘‘‘‘‘Ŗ«Ņ‘‘‘‘‘‘‘‘«¬Ņ‘‘‘‘‘‘‘‘¬­Ņ‘‘‘‘‘‘‘‘­®Ņ‘‘‘‘‘‘‘‘®ÆŅ‘‘‘‘‘‘‘‘Æ°Ņ‘‘‘‘‘‘‘‘°±Ņ‘‘‘‘‘‘‘‘±²Ņ‘‘‘‘‘‘‘‘²³Ņ‘‘‘‘‘‘‘‘³“Ņ‘‘‘‘‘‘‘‘“µŅ‘‘‘‘‘‘‘‘µ¶Ņ‘‘‘‘‘‘‘‘¶·Ņ‘‘‘‘‘‘‘‘·øŅ‘‘‘‘‘‘‘‘ø¹Ņ‘‘‘‘‘‘‘‘¹ŗŅ‘‘‘‘‘‘‘‘ŗ»Ņ‘‘‘‘‘‘‘‘»¼Ņ‘‘‘‘‘‘‘‘¼½Ņ‘‘‘‘‘‘‘‘½¾Ņ‘‘‘‘‘‘‘‘¾æŅ‘‘‘‘‘‘‘‘æĄŅ‘‘‘‘‘‘‘‘ĄĮŅ‘‘‘‘‘‘‘‘ĮĀŅ‘‘‘‘‘‘‘‘ĀĆŅ‘‘‘‘‘‘‘‘ĆÄŅ‘‘‘‘‘‘‘‘ÄÅŅ‘‘‘‘‘‘‘‘ÅĘŅ‘‘‘‘‘‘‘‘ĘĒŅ‘‘‘‘‘‘‘‘ĒČŅ‘‘‘‘‘‘‘‘ČÉŅ‘‘‘‘‘‘‘‘ÉŹŅ‘‘‘‘‘‘‘‘ŹĖŅ‘‘‘‘‘‘‘‘ĖĢŅ‘‘‘‘‘‘‘‘ĢĶŅ‘‘‘‘‘‘‘‘ĶĪŅ‘‘‘‘‘‘‘‘ĪĻŅ‘‘‘‘‘‘‘‘ĻŠŅ‘‘‘‘‘‘‘‘ŠŃŅ‘‘‘‘‘‘‘‘ŃŅŅ‘‘‘‘‘‘‘‘ŅÓŅ‘‘‘‘‘‘‘‘ÓŌŅ‘‘‘‘‘‘‘‘ŌÕŅ‘‘‘‘‘‘‘‘ÕÖŅ‘‘‘‘‘‘‘‘Ö×Ņ‘‘‘‘‘‘‘‘×ŲŅ‘‘‘‘‘‘‘‘ŲŁŅ‘‘‘‘‘‘‘‘ŁŚŅ‘‘‘‘‘‘‘‘ŚŪŅ‘‘‘‘‘‘‘‘ŪÜŅ‘‘‘‘‘‘‘‘ÜŻŅ‘‘‘‘‘‘‘‘ŻŽŅ‘‘‘‘‘‘‘‘ŽßŅ‘‘‘‘‘‘‘‘ßąŅ‘‘‘‘‘‘‘‘ąįŅ‘‘‘‘‘‘‘‘įāŅ‘‘‘‘‘‘‘‘āćŅ‘‘‘‘‘‘‘‘ćäŅ‘‘‘‘‘‘‘‘äåŅ‘‘‘‘‘‘‘‘åęŅ‘‘‘‘‘‘‘‘ęēŅ‘‘‘‘‘‘‘‘ēčŅ‘‘‘‘‘‘‘‘čéŅ‘‘‘‘‘‘‘‘éźŅ‘‘‘‘‘‘‘‘źėŅ‘‘‘‘‘‘‘‘ėģŅ‘‘‘‘‘‘‘‘ģķŅ‘‘‘‘‘‘‘‘ķīŅ‘‘‘‘‘‘‘‘īļŅ‘‘‘‘‘‘‘‘ļšŅ‘‘‘‘‘‘‘‘šńŅ‘‘‘‘‘‘‘‘ńņŅ‘‘‘‘‘‘‘‘ņóŅ‘‘‘‘‘‘‘‘óōŅ‘‘‘‘‘‘‘‘ōõŅ‘‘‘‘‘‘‘‘õöŅ‘‘‘‘‘‘‘‘ö÷Ņ‘‘‘‘‘‘‘‘÷ųŅ‘‘‘‘‘‘‘‘ųłŅ‘‘‘‘‘‘‘‘łśŅ‘‘‘‘‘‘‘‘śūŅ‘‘‘‘‘‘‘‘ūüŅ‘‘‘‘‘‘‘‘üżŅ‘‘‘‘‘‘‘‘żžŅ‘‘‘‘‘‘‘‘ž’Ņ‘‘‘‘‘‘‘‘’Ņ‘‘‘‘‘‘