podb File format Copyright (c) 1994,1995 by Oracle Corporation. ÔÄ9 ~2ÍŘřB% podb‘ććđ ‘jćĺđ jj€ j‘ ‘j dÖj‘ d֑‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘j˙˙˙˙˙˙˙˙€˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙jjj‘‘j@0”* >€ßđ˙˙˙˙˙˙˙˙˙˙˙˙˙˙Ă˙jj˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙jjjjj‘@0Š* đ˙˙˙˙˙˙˙˙˙˙˙˙˙˙Ă˙‘‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘‘‘‘j jjjjjjj ( '  jjjjjjjj@   jjjjjjj‘` kI u‘‘‘‘‘‘‘‘   §Mƒš \Ż[ŻWŞüđ ~APPLID~00000008:000000000000.00010000đ ~APPINF~0000000C:000000000000.00010001đ00000002327E0A5E00000013:000000000000.00010003frmMainđ0000001B32C10FF900000120:000000000000.00010516nopictđ0000002932CE7D9A00000025:000000000000.000107D0 frmLoginđ0000001D32C43A750000002C:000000000000.000105DCfrmExportFile‘‘đ0000001F32C58A330000003C:000000000000.000106A4 frmErrorsđ0000002032C58D6800000041:000000000000.000106A5 frmTablesđ0000002232CC296900000052:000000000000.00010708 frmCustomerđ0000002632CD441D00000062:000000000000.0001076CBmpcustđ0000002732CD442900000064:000000000000.0001076D Bmpitemdđ0000002832CD443200000067:000000000000.0001076EBmpmain‘‘đ0000002A32CE811E00000069:000000000000.00010834 frmCatalog‘‘‘j h2jjjjjjj‘ )` `‘‘‘‘‘‘‘j L`Ň IBM1252proplistľ proptbl†Ś 8 udmDefToolBar udmDefMenu udmDefMenuBar6LongpForm AS Object7Long8LongpForm AS ObjectđńńkSELECT 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 Cmd_RepOrder TestCommand = TestCommand_Enabled CASE ELSE IF cmdCode >= Cmd_FirstUserCommand THEN TestCommand = TestCommand_Disabled END IF END SELECT …+frmLogin.OpenModal(0) frmMain.OpenWindow()Ł€ŐSelf.udmDefMenu()đSELECT CASE cmdCode CASE Cmd_Main frmMain.OpenWindow() jj DoCommand = TRUE CASE Cmd_Cust frmCustomer.OpenWindow() DoCommand = TRUE CASE ELSE DoCommand = FALSE END SELECT %€¤€$€Chap9 Chapter 9gORDERDATp€}€ 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 COjjNST Cmd_RepOrder = Cmd_FirstUserCommand + 14 ' GLOBAL mnuOrd As Object ' CONST cOk = 0 CONST CURSOR_BUSY = 1 CONST MSGBOX_YES = 6 CONST MSGBOX_YESNO = 2926Ś'Define a toolbar for use by most forms ' 'Declare object variable for toolbar DIM tbrMain AS Object 'Convert the object variable into a toolbar object tbrMain = NEW ToolBar ' 'Assign default buttons to toolbar pForm.DefaultToolBar(tbrMain) ' 'Custom Toolbar entries tbrMain.TBAppendButton( 0, NULL, ToolbarStyjj ( (  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‘jN “*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‘‘ĽŇ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 NewYo‘‘rk 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 Monospace‘‘Omnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsǚ 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 Long‘‘ ' vCount = vCount + 1 ' IF vStartSeconds = 0 THEN vStartSeconds = TIMER() ELSE vElapSeconds = TIMER() - vStartSeconds IF vElapSeconds < 60 THEN vElapSeconds = 60 Self.udpMinutesPerOrder = (vElapSeconds / 60) / vCount END IF ' ValidateRow = TRUE fń˙STATIC vSeconds AS Long ' SELECT CASE cmdCode CASE Cmd_ItemD TestCommand = TestCommand_Enabled CASE Cmd_OrdRate IF udpDisplayMinPerOrd THEN TestComma‘‘yŇ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") & " a‘‘t " & 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 I‘‘nherited.Query() oRecSet = frmMain.GetRecordset() lblRecordStats.Label = "Record 1 of " & STR(oRecSet.GetRowCountAdvice()) btnFirst.Enabled = False btnPrev.Enabled = False btnNext.Enabled = True btnLast.Enabled = True ”•Ž‘’Ň–“š+Ą§¨ŞŚ…×ÖfrmMainž'˝ź" On MasteržŸ˜™›œ š‘‘$Refuse if Children Present#Refuse if Children Present !— Enter Orders´÷ŕApplication.udmDefMenuBar( Self ) Application.udmDefToolBar( Self ) ' DIM sbrMain AS Object sbrMain = NEW StatusLine sbrMain.SysDefaultStatusLine() sbrMain.InsertStatusPanel(2, 200, 40) Self.SetStatusLine( sbrMain ) Ź*D,ˆ‰Œ‹ŠŽ:żđąSELECT CASE cmdCode CASE Cmd_ItemD ‘‘eŇ 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 S‘‘TATIC 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.DataSo‘‘urce & "," & 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() nCount‘‘Cur = 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 yojjur 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 IjjF 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 jjLong ' vCount = Self.GetRecordSet().GetRowCountAdvice() IF vCount < 1 THEN MSGBOX("Please select orders before running this report") Exit Sub ELSE IF MSGBOX_YES <> MSGBOX("OK to report on " & vCount & " orders? ", MSGBOX_YESNO, repOrder.Label) 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 problemj‘ľŇ with QUERY_TEMP_SEQ. " & 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 IF 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 oCur‘‘Object HasProperty udpRequired 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 Ą2SW;-Ęf89R@e@QFetch As NeededHCM‘‘ =container4Š†‡”•Ž‘’Ň–“š€j@g@+Ś…clsDataPushButtonsž'˝ź" On MasteržŸ˜™›œ š$Refuse if Children Present#Refuse if Children Present !—Class12´*D,ˆ‰Œ‹ŠŽ:żľ3‘j€Ň%„ÓÍĚˍ~Default6lDefaultFG E7 ţř ;zNoneTopCenter8@e@€B@…€lblRecordStatsž€'€˝€ź€*  :ż€ „€m€Default ćŸ;89jj=@;@@Ŕ]@…btnLastž'˝ź>>+*  :a 3D Controlż„AIF frmMain.udmCheckRequiredFields() = True THEN Inherited.Click()6lDefault ćŸ;89=@;@@W@…btnNextž'˝ź>+*  :jja 3D Controlż„AIF frmMain.udmCheckRequiredFields() = True THEN Inherited.Click()6lDefault ćŸ;89=@;@@@P@…btnPrevž'˝ź<+*  :a 3D Controlż„AIF frmMain.udmCheckRequiredFields() = True THEN Inherited.Click()6lDefault ćŸ;89jj=@;@@C@…btnFirstž'˝ź<<+*  :a 3D Controlż„AIF frmMain.udmCheckRequiredFields() = True THEN Inherited.Click()6lDefaultI R MasterLibrary0000000B32CAF771clsRequiredField Ą2SV;-ʐf898@€U@QFetch As NeededHCM j‘cŇ=container4Š†‡”•Ž‘’Ň–“šb@0w@+Ś…clsZIPž'˝ź" On MasteržŸ˜™›œ š$Refuse if Children Present#Refuse if Children Present !—Class11´*D,ˆ‰Œ‹ŠŽ:‘‘żľ3%„ÓÍĚË~Default6lDefaultJI’7’ ’%66;,¸Start895@ŔT@Eɐ4‡Ňš@đ?y*x…fldRequiredField1ž'˝ź*,  ƒ‚:a‘‘ 3D Controlż)StringZIPINoneK ImmediateJLѐU„mDefaultoAnynDefaultI Q MasterLibrary0000000B32CAF771clsRequiredField Ą2SV;-ʐf898@e@QFetch As NeededHCM =container4Š†‡”•Ž‘’Ň–“š‘‘@@r@+Ś… clsTELEPHONEž'˝ź" On MasteržŸ˜™›œ š$Refuse if Children Present#Refuse if Children Present !—Class11´*D,ˆ‰Œ‹ŠŽ:żľ3%„ÓÍĚË~Default6lDefaultJI‘‘ËŇ’7’ ’%66;,¸Start895@ŕd@Eɐ4‡Ňš@đ?y*x…fldRequiredField1ž'˝ź*,  ƒ‚:a 3D Controlż)String TELEPHONEINoneK ImmediateJL‘‘ѐU„mDefaultoAnynDefaultD P MasterLibrary0000000A32CA95C0 clsDataHelp Ą2ST;-Ę˜f898@r@QFetch As NeededHCM =container4Š˜†˜‡˜”˜•˜Ž˜˜‘˜’˜Ň˜–˜˜“˜š˜@Z@Ŕ]@+Ś˜…˜ clsADDRESS2ž˜'˜˝˜ź˜" On Masterž‘‘˜Ÿ˜˜˜™˜›˜œ˜ ˜š˜˜$Refuse if Children Present#Refuse if Children Present !—˜Class10´˜*D,ˆ˜‰˜Œ˜‹˜Š˜Ž˜:ż˜ľ˜3%˜„˜Ó˜Í˜˜Ě˜Ë˜˜~Default6l˜Default7š ’%66;,¸˜Start895@đq@Eɘ4‘‘‡˜Ň˜š˜@đ?y*x…˜˜ fldDataHelp1ž˜'˜˝˜ź˜*,  ƒ˜‚˜:a 3D Controlż˜)StringADDRESS2INoneK ImmediateJLŃ˜U„˜m˜Defaulto˜Anyn˜DefaultD O MasterLibrary0000000A32CA95C0 clsDataHelp Ą2ST;-Ę‘‘uŇ˜f898@Đr@QFetch As NeededHCM =container4Š˜†˜‡˜”˜•˜Ž˜˜‘˜’˜Ň˜–˜˜“˜š˜ŔQ@Ŕ]@+Ś˜…˜ clsADDRESS1ž˜'˜˝˜ź˜" On Masterž˜Ÿ˜˜˜™˜›˜œ˜ ˜š˜˜$Refuse if Children Present#Refuse if Children Pre‘‘sent !—˜Class10´˜*D,ˆ˜‰˜Œ˜‹˜Š˜Ž˜:ż˜ľ˜3%˜„˜Ó˜Í˜˜Ě˜Ë˜˜~Default6l˜Default7š ’%66;,¸˜Start895@0q@Eɘ4‡˜Ň˜š˜@đ?y*x…˜˜ fldDataHelp1ž˜'˜˝˜ź‘‘˜*,  ƒ˜‚˜:a 3D Controlż˜)StringADDRESS1INoneK ImmediateJLŃ˜U„˜m˜Defaulto˜Anyn˜DefaultL N MasterLibrary0000000732C8F845clsDeletePushbutton Ą2SU;-Ęf89B@H@QFetch As NeededHCM =Container4‘‘Š†‡”•Ž‘’Ň–“š`t@(€@+Ś…clsDeletePushbuttonž'˝ź" On MasteržŸ˜™›œ š$Refuse if Children Present#Refuse if Children Present !—Class7´*D,ˆ‰Œ‹ŠŽ:żľ3%„‘j˘ŇÓÍĚˍ~Default6l˜DefaultG  rptOrderItems7 ćŸ;89B@H@… btnDeletež'˝źDelete+*  :a 3D Controlż„6lˆDefault LćŸl€Default6„ëREDIM sImportjjArray(9) AS String DIM nRows AS Integer, nErrors AS Integer nRows = 0 nErrors = 1 DIM nFileData AS Integer, nFileReason AS Integer nFileData =FREEFILE OPEN "c:\errors\error.txt" FOR OUTPUT AS nFileData nFileReason = FREEFILE OPEN "c:\errors\reason.txt" FOR OUTPUT AS nFileReason ' dlgImport.OpenFileDialog() dlgImport.OpenModal(0) DIM sInsert AS String IF ISNULL(dlgImport.Pathname.Value) THEN MSGBOX("You did not choose a file to use for import.",16, "No import file") CLOSE nFileData jj CLOSE nFileReason EXIT SUB ELSE frmTables.OpenModal(0) frmLink.OpenModal(0) IF NOT ISNULL(frmLink.udpRecordset) THEN DIM nFile AS Integer nFile = FREEFILE ON ERROR RESUME NEXT OPEN dlgImport.Pathname.Value FOR INPUT AS nFile IF ERR <> 0 THEN MSGBOX("Unable to open the import file.", 48, "File Open Failure") CLOSE nFileData CLOSE nFileReason EXIT SUB ELSE DIM sLineValue AS String, sValujje AS String DIM nStart AS Integer, nNext AS Integer DO UNTIL EOF(nFile) LINE INPUT # nFile, sLineValue DIM nColumn AS Integer DIM sColumns AS String, sImportValues AS String sColumns = "" sImportValues = "" nColumn = 1 nStart = 1 DO WHILE nStart <> 0 nNext = INSTR(nStart, sLineValue, ",") IF nNext <> 0 THEN j‘I*Ň 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) ‘j ( ‡LJK ImmediateINone ITEM_NUMBER Long Integer)a 3D Control:   ,*1 ITEM_NUMBERxy*,@8@4EX@8@98Start,;„Ńż‚ƒź˝'ž…šŇ‡É¸jj ţř m€Default :   * Item Numberstatic1,@X@8@StartBottomzNone;„żź˝'ž…m€Defaultţř m€Default :   * Item Numberstatic1,@X@8@StartjjBottomzNone;„żź˝'ž……X@8@StartBottomzNone;„żź˝'ž… Item Numberstatic1,@X@8@StartBottomzNone;„żź˝'ž…jjj‘!"Ň‘‘‘‘‘‘‘‘"#Ň‘‘‘‘‘‘‘‘#$Ň‘‘‘‘‘‘‘j$*jjjjjjjj%ĐüQ&'(+Qjjjjjjj‘&Đ'ŇIBM1252 cpprpscr_nlprtrecproptbl/Ś Ź_About udpSession‘‘9LongœObjectfonttblť Ä System FontArial MS Sans Serif Courier NewApplication FontOCR A ExtendedGenevaChicago‘‘TimesPalatinoAplication 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 Times‘‘CG 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ƒNCen‘‘'Đ(Ňtury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–ž’Š @‚l‚r ‚o–ž’Š @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT Condensed Extra BoldAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT‘‘ News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 BdCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface B‘‘TEngraversGothic 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 Garde‘‘IPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsŐ ˜‘nkm9@' 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. l€Def‘‘(Đ +Ňault6~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œ ORDERDATĘ-;2 Automatic2Standard Documenthijk  ‘‘ćŸl€Default6„Application.CloseApp()ża 3D Control:  *+Cancelź˝'ž btnCancel…@j@€a@@T@<@98; ćŸ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 o‘j*<2Ň 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, SqlErrCodjje() & " - " & 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 jjdue 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@jj6@98; 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()j‘+Đ QŇSession.RunConnect = TRIM(sConnect) 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") nFailur‘‘es = nFailures + 1 END IF END IF ża 3D Control:  *+Connectź˝'ž btnConnect…ŔR@€a@@T@<@98; ţř m€Default„ ż:   * Password:ź˝'žstatic3…$@ŔW@U@7@‘‘RightCenterzNone; ţř m€Default„ ż:   *User:ź˝'žstatic2…$@€M@U@7@RightCenterzNone; ’%66n€Defaulto€Anym€Default„UŃLJK ImmediateINoneString)ża‘‘ 3D Control:‚ƒ   ,*ź˝'ž1 fldPassword…xy*ŔX@ŔW@šŇ‡4ÉE o@:@98Start¸,; ’%66n€Defaulto€Anym€Default„UŃLJK ImmediateINoneString)‘‘,Ü;^-./^‘‘‘‘‘‘‘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 daj0@3;1789:;‘‘‘‘‘‘‘‘1@ 7ŇIBM1252 cpprpscr_nlprtrecproptblÁ Ś {xCloseDblClickKeyDownKeyPressKeyUp MouseDown MouseMoveMouseUpMove PathChange PatternChangeResizeScrolled ScrollingArchive BorderEffectCaption ControlBoxDirDrivexEnabledEchoFileListFileNameFont xFontBold xFo‘‘ntItalic xFontName xFontSizeFontStrikethruxFontUnderline FoundIndexHidden ListCount ListIndex MinButton MultiColumnNewIndexNormalPattern xReadOnlySelCount SelectionSelTextSizeableSortedSystemTitleBarTopIndexTopRow WindowStateSelStartSelEnd SelLength StartSearch SearchStringPath NextItemDatahWndColWidth ScrollWidthTabWidthxCase MousePointerText BorderStyle_TextToolTip BackColor ForeColorAddItemClear FindStringItemDataItemDataList‘‘List RemoveItemSelectedSelected SelItemRangeRefreshAboutBoxS;<=*KeyCode As Integer, ByVal Shift As Integer>KeyAscii As Intege‘‘r?*KeyCode As Integer, ByVal Shift As IntegerˆQByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long‰QByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As LongŠQByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long‹ŒŽ‘’“”•–—˜™š›‘j2 3Ň REDIM sArray(nCount) AS String frmExportFile.OpenModal(0) sExportFile = frmExportFile.fldExportFile.Value ON ERROR RESUME NEXT IF NOT ISNULL(sExportFile) THEN frmSelectColumns.OpenModal(0) ' You have to parse through the values in the selected pick list to create the values in sArray. objRecSet = frmSelectColumns.clsSelectedColumns.lstPickList.GetRecordset() nCount = objRecSet.GetRowCount() nPointer = 1 DO WHILE nPointer <= nCount jj 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 ' nCojjunt = 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 Injjteger, 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 & sQjj34Ňuote & FORMAT( & objRecSet.GetColVal(sArray(nArrayPointer))) & sQuote & "," nArrayPointer = nArrayPointer + 1 LOOP sLineValue = LEFT(sLineValue, LEN(sLineValue) - 1) PRINT #nFile, sLineValue nPointer = nPointer + 1 sLineValue = "" nArrayPointer = 0 LOOP CLOSE nFile ELSE MSGBOX("Export cancelled.", 32, "No Export") END IF 6l€Defaultjj C’%66;,¸Start8 97@r@EÉ4‡Ňš€f@Ŕ]@y*x… fldDefault1ž'˝ź*,  ƒ‚FSHIP_NAME.Visible = True Self.Visible = False SHIP_NAME.SetFocus() :a 3D Controlż)Same As CustomerStringINoneK jjImmediateJLŃU„m€Defaulto€Anyn€Default .Ë--;,¸tDIM sAddress1 AS String, sAddress2 AS String, sCity AS String DIM sState AS String, sZIP AS String, sCustomerName AS String DIM sTelephone AS String sCustomerName = newval EXEC SQL AT ORDERDAT SELECT ADDRESS1, ADDRESS2, CITY, STATE, ZIP, TELEPHONE & INTO :sAddress1, :sAddress2, :sCity, :sState, :sZIP, :sTelephone FROM CUSTOMERS WHERE & CUSTOMERjj_NAME = :sCustomerName clsADDRESS1.fldDataHelp.Value = sAddress1 clsADDRESS2.fldDataHelp.Value = sAddress2 CITY.Value = sCity STATE.Value = sState clsZIP.fldRequiredField.Value = sZIP clsTELEPHONE.fldRequiredField.Value = sTelephone Validate = TrueČ€'@= AT ORDERDAT SELECT CUSTOMER_NAME, CUSTOMER_NAME FROM CUSTOMERS898@r@EÉ€4‡€Ň€š„ B@^@…€€popCustomerNamež€'€˝€źj‘45Ň€popCustomerName3*Ž€  ƒ€‚€:a 3D Controlż€)String CUSTOMER_NAMEU„€l€Default (ţř ;zNoneCenterStart8@X@r@y@…€static5ž€'€˝€ź€ Line Total*  :ż€ ‘‘„€m€Default 'ţř ;zNoneCenterStart8@N@r@pt@…€static4ž€'€˝€ź€Discount*  :ż€ „€m€Default &ţř ;zNoneCenterCenter8@€H@r@p@…€static12ž€'€˝€ź€Price*‘‘  :ż€ „€m€Default %ţř ;zNoneCenterStart8@€N@r@`i@…€static11ž€'€˝€ź€Quantity*  :ż€ „€m€Default $ţř ;zNoneCenterStart8@b@r@€I@…€static‘‘10ž€'€˝€ź€ Order Item*  :ż€ „€m€Default 2]¸PP;-Ę€f8 9R@Ŕ~@QFetch As NeededHORDERDATCMCOLORS ORDER_ITEMS4Š€†€‡€”€•€Ž€€‘€’€Ň€–€€“€š€€s@(@+Ś€…€ rptOrderItemsž€'€˝€ź‘‘56Ň€" On Masterž€Ÿ€˜€™€›€œ€ €š€€$Update CascadefrmMain#Delete Cascade  ORDER_NUMBER! ORDER_NUMBER—€´€*D,ˆ€‰€Œ€‹€Š€Ž€:ż€ľ€3%€„€Ó€Í€€Ě€Ë€€l€Default  s °'lDefaultf,98‘‘ÓÍĚËž˝źż„;:*…UUUUUUĹżUUUUUUĹż repeat_dummy1 s °;f89Đ?ŤŞŞŞŞĘ@Đ?… repeat_dummy2ž'˝ź*,:ż„ÓÍĚËlDefault s °;f89‘‘8@°}@… repeat_panelž'˝ź*,:ż„ÓÍĚËl€Default "l­Ë;6@>@Ň€š€@@…€ curOrderItemž€'€˝€ź€*:żĆIF NOT ISNULL(popOrderItem.Value) THEN frmItemDetail.OpenModal(0) ELSE MSGBOX("You can only view the catalog when you have ‘‘selected an item.", & 64, "No Item Selected") END IF„€  ’%66;,¸€Right898@ŔW@EÉ€4‡€Ň€š€ w@y*x…€€ LINE_TOTAL1ž€'€˝€ź€*,Currency  ƒ€‚€:a 3D Controlż€)Double =(QUANTITY*PRICE) * (1-DISCOUNT)‘‘6ńKŇINoneK ImmediateJLŃ€U„€m€Defaulto€Anyn€Default ’%66;,¸€Right898@P@EÉ€4‡€Ň€š€o@y*x…€€PRICE1ž€'€˝€ź€*,Currency  ƒ€‚€:a ‘‘3D Controlż€)Double~=SqlLookup(ORDERDAT, "select price from items where item_number = " & IIF(ISNULL(popOrderItem.Value), 0, popOrderItem.Value) )INoneK ImmediateJLŃ€U„€m€Defaulto€Anyn€Default Ë--;,¸Č'6=AT ORDERDAT select DESCRIPTION,ITEM_NUMBER from ITEMS898@€c@EÉ4‡Ňš‘‘B@…ŒIF keycode = 17 THEN frmCatalog.popItems.Value = Value frmCatalog.OpenModal(0) Value = frmCatalog.popItems.Value END IF  popOrderItemž'˝źpopup13*Ž  ƒ‚:a 3D Controlż) Long Integer ORDER_ITEMU„l€Default ’%66;,¸„Center898@‘‘L@EÉ€4‡€Ň€š€h@y*x…€€QUANTITY1ž€'€˝€ź€*,  ƒ€‚ŰDIM nOrderItem AS Integer, nOrderNumber AS Integer, nOrderItemID AS Integer DIM nQuantity AS Integer, nColorNumber AS Integer DIM nCount AS Integer, nPointer AS Integer REDIM sColor(9) AS String, nColorID(9) AS Integer DIM nRow AS Integer nRow = rptOrderItems.Get‘j7@8ŇœžŸ Ą˘Ł¤ĽŚ§¨ŠŞŤŹ­ŽŻ°ą˛ł´ľśˇ¸šşťź˝žżŔÁÂĂÄĹĆjjÇČÉLong,ByVal Item As String, ByVal Index As VariantĘËLong5ByVal strItem As String, ByVal iStartAfter As VariantĚLongByVal Index As LongÍ+ByVal Index As Long, ByVal newValue As LongÎStringByVal Index As LongĎ-ByVal Index As Long, ByVal newValue As StringĐLongByVal Index As LongŃBooleanByVal Index As LongŇ.ByVal Index As Long, ByVal newValue As IntegerÓLongKByVal bSelect As Injjteger, ByVal nFirstItem As Long, ByVal nLastItem As LongÔŐfonttblť ÄArial MS Sans Serif System FontArial Rounded MT Bold Courier NewApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlgerianMonotype SortsMonotyjjpe 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 HandtooledBoldAGaramond BoldBarmeno j‘8@ 9Ň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 MT‘‘Bookshelf 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 BTCel850WinPTFntWin‘‘PTIntWP 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 CasablancaCasperOpenFaceCottagecontrolsc ˜‘nkkl€Default6~Default5 3:,D*Select Columns To Export!‘j9@:Ň #Refuse if Children Present$Refuse if Children Present" On MasterfrmSelectColumns+4MCHQFetch As Neededn@n@f-;2 Automatic2Standard Documenthijk€Ë€Ě€€Í€Ó€„€˘€Ă€%€ľ€Ť€đ€ż€Žjj€Š€‹€Œ€‰€ˆ€Ź€÷ŃApplication.udmDefMenuBar( Self ) Application.udmDefToolBar( Self ) ' DIM nCount AS Integer, nPointer AS Integer DIM objRecSet AS Object objRecSet = frmMain.GetRecordset() nCount = objRecSet.GetColCount() nPointer = 1 DO WHILE nPointer <= nCount IF objRecSet.GetColName(nPointer) <> "ROWID" AND & objRecSet.GetColName(nPointer) <> "" THEN & lstColumns.AddItem(objRecSet.GetColName(nPointer),0) nPointer = nPointer + 1 jj LOOP ´€—€€š€ €œ€›€™€˜€Ÿ€ž€ź€˝€'€ž€€Ö€×€…€Ś€Ş€¨€§€Ą€š€“€€–€Ň€’€‘€€Ž€•€”€‡€†€Š€Ä€€€­€ń€Ę€ ćŸl€Default6a 3D Control:  *+OKbtnOKL@ i@Y@jj7@98;„€ż€ź€˝€'€ž€…€ %HvnĹŕ‘`Çd’(dÄ(d“`ždĘU”` Long Integer)•`–`˜d™`šŕ›+d ŕČ`˘ŕ*Ł`˝ŕ¤ŕĽŕŚ`Â(d§` lstColumns¨ŕźŕŠdťŕŞd*.*.@B@4ż`EşŕŹŕ­dˇŕ¸ŕśŕŽŕj‘:@;ŇŻ` i@€c@°`šŕą`98ŔdeĂŕ˛`Ć`łŕ´ŕ,;ľŕÁ(d—dœŕŕžŕŸŕĄŕŤ`Ő É Ę „@<@Ë ‚ƒÍ Ě =@>@?@Î Ď ˆ@‰@Š@‹@…Œ@@šŇ‡Ô Đ Ž@ɏ@@Ň Ń Ó ¸;@㑑 ĐĎॹá>ţ˙ ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘˙˙˙˙˙˙˙˙˙ý˙˙˙ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘˙˙˙˙˙˙˙˙˙˙˙Root Entry˙˙˙˙˙˙˙˙ ě­ґ‡K Ż’f úv/ůťOle ˙˙˙˙˙˙˙˙˙˙˙˙Contents˙˙˙˙oOlePres000˙˙˙˙˙˙˙˙˙˙˙˙‘‘;@ ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙Ć FR㠑ÎăŞK¸QDB MS Sans Serif˙˙˙˙€–˙*.*K˙˙˙˙‘‘ŇQuickPak Professional for Windows, Copyright (c) 1995 Crescent Division of Progress Software Corporation. ţř m€Default :   *Available columns:static10@$@€j@:@StartTopzNone;‘‘„€ż€ź€˝€'€ž€…€‘j<¤,]=>?@]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ŚsP FGHIJLMNOP‘‘‘‘‘‘‘jFŚ$GŇIBM1252 cpprpscr_nlprtrecproptblŢ Ś {xCloseDblClickKeyDownKeyPressKeyUp udpRecordset MouseDown MouseMoveMouseUpMove PathChange PatternChangeResizeScrolled ScrollingArchive BorderEffectCaption ControlBoxDirDrivexEnabledEchoFileListFileNameFont xFjjontBold xFontItalic xFontName xFontSizeFontStrikethruxFontUnderline FoundIndexHidden ListCount ListIndex MinButton MultiColumnNewIndexNormalPattern xReadOnlySelCount SelectionSelTextSizeableSortedSystemTitleBarTopIndexTopRow WindowStateSelStartSelEnd SelLength StartSearch SearchStringPath NextItemDatahWndColWidth ScrollWidthTabWidthxCase MousePointerText BorderStyle_TextToolTip BackColor ForeColorAddItemClear FindStringItemDataItjjemDataListList RemoveItemSelectedSelected SelItemRangeRefreshAboutBoxT;<=*KeyCode As Integer, ByVal Shift As Integer>KeyAscjjii As Integer?*KeyCode As Integer, ByVal Shift As Integer„ObjectˆQByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long‰QByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As LongŠQByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long‹ŒŽ‘’“”•–—˜j‘GŚ5HŇ™š›œžŸ Ą˘Ł¤ĽŚ§¨ŠŞŤŹ­ŽŻ°ą˛ł´ľśˇ¸šşťź˝žżŔÁÂĂ‘‘ÄĹĆÇČÉLong,ByVal Item As String, ByVal Index As VariantĘËLong5ByVal strItem As String, ByVal iStartAfter As VariantĚLongByVal Index As LongÍ+ByVal Index As Long, ByVal newValue As LongÎStringByVal Index As LongĎ-ByVal Index As Long, ByVal newValue As StringĐLongByVal Index As LongŃBooleanByVal Index As LongŇ.ByVal Index As Long, ByVal newValue As IntegerÓ‘‘LongKByVal bSelect As Integer, ByVal nFirstItem As Long, ByVal nLastItem As LongÔŐfonttblť ÄArial MS Sans Serif System FontArial Rounded MT Bold Courier NewApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlg‘‘erianMonotype 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 HandtooledB‘‘HŚ3IŇoldAGaramond 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 Condense‘‘d 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 BTCe‘‘ntury725 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 BoldBlackletter‘‘686 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Ý3 ˜‘nkll€Default6~Default5 3:,D**Li‘‘IŚJŇnk import fields and destination columns! #Refuse if Children Present$Refuse if Children Present" On MasterfrmLink+4MCHQFetch As Neededx@r@f„ -;2 Automatic2Standard Documenthijk€Ë€Ě€€Í€Ó€„€˘€Ă‘‘€%€ľ€Ť€đ€ż€Ž€Š€‹€Œ€‰€ˆ€Ź€÷~Application.udmDefMenuBar( Self ) Application.udmDefToolBar( Self ) ' DIM rsColumns AS Object DIM nCount AS Integer, nPointer AS Integer, nPosition AS Integer DIM nFile AS Integer DIM sInput AS String nFile = FREEFILE DIM nStart AS Integer, nNext AS Integer, nField AS Integer DIM nValue AS String OPEN frmMain.dlgImport.Pathname FOR INPUT AS nFile LINE INPUT # nFile, sInput nStart = 1 nField = 1 n‘‘Next = 1 DO WHILE nNext <> 0 nNext = INSTR(nStart, sInput, ",") IF nNext <> 0 THEN lstImportFields.Translation = lstImportFields.Translation & & " Field " & STR(nField) & " - " & MID(sInput, nStart, & nNext - nStart) & " = " & STR(nField) & CHR(13) ELSE lstImportFields.Translation = lstImportFields.Translation & & " Field " & STR(nField) & " - " & MID(sInput, nStart, & LEN(sInput) - (nStart - 1)) & " =‘‘ " & STR(nField) END IF nStart = nNext + 1 nField = nField + 1 LOOP rsColumns = NEW DBRECORDSET( ORDERDAT ) udpRecordset = rsColumns rsColumns.SetQuery("SELECT * FROM " & frmTables.rbfTables.Value, FALSE) rsColumns.ReQuery() nCount = rsColumns.GetColCount() nPointer = 1 DO WHILE nPointer <= nCount nPosition = lstColumns.ListCount lstColumns.AddItem(rsColumns.GetColName(nPointer), nPosition) nPointer = nPointer + 1 LOOP CLOSE #nFile ´€—€€š€‘j JŚLŇ €œ€›€™€˜€Ÿ€ž€ź€˝€'€ž€€Ö€×€…€Ś€Ş€¨€§€Ą€š€“€€–€Ň€’€‘€€Ž€•€”€‡€†€Š€Ä€€€­€ń€Ę€ ćŸl€Default6a 3D Control:  *+Cancel btnCancelŕh@p@jj@U@5@98;„QDELETE frmLink.udpRecordset frmLink.udpRecordset = NULL frmLink.CloseWindow() żź˝'ž… ćŸl€Default6a 3D Control:  *+OKbtnOKŔX@p@@U@5@98;„ŔDIM rsLink AS Object DIM nCount AS Integer, nPointer AS Integer rsLink = NEW RECORDSET(True) rsLink.AddCjjolumn("COLUMN", RecDty_String) rsLink.AddColumn("DATATYPE", RecDty_Integer) nCount = lstImportFields.GetRecordset().GetRowCount() nPointer = 1 DO WHILE nPointer <= nCount rsLink.InsertRow() nPointer = nPointer + 1 LOOP DIM sValue AS String DIM nRow AS Integer nCount = lstLink.ListCount nPointer = 0 IF nCount > 0 THEN DO WHILE nPointer < nCount sValue = lstLink.List(nPointer) nRow = CINT(MID(sValue,INSTR(sValue,"->") - 3,3)) rsLink.SetCurRow( nRow ) rsLink.SetjjColVal("COLUMN", MID(sValue, INSTR(sValue, "->") +3)) rsLink.SetColVal("DATATYPE", VARTYPE(frmLink.udpRecordset.GetColVal(nRow ))) nPointer = nPointer + 1 LOOP DELETE frmLink.udpRecordset frmLink.udpRecordset = rsLink ELSE DELETE frmLink.udpRecordset frmLink.udpRecordset = NULL END IF frmLink.CloseWindow() ż€ź€˝€'€ž€…€ %HvnĹŕ‘`Çd’(dÄ(d“`ždĘU”` Long Intj‘KťTŇRecordset().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 :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_ID = :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(nColorID(nPointer))) END IF nPointer = nPointer + 1 nQuantity = 0 LOOP rptOrderItems.SetFocus() frmPickCo‘‘lors.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 :a 3D Controlż€) Long IntegerQUANTITYINoneK ImmediateJLŃ€U„€m€Defaulto€Anyn€Default ’%66;,¸€Right‘jLŚ"MŇeger)•`–`˜d™`šŕ›+d ŕČ`˘ŕ*Ł`˝ŕ¤ŕĽŕŚ`Â(d§`lstLink¨ŕźŕŠdťŕŞd*.*€C@Ŕe@4ż`EşŕŹŕ­`ˇŕ¸ŕśŕŽŕŻ`Ŕr@ŔR@°`šŕą`98ŔdeĂŕ˛`Ć`łŕ´ŕ,;ľŕÁ(d—dœŕjjŕžŕŸŕĄŕŤ`Ő É Ę „Ŕ<ŔË ‚€ƒ€Ě Í =Ŕ>Ŕ?ŔΠϠˆŔ‰ŔŠŔ‹Ŕ€…€ŒŔŔš€Ň€‡€Ô Đ ŽŔÉ€ŔŔŃ Ň Ó ¸€;Ŕç  ĐĎॹá>ţ˙ ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙jj˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ý˙˙˙ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙jj˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙Root Entry˙˙˙˙˙˙˙˙ ě­ґ‡K Ż’f€qňv/ůťOle j‘MŚ!NŇ˙˙˙˙˙˙˙˙˙˙˙˙Contents˙˙˙˙oOlePres000˙˙˙˙˙˙˙˙˙˙˙˙ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ŔFR㠑ÎăŞK¸QDB MS Sans Serif˙˙˙˙€–˙‘‘*.*K˙˙˙˙¤|pŇQuickPak Professional for Windows, Copyright (c) 1995 Crescent Divisi‘‘on of Progress Software Corporation. ćŸl€Default6a 3D Control:  *+Add LinkbtnAdd`@Ŕa@@_@7@98;„KDIM nCounter AS Integer IF NOT ISNULL(lstImportFields.Value) AND NOT ISNULL(lstColumns.Value) THEN lstLink.AddItem ( "Import field " & STR(lstImportFields.Value) & " -> " & & ‘‘NŚ!OŇ MID(lstColumns.SelText, 1, LEN(lstColumns.SelText) - 2), 0 ) 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 żź˝'ž… ţř m€Default ‘‘:  *Destination Columnsstatic5`i@@ a@5@StartCenterzNone;„żź˝'ž… %HvnĹŕ‘`Çd’(dÄ(d“`ždĘU”`String)•`–`˜d™`šŕ›+d ŕČ`˘ŕ*Ł`˝ŕ¤ŕĽŕŚ`Â(d§`‘‘ lstColumns¨ŕźŕŠdťŕŞd*.*€i@6@4ż`EşŕŹŕ­`ˇŕ¸ŕśŕŽŕŻ`€c@€[@°`šŕą`98ŔdeĂŕ˛`Ć`łŕ´ŕ,;ľŕÁ(d—dœŕŕžŕŸŕĄŕŤ`Ő É Ę „Ŕ<ŔË ‚€ƒ€Ě Í =Ŕ>Ŕ?ŔΠϠˆŔ‰ŔŠŔ‹Ŕ‘‘€…€ŒŔŔš€Ň€‡€Ô Đ ŽŔÉ€ŔŔŃ Ň Ó ¸€;Ŕç  ĐĎॹá>ţ˙ ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘jOŚPŇ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ý˙˙˙ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙jj˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙Root Entry˙˙˙˙˙˙˙˙ ě­ґ‡K Ż’f€qňv/ůťOle ˙˙˙˙˙˙˙˙˙˙˙˙Contentsjj˙˙˙˙oOlePres000˙˙˙˙˙˙˙˙˙˙˙˙ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙jj˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ^ FR㠑ÎăŞK¸QDB MS Sans Serif˙˙˙˙€–˙*.*K˙˙˙˙j‘PŚ\źkŇQuickPak Professional for Windows, Copyright (c) 1995 Crescent Division of Progress Software Corporation. ţř mDefault :‘‘  *Import Fields:static42@@€\@5@StartCenterzNone;„żź˝'ž… Ű>,,l€DefaultU Long Integer)a 3D Control:  *3lstImportFields(@8@4E€c@[@98',‘‘;„€ż€‚€ƒ€Ž€ź€˝€'€ž€€…€š€Ň€‡€É€Č€¸€‘‘‘jQĐ żża 3D Control:‚ƒ   ,*ź˝'ž1fldUser…xy*ŔX@M@šŇ‡4ÉE o@:@98Start¸,; ţř m€Default„ ż:   * Databasejj:ź˝'žstatic1…$@:@U@7@RightCenterzNone; Ë--l€Default„UdString)ża 3D Control:‚ƒ   Ž*3ź˝'ž popDatabase…€X@9@šoIF NOT ISNULL(Self.Value) THEN btnConnect.Enabledjj = True ELSE btnConnect.Enabled = 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‘‘TĽUŇ898@P@EÉ€4‡€Ň€š€s@y*x…€€DISCOUNT1ž€'€˝€ź€*,Percent  ƒ€‚€:a 3D Controlż€)DoubleDISCOUNTINoneK ImmediateJLŃ€U„€m€Defaulto€Anyn€Def‘‘ault ’%66;,¸Start898@8@EÉ4‡Ňš(@y*x… ORDER_ITEM_ID1ž'˝ź*,  ƒ‚:a 3D Controlż) Long Integer ORDER_ITEM_IDINoneKDeferredJ ITEM_NUMBERSLŃU„‘‘m€Defaulto€Anyn€Default ’%66;,¸Start8 98@r@EÉ4‡ŇšŠIF ISNULL(Value) THEN SHIP_NAME.Visible = False fldDefault.Visible = True ELSE SHIP_NAME.Visible = True fldDefault.Visible = False END IF `f@Ŕ]@y*x… SHIP_NAME1ž'˝ź*, ‘‘ ƒ‚:a 3D Controlż)String SHIP_NAME(INoneK ImmediateJLŃU„m€Defaulto€Anyn€Default ţř ;zNoneCenterRight8@[@€f@ @…static9ž'˝ź Ship To Name:*  :ż „m‘‘U‡eŇ€Default ţř ;zNoneCenterRight8@X@@`h@…€static8ž€'€˝€ź€ Telephone:*  :ż€ „€m€Default  ’%66;,¸Start898@B@EÉ4‡Ňšb@@t@y‘‘*x…STATE1ž'˝ź*,  ƒ‚:a 3D Controlż)StringSTATEINoneK ImmediateJLŃU„m€Defaulto€Anyn€Default  ’%66;,¸Start898@h@EÉ4‡Ňšb@‘‘^@y*x…CITY1ž'˝ź*,  ƒ‚:a 3D Controlż)StringCITYITable, MAX()+CounterIncByK ImmediateJLŃU„m€Defaulto€Anyn€Default ţř ;zNoneCenterRight8@X@R@4@…‘‘static3ž'˝źAddress:*  :ż „m€Default ţř ;zNoneCenterRight8@X@B@4@…static2ž'˝ź Customer:*  :ż „m€Default ’%66;,¸Center89‘jV*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`8le_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 menu bjjar 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.InsertMenuItejjm(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, "-", 0 , NULL, NULL ) MnuOrd.InsertMenuItem(7, "Show Order Rate", Cmd_OrdRate , NULL, NULL ) ed END IF END SELECT TestCommand = TestCommand_Disabled END IF CASE Cmd_RepOrder TestCommand = TestCommand_Enabled CASE ELSE jj IF cmdCode >= Cmd_FirstUserCommand THEN TestCommand = TestCommand_Disabled END IF END SELECT CASE Cmd_RepOrder TestCommand = TestCommand_Enabled CASE ELSE IF cmdCode >= Cmd_FirstUserCommand THEN TestCommand = TestCommand_Disabled END IF END SELECT jjblČccjjjjjjjjclfBMfv(đÎŘżżżżżżżżżŔŔŔ€€€˙˙˙˙˙˙˙˙˙˙˙˙wwwwwwwwwwwwwwwwwwwwwˆˆˆˆˆˆˆˆww@ˆˆˆˆˆˆ@wwˆˆ„ww@@@@@@@@wwww@@@@@@@@wwptww@@G@@wpwwwwwwwp@G@@w@@wwttwwwp@GwwwpGwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwjjjjjjjjdmČffjjjjjjjjeJƒŇ8@N@EÉ4‡Ňš@^@y*x… ORDER_NUMBER1ž'˝ź*,  ƒ‚:a 3D Controlż) Long Integer ORDER_NUMBERISequenceK ImmediateJ ORDER_NUMBERSLŃU„m€Defaulto€Anyn€jjDefault ţř ;zNoneCenterRight8@X@@4@…static1ž'˝źOrder:*  :ż „m€Default,*ź˝'ž1 ORDER_NUMBER…xy*^@@šŇ‡4ÉEN@8@98jjCenter¸,; ţř m€Default„ ż:   *Order:ź˝'žstatic1…4@@X@8@RightCenterzNone;4ÉEr@8@98 Start¸,; ţř m€Default„ ż:jj   * Ship To Name:ź˝'žstatic9… @€f@[@8@RightCenterzNone; ţř m€Default„€ ż€:   * Telephone:ź€˝€'€ž€static8…€`h@@X@8@RightCenterzNone;  ’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 ȸ,;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{‘‘‘‘‘‘‘‘@uG ^;“îA™í?đ0000002C32D04B3D00000074:000000000000.000108FCfrmPickColorsđ0000002D32D38BF10000007C:000000000000.00010960 frmColorQuantityđ0000002E32DD689800000084:000000000000.000109C4 repOrderđ0000002F32EB405C0000000E:000000000000.00010A28frmItemDetailđ00000030334A48FD00000094:000000000000.00010A8C dlgImportđ00000031‘‘334A490500000098:000000000000.00010A8DfrmLinkđ00000032334A4910000000A3:000000000000.00010A8E 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@8@EÉ4‡Ňš(@h@y*x… spnQuantity1ž'˝jjź*,  ƒ‚:a 3D Controlż) Long IntegerINoneK ImmediateJLŃU„m€Defaulto€Anyn€Default ćŸl€Default6„`frmPickColors.clsColorsAvailable.lstPickList.Value = NULL frmColorQuantity.DismissModal(Self) ża 3D Control:  *jj+Cancelź˝'ž btnCancel…`@K@€O@=@98; ćŸl€Default6„•DIM nRow AS Integer DIM sValue As String DIM objPickList AS Object IF GetContainer().udpCallingList = frmPickColors.clsColorsAvailable THEN objPickList = frmPickColors.clsColorsAvailable.lstPickList ELSE objPickList = frmPickColors.clsColorsSelected.lstPickList END IF sValue = GetConj‘€` Ňtainer().udpCallingList.udmGetDisplayValue & (objPickList.Value) IF GetContainer().udpCallingList = frmPickColors.clsColorsSelected THEN sValue = LEFT(sValue, INSTR(sValue, "-") - 2) END IF IF spnQuantity.Value > 0 THEN sValue = sValue & " - " & STR(spnQuantity.Value) objPickList.GetRecordset().SetColVal(1, sValue) objPickList.UpdateList() IF GetContainer().udpCallingList = frmPickColors.clsColorsSelected THEN objPic‘‘kList.Value = NULL END IF ELSE IF GetContainer().udpCallingList = frmPickColors.clsColorsAvailable THEN objPickList.Value = NULL ELSE objPickList.GetRecordset().SetColVal(1, sValue) objPickList.UpdateList() END IF END IF frmPickColors.fldTotal.Value = frmPickColors.fldTotal.Value + spnQuantity.Value frmColorQuantity.DismissModal(Self) ża 3D Control:  *+OKź˝'‘‘žbtnOK…€@@€K@€O@=@98; ţř ;zNoneTopStart8@€J@&@Ŕ`@…lblColorž'˝ź*  :ż „m€Default ţř ;zNoneTopStart8@@`@"@@…‘‘static1ž'˝źHow many items in*  :ż „m€Default=@98; ţř m€Default„ ż:  *ź˝'žlblColor…Ŕ`@&@€J@8@StartTopzNone; ţř m€Default„‘‘` ‚Ň ż:   *How many items inź˝'žstatic1…@"@@`@8@StartTopzNone; ă ĐĎॹá>ţ˙ ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ý˙˙˙ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙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;‘‘ƒŇ%66n€Defaulto€Anym€Default„UŃLJK ImmediateINoneSTATEString)ża 3D Control:‚ƒ   ,*ź˝'ž1STATE…xy*@t@b@šŇ‡4ÉEB@8@98‘‘Start¸,;  ’%66n€Defaulto€Anym€Default„UŃLJK ImmediateITable, MAX()+CounterIncByCITYString)ża 3D Control:‚ƒ   ,*ź˝'ž1CITY…xy*^@b@šŇ‡4ÉEh@‘‘8@98Start¸,; ţř m€Default„ ż:   *Address:ź˝'žstatic3…4@R@X@8@RightCenterzNone; ţř m€Default„ ż:   * Customer:ź˝'žstat‘‘ic2…4@B@X@8@RightCenterzNone; ’%66n€Defaulto€Anym€Default„UŃLJ ORDER_NUMBERSK ImmediateISequence ORDER_NUMBER Long Integer)ża 3D Control:‚ƒ   ,*ź˝'ž1 ORDER_NUMBER…x‘j„Ä ž …†‡ˆ‰Š‹ŒŽ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¸€š€€€€€€j‘ ‘Ňy*^@@šŇ‡4ÉEN@8@98Center¸,; ţř m€Default„ ż:   *Order:ź˝'žstatic1…4@@X@8@RightCenterzNone;TION,ITEM_NUMBER from IT‘‘EMSȸ,; ’%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 REDIM sColor(9) AS String, nColorID(9) AS Integer DIM nRow 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.udmClearList() EXEC SQL AT ORDERDAT SELECT DESCRIPTION, COLORS.COLOR_ID INTO :sColor, :nColorID FROM & ITEM_COLORS,‘‘ COLORS WHERE & ITEM_COLORS.COLOR_ID = COLORS.COLOR_ID AND ITEM_NUMBER = :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 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(nColorID(nPointer))) END IF nPointer = nPointer + 1 nQuantity = 0 LOOP rptOrderItems.SetFoc‘‘us() 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É€EL@‘‘8@98Center¸„,; ’%66n€Defaulto€Anym€Default„€UŃ€LJK ImmediateINoneDISCOUNTDouble)ż€a 3D Control:‚€ƒ€   Percent,*ź€˝€'€ž€1DISCOUNT€…€xy*s@š€Ň€‡€4É€‘‘EP@8@98Right¸€,; ’%66n€Defaulto€Anym€Default„UŃLJ ITEM_NUMBERSKDeferredINone ORDER_ITEM_ID Long Integer)ża 3D Control:‚ƒ  ,*ź˝'ž1 ORDER_ITEM_ID…xy*(@‘‘’“Қ҇4ÉE8@8@98Start¸,; ’%66n€Defaulto€Anym€Default„UŃLJK ImmediateINone( SHIP_NAMEString)ża 3D Control:‚ƒ   ,*ź˝'ž1‘‘ SHIP_NAME…xy*Ŕ]@`f@šŠIF ISNULL(Value) THEN SHIP_NAME.Visible = False fldDefault.Visible = True ELSE SHIP_NAME.Visible = True fldDefault.Visible = False END IF ҇4ÉEr@8@98 Start¸,; ţř m€Default„ ż:   * Ship To Name:ź˝'‘‘žstatic9… @€f@[@8@RightCenterzNone; ţř m€Default„€ ż€:   * Telephone:ź€˝€'€ž€static8…€`h@@X@8@RightCenterzNone;  ’%66n€Defaulto€Anym€Default„UŃL‘‘JK ImmediateINoneSTATEString)ża 3D Control:‚ƒ   ,*ź˝'ž1STATE…xy*@t@b@šŇ‡4ÉEB@8@98Start¸,;  ’%66n€Defaulto€Anym€Default„U‘j“NŃLJK ImmediateITable, MAX()+CounterIncByCITYString)ża 3D Control:‚ƒ   ,*ź˝'ž1CITY…xy*^@b@šŇ‡4ÉEh@8@98Start¸,; jjţř m€Default„ ż:   *Address:ź˝'žstatic3…4@R@X@8@RightCenterzNone; ţř m€Default„ ż:   * Customer:ź˝'žstatic2…4@B@X@8@jjRightCenterzNone; ’%66n€Defaulto€Anym€Default„UŃLJ ORDER_NUMBERSK ImmediateISequence ORDER_NUMBER Long Integer)ża 3D Control:‚ƒ   ,*ź˝'ž1 ORDER_NUMBER…xy*^@@šŇ‡4jjÉEN@8@98Center¸,; ţř m€Default„ ż:   *Order:ź˝'žstatic1…4@@X@8@RightCenterzNone;jj”Œ —•–—jjjjjjj‘•Œ –ŇIBM1252 cpprpscr_nlprtrecproptbl?Ś Lfonttblť Ä System FontArial MS Sans Serif Courier NewApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew YorkTimes New Roman Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script‘‘ CapitalsPlaybillAlgerianArial Rounded MT BoldMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensedCentury SchoolbookCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed New‘‘tSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight ‚l‚r ƒSƒVƒbƒN ‚l‚r –ž’ŠOsakaVFONT @‚l‚r –ž’Š ff4550-‚f‚l @•W€ƒSƒVƒbƒN ‚g‚fłž˛‘‘ĚAbadi MT Condensed Light‚l‚r ‚oƒSƒVƒbƒNCentury Arial BlackHaettenschweiler Map SymbolsMarlett ‚l‚r ‚o–ž’Š @‚l‚r ‚o–ž’Š @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamasAbadi MT CondensedAbadi MT‘‘ Condensed Extra BoldAmerican Uncial Carnati SSi Comic Sans MSFinal FrontierLucida HandwritingNews Gothic MTLucida ConsoleSwiss911 XCm BTSquareSlab711 Bd BT Shotgun BTPosterBodoni BTOzHandicraft BT Orbit-B BT News701 BTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 ‘‘–Œ —ŇCn BTCentury725 BdCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BTShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush‘‘738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdOmnis MonospaceOmnis Sans Serif Omnis SystemOmnis Password Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsF ˜‘nkkl€Default6~Default€Ë€Ě‘‘€€Í€Ó€„€˘€Ă€%€5 3ľ€Ť€đ€ż€:Ž€Š€‹€Œ€‰€ˆ€,D*Ź€÷€´€Select file to import . . .—€! #Refuse if Children Present$Refuse if Children Present€š€ €œ€›€™€˜€Ÿ€ž€" On Masterź€˝€'€ž€€ dlgImportÖ€×€…€Ś€Ş€¨€§€‘‘Ą€+š€“€€–€Ň€’€‘€€Ž€•€”€‡€†€Š€4MCHÄ€QFetch As Needed€€­€x@^@ń€fĘ€-;2 Automatic2Standard Documenthijk ćŸl€Default6„GetContainer().CloseWindow()ża 3D Control:‘j—Œ ä  *+OKź˝'žbutton1…€\@@Q@Ŕ\@€@@98; ’%66n€Defaulto€Anym€Default„€UŃ€LJK ImmediateINoneúString)ż€a 3D Control:‚€ƒ€  ,*jjź€˝€'€ž€1Pathname€…€xy*€\@7@š€Ň€‡€4É€EŔn@9@98Start¸€,; ţř static1:@8@€Q@8@…*:;„żź˝ž'  StartTopFile to Import: zNonemjjDefaultjjj‘˜ ˘ ™š›œžŸ Ą˘‘‘‘‘‘‘‘‘™ šŇIBM1252 cpprpscr_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‘jš ›Ň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 & & jj› œŇ " Field " & STR(nField) & " - " & MID(sInput, nStart, & nNext - nStart) & " = " & STR(nField) & CHR(13) ELSE lstImportFields.Translation = lstImportFields.Translation & & " Field " & STR(nField) & " - " & MID(sInput, nStart, & LEN(sInput) - (nStart - 1)) & " = " & STR(nField) END IF nStart = nNext + 1 nField = nField + 1 LOOP rsColumns = NEW DBRECORDSET( ORDERDAT ) udpRecordset =jj rsColumns rsColumns.SetQuery("SELECT * FROM " & frmTables.rbfTables.Value, FALSE) rsColumns.ReQuery() nCount = rsColumns.GetColCount() nPointer = 1 DO WHILE nPointer <= nCount 'Change the way the clsListColumns is populated ' nPosition = lstColumns.ListCount ' lstColumns.AddItem(rsColumns.GetColName(nPointer), nPosition) clsColumns.udmAddItem(rsColumns.GetColName(nPointer), rsColumns.GetColName(nPointer)) nPointer = nPointer + 1 LOOP CLOSE #nFile ´*Link import fjjields and destination columns—! #Refuse if Children Present$Refuse if Children Presentš œ›™˜Ÿž" On Masterź˝'žfrmLinkÖ×…ŚŞ¨§Ą+š“–Ň’‘Ž•”‡†Š4MCHÄQFetch As Nejjeded­x@r@ńfĘ-;2 Automatic2Standard DocumenthijkD  MasterLibrary0000000F32D22F99 clsPickList Ą2S[;-Ę˜f89R@Ŕu@QFetch As NeededHCM4Š˜†˜‡˜”˜•˜Ž˜˜‘˜’˜Ň˜–˜˜“˜š˜€fjjœ Ň@8@+Ś˜…˜clsLinkž˜'˜˝˜ź˜" On Masterž˜Ÿ˜˜˜™˜›˜œ˜ ˜š˜˜$Refuse if Children Present#Refuse if Children Present !—˜Class15´˜*D,ˆ˜‰˜Œ˜‹˜Š˜Ž˜:ż˜ľ˜3%˜„˜Ó˜Í˜˜Ě˜Ë˜˜~Default6ljj˜Default<8 =š:š;š6š9š7š Ű>,,;,¸˜Č˜'"This is a dummy value" = 089€Q@Ŕu@Eɘ4‡˜Ň˜š˜…˜˜ lstPickListž˜'˜˝˜ź˜3*Ž˜  ƒ˜‚˜:a 3D Controlż˜)StringU„˜l˜DefaultDjj  MasterLibrary0000000F32D22F99 clsPickList Ą2S[796;:=8 <l˜Default6~DefaultËĚÍÓ„%3ľż:ŽŠ‹Œ‰ˆ,D*´Class15—! #Refuse if Children Present$Refuse if Children Presentš œ›™˜Ÿjjž" On Masterź˝'ž clsColumns…Ś+€i@8@š“–Ň’‘Ž•”‡†Š4MCHQFetch As Neededb@[@98fĘ-; Ű>,,;,¸Č'"This is a dummy value" = 089 €Z@b@EÉ4‡Ňjj žŇš@… lstPickListž'˝ź3*Ž  ƒ‚:a 3D Controlż)StringU„lˆDefault ćŸl€Default6„VDELETE frmLink.udpRecordset frmLink.udpRecordset = NULL frmLink.DismissModal(Self) ża 3D Control:  jj*+Cancelź˝'ž btnCancel…ŕh@p@@U@5@98; ćŸl€Default6„~DIM rsLink AS Object DIM nCount AS Integer, nPointer AS Integer rsLink = NEW RECORDSET(True) rsLink.AddColumn("COLUMN", RecDty_String) rsLink.AddColumn("DATATYPE", RecDty_Integer) nCount = lstImportFields.GetRecordset().GetRowCount() nPointer = 1 DO WHILE nPointer <= nCount jj rsLink.InsertRow() nPointer = nPointer + 1 LOOP DIM sValue AS String DIM nRow AS Integer ' Change reference to lstColumns nCount = clsLink.lstPickList.GetRecordset.GetRowCount() nPointer = 0 IF nCount > 0 THEN DO WHILE nPointer < nCount ' Change how you derive sValue clsLink.lstPickList.GetRecordset().SetCurRow(nPointer + 1) sValue = clsLink.lstPickList.GetRecordset().GetColVal(1) nRow = CINT(MID(sValue,INSTR(sValue,"->") - 3,3)) rsLink.SetCurRow( nRow ) rsLinjjk.SetColVal("COLUMN", MID(sValue, INSTR(sValue, "->") +3)) rsLink.SetColVal("DATATYPE", VARTYPE(frmLink.udpRecordset.GetColVal(nRow ))) nPointer = nPointer + 1 LOOP DELETE frmLink.udpRecordset frmLink.udpRecordset = rsLink ELSE DELETE frmLink.udpRecordset frmLink.udpRecordset = NULL END IF frmLink.DismissModal(Self) ża 3D Control:  *+OKź˝'žbtnOK…ŔX@jjž ŸŇ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Ÿ  Ň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‘  ĄŇ; ţř ;zNoneCenterStart5@ a@@`i@…static5ž'˝źDestination Columns*  :ż „m€Default %Hvn6`ŕ›ŕšŕ™ŕ˜ŕ“d8Ŕź(d°ŕ;,¸€ŻŕŽŕÁ`­`žŕťde‘‘89Ź`´ŕŤ`€[@€c@Ş`ŠŕąŕłŕΠ˛ŕ¨`Í Ě §ŕľŕEş`ŒŔ‹ŔÉ€ŠŔË Ď 4‡€Ň€š€6@€i@‰ŔŚd*.*ˆŔśŕ…€€Ľdˇŕ¤ŕ lstColumnsŁ`‡Ŕ†Ŕ˝(d…Ŕ„Ŕ˘`Ąŕ ŕÉ Ę <Ŕ;Ŕ:ŔÇ Č ¸ŕŸ`*žŕĂ‘‘`œŕ—+dƒ€‚€Ć –ŕ•`”d’`‘`)9ŔString`UšdĘ„ŔĹ `ż(dŽ(dÂd`Ä 7 Ŕŕç  ĐĎॹá>ţ˙ ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ý˙˙˙ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘Ą ˘Ň˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙Root Entry˙˙˙˙˙˙˙˙ ě­ґ‡K Ż’f ťjzČőťOle ˙˙˙˙˙˙˙˙˙˙˙˙‘‘Contents˙˙˙˙oOlePres000˙˙˙˙˙˙˙˙˙˙˙˙ţ˙˙˙ţ˙˙˙ţ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙‘‘˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙ ^ FR㠑ÎăŞK¸QDB MS Sans Serif˙˙˙˙€–˙*.*K˙˙˙˙‘‘źkŇQuickPak Professional for Windows, Copyright (c) 1995 Crescent Division of Progress Software Corporation. ‘j˘ ˇţř mDefaultzNone Import Fields:CenterStart  'ž˝źż„;:*…5@€\@@2@static4 Ű>,,;,¸€Č€'89[@€c@EÉ€4‡€Ň€š€8@(@…€€lstImjjportFieldsž€'€˝€ź€3*Ž€  ƒ€‚€:a 3D Controlż€) Long IntegerU„€l€Defaultjjjjj‘ŁŽ Š¤ĽŚ§¨Š‘‘‘‘‘‘‘‘¤Ž ĽŇ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‘‘ĽŽ ŚŇ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‘‘ŚŽ §Ň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‘ŞŤŇ‘‘‘‘‘‘‘‘ŤŹŇ‘‘‘‘‘‘‘‘Ź­Ň‘‘‘‘‘‘‘‘­ŽŇ‘‘‘‘‘‘‘‘ŽŻŇ‘‘‘‘‘‘‘‘Ż°Ň‘‘‘‘‘‘‘‘°ąŇ‘‘‘‘‘‘‘‘ą˛Ň‘‘‘‘‘‘‘‘˛łŇ‘‘‘‘‘‘‘‘ł´Ň‘‘‘‘‘‘‘‘´ľŇ‘‘‘‘‘‘‘‘ľśŇ‘‘‘‘‘‘‘‘śˇŇ‘‘‘‘‘‘‘‘ˇ¸Ň‘‘‘‘‘‘‘‘¸šŇ‘‘‘‘‘‘‘‘šşŇ‘‘‘‘‘‘‘‘şťŇ‘‘‘‘‘‘‘‘ťźŇ‘‘‘‘‘‘‘‘ź˝Ň‘‘‘‘‘‘‘‘˝žŇ‘‘‘‘‘‘‘‘žżŇ‘‘‘‘‘‘‘‘żŔŇ‘‘‘‘‘‘‘‘ŔÁŇ‘‘‘‘‘‘‘‘ÁÂŇ‘‘‘‘‘‘‘‘ÂĂŇ‘‘‘‘‘‘‘‘ĂÄŇ‘‘‘‘‘‘‘‘ÄĹŇ‘‘‘‘‘‘‘‘ĹĆŇ‘‘‘‘‘‘‘‘ĆÇŇ‘‘‘‘‘‘‘‘ÇČŇ‘‘‘‘‘‘‘‘ČÉŇ‘‘‘‘‘‘‘‘ÉĘŇ‘‘‘‘‘‘‘‘ĘËŇ‘‘‘‘‘‘‘‘ËĚŇ‘‘‘‘‘‘‘‘ĚÍŇ‘‘‘‘‘‘‘‘ÍÎŇ‘‘‘‘‘‘‘‘ÎĎŇ‘‘‘‘‘‘‘‘ĎĐŇ‘‘‘‘‘‘‘‘ĐŃŇ‘‘‘‘‘‘‘‘ŃŇŇ‘‘‘‘‘‘‘‘ŇÓŇ‘‘‘‘‘‘‘‘ÓÔŇ‘‘‘‘‘‘‘‘ÔŐŇ‘‘‘‘‘‘‘‘ŐÖŇ‘‘‘‘‘‘‘‘Ö×Ň‘‘‘‘‘‘‘‘×ŘŇ‘‘‘‘‘‘‘‘ŘŮŇ‘‘‘‘‘‘‘‘ŮÚŇ‘‘‘‘‘‘‘‘ÚŰŇ‘‘‘‘‘‘‘‘ŰÜŇ‘‘‘‘‘‘‘‘ÜÝŇ‘‘‘‘‘‘‘‘ÝŢŇ‘‘‘‘‘‘‘‘ŢßŇ‘‘‘‘‘‘‘‘ßŕŇ‘‘‘‘‘‘‘‘ŕáŇ‘‘‘‘‘‘‘‘áâŇ‘‘‘‘‘‘‘‘âăŇ‘‘‘‘‘‘‘‘ăäŇ‘‘‘‘‘‘‘‘äĺŇ‘‘‘‘‘‘‘‘ĺćŇ‘‘‘‘‘‘‘‘ćçŇ‘‘‘‘‘‘‘‘çčŇ‘‘‘‘‘‘‘‘čéŇ‘‘‘‘‘‘‘‘éęŇ‘‘‘‘‘‘‘‘ęëŇ‘‘‘‘‘‘‘‘ëěŇ‘‘‘‘‘‘‘‘ěíŇ‘‘‘‘‘‘‘‘íîŇ‘‘‘‘‘‘‘‘îďŇ‘‘‘‘‘‘‘‘ďđŇ‘‘‘‘‘‘‘‘đńŇ‘‘‘‘‘‘‘‘ńňŇ‘‘‘‘‘‘‘‘ňóŇ‘‘‘‘‘‘‘‘óôŇ‘‘‘‘‘‘‘‘ôőŇ‘‘‘‘‘‘‘‘őöŇ‘‘‘‘‘‘‘‘ö÷Ň‘‘‘‘‘‘‘‘÷řŇ‘‘‘‘‘‘‘‘řůŇ‘‘‘‘‘‘‘‘ůúŇ‘‘‘‘‘‘‘‘úűŇ‘‘‘‘‘‘‘‘űüŇ‘‘‘‘‘‘‘‘üýŇ‘‘‘‘‘‘‘‘ýţŇ‘‘‘‘‘‘‘‘ţ˙Ň‘‘‘‘‘‘‘‘˙Ň‘‘‘‘‘‘