podb File format Copyright (c) 1994,1995 by Oracle Corporation. ÔÄ9 ~2ÍŘřB% podbjüüT j‘üűT ‘j€ j‘ ‘j dÖj‘ d֑j˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙j‘˙˙˙˙˙˙˙˙€˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘jj‘‘j@"0~*˙˙˙˙˙˙˙˙˙˙˙˙˙˙Ă˙jj˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙jjjjj‘@!0*ŕ˙˙˙˙˙˙˙˙˙˙˙˙˙˙Ă˙‘‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘‘‘‘‘‡# ‘‘‘‘‘‘‘ Œ 3  ‘‘‘‘‘‘‘j@   jjjjjjj‘` yI 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‘‘‘j v9jjjjjjjj ^Ś `Śjjjjjjjj Z`Ň IBM1252proplist;proptbl†Ś 8 udmDefToolBar udmDefMenu udmDefMenuBar6LongpForm AS Object7Long8LongpForm AS Objectđń6Ś'Define a toolbar for use by most forms ' 'Declare object variable for toolbar DIM tbrMain AS Object 'Convert the object variable into a toolbar object tbrMain = NEW ToolBar ' 'Assign default buttons to toolbar pForm.DefaultToolBar(tbrMain) ' 'Custom Toolbar entries tjjbrMain.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_Separator, 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 mejjnu 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.InsertMenjjuItem(3, "Sales Order Report", Cmd_RepOrder , NULL, NULL ) MnuOrd.InsertMenuItem(4, "-", 0 , NULL, NULL ) MnuOrd.InsertMenuItem(5, "Item Detail", Cmd_ItemD, NULL, NULL ) MnuOrd.InsertMenuItem(6, "Assign Carrier Type", Cmd_CarrType, NULL, NULL ) MnuOrd.InsertMenuItem(7, "-", 0 , NULL, NULL ) MnuOrd.InsertMenuItem(8, "Show Order Rate", Cmd_OrdRate , NULL, NULL ) ń´SELECT CASE cmdCode CASE Cmd_Cust TestCommand = TestCommand_Enabled CASE Cmd_Main jj Œ 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_nlprtrecproptblnŚ K_AboutudpMinutesPerOrderudpDisplayMinPerOrd udmSetStatus udpRowCount udpContainerudmCheckRequiredFieldsudmCheckRequired udpRequired udmRunReport 7LongCDoubleDBooleanELongFLongGObjectHBooleanIBooleanJBooleanKLongfonttblť Ä System FontArial MS Sans Serif C‘‘ourier 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 MTClare‘‘ndon 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 BTOzHa‘j¨Ňndicraft 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 NewYojjrk 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 MonospacejjOmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsG› U˜‘nkokjih2Standard Document2 Automatic;-ʲ' Calculates the number of minutes taken to work with each order STATIC vStartSeconds AS Long STATIC vCount AS Long DIM vElapSeconds AS Longjj ' vCount = vCount + 1 ' IF 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 TestCommajj‚Ňnd = TestCommand_Checked 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") & " ajjt " & TIME()) ELSE Self.GetStatusLine().SetStatusPanelMsg(2, "Minutes per Order rate not displayed" ) END IF END IF ' TestCommand = TestCommand_Enabled CASE ELSE TestCommand = Application.TestCommand(cmdCode) END SELECT Ŕx@‚@­QFetch Count FirstÄHORDERDATCMORDERS4Š†‡ůDIM oRecSet AS Object Ijjnherited.Query() oRecSet = frmMain.GetRecordset() lblRecordStats.Label = "Record 1 of " & STR(oRecSet.GetRowCountAdvice()) btnFirst.Enabled = False btnPrev.Enabled = False btnNext.Enabled = True btnLast.Enabled = True ”•Ž‘’Ň–“š+Ą§¨ŞŚ…×ÖfrmMainž'˝ź" On MasteržŸ˜™›œ šjj$Refuse if Children Present#Refuse if Children Present !— Enter Orders´÷ŕApplication.udmDefMenuBar( Self ) Application.udmDefToolBar( Self ) ' DIM sbrMain AS Object sbrMain = NEW StatusLine sbrMain.SysDefaultStatusLine() sbrMain.InsertStatusPanel(2, 200, 40) Self.SetStatusLine( sbrMain ) Ź*D,ˆ‰Œ‹ŠŽ:żđąSELECT CASE cmdCode CASE Cmd_ItemD jjhŇ frmItemDetail.OpenWindow() DoCommand = TRUE CASE Cmd_OrdRate frmMain.udpDisplayMinPerOrd = IIF(frmMain.udpDisplayMinPerOrd, FALSE, TRUE) DoCommand = TRUE CASE Cmd_RepOrder Self.udmRunReport() DoCommand = TRUE CASE ELSE DoCommand = Application.DoCommand(cmdCode) END SELECT Ťľ35 %íSTATIC sSQL As String DIM oControl As Object SjjTATIC oRecSet As Object DIM oCurRecSet As Object DIM nCountNew As Integer DIM nCountCur As Integer DIM nPointerNew As Integer DIM nPointerCur As Integer IF op = 9 THEN IF sSQL = "" THEN oControl = frmMain.FirstChild DO WHILE NOT ISNULL(oControl) IF oControl.ControlType = 2 OR (oControl.ControlType > 4 AND & oControl.ControlType < 10) THEN IF oControl.CompareOnLock = 0 AND oControl.DataSource <> "" THEN sSQL = oControl.DataSojjurce & "," & sSQL END IF END IF oControl = oControl.NextControl() LOOP sSQL = LEFT(sSQL, LEN(sSQL) - 1) sSQL = "SELECT " & sSQL & " FROM " & & RecordSource & " WHERE ORDER_NUMBER " & & " = " & ORDER_NUMBER.Value END IF IF NOT ISNULL(oRecSet) THEN DELETE oRecSet END IF oRecSet = NEW DBRECORDSET( ORDERDAT ) oRecSet.SetQuery(sSQL, False) oRecSet.Requery() oCurRecSet = frmMain.GetRecordset() nCountNew = oRecSet.GetColCount() nCountjjCur = frmMain.GetRecordset.GetColCount() nPointerNew = 1 DO WHILE nPointerNew <= nCountNew nPointerCur = 1 DO WHILE nPointerCur <= nCountCur IF oRecSet.GetColName(nPointerNew) = & oCurRecSet.GetColName(nPointerCur) THEN IF oRecSet.GetColVal(nPointerNew) <> & oCurRecSet.GetColVal(nPointerCur) THEN sError = oCurRecSet.GetColName(nPointerCur ) & & " column has changed to " & & j‘­Ň oRecSet.GetColVal(nPointerNew) END IF EXIT DO END IF nPointerCur = nPointerCur + 1 LOOP IF NOT ISNULL(sError) THEN EXIT DO ELSE nPointerNew = nPointerNew + 1 END IF LOOP IF NOT ISNULL(sError) THEN sError = "Some of your data has been changed by other users. " & & CHR(13) & CHR(10) & " The " & sError & & ". Do you want to change yo‘‘ur data or cancel your update?" IF MSGBOX(sError, 17, "Data Changed By Others")= 1 THEN oCurRecSet.SetColVal(nPointerCur, oRecSet.GetColVal(nPointerNew)) oCurRecSet.LockRow() END IF END IF END IF ĂDIM oRecSet As Object DIM nRows As Integer DIM nRowsLeft As Integer oRecSet = Self.GetRecordset() nRows = oRecSet.GetRowCountAdvice() IF oRecSet.GetRowCount() <> nRows THEN nRowsLeft = nRows - oRecSet.GetRowCount() IF nRowsLeft > 100 THEN I‘‘F 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€DefaultCDKŻDIM vOrdKey As Long DIM vCount As Long DIM vSaveLoc As Long DIM vSeq As ‘‘Long ' vCount = Self.GetRecordSet().GetRowCountAdvice() IF vCount < 1 THEN MSGBOX("Please select orders before running this report") Exit Sub ELSE IF MSGBOX("OK to report on " & vCount & " orders? ", 4, repOrder.Label) <> 6 THEN Exit Sub END IF END IF ' Application.SetCursor(CURSOR_BUSY) ' EXEC SQL AT ORDERDAT & Select QUERY_TEMP_SEQ.NEXTVAL & into :vSeq & From DUAL IF SqlErrClass() > 0 THEN MSGBOX("There was an internal problem with QUERY_TEMP_SEQ‘j¸Ň. " & CHR(10) & SqlErrText()) EXIT Sub END IF ' vSaveLoc = Self.GetRecordset.GetCurRow() ' FOR i = 1 to vCount Self.GetRecordset().SetCurRow(i) vOrdKey = Self.GetRecordSet().GetColVal("ORDER_NUMBER") EXEC SQL AT ORDERDAT & Insert into QUERY_TEMP (QUERY_SEQ, ORDER_NUMBER) & Values (:vSeq, :vOrdKey) IF SqlErrClass() > 0 THEN MSGBOX("There was an internal problem with QUERY_TEMP_SEQ. " & CHR(10) & SqlErrText()) EXIT Sub END IjjF NEXT i ' repOrder.DefaultCondition = "QUERY_SEQ = " & vSeq ' Self.GetRecordset().SetCurRow(vSaveLoc) ' 'EXEC SQL AT ORDERDAT Commit ' 'CrySo.SelectionFormula = "{ORDER_ITEMS_V.QUERY_SEQ} = " & vSeq 'CrySo.PrintReport() repOrder.OpenPreview() ' EXEC SQL AT ORDERDAT & Delete From QUERY_TEMP & Where QUERY_SEQ = :vSeq ' EXEC SQL AT ORDERDAT Commit 'H•DIM oCurObject As Object oCurObject = frmMain.FirstChild DO UNTIL ISNULL(oCurObject) IF oCurObject HasProperty ujjdpRequired THEN IF NOT oCurObject.udmCheckRequired() THEN EXIT DO END IF END IF oCurObject = oCurObject.NextControl LOOP IF ISNULL(oCurObject) THEN udmCheckRequiredFields = True ELSE udmCheckRequiredFields = False END IF K S MasterLibrary0000000C32CCB0A8clsDataPushButtons Ą2SW7lDefault6~DefaultËĚÍÓ„%3ľżjj:ŽŠ‹Œ‰ˆ,D*´Class12—! #Refuse if Children Present$Refuse if Children Presentš œ›™˜Ÿž" On Masterź˝'žclsDataPushButtons…Ś+g@€j@š“–Ň’‘Ž•”‡†Š4 =containerMCj‘ƒŇHQFetch As Needede@R@98fEG FĘ-; ţř m€Default„€ ż€:   *ź€˝€'€ž€lblRecordStats…€€B@e@8@CenterTopzNone; ćŸlDefault6„AIF frmMain.‘‘udmCheckRequiredFields() = True THEN Inherited.Click()ża 3D Control:  *+>>ź˝'žbtnLast…Ŕ]@@;@=@98; ćŸlDefault6„AIF frmMain.udmCheckRequiredFields() = True THEN Inherited.Click()ża 3D Control:  *+>ź˝'‘‘žbtnNext…W@@;@=@98; ćŸlDefault6„AIF frmMain.udmCheckRequiredFields() = True THEN Inherited.Click()ża 3D Control:  *+<ź˝'žbtnPrev…@P@@;@=@98; ćŸlDefault6„AIF frmMain‘‘.udmCheckRequiredFields() = True THEN Inherited.Click()ża 3D Control:  *+<<ź˝'žbtnFirst…C@@;@=@98;I R MasterLibrary0000000B32CAF771clsRequiredField Ą2SVlDefault6~Default3:,D*Class11! #Refuse if Chil‘jfŇdren Present$Refuse if Children Present" On MasterclsZIP+0w@b@4 =containerMCHQFetch As Needed€U@8@98fJ-;7’ËĚÍÓ„%ľżŽŠ‹Œ‰ˆ´—š œ›™˜Ÿžź˝jj'ž…Śš“–Ň’‘Ž•”‡†ŠI’ʐ ’%66;,¸Start895@ŔT@Eɐ4‡Ňš@đ?y*x…fldRequiredField1ž'˝ź*,  ƒ‚:a 3D Controlżjj)StringZIPINoneK ImmediateJLѐU„mDefaultoAnynDefaultI Q MasterLibrary0000000B32CAF771clsRequiredField Ą2SVlDefault6~Default3:,D*Class11! #Refuse if Children Present$Refuse if Children Present" On Master clsTELEPHONE+@r@jj@4 =containerMCHQFetch As Needede@8@98fJ-;7’ËĚÍÓ„%ľżŽŠ‹Œ‰ˆ´—š œ›™˜Ÿžź˝'ž…Śš“–Ň’‘Ž•”‡†ŠI’ʐ jjŇŇ’%66;,¸Start895@ŕd@Eɐ4‡Ňš@đ?y*x…fldRequiredField1ž'˝ź*,  ƒ‚:a 3D Controlż)String TELEPHONEINoneK ImmediateJLѐUjj„mDefaultoAnynDefaultD P MasterLibrary0000000A32CA95C0 clsDataHelp Ą2STĘ˜Š˜†˜‡˜”˜•˜Ž˜˜‘˜’˜Ň˜–˜˜“˜š˜Ś˜…˜ž˜'˜˝˜ź˜ž˜Ÿ˜˜˜™˜›˜œ˜ ˜š˜˜—˜´˜ˆ˜‰˜Œ˜‹˜Š˜Ž˜ż˜ľ˜%˜„˜Ó˜Í˜˜Ě˜Ë˜˜7š;-f89jj8@r@QFetch As NeededHCM =container4@Z@Ŕ]@+ clsADDRESS2" On Master$Refuse if Children Present#Refuse if Children Present !Class10*D,:3~Default6l˜Default ’%66¸˜É˜‡˜Ň˜š˜…˜˜ž˜'˜˝˜ź˜ƒ˜‚˜ż˜Ń˜„˜;jj,Start895@đq@E4@đ?y*x fldDataHelp1*,  :a 3D Control)StringADDRESS2INoneK ImmediateJLUm˜Defaulto˜Anyn˜DefaultD O MasterLibrary0000000A32CA95C0 clsDataHelp Ą2STĘ˜Š˜†˜‡˜”˜•jj|Ň˜Ž˜˜‘˜’˜Ň˜–˜˜“˜š˜Ś˜…˜ž˜'˜˝˜ź˜ž˜Ÿ˜˜˜™˜›˜œ˜ ˜š˜˜—˜´˜ˆ˜‰˜Œ˜‹˜Š˜Ž˜ż˜ľ˜%˜„˜Ó˜Í˜˜Ě˜Ë˜˜7š;-f898@Đr@QFetch As NeededHCM =container4ŔQ@Ŕ]@+jj clsADDRESS1" On Master$Refuse if Children Present#Refuse if Children Present !Class10*D,:3~Default6l˜Default ’%66¸˜É˜‡˜Ň˜š˜…˜˜ž˜'˜˝˜ź˜ƒ˜‚˜ż˜Ń˜„˜;,Start895@0q@E4@đ?y*x jjfldDataHelp1*,  :a 3D Control)StringADDRESS1INoneK ImmediateJLUm˜Defaulto˜Anyn˜DefaultL N MasterLibrary0000000732C8F845clsDeletePushbutton Ą2SU7l˜Default6~DefaultËĚÍÓ„%3ľż:ŽŠjj‹Œ‰ˆ,D*´Class7—! #Refuse if Children Present$Refuse if Children Presentš œ›™˜Ÿž" On Masterź˝'žclsDeletePushbutton…Ś+(€@`t@š“–Ň’‘Ž•”‡†Š4 =ContainerMCHQFetjj¤Ňch As NeededH@B@98fG  rptOrderItemsĘ-; ćŸ;89B@H@… btnDeletež'˝źDelete+*  :a 3D Controlż„6lˆDefault LćŸl€Default6„ëREDIM sImportArray(9) AS String jjDIM nRows AS Integer, nErrors AS Integer nRows = 0 nErrors = 1 DIM nFileData AS Integer, nFileReason AS Integer nFileData =FREEFILE OPEN "c:\errors\error.txt" FOR OUTPUT AS nFileData nFileReason = FREEFILE OPEN "c:\errors\reason.txt" FOR OUTPUT AS nFileReason ' dlgImport.OpenFileDialog() dlgImport.OpenModal(0) DIM sInsert AS String IF ISNULL(dlgImport.Pathname.Value) THEN MSGBOX("You did not choose a file to use for import.",16, "No import file") CLOSE nFileData CLOSE nFileReajjson EXIT SUB ELSE frmTables.OpenModal(0) frmLink.OpenModal(0) IF NOT ISNULL(frmLink.udpRecordset) THEN DIM nFile AS Integer nFile = FREEFILE ON ERROR RESUME NEXT OPEN dlgImport.Pathname.Value FOR INPUT AS nFile IF ERR <> 0 THEN MSGBOX("Unable to open the import file.", 48, "File Open Failure") CLOSE nFileData CLOSE nFileReason EXIT SUB ELSE DIM sLineValue AS String, sValue AS String jj 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 sVajjL*Ňlue = 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 = ""jj 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." jj 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 jj 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 jj Œ ‡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_nlprtrecproptbl Ś ›_About‘‘ udpSessionzLongObjectfonttblť Ä System FontArial MS Sans Serif Courier NewArial Rounded MT BoldApplication FontGenevaChicagoTimesPalatinoAplicati‘‘on 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 CondensedCentury SchoolbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold Bragga‘‘docioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtLucida Sans UnicodeAbadi MT Condensed LightCopperplate Gothic Light Carnati SSi Comic Sans MSITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBoldFinal FrontierLucida HandwritingNews Gothic MTLucida Console 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łž˛‘‘Ě‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–ž’Š @‚l‚r ‚o–ž’Š @FixedSysOCR A ExtendedAbadi MT CondensedAbadi MT Condensed Extra BoldAmerican UncialSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BT Lucida SansLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTF‘‘reehand521 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 SihafaKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password TechnicalAardvark PalmSpringsArabiaBahamas Avant GardeIPA Password mask Zapf DingbatsNULLStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium Text‘‘Bodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsŐ ˜‘nkmĘ€ń€­€€€Ä€Š€†€‡€”€•€Ž€€‘€’€Ň€–€€“€š€Ą€§€¨€Ş€Ś€…€×€Ö€€ž€'€˝€ź€ž€Ÿ€˜€™€›€œ€ €š€€—€´€÷€Ź€ˆ€‰€Œ€‹€Š€Ž€ż€đ‘‘(Đ +Ň€Ť€ľ€%€Ă€˘€„€Ó€Í€€Ě€Ë€€kjih2Standard Document2 Automatic;-fh@x@QFetch As NeededHCM4+frmLogin" On Master$Refuse if Children Present#Refuse if Children Present !Log In ‘‘To A Database*D,:35 ~Default6l€Defaultz@' The frmLogin form will give your users 3 chances to log into a database. You will have ' to set the 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.  ORDERDAT  ćŸ;89‘‘<@@T@€a@@j@… btnCancelž'˝źCancel+*  :a 3D Controlż„Application.CloseApp()6l€Default ćŸl€Default6„Ľ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 = TRIM(sConnect‘j*>2Ň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() & " - " & SqlErrjjText() 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 jjnErrors = 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@98jj; KćŸ;89;@€^@@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(nCounj‘+Đ QŇ) ORDERDAT.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 E‘‘ND IF ża 3D Control:  *+Connectź˝'ž btnConnect…ŔR@€a@@T@<@98; ţř ;zNoneCenterRight7@U@ŔW@$@…static3ž'˝ź Password:*  :ż „m€‘‘Default ţř m€Default„ ż:   *User:ź˝'žstatic2…$@€M@U@7@RightCenterzNone; ’%66;,¸Start89:@ o@EÉ4‡ŇšŔW@ŔX@y*x… fldPassword1‘‘ž'˝ź*,  ƒ‚:a 3D Controlż)StringINoneK ImmediateJLŃU„m€Defaulto€Anyn€Default ’%66;,¸Start89:@ o@EÉ4‡ŇšM@ŔX@y*x…‘‘,܃^-./^‘‘‘‘‘‘‘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đ ˇţř mDefaultzNone Import Fields:CenterStart  'ž˝źż„;:*…5@€\@@2@static4 Ű>,,;,¸€Č€'89[@€c@EÉ€4‡€Ň€š€8@(@…€€lstImjjportFieldsž€'€˝€ź€3*Ž€  ƒ€‚€:a 3D Controlż€) Long IntegerU„€l€Defaultjjjjjj1ń 9789jjjjjjj‘2#3Ňt) AS String frmExportFile.OpenModal(0) sExportFile = frmExportFile.fldExportFile.Value ON ERROR RESUME NEXT IF NOT ISNULL(sExportFile) THEN frmSelectColumns.OpenModal(0) ' You have to parse through the values in the selected pick list to create the values in sArray. objRecSet = frmSelectColumns.clsSelectedColumns.lstPickList.GetRecordset() nCount = objRecSet.GetRowCount() nPointer = 1 DO WHILE nPointer <= nCount objRecSet.‘‘SetCurRow(nPointer) sArray(nPointer - 1) = objRecSet.GetColVal(1) nPointer = nPointer + 1 ' nPointer = INSTR(sListValue, CHR(13)) ' IF nPointer <> 0 THEN ' sValue = LEFT(sListValue, nPointer - 1) ' sListValue = RIGHT(sListValue, LEN(sListValue) - (nPointer + 1)) ' ELSE ' sValue = sListValue ' sListValue = "" ' END IF ' sArray(nCount) = sValue ' nCount = nCount + 1 ‘‘ LOOP REDIM PRESERVE sArray(nCount - 1) nFile = FREEFILE OPEN sExportFile FOR OUTPUT AS nFile IF ERR <> 0 THEN MSGBOX("You could not open the " & sExportFile & & " file.", 32, "Open File Failed") EXIT SUB ELSE ON ERROR GOTO 0 END IF frmMain.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 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( & ‘‘34Ň objRecSet.GetColVal(sArray(nArrayPointer))) & sQuote & "," nArrayPointer = nArrayPointer + 1 LOOP sLineValue = LEFT(sLineValue, LEN(sLineValue) - 1) PRINT #nFile, sLineValue nPointer = nPointer + 1 sLineValue = "" nArrayPointer = 0 LOOP CLOSE nFile ELSE MSGBOX("Export cancelled.", 32, "No Export") END IF 6l€Default C’%66‘‘n€Defaulto€Anym€DefaultULJK ImmediateINoneString)Same As Customera 3D Control:   ,*1 fldDefaultxy*Ŕ]@€f@4Er@7@98 Start,;„Ńż‚FSHIP_NAME.Visible = True Self.Visible = False SHIP_NAME.SetFocus() ƒź‘‘˝'ž…šŇ‡É¸ .Ë--;,¸DIM sAddress1 AS String, sAddress2 AS String, sCity AS String DIM sState AS String, sZIP AS String, sCustomerName AS String DIM sTelephone AS String IF MSGBOX("Do you want to fill in the billing address information" & & " for " & newval & "?", 36, "Set Address Information") = 6 THEN 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 = sAddress2 CITY.Value = sCity STATE.Value = sState clsZIP.fldRequiredField.Value = sZIP clsTELEPHONE.fldRequiredField.Value = sTelephone END IF Validate = TrueČ'@= AT ORDERDAT SELECT CUSTOMER_NAME, CUSTOMER_NAME FROM CUSTOMERS898@r@E‘‘45ŇÉ4‡Ňš B@^@…popCustomerNamež'˝źpopCustomerName3*Ž  ƒ‚:a 3D Controlż)String CUSTOMER_NAMEU„l€Default (ţř …€ž€'€˝€ź€ż€„€;zNoneCenterStart‘‘8@X@r@y@static5 Line Total*  : m€Default 'ţř …€ž€'€˝€ź€ż€„€;zNoneCenterStart8@N@r@pt@static4Discount*  : m€Default &ţř …€ž€'€˝€ź€ż€„€;‘‘zNoneCenterCenter8@€H@r@p@static12Price*  : m€Default %ţř …€ž€'€˝€ź€ż€„€;zNoneCenterStart8@€N@r@`i@static11Quantity*  : m€Default $ţř ‘‘…€ž€'€˝€ź€ż€„€;zNoneCenterStart8@b@r@€I@static10 Order Item*  : m€Default 2]¸PPl€Default3:,D*! ORDER_NUMBER  ORDER_NUMBER#Delete CascadefrmMain$Update Cascade" On Master rptOrderItems+‘‘5 6Ň(@€s@4 ORDER_ITEMSMCOLORSCHORDERDATQFetch As NeededŔ~@R@98 f-;€Ë€Ě€€Í€Ó€„€%€ľ€ż€Ž€Š€‹€Œ€‰€ˆ€´€—€€š€ €œ€›€™€˜€Ÿ€ž€ź€˝€'€ž€…€Ś€š€“€€–€Ň€’€‘€€Ž€•€‘‘”€‡€†€Š€Ę€  s °'lDefaultf,98ÓÍĚËž˝źż„;:*…UUUUUUĹżUUUUUUĹż repeat_dummy1 s °lDefault:,* repeat_dummy2Đ?ŤŞŞŞŞĘ@Đ?98f;ËĚ‘‘ÍÓ„żź˝'ž… s °;f898@°}@… repeat_panelž'˝ź*,:ż„ÓÍĚËl€Default "l­Ë:* curOrderItem@@>@6@;„€żĆIF NOT ISNULL(popOrderItem.Value) THEN frmIt‘‘emDetail.OpenModal(0) ELSE MSGBOX("You can only view the catalog when you have selected an item.", & 64, "No Item Selected") END IFź€˝€'€ž€…€š€Ň€  ’%66¸€É€‡€Ň€š€…€€ž€'€˝€ź€ƒ€‚€ż€Ń€„€;,Right898@ŔW@E4 w@y*x LINE_TOTAL1*,‘j6ôKŇCurrency  :a 3D Control)Double =(QUANTITY*PRICE) * (1-DISCOUNT)INoneK ImmediateJLUm€Defaulto€Anyn€Default ’%66¸€É€‡€Ň€š€…€€ž€'€˝€ź€ƒ€‚€ż€Ń€„€;,Right898@P@E4jjo@y*xPRICE1*,Currency  :a 3D Control)Double~=SqlLookup(ORDERDAT, "select price from items where item_number = " & IIF(ISNULL(popOrderItem.Value), 0, popOrderItem.Value) )INoneK ImmediateJLUm€Defaulto€Anyn€Default Ë--l€Default„U ORDER_ITEMjj Long Integer)ża 3D Control:‚ƒ   Ž*3popup1ź˝'ž popOrderItemŒIF keycode = 17 THEN frmCatalog.popItems.Value = Value frmCatalog.OpenModal(0) Value = frmCatalog.popItems.Value END IF …B@šŇ‡4ÉE€c@8@98'6=AT ORDERDAT select DESCRIPTION,ITEM_NUMBER fjjrom ITEMSȸ,; ’%66n€Defaulto€Anym€Default„€UŃ€LJK ImmediateINoneQUANTITY Long Integer)ż€a 3D Control:‚Ű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 Integerj‘7ń 8Ň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 ‘‘8ń 9Ň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:‘j9ń ä  *+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‘:đ ;Ň; ţř ;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 Ŕŕç  ĐĎॹá>ţ˙ ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ý˙˙˙ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘;đ 0Ň˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙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<¤t]=>?@]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Ľg_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đ 0 FGHIJLM:;0‘‘‘‘‘‘‘‘Fđ GŇIBM1252 cpprpscr_nlprtrecproptblmŚ B udmClearList_AboutudpMatchingList udmAddItem udmFindEntry udmDeleteItem udpSortedudmGetDisplayValue udpRecordset 6Long7Long8Object9Long$sDisplay As String, sValue As String:LongsValue As String;Boolean<Boolean=StringsValue As String>Objectfonttblť Ä System FontArial MS Sans Serif Co‘‘urier NewApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlgerianArial Rounded MT BoldMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClaren‘‘don CondensedCentury SchoolbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight ‚l‚r ƒSƒVƒbƒN ‚l‚r –ž’ŠOsakaVFONT @‚l‚r –ž’Š ff4550-‚f‚l @•W€ƒSƒVƒbƒN ‘‘‚g‚fłž˛‘‘ĚAbadi MT Condensed Light‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–ž’Š @‚l‚r ‚o–ž’Š @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT Condensed Extra BoldAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHan‘jGđ HŇdicraft BT Orbit-B BT News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 BdCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYorjjk SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BTShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOjjmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrols°" ˜‘nkl> l€Default6~DefaultËĚÍÓ„˘Ă%5 3ľŤđż:ŽŠ‹Œ‰ˆ,D*Ź÷ÂDIM rsColjjumns AS Object DIM nCount AS Integer, nPointer AS Integer, nPosition AS Integer DIM nFile AS Integer DIM sInput AS String nFile = FREEFILE DIM nStart AS Integer, nNext AS Integer, nField AS Integer DIM nValue AS String OPEN dlgImport.Pathname.Value FOR INPUT AS nFile LINE INPUT # nFile, sInput nStart = 1 nField = 1 nNext = 1 DO WHILE nNext <> 0 nNext = INSTR(nStart, sInput, ",") IF nNext <> 0 THEN lstImportFields.Translation = lstImportFields.Translation & & jjHđ IŇ " Field " & STR(nField) & " - " & MID(sInput, nStart, & nNext - nStart) & " = " & STR(nField) & CHR(13) ELSE lstImportFields.Translation = lstImportFields.Translation & & " Field " & STR(nField) & " - " & MID(sInput, nStart, & LEN(sInput) - (nStart - 1)) & " = " & STR(nField) END IF nStart = nNext + 1 nField = nField + 1 LOOP rsColumns = NEW DBRECORDSET( ORDERDAT ) udpRecordset =jj rsColumns rsColumns.SetQuery("SELECT * FROM " & frmTables.rbfTables.Value, FALSE) rsColumns.ReQuery() nCount = rsColumns.GetColCount() nPointer = 1 DO WHILE nPointer <= nCount 'Change the way the clsListColumns is populated ' nPosition = lstColumns.ListCount ' lstColumns.AddItem(rsColumns.GetColName(nPointer), nPosition) clsColumns.udmAddItem(rsColumns.GetColName(nPointer), rsColumns.GetColName(nPointer)) nPointer = nPointer + 1 LOOP CLOSE #nFile ´*Link import fjjields and destination columns—! #Refuse if Children Present$Refuse if Children Presentš œ›™˜Ÿž" On Masterź˝'žfrmLinkÖ×…ŚŞ¨§Ą+š“–Ň’‘Ž•”‡†Š4MCHÄQFetch As Nejjeded­x@r@ńfĘ-;2 Automatic2Standard DocumenthijkD  MasterLibrary0000000F32D22F99 clsPickList Ą2S[;-Ę˜f89R@Ŕu@QFetch As NeededHCM4Š˜†˜‡˜”˜•˜Ž˜˜‘˜’˜Ň˜–˜˜“˜š˜€fjjIđ JŇ@8@+Ś˜…˜clsLinkž˜'˜˝˜ź˜" On Masterž˜Ÿ˜˜˜™˜›˜œ˜ ˜š˜˜$Refuse if Children Present#Refuse if Children Present !—˜Class15´˜*D,ˆ˜‰˜Œ˜‹˜Š˜Ž˜:ż˜ľ˜3%˜„˜Ó˜Í˜˜Ě˜Ë˜˜~Default6ljj˜Default<8 =š:š;š6š9š7š Ű>,,;,¸˜Č˜'"This is a dummy value" = 089€Q@Ŕu@Eɘ4‡˜Ň˜š˜…˜˜ lstPickListž˜'˜˝˜ź˜3*Ž˜  ƒ˜‚˜:a 3D Controlż˜)StringU„˜l˜DefaultDjj  MasterLibrary0000000F32D22F99 clsPickList Ą2S[796;:=8 <l˜Default6~DefaultËĚÍÓ„%3ľż:ŽŠ‹Œ‰ˆ,D*´Class15—! #Refuse if Children Present$Refuse if Children Presentš œ›™˜Ÿjjž" On Masterź˝'ž clsColumns…Ś+€i@8@š“–Ň’‘Ž•”‡†Š4MCHQFetch As Neededb@[@98fĘ-; Ű>,,;,¸Č'"This is a dummy value" = 089 €Z@b@EÉ4‡Ňjj Jđ LŇš@… lstPickListž'˝ź3*Ž  ƒ‚:a 3D Controlż)StringU„lˆDefault ćŸl€Default6„VDELETE frmLink.udpRecordset frmLink.udpRecordset = NULL frmLink.DismissModal(Self) ża 3D Control:  jj*+Cancelź˝'ž btnCancel…ŕh@p@@U@5@98; ćŸl€Default6„~DIM rsLink AS Object DIM nCount AS Integer, nPointer AS Integer rsLink = NEW RECORDSET(True) rsLink.AddColumn("COLUMN", RecDty_String) rsLink.AddColumn("DATATYPE", RecDty_Integer) nCount = lstImportFields.GetRecordset().GetRowCount() nPointer = 1 DO WHILE nPointer <= nCount jj rsLink.InsertRow() nPointer = nPointer + 1 LOOP DIM sValue AS String DIM nRow AS Integer ' Change reference to lstColumns nCount = clsLink.lstPickList.GetRecordset.GetRowCount() nPointer = 0 IF nCount > 0 THEN DO WHILE nPointer < nCount ' Change how you derive sValue clsLink.lstPickList.GetRecordset().SetCurRow(nPointer + 1) sValue = clsLink.lstPickList.GetRecordset().GetColVal(1) nRow = CINT(MID(sValue,INSTR(sValue,"->") - 3,3)) rsLink.SetCurRow( nRow ) rsLinjjk.SetColVal("COLUMN", MID(sValue, INSTR(sValue, "->") +3)) rsLink.SetColVal("DATATYPE", VARTYPE(frmLink.udpRecordset.GetColVal(nRow ))) nPointer = nPointer + 1 LOOP DELETE frmLink.udpRecordset frmLink.udpRecordset = rsLink ELSE DELETE frmLink.udpRecordset frmLink.udpRecordset = NULL END IF frmLink.DismissModal(Self) ża 3D Control:  *+OKź˝'žbtnOK…ŔX@jjKžTŇ nRow = rptOrderItems.GetRecordset().GetCurRow() nOrderItem = rptOrderItems.GetRecordset().GetColVal("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 :sColjjor, :nColorID FROM & ITEM_COLORS, COLORS WHERE & ITEM_COLORS.COLOR_ID = COLORS.COLOR_ID AND ITEM_NUMBER = :nOrderItem 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 nQuantitjjy > 0 THEN sColor(nPointer) = sColor(nPointer) & " - " & CSTR(nQuantity) frmPickColors.clsColorsSelected.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.jjSetFocus() frmPickColors.OpenModal(0) rptOrderItems.GetRecordset().SetCurRow(nRow) QUANTITY.Value = frmPickColors.fldTotal.Value ELSE MSGBOX( "You must have an Order Item ID before you can select colors", & 16, "Cannot Pick Colors") END IF ƒ€   ,*ź€˝€'€ž€1QUANTITY€…€xy*h@š€Ň€‡€4É€EjjLđ MŇp@@U@5@98; ćŸl€Default6„ĂDIM nCounter AS Integer DIM sValue AS String 'Change to use the new instances of clsPickList IF NOT ISNULL(lstImportFields.Value) AND NOT ISNULL(clsColumns.lstPickList.Value) THEN sValue = "Import field " & STR(lstImportFields.Value) & " -> " & & clsColumns.lstPickList.Value clsLink.udmAddItem(sValue, sValue) clsCjjolumns.udmDeleteItem() ' FOR nCounter = lstColumns.ListCount - 1 TO 0 STEP -1 ' IF lstColumns.Selected(nCounter) THEN lstColumns.RemoveItem(nCounter) ' NEXT nCounter lstImportFields.Value = NULL ELSE MSGBOX("You must select an import field and a column to add a link.", 48, & "Values Not Selected") END IF ża 3D Control:  *+Add Linkź˝'žbtnAdd…jj`@Ŕa@@_@7@98; ţř ;zNoneCenterStart5@ a@@`i@…static5ž'˝źDestination Columns*  :ż „m€Default ţř mDefaultzNone Import Fields:CenterStart  jj'ž˝źż„;:*…5@€\@@2@static4 Ű>,,l€Default„€U Long Integer)ż€a 3D Control:‚€ƒ€  Ž€*3ź€˝€'€ž€lstImportFields€…€(@8@š€Ň€‡€4É€E€c@[@9jjMđ :Ň8'Č€¸€,;˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙jjŔFR㠑ÎăŞK¸QDB MS Sans Serif˙˙˙˙€–˙*.*K˙˙˙˙ŇQuickPak Professional forjj Windows, Copyright (c) 1995 Crescent Division of Progress Software Corporation. ćŸl€Default6„KDIM nCounter AS Integer IF NOT ISNULL(lstImportFields.Value) AND NOT ISNULL(lstColumns.Value) THEN lstLink.AddItem ( "Import field " & STR(lstImportFields.Value) & " -> " & & MID(lstColumns.SelText, 1, LEN(lstColumns.SelText) - 2), 0 ) FOR nCounter = lstColumns.LisjjtCount - 1 TO 0 STEP -1 IF lstColumns.Selected(nCounter) THEN lstColumns.RemoveItem(nCounter) NEXT nCounter lstImportFields.Value = NULL ELSE MSGBOX("You must select an import field and a column to add a link.", 48, & "Values Not Selected") END IF ża 3D Control:  *+Add Linkź˝'žbtnAdd…`@Ŕa@@_@7@98j‘Nň ­OPŞŤŹ­‘‘‘‘‘‘‘‘Oň PŇ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‘‘Pň ŞŇ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‘jQĐ ­fldUser1ž'˝ź*,  ƒ‚:a 3D Controlż)StringINoneK ImmediateJLŃU„m€Defaulto€Anyn€Default ţř m€Default„ ż:   * Database:ź˝'žjjstatic1…$@:@U@7@RightCenterzNone; Ë--l€Default„UdString)ża 3D Control:‚ƒ   Ž*3ź˝'ž popDatabase…€X@9@šoIF NOT ISNULL(Self.Value) THEN btnConnect.Enabled = True ELSE btnConnect.Enajjbled = False END IF ҇4ÉE@o@7@98';Local database = ODBC#ORDERDAT Remote database = Oracle# ȸ,;€¸€jjj‘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ŇL@8@98Center¸„,; ’%66¸€É€‡€Ň€š€…€€ž€'€˝€ź€ƒ€‚€ż€Ń€„€;,Right898@P@E4s@y*xDISCOUNT1*,Percent  :a 3D Control)jjDoubleDISCOUNTINoneK ImmediateJLUm€Defaulto€Anyn€Default ’%66n€Defaulto€Anym€DefaultULJ ITEM_NUMBERSKDeferredINone ORDER_ITEM_ID Long Integer)a 3D Control:  ,*1 ORDER_ITEM_IDxy*(@4Ejj8@8@98Start,;„Ńż‚ƒź˝'ž…šŇ‡É¸ ’%66n€Defaulto€Anym€DefaultULJK ImmediateINone( SHIP_NAMEString)a 3D Control:   ,*1 SHIP_NAMExy*Ŕ]@`f@4jjEr@8@98 Start,;„Ńż‚ƒź˝'ž…šŠIF ISNULL(Value) THEN SHIP_NAME.Visible = False fldDefault.Visible = True ELSE SHIP_NAME.Visible = True fldDefault.Visible = False END IF ҇ɸ ţř m€Default :   * Ship To Name:static9jjUŠeŇ @€f@[@8@RightCenterzNone;„żź˝'ž… ţř m€Default :   * Telephone:static8`h@@X@8@RightCenterzNone;„€ż€ź€˝€'€ž€…€  ’%66n€Defaulto€jjAnym€DefaultULJK ImmediateINoneSTATEString)a 3D Control:   ,*1STATExy*@t@b@4EB@8@98Start,;„Ńż‚ƒź˝'ž…šŇ‡É¸  ’%66n€Dejjfaulto€Anym€DefaultULJK ImmediateITable, MAX()+CounterIncByCITYString)a 3D Control:   ,*1CITYxy*^@b@4Eh@8@98Start,;„Ńż‚ƒź˝'ž…šŇ‡É¸ jjţř m€Default„ ż:   *Address:ź˝'žstatic3…4@R@X@8@RightCenterzNone; ţř m€Default :   * Customer:static24@B@X@8@RightCenterzNone;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;„€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€‘‘‘‘‘‘‘j`ŚŇ TestCommand = TestCommand_Enabled CASE Cmd_CarrType TestCommand = TestCommand_Enabled CASE Cmd_OrdRate IF frmMain.udpDisplayMinPerOrd THEN TestCommand = TestCommand_Disabled_Checked ELSE TestCommand = TestCommand_Disabled END IF CASE Cmd_RepOrder TestCommand = TestCommand_Enabled CASE ELSE IF cmdCode >= Cmd_FirstUsjjerCommand THEN TestCommand = TestCommand_Disabled END IF END SELECT …+frmLogin.OpenModal(0) frmMain.OpenWindow()Chap11Ł Chapter 11ŐSelf.udmDefMenu()đcSELECT CASE cmdCode CASE Cmd_Main frmMain.OpenWindow() DoCommand = TRUE CASE Cmd_Cust frmCustomer.OpenWindow() DoCommand = TRUE CASE Cmd_CarrType frmCarrierType.OpenWindow() DoCommand = TRUjjE CASE ELSE DoCommand = FALSE END SELECT gORDERDAT%çDIM sErrorType AS String SELECT CASE op CASE 1 sErrorType = "leaving a row" CASE 2 sErrorType = "querying a row" CASE 3 sErrorType = "inserting a row" CASE 4 sErrorType = "deleting a row" CASE 5 sErrorType = "fetching a row" CASE 6 sErrorType = "flushing a row" CASE 7 sErrorType = "rolling back a row" jj CASE 8 sErrorType = "committing a row" CASE 9 sErrorType = "locking a row" END SELECT sErrorString = "You have encountered an error while " & sErrorString & & " of the " & obj.RecordSource & " table in the " & obj.Name & " form." MSGBOX( sErrorString, 32, "Database Error") ¤$€p€}€ Gregorian)E' User-defined cmd codes for Menus CONST Cmd_Main = Cmd_FirstUserCommand + 10 CONST Cmd_ItemD = Cmd_FirstUserCommand + 11 CONST Cmd_jjbl|ccjjjjjjjjclfBMfv(đÎŘżżżżżżżżżŔŔŔ€€€˙˙˙˙˙˙˙˙˙˙˙˙wwwwwwwwwwwwwwwwwwwwwˆˆˆˆˆˆˆˆww@ˆˆˆˆˆˆ@wwˆˆ„ww@@@@@@@@wwww@@@@@@@@wwptww@@G@@wpwwwwwwwp@G@@w@@wwttwwwp@GwwwpGwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwjjjjjjjjdm|ffjjjjjjj‘eMƒŇ„żź˝'ž… ’%66n€Defaulto€Anym€DefaultULJ ORDER_NUMBERSK ImmediateISequence ORDER_NUMBER Long Integer)a 3D Control:   ,*1 ORDER_NUMBERxy*^@@4EN@8@98‘‘Center,;„Ńż‚ƒź˝'ž…šŇ‡É¸ ţř …ž'˝źż„;zNoneCenterRight8@X@@4@static1Order:*  : m€Default,  :a 3D Control)‘‘ Long Integer ORDER_NUMBERISequenceK ImmediateJ ORDER_NUMBERSLUm€Defaulto€Anyn€Default ţř m€Default :   *Order:static14@@X@8@RightCenterzNone;„żź˝'ž…€™€˜€Ÿ€ž€ź€˝€'€ž‘‘€…€Ś€š€“€€–€Ň€’€‘€€Ž€•€”€‡€†€Š€Ę€  s °'lDefaultf,98ÓÍĚËž˝źż„;:*…UUUUUUĹżUUUUUUĹż repeat_dummy1 s °lDefault:,* repeat_dummy2‘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{‘‘‘‘‘‘‘‘@u‰  ąEřKžńC•îF˜ěđ0000002C32D04B3D00000074:000000000000.000108FCfrmPickColorsđ0000002D32D38BF10000007C:000000000000.00010960 frmColorQuantityđ0000002E32DD689800000084:000000000000.000109C4 repOrderđ0000003032DF1B1600000094:000000000000.00010A29 bmptruckđ0000003132DF1B1F00000096:000000000000.00010A2A bmptraveđ0000‘‘003232DF1B2600000098:000000000000.00010A2Bbmpquesđ0000003332DF1B2F0000009A:000000000000.00010A2Cbmpcourđ0000003532DF1C19000000A8:000000000000.00010A2EfrmCarrierTypeđ0000003632EB413D0000000E:000000000000.00010A8CfrmItemDetailđ00000037334A4BC400000045:000000000000.00010AF0frmLinkđ00000038334A4BCF00000031:000000000000.00010AF1 dlgImportđ0000003‘‘9334A4BD50000004E:000000000000.00010AF2 frmSelectColumns‘‘‘‘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‘jwü>xŇ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-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 SystemjjOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsŰ ˜‘nkkl€Default6~DefaultËĚÍÓ„˘Ă%5 3ľŤđż:ŽŠ‹Œ‰ˆ,D*Ź÷´Pick Your Colors—! jj#Refuse if Children Present$Refuse if Children Presentš œ›™˜Ÿž" On Masterź˝'ž frmPickColorsÖ×…ŚŞ¨§Ą+š“–Ň’‘Ž•”‡†Š4MCHÄQFetch As Needed­uj‘xü#yŇ@€s@ńfĘ-;2 Automatic2Standard Documenthijk  ’%66n€Defaulto€Anym€Default„UŃLJK ImmediateINone Long Integer)0ża 3D Control:‚ƒ  ,*ź˝'ž‘‘1fldTotal…xy*Ŕi@m@šŇ‡4ÉE€E@8@98Center¸,;  ţř m€Default„ ż:   *Total for this item:ź˝'žstatic3…€J@@m@€b@3@RightTopzNone;  ‘‘ćŸ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 String‘‘ 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(‘‘yü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ź˝'‘‘žbtnOK…ŔR@Pq@@S@8@98; ţř m€Default„€ ż€:  *Colors Selectedź€˝€'€ž€static2…€€f@@ŕa@3@CenterCenterzNone; ţř m€Default„€ ż€:  *‘‘Colors Availableź€˝€'€ž€static1…€.@@ a@1@CenterCenterzNone;D  MasterLibrary0000000F32D22F99 clsPickList Ą2S[;-Ęf89h@b@QFetch As NeededHCM4Š†‡”•Ž‘’Ň–“š9@‘‘€f@+Ś…clsColorsSelectedž'˝ź" On MasteržŸ˜™›œ š$Refuse if Children Present#Refuse if Children Present !—Class15´*D,ˆ‰Œ‹ŠŽ:żľ3%„ÓÍĚgfrmColorQuantity.udpCallingList = Self frmColorQuantity.OpenModal(0) Inherited.ChildD‘‘zü{ŇblClick(child) ˍ~Default6lDefault<8 clsColorsAvailable=:;697 Ű>,,lDefault„UString)ża 3D Control:‚ƒ  Ž*3ź˝'ž lstPickList…@šŇ‡4ɑ‘Eb@Ŕg@98'"This is a dummy value" = 0Ȑ¸,;D  MasterLibrary0000000F32D22F99 clsPickList Ą2S[;-Ęf89h@b@QFetch As NeededHCM4Š†‡”•Ž‘’Ň–“š9@(@+Ś…clsColorsAvailablež‘‘'˝ź" On MasteržŸ˜™›œ š$Refuse if Children Present#Refuse if Children Present !—Class15´*D,ˆ‰Œ‹ŠŽ:żľ3%„ÓÍĚefrmColorQuantity.udpCallingList = Self frmColorQuantity.OpenModal(0) Inherited.ChildDblClick(child)ˍ~Default6‘‘lDefault<8 clsColorsSelected=:;697 Ű>,,lDefault„UString)ża 3D Control:‚ƒ  Ž*3ź˝'ž lstPickList…@šŇ‡4ɐEb@Ŕg@98'"This is a dummy value" = 0Ȑ¸‘‘{ü Ď,;MCHQFetch As Neededb@h@98fĘ-; Ű>,,;,¸Č'"This is a dummy value" = 089Ŕg@b@Eɐ4‡Ňš@… lstPickListž'˝ź3*Ž  ƒ‘‘‚:a 3D Controlż)StringU„lDefaultŞK¸QDBArial˙˙˙˙€–˙*.*K˙˙˙˙‘‘ŇQuickPak Professional for Windows, Copyright (c) 1995 Crescent Division of Progress Software Corporation.‘‘‘‘|` ő‚}~€‚‘‘‘‘‘‘‘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@B@EÉ4‡Ňš(@€f@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; ţř m€Default„ ż:  *ź˝'žlblColor…Ŕ`@&@€J@8@StartTopzNone; ţř m€Default„ ż:   *How many‘‘ items inź˝'žstatic1…@"@@`@8@StartTopzNone;=@98; ţř ;zNoneTopStart8@€J@&@Ŕ`@…lblColorž'˝ź*  :ż „m€Default ţř ;zNon‘‘` ‚ŇeTopStart8@@`@"@@…static1ž'˝źHow many items in*  :ż „m€Default ă ĐĎॹá>ţ˙ ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ý˙˙˙ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙Root Entry˙˙˙˙˙˙˙˙lňꆕ“ Ż#Lŕ.ۙuýťOle ˙˙˙˙˙˙˙˙˙˙‘‘˙˙Contents˙˙˙˙sOlePres000˙˙˙˙˙˙˙˙˙˙˙˙ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘‚` 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;‘jƒŇĐ?ŤŞŞŞŞĘ@Đ?98f;ËĚÍÓ„żź˝'ž… s °;f898@°}@… repeat_panelž'˝ź*,:ż„ÓÍĚËl€Default "l­Ë:* curOrderItemjj@@>@6@;„€żĆ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¸€É€‡€Ň€š€…€€ž€'€˝€ź€ƒ€‚€ż€Ń€„€;,Right89jj8@ŔW@E4 w@y*x LINE_TOTAL1*,Currency  :a 3D Control)Double =(QUANTITY*PRICE) * (1-DISCOUNT)INoneK ImmediateJLUm€Defaulto€Anyn€Default ’%66¸€É€‡€Ň€š€…€€ž€'€˝€ź€ƒ€‚€ż€Ń€„€;jj,Right898@P@E4o@y*xPRICE1*,Currency  :a 3D Control)Double~=SqlLookup(ORDERDAT, "select price from items where item_number = " & IIF(ISNULL(popOrderItem.Value), 0, popOrderItem.Value) )INoneK ImmediateJLUm€Defaulto€Anyn€Defaujj„Ä ę …†‡ˆ‰Š‹ŒŽjjjjjjj‘…Ä †ŇIBM1252 cpprpscr_nlprtrecproptbl!Ś =fonttblť ÄArial MS Sans Serif System FontArial Rounded MT Bold Courier NewApplication FontGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAl‘‘gerianMonotype 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 NewtSpecialNewtPCNewtLucida Sans UnicodeA‘‘badi MT Condensed LightCopperplate Gothic Light Carnati SSi Comic Sans MSITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBoldFinal FrontierLucida HandwritingNews Gothic MTLucida Console 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łž˛‘‘Ě‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–ž’Š @‚l‚r ‚o–ž’Š @FixedSysOCR A ExtendedAbadi MT CondensedAbadi MT Con‘‘densed Extra BoldAmerican UncialSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BT Lucida SansLucia 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 2Bookshel‘‘†Ä -‡Ňf 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 A‘‘rabic SihafaKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password TechnicalAardvark PalmSpringsArabiaBahamas Avant GardeIPA Password mask Zapf DingbatsNULLStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsŁ7  Ř5~>>l€Default3:,D* Sales OrdersrepOrder‘‘4 ORDER_ITEMS_VMCHORDERDATQFetch All Immediately€ƒ@pt@f-;€Ë€Ě€€Í€Ó€„€%€ľ€ż€Ž€Š€‹€Œ€‰€ˆ€´€ź€˝€'€ž€…€Ś€¨€§€š€“€€–€Ň€’€‘€€Ž€•€”€‡€†€Š€Ę€  bčë:* ReportHeader‘‘€ƒ@;ˀ̀€Í€Ó€„€ż€ź€˝€'€ž€…€  ¸đ:.* PageHeader€ƒ@N@;ˀ̀€Í€Ó€„€ż€ź€˝€'€ž€…€ ţř …€ž€'€˝€ź€ż€„€;zNoneCenterCenter8@@a@2@‘‘‡Ä ˆŇ`n@static3 Sales Order*  : m€Default  Ófü:* ORDER_NUMBER* GroupHeader-N@@Ŕe@;ˀ̀€Í€Ó€„€ż€ź€˝€'€ž€…€ vţř m€Default :   * Line Totalstatic5‘‘ €@Ŕb@X@8@StartCenterzNone;„€ż€ź€˝€'€ž€…€ sţř m€Default :   *Discountstatic4€v@Ŕb@€P@8@StartCenterzNone;„€ż€ź€˝€'€ž€…€ pţř m€Default :  ‘‘ *Pricestatic12Ŕr@Ŕb@€H@8@CenterCenterzNone;„€ż€ź€˝€'€ž€…€ mţř m€Default :   *Quantitystatic11n@Ŕb@€N@8@StartCenterzNone;„€ż€ź€˝€'€ž€…€ jţř ‘‘m€Default :   * Order Itemstatic10E@Ŕb@^@8@StartCenterzNone;„€ż€ź€˝€'€ž€…€ ” Ą2SSl€Default6~Default3:,D*form1! ORDER_NUMBER  ORDER_NUMBER#Refuse if Children Present GroupHeader$Refuse if C‘‘ˆÄ ‰Ňhildren Present" On Masterform1+8@@4ORDERSMCHORDERDATQFetch All Immediately‚@ `@98f-;€Ë€Ě€€Í€Ó€„€%€ľ€ż€Ž€Š€‹€Œ€‰€ˆ€´€—€€š€ €œ€›€™€˜€Ÿ€ž€ź€˝€'€ž€…€Ś€š€“€‘‘€–€Ň€’€‘€€Ž€•€”€‡€†€Š€Ę€ gţř m€Default :   *Order:static1@z@.@N@8@EndCenterzNone;„€ż€ź€˝€'€ž€…€ …’%66n€Defaulto€Anym€DefaultULJK ImmediateINone ZI‘‘PString)a 3D Control:   ,*1ZIPxy*`u@ŔX@4EH@8@98Start,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€ †ţř m€Default :   *Zip:static23‘‘ s@X@>@8@EndCenterzNone;„€ż€ź€˝€'€ž€…€ ‡’%66n€Defaulto€Anym€DefaultULJK ImmediateINoneSTATEString)a 3D Control:   ,*1STATExy*n@X@4EH@8@9‘‘‰Ä ŠŇ8Start,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€ ˆţř m€Default :   *State:static22@g@X@H@8@EndCenterzNone;„€ż€ź€˝€'€ž€…€ ‰’%66n€Defaulto‘‘€Anym€DefaultULJK ImmediateINoneCITYString)a 3D Control:   ,*1CITYxy*N@X@4E€\@8@98Start,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€ Šţř m€‘‘Default :   *City:static212@X@B@8@EndCenterzNone;„€ż€ź€˝€'€ž€…€ ‹’%66n€Defaulto€Anym€DefaultULJK ImmediateINone(ADDRESS2String)a 3D Control:   ,*‘‘1ADDRESS2xy*N@R@4E€l@8@98Start,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€ ’%66n€Defaulto€Anym€DefaultULJK ImmediateINone(ADDRESS1String)a 3D Control:   ,‘‘ŠÄ ‹Ň*1ADDRESS1xy*N@H@4E€l@8@98Start,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€ ’%66n€Defaulto€Anym€DefaultULJK ImmediateINone( CUSTOMER_NAMEString)a 3D Cont‘‘rol:   ,*1 CUSTOMER_NAMExy*N@2@4E€l@8@98Start,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€ ţř m€Default :   *Name:static18@2@‘‘H@8@EndCenterzNone;„€ż€ź€˝€'€ž€…€ ‘’%66n€Defaulto€Anym€DefaultULJK ImmediateINone ORDER_NUMBER Long Integer)a 3D Control:   ,*1 ORDER_NUMBERxy*`~@.@4ER@8@98‘‘Center,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€ h k|"l€Default{Default|a 3D Control:*rect1Ô?"@@€`@98f;ˀ̀€Í€Ó€„€ż€ź€˝€'€ž€…€ */[:*Detail+ ORDER_ITEM‘‘‹Ä ŒŇ@m@€ƒ@5@;ˀ̀€Í€Ó€„€ż€ź€˝€'€ž€…€ 3’%66¸€É€‡€Ň€š€…€€ž€'€˝€ź€ƒ€‚€ż€Ń€„€;,End894@R@E4 €@y*x LINE_TOTAL1*,Currency‘‘  :aStandard Control)Double =(QUANTITY*PRICE) * (1-DISCOUNT)INoneK ImmediateJLUm€Defaulto€Anyn€Default 0’%66n€Defaulto€Anym€DefaultULJK ImmediateINoneĐ DESCRIPTIONString)aStandard Control:  ,*1‘‘ DESCRIPTIONxy*E@4E@g@4@98Start,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€ /’%66n€Defaulto€Anym€DefaultULJK ImmediateINonePRICE Long Integer)aStandard Control:  ‘‘Currency,*1PRICExy*`r@4EH@4@98End,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€ .’%66n€Defaulto€Anym€DefaultULJK ImmediateINoneDISCOUNTDouble)aStandard Control:‘‘ŒÄ Ň  Percent,*1DISCOUNTxy*@w@4EH@4@98End,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€ -’%66n€Defaulto€Anym€DefaultULJK ImmediateINoneQUANTITY‘‘ Long Integer)aStandard Control:  ,*1QUANTITYxy*n@4EK@4@98Center,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€ bčë:* GroupFooterŕo@€ƒ@E@;ˑ‘€Ě€€Í€Ó€„€ż€ź€˝€'€ž€…€  Á°­>Upper Left to Lower Righta 3D Control:*line1 €@@R@đ?;„€ż€ź€˝€'€ž€…€ °ţř m€Default :  * Total Value:static2€y@(@X@4@End‘‘CenterzNone;„€ż€ź€˝€'€ž€…€ ­’%66n€Defaulto€Anym€DefaultULJK ImmediateINone=SUM(LINE_TOTAL)Double)aStandard Control:  Currency,*1 TOTAL_VALUExy* €@(@4ER@4@98End,;‘jÄ ŽŇ„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€  ˝‹:/*0 PageFooterr@€ƒ@>@;ˀ̀€Í€Ó€„€ż€ź€˝€'€ž€…€ ¸’%66n€Defaulto€Anym€DefaultULJK ImmediateINonejj=DATE()Date)aStandard Control:   Oracle Date,*1field3xy*>@@4ER@4@98Start,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€  bčë':* ReportFooterpt@€ƒ@jj;ˀ̀€Í€Ó€„€ż€ź€˝€ž€…€ ReportFooterpt@€ƒ@;ˀ̀€Í€Ó€„€ż€ź€˝€ž€…€1 TOTAL_VALUExy* €@(@4ER@4@98EndCenter$;€Ě€ş€}€~€ˇ€¸€š€€€€´€Í€jj‚€Ä€ł€ b4őŻ€€š€¸€ˇ€ş€€Î€Č€€Ç€Ć€;>@€ƒ@r@ PageFooter0"/: ¸oü66n€Defaulto€Anym€DefaultULJK ImmediateINone=DATE()Date!a 3D Control:  ,"1fieldj‘ŽÄ Ň3xy*>@@4ER@4@98StartCenter$;€Ě€ş€}€~€ˇ€¸€š€€€€´€Í€‚€Ä€ł€ ` €€š€¸€ˇ€ş€€Î€Č€€Ç€Ć€;€ƒ@ŕs@ ReportFooter":4@R@E‘‘4@>@y*xfield31",  :a 3D Control!Date=DATE()INoneK ImmediateJLUm€Defaulto€Anyn€Default * :" ReportFooterŕs@€ƒ@;ƀǀ€Č€Î€€ş€ˇ€¸€š€€€‘‘ˇ€¸€š€€€€´€Í€‚€Ä€ł€ * €€š€¸€ˇ€ş€€Î€Č€€Ç€Ć€;€ƒ@ŕs@ ReportFooter":" Total weight:static1N@(@X@4@EndCenterzNone;€ş€ˇ€¸€š€€€ Žoü66n€Defaul‘‘to€Anym€DefaultULJK ImmediateINone=SUM(EXTENDED_WEIGHT)Double!aStandard Control:  General Number,"1 TOTAL_WEIGHTxy*e@(@4EN@4@98EndCenter$;€Ě€ş€}€~€ˇ€¸€š€€€€´€Í€‘jÄ ű‚€Ä€ł€ ­oü66n€Defaulto€Anym€DefaultULJK ImmediateINone=SUM(EXTENDED_VALUE)Double!a 3D Control:  Currency,"1 TOTAL_VALUExy* €@(@4ER@4@98EndCenter$;jj€Ě€ş€}€~€ˇ€¸€š€€€€´€Í€‚€Ä€ł€ ,4őŻ:/"0 PageFooter@t@€ƒ@>@;ƀǀ€Č€Î€€ş€ˇ€¸€š€€€ ¸oü66n€Defaulto€Anym€DefaultULJK ImmediateINone=DATE()Date!a 3D Control:jj  ,"1field3xy*>@@4ER@4@98StartCenter$;€Ě€ş€}€~€ˇ€¸€š€€€€´€Í€‚€Ä€ł€ * :" ReportFooter v@€ƒ@;ƀǀ€Č€Î€€ş€ˇ€jj¸€š€€€€€€jj‘Ňlt Ë--l€Default„U ORDER_ITEM Long Integer)ża 3D Control:‚ƒ   Ž*3popup1ź˝'ž popOrderItemŒIF keycode = 17 THEN frmCatalog.popItems.Value = Value frmCatalog.OpenModal(0) Value = frmCatalog.popItems.Value END IF …B@šŇjj‡4ÉE€c@8@98'6=AT ORDERDAT select DESCRIPTION,ITEM_NUMBER from ITEMSȸ,; ’%66n€Defaulto€Anym€Default„€UŃ€LJK ImmediateINoneQUANTITY Long Integer)ż€a 3D Control:‚ŰDIM nOrderItem AS Integer, nOrderNumber AS Integer, nOrderItemID AS Integer DIM nQuantity AS Integer, nColorNumber ASjj 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().GetColVal("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.udjjmClearList() 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 = :nOrderItem 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_IDj‘‘ ’Ň = :nOrderItemID AND & COLOR_ID = :nColorNumber IF nQuantity > 0 THEN sColor(nPointer) = sColor(nPointer) & " - " & CSTR(nQuantity) frmPickColors.clsColorsSelected.udmAddItem(sColor(nPointer), CSTR(nColorID(nPointer))) frmPickColors.fldTotal.Value = frmPickColors.fldTotal.Value + nQuantity ELSE frmPickColors.clsColorsAvailable.udmAddItem(sColor(nPointer), CSTR(nColor‘‘ID(nPointer))) END IF nPointer = nPointer + 1 nQuantity = 0 LOOP rptOrderItems.SetFocus() frmPickColors.OpenModal(0) rptOrderItems.GetRecordset().SetCurRow(nRow) QUANTITY.Value = frmPickColors.fldTotal.Value ELSE MSGBOX( "You must have an Order Item ID before you can select colors", & 16, "Cannot Pick Colors") END IF ƒ€   ,*ź€˝€'€ž€1‘‘QUANTITY€…€xy*h@š€Ň€‡€4É€EL@8@98Center¸„,; ’%66¸€É€‡€Ň€š€…€€ž€'€˝€ź€ƒ€‚€ż€Ń€„€;,Right898@P@E4s@y*xDISCOUNT1*,Pe‘‘rcent  :a 3D Control)DoubleDISCOUNTINoneK ImmediateJLUm€Defaulto€Anyn€Default ’%66n€Defaulto€Anym€DefaultULJ ITEM_NUMBERSKDeferredINone ORDER_ITEM_ID Long Integer)a 3D Control:  ,*1‘‘’ “Ň ORDER_ITEM_IDxy*(@4E8@8@98Start,;„Ńż‚ƒź˝'ž…šŇ‡É¸ ’%66n€Defaulto€Anym€DefaultULJK ImmediateINone( SHIP_NAMEString)a 3D Control:‘‘   ,*1 SHIP_NAMExy*Ŕ]@`f@4Er@8@98 Start,;„Ńż‚ƒź˝'ž…šŠIF ISNULL(Value) THEN SHIP_NAME.Visible = False fldDefault.Visible = True ELSE SHIP_NAME.Visible = True fldDefault.Visible = False END IF ҇ɸ ţř ‘‘m€Default :   * Ship To Name:static9 @€f@[@8@RightCenterzNone;„żź˝'ž… ţř m€Default :   * Telephone:static8`h@@X@8@RightCenterzNone;„€ż‘‘€ź€˝€'€ž€…€  ’%66n€Defaulto€Anym€DefaultULJK ImmediateINoneSTATEString)a 3D Control:   ,*1STATExy*@t@b@4EB@8@98Start,;„Ńż‚ƒź˝'ž‘j“ Đ…šŇ‡É¸  ’%66n€Defaulto€Anym€DefaultULJK ImmediateITable, MAX()+CounterIncByCITYString)a 3D Control:   ,*1CITYxy*^@b@4Eh@8@98Start,jj;„Ńż‚ƒź˝'ž…šŇ‡É¸ ţř m€Default„ ż:   *Address:ź˝'žstatic3…4@R@X@8@RightCenterzNone; ţř m€Default :   * Cujjstomer:static24@B@X@8@RightCenterzNone;„żź˝'ž… ’%66n€Defaulto€Anym€DefaultULJ ORDER_NUMBERSK ImmediateISequence ORDER_NUMBER Long Integer)a 3D Control:   ,*1 ORDER_NUMBERxy*jj^@@4EN@8@98Center,;„Ńż‚ƒź˝'ž…šŇ‡É¸ ţř …ž'˝źż„;zNoneCenterRight8@X@@4@static1Order:*  : m€Defaultjj”) Ô••jjjjjjjj•) 6BM66(żżżżżżżżżŔŔŔŔÜŔđȤ€€€€€€€€€˙űđ€€@˙€@@¤Čđ€˙  ¤@€˙€@€€@jjjjđű˙¤  €€€˙˙˙˙˙˙˙˙˙˙˙˙řřřřřřjjjj–* Ô——jjjjjjjj—* 6BM66(żżżżżżżżżŔŔŔŔÜŔđȤ€€€€€€€€€˙űđ€€@˙€@@¤Čđ€˙  ¤@€˙€@€€@jjjjđű˙¤  €€€˙˙˙˙˙˙˙˙˙˙˙˙řřř˙řřřřř˙˙řř˙˙˙řüüüüüü˙˙řü˙˙˙řü˙˙řü˙˙˙ř˙˙ř˙˙ř˙jjjj˜+ Ô™™jjjjjjjj™+ 6BM66(żżżżżżżżżŔŔŔŔÜŔđȤ€€€€€€€€€˙űđ€€@˙€@@¤Čđ€˙  ¤@€˙€@€€@jjjjđű˙¤  €€€˙˙˙˙˙˙˙˙˙˙˙˙řřřřřřřřřjjjjš, Ô››jjjjjjjj›, 6BM66(żżżżżżżżżŔŔŔŔÜŔđȤ€€€€€€€€€˙űđ€€@˙€@@¤Čđ€˙  ¤@€˙€@€€@jjjjđű˙¤  €€€˙˙˙˙˙˙˙˙˙˙˙˙jjj‘œ. ŇSans UnicodeAbadi MT Condensed LightCopperplate Gothic Light Carnati SSi Comic Sans MSITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBoldFinal FrontierLucida HandwritingNews Gothic MTLucida Console 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łž˛‘‘Ě‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–ž’Š @‚l‚r ‚o–ž’Š @Fixed‘‘SysOCR A ExtendedAbadi MT CondensedAbadi MT Condensed Extra BoldAmerican UncialSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BT Lucida SansLucia 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 BTCel850WinPTFnt‘‘WinPTIntWP Arabic SihafaKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password TechnicalAardvark PalmSpringsArabiaBahamas Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottageNULLStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium Textcontrolsw@ 8˜‘nkml€Default6~Default5 3:,‘‘.  žŇD*Carrier Type Assignment! #Refuse if Children Present$Refuse if Children Present" On MasterfrmCarrierType+4MCHQFetch As Needed~@r@98f-;2 Automatic2Standard Documenthijk€Ë„Ě„€‘‘Í€Ó€„€˘€Ă€%€ľ€Ť€đ€ż€Ž€Š€‹€Œ€‰€ˆ€Ź€÷FApplication.udmDefMenuBar( Self ) Application.udmDefToolBar( Self ) ´€—€€š€ €œ€›€™€˜€Ÿ€ž€ź€˝€'HRectHelp.Visible = FALSE RectHelp.PositionX = 1 RectHelp.PositionY = 1ž€€Ö€×€…€Ś€Ş€¨€§€Ą€š€“€€–€Ň€’€‘€€Ž€•€”‘‘€‡€†€Š€Ä€€€­€ń€Ę€ 6 k|"…ž'˝źż„ÓÍĚË;f892@€P@ ?Ü?rectHelp*:a 3D Control|{ Raised Thinl€DefaultFňSelf.PositionX = pForm.PositionX + 1 + CINT( x / 2 ) Self.PositionY = pForm.PositionY + pForm.SizeY + CINT( y / 3) Self.SizeX =‘‘ CINT( LEN(pHelp) * 6.5 ) txtHelp.SizeX = Self.SizeX txtHelp.Label = pHelp Self.Visible = TRUE 8ţř …ž'˝źż„;zNoneCenterCenter2@€P@txtHelpHelp*  : m€Default % Ą2SVĘ€Š€†€‡€”€•€Ž€€‘€’€Ň€–€€“€‘‘ž.  ŸŇš€Ś€…€ž€'˝€ź€ž€Ÿ€˜€™€›€œ€ €š€€—€´€ˆ€‰€Œ€‹€Š€Ž€ż€ľ€%„€Ó€Í€€Ě€Ë€€;-f898@8@QFetch As NeededHCM4(@(@+embMove" On Master$Refuse if Children Present‘‘#Refuse if Children Present !form1*D,:3~Default6lDefaultB]' Check mouse cursor location DIM vRec AS Object DIM vRow As Integer IF (x > repOrders.PositionX) AND (x < repOrders.PositionX + repOrders.SizeX) AND & (y > repOrders.PositionY) AND (y < repOrders.PositionY + repOrders.SizeY) THEN vRow = CINT( ( y - repOrders.PositionY ) / 25 ) + 1 + vsbOrders.ScrollPos vRec = repOrders.G‘‘etRecordset() vRec.SetCurRow( vRow ) vRec.SetColVal( "CARRIER_TYPE", pForm.Label ) END IF ' Set the cursor back to normal, hide this form and put it aside Self.Visible = FALSE Application.SetCursor( 1 ) Self.PositionY = 2 Self.PositionX = 2 CŰ' Reposition form to follow mouse pointer Self.PositionX = x - 11 Self.PositionY = y - 5 ' ' Change cursor style when over repOrders IF (x > repOrders.PositionX) AND (x < repOrders.PositionX + repOrders.SizeX) AND & (y > repOrders‘‘.PositionY) AND (y < repOrders.PositionY + repOrders.SizeY) THEN Self.ColorFill = COLOR_GREEN Application.SetCursor(CURSOR_OPENHAND) ELSE Self.ColorFill = COLOR_RED Application.SetCursor(CURSOR_CLOSEDHAND) END IF DœSelf.BitMap = pForm.BitMap Self.ColorFill = COLOR_RED Self.PositionX = pForm.PositionX - 2 Self.PositionY = pForm.positionY - 2 Self.Visible = True $ţř …€ž€'˝€ź€ż€„€;zNoneBottom‘‘Ÿ.   ŇLeft89Đ?Ř?č?@static7Lbs*  : mDefault #ţř …€ž€'€˝€ź€ż€„€;zNoneBottomLeft898@H@R@u@static2Carrier *  : m€Defau‘‘lt "ţř …€ž€'€˝€ź€ż€„€;zNoneBottomLeft89Đ?đ?č?ŕ?static6Order*  : m€Default  Ą2SSĘ€Š€†€‡€”€•€Ž€€‘€’€Ň€–€€“€š€Ś€…€ž embMove.udmMouseUp( Self, x, y )'aIF rectHelp.Visible‘‘ = FALSE THEN rectHelp.udmPutHelp( Self, " Unassigned ", x, y ) END IF˝embMove.udmMouseMove( x, y )źembMove.udmMouseDown( Self )ž€Ÿ€˜€™€›€œ€ €š€€—€´€ˆ€‰€Œ€‹€Š€Ž€ż„ľ€%€„„Ӏ̀€Ě€Ë€€;-f8 94@4@QFetch As NeededHCM48@R@+embQu‘‘es" On Master$Refuse if Children Present#Refuse if Children Present !0*D,:3~Default6BMPQUESl€Default  Ą2SSĘ€Š€†€‡€”€•€Ž€€‘€’€Ň€–€€“€š€Ś€…€ž embMove.udmMouseUp( Self, x, y )'\IF rectHelp.Visible = FALSE THEN rectHelp.udmPutHelp( Self, " Truck ", x, y ) END IF˝‘‘ .  ĄŇembMove.udmMouseMove( x, y )źembMove.udmMouseDown( Self )ž€Ÿ€˜€™€›€œ€ €š€€—€´€ˆ€‰€Œ€‹€Š€Ž€ż€ľ€%€„€Ó€Í€€Ě€Ë€€;-f894@4@QFetch As NeededHCM48@€y@+embTruck" On Master$Refuse if Ch‘‘ildren Present#Refuse if Children Present !3*D,:3~Default6BMPTRUCKl€Default  Ą2SSĘŠ†‡”•Ž‘’Ň–“šŚ…ž embMove.udmMouseUp( Self, x, y )'bIF rectHelp.Visible = FALSE THEN rectHelp.udmPutHelp( Self, "Air - Courier", x, y ) END IF˝embMove.udmMouseMove( x, y )ź‘‘embMove.udmMouseDown( Self )žŸ˜™›œ š—´ˆ‰Œ‹ŠŽżľ%„ÓÍĚˍ;-f894@4@QFetch As NeededHCM48@€s@+embAir" On Master$Refuse if Children Present#Refuse if Children Present !‘‘2*D,:3~Default6BMPTRAVEl€Default  Ą2SSĘ€Š€†€‡€”€•€Ž€€‘€’€Ň€–€€“€š€Ś€…€ž embMove.udmMouseUp( Self, x, y )'bIF rectHelp.Visible = FALSE THEN rectHelp.udmPutHelp( Self, "Local Courier", x, y ) END IF˝embMove.udmMouseMove( x, y )źembMove.udmMouseDown( Self )ž€Ÿ€˜€™€›€œ€‘‘Ą.  ˘Ň €š€€—€´€ˆ€‰€Œ€‹€Š€Ž€ż€ľ€%€„€Ó€Í€€Ě€Ë€€;-f894@4@QFetch As NeededHCM48@h@+ embCourier" On Master$Refuse if Children Present#Refuse if Children Present !1*D,:‘‘3~Default6BMPCOURl€Default 2]¸PQE†l€Default3:,D*! #Refuse if Children Present$Refuse if Children Present" On Master repOrders+8@X@4ORDERSMCHORDERDATQFetch All Immediately@z@e@98f-;€Ë€Ě€€‘‘Í€Ó€„€%€ľ€ż€Ž€Š€‹€Œ€‰€ˆ€´€—€€š€ €œ€›€™€˜€Ÿ€ž€ź€˝€'€ž€…€Ś€š€“€€–€Ň€’€‘€€Ž€•€”€‡€†€Š€Ę€  s °f,ÓÍĚËž˝źż„;:98*…UUUUUUĹż‘‘UUUUUUĹż repeat_dummy1lDefault' s °…ž'˝źż„ÓÍĚË;f89Đ?€@Đ? repeat_dummy2*,:lDefault s °l€Default:,* repeat_panel@z@8@98f;‘‘˘.  ŁŇˀ̀€Í€Ó€„€ż€ź€˝€'€ž€…€  1 Ą2SSĘ€Š€†€‡€”€•€Ž€€‘€’€Ň€–€€“€š€Ś€…€ž€'€˝€ź€ž€Ÿ€˜€™€›€œ€ €š€€—€´€ˆ€‰€Œ€‹€Š€Ž€ż€ľ€%€„€Ó€Í€€Ě€Ë€€;-f‘‘898@>@QFetch As NeededHCM4 @+ embCarrType" On Master$Refuse if Children Present#Refuse if Children Present !form1*D,:3~Default6BMPQUESl€Default ’%66¸€É€‡€Ň€š€…€€ž€'€˝€ź€ƒ€‚€ż€Ń‘‘€„€;,Left898@€p@E4N@y*xfldOrder1*,  :a 3D Control)StringQ=NVL(SHIP_NAME.Value,CUSTOMER_NAME.Value) & ", " & CITY.Value & " " & STATE.ValueINoneK ImmediateJLUm€Defaulto€Anyn€Default ’%66¸€É€‘‘‡€Ň€š€…€€ž€'˝€ź€ƒ€‚€ż€Ń€„€;,Left89Đ?Đ?E4ř?y*x SHIP_NAME1*,  :aStandard Control)String SHIP_NAME(INoneK ImmediateJLUmDefaultoAnynDefault ‘‘Ł.  ¤Ň’%66¸€É€‡€Ň€š€…€€ž€'€˝€ź€ƒ€‚€ż€Ń€„€;,Left8 98@Đ?E4ô?y*x CUSTOMER_NAME1*,  :aStandard Control)String CUSTOMER_NAME(INoneK ImmediateJL‘‘Um€Defaulto€Anyn€Default ’%66¸€É€‡€Ň€š€…€€ž€'€˝€ź€ƒ€‚€ż€Ń€„€;,Right898@P@E4 v@y*x fldWeight1*,Fixed  :a 3D Control)DoubleŽ=SQLLOOKUP("Select SUM(I.ITEM_WEIGHT_L‘‘BS * O.QUANTITY) From ORDER_ITEMS O, ITEMS I Where I.ITEM_NUMBER = O.ORDER_ITEM And O.ORDER_NUMBER = " & repOrders.ORDER_NUMBER.Value)INoneK ImmediateJLUm€Defaulto€Anyn€Default ’%66¸€É€‡€Ň€šInherited.PostChange() SELECT CASE CARRIER_TYPE.Value CASE 1 embCarrType.ColorFill = 4 ' embCarrType.Bitmap = TopContainer.embCourier.Bitmap CASE 2 embCarrType‘‘.ColorFill = 6 ' embCarrType.Bitmap = TopContainer.embAir.Bitmap CASE 3 embCarrType.ColorFill = 8 ' embCarrType.Bitmap = TopContainer.embTruck.Bitmap CASE ELSE embCarrType.ColorFill = 10 ' embCarrType.Bitmap = TopContainer.embQues.Bitmap END SELECT …€€ž€'€˝€ź€ƒ€‚€ż€Ń€„€;,Left89Đ?Đ?E4 @y‘‘¤.  ĽŇ*x CARRIER_TYPE1*,  :aStandard Control)0 Long Integer CARRIER_TYPEINoneK ImmediateJLUm€Defaulto€Anyn€Default ’%66¸€É€‡€Ň€š…€€ž€'€˝€ź€ƒ€‚€ż€Ń€„€;,Left89‘‘Đ?Đ?E4@y*xSTATE1*,  :aStandard Control)StringSTATEINoneK ImmediateJLUm€Defaulto€Anyn€Default ’%66¸€É€‡€Ň€š€…€€ž€'€˝€ź€ƒ€‚€ż€Ń€„€;,Left8‘‘9Đ?Đ?E4ü?y*xCITY1*,  :aStandard Control)StringCITYINoneK ImmediateJLUm€Defaulto€Anyn€Default ’%66¸€É€‡€Ň€š„…€€ž€'€˝€ź€ƒ€‚€ż€Ń€„€;,‘‘End898@€B@E48@y*x ORDER_NUMBER1*,  :a 3D Control) Long Integer ORDER_NUMBERINoneK ImmediateJLUm€Defaulto€Anyn€Default  l­ËŇ€š€…€ž€'€˝€ź€ż€„„;89‘jĽ. Ź7@7@đ?đ?currow1*: Sč]Ň€š„…€ž€'€˝€ź€ˆ€‰€Œ€‹€Š€ż€„€;8 9e@1@  repOrdersd=<X@Ŕ{@ vsbOrders*:€ƒ€ź€˝€'€ž€€…€š„Ň€‡€É€¸€  jjl­ËŇ€š€…€ž€'€˝€ź€ż€„„;898@8@currow1*: Sč]Ň€š„…€ž€'€˝€ź€ˆ€‰€Œ€‹€Š€ż€„€;8 9e@1@  repOrdersd=<X@Ŕ{@ vsbOrders*: Sč]:*jj vsbOrdersŔ{@X@<=d  repOrders1@e@98 ;„€ż€Š€‹€Œ€‰€ˆ€ź€˝€'€ž€…€š„Ň€*currow18@8@98;„„ż€ź€˝€'€ž€…€š€Ň€ Sč]:* vsbOrdersŔ{@jjX@<=d  repOrders1@e@98 ;„€ż€Š€‹€Œ€‰€ˆ€ź€˝€'€ž€…€š„Ň€j‘Ś zCust = Cmd_FirstUserCommand + 12 CONST Cmd_OrdRate = Cmd_FirstUserCommand + 13 CONST Cmd_RepOrder = Cmd_FirstUserCommand + 14 CONST Cmd_CarrType = Cmd_FirstUserCommand + 15 ' GLOBAL mnuOrd As Object ' CONST cOk = 0 CONST COLOR_RED = 2 CONST COLOR_GREEN = 7 CONST CURSOR_OPENHAND = 3 CONST CURSOR_CLOSEDHAND = 4 CONST CURSOR_BUSY = 1 CONST MSGBOX_YES = 6 CONST MSGBOX_YESNO = 292ling form pForm.SetToolBar(tbrMain)‘‘ e a toolbar for use by most forms ' 'Declare object variable for toolbar DIM tbrMain AS Object 'Convert the object variable into a toolbar object tbrMain = NEW ToolBar ' 'Assign default buttons to toolbar pForm.DefaultToolBar(tbrMain) ' 'Custom Toolbar entries tbrMain.TBAppendButton( 0, NULL, ToolbarStyle_Separator, 0) tbrMain.TBAppendButton( Cmd_Cust, bmpCust, ToolbarStyle_PushBtn, 0) tbrMain.TBAppendButton( Cmd_Main, bmpMain, ToolbarStyle_PushBtn, 0) tbrMain.TBAppendButton( 0, NULL, To‘‘olbarStyle_Separator, 0) tbrMain.TBAppendButton( Cmd_ItemD, bmpItemD, ToolbarStyle_PushBtn, 0) ' 'Assign tbrMain to the calling form pForm.SetToolBar(tbrMain) ‘‘‘j§- Ź€…€š„Ň€‡€É€¸€  l­Ë:*currow18@8@98;„„ż€ź€˝€'€ž€…€š€Ň€ Sč]:* vsbOrdersŔ{@X@<=d  repOrders1@e@98 ;„€ż€Š€‹€Œ€jj‰€ˆ€ź€˝€'€ž€…€š„Ň€4E€B@8@98End,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š„Ň€‡€É€¸€  l­Ë:*currow18@8@98;„„ż€ź€˝€'€ž€…€š€Ň€ Sč]:*jj vsbOrdersŔ{@X@<=d  repOrders1@e@98 ;„€ż€Š€‹€Œ€‰€ˆ€ź€˝€'€ž€…€š„Ň€*currow18@8@98;„„ż€ź€˝€'€ž€…€š€Ň€ Sč]:* vsbOrdersŔ{@jjX@<=d  repOrders1@e@98 ;„€ż€Š€‹€Œ€‰€ˆ€ź€˝€'€ž€…€š„Ň€jj¨. šĽ ŠœžŸ Ą˘Ł¤Ľjjjjjjj‘Š. œŇIBM1252 cpprpscr_nlprtrecproptbl,Ś Ł udmMouseUp udmMouseMove udmMouseDownudmSetCarrType udmPutHelp‘‘BLong+pForm as Object, x as Integer, y as IntegerCLongx as Integer, y as IntegerDLongpForm as‘‘ ObjectELong@pForm as Object, pFormMove as Object, x as Integer, y as IntegerFLong&pForm As Object, pHelp As String, x, yfonttblť ÄArial MS Sans Serif System FontArial Rounded MT Bold Courier NewApplication FontGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script Capital‘‘sPlaybillAlgerianMonotype 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 NewtSpecialNewtPCNewtLucida ‘‘Şň ŤŇ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ž‘‘Ťň ŹŇ'˝ź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@‘‘Źň ­Ň$@€a@:@StartTopzNone;˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ý˙˙˙ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙Root Entry‘‘˙˙˙˙˙˙˙˙ ě­ґ‡K Ż’f ěâbôťOle ˙˙˙˙˙˙˙˙˙˙˙˙Contents˙˙˙˙oOlePres000˙˙˙˙˙˙˙˙˙˙˙˙ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘j­ň âĆ FR㠑ÎăŞK¸QDB MS Sans Serif˙˙˙˙€–˙*.*K˙˙˙˙jjŇQuickPak Professional for Windows, Copyright (c) 1995 Crescent Division of Progress Software Corporation. ţř m€Default„€ ż€:   *Available columns:ź€˝€'€ž€static1…€0@$@€j@:@StartTopzNonjje;jjj‘ŽŻŇ‘‘‘‘‘‘‘‘Ż°Ň‘‘‘‘‘‘‘‘°ąŇ‘‘‘‘‘‘‘‘ą˛Ň‘‘‘‘‘‘‘‘˛łŇ‘‘‘‘‘‘‘‘ł´Ň‘‘‘‘‘‘‘‘´ľŇ‘‘‘‘‘‘‘‘ľśŇ‘‘‘‘‘‘‘‘śˇŇ‘‘‘‘‘‘‘‘ˇ¸Ň‘‘‘‘‘‘‘‘¸šŇ‘‘‘‘‘‘‘‘šşŇ‘‘‘‘‘‘‘‘şťŇ‘‘‘‘‘‘‘‘ťźŇ‘‘‘‘‘‘‘‘ź˝Ň‘‘‘‘‘‘‘‘˝žŇ‘‘‘‘‘‘‘‘žżŇ‘‘‘‘‘‘‘‘żŔŇ‘‘‘‘‘‘‘‘ŔÁŇ‘‘‘‘‘‘‘‘ÁÂŇ‘‘‘‘‘‘‘‘ÂĂŇ‘‘‘‘‘‘‘‘ĂÄŇ‘‘‘‘‘‘‘‘ÄĹŇ‘‘‘‘‘‘‘‘ĹĆŇ‘‘‘‘‘‘‘‘ĆÇŇ‘‘‘‘‘‘‘‘ÇČŇ‘‘‘‘‘‘‘‘ČÉŇ‘‘‘‘‘‘‘‘ÉĘŇ‘‘‘‘‘‘‘‘ĘËŇ‘‘‘‘‘‘‘‘ËĚŇ‘‘‘‘‘‘‘‘ĚÍŇ‘‘‘‘‘‘‘‘ÍÎŇ‘‘‘‘‘‘‘‘ÎĎŇ‘‘‘‘‘‘‘‘ĎĐŇ‘‘‘‘‘‘‘‘ĐŃŇ‘‘‘‘‘‘‘‘ŃŇŇ‘‘‘‘‘‘‘‘ŇÓŇ‘‘‘‘‘‘‘‘ÓÔŇ‘‘‘‘‘‘‘‘ÔŐŇ‘‘‘‘‘‘‘‘ŐÖŇ‘‘‘‘‘‘‘‘Ö×Ň‘‘‘‘‘‘‘‘×ŘŇ‘‘‘‘‘‘‘‘ŘŮŇ‘‘‘‘‘‘‘‘ŮÚŇ‘‘‘‘‘‘‘‘ÚŰŇ‘‘‘‘‘‘‘‘ŰÜŇ‘‘‘‘‘‘‘‘ÜÝŇ‘‘‘‘‘‘‘‘ÝŢŇ‘‘‘‘‘‘‘‘ŢßŇ‘‘‘‘‘‘‘‘ßŕŇ‘‘‘‘‘‘‘‘ŕáŇ‘‘‘‘‘‘‘‘áâŇ‘‘‘‘‘‘‘‘âăŇ‘‘‘‘‘‘‘‘ăäŇ‘‘‘‘‘‘‘‘äĺŇ‘‘‘‘‘‘‘‘ĺćŇ‘‘‘‘‘‘‘‘ćçŇ‘‘‘‘‘‘‘‘çčŇ‘‘‘‘‘‘‘‘čéŇ‘‘‘‘‘‘‘‘éęŇ‘‘‘‘‘‘‘‘ęëŇ‘‘‘‘‘‘‘‘ëěŇ‘‘‘‘‘‘‘‘ěíŇ‘‘‘‘‘‘‘‘íîŇ‘‘‘‘‘‘‘‘îďŇ‘‘‘‘‘‘‘‘ďđŇ‘‘‘‘‘‘‘‘đńŇ‘‘‘‘‘‘‘‘ńňŇ‘‘‘‘‘‘‘‘ňóŇ‘‘‘‘‘‘‘‘óôŇ‘‘‘‘‘‘‘‘ôőŇ‘‘‘‘‘‘‘‘őöŇ‘‘‘‘‘‘‘‘ö÷Ň‘‘‘‘‘‘‘‘÷řŇ‘‘‘‘‘‘‘‘řůŇ‘‘‘‘‘‘‘‘ůúŇ‘‘‘‘‘‘‘‘úűŇ‘‘‘‘‘‘‘‘űüŇ‘‘‘‘‘‘‘‘üýŇ‘‘‘‘‘‘‘‘ýţŇ‘‘‘‘‘‘‘‘ţ˙Ň‘‘‘‘‘‘‘‘˙Ň‘‘‘‘‘‘