podb File format Copyright (c) 1994,1995 by Oracle Corporation. ÔÄ9 ~2ÍŘřB% podbjÉÉüj‘ÉČü‘j€ j‘ ‘‘ d֑j dÖjj˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙j‘˙˙˙˙˙˙˙˙€˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘jj‘‘j@ú0ˇ*€˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙Ă˙jj˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙jjjjj‘@ů0ş*đ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙Ă˙‘‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘‘‘‘jd jjjjjjj ;  jjjjjjjjě   jjjjjjj‘  _J ‘‘‘‘‘‘‘j  LO…ťeś aźdś ^ąXđ ~APPLID~00000008:000000000000.00010000đ ~APPINF~0000000C:000000000000.00010001đ0000001932C1099B0000000E:000000000000.00010514frmItemDetailđ00000002327E0A5E00000013:000000000000.00010003frmMainđ0000001B32C10FF900000120:000000000000.00010516nopictđ0000002932CE7D9A00000025:000000000000.000107D0 frmLogjjinđ0000001D32C43A750000002C:000000000000.000105DCfrmExportFileđ0000002B334A45B900000030:000000000000.00010898 frmSelectColumnsđ0000001F32C58A330000003C:000000000000.000106A4 frmErrorsđ0000002032C58D6800000041:000000000000.000106A5 frmTablesđ0000002C334A45BF00000045:000000000000.00010899frmLinkđ0000002232CC296900000052:000000000000.00010708 frmCjjustomerđ0000002632CD441D00000062:000000000000.0001076CBmpcustđ0000002732CD442900000064:000000000000.0001076D Bmpitemdđ0000002832CD443200000067:000000000000.0001076EBmpmainđ0000002A32CE811E00000069:000000000000.00010834 frmCatalogđ0000002D334A45DF00000071:000000000000.0001089A dlgImportjjjj Z-jjjjjjj‘ e ` `‘‘‘‘‘‘‘j :`Ň IBM1252proplist proptbl†Ś 8 udmDefToolBar udmDefMenu udmDefMenuBar6LongpForm AS Object7Long8LongpForm AS Objectđńń"SELECT CASE cmdCode CASE Cmd_Cust TestCommand = TestCommand_Enabled CASE Cmd_Main TestCommand = TestCommand_Enabled CASE Cmd_OrdRate IF frmMain.udpDisplayMinPerOrd THEN TestCommand = TestCommand_Disjjabled_Checked ELSE TestCommand = TestCommand_Disabled END IF CASE ELSE IF cmdCode >= Cmd_FirstUserCommand THEN TestCommand = TestCommand_Disabled END IF END SELECT …+frmLogin.OpenModal(0) frmMain.OpenWindow()Chap7Ł Chapter 7ŐSelf.udmDefMenu()đSELECT CASE cmdCode CASE Cmd_Main frmMain.OpenWindow() DoCommand = TRUE CASE Cmd_Cust jj frmCustomer.OpenWindow() DoCommand = TRUE CASE ELSE DoCommand = FALSE END SELECT gORDERDAT%¤$€p€}€ Gregorian)!' User-defined cmd codes for Menus CONST Cmd_Main = Cmd_FirstUserCommand + 10 CONST Cmd_ItemD = Cmd_FirstUserCommand + 11 CONST Cmd_Cust = Cmd_FirstUserCommand + 12 CONST Cmd_OrdRate = Cmd_FirstUserCommand + 13 ' GLOBAL mnuOrd As Object ' CONST cOk = 06Ś'Define a toolbarjj for use by most forms ' 'Declare object variable for toolbar DIM tbrMain AS Object 'Convert the object variable into a toolbar object tbrMain = NEW ToolBar ' 'Assign default buttons to toolbar pForm.DefaultToolBar(tbrMain) ' 'Custom Toolbar entries tbrMain.TBAppendButton( 0, NULL, ToolbarStyle_Separator, 0) tbrMain.TBAppendButton( Cmd_Cust, bmpCust, ToolbarStyle_PushBtn, 0) tbrMain.TBAppendButton( Cmd_Main, bmpMain, ToolbarStyle_PushBtn, 0) tbrMain.TBAppendButton( 0, NULL, ToolbarStyle_Sejj <  jjjjjjjj Ň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 Roujjnded 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 HandjjtooledBoldAGaramond 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 jjCarnati 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 MTBj‘ +Ň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 CasablancaCasperOpenFaceCottagecontrols3 ˜‘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   Ą2SSl€Default6NOPICT~Ce‘‘ Ňntered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-;€Ë€Ě€€Í€Ó€„€%€ľ‘‘€ż€Ž€Š€‹€Œ€‰€ˆ€´€—hIF ISNULL(pctItem.Value) THEN pctItem.Visible = False ELSE pctItem.Visible = True END IF €š€ €œ€›€™€˜€Ÿ€ž€ź€˝€'€ž€…€Ś€š€“€€–€Ň€’€‘€€Ž€•€”€‡€†€Š€Ę€  $— Î""~DefaultUPICTUREa 3D Control:*pc‘‘tItem@4E[@€Y@98f;„€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€  ćŸl€Default6„GetContainer().CloseWindow()ża 3D Control:   *+OKź˝'žbtnOK…@`@ m@€X@:@98; ‘‘’%66¸É‡Ňš…ž'˝źƒ‚żŃ„;,Start89L@ i@E4e@,@y*xCATALOG_DESCRIPTION1*,  :a 3D Control)StringCATALOG_DESCRIPTIONđINoneK ImmediateJLUm€Default‘‘  Ňo€Anyn€Default ţř …ž'˝źż„;zNoneBottomStart8@@f@b@,@static4Catalog Description*  : m€Default ’%66¸É‡Ňš…ž'˝źƒ‚żŃ„;,‘‘Right898@X@E4^@,@y*xPRICE1*,Currency  :a 3D Control)DoublePRICEINoneK ImmediateJLUm€Defaulto€Anyn€Default ţř …ž'˝źż„;zNoneBottomStart‘‘8@X@X@,@static3Price*  : m€Default ’%66¸É‡Ňš…ž'˝źƒ‚żŃ„;,Start898@@s@E4@R@,@y*x DESCRIPTION1*,  :‘‘a 3D Control)String DESCRIPTION(INoneK ImmediateJLUm€Defaulto€Anyn€Default ţř …ž'˝źż„;zNoneBottomStart8@X@€H@,@static2 Description*  : m€Default ’%66¸É‡Ňš‘‘E e*23456KTUe‘‘‘‘‘‘‘‘qŇIBM1252 cpprpscr_nlprtrecproptblQŚ J_AboutudpMinutesPerOrderudpDisplayMinPerOrd udmSetStatus udpRowCount udpContainerudmCheckRequiredFieldsudmCheckRequired udpRequired 7LongCDoubleDBooleanELongFLongGObjectHBooleanIBooleanJBooleanfonttblť Ä System FontArial MS Sans Serif Courier NewApplication Font‘‘OCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlgerianArial Rounded MT BoldMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensedCentury Schoo‘‘lbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight ‚l‚r ƒSƒVƒbƒN ‚l‚r –ž’ŠOsakaVFONT @‚l‚r –ž’Š ff4550-‚f‚l @•W€ƒSƒVƒbƒN ‚g‚fłž˛‘‘ĚAbadi MT Conde‘‘nsed Light‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–ž’Š @‚l‚r ‚o–ž’Š @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT Condensed Extra BoldAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News‘jzŇ701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 BdCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsjjZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BTShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystejjmOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsɌ S˜‘nknkjih2Standard Document2 Automatic;-ʲ' Calculates the number of minutes taken to work with each order STATIC vStartSeconds AS Long STATIC vCount AS Long DIM vElapSeconds AS Long ' vCount = vCount + 1 ' jjIF vStartSeconds = 0 THEN vStartSeconds = TIMER() ELSE vElapSeconds = TIMER() - vStartSeconds IF vElapSeconds < 60 THEN vElapSeconds = 60 Self.udpMinutesPerOrder = (vElapSeconds / 60) / vCount END IF ' ValidateRow = TRUE fń˙STATIC vSeconds AS Long ' SELECT CASE cmdCode CASE Cmd_ItemD TestCommand = TestCommand_Enabled CASE Cmd_OrdRate IF udpDisplayMinPerOrd THEN TestCommand = TestCommand_Checked jjHŇ ELSE TestCommand = TestCommand_Enabled END IF CASE Cmd_Main IF vSeconds = 0 THEN vSeconds = TIMER() IF (TIMER() - vSeconds) >= 10 THEN vSeconds = TIMER() IF udpDisplayMinPerOrd THEN Self.GetStatusLine().SetStatusPanelMsg( 2, & "Minutes per Order " & FORMAT(udpMinutesPerOrder, "##0.00") & " at " & TIME()) jjELSE Self.GetStatusLine().SetStatusPanelMsg(2, "Minutes per Order rate not displayed" ) END IF END IF ' TestCommand = TestCommand_Enabled CASE ELSE TestCommand = Application.TestCommand(cmdCode) END SELECT Ŕx@‚@­QFetch Count FirstÄHORDERDATCMORDERS4І‡ůDIM oRecSet AS Object Inherited.Query() oRecSet = fjjrmMain.GetRecordset() lblRecordStats.Label = "Record 1 of " & STR(oRecSet.GetRowCountAdvice()) btnFirst.Enabled = False btnPrev.Enabled = False btnNext.Enabled = True btnLast.Enabled = True ”•Ž‘’Ň–“š+Ą§¨ŞŚ…×ÖfrmMainž'˝ź" On MasteržŸ˜™›œ š$Refuse jjif Children Present#Refuse if Children Present !— Enter Orders´÷ŕApplication.udmDefMenuBar( Self ) Application.udmDefToolBar( Self ) ' DIM sbrMain AS Object sbrMain = NEW StatusLine sbrMain.SysDefaultStatusLine() sbrMain.InsertStatusPanel(2, 200, 40) Self.SetStatusLine( sbrMain ) Ź*D,ˆ‰Œ‹ŠŽ:żđXSELECT CASE cmdCode CASE Cmd_ItemD frmItemDetail.OpejjLŇnWindow() DoCommand = TRUE CASE Cmd_OrdRate frmMain.udpDisplayMinPerOrd = IIF(frmMain.udpDisplayMinPerOrd, FALSE, TRUE) DoCommand = TRUE CASE ELSE DoCommand = Application.DoCommand(cmdCode) END SELECT Ťľ35 %íSTATIC sSQL As String DIM oControl As Object STATIC oRecSet As Object DIM oCurRecSet As Object DIM nCountNew As Integer DIM nCountCur As Integer DIM nPointerNewjj As Integer DIM nPointerCur As Integer IF op = 9 THEN IF sSQL = "" THEN oControl = frmMain.FirstChild DO WHILE NOT ISNULL(oControl) IF oControl.ControlType = 2 OR (oControl.ControlType > 4 AND & oControl.ControlType < 10) THEN IF oControl.CompareOnLock = 0 AND oControl.DataSource <> "" THEN sSQL = oControl.DataSource & "," & sSQL END IF END IF oControl = oControl.NextControl() LOOP sSQL = LEFT(jjsSQL, LEN(sSQL) - 1) sSQL = "SELECT " & sSQL & " FROM " & & RecordSource & " WHERE ORDER_NUMBER " & & " = " & ORDER_NUMBER.Value END IF IF NOT ISNULL(oRecSet) THEN DELETE oRecSet END IF oRecSet = NEW DBRECORDSET( ORDERDAT ) oRecSet.SetQuery(sSQL, False) oRecSet.Requery() oCurRecSet = frmMain.GetRecordset() nCountNew = oRecSet.GetColCount() nCountCur = frmMain.GetRecordset.GetColCount() nPointerNew = 1 DO WHILE nPointerNew <= nCountNew nPointerCur = 1 jj DO WHILE nPointerCur <= nCountCur IF oRecSet.GetColName(nPointerNew) = & oCurRecSet.GetColName(nPointerCur) THEN IF oRecSet.GetColVal(nPointerNew) <> & oCurRecSet.GetColVal(nPointerCur) THEN sError = oCurRecSet.GetColName(nPointerCur ) & & " column has changed to " & & oRecSet.GetColVal(nPointerNew) END IF EXIT DO END IF nPoj‘ƒŇinterCur = nPointerCur + 1 LOOP IF NOT ISNULL(sError) THEN EXIT DO ELSE nPointerNew = nPointerNew + 1 END IF LOOP IF NOT ISNULL(sError) THEN sError = "Some of your data has been changed by other users. " & & CHR(13) & CHR(10) & " The " & sError & & ". Do you want to change your data or cancel your update?" IF MSGBOX(sError, 17, "Data Changed By Others")= 1 THEN oCurRecSet.Se‘‘tColVal(nPointerCur, oRecSet.GetColVal(nPointerNew)) oCurRecSet.LockRow() END IF END IF END IF ĂDIM oRecSet As Object DIM nRows As Integer DIM nRowsLeft As Integer oRecSet = Self.GetRecordset() nRows = oRecSet.GetRowCountAdvice() IF oRecSet.GetRowCount() <> nRows THEN nRowsLeft = nRows - oRecSet.GetRowCount() IF nRowsLeft > 100 THEN IF MSGBOX("There are " & STR(nRowsLeft) & & " rows left. Do you want to retrieve them?", 33, & ‘‘ "Retrieve the rows?") = 2 THEN EXIT SUB END IF END IF oRecSet.FetchAllRows() END IF Inherited.CommitForm() ˘„ÓÍĚˍ ~Default6l€DefaultCDH•DIM oCurObject As Object oCurObject = frmMain.FirstChild DO UNTIL ISNULL(oCurObject) IF oCurObject HasProperty udpRequired THEN IF NOT oCurObject.udmCheckRequired() THEN EXIT D‘‘O END IF END IF oCurObject = oCurObject.NextControl LOOP IF ISNULL(oCurObject) THEN udmCheckRequiredFields = True ELSE udmCheckRequiredFields = False END IF K S MasterLibrary0000000C32CCB0A8clsDataPushButtons Ą2SW7lDefault6~DefaultËĚÍÓ„%3ľż:ŽŠ‹Œ‰ˆ,D*´‘jžŇClass12—! #Refuse if Children Present$Refuse if Children Presentš œ›™˜Ÿž" On Masterź˝'žclsDataPushButtons…Ś+g@€j@š“–Ň’‘Ž•”‡†Š4 =containerMCHQFetch As Needede@jjR@98fEG FĘ-; ţř m€Default„€ ż€:   *ź€˝€'€ž€lblRecordStats…€€B@e@8@CenterTopzNone; ćŸlDefault6„AIF frmMain.udmCheckRequiredFields() = True THEN Inherited.Click()ża 3D Control:jj  *+>>ź˝'žbtnLast…Ŕ]@@;@=@98; ćŸlDefault6„AIF frmMain.udmCheckRequiredFields() = True THEN Inherited.Click()ża 3D Control:  *+>ź˝'žbtnNext…W@@;@=@9jj8; ćŸ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:j‘iŇ  *+<<ź˝'žbtnFirst…C@@;@=@98;I R MasterLibrary0000000B32CAF771clsRequiredField Ą2SVlDefault6~Default3:,D*Class11! #Refuse if Children Present$Refuse if Children Pre‘‘sent" On MasterclsZIP+0w@b@4 =containerMCHQFetch As Needed€U@8@98fJ-;7’ËĚÍÓ„%ľżŽŠ‹Œ‰ˆ´—š œ›™˜Ÿžź˝'ž…Śš“–Ň’‘Ž‘‘•”‡†ŠI’ʐ ’%66;,¸Start895@ŔT@Eɐ4‡Ňš@đ?y*x…fldRequiredField1ž'˝ź*,  ƒ‚:a 3D Controlż)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@@4 =containerMCHQFetch As Needed‘jLŇe@8@98fJ-;7’ËĚÍÓ„%ľżŽŠ‹Œ‰ˆ´—š œ›™˜Ÿžź˝'ž…Śš“–Ň’‘Ž•”‡†ŠI’ʐ ’%66;,¸Start8jj95@ŕd@Eɐ4‡Ňš@đ?y*x…fldRequiredField1ž'˝ź*,  ƒ‚:a 3D Controlż)String TELEPHONEINoneK ImmediateJLѐU„mDefaultoAnynDefaultD P MasterLibrjjary0000000A32CA95C0 clsDataHelp Ą2STĘ˜Š˜†˜‡˜”˜•˜Ž˜˜‘˜’˜Ň˜–˜˜“˜š˜Ś˜…˜ž˜'˜˝˜ź˜ž˜Ÿ˜˜˜™˜›˜œ˜ ˜š˜˜—˜´˜ˆ˜‰˜Œ˜‹˜Š˜Ž˜ż˜ľ˜%˜„˜Ó˜Í˜˜Ě˜Ë˜˜7š;-f898@r@QFetch As NeededHCM =cojjntainer4@Z@Ŕ]@+ clsADDRESS2" On Master$Refuse if Children Present#Refuse if Children Present !Class10*D,:3~Default6l˜Default ’%66¸˜É˜‡˜Ň˜š˜…˜˜ž˜'˜˝˜ź˜ƒ˜‚˜ż˜Ń˜„˜;,Start895@đq@E4j‘ŻŇ@đ?y*x fldDataHelp1*,  :a 3D Control)StringADDRESS2INoneK ImmediateJLUm˜Defaulto˜Anyn˜DefaultD O MasterLibrary0000000A32CA95C0 clsDataHelp Ą2STĘ˜Š˜†˜‡˜”˜•˜Ž˜˜‘˜’˜Ň˜–˜‘‘˜“˜š˜Ś˜…˜ž˜'˜˝˜ź˜ž˜Ÿ˜˜˜™˜›˜œ˜ ˜š˜˜—˜´˜ˆ˜‰˜Œ˜‹˜Š˜Ž˜ż˜ľ˜%˜„˜Ó˜Í˜˜Ě˜Ë˜˜7š;-f898@Đr@QFetch As NeededHCM =container4ŔQ@Ŕ]@+ clsADDRESS1" On Master$Refuse if Children Present#‘‘Refuse if Children Present !Class10*D,:3~Default6l˜Default ’%66¸˜É˜‡˜Ň˜š˜…˜˜ž˜'˜˝˜ź˜ƒ˜‚˜ż˜Ń˜„˜;,Start895@0q@E4@đ?y*x fldDataHelp1*,  :‘‘a 3D Control)StringADDRESS1INoneK ImmediateJLUm˜Defaulto˜Anyn˜DefaultL N MasterLibrary0000000732C8F845clsDeletePushbutton Ą2SU7l˜Default6~DefaultËĚÍÓ„%3ľż:ŽŠ‹Œ‰ˆ,D*´Class7—! ‘‘YŇ#Refuse if Children Present$Refuse if Children Presentš œ›™˜Ÿž" On Masterź˝'žclsDeletePushbutton…Ś+(€@`t@š“–Ň’‘Ž•”‡†Š4 =ContainerMCHQFetch As NeededH@B@98‘‘fG  rptOrderItemsĘ-; ćŸ;89B@H@… btnDeletež'˝źDelete+*  :a 3D Controlż„6lˆDefault LćŸl€Default6„ëREDIM sImportArray(9) AS String DIM nRows AS Integer, nErrors AS Integer nRows = 0 nErrors = 1 DIM nFileData AS Integ‘‘er, nFileReason AS Integer nFileData =FREEFILE OPEN "c:\errors\error.txt" FOR OUTPUT AS nFileData nFileReason = FREEFILE OPEN "c:\errors\reason.txt" FOR OUTPUT AS nFileReason ' dlgImport.OpenFileDialog() dlgImport.OpenModal(0) DIM sInsert AS String IF ISNULL(dlgImport.Pathname.Value) THEN MSGBOX("You did not choose a file to use for import.",16, "No import file") CLOSE nFileData CLOSE nFileReason EXIT SUB ELSE frmTables.OpenModal(0) frmLink.OpenModal(0) I‘‘F NOT ISNULL(frmLink.udpRecordset) THEN DIM nFile AS Integer nFile = FREEFILE ON ERROR RESUME NEXT OPEN dlgImport.Pathname.Value FOR INPUT AS nFile IF ERR <> 0 THEN MSGBOX("Unable to open the import file.", 48, "File Open Failure") CLOSE nFileData CLOSE nFileReason EXIT SUB ELSE DIM sLineValue AS String, sValue AS String DIM nStart AS Integer, nNext AS Integer DO UNTIL EOF(nFile) ‘‘yŇ LINE INPUT # nFile, sLineValue DIM nColumn AS Integer DIM sColumns AS String, sImportValues AS String sColumns = "" sImportValues = "" nColumn = 1 nStart = 1 DO WHILE nStart <> 0 nNext = INSTR(nStart, sLineValue, ",") IF nNext <> 0 THEN sValue = MID(sLineValue, nStart, nNext - nStart) ‘‘ nStart = nNext + 1 ELSE sValue = MID(sLineValue, nStart) nStart = 0 END IF frmLink.udpRecordset.SetCurRow(nColumn) DIM sErrorText AS String IF NOT ISNULL(frmLink.udpRecordset.GetColVal("COLUMN")) THEN sErrorText = "" SELECT CASE frmLink.udpRecordset.GetColVal("DATATYPE") ‘‘ CASE 8 sValue = "'" & MID(sValue, 2, LEN(sValue) - 2) & "'" CASE 3, 4, 5, 6 IF NOT ISNUMERIC(sValue) THEN sErrorText = "The value for the " & & frmLink.udpRecordset.GetColVal("COLUMN") & " is not numeric." EXIT DO END‘‘ IF CASE 7 IF NOT ISDATE(sValue) THEN sErrorText = "The value for the " & & frmLink.udpRecordset.GetColVal("COLUMN") & " is not a date." EXIT DO END IF END SELECT sColumns = sColumns & frmLink.udpRecordset.GetColVal("COLUMN") & & ‘‘'*Ň "," sImportValues = sImportValues & sValue & "," 'new one END IF nColumn = nColumn + 1 LOOP IF sErrorText = "" THEN sColumns = LEFT(sColumns, LEN(sColumns) - 1) sImportValues = LEFT(sImportValues, LEN(sImportValues) - 1) sInsert = "INSERT INTO " & frmTables.rbfTables.Value & " ( " & & ‘‘ sColumns & ") VALUES(" & sImportValues & ")" EXEC SQL AT ORDERDAT :sInsert ELSE WRITE #nFileReason, nErrors, sErrorText WRITE #nFileData, nErrors, sLineValue nErrors = nErrors + 1 END IF IF SqlErrCode() <> 0 AND sErrorText = "" THEN WRITE #nFileReason, nErrors, SqlErrCode() & " - " & SqlErrText() WRITE # nFileData, nErrors, sLineValue nErrors = ‘‘nErrors + 1 ELSE IF sErrorText = "" THEN nRows = nRows + 1 END IF LOOP EXEC SQL AT ORDERDAT COMMIT END IF ON ERROR GOTO 0 END IF END IF CLOSE nFileData CLOSE nFileReason DIM sMessage AS String sMessage = STR(nRows) & " rows inserted into the ORDERS table." & & CHR(13) & CHR(13) & STR(nErrors - 1) & " rows not inserted due to errors." IF nErrors = 1 THEN MSGBOX(sMessage, 64, "Results of Import") ELSE sMessage = ‘‘sMessage & CHR(13) & CHR(13) & & "Would you like to review the errors?" IF MSGBOX(sMessage, 67, "Results of Import") = 6 THEN frmErrors.OpenModal(0) END IF END IF ża 3D Control:  *+Importź˝'ž btnImport…Ŕ|@Ŕf@T@6@98; KćŸ;89;@€^‘‘  ‡…ž'˝źƒ‚żŃ„;,Start898@X@E48@,@y*x ITEM_NUMBER1*,  :a 3D Control) Long Integer ITEM_NUMBERINoneK ImmediateJLUm€Defaulto€Anyn‘‘€Default ţř …ž'˝źż„;zNoneBottomStart8@X@,@static1 Item Number*  : m€Default'ž…ţř …ž'˝źż„;zNoneBottomStart8@X@,@stat‘‘ic1 Item Number*  : m€Default…šŇ‡É¸ ţř m€Default :   * Item Numberstatic1,@X@8@StartBottomzNone;„żź˝'ž…‘‘‘‘!"Ň‘‘‘‘‘‘‘‘"#Ň‘‘‘‘‘‘‘‘#$Ň‘‘‘‘‘‘‘j$*jjjjjjjj%ĐlQ&'(+Qjjjjjjj‘&Đ 'ŇIBM1252 cpprpscr_nlprtrecproptbl›Ś b_About udpSessionSLongbObjectfonttblť Ä System FontArial MS Sans Serif Courier NewArial Rounded MT BoldApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModern‘‘TerminalRomanMS 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 Cond‘‘ensedFences 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 Orbit-B BT News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida B‘‘'Đ(Ňd 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 BTSh‘‘elleyVolante 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Ő ‘‘ ˜‘nkmS@' 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. b ORDERDATl€Default6~DefaultËĚÍÓ„˘Ă%5 3ľ‘‘Ťđż:ŽŠ‹Œ‰ˆ,D*Ź÷´Log In To A Database—! #Refuse if Children Present$Refuse if Children Presentš œ›™˜Ÿž" On Masterź˝'žfrmLoginÖ×…ŚŞ¨§Ą+š“–Ň’‘‘(Đ+Ň‘Ž•”‡†Š4MCHÄQFetch As Needed­x@h@ńfĘ-;2 Automatic2Standard Documenthijk  ćŸl€Default6„Application.CloseApp()ża 3D Control:  *+‘‘Cancelź˝'ž btnCancel…@j@€a@@T@<@98; ćŸ;89<@@T@€a@ŔR@…€ btnConnectž€'€˝€ź€Connect+*  :a 3D Controlż€„ĽDIM sConnect As String DIM oSession As Object STATIC nFailures As Integer oSession = GetContainer().udpSe‘‘ssion 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) oSession.Connect() IF oSession.IsConnected() THEN GetContainer().CloseWindow() ELSE IF nFailures = 3 THEN MSGBOX("Your log in has failed 3 times. Please contact the " & & "system administrator.", 16, "Too Many Failures") application.CloseApp() ELSE MSGBOX("You could not log in successfully. Please try again", 32, & "Login Failure"‘j*2Ň@@k@p{@… btnExportž'˝źExport Current Rows+*  :a 3D Controlż„[ DIM nFile AS Integer, nCount AS Integer, nPointer AS Integer DIM sExportFile AS String DIM objRecSet AS Object DIM sListValue AS String, sValue AS String nCount = frmMain.GetRecordset().GetColCount() REDIM sArray(nCount) AS String frmExportFile.OpenModal(0) sExportFjjile = frmExportFile.fldExportFile.Value ON ERROR RESUME NEXT IF NOT ISNULL(sExportFile) THEN frmSelectColumns.OpenModal(0) ' You have to parse through the values in the selected pick list to create the values in sArray. objRecSet = frmSelectColumns.clsSelectedColumns.lstPickList.GetRecordset() nCount = objRecSet.GetRowCount() nPointer = 1 DO WHILE nPointer <= nCount objRecSet.SetCurRow(nPointer) sArray(nPointer - 1) = objRecSet.GetColVal(1) nPjjointer = nPointer + 1 ' nPointer = INSTR(sListValue, CHR(13)) ' IF nPointer <> 0 THEN ' sValue = LEFT(sListValue, nPointer - 1) ' sListValue = RIGHT(sListValue, LEN(sListValue) - (nPointer + 1)) ' ELSE ' sValue = sListValue ' sListValue = "" ' END IF ' sArray(nCount) = sValue ' nCount = nCount + 1 LOOP REDIM PRESERVE sArray(nCount - 1) nFile = FREEFILE OPEN sExporjjtFile FOR OUTPUT AS nFile IF ERR <> 0 THEN MSGBOX("You could not open the " & sExportFile & & " file.", 32, "Open File Failed") EXIT SUB ELSE ON ERROR GOTO 0 END IF frmMain.GetRecordset().FetchAllRows() objRecSet = frmMain.GetRecordset() nCount = objRecSet.GetRowCount() nPointer = 1 DIM nArrayCount AS Integer, nArrayPointer AS Integer nArrayCount = UBOUND(sArray) + 1 DO WHILE nPointer <= nCount j‘+ĐQŇ) nFailures = nFailures + 1 END IF END IF 6l€Default ţř m€Default„ ż:   * Password:ź˝'žstatic3…$@ŔW@U@7@RightCenterzNone; ţř ;zNoneCenterRight7@U@‘‘€M@$@…static2ž'˝źUser:*  :ż „m€Default ’%66n€Defaulto€Anym€Default„UŃLJK ImmediateINoneString)ża 3D Control:‚ƒ   ,*ź˝'ž1 fld‘‘Password…xy*ŔX@ŔW@šŇ‡4ÉE o@:@98Start¸,; ’%66n€Defaulto€Anym€Default„UŃLJK ImmediateINoneString)ża 3D Control:‚ƒ   ,*ź˝'ž1‘‘fldUser…xy*ŔX@M@šŇ‡4ÉE o@:@98Start¸,; ţř ;zNoneCenterRight7@U@:@$@…static1ž'˝ź Database:*  :ż „m€Default Ë--;,‘‘,Üă^-./^‘‘‘‘‘‘‘j-Ü.ŇIBM1252 cpprpscr_nlprtrecproptbl+Ś Bfonttblť Ä System FontArial MS Sans Serif Courier NewApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybilljjAlgerianArial Rounded MT BoldMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensedCentury SchoolbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNejjwtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight ‚l‚r ƒSƒVƒbƒN ‚l‚r –ž’ŠOsakaVFONT @‚l‚r –ž’Š ff4550-‚f‚l @•W€ƒSƒVƒbƒN ‚g‚fłž˛‘‘ĚAbadi MT Condensed Light‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–ž’Š @‚l‚r ‚o–ž’Š @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT Condensed Extra BoljjdAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 Bdjj.Ü/ŇCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BTShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Boljjd Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsŒ  ˜‘nkkĘ€ń€­€€€Ä€Š€†€‡€”€•€Ž€€jj‘€’€Ň€–€€“€š€Ą€§€¨€Ş€Ś€…€×€Ö€€ž€'€˝€ź€ž€Ÿ€˜€™€›€œ€ €š€€—€´€÷DApplication.udmDefMenuBar( Self ) Application.udmDefToolBar( Self )Ź€ˆ€‰€Œ€‹€Š€Ž€ż€đ€Ť€ľ€%€Ă€˘€„€Ó€Í€€Ě€Ë€€kjih2Standajjrd Document2 Automatic;-f€`@€p@QFetch As NeededHCM4+ frmExportFile" On Master$Refuse if Children Present#Refuse if Children Present !Specify An Export File*D,:35 ~Default6l€Default ćŸl€Default6„=fldExportFile.Valjj/Ü^Ňue = "" GetContainer().DismissModal(Self) ża 3D Control:  *+Cancelź˝'ž btnCancel…@a@@U@€J@7@98; ćŸl€Default6„šIF ISNULL(fldExportFile.Value) THEN MSGBOX("You must enter a file name.", 32,"No File Name") fldExportFile.SetFocus() ELSE GetCjjontainer().DismissModal(Self) END IF ża 3D Control:  *+OKź˝'žbtnOK…€E@@U@€J@7@98; ’%66¸É‡Ňš…ž'˝źƒ‚żŃ„;,Start89;@n@E4€F@(@yjj*x fldExportFile1*,  :a 3D Control)StringdINoneK ImmediateJLUm€Defaulto€Anyn€Default ţř …ž'˝źż„;zNoneTopStart8@ŕm@(@*@static1File to hold exported data:*jj  : m€Default  ,*1 fldExportFilexy*(@€F@4En@;@98Start,;„Ńż‚ƒź˝'ž…šŇ‡É¸ ţř m€Default :   *File to hold exported daj‘0˜;1789:;‘‘‘‘‘‘‘‘1˜7Ň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‘‘2 3Ň objRecSet.SetCurRow(nPointer) DO WHILE nArrayPointer < nArrayCount DIM sLineValue AS String, sQuote AS String IF VARTYPE(objRecSet.GetColVal(sArray( & nArrayPointer))) = 8 THEN sQuote = "'" ELSE sQuote = "" END IF sLineValue = sLineValue & sQuote & FORMAT( & objRecSet.GetColVal(sArray(nArra‘‘yPointer))) & sQuote & "," nArrayPointer = nArrayPointer + 1 LOOP sLineValue = LEFT(sLineValue, LEN(sLineValue) - 1) PRINT #nFile, sLineValue nPointer = nPointer + 1 sLineValue = "" nArrayPointer = 0 LOOP CLOSE nFile ELSE MSGBOX("Export cancelled.", 32, "No Export") END IF 6l€Default C’%66n€Defaulto€Anym€DefaultULJK Immediat‘‘eINoneString)Same As Customera 3D Control:   ,*1 fldDefaultxy*Ŕ]@€f@4Er@7@98 Start,;„Ńż‚FSHIP_NAME.Visible = True Self.Visible = False SHIP_NAME.SetFocus() ƒź˝'ž…šŇ‡É¸ .‘‘Ë--l€DefaultU CUSTOMER_NAMEString)a 3D Control:   *3popCustomerNamepopCustomerName^@B@4Er@8@98'@= AT ORDERDAT SELECT CUSTOMER_NAME, CUSTOMER_NAME FROM CUSTOMERS,;„€ż€‚€ƒ€Ž€ź€˝€'€ž€€…€š„ Ň€‡€É€Č€¸tDIM sAddress‘j3ö4Ň1 AS String, sAddress2 AS String, sCity AS String DIM sState AS String, sZIP AS String, sCustomerName AS String DIM sTelephone AS String sCustomerName = newval EXEC SQL AT ORDERDAT SELECT ADDRESS1, ADDRESS2, CITY, STATE, ZIP, TELEPHONE & INTO :sAddress1, :sAddress2, :sCity, :sState, :sZIP, :sTelephone FROM CUSTOMERS WHERE & CUSTOMER_NAME = :sCustomerName clsADDRESS1.fldDataHelp.Value = sAddress1 clsADDRESS2.fldDataHelp.Value = sAddress2 CjjITY.Value = sCity STATE.Value = sState clsZIP.fldRequiredField.Value = sZIP clsTELEPHONE.fldRequiredField.Value = sTelephone Validate = True (ţř …€ž€'€˝€ź€ż€„€;zNoneCenterStart8@X@r@y@static5 Line Total*  : m€Default 'ţř …€ž€'€˝€ź€ż€„€;zjjNoneCenterStart8@N@r@pt@static4Discount*  : m€Default &ţř …€ž€'€˝€ź€ż€„€;zNoneCenterCenter8@€H@r@p@static12Price*  : m€Default %ţř …€jjž€'€˝€ź€ż€„€;zNoneCenterStart8@€N@r@`i@static11Quantity*  : m€Default $ţř …€ž€'€˝€ź€ż€„€;zNoneCenterStart8@b@r@€I@static10 Order Item*  :jj4ö5Ň m€Default 2]¸PPl€DefaultËĚÍÓ„%3ľż:ŽŠ‹Œ‰ˆ,D*´—! ORDER_NUMBER  ORDER_NUMBER#Delete CascadefrmMain$Update Cascadeš œ›™˜Ÿž" On Masterź˝'ž rptOrderjjItems…Ś+(@€s@š“–Ň’‘Ž•”‡†Š4 ORDER_ITEMSMCOLORSCHORDERDATQFetch As NeededŔ~@R@98 fĘ-;  s °'lDefaultf,98ÓÍĚËž˝źż„;:*…jjUUUUUUĹżUUUUUUĹż repeat_dummy1 s °lDefault:,* repeat_dummy2Đ?ŤŞŞŞŞĘ@Đ?98f;ËĚÍÓ„żź˝'ž… s °l€DefaultËĚÍÓ„ż:,*ź˝'ž repeat_panel…jj°}@8@98f; "l­Ë:* curOrderItem@@>@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¸€É€‡j‘5ď6Ň€Ň€š€…€€ž€'€˝€ź€ƒ€‚€ż€Ń€„€;,Right898@ŔW@E4 w@y*x LINE_TOTAL1*,Currency  :a 3D Control)Double =(QUANTITY*PRICE) * (1-DISCOUNT)INoneK ImmediateJLU‘‘m€Defaulto€Anyn€Default ’%66¸€É€‡€Ň€š€…€€ž€'€˝€ź€ƒ€‚€ż€Ń€„€;,Right898@P@E4o@y*xPRICE1*,Currency  :a 3D Control)Double~=SqlLookup(ORDERDAT, "select price from items w‘‘here item_number = " & IIF(ISNULL(popOrderItem.Value), 0, popOrderItem.Value) )INoneK ImmediateJLUm€Defaulto€Anyn€Default Ë--l€Default„U ORDER_ITEM Long Integer)ża 3D Control:‚ƒ   Ž*3popup1ź˝'ž popOrderItemŒIF keycode = 17 THEN frmCatalog.p‘‘opItems.Value = Value frmCatalog.OpenModal(0) Value = frmCatalog.popItems.Value END IF …B@šŇ‡4ÉE€c@8@98'6=AT ORDERDAT select DESCRIPTION,ITEM_NUMBER from ITEMSȸ,; ’%66¸„É€‡€Ň€š€…€€ž€'€˝€ź€ƒ€‚„ż€Ń€„€;,Center898@‘j6ÚKŇL@E4h@y*xQUANTITY1*,  :a 3D Control) Long IntegerQUANTITYINoneK ImmediateJLUm€Defaulto€Anyn€Default ’%66¸€É€‡€Ň€š€…€€ž€'€˝€ź€ƒ€‚€ż€Ń€„€;jj,Right898@P@E4s@y*xDISCOUNT1*,Percent  :a 3D Control)DoubleDISCOUNTINoneK ImmediateJLUm€Defaulto€Anyn€Default ’%66n€Defaulto€Anym€DefaultULJ ITEM_NUMBERSKjjDeferredINone ORDER_ITEM_ID Long Integer)a 3D Control:  ,*1 ORDER_ITEM_IDxy*(@4E8@8@98Start,;„Ńż‚ƒź˝'ž…šŇ‡É¸ ’%66n€Defaulto€Anym€DefaultjjULJK ImmediateINone( SHIP_NAMEString)a 3D Control:   ,*1 SHIP_NAMExy*Ŕ]@`f@4Er@8@98 Start,;„Ńż‚ƒź˝'ž…šŠIF ISNULL(Value) THEN SHIP_NAME.Visible = False fldDefault.Visibj‘7˜8Ň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‘‘8˜9Ň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ž‘‘9˜:Ň'˝ź3*Ž  ƒ‚:a 3D Controlż)StringU„lˆDefaultD  MasterLibrary0000000F32D22F99 clsPickList Ą2S[7š9š6š;š:š=’8 clsSelectedColumns<l˜Default6~Default˜Ë˜Ě˜Í˜Ó˜„˜%˜3‘‘ľ˜ż˜:Ž˜Š˜‹˜Œ˜‰˜ˆ˜,D*´˜Class15—˜! #Refuse if Children Present$Refuse if Children Present˜š˜ ˜œ˜›˜™˜˜˜Ÿ˜ž˜" On Masterź˜˝˜'˜ž˜clsAvailableColumns…˜Ś˜+(@B@š˜“˜˜–˜Ň˜’˜‘˜˜Ž˜•˜”˜‡˜†˜Š˜4MC‘‘HQFetch As Neededb@h@98fĘ˜-; Ű>,,;,¸Č'"This is a dummy value" = 089Ŕg@b@EÉ4‡Ňš@… lstPickListž'˝ź3*Ž  ƒ‚:a 3D Controlż)String‘‘U„lˆDefault ćŸl€Default6„ża 3D Control:  *+OKź˝'žbtnOK…^@n@Y@7@98; ţř m€Default„ ż:   *Available columns:ź˝'žstatic1…0@‘‘:˜;Ň$@€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;jjjj<¤Ô]=>?@]jjjjjjjj=¤ >ŇIBM1252 cpprpscr_nlprtrecproptblŚ {jjfonttblť ÄArial MS Sans Serif System FontArial Rounded MT Bold Courier NewApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModjjernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlgerianMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensedCentury SchoolbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers jjCondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight ‚l‚r ƒSƒVƒbƒN ‚l‚r –ž’ŠOsakaVFONT @‚l‚r –ž’Š ff4550-‚f‚l @•W€ƒSƒVƒbƒN ‚g‚fłž˛‘‘ĚAbadi MT Condensed Light‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–ž’Š @‚l‚r ‚o–ž’Š @FixedSysLucida Sans UnicodeCopperplate Gothic LightNUj‘>¤ ?ŇLL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT Condensed Extra BoldAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFla‘‘reserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 BdCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BT‘‘ShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrols‘‘ ˜‘nkkl€Default6~Default5 3:,D*Review bad data! #Refuse if Children Present$Refuse if Children Present" On Master frmErrors+4ERRORMCHerrorsQFetch As Neededx@@q@f-;2 Automatic2Standard Documenthij‘‘?¤@Ňk€Ë€Ě€€Í€Ó€„€˘€Ă€%€ľ€Ť€đ€ż€Ž€Š€‹€Œ€‰€ˆ€Ź€÷DApplication.udmDefMenuBar( Self ) Application.udmDefToolBar( Self )´€—€€š€ €œ€›€™€˜€Ÿ€ž€ź€˝€'€ž€€Ö€×€…€Ś€Ş€¨€§€Ą€š€“€€–€Ň€’€‘€€‘‘Ž€•€”€‡€†€Š€Ä€€€­€ń€Ę€  ćŸl€Default6a 3D Control:  *+OKbtnOK c@ n@ŔW@?@98;„€ż€ź€˝€'€ž€…€ ލ9l€Default:*hsb1€Z@ j@<= d  container‘‘@h@9@;„€ż€Š€‹€Œ€‰€ˆ€ź€˝€'€ž€…€š€Ň€  Ą2SSl€Default6~Default3:,D*form1!ERROR_ID ERROR_ID#Refuse if Children Present frmErrors$Refuse if Children Present" On Masterform1+@@@\@4reasonMCHerrorsQ‘‘Fetch As Neededu@ŔV@98f-;€Ë€Ě€€Í€Ó€„€%€ľ€ż€Ž€Š€‹€Œ€‰€ˆ€´€—€€š€ €œ€›€™€˜€Ÿ€ž€ź€˝€'€ž€…€Ś€š€“€€–€Ň€’€‘€€Ž€•€”€‡€†€Š€Ę€ ’%66n€Defaulto€Anym€DefaultULJK‘‘@¤]Ň ImmediateINoneú ERROR_REASONString)a 3D Control:  ,*1 ERROR_REASONxy*ŔR@0@4E o@Q@98Start,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€ ţř m€‘‘Default :   *Error:static3"@R@8@RightCenterzNone;„€ż€ź€˝€'€ž€…€ ’%66n€Defaulto€Anym€DefaultULJK ImmediateINoneú ERROR_DATAString)a 3D Control:  ,*‘‘1 ERROR_DATAxy*[@€F@4E€o@€O@98Start,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€ ţř m€Default :   *Data:static2"@€F@X@8@RightCenterzNone;„ż‘‘ź˝'ž… ’%66nDefaultoAnymDefaultULJK ImmediateINoneERROR_IDDouble)a 3D Control:  ,*1ERROR_IDxy*[@@4EX@8@98Start,;„Ńż‚ƒź˝'‘‘AĽÇ_BCD_‘‘‘‘‘‘‘jBĽ CŇIBM1252 cpprpscr_nlprtrecproptblŚ {jjfonttblť ÄArial MS Sans Serif System FontArial Rounded MT Bold Courier NewApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModjjernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlgerianMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensedCentury SchoolbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers jjCondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight ‚l‚r ƒSƒVƒbƒN ‚l‚r –ž’ŠOsakaVFONT @‚l‚r –ž’Š ff4550-‚f‚l @•W€ƒSƒVƒbƒN ‚g‚fłž˛‘‘ĚAbadi MT Condensed Light‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–ž’Š @‚l‚r ‚o–ž’Š @FixedSysLucida Sans UnicodeCopperplate Gothic LightNUj‘CĽDŇLL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT Condensed Extra BoldAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFla‘‘reserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 BdCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BT‘‘ShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsh ‘‘ ˜‘nkkl€Default6~Default5 3:,D*Import Dat From:! #Refuse if Children Present$Refuse if Children Present" On Master frmTables+4MCHQFetch As Neededh@e@f-;2 Automatic2Standard Documenthij‘‘DĽ_Ňk€Ë€Ě€€Í€Ó€„€˘€Ă€%€ľ€Ť€đ€ż€Ž€Š€‹€Œ€‰€ˆ€Ź€÷DApplication.udmDefMenuBar( Self ) Application.udmDefToolBar( Self )´€—€€š€ €œ€›€™€˜€Ÿ€ž€ź€˝€'€ž€€Ö€×€…€Ś€Ş€¨€§€Ą€š€“€€–€Ň€’€‘€€Ž€•‘‘€”€‡€†€Š€Ä€€€­€ń€Ę€ ćŸl€Default6a 3D Control:  *+OKbtnOKC@@^@@Z@8@98;„€ż€ź€˝€'€ž€…€ Dv11l€Default UString)ORDERSa 3D Control:   ‘‘*3Destination Table rbfTables.@*@4E c@ŔW@98,;ËĚÍÓ„ż‚ƒź˝'ž…šŇ‡É¸ ôö..lDefault U Long Integer)a 3D Control:  * ORDER_ITEMSra‘‘dio2.@J@4EŔ^@<@98,&%;„ż‚ƒź˝'ž…šŇ‡É¸ ôö..l€Default UString)a 3D Control:  *ORDERSradio10@8@4E@_@7@98‘‘E™N OPFGHIJLMN‘‘‘‘‘‘‘jF™GŇ " 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Š˜†˜‡˜”˜•˜Ž˜˜‘˜’˜Ň˜–˜˜“˜š˜€fjjG™HŇ@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‡ŇjjH™IŇš@… 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@jjI™JŇ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@[@9jj J™LŇ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@98jjK¤TŇle = True ELSE SHIP_NAME.Visible = True fldDefault.Visible = False END IF ҇ɸ ţř m€Default :   * Ship To Name:static9 @€f@[@8@RightCenterzNone;„żź˝'ž… ţř m€Default :jj   * Telephone:static8`h@@X@8@RightCenterzNone;„€ż€ź€˝€'€ž€…€  ’%66n€Defaulto€Anym€DefaultULJK ImmediateINoneSTATEString)a 3D Control:   ,*1STATExyjj*@t@b@4EB@8@98Start,;„Ńż‚ƒź˝'ž…šŇ‡É¸  ’%66n€Defaulto€Anym€DefaultULJK ImmediateITable, MAX()+CounterIncByCITYString)a 3D Control:   ,*jj1CITYxy*^@b@4Eh@8@98Start,;„Ńż‚ƒź˝'ž…šŇ‡É¸ ţř m€Default„ ż:   *Address:ź˝'žstatic3…4@R@X@8@Rightj‘L™MŇ; ţř ;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 Ŕŕç  ĐĎॹá>ţ˙ ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ý˙˙˙ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘M™NŇ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙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. ‘jN™ˇţř mDefaultzNone Import Fields:CenterStart  'ž˝źż„;:*…5@€\@@2@static4 Ű>,,;,¸€Č€'89[@€c@EÉ€4‡€Ň€š€8@(@…€€lstImjjportFieldsž€'€˝€ź€3*Ž€  ƒ€‚€:a 3D Controlż€) Long IntegerU„€l€Defaultjjjjj‘O™PŇ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‘jP™FŇ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 & & jjQĐD¸€Č€';Local database = ODBC#ORDERDAT Remote database = Oracle# 897@@o@EÉ€4‡€Ň€šoIF NOT ISNULL(Self.Value) THEN btnConnect.Enabled = True ELSE btnConnect.Enabled = False END IF 9@€X@…€€ popDatabasež€'€˝€ź€3*Ž€  ƒ€‚€:a 3D Conjjtrolż€)StringdU„€l€DefaultConnect.Enabled = True ELSE btnConnect.Enabled = False END IF Ň€‡€4É€E@o@7@98';Local database = ODBC#ORDERDAT Remote database = Oracle# Č€¸€,; Č€¸€,;jjjjj‘R\SVWXYZ[\‘‘‘‘‘‘‘‘SVŇIBM1252 cpprpscr_nlprtrecproptbl™Ś ÓudmCheckCreditDouble-pCustomerName AS String, pNewAmount AS Doublefonttblť‘‘ Ä System FontArial MS Sans Serif Courier NewArial Rounded MT BoldApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlgerianMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT L‘‘ight DesdemonaCoronet Colonna MTClarendon CondensedCentury SchoolbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight ‚l‚r ƒSƒVƒbƒN ‚l‚r –ž’ŠOsakaVFO‘‘NT @‚l‚r –ž’Š ff4550-‚f‚l @•W€ƒSƒVƒbƒN ‚g‚fłž˛‘‘ĚAbadi MT Condensed Light‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–ž’Š @‚l‚r ‚o–ž’Š @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT Condensed Extra BoldAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab7‘jTŽUŇCenterzNone; ţř m€Default :   * Customer:static24@B@X@8@RightCenterzNone;„żź˝'ž… ’%66n€Defaulto€Anym€DefaultULJ ORDER_NUMBERSK ImmediateISequencejj ORDER_NUMBER Long Integer)a 3D Control:   ,*1 ORDER_NUMBERxy*^@@4EN@8@98Center,;„Ńż‚ƒź˝'ž…šŇ‡É¸ ţř m€Default :   *Ojjrder:static14@@X@8@RightCenterzNone;„€ż€ź€˝€'€ž€…€Ŕ]@`f@4Er@8@98 Start,;„Ńż‚ƒź˝'ž…šŠIF ISNULL(Value) THEN SHIP_NAME.Visible = False fldDefault.Visible = True ELSE SHIP_NAME.Visible = True fldDefault.Vijjsible = False END IF ҇ɸ ţř m€Default :   * Ship To Name:static9 @€f@[@8@RightCenterzNone;„żź˝'ž… ţř m€Default :   * Telephone:static8`h@@jjUneŇX@8@RightCenterzNone;„€ż€ź€˝€'€ž€…€  ’%66n€Defaulto€Anym€DefaultULJK ImmediateINoneSTATEString)a 3D Control:   ,*1STATExy*@t@b@4EB@jj8@98Start,;„Ńż‚ƒź˝'ž…šŇ‡É¸  ’%66n€Defaulto€Anym€DefaultULJK ImmediateITable, MAX()+CounterIncByCITYString)a 3D Control:   ,*1CITYxy*^@b@4jjEh@8@98Start,;„Ńż‚ƒź˝'ž…šŇ‡É¸ ţř m€Default„ ż:   *Address:ź˝'žstatic3…4@R@X@8@RightCenterzNone; ţř m€Djjefault :   * Customer:static24@B@X@8@RightCenterzNone;„żź˝'ž… ’%66n€Defaulto€Anym€DefaultULJ ORDER_NUMBERSK ImmediateISequence ORDER_NUMBER Long Integer)a 3D Control:   jjV*WŇ11 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 BdCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TajjbSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BTShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Cjjode 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrols'$ ˜‘nknl€Default6~DefaultËĚÍÓ„˘Ă%5 3ľŤđż:ŽŠ‹Œ‰ˆ,Djj*Ź÷FApplication.udmDefMenuBar( Self ) Application.udmDefToolBar( Self ) ´Customer—! #Refuse if Children Present$Refuse if Children Presentš œ›™˜Ÿž" On Masterź˝'ž frmCustomerÖ×…ŚŞ¨§Ą+š“–Ň’‘Ž•jjWXŇ”‡†Š4 CUSTOMERSMCHORDERDATÄQFetch As Needed­~@đu@98ńfŚDIM vOpenOrders AS Double EXEC SQL AT ORDERDAT & Select NVL( SUM((O_I.QUANTITY * It.Price) * (1 - O_I.DISCOUNT)) ,0) & Into :vOpenOrders & From ITEMS It, & ORDER_ITEMS O_I, ORDERS Ord & Where O_I.ORDER_ITEM = It.ITEM_jjNUMBER & And O_I.ORDER_NUMBER = Ord.ORDER_NUMBER & And Ord.CUSTOMER_NAME = :pCustomerName ' IF SqlErrClass() > 0 THEN MSGBOX "There was a problem checking available credit. " & CHR(10) & SqlErrText() EXIT FUNCTION ELSE ' Business rule - everyone gets $100 credit, no questions asked. udmCheckCredit = NVL(CREDIT_LIMIT.Value, 100) - vOpenOrders - pNewAmount END IF ĘľIF ISNULL(CUSTOMER_NAME.Value) THEN MSGBOX "Please enter a name for this customer" CUjjSTOMER_NAME.SetFocus() ValidateRow = False ELSE ValidateRow = True END IF-;2 Automatic2Standard Documenthijk  Á°­>Upper Left to Lower Righta 3D Control:*line1^@`j@r@đ?;„€ż€ź€˝€'€ž€…€ ćŸ…€ž€'€˝€ź€ż€„´MSGBOX("Remaining jjcredit for this customer is: " & CHR$(10) && FORMAT(frmCustomer.udmCheckCredit(CUSTOMER_NAME.Value, 0), "$#####0.00") & , cOk , "Credit check") ;89;@€`@Pp@ŕp@btnCheck Check credit+*  :aStandard Control6l€Default ލ9l€Default:*hsb1^@ s@<= djjXYŇ  container q@8@98;„żŠ‹Œ‰ˆź˝'ž…šŇ ’%66n€Defaulto€Anym€DefaultULJK ImmediateINone CREDIT_LIMITDouble)100a 3D Control:   Currency,*1 CREDjjIT_LIMITxy*^@€p@4ER@8@98Left,;„Ńż‚ƒź˝'ž…šŇ‡É¸ ţř m€Default :   * Credit Limit:static13(@€p@X@8@98RightCenterzNone;„€jjż€ź€˝€'€ž€…€ ’%66n€Defaulto€Anym€DefaultULJK ImmediateINone  TELEPHONEString)a 3D Control:   ,*1 TELEPHONExy*^@€l@4E[@8@98Left,;„€Ń€ż€‚€ƒ€ź€˝€'jj€ž€€…€š€Ň€‡€É€¸€ ţř m€Default :   *Phone:static9>@€l@€S@8@98RightCenterzNone;„€ż€ź€˝€'€ž€…€ ’%66nDefaultoAnymDefaultULJK ImmediateINone ZIPSjjYZŇtring)a 3D Control:   ,*1ZIPxy*^@@e@4EX@8@98Left,;„€Ń€ż€‚€ƒ€ź€˝€'ž€€…€š€Ň€‡€É€¸€  ţř mDefault :   *Zip:jjstatic7(@@e@X@8@98 RightCenterzNone;„€ż€ź€˝€'ž€…€  ’%66n€Defaulto€Anym€DefaultULJK ImmediateINoneSTATEString)a 3D Control:   ,*1STATExy* v@@e@4jjEH@8@98 Left,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€  ţř m€Default :   * State/Prov:static6Ŕn@@e@U@8@98 RightCenterzNone;„€ż€ź€˝€'€ž€…€  jj’%66nDefaultoAnymDefaultULJK ImmediateINoneCITYString)a 3D Control:   ,*1CITYxy*^@Ŕ`@4Eh@8@98 Left,;„€Ń€ż€‚€ƒ€ź€˝€'ž€€…€š€Ň€‡€É€¸€ jjZ[Ň ţř m€Default :   *City:static5(@Ŕ`@X@8@98 RightCenterzNone;„€ż€ź€˝€'€ž€…€ ’%66n€Defaulto€Anym€DefaultULJK ImmediateINone(ADDRESS2String)a 3D Cjjontrol:   ,*1ADDRESS2xy*^@€X@4Er@8@98Left,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€ ’%66nDefaultoAnymDefaultULJK ImmediateINone(ADDRESS1String)jja 3D Control:   ,*1ADDRESS1xy*^@O@4Er@8@98Left,;„€Ń€ż€‚€ƒ€ź€˝€'ž€€…€š€Ň€‡€É€¸€ ţř mDefault :   *Address:static3(@jjO@X@8@98RightCenterzNone;„€ż€ź€˝€'ž€…€ ’%66n€Defaulto€Anym€DefaultULJK ImmediateINone( CUSTOMER_NAMEString)a 3D Control:   ,*1 CUSTOMER_NAMExy*^@:@4Ejj[\Ňr@8@98Left,;„Ńż‚ƒź˝'ž…šŇ‡É¸ ţř m€Default :   *Name:static2(@:@X@8@98RightCenterzNone;„€ż€ź€˝€'€ž€…€jj: m€Defaultţř m€Default :   *Name:static2(@:@X@8@98RightCenterzNone;„€ż€ź€˝€'€ž€…€CenterzNone;„€ż€ź€˝€'€ž€…€^@8@4EH@8@98jjLeft,;„€Ń€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€ ţř m€Default :   *Cust#:static1(@8@X@8@98RightCenterzNone;„€ż€ź€˝€'€ž€…€…€fault :   *jjCust#:static1(@8@X@8@98RightCenterzNone;„€ż€ź€˝€'€ž€…€*xoAnynDefaultmDefaultł€Ä€‚€Í€´€€€€š€¸€ˇ€~€}€ş€Ě€€;#TopLeft89Đ?@E4ä?ô? CUSTOMER_NAME1jj\M!,  :aStandard Control String CUSTOMER_NAME(INoneK ImmediateJLU ą0EmDefaultzNone€€š€¸€ˇ€ş€€;BottomRight89Đ?đ?ä?Ŕ?static2Name:!   jj:  oü66y*xoAnynDefaultmDefaultłÄ‚Í´€š¸ˇ~}şĚ;#TopLeft89Đ?ŕ?E4Đ?ô? CUSTOMER_KEY1!,  :aStandard Control  Long Integer CUSTOMER_KEYjjISequenceK ImmediateJ CUST_NUMBERSLU ą0EmDefaultzNone€€š€¸€ˇ€ş€€;BottomRight89Đ?đ?Đ?Ŕ?static1Cust#:!   : jjj‘]¤[ž…šŇ‡É¸ ţř mDefault :   * Error Number:static1@€Z@8@RightCenterzNone;„żź˝'ž…‘‘‘‘‘‘‘‘^ÜŹta:static1*@(@ŕm@8@StartTopzNone;„żź˝'ž…‘‘‘‘‘‘‘‘_Ľ’,&%ORDERS;„€ż€‚€ƒ€ź€˝€'€ž€€…€š€Ň€‡€É€¸€‘‘‘‘‘‘‘‘` nparator, 0) tbrMain.TBAppendButton( Cmd_ItemD, bmpItemD, ToolbarStyle_PushBtn, 0) ' 'Assign tbrMain to the calling form pForm.SetToolBar(tbrMain) 8T' Set up general menu for Order Entry application ' DIM mnuBar AS Object 'Make MnuBar object into a menu bar mnuBar = NEW MenuBar 'Assign default menus to mnuBar pForm.DefaultMenuBar(mnuBar) 'Assign the custom menu to mnuBar mnuBar.InsertMenu( 4, MnuOrd ) 'Assign mnuBar to the calling form ‘‘pForm.SetMenuBar(mnuBar) 7ď' One-time menu preparation 'Add entries to the custom menu MnuOrd = NEW Menu MnuOrd.Label = "Order Entry" MnuOrd.InsertMenuItem(1, "Customers", Cmd_Cust , NULL, NULL ) MnuOrd.InsertMenuItem(2, "Enter Orders", Cmd_Main , NULL, "^E" ) MnuOrd.InsertMenuItem(3, "-", 0 , NULL, NULL ) MnuOrd.InsertMenuItem(4, "Item Detail", Cmd_ItemD, NULL, NULL ) MnuOrd.InsertMenuItem(5, "-", 0 , NULL, NULL ) MnuOrd.InsertMenuItem(6, "Show Order Rate", Cmd_OrdRate‘‘ , NULL, NULL ) END IF END SELECT and_Disabled END IF END SELECT 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) brMain.TBAppendButton( Cmd_Cust, bmpCust, ToolbarStyle_PushBtn, 0) tbrMain.TBAppendButton( Cmd_Main, bmpMain, ToolbarStyle_PushBtn, 0) tbrMain.TBAppendButton( 0, NULL, ToolbarStyle‘‘_Separator, 0) tbrMain.TBAppendButton( Cmd_ItemD, bmpItemD, ToolbarStyle_PushBtn, 0) ' 'Assign tbrMain to the calling form pForm.SetToolBar(tbrMain) ‘jbl@ccjjjjjjjjclfBMfv(đÎŘżżżżżżżżżŔŔŔ€€€˙˙˙˙˙˙˙˙˙˙˙˙wwwwwwwwwwwwwwwwwwwwwˆˆˆˆˆˆˆˆww@ˆˆˆˆˆˆ@wwˆˆ„ww@@@@@@@@wwww@@@@@@@@wwptww@@G@@wpwwwwwwwp@G@@w@@wwttwwwp@GwwwpGwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwjjjjjjjjdm@ffjjjjjjjje0ź,*1 ORDER_NUMBERxy*^@@4EN@8@98Center,;„Ńż‚ƒź˝'ž…šŇ‡É¸ ţř m€Default :   *Order:static14@@X@jj8@RightCenterzNone;„€ż€ź€˝€'€ž€…€ ORDER_NUMBERSLUm€Defaulto€Anyn€Default ţř …€ž€'€˝€ź€ż€„€;zNoneCenterRight8@X@@4@static1Order:*  : m€Default * Customerjj:ź˝'žstatic2…(@N@X@8@RightBottomzNone; ’%66n€Defaulto€Anym€Default„UŃLJ ORDER_NUMBERSK ImmediateISequence ORDER_NUMBER Long Integer)ża 3D Control:‚ƒ   ,*ź˝'ž1jj ORDER_NUMBER…xy*^@8@šŇ‡4ÉEN@8@98Center¸,; ţř mDefault„ ż:   *Order:ź˝'žstatic1…(@8@X@8@RightBottomzNone;jjfmĆ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 ȸ,;jjjjjjqštrstjjjjjjj‘ršsŇ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 ‘‘sštŇ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:‘jtšä  *+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‘uvŇ‘‘‘‘‘‘‘‘vwŇ‘‘‘‘‘‘‘‘wxŇ‘‘‘‘‘‘‘‘xyŇ‘‘‘‘‘‘‘‘yzŇ‘‘‘‘‘‘‘‘z{Ň‘‘‘‘‘‘‘‘{|Ň‘‘‘‘‘‘‘‘|}Ň‘‘‘‘‘‘‘‘}~Ň‘‘‘‘‘‘‘‘~Ň‘‘‘‘‘‘‘‘€Ň‘‘‘‘‘‘‘‘€Ň‘‘‘‘‘‘‘‘‚Ň‘‘‘‘‘‘‘‘‚ƒŇ‘‘‘‘‘‘‘‘ƒ„Ň‘‘‘‘‘‘‘‘„…Ň‘‘‘‘‘‘‘‘…†Ň‘‘‘‘‘‘‘‘†‡Ň‘‘‘‘‘‘‘‘‡ˆŇ‘‘‘‘‘‘‘‘ˆ‰Ň‘‘‘‘‘‘‘‘‰ŠŇ‘‘‘‘‘‘‘‘Š‹Ň‘‘‘‘‘‘‘‘‹ŒŇ‘‘‘‘‘‘‘‘ŒŇ‘‘‘‘‘‘‘‘ŽŇ‘‘‘‘‘‘‘‘ŽŇ‘‘‘‘‘‘‘‘Ň‘‘‘‘‘‘‘‘‘Ň‘‘‘‘‘‘‘‘‘’Ň‘‘‘‘‘‘‘‘’“Ň‘‘‘‘‘‘‘‘“”Ň‘‘‘‘‘‘‘‘”•Ň‘‘‘‘‘‘‘‘•–Ň‘‘‘‘‘‘‘‘–—Ň‘‘‘‘‘‘‘‘—˜Ň‘‘‘‘‘‘‘‘˜™Ň‘‘‘‘‘‘‘‘™šŇ‘‘‘‘‘‘‘‘š›Ň‘‘‘‘‘‘‘‘›œŇ‘‘‘‘‘‘‘‘œŇ‘‘‘‘‘‘‘‘žŇ‘‘‘‘‘‘‘‘žŸŇ‘‘‘‘‘‘‘‘Ÿ Ň‘‘‘‘‘‘‘‘ ĄŇ‘‘‘‘‘‘‘‘Ą˘Ň‘‘‘‘‘‘‘‘˘ŁŇ‘‘‘‘‘‘‘‘Ł¤Ň‘‘‘‘‘‘‘‘¤ĽŇ‘‘‘‘‘‘‘‘ĽŚŇ‘‘‘‘‘‘‘‘Ś§Ň‘‘‘‘‘‘‘‘§¨Ň‘‘‘‘‘‘‘‘¨ŠŇ‘‘‘‘‘‘‘‘ŠŞŇ‘‘‘‘‘‘‘‘ŞŤŇ‘‘‘‘‘‘‘‘ŤŹŇ‘‘‘‘‘‘‘‘Ź­Ň‘‘‘‘‘‘‘‘­ŽŇ‘‘‘‘‘‘‘‘ŽŻŇ‘‘‘‘‘‘‘‘Ż°Ň‘‘‘‘‘‘‘‘°ąŇ‘‘‘‘‘‘‘‘ą˛Ň‘‘‘‘‘‘‘‘˛łŇ‘‘‘‘‘‘‘‘ł´Ň‘‘‘‘‘‘‘‘´ľŇ‘‘‘‘‘‘‘‘ľśŇ‘‘‘‘‘‘‘‘śˇŇ‘‘‘‘‘‘‘‘ˇ¸Ň‘‘‘‘‘‘‘‘¸šŇ‘‘‘‘‘‘‘‘šşŇ‘‘‘‘‘‘‘‘şťŇ‘‘‘‘‘‘‘‘ťźŇ‘‘‘‘‘‘‘‘ź˝Ň‘‘‘‘‘‘‘‘˝žŇ‘‘‘‘‘‘‘‘žżŇ‘‘‘‘‘‘‘‘żŔŇ‘‘‘‘‘‘‘‘ŔÁŇ‘‘‘‘‘‘‘‘ÁÂŇ‘‘‘‘‘‘‘‘ÂĂŇ‘‘‘‘‘‘‘‘ĂÄŇ‘‘‘‘‘‘‘‘ÄĹŇ‘‘‘‘‘‘‘‘ĹĆŇ‘‘‘‘‘‘‘‘ĆÇŇ‘‘‘‘‘‘‘‘ÇČŇ‘‘‘‘‘‘‘‘ČÉŇ‘‘‘‘‘‘‘‘ÉĘŇ‘‘‘‘‘‘‘‘ĘËŇ‘‘‘‘‘‘‘‘ËĚŇ‘‘‘‘‘‘‘‘ĚÍŇ‘‘‘‘‘‘‘‘ÍÎŇ‘‘‘‘‘‘‘‘ÎĎŇ‘‘‘‘‘‘‘‘ĎĐŇ‘‘‘‘‘‘‘‘ĐŃŇ‘‘‘‘‘‘‘‘ŃŇŇ‘‘‘‘‘‘‘‘ŇÓŇ‘‘‘‘‘‘‘‘ÓÔŇ‘‘‘‘‘‘‘‘ÔŐŇ‘‘‘‘‘‘‘‘ŐÖŇ‘‘‘‘‘‘‘‘Ö×Ň‘‘‘‘‘‘‘‘×ŘŇ‘‘‘‘‘‘‘‘ŘŮŇ‘‘‘‘‘‘‘‘ŮÚŇ‘‘‘‘‘‘‘‘ÚŰŇ‘‘‘‘‘‘‘‘ŰÜŇ‘‘‘‘‘‘‘‘ÜÝŇ‘‘‘‘‘‘‘‘ÝŢŇ‘‘‘‘‘‘‘‘ŢßŇ‘‘‘‘‘‘‘‘ßŕŇ‘‘‘‘‘‘‘‘ŕáŇ‘‘‘‘‘‘‘‘áâŇ‘‘‘‘‘‘‘‘âăŇ‘‘‘‘‘‘‘‘ăäŇ‘‘‘‘‘‘‘‘äĺŇ‘‘‘‘‘‘‘‘ĺćŇ‘‘‘‘‘‘‘‘ćçŇ‘‘‘‘‘‘‘‘çčŇ‘‘‘‘‘‘‘‘čéŇ‘‘‘‘‘‘‘‘éęŇ‘‘‘‘‘‘‘‘ęëŇ‘‘‘‘‘‘‘‘ëěŇ‘‘‘‘‘‘‘‘ěíŇ‘‘‘‘‘‘‘‘íîŇ‘‘‘‘‘‘‘‘îďŇ‘‘‘‘‘‘‘‘ďđŇ‘‘‘‘‘‘‘‘đńŇ‘‘‘‘‘‘‘‘ńňŇ‘‘‘‘‘‘‘‘ňóŇ‘‘‘‘‘‘‘‘óôŇ‘‘‘‘‘‘‘‘ôőŇ‘‘‘‘‘‘‘‘őöŇ‘‘‘‘‘‘‘‘ö÷Ň‘‘‘‘‘‘‘‘÷řŇ‘‘‘‘‘‘‘‘řůŇ‘‘‘‘‘‘‘‘ůúŇ‘‘‘‘‘‘‘‘úűŇ‘‘‘‘‘‘‘‘űüŇ‘‘‘‘‘‘‘‘üýŇ‘‘‘‘‘‘‘‘ýţŇ‘‘‘‘‘‘‘‘ţ˙Ň‘‘‘‘‘‘‘‘˙Ň‘‘‘‘‘‘