podb File format Copyright (c) 1994,1995 by Oracle Corporation. ÔÄ9 ~2ÍŘřB% podbjă㌠j‘ă⌠‘j€ j‘ ‘‘ d֑j dÖjj˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙j‘˙˙˙˙˙˙˙˙€˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘jj‘‘j@0¤*ü˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙Ă˙jj˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙jjjjj‘@0˘*đ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙Ă˙‘‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘‘‘‘‘Ő ‘‘‘‘‘‘‘ Ä 3  jjjjjjjj˜   jjjjjjj‘` kI u‘‘‘‘‘‘‘‘   §Mƒš \Ż[ŻWŞüđ ~APPLID~00000008:000000000000.00010000đ ~APPINF~0000000C:000000000000.00010001đ00000002327E0A5E00000013:000000000000.00010003frmMainđ0000001B32C10FF900000120:000000000000.00010516nopictđ0000002932CE7D9A00000025:000000000000.000107D0 frmLoginđ0000001D32C43A750000002C:000000000000.000105DCfrmExportFile‘‘đ0000001F32C58A330000003C:000000000000.000106A4 frmErrorsđ0000002032C58D6800000041:000000000000.000106A5 frmTablesđ0000002232CC296900000052:000000000000.00010708 frmCustomerđ0000002632CD441D00000062:000000000000.0001076CBmpcustđ0000002732CD442900000064:000000000000.0001076D Bmpitemdđ0000002832CD443200000067:000000000000.0001076EBmpmain‘‘đ0000002A32CE811E00000069:000000000000.00010834 frmCatalog‘‘‘‘ a2‘‘‘‘‘‘‘‘ U` `‘‘‘‘‘‘‘j >`Ň IBM1252proplist proptbl†Ś 8 udmDefToolBar udmDefMenu udmDefMenuBar6LongpForm AS Object7Long8LongpForm AS Objectđńń"SELECT CASE cmdCode CASE Cmd_Cust TestCommand = TestCommand_Enabled CASE Cmd_Main TestCommand = TestCommand_Enabled CASE Cmd_OrdRate IF frmMain.udpDisplayMinPerOrd THEN TestCommand = TestCommand_Disjjabled_Checked ELSE TestCommand = TestCommand_Disabled END IF CASE ELSE IF cmdCode >= Cmd_FirstUserCommand THEN TestCommand = TestCommand_Disabled END IF END SELECT …+frmLogin.OpenModal(0) frmMain.OpenWindow()Chap8Ł Chapter 8ŐSelf.udmDefMenu()đSELECT CASE cmdCode CASE Cmd_Main frmMain.OpenWindow() DoCommand = TRUE CASE Cmd_Cust jj frmCustomer.OpenWindow() DoCommand = TRUE CASE ELSE DoCommand = FALSE END SELECT gORDERDAT%¤$€p€}€ Gregorian)!' 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 As Object ' CONST cOk = 06Ś'Define a toolbarjj 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.TBAppendButton( Cmd_Main, bmpMain, ToolbarStyle_PushBtn, 0) tbrMain.TBAppendButton( 0, NULL, ToolbarStyle_Sejj Ä 4  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‘‘ Ä  Ň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 BoldBlac‘‘kletter686 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*Ź÷DApplication.udmDefMenuBar( Self ) Application.udmDefToolBar( Self )´ Item Detail—! ITEM_NUMBER  ORDER_ITEM#Orphan DetailsfrmMain.rptOrderItems$Orphan Detailsš œ›™˜Ÿž" On Masterź˝'ž frmItemDetailÖב‘…ŚŞ¨§Ą+š“–Ň’‘Ž•”‡†Š4ITEMSMCHORDERDATÄQFetch As Needed­€v@€p@ńfĘ-;2 Automatic2Standard Documenthijk   Ą2SSĘ€Š€†€‡€”€•€‘‘ Ä ŇŽ€€‘€’€Ň€–€€“€š€Ś€…€ž€'€˝€ź€ž€Ÿ€˜€™€›€œ€ €š€€—„ ´€ˆ€‰€Œ€‹€Š€Ž€ż€ľ€%€„€Ó€Í€€Ě€Ë€€;-f89€\@@]@QFetch As NeededHORDERDATCM ITEM_PICTURES4€\@ŕl‘‘@+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…‘‘@š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; ’%66n‘‘€Defaulto€Anym€DefaultULJK ImmediateINoneđCATALOG_DESCRIPTIONString)a 3D Control:   ,*1CATALOG_DESCRIPTIONxy*,@e@4E i@L@98Start,;„Ńż‚ƒź˝'ž…šŇ‡ɑ‘ Ä  Ҹ ţř m€Default :   *Catalog Descriptionstatic4,@b@@f@8@StartBottomzNone;„żź˝'ž… ’%66n€Defaulto€Anym€DefaultULJK ImmediateINonePRICEDouble)‘‘a 3D Control:   Currency,*1PRICExy*,@^@4EX@8@98Right,;„Ńż‚ƒź˝'ž…šŇ‡É¸ ţř m€Default :   *Pricestatic3,@‘‘X@X@8@StartBottomzNone;„żź˝'ž… ’%66n€Defaulto€Anym€DefaultULJK ImmediateINone( DESCRIPTIONString)a 3D Control:   ,*1 DESCRIPTIONxy*,@@R@4E@s@8@9‘‘8Start,;„Ńż‚ƒź˝'ž…šŇ‡É¸ ţř m€Default :   * Descriptionstatic2,@€H@X@8@StartBottomzNone;„żź˝'ž… ’%66n€Defaulto€Anym€DefaultU‘jŚ ƒ*23456KTUeƒjjjjjjj‘‰ŇIBM1252 cpprpscr_nlprtrecproptblQŚ J_AboutudpMinutesPerOrderudpDisplayMinPerOrd udmSetStatus udpRowCount udpContainerudmCheckRequiredFieldsudmCheckRequired udpRequired 7LongCDoubleDBooleanELongFLongGObjectHBooleanIBooleanJBooleanfonttblť Ä System FontArial MS Sans Serif Courier NewApplication Font‘‘OCR 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 Schoo‘‘lbookCentury 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 Conde‘‘nsed 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 News‘jšŇ701 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-DigitsjjZipCodeBarcodeCaslonOpnface 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 SystejjmOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrols¤” T˜‘nknkjih2Standard 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 ' jjIF vStartSeconds = 0 THEN vStartSeconds = TIMER() ELSE vElapSeconds = TIMER() - vStartSeconds IF vElapSeconds < 60 THEN vElapSeconds = 60 Self.udpMinutesPerOrder = (vElapSeconds / 60) / vCount END 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 jjXŇ ELSE TestCommand = TestCommand_Enabled END IF CASE Cmd_Main IF vSeconds = 0 THEN vSeconds = TIMER() IF (TIMER() - vSeconds) >= 10 THEN vSeconds = TIMER() IF udpDisplayMinPerOrd THEN Self.GetStatusLine().SetStatusPanelMsg( 2, & "Minutes per Order " & FORMAT(udpMinutesPerOrder, "##0.00") & " at " & TIME()) jjELSE 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 = fjjrmMain.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 jjif 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.OpejjXŇnWindow() DoCommand = TRUE CASE Cmd_OrdRate frmMain.udpDisplayMinPerOrd = IIF(frmMain.udpDisplayMinPerOrd, FALSE, TRUE) DoCommand = TRUE CASE ELSE DoCommand = 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 nPointerNewjj 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 AND & 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(jjsSQL, LEN(sSQL) - 1) sSQL = "SELECT " & sSQL & " FROM " & & RecordSource & " WHERE ORDER_NUMBER " & & " = " & ORDER_NUMBER.Value END IF IF NOT ISNULL(oRecSet) THEN DELETE oRecSet END 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 jj DO WHILE nPointerCur <= nCountCur IF oRecSet.GetColName(nPointerNew) = & oCurRecSet.GetColName(nPointerCur) THEN IF oRecSet.GetColVal(nPointerNew) <> & oCurRecSet.GetColVal(nPointerCur) THEN sError = oCurRecSet.GetColName(nPointerCur ) & & " column has changed to " & & oRecSet.GetColVal(nPointerNew) END IF EXIT DO END IF nPoj‘ŇinterCur = 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 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.Se‘‘tColVal(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.GetRecordset() 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() ˘„ÓÍĚˍ ~Default6l€DefaultCDH•DIM oCurObject As Object oCurObject = frmMain.FirstChild DO UNTIL ISNULL(oCurObject) IF oCurObject HasProperty udpRequired THEN IF NOT oCurObject.udmCheckRequired() THEN EXIT D‘‘O END IF END IF oCurObject = oCurObject.NextControl LOOP IF ISNULL(oCurObject) THEN udmCheckRequiredFields = True ELSE udmCheckRequiredFields = False END IF K S MasterLibrary0000000C32CCB0A8clsDataPushButtons Ą2SW;-Ęf89R@e@QFetch As NeededHCM =container4Š†‡”•Ž‘’Ň–“‘jŞŇš€j@g@+Ś…clsDataPushButtonsž'˝ź" On MasteržŸ˜™›œ š$Refuse if Children Present#Refuse if Children Present !—Class12´*D,ˆ‰Œ‹ŠŽ:żľ3%„ÓÍĚˍjj~Default6lDefaultFG E7 ţř ;zNoneTopCenter8@e@€B@…€lblRecordStatsž€'€˝€ź€*  :ż€ „€m€Default ćŸ;89=@;@@Ŕ]@…btnLastž'˝źjj>>+*  :a 3D Controlż„AIF frmMain.udmCheckRequiredFields() = True THEN Inherited.Click()6lDefault ćŸ;89=@;@@W@…btnNextž'˝ź>+*  :a 3D Controlż„AIF frmMain.udmCheckRequiredFields() = True THEN Inherited.Click()6jjlDefault ćŸ;89=@;@@@P@…btnPrevž'˝ź<+*  :a 3D Controlż„AIF frmMain.udmCheckRequiredFields() = True THEN Inherited.Click()6lDefault ćŸ;89=@;@@C@…btnFirstž'˝źj‘uŇ<<+*  :a 3D Controlż„AIF frmMain.udmCheckRequiredFields() = True THEN Inherited.Click()6lDefaultI R MasterLibrary0000000B32CAF771clsRequiredField Ą2SV;-ʐf898@€U@QFetch As NeededHCM =container4Š†‡”•Ž‘‘‘’Ň–“šb@0w@+Ś…clsZIPž'˝ź" On MasteržŸ˜™›œ š$Refuse if Children Present#Refuse if Children Present !—Class11´*D,ˆ‰Œ‹ŠŽ:żľ3%„ÓÍĚË~‘‘Default6lDefaultJI’7’ ’%66;,¸Start895@ŔT@Eɐ4‡Ňš@đ?y*x…fldRequiredField1ž'˝ź*,  ƒ‚:a 3D Controlż)StringZIPINoneK ImmediateJL‘‘ѐU„mDefaultoAnynDefaultI Q MasterLibrary0000000B32CAF771clsRequiredField Ą2SV;-ʐf898@e@QFetch As NeededHCM =container4Š†‡”•Ž‘’Ň–“š@@r@+Ś… clsTELEPHONEž'˝ź" On Mast‘jXŇeržŸ˜™›œ š$Refuse if Children Present#Refuse if Children Present !—Class11´*D,ˆ‰Œ‹ŠŽ:żľ3%„ÓÍĚË~Default6lDefaultJI’7’ ’%66;,¸Start8jj95@ŕd@Eɐ4‡Ňš@đ?y*x…fldRequiredField1ž'˝ź*,  ƒ‚:a 3D Controlż)String TELEPHONEINoneK ImmediateJLѐU„mDefaultoAnynDefaultD P MasterLibrjjary0000000A32CA95C0 clsDataHelp Ą2ST;-Ę˜f898@r@QFetch As NeededHCM =container4Š˜†˜‡˜”˜•˜Ž˜˜‘˜’˜Ň˜–˜˜“˜š˜@Z@Ŕ]@+Ś˜…˜ clsADDRESS2ž˜'˜˝˜ź˜" On Masterž˜Ÿ˜˜˜™˜›˜œ˜ ˜š˜˜$Refuse if Children Present#jjRefuse if Children Present !—˜Class10´˜*D,ˆ˜‰˜Œ˜‹˜Š˜Ž˜:ż˜ľ˜3%˜„˜Ó˜Í˜˜Ě˜Ë˜˜~Default6l˜Default7š ’%66;,¸˜Start895@đq@Eɘ4‡˜Ň˜š˜@đ?y*x…˜˜ fldDataHelp1j‘ťŇž˜'˜˝˜ź˜*,  ƒ˜‚˜:a 3D Controlż˜)StringADDRESS2INoneK ImmediateJLŃ˜U„˜m˜Defaulto˜Anyn˜DefaultD O MasterLibrary0000000A32CA95C0 clsDataHelp Ą2ST;-Ę˜f898@Đr@QFetch A‘‘s NeededHCM =container4Š˜†˜‡˜”˜•˜Ž˜˜‘˜’˜Ň˜–˜˜“˜š˜ŔQ@Ŕ]@+Ś˜…˜ clsADDRESS1ž˜'˜˝˜ź˜" On Masterž˜Ÿ˜˜˜™˜›˜œ˜ ˜š˜˜$Refuse if Children Present#Refuse if Children Present !—˜Class10´˜*D,ˆ˜‰˜Œ˜‹˜Š˜Ž˜‘‘:ż˜ľ˜3%˜„˜Ó˜Í˜˜Ě˜Ë˜˜~Default6l˜Default7š ’%66;,¸˜Start895@0q@Eɘ4‡˜Ň˜š˜@đ?y*x…˜˜ fldDataHelp1ž˜'˜˝˜ź˜*,  ƒ˜‚˜:a 3D Contr‘‘olż˜)StringADDRESS1INoneK ImmediateJLŃ˜U„˜m˜Defaulto˜Anyn˜DefaultL N MasterLibrary0000000732C8F845clsDeletePushbutton Ą2SU;-Ęf89B@H@QFetch As NeededHCM =Container4Š†‡”•Ž‘’Ň–“š‘‘eŇ`t@(€@+Ś…clsDeletePushbuttonž'˝ź" On MasteržŸ˜™›œ š$Refuse if Children Present#Refuse if Children Present !—Class7´*D,ˆ‰Œ‹ŠŽ:żľ3%„ÓÍĚˍ~Def‘‘ault6l˜DefaultG  rptOrderItems7 ćŸ;89B@H@… btnDeletež'˝źDelete+*  :a 3D Controlż„6lˆDefault LćŸl€Default6„ëREDIM sImportArray(9) AS String DIM nRows AS Integer, nErrors AS Integer nRows = 0 nErrors = 1 DIM nFileData AS Integ‘‘er, 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 ISNULL(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) I‘‘F 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, "File 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.GetColVal("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 nErrors = 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 sMessage 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:  *+Importź˝'ž btnImport…Ŕ|@Ŕf@T@6@98; KćŸ;89;@€^‘j Ä ‡LJK ImmediateINone ITEM_NUMBER Long Integer)a 3D Control:   ,*1 ITEM_NUMBERxy*,@8@4EX@8@98Start,;„Ńż‚ƒź˝'ž…šŇ‡É¸jj ţř m€Default :   * Item Numberstatic1,@X@8@StartBottomzNone;„żź˝'ž…m€Defaultţř m€Default :   * Item Numberstatic1,@X@8@StartjjBottomzNone;„żź˝'ž……X@8@StartBottomzNone;„żź˝'ž… Item Numberstatic1,@X@8@StartBottomzNone;„żź˝'ž…jjj‘!"Ň‘‘‘‘‘‘‘‘"#Ň‘‘‘‘‘‘‘‘#$Ň‘‘‘‘‘‘‘j$*jjjjjjjj%Đ˜Q&'(+Qjjjjjjj‘&Đ 'ŇIBM1252 cpprpscr_nlprtrecproptblKŚ : udpSession_About9Object:Longfonttblť Ä 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 LineDrawMatu‘‘ra 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 Co‘‘nden{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 Condens‘‘edAbadi 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 BT‘‘'Đ(ŇCentury725 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 B‘‘lk 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Ő ˜‘nkmĘ€ń€­€€€Ä€Š€†€‡‘‘€”€•€Ž€€‘€’€Ň€–€€“€š€Ą€§€¨€Ş€Ś€…€×€Ö€€ž€'€˝€ź€ž€Ÿ€˜€™€›€œ€ €š€€—€´€÷€Ź€ˆ€‰€Œ€‹€Š€Ž€ż€đ€Ť€ľ€%€Ă€˘€„€Ó€Í€€Ě€Ë€€:@' The frmLogin form will give your users 3 chances to log into a database. You will have ' to set t‘‘he udpSession property to the name of the session you want to connect to the database. ' You should use the OpenModal() method to open the form. After the form returns from ' the call, you should open the next form. kjih2Standard Document2 Automatic;-9 ORDERDATfh@x@QFetch As NeededHCM4+frmLogin" On Mas‘‘(Đ+Ňter$Refuse if Children Present#Refuse if Children Present !Log In To A Database*D,:35 ~Default6l€Default  ćŸl€Default6„Application.CloseApp()ża 3D Control:  *+Cancelź˝'ž btnCancel…@j@‘‘€a@@T@<@98; ćŸ;89<@@T@€a@ŔR@…€ btnConnectž€'€˝€ź€Connect+*  :a 3D Controlż€„ĽDIM sConnect As String DIM oSession As Object STATIC nFailures As Integer oSession = GetContainer().udpSession 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) IF ISNULL(GetContainer().udpSession) THEN MSGBOX("You have to specify a session in the " & & "udpSession property of this form.", 16, "No Session") Application.CloseApp() END IF oSession.RunConnect = T‘‘RIM(sConnect) oSession.Connect() IF oSession.IsConnected() THEN GetContainer().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 6l€Def‘j**2Ň@@k@p{@… btnExportž'˝źExport Current Rows+*  :a 3D Controlż„[ DIM nFile AS Integer, 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) sExportFjjile = 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 = frmSelectColumns.clsSelectedColumns.lstPickList.GetRecordset() nCount = objRecSet.GetRowCount() nPointer = 1 DO WHILE nPointer <= nCount objRecSet.SetCurRow(nPointer) sArray(nPointer - 1) = objRecSet.GetColVal(1) nPjjointer = nPointer + 1 ' nPointer = INSTR(sListValue, CHR(13)) ' IF nPointer <> 0 THEN ' sValue = LEFT(sListValue, nPointer - 1) ' sListValue = RIGHT(sListValue, LEN(sListValue) - (nPointer + 1)) ' ELSE ' sValue = sListValue ' sListValue = "" ' END IF ' sArray(nCount) = sValue ' nCount = nCount + 1 LOOP REDIM PRESERVE sArray(nCount - 1) nFile = FREEFILE OPEN sExporjjtFile 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.GetRecordset().FetchAllRows() objRecSet = frmMain.GetRecordset() nCount = objRecSet.GetRowCount() nPointer = 1 DIM nArrayCount AS Integer, nArrayPointer AS Integer nArrayCount = UBOUND(sArray) + 1 DO WHILE nPointer <= nCount j‘+ĐQŇault ţř m€Default„ ż:   * Password:ź˝'žstatic3…$@ŔW@U@7@RightCenterzNone; ţř ;zNoneCenterRight7@U@€M@$@…static2ž'˝źU‘‘ser:*  :ż „m€Default ’%66n€Defaulto€Anym€Default„UŃLJK ImmediateINoneString)ża 3D Control:‚ƒ   ,*ź˝'ž1 fldPassword…xy*ŔX@ŔW@šŇ‡‘‘4ÉE o@:@98Start¸,; ’%66n€Defaulto€Anym€Default„UŃLJK ImmediateINoneString)ża 3D Control:‚ƒ   ,*ź˝'ž1fldUser…xy*ŔX@M@š‘‘҇4ÉE o@:@98Start¸,; ţř ;zNoneCenterRight7@U@:@$@…static1ž'˝ź Database:*  :ż „m€Default Ë--;,¸€Č€';Local database = ODBC#ORDERDAT Remote database = Oracl‘‘,Ü ^-./^‘‘‘‘‘‘‘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 dajj0+ 1Ň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@[@9jj1+ 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‘23Ň 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(nArra‘‘yPointer))) & 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 C’%66;,¸Start8 97@r@Eɑ‘4‡Ňš€f@Ŕ]@y*x… fldDefault1ž'˝ź*,  ƒ‚FSHIP_NAME.Visible = True Self.Visible = False SHIP_NAME.SetFocus() :a 3D Controlż)Same As CustomerStringINoneK ImmediateJLŃU„m€Defaulto€Anyn€Default .‘‘Ë--;,¸tDIM sAddress1 AS String, sAddress2 AS String, sCity 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 clsADDRESS1.fldDataHelp.Value = sAddress1 clsADDRESS2.fldDataHelp.Value = sAddress‘j34Ň2 CITY.Value = sCity STATE.Value = sState clsZIP.fldRequiredField.Value = sZIP clsTELEPHONE.fldRequiredField.Value = sTelephone Validate = TrueČ€'@= AT ORDERDAT SELECT CUSTOMER_NAME, CUSTOMER_NAME FROM CUSTOMERS898@r@EÉ€4‡€Ň€š„ B@^@…€€popCustomerNamež€'€˝€ź€popCustomerName3*Ž€  jjƒ€‚€:a 3D Controlż€)String CUSTOMER_NAMEU„€l€Default (ţř ;zNoneCenterStart8@X@r@y@…€static5ž€'€˝€ź€ Line Total*  :ż€ „€m€Default 'ţř ;zNoneCenterStartjj8@N@r@pt@…€static4ž€'€˝€ź€Discount*  :ż€ „€m€Default &ţř ;zNoneCenterCenter8@€H@r@p@…€static12ž€'€˝€ź€Price*  :ż€ „€m€Default %ţř ;jjzNoneCenterStart8@€N@r@`i@…€static11ž€'€˝€ź€Quantity*  :ż€ „€m€Default $ţř ;zNoneCenterStart8@b@r@€I@…€static10ž€'€˝€ź€ Order Item*  :ż€ jj45Ň„€m€Default 2]¸PP;-Ęf8 9R@Ŕ~@QFetch As NeededHORDERDATCMCOLORS ORDER_ITEMS4Š†‡”•Ž‘’Ň–“š€s@(@+Ś… rptOrderItemsž'˝ź" On MasteržŸ˜™›œ jjš$Update CascadefrmMain#Delete Cascade  ORDER_NUMBER! ORDER_NUMBER—´*D,ˆ‰Œ‹ŠŽ:żľ3%„ÓÍĚˍl€Default  s ° repeat_dummy1UUUUUUĹżUUUUUUĹż…*:;„żź˝žËĚÍÓjj89,flDefault' s °;f89Đ?ŤŞŞŞŞĘ@Đ?… repeat_dummy2ž'˝ź*,:ż„ÓÍĚËlDefault s °;f898@°}@… repeat_panelž'˝ź*,jj:ż„ÓÍĚËl€Default "l­Ë;6@>@Ň€š€@@…€ curOrderItemž€'€˝€ź€*:żĆ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„€  ’%66;,¸j‘5ű6Ň€Right898@ŔW@EÉ€4‡€Ň€š€ w@y*x…€€ LINE_TOTAL1ž€'€˝€ź€*,Currency  ƒ€‚€:a 3D Controlż€)Double =(QUANTITY*PRICE) * (1-DISCOUNT)INoneK ImmediateJLŃ€U„‘‘€m€Defaulto€Anyn€Default ’%66;,¸€Right898@P@EÉ€4‡€Ň€š€o@y*x…€€PRICE1ž€'€˝€ź€*,Currency  ƒ€‚€:a 3D Controlż€)Double~=SqlLookup(ORDERDAT, "select price from items where item_numb‘‘er = " & IIF(ISNULL(popOrderItem.Value), 0, popOrderItem.Value) )INoneK ImmediateJLŃ€U„€m€Defaulto€Anyn€Default Ë--;,¸Č'6=AT ORDERDAT select DESCRIPTION,ITEM_NUMBER from ITEMS898@€c@EÉ4‡ŇšB@…ŒIF keycode = 17 THEN frmCatalog.popItems.Value = Value frmCatalog.Op‘‘enModal(0) Value = frmCatalog.popItems.Value END IF  popOrderItemž'˝źpopup13*Ž  ƒ‚:a 3D Controlż) Long Integer ORDER_ITEMU„l€Default ’%66;,¸„Center898@L@EÉ€4‡€Ň€š€h@y*x…€‘j6ćKŇ€QUANTITY1ž€'€˝€ź€*,  ƒ€‚ŰDIM nOrderItem AS Integer, nOrderNumber AS Integer, nOrderItemID AS Integer DIM nQuantity AS Integer, nColorNumber AS Integer DIM nCount AS Integer, nPointer AS Integer DIM nRow AS Integer REDIM sColor(9) AS String, nColorID(9) AS Integer nRow = rptOrderItems.GetRecordset().GetCurRow() nOrderItem = rptOrderItems.GetRecordset().GetjjColVal("ORDER_ITEM") nOrderNumber = rptOrderItems.GetRecordset().GetColVal("ORDER_NUMBER") nOrderItemID = rptOrderItems.GetRecordset().GetColVal("ORDER_ITEM_ID") IF NOT ISNULL(nOrderItem) THEN frmPickColors.clsColorsAvailable.udmClearList() frmPickColors.clsColorsSelected.udmClearList() EXEC SQL AT ORDERDAT SELECT DESCRIPTION, COLORS.COLOR_ID INTO :sColor, :nColorID FROM & ITEM_COLORS, COLORS WHERE & ITEM_COLORS.COLOR_ID = COLORS.COLOR_ID AND ITEM_NUMBER = :nOrdjjerItem nCount = sqlrowcount() nPointer = 0 DO WHILE nPointer < nCount nColorNumber = nColorID(nPointer) EXEC SQL AT ORDERDAT SELECT QUANTITY INTO :nQuantity FROM ORDER_ITEM_COLORS WHERE & ORDER_NUMBER = :nOrderNumber AND ORDER_ITEM_ID = :nOrderItemID AND & COLOR_ID = :nColorNumber IF nQuantity > 0 THEN sColor(nPointer) = sColor(nPointer) & " - " & CSTR(nQuantity) frmPickColors.clsColorsSelecjjted.udmAddItem(sColor(nPointer), CSTR(nColorID(nPointer))) frmPickColors.fldTotal.Value = frmPickColors.fldTotal.Value + nQuantity ELSE frmPickColors.clsColorsAvailable.udmAddItem(sColor(nPointer), CSTR(nColorID(nPointer))) END IF nPointer = nPointer + 1 nQuantity = 0 LOOP rptOrderItems.SetFocus() frmPickColors.OpenModal(0) rptOrderItems.GetRecordset().SetCurRow(nRow) QUANTITY.Value = frmPickColors.flj‘7+ 8Ň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‘j8+ 9Ň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 & & jj9+ :Ň " 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Š˜†˜‡˜”˜•˜Ž˜˜‘˜’˜Ň˜–˜˜“˜š˜€fjj:+ ;Ň@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;+ 0Ňš@… 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@jj<¤ü]=>?@]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* LFGHIJL‘‘‘‘‘‘‘‘F* GŇ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‘‘G* HŇ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‘‘H* IŇ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ž‘‘I* JŇ'˝ź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@‘‘ J* LŇ$@€a@:@StartTopzNone;˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ý˙˙˙ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙Root Entry‘‘˙˙˙˙˙˙˙˙ ě­ґ‡K Ż’f ěâbôťOle ˙˙˙˙˙˙˙˙˙˙˙˙Contents˙˙˙˙oOlePres000˙˙˙˙˙˙˙˙˙˙˙˙ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘jK°TŇdTotal.Value ELSE MSGBOX( "You must have an Order Item ID before you can select colors", & 16, "Cannot Pick Colors") END IF :a 3D Controlż€) Long IntegerQUANTITYINoneK ImmediateJLŃ€U„€m€Defaulto€Anyn€Default ’%66;,¸€Right898@P@EÉ€4‡€jjŇ€š€s@y*x…€€DISCOUNT1ž€'€˝€ź€*,Percent  ƒ€‚€:a 3D Controlż€)DoubleDISCOUNTINoneK ImmediateJLŃ€U„€m€Defaulto€Anyn€Default ’%66;,¸Start898@8@EjjÉ4‡Ňš(@y*x… ORDER_ITEM_ID1ž'˝ź*,  ƒ‚:a 3D Controlż) Long Integer ORDER_ITEM_IDINoneKDeferredJ ITEM_NUMBERSLŃU„m€Defaulto€Anyn€Default ’%66;,¸Startjj8 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 SHIPjjL* âĆ 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‘M+ P 789:;01NOP‘‘‘‘‘‘‘‘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€DefaultjjjjjjQĐDe# 897@@o@EÉ€4‡€Ň€šoIF NOT ISNULL(Self.Value) THEN btnConnect.Enabled = True ELSE btnConnect.Enabled = False END IF 9@€X@…€€ popDatabasež€'€˝€ź€3*Ž€  ƒ€‚€:a 3D Controlż€)StringdU„€l€Defaultjj€€X@9@šoIF NOT ISNULL(Self.Value) THEN btnConnect.Enabled = True ELSE btnConnect.Enabled = False END IF Ň€‡€4É€E@o@7@98';Local database = ODBC#ORDERDAT Remote database = Oracle# Č€¸€,; Č€¸€,;jjjjj‘R+\SVWXYZ[\‘‘‘‘‘‘‘‘SVŇIBM1252 cpprpscr_nlprtrecproptbl™Ś ÓudmCheckCreditDouble-pCustomerName AS String, pNewAmount AS Doublefonttblť‘‘ Ä System FontArial MS Sans Serif Courier NewArial Rounded MT BoldApplication 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 GothicKino MTImpactGaramondFootlight MT L‘‘ight 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 –ž’ŠOsakaVFO‘‘NT @‚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 BTSquareSlab7‘jTšUŇ_NAME(INoneK ImmediateJLŃU„m€Defaulto€Anyn€Default ţř ;zNoneCenterRight8@[@€f@ @…static9ž'˝ź Ship To Name:*  :ż „m€Default ţř ;zNoneCenjjterRight8@X@@`h@…€static8ž€'€˝€ź€ Telephone:*  :ż€ „€m€Default  ’%66;,¸Start898@B@EÉ4‡Ňšb@@t@y*x…STATE1ž'˝ź*,jj  ƒ‚:a 3D Controlż)StringSTATEINoneK ImmediateJLŃU„m€Defaulto€Anyn€Default  ’%66;,¸Start898@h@EÉ4‡Ňšb@^@y*x…CITY1ž'˝ź*,jj  ƒ‚:a 3D Controlż)StringCITYITable, MAX()+CounterIncByK ImmediateJLŃU„m€Defaulto€Anyn€Default ţř ;zNoneCenterRight8@X@R@4@…static3ž'˝źAddress:*  :jjU|eŇż „m€Default ţř ;zNoneCenterRight8@X@B@4@…static2ž'˝ź Customer:*  :ż „m€Default ’%66;,¸Center898@N@EÉ4‡Ňšjj@^@y*x… ORDER_NUMBER1ž'˝ź*,  ƒ‚:a 3D Controlż) Long Integer ORDER_NUMBERISequenceK ImmediateJ ORDER_NUMBERSLŃU„m€Defaulto€Anyn€Default ţř ;zNoneCenterRight8@jjX@@4@…€static1ž€'€˝€ź€Order:*  :ż€ „€m€DefaultX@8@RightCenterzNone;_NAME.Visible = True fldDefault.Visible = False END IF …ž'˝źƒ‚żŃ„;,Start8 98@r@E4`f@jjŔ]@y*x SHIP_NAME1*,  :a 3D Control)String SHIP_NAME(INoneK ImmediateJLUm€Defaulto€Anyn€Default ţř …ž'˝źż„;zNoneCenterRight8@[@€f@ @static9 Ship To Name:*jjV*WŇ11 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 2Bookshelf Symbol 1altosansi8514oemSI TajjbSI 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 Cjjode 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrols'$ ˜‘nknl€Default6~DefaultËĚÍÓ„˘Ă%5 3ľŤđż:ŽŠ‹Œ‰ˆ,Djj*Ź÷FApplication.udmDefMenuBar( Self ) Application.udmDefToolBar( Self ) ´Customer—! #Refuse if Children Present$Refuse if Children Presentš œ›™˜Ÿž" On Masterź˝'ž frmCustomerÖ×…ŚŞ¨§Ą+š“–Ň’‘Ž•jjWXŇ”‡†Š4 CUSTOMERSMCHORDERDATÄQFetch As Needed­~@đu@98ńfŚ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_jjNUMBER & 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 ĘľIF ISNULL(CUSTOMER_NAME.Value) THEN MSGBOX "Please enter a name for this customer" CUjjSTOMER_NAME.SetFocus() ValidateRow = False ELSE ValidateRow = True END IF-;2 Automatic2Standard Documenthijk  Á°­>Upper Left to Lower Righta 3D Control:*line1^@`j@r@đ?;„€ż€ź€˝€'€ž€…€ ćŸ…€ž€'€˝€ź€ż€„´MSGBOX("Remaining jjcredit for this customer is: " & CHR$(10) && FORMAT(frmCustomer.udmCheckCredit(CUSTOMER_NAME.Value, 0), "$#####0.00") & , cOk , "Credit check") ;89;@€`@Pp@ŕp@btnCheck Check credit+*  :aStandard Control6l€Default ލ9l€Default:*hsb1^@ s@<= djjXYŇ  container q@8@98;„żŠ‹Œ‰ˆź˝'ž…šŇ ’%66n€Defaulto€Anym€DefaultULJK ImmediateINone CREDIT_LIMITDouble)100a 3D Control:   Currency,*1 CREDjjIT_LIMITxy*^@€p@4ER@8@98Left,;„Ńż‚ƒź˝'ž…šŇ‡É¸ ţř m€Default :   * Credit Limit:static13(@€p@X@8@98RightCenterzNone;„€jjż€ź€˝€'€ž€…€ ’%66n€Defaulto€Anym€DefaultULJK ImmediateINone  TELEPHONEString)a 3D Control:   ,*1 TELEPHONExy*^@€l@4E[@8@98Left,;„€Ń€ż€‚€ƒ€ź€˝€'jj€ž€€…€š€Ň€‡€É€¸€ ţř m€Default :   *Phone:static9>@€l@€S@8@98RightCenterzNone;„€ż€ź€˝€'€ž€…€ ’%66nDefaultoAnymDefaultULJK ImmediateINone ZIPSjjYZŇtring)a 3D Control:   ,*1ZIPxy*^@@e@4EX@8@98Left,;„€Ń€ż€‚€ƒ€ź€˝€'ž€€…€š€Ň€‡€É€¸€  ţř mDefault :   *Zip:jjstatic7(@@e@X@8@98 RightCenterzNone;„€ż€ź€˝€'ž€…€  ’%66n€Defaulto€Anym€DefaultULJK ImmediateINoneSTATEString)a 3D Control:   ,*1STATExy* v@@e@4jjEH@8@98 Left,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€  ţř m€Default :   * State/Prov:static6Ŕn@@e@U@8@98 RightCenterzNone;„€ż€ź€˝€'€ž€…€  jj’%66nDefaultoAnymDefaultULJK ImmediateINoneCITYString)a 3D Control:   ,*1CITYxy*^@Ŕ`@4Eh@8@98 Left,;„€Ń€ż€‚€ƒ€ź€˝€'ž€€…€š€Ň€‡€É€¸€ jjZ[Ň ţř m€Default :   *City:static5(@Ŕ`@X@8@98 RightCenterzNone;„€ż€ź€˝€'€ž€…€ ’%66n€Defaulto€Anym€DefaultULJK ImmediateINone(ADDRESS2String)a 3D Cjjontrol:   ,*1ADDRESS2xy*^@€X@4Er@8@98Left,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€ ’%66nDefaultoAnymDefaultULJK ImmediateINone(ADDRESS1String)jja 3D Control:   ,*1ADDRESS1xy*^@O@4Er@8@98Left,;„€Ń€ż€‚€ƒ€ź€˝€'ž€€…€š€Ň€‡€É€¸€ ţř mDefault :   *Address:static3(@jjO@X@8@98RightCenterzNone;„€ż€ź€˝€'ž€…€ ’%66n€Defaulto€Anym€DefaultULJK ImmediateINone( CUSTOMER_NAMEString)a 3D Control:   ,*1 CUSTOMER_NAMExy*^@:@4Ejj[\Ňr@8@98Left,;„Ńż‚ƒź˝'ž…šŇ‡É¸ ţř m€Default :   *Name:static2(@:@X@8@98RightCenterzNone;„€ż€ź€˝€'€ž€…€jj: m€Defaultţř m€Default :   *Name:static2(@:@X@8@98RightCenterzNone;„€ż€ź€˝€'€ž€…€CenterzNone;„€ż€ź€˝€'€ž€…€^@8@4EH@8@98jjLeft,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€ ţř m€Default :   *Cust#:static1(@8@X@8@98RightCenterzNone;„€ż€ź€˝€'€ž€…€…€fault :   *jjCust#:static1(@8@X@8@98RightCenterzNone;„€ż€ź€˝€'€ž€…€*xoAnynDefaultmDefaultł€Ä€‚€Í€´€€€€š€¸€ˇ€~€}€ş€Ě€€;#TopLeft89Đ?@E4ä?ô? CUSTOMER_NAME1jj\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;„€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€‘‘‘‘‘‘‘‘`nparator, 0) tbrMain.TBAppendButton( Cmd_ItemD, bmpItemD, ToolbarStyle_PushBtn, 0) ' 'Assign tbrMain to the calling form pForm.SetToolBar(tbrMain) 8T' 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, MnuOrd ) 'Assign mnuBar to the calling form ‘‘pForm.SetMenuBar(mnuBar) 7ď' 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" ) MnuOrd.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 ) END IF END SELECT cmdCode >= Cmd_FirstUserCommand THEN TestCommand = TestCommand_Disabled END IF END SELECT arator, 0) tbrMain.TBAppendButton( Cmd_ItemD, bmpItemD, ToolbarStyle_PushBtn, 0) ' 'Assign tbrMain to the calling form pForm.SetToolBar(tbrMain) 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=ƒŇ  : m€Default ţř …€ž€'€˝€ź€ż€„€;zNoneCenterRight8@X@@`h@static8 Telephone:*  : m€Default  ’%66¸É‡Ňš…ž'˝źƒ‚ż‘‘Ń„;,Start898@B@E4b@@t@y*xSTATE1*,  :a 3D Control)StringSTATEINoneK ImmediateJLUm€Defaulto€Anyn€Default  ’%66¸É‡Ňš…ž'˝źƒ‚‘‘żŃ„;,Start898@h@E4b@^@y*xCITY1*,  :a 3D Control)StringCITYITable, MAX()+CounterIncByK ImmediateJLUm€Defaulto€Anyn€Default ţř ;zNoneCenterRight‘‘8@X@R@4@…static3ž'˝źAddress:*  :ż „m€Default ţř …ž'˝źż„;zNoneCenterRight8@X@B@4@static2 Customer:*  : m€Default ’%66‘jfmĆBMĆ6(ÎŘżżżżżżżżżŔŔŔŔÜŔđȤjjjjđű˙¤  €€€˙˙˙˙˙˙˙˙˙˙˙˙ůůůřůřřřůř˙ř˙˙˙˙˙ř˙˙řřř˙řřřřjjjjgn,hhjjjjjjjjhnĆBMĆ6(ÎŘżżżżżżżżżŔŔŔŔÜŔđȤ€€€€€€€˙űđ€€€€@˙€@@¤Čđ€˙  ¤@€˙€@€€@úúú ňňňâââ!!!ĐĐĐ222ÂÂÂ@@@°°°RRRŸŸŸaaa‚‚‚HHHŽŽŽQQQĽĽĽZZZœœœccc“““lllŠŠŠuuujjjjđű˙¤  €€€˙˙˙˙˙˙˙˙˙˙˙˙řűűű˙˙ű˙˙˙ű˙˙˙˙ű˙˙˙ű˙˙˙˙ű˙˙˙˙˙ű˙˙˙˙˙˙˙ű˙˙˙˙˙ű˙˙˙ű˙ůjjj‘i4‰pjkmnop‘‘‘‘‘‘‘‘j4kŇIBM1252 cpprpscr_nlprtrecproptblbŚ Ó_AboutRLongfonttblť Ä System FontArial MS Sans Serif Courier New‘‘Arial Rounded MT BoldApplication 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 GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon Condens‘‘edCentury 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 BTOzHandicraft BT ‘‘k4 mŇ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 NewYork SI Table‘‘s 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 S‘‘erif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsŁ ˜‘nkkl€Default6~Default5 3:,D* Item Catalog! #Orphan Details$Orphan Details" On Master frmCatalog+4MC‘‘HQFetch As Needed@w@€s@f-;2 Automatic2Standard Documenthijk€Ë€Ě€€Í€Ó€„€˘€Ă€%€ľ€Ť€đ€ż€Ž€Š€‹€Œ€‰€ˆ€Ź€÷€´€—€€š€ €œ€›€™€˜€Ÿ€ž€ź€˝€'€ž€€Ö€×€…€Ś€Ş€¨€§€Ą€š‘‘m4nŇ€“€€–€Ň€’€‘€€Ž€•€”€‡€†€Š€Ä€€€­€ń€Ę€ ćŸ;89=@[@0q@^@…€btnOKž€'€˝€ź€OK+*  :a 3D Controlż€„€6l€DefaultC  MasterLibrary0000000832C8FC53 clsCa‘‘talog Ą2STlDefault6~Default3:,D*Class8! #Orphan Details$Orphan Details" On Master clsCatalog+.@B@4ITEMSMCHORDERDATQFetch As NeededŔu@€l@98f-;R’ËĚÍÓ„%ľżŽŠ‹Œ‰‘‘ˆ´—š œ›™˜Ÿžź˝'ž…Śš“–Ň’‘Ž•”‡†ŠĘ   Ą2SSlDefault6NOPICT~Centered3:,D*form1! ITEM_NUMBER  ITEM_NUMBER#Refuse if Children Present frmItemDetail$Refuse if Children Present" ‘‘On MasterfrmItemPicture+ l@€\@4 ITEM_PICTURESMCHQFetch As Needed@]@€\@98f-;ËĚÍÓ„%ľżŽŠ‹Œ‰ˆ´—š œ›™˜Ÿžź˝'ž…Śš“–Ň’‘Ž•”‘‘n4oҐ‡†ŠĘ  $— Î""~DefaultUPICTUREa 3D Control:*pctItem@4E[@€Y@98f;„ż‚ƒź˝'ž…šŇ‡ ’%66n€Defaulto€Anym€Default„UŃLJK‘‘ ImmediateINoneđCATALOG_DESCRIPTIONString)ża 3D Control:‚ƒ   ,*ź˝'ž1CATALOG_DESCRIPTION…xy* @e@šŇ‡4ÉE i@L@98Start¸,; ţř ;zNoneBottomStart‘‘8@@f@b@ @…static4ž'˝źCatalog Description*  :ż „m€Default ’%66n€Defaulto€Anym€Default„UŃLJK ImmediateINonePRICEDouble)ża 3D Control:‚ƒ   Currency,‘‘*ź˝'ž1PRICE…xy* @^@šŇ‡4ÉEX@8@98Right¸,; ţř m€Default„ ż:   *Priceź˝'žstatic3… @X@X@8@StartBottomzNone;‘‘o4pŇ ’%66n€Defaulto€Anym€Default„UŃLJK ImmediateINone( DESCRIPTIONString)ża 3D Control:‚ƒ   ,*ź˝'ž1 DESCRIPTION…xy* @@R@šŇ‡4ÉE@s‘‘@8@98Start¸,; ţř m€Default„ ż:   * Descriptionź˝'žstatic2… @€H@X@8@StartBottomzNone; ’%66;,¸Start898@X@EÉ4‡Ňš8@‘‘ @y*x… ITEM_NUMBER1ž'˝ź*,  ƒ‚:a 3D Controlż) Long Integer ITEM_NUMBERINoneK ImmediateJLŃU„m€Defaulto€Anyn€Default ţř ;zNoneBottomStart8@X@ @…‘‘static1ž'˝ź Item Number*  :ż „m€Default ţř ;zNoneTopEnd5@€L@.@.@…€static1ž€'€˝€ź€Item:*  :ż€ „€m€Default Ë--l€DefaultU Long Inte‘jp4*ger)a 3D Control:  *3popItemspopItemsR@,@4E@h@4@98'9=AT ORDERDAT SELECT DESCRIPTION, ITEM_NUMBER FROM ITEMS ,;„€ż€‚€ƒ€Ž€ź€˝€'€ž€€…€šXDIM sWhere As string sWhere = "ITEM_NUMBER = " & Value clsCatalog.QueryWhere(sWhere) Ň€‡€Éjj€Č€¸€ON, ITEM_NUMBER FROM ITEMS ȸ,;jjjjjq˜srs‘‘‘‘‘‘‘‘r˜sŇIBM1252 cpprpscr_nlprtrecproptblŚ 8fonttblH System FontArial MS Sans Serif Courier NewApplication Fontcontrolsş  ˜‘nkkl€Default6~DefaultËĚÍÓ„˘Ă%5 3ľŤđż:ŽŠ‹Œ‰ˆ,D*Ź÷´‘‘List Box and Popup List—! #Refuse if Children Present$Refuse if Children Presentš œ›™˜Ÿž" On Masterź˝'žfrmListÖ×…ŚŞ¨§Ą+š“–Ň’‘Ž•”‡†Š4MCHÄQFetch As Neede‘‘d­x@€o@ńfĘ-;2 Automatic2Standard Documenthijk ćŸbutton1 `@@k@ŔW@6@…*:;„żź˝ž'  89OK+6a 3D ControllDefault ţř m€Default„ ‘‘ż:   *Standard Popup Listź˝'žstatic2…`h@(@ c@:@CenterCenterzNone; Ë--popup1Ŕh@F@Ŕa@7@…*:;„żź˝ž'89‚ƒ   ‡4š‘js˜EŇU)¸,É Long Integer'ŽČpopup1a 3D Control3lDefault ţř m€Default„ ż:   *Standard List Boxź˝'žstatic1…B@(@€`@:@CenterCenterzNone; Ű>,,ljj€Default„U Long Integer)ża 3D Control:‚ƒ   Ž*3ź˝'žlist1…€C@F@šŇ‡4ÉE `@`b@98'5=AT ORDERDAT SELECT CUSTOMER_NAME, ZIP FROM CUSTOMERSȸ,;jjjjj‘tüą{vwxyz{‘‘‘‘‘‘‘‘@uQ ł9‘ěD˜óđ0000002C32D04B3D00000074:000000000000.000108FCfrmPickColorsđ0000002D32D38BF10000007C:000000000000.00010960 frmColorQuantityđ0000002E32EA626E0000000E:000000000000.000109C4frmItemDetailđ0000002F334A46CF00000084:000000000000.00010A28 dlgImportđ00000031334A472700000045:000000000000.00010A2A frmSelectColumnsđ00‘‘000032334A472F0000004D:000000000000.00010A2BfrmLink‘‘‘‘‘‘vü-wŇIBM1252 cpprpscr_nlprtrecproptblPŚ B 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 Font‘‘OCR 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 School‘‘bookCentury 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 Conden‘‘sed 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 News7‘‘wüAxŇ01 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-Digits‘‘ZipCodeBarcodeCaslonOpnface 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 System‘‘Omnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsŰ ˜‘nkkl€Default6~DefaultËĚÍÓ„˘Ă%5 3ľŤđż:ŽŠ‹Œ‰ˆ,D*Ź÷´Pick Your Colors—! ‘‘#Refuse if Children Present$Refuse if Children Presentš œ›™˜Ÿž" On Masterź˝'ž frmPickColorsÖ×…ŚŞ¨§Ą+š“–Ň’‘Ž•”‡†Š4MCHÄQFetch As Needed­u‘jxü$yŇ@€s@ńfĘ-;2 Automatic2Standard Documenthijk  ’%66n€Defaulto€Anym€Default„UŃLJK ImmediateINone Long Integer)0ża 3D Control:‚ƒ  ,*ź˝'žjj1fldTotal…xy*Ŕi@m@šŇ‡4ÉE€E@8@98Center¸,;  ţř m€Default„ ż:   *Total for this item:ź˝'žstatic3…€J@@m@€b@3@RightTopzNone;  jjćŸl€Default6„€ż€a 3D Control:  *+Cancelź€˝€'€ž€ btnCancel…€Ŕe@Pq@@S@8@98; ćŸl€Default6„&DIM lstRecSet AS Object DIM nOrderNumber AS Integer, nOrderItemID AS Integer, nQuantity AS Integer DIM nCount AS Integer, nPointer AS Integer DIM nColorID AS Integer DIM sValue AS Stringjj lstRecSet = clsColorsSelected.lstPickList.GetRecordset() nOrderNumber = frmMain.ORDER_NUMBER.Value nOrderItemID = frmMain.rptOrderItems.GetRecordset().GetColVal("ORDER_ITEM_ID") nCount = lstRecSet.GetRowCount() nPointer = 1 EXEC SQL AT ORDERDAT DELETE FROM ORDER_ITEM_COLORS WHERE & ORDER_ID = :nOrderNumber AND ORDER_ITEM_ID = :udpOrderItemID DO WHILE nPointer <= nCount lstRecSet.SetCurRow(nPointer) sValue = lstRecSet.GetColVal(1) sValue = RIGHT(sValue, LEN(sValue) - INSTR(jjyüzŇsValue, "-") - 1) nQuantity = CINT(sValue) nColorID = CINT(lstRecSet.GetColVal(2)) EXEC SQL AT ORDERDAT INSERT INTO ORDER_ITEM_COLORS ( & ORDER_NUMBER, ORDER_ITEM_ID, COLOR_ID, QUANTITY) & VALUES(:nOrderNumber, :nOrderItemID, :nColorID, :nQuantity) nPointer = nPointer + 1 LOOP frmPickColors.DismissModal(Self) ża 3D Control:  *+OKź˝'jjžbtnOK…ŔR@Pq@@S@8@98; ţř m€Default„€ ż€:  *Colors Selectedź€˝€'€ž€static2…€€f@@ŕa@3@CenterCenterzNone; ţř m€Default„€ ż€:  *jjColors Availableź€˝€'€ž€static1…€.@@ a@1@CenterCenterzNone;D  MasterLibrary0000000F32D22F99 clsPickList Ą2S[;-Ęf89h@b@QFetch As NeededHCM4Š†‡”•Ž‘’Ň–“š9@jj€f@+Ś…clsColorsSelectedž'˝ź" On MasteržŸ˜™›œ š$Refuse if Children Present#Refuse if Children Present !—Class15´*D,ˆ‰Œ‹ŠŽ:żľ3%„ÓÍĚgfrmColorQuantity.udpCallingList = Self frmColorQuantity.OpenModal(0) Inherited.ChildDjjzü{ŇblClick(child) ˍ~Default6lDefault<8 clsColorsAvailable=:;697 Ű>,,lDefault„UString)ża 3D Control:‚ƒ  Ž*3ź˝'ž lstPickList…@šŇ‡4ÉjjEb@Ŕg@98'"This is a dummy value" = 0Ȑ¸,;D  MasterLibrary0000000F32D22F99 clsPickList Ą2S[;-Ęf89h@b@QFetch As NeededHCM4Š†‡”•Ž‘’Ň–“š9@(@+Ś…clsColorsAvailabležjj'˝ź" On MasteržŸ˜™›œ š$Refuse if Children Present#Refuse if Children Present !—Class15´*D,ˆ‰Œ‹ŠŽ:żľ3%„ÓÍĚefrmColorQuantity.udpCallingList = Self frmColorQuantity.OpenModal(0) Inherited.ChildDblClick(child)ˍ~Default6jjlDefault<8 clsColorsSelected=:;697 Ű>,,lDefault„UString)ża 3D Control:‚ƒ  Ž*3ź˝'ž lstPickList…@šŇ‡4ɐEb@Ŕg@98'"This is a dummy value" = 0Ȑ¸jj{üĎ,;MCHQFetch As Neededb@h@98fĘ-; Ű>,,;,¸Č'"This is a dummy value" = 089Ŕg@b@Eɐ4‡Ňš@… lstPickListž'˝ź3*Ž  ƒjj‚:a 3D Controlż)StringU„lDefaultŞK¸QDBArial˙˙˙˙€–˙*.*K˙˙˙˙jjŇQuickPak Professional for Windows, Copyright (c) 1995 Crescent Division of Progress Software Corporation.jjj‘|` }‚}~€‚‘‘‘‘‘‘‘j}` ~ŇIBM1252 cpprpscr_nlprtrecproptblJŚ BudpCallingListBObjectfonttblť Ä 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 LineDrawMaturjja 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 Conjjden{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 CondensejjdAbadi 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 BTj‘~` ŇCentury725 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 Bl‘‘k 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Ą ˜‘nklkjih2‘‘Standard Document2 Automatic;-ĘfńX@n@­QFetch As NeededÄHCM4Š†‡”•Ž‘’Ň–“š+Ą§¨ŞKDIM sValue AS String DIM nQuantity AS Integer, nIndex AS Integer DIM objPickList AS Object IF udpCallingList = frmPickColors.clsColorsAvailable THEN ‘‘ objPickList = frmPickColors.clsColorsAvailable.lstPickList ELSE objPickList = frmPickColors.clsColorsSelected.lstPickList END IF nIndex = udpCallingList.udmFindEntry(objPickList.Value) objPickList.GetRecordset().SetCurRow(nIndex) sValue = objPickList.GetRecordset().GetColVal(1) IF udpCallingList = frmPickColors.clsColorsSelected THEN nQuantity= CINT(MID(sValue, INSTR(sValue, "-") + 2, & LEN(sValue) - INSTR(sValue, "-") + 1)) sValue = LEFT(sValue,INSTR(sValue, "-") - 2) ‘j`  €Ň END IF lblColor.Label = sValue spnQuantity.Value = nQuantity frmPickColors.fldTotal.Value = frmPickColors.fldTotal.Value - nQuantity Inherited.OpenModal(sys_exclusive) Ś…×ÖfrmColorQuantityž'˝ź" On MasteržŸ˜™›œ š$Refuse if Children Present#Refuse if Children Present !—Select A Quantity´jj÷Ź*D,ˆ‰Œ‹ŠŽ:żđŤľ35 %â„ÓÍĚˍ~Default6l€DefaultB  ’%66;,¸Start898@8@EÉ4‡Ňš(@h@y*x… spnQuantity1ž'˝jjź*,  ƒ‚:a 3D Controlż) Long IntegerINoneK ImmediateJLŃU„m€Defaulto€Anyn€Default ćŸl€Default6„`frmPickColors.clsColorsAvailable.lstPickList.Value = NULL frmColorQuantity.DismissModal(Self) ża 3D Control:  *jj+Cancelź˝'ž btnCancel…`@K@€O@=@98; ćŸl€Default6„•DIM nRow AS Integer DIM sValue As String DIM objPickList AS Object IF GetContainer().udpCallingList = frmPickColors.clsColorsAvailable THEN objPickList = frmPickColors.clsColorsAvailable.lstPickList ELSE objPickList = frmPickColors.clsColorsSelected.lstPickList END IF sValue = GetConj‘€` Ňtainer().udpCallingList.udmGetDisplayValue & (objPickList.Value) IF GetContainer().udpCallingList = frmPickColors.clsColorsSelected THEN sValue = LEFT(sValue, INSTR(sValue, "-") - 2) END IF IF spnQuantity.Value > 0 THEN sValue = sValue & " - " & STR(spnQuantity.Value) objPickList.GetRecordset().SetColVal(1, sValue) objPickList.UpdateList() IF GetContainer().udpCallingList = frmPickColors.clsColorsSelected THEN objPic‘‘kList.Value = NULL END IF ELSE IF GetContainer().udpCallingList = frmPickColors.clsColorsAvailable THEN objPickList.Value = NULL ELSE objPickList.GetRecordset().SetColVal(1, sValue) objPickList.UpdateList() END IF END IF frmPickColors.fldTotal.Value = frmPickColors.fldTotal.Value + spnQuantity.Value frmColorQuantity.DismissModal(Self) ża 3D Control:  *+OKź˝'‘‘žbtnOK…€@@€K@€O@=@98; ţř ;zNoneTopStart8@€J@&@Ŕ`@…lblColorž'˝ź*  :ż „m€Default ţř ;zNoneTopStart8@@`@"@@…‘‘static1ž'˝źHow many items in*  :ż „m€Defaultstatic1…@"@@`@8@StartTopzNone;(d`,¸ĚdCSSpin89O(dr@Pd q@?@B@Id EÉ4‡Ňš@h@…‘j` ‚Ň spnQuantityČ(dJdE@D@C@QdĂ`*ÜŕFŕÝ`Î`ŚŕĄ+dƒ‚Kd) Long IntegerUs@t@Ld,G`ÍdH`M(dŰ ă ĐĎॹá>ţ˙ ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙jj˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ý˙˙˙ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙jj˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙Root Entry˙˙˙˙˙˙˙˙lňꆕ“ Ż#Lŕ.ۙuýťOle ˙˙˙˙˙˙˙˙˙˙jj˙˙Contents˙˙˙˙sOlePres000˙˙˙˙˙˙˙˙˙˙˙˙ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙j‘‚` C˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙š4M€˙˙˙R㠑ÎăŞK¸QDB MS Sans SerifCSSpind ,ŔŔŔ˙˙˙€‘‘€€€€˙˙˙˙˙ŇQuickPak Professional for Windows, Copyright (c) 1995 Crescent Division of Pr‘‘ogress Software Corporation. ţř m€Default„ ż:  *ź˝'žlblColor…Ŕ`@&@€J@8@StartTopzNone; ţř m€Default„ ż:   *How many items inź˝'žstatic1…‘‘@"@@`@8@StartTopzNone;‘‘ƒ 4¸É‡Ňš…ž'˝źƒ‚żŃ„;,Center898@N@E4@^@y*x ORDER_NUMBER1*,  :a 3D Control) Long Integer ORDER_NUMBERISequenceK ImmediateJ ORDER_NUMBERS‘‘LUm€Defaulto€Anyn€Default ţř …€ž€'€˝€ź€ż€„€;zNoneCenterRight8@X@@4@static1Order:*  : m€Default‘‘‘‘‘j„( ‡…†‡jjjjjjj‘…( †Ň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 ‘‘†( ‡Ň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:‘j‡( ä  *+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ˆ) ’ ‰Š‹ŒŽ‘’‘‘‘‘‘‘‘‘‰) ŠŇIBM1252 cpprpscr_nlprtrecproptblkŚ A udmClearList_AboutudpMatchingList udmAddItem udmFindEntry udmDeleteItem udpSortedudmGetDisplayValue udpRecordset 9Long:Long;Object<Long$sDisplay As String, sValue As String=LongsValue As String>Boolean?Boolean@StringsValue As StringAObjectfonttblť Ä System FontArial MS Sans Serif Cour‘‘ier 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 MTClarendo‘‘n 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 BTOzHandi‘‘Š) ‹Ňcraft 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 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 MonospaceOmn‘‘is Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsŚ" ˜‘nklkjih2Standard Document2 Automatic;-Ęfńr@x@­QFetch As NeededÄHCM4Š†‡”•‘‘Ž‘’Ň–“š+Ą§¨ŞŚ…×ÖfrmLinkž'˝ź" On MasteržŸ˜™›œ š$Refuse if Children Present#Refuse if Children Present !—*Link import fields and destination columns´÷ÂDIM rsColumns 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 & & " 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 = 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 Ź*D,ˆ‰Œ‹ŠŽ‘‘:żđŤľ35 %â„ÓÍĚˍ~Default6l€DefaultA D  MasterLibrary0000000F32D22F99 clsPickList Ą2S[:š<š9š>š=š@š; ?l˜Default6~Default˜Ë˜Ě˜˜Í˜Ó˜„˜%˜3ľ˜ż˜:Ž˜Š˜‹˜Œ˜‰˜ˆ˜,‘‘Œ) ŇD*´˜Class15—˜! #Refuse if Children Present$Refuse if Children Present˜š˜ ˜œ˜›˜™˜˜˜Ÿ˜ž˜" On Masterź˜˝˜'˜ž˜clsLink…˜Ś˜+8@€f@š˜“˜˜–˜Ň˜’˜‘˜˜Ž˜•˜”˜‡˜†˜Š˜4MCHQFetch As Needed‘‘Ŕu@R@98fĘ˜-; Ű>,,l˜Default„˜UString)ż˜a 3D Control:‚˜ƒ˜  Ž˜*3ź˜˝˜'˜ž˜ lstPickList˜…˜š˜Ň˜‡˜4ɘEŔu@€Q@98'"This is a dummy value" = 0Č˜¸˜,;D ‘‘  MasterLibrary0000000F32D22F99 clsPickList Ą2S[;-Ęf89[@b@QFetch As NeededHCM4Š†‡”•Ž‘’Ň–“š8@€i@+Ś… clsColumnsž'˝ź" On MasteržŸ˜™›œ š$Refuse if Children Presen‘‘t#Refuse if Children Present !—Class15´*D,ˆ‰Œ‹ŠŽ:żľ3%„ÓÍĚˍ~Default6l˜Default?; @=>9<: Ű>,,lˆDefault„UString)ża 3D Control:‚ƒ  ‘‘) ŽŇŽ*3ź˝'ž lstPickList…@šŇ‡4ÉEb@ €Z@98'"This is a dummy value" = 0ȸ,; ćŸ;895@@U@p@ŕh@… btnCancelž'˝źCancel+*  ‘‘:a 3D Controlż„QDELETE frmLink.udpRecordset frmLink.udpRecordset = NULL frmLink.CloseWindow() 6l€Default ćŸl€Default6„yDIM 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 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 ) rsLink.SetCo‘‘lVal("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.CloseWindow() ża 3D Control:  *+OKź˝'žbtnOK…ŔX@p‘‘Ž) Ň@@U@5@98; ćŸ;897@@_@Ŕa@`@…btnAddž'˝źAdd Link+*  :a 3D Controlż„Ă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.lst‘‘PickList.Value) THEN sValue = "Import field " & STR(lstImportFields.Value) & " -> " & & clsColumns.lstPickList.Value clsLink.udmAddItem(sValue, sValue) clsColumns.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 6l€Default ţř m€Default„ ż:  *Destination Columnsź˝'žstatic5…`i@@ a@5@StartCenterzNone; ţř static42@@€\@5@…*:;„żź˝ž'‘‘  StartCenterImport Fields: zNonemDefault Ű>,,;,¸€Č€'89[@€c@EÉ€4‡€Ň€š€8@(@…€€lstImportFieldsž€'€˝€ź€3*Ž€  ƒ€‚€:a 3D Controlż€) Long Integer‘‘) ŇU„€l€Default˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘ŔFR㠑ÎăŞK¸QDB MS Sans Serif˙˙˙˙€–˙*.*K˙˙˙˙ŇQuickPak Professional for‘‘ 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.Lis‘‘tCount - 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@98‘‘) ‘Ň; ţř ;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 Ŕŕç  ĐĎॹá>ţ˙ ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ý˙˙˙ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘‘) ’Ň˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙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. ‘j’) ˇţř mDefaultzNone Import Fields:CenterStart  'ž˝źż„;:*…5@€\@@2@static4 Ű>,,;,¸€Č€'89[@€c@EÉ€4‡€Ň€š€8@(@…€€lstImjjportFieldsž€'€˝€ź€3*Ž€  ƒ€‚€:a 3D Controlż€) Long IntegerU„€l€Defaultjjjjj‘“”Ň‘‘‘‘‘‘‘‘”•Ň‘‘‘‘‘‘‘‘•–Ň‘‘‘‘‘‘‘‘–—Ň‘‘‘‘‘‘‘‘—˜Ň‘‘‘‘‘‘‘‘˜™Ň‘‘‘‘‘‘‘‘™šŇ‘‘‘‘‘‘‘‘š›Ň‘‘‘‘‘‘‘‘›œŇ‘‘‘‘‘‘‘‘œŇ‘‘‘‘‘‘‘‘žŇ‘‘‘‘‘‘‘‘žŸŇ‘‘‘‘‘‘‘‘Ÿ Ň‘‘‘‘‘‘‘‘ ĄŇ‘‘‘‘‘‘‘‘Ą˘Ň‘‘‘‘‘‘‘‘˘ŁŇ‘‘‘‘‘‘‘‘Ł¤Ň‘‘‘‘‘‘‘‘¤ĽŇ‘‘‘‘‘‘‘‘ĽŚŇ‘‘‘‘‘‘‘‘Ś§Ň‘‘‘‘‘‘‘‘§¨Ň‘‘‘‘‘‘‘‘¨ŠŇ‘‘‘‘‘‘‘‘ŠŞŇ‘‘‘‘‘‘‘‘ŞŤŇ‘‘‘‘‘‘‘‘ŤŹŇ‘‘‘‘‘‘‘‘Ź­Ň‘‘‘‘‘‘‘‘­ŽŇ‘‘‘‘‘‘‘‘ŽŻŇ‘‘‘‘‘‘‘‘Ż°Ň‘‘‘‘‘‘‘‘°ąŇ‘‘‘‘‘‘‘‘ą˛Ň‘‘‘‘‘‘‘‘˛łŇ‘‘‘‘‘‘‘‘ł´Ň‘‘‘‘‘‘‘‘´ľŇ‘‘‘‘‘‘‘‘ľśŇ‘‘‘‘‘‘‘‘śˇŇ‘‘‘‘‘‘‘‘ˇ¸Ň‘‘‘‘‘‘‘‘¸šŇ‘‘‘‘‘‘‘‘šşŇ‘‘‘‘‘‘‘‘şťŇ‘‘‘‘‘‘‘‘ťźŇ‘‘‘‘‘‘‘‘ź˝Ň‘‘‘‘‘‘‘‘˝žŇ‘‘‘‘‘‘‘‘žżŇ‘‘‘‘‘‘‘‘żŔŇ‘‘‘‘‘‘‘‘ŔÁŇ‘‘‘‘‘‘‘‘ÁÂŇ‘‘‘‘‘‘‘‘ÂĂŇ‘‘‘‘‘‘‘‘ĂÄŇ‘‘‘‘‘‘‘‘ÄĹŇ‘‘‘‘‘‘‘‘ĹĆŇ‘‘‘‘‘‘‘‘ĆÇŇ‘‘‘‘‘‘‘‘ÇČŇ‘‘‘‘‘‘‘‘ČÉŇ‘‘‘‘‘‘‘‘ÉĘŇ‘‘‘‘‘‘‘‘ĘËŇ‘‘‘‘‘‘‘‘ËĚŇ‘‘‘‘‘‘‘‘ĚÍŇ‘‘‘‘‘‘‘‘ÍÎŇ‘‘‘‘‘‘‘‘ÎĎŇ‘‘‘‘‘‘‘‘ĎĐŇ‘‘‘‘‘‘‘‘ĐŃŇ‘‘‘‘‘‘‘‘ŃŇŇ‘‘‘‘‘‘‘‘ŇÓŇ‘‘‘‘‘‘‘‘ÓÔŇ‘‘‘‘‘‘‘‘ÔŐŇ‘‘‘‘‘‘‘‘ŐÖŇ‘‘‘‘‘‘‘‘Ö×Ň‘‘‘‘‘‘‘‘×ŘŇ‘‘‘‘‘‘‘‘ŘŮŇ‘‘‘‘‘‘‘‘ŮÚŇ‘‘‘‘‘‘‘‘ÚŰŇ‘‘‘‘‘‘‘‘ŰÜŇ‘‘‘‘‘‘‘‘ÜÝŇ‘‘‘‘‘‘‘‘ÝŢŇ‘‘‘‘‘‘‘‘ŢßŇ‘‘‘‘‘‘‘‘ßŕŇ‘‘‘‘‘‘‘‘ŕáŇ‘‘‘‘‘‘‘‘áâŇ‘‘‘‘‘‘‘‘âăŇ‘‘‘‘‘‘‘‘ăäŇ‘‘‘‘‘‘‘‘äĺŇ‘‘‘‘‘‘‘‘ĺćŇ‘‘‘‘‘‘‘‘ćçŇ‘‘‘‘‘‘‘‘çčŇ‘‘‘‘‘‘‘‘čéŇ‘‘‘‘‘‘‘‘éęŇ‘‘‘‘‘‘‘‘ęëŇ‘‘‘‘‘‘‘‘ëěŇ‘‘‘‘‘‘‘‘ěíŇ‘‘‘‘‘‘‘‘íîŇ‘‘‘‘‘‘‘‘îďŇ‘‘‘‘‘‘‘‘ďđŇ‘‘‘‘‘‘‘‘đńŇ‘‘‘‘‘‘‘‘ńňŇ‘‘‘‘‘‘‘‘ňóŇ‘‘‘‘‘‘‘‘óôŇ‘‘‘‘‘‘‘‘ôőŇ‘‘‘‘‘‘‘‘őöŇ‘‘‘‘‘‘‘‘ö÷Ň‘‘‘‘‘‘‘‘÷řŇ‘‘‘‘‘‘‘‘řůŇ‘‘‘‘‘‘‘‘ůúŇ‘‘‘‘‘‘‘‘úűŇ‘‘‘‘‘‘‘‘űüŇ‘‘‘‘‘‘‘‘üýŇ‘‘‘‘‘‘‘‘ýţŇ‘‘‘‘‘‘‘‘ţ˙Ň‘‘‘‘‘‘‘‘˙Ň‘‘‘‘‘‘