podb File format Copyright (c) 1994,1995 by Oracle Corporation. 9 ~2B%podbjvvjvujj dj djjjjj@gpHj?wj@fp9j >_wjjjjjjjjx jjjjjjj s   jjjjjjjj  jjjjjjj` 5J @ + 5k ~APPLID~00000008:000000000000.00010000 ~APPINF~0000000C:000000000000.0001000100000002327E0A5E00000013:000000000000.00010003frmMain 3j t   jjjjjjj  IBM1252proplistproptbl 8)} Gregorianp$%gStarterStarterfrmMain.OpenWindow())} Gregorianp$%gStarterStarterfrmMain.OpenWindow()DATStarterStarterfrmMain.OpenWindow()ain.OpenWindow() JJjjjjjjj IBM1252 cpprpscr_nlprtrecproptbl _About udpSession>LongObjectfonttbl System FontArial MS Sans Serif Courier NewTimes New RomanApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew York 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 NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight lr SVbN lr OsakaVFONT @lr ff4550-fl @WSVbN gfAbadi MT Condensed Lightlr oSVbNCentury Arial BlackHaettenschweiler Map SymbolsMarlett lr o @lr 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 Shotguj n 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 NewPasswjjord OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BTShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TejjxtKyBdcontrols nkmkjih2Standard Document2 Automatic;- ORDERDATfn@x@QFetch As NeededHCM4+jjfrmLogin'" On Master$Refuse if Children Present#Refuse if Children Present !Log In To A Database*D,:35 %~Default6ljj Default>j' The frmLogin form will give your users 3 chances to log into a database. The form ' will use the session specified in the RecSrcSession of the form or, if that ' is null, the DefaultSession property of the application. ' You should use the OpenModal command to open the form. After the form returns from ' the call, you should open the next form.   ;898@[@e@jji@ btnCancel'Cancel+*  :a 3D ControlApplication.CloseApp()6lDefault ;898@[@e@H@ btnConnect'Connect+*  :a 3D ControlDIM sConnect As String DIM oSession AjjS 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 sConnect = sConnect & "@" END IF sConnect = MID(popDatabase.Value, 1, INSTR( popDatabase.Value, & ":")) & sConnect & MID(popDatabase.Value, INSTR(popDatabase.Value, & ":") + 1) IF ISNULL(GetContainer().udpSession) THEN MSGBOX("jjYou have to specify a session in the " & & "udpSession property of this form.", 16, "No Session") Application.CloseApp() END IF oSession.RunConnect = sConnect oSession.Connect() IF oSession.IsConnected() THEN frmLogin.CloseWindow() ELSE IF nFailures = 3 THEN MSGBOX("Your log in has failed 3 times. Please contact the " & & "system administrator.", 16, "Too Many Failures") application.CloseApp() ELSE MSGBOX("You could nojj Jt log in successfully. Please try again", 32, & "Login Failure") nFailures = nFailures + 1 END IF END IF 6lDefault  ;zNoneCenterRight8@U@[@(@static3' Password:*  : mDefault  ;jjzNoneCenterRight8@U@R@(@static2' User name:*  : mDefault %66nDefaultoAnymDefaultULJK ImmediateINoneString) masteropoa 3D Control: jj ,*'1 fldPasswordxy*[@[@4En@8@98Start,; %66nDefaultoAnymDefaultULJK ImmediateINoneString) masteropoa 3D Control:jj  ,*'1fldUserxy*[@R@4En@8@98Start,;  ;zNoneCenterRight8@U@B@(@static1' Database:*  je*23456KTUeIBM1252 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 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 NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight lr SVbN lr OsakaVFONT @lr ff4550-fl @WSVbN gfAbadi MT Condensed Lightlr oSVbNCentury Arial BlackHaettenschweiler Map SymbolsMarlett lr o @lr 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 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 CasablancaCasperOpenFaceCottagecontrols6 Bnkkkjih2Standard Document2 Automatic;-fx@@QFetch All ImmediatelyHORDERDATCMORDERS4+frmMain'" On Master$Refuse if Children Present#Refuse if Children Present ! Enter Orders*D,:35 %  ~Default6lDefault B%66;,Start898@q@E4[@^@y*xADDRESS21'*,  :a 3D Control)StringADDRESS2INoneK ImmediateJLUmDefaultoAnynDefault A%66nDefaultoAnymDefaultULJK ImmediateINoneADDRESS1String)a 3D Control:   ,*'1ADDRESS1xy*^@Q@4Eq@9@98Start,; @ލ9hsb1 e@k@`f@=@*:;'d<=   containerlDefault ?%66nDefaultoAnymDefaultULJK ImmediateINone TELEPHONEString)a 3D Control:   ,*'1 TELEPHONExy* r@@4Ea@9@98Start,; .--lDefaultU CUSTOMER_NAMEString)a 3D Control:   *3popCustomerName'popCustomerNa me^@B@ 4Er@8@98'@= AT ORDERDAT SELECT CUSTOMER_NAME, CUSTOMER_NAME FROM CUSTOMERS,; ( mDefault :   * Line Total'static5x@r@X@8@StartCenterzNone; ' mDefault :   *Discount'static4@t@r@N@8@StartCenterzNone; & mDefault :   *Price'static12pp@r@H@8@CenterCenterzNone; % mDefault :   *Quantity'static11h@r@N@8@StartCenterzNone; $ mDefault :   * Order Item'static10H@r@b@8@StartCenterzNone; 2]PP;-f8 9R@~@QFetch As NeededHORDERDATCMCOLORS ORDER_ITEMS4s@(@+ rptOrderItems'3" On Master$Update CascadefrmMain#Delete Cascade  ORDER_NUMBER! ORDER_NUMBER*D,:3%lDefault  s 'lDefaultf,98;:*UUUUUUſUUUUUUſ repeat_dummy1 s lDefault:,*' repeat_dummy2?@?98f; s ;f89?@ repeat_panel'*,:lDefault "l;??? curOrderItem'*:  %66;,Right89??E4@y*x LINE_TOTAL1'*,Currency  :a 3D Control)Double =(QUANTITY*PRICE) * (1-DISCOUNT)INoneK ImmediateJLUmDefaultoAnynDefault %66nDefaultoAnymDj@efaultULJK ImmediateINone~=SqlLookup(ORDERDAT, "select price from items where item_number = " & IIF(ISNULL(popOrderItem.Value), 0, popOrderItem.Value) )Double)a 3D Control:   Currency,*'1PRICExy*@jj4E??98Right,; --;,'6=AT ORDERDAT select DESCRIPTION,ITEM_NUMBER from ITEMS89??E4? popOrderItem'popup13*  :a 3D jjControl) Long Integer ORDER_ITEMUlDefault %66nDefaultoAnymDefaultULJK ImmediateINoneQUANTITY Long Integer)a 3D Control:   ,*'1QUANTITYxy*@jj4E??98Center,; %66nDefaultoAnymDefaultULJK ImmediateINoneDISCOUNTDouble)a 3D Control:   Percent,*'1DISCOUNTxy*j @4E??98Right,; %66nDefaultoAnymDefaultULJ ITEM_NUMBERSKDeferredINone ORDER_ITEM_ID Long Integer)a 3D Control:  ,*'1 ORDER_ITEM_IDxy*?4E??98Start,; %66nDefaultoAnymDefaultULJK ImmediateINone( SHIP_NAMEString)a 3D Control:   ,*'1 SHIP_NAMExy*^@f@ 4Er@8@98 Start,;  ;zNoneCenterRight8@[@f@ @static9' Ship To Name:*  : mDefault  mDefault :   * Telephone:'static8h@@X@8@RightBottomzNone; %66nDefaultoAnymDefaultULJK ImmediateINone ZIPString)a j 3D Control:   ,*'1ZIPxy*@w@b@4EX@8@98Start,;  %66nDefaultoAnymDefaultULJK ImmediateINonejjSTATEString)a 3D Control:   ,*'1STATExy*@t@b@4EB@8@98Start,;  %66nDefaultoAnymDefaultULJK ImmediateITablejj, MAX()+CounterIncByCITYString)a 3D Control:   ,*'1CITYxy*^@b@4Eh@8@98Start,;  mDefault :   *jjAddress:'static34@R@X@8@RightCenterzNone;  mDefault :   * Customer:'static24@B@X@8@RightCenterzNone; %66nDefaultoAnymjkDefaultULJ ORDER_NUMBERSK ImmediateISequence ORDER_NUMBER Long Integer)a 3D Control:   ,*'1 ORDER_NUMBERxy*^@@4EN@8@98Center,;  ;zNoneCenterRight8@X@@4@static1'Order:*  : mDefaultUmDefaultoAnynDefault  mDefault :   *Order:'static14@@X@8@RightCenterzNone;UmDefaultoAnynDefault  mDefault :   *Order:'static14@@X@8@RightCenterzNone;   *Order:'static14@@X@8@RightBottomzNone;rder:'static14@@X@8@RightBottomzNone;@static1'Order:*  : mDefaultjble = False END IF 4Er@8@98 Start,;  mDefault :   * Ship To Name:'static9f@[@8@RightBottomzNone;  mDefaultjj :   * Telephone:'static8h@@X@8@RightBottomzNone; %66nDefaultoAnymDefaultULJK ImmediateINone ZIPString)a 3D Control:   jj,*'1ZIPxy*@w@b@4EX@8@98Start,;  %66nDefaultoAnymDefaultULJK ImmediateINoneSTATEString)a 3D Control:   jj,*'1STATExy*@t@b@4EB@8@98Start,;  %66nDefaultoAnymDefaultULJK ImmediateITable, MAX()+CounterIncByCITYString)a 3D Control:j3   ,*'1CITYxy*^@b@4Eh@8@98Start,;  mDefault :   *Address:'static3(@R@X@8@RightBottomzNone;  mDefault :   * Customer:'static2(@B@X@8@RightBottomzNone; %66nDefaultoAnymDefaultULJ ORDER_NUMBERSK ImmediateISequence ORDER_NUMBER Long Integer)a 3D Control:   ,*'1 ORDER_NUMBERxy*^@@4EN@8@98Center,;  mDefault :   *Order:'static1*@@X@8@RightBottomzNone;3, 4, 5, 6 IF NOT ISNUMERIC(sValue) THEN sErrorText = "The value for the " & & frmLink.udpRecordset.GetColVal("COLUMN") & " is not numeric." j* 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 jj END IF END SELECT sColumns = sColumns & frmLink.udpRecordset.GetColVal("COLUMN") & & "," sImportValues = sImportValues & sValue & "," END IF nColumn = nColumn + 1 LOOP IF sErrorText = "" THEN sColumns = LEFT(sColumns, LEN(sColumns) - 1) jj sImportValues = LEFT(sImportValues, LEN(sImportValues) - 1) sInsert = "INSERT INTO " & frmTables.rbfTables.Value & " ( " & & sColumns & ") VALUES(" & sImportValues & ")" EXEC SQL AT ORDERDAT :sInsert ELSE WRITE #nFileReason, nErrors, sErrorText WRITE #nFileData, nErrors, sLineValue nErrors = nErrors + 1 END IjjF IF SqlErrCode() <> 0 AND sErrorText = "" THEN WRITE #nFileReason, nErrors, SqlErrCode() & " - " & SqlErrText() WRITE # nFileData, nErrors, sLineValue nErrors = nErrors + 1 ELSE IF sErrorText = "" THEN nRows = nRows + 1 END IF LOOP EXEC SQL AT ORDERDAT COMMIT END IF ON ERROR GOTO 0 END IF END IF CLOSE nFj &L!"#$Ljjjjjjj! "IBM1252 cpprpscr_nlprtrecproptbl fonttbl System FontArial MS Sans Serif Courier NewTimes New RomanApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew York 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 NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight lr SVbN lr OsakaVFONT @lr ff4550-fl @WSVbN gfAbadi MT Condensed Lightlr oSVbNCentury Arial BlackHaettenschweiler Map SymbolsMarlett lr o @lr 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 Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdcontrols nkklDefault6~Default%5 3:,D* Item Detail! #Refuse if Children Present$Refuse if Children Present" On Master' frmItemDetail+4ITEMSMCHORDERDATQFetch As Neededx@p@f-;2 Automatic2Standard Documenthij# $kC MasterLibrary000000083290E7B1 clsCatalog 2SSlDefault6~Default%3:,D*Class8! ITEM_NUMBER  ORDER_ITEM#Orphan DetailsfrmMain.rptOrderItems$Orphan Details" On Master' clsCatalog+4ITEMSMCHORDERDATQFetch As Neededx@l@98f-;   2SS;-f89`@`@QFetch As NeededHORDERDATCM ITEM_PICTURES4X@n@+frmItemPicture'" On Master$Refuse if Children Present frmItemDetail#Refuse if Children Present  ITEM_NUMBER! ITEM_NUMBERform1*D,:3%~Default6lDefault  $ ""~DefaultUPICTUREa 3D Control:*'pctItem(@4E[@^@98f;$L %66nDefaultoAnymDefaultULJK ImmediateINoneCATALOG_DESCRIPTIONString)a 3D Control:  ,*'1CATALOG_DESCRIPTIONxy*(@^@4Ek@R@98Start,;  mDefault :  *Catalog Description'static4(@X@X@8@StartBottomzNone; %66nDefaultoAnymDefaultULJK ImmediateINonePRICEDouble)a 3D Control:  Currency,*'1PRICExy*U@R@4EX@8@98Right,;  mDefault :  *Price'static3U@H@X@8@StartBottomzNone; %66nDefaultoAnymDefaultULJK ImmediateINone( DESCRIPTIONString)a 3D Control:  ,*'1 DESCRIP%d(&'(jjjjjjj&d'IBM1252 cpprpscr_nlprtrecproptbl 6fonttbl9f System FontArial MS Sans Serif Courier NewTimes New RomanApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew York 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 NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight lr SVbN lr OsakaVFONT @lr ff4550-fl @WSVbN gfAbadi MT Condensed Lightlr oSVbNCentury Arial BlackHaettenschweiler Map SymbolsMarlett lr o @lr o @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucida Sans TechnicalAardvark PalmSpringsArabiaBahamascontrols>  nkklDefault6~Default%5 3:,D*Specify An Export File! #Refuse if Children Present$Refuse if Children Present" On Master' frmExportFilej'd(+4MCHQFetch As Neededp@`@f-;2 Automatic2Standard Documenthijk lDefault6jj8fldExportFile.Value = "" GetContainer().CloseWindow() a 3D Control:  *+Cancel' btnCancel`@X@X@8@98; lDefault6IF ISNULL(fldExportFile.Value) THEN MSGBOX("You must enter a file name.", 32,"No File Name") fldExportFile.SetFocus() ELSE GetContainer().ClosjjeWindow() END IF a 3D Control:  *+OK'btnOKB@X@U@8@98; %66nDefaultoAnymDefaultULJK ImmediateINoneString)a 3D Control:  jj,*'1 fldExportFilexy*(@H@4En@8@98Start,;  mDefault :   *File to hold exported data:'static1(@(@n@8@jj(d.StartTopzNone;jjjjjjj*2ileData CLOSE nFileReason DIM sMessage AS String sMessage = STR(nRows) & " rows inserted into the ORDERS table." & & CHR(13) & CHR(13) & STR(nErrors - 1) & " rows not inserted due to errors." IF nErrors = 1 THEN MSGBOX(sMessage, 64, "Results of Import") ELSE sMessage = sMessage & CHR(13) & CHR(13) & & "Would you like to review the errors?" IF MSGBOX(sMessage, 67, "Results of Import") = 6 THEN frmErrors.OpenModal(0) END IF END IF 6lDefault 3;898@^@f@|@ btnExport'Export Current Rows+*  :a 3D Control8 DIM nFile AS Integer, nCount AS Integer, nPointer AS Integer DIM sListValue AS String, sValue AS String, sExportFile AS String nCount = frmMain.GetRecordset.GetColCount() REDIM sArray(nCount) AS String DIM objRecSet AS Object frmExportFile.OpenModal(0) ON ERROR RESUME NEXT sExportFile = frmExportFile.fldExportFile.Value IF NOT ISNULL(sExportFile) THEN frmSelectColumns.OpenModal(0) sListValue = frmSelectColumns.lstColumns.SelText nCount = 0 DO WHILE LEN(sListValue) > 0 nPointer = INSTR(sListValue, CHR(13)) IF nPointer <> 0 THEN sValue = LEFT(sListValue, nPointer - 1) sListValue = RIGHT(sListValue, LEN(sListValue) - (nPointer + 1)) ELSE sValue = sListValue sListValue = "" END IF sArray(nCount) = sValue nCount = nCount + 1 LOOP REDIM PRESERVE sArray(nCount - 1) nFile = FREEFILE OPEN sExportFile FOR OUTPUT AS nFile IF ERR <> 0 THEN MSGBOX("You could not open the " & sExportFile && " file.", 32, "Open File Failed") EXIT SUB ELSE ON ERROR GOTO 0 E+1,-./01,-IBM1252 cpprpscr_nlprtrecproptblm xCloseDblClickKeyDownKeyPressKeyUp MouseDown MouseMoveMouseUpMove PathChange PatternChangeResizeScrolled ScrollingArchive BorderEffectCaption ControlBoxDirDrivexEnabledEchoFileListFileNameFont xFontBold xFontItalic xFontName xFontSizeFontStrikethruxFontUnderline FoundIndexHidden ListCount ListIndex MinButton MultiColumnNewIndexNormalPattern xReadOnlySelCount SelectionSelTextSizeableSortedSystemTitleBarTopIndexTopRow WindowStateSelStartSelEnd SelLength StartSearch SearchStringPath NextItemDatahWndColWidth ScrollWidthTabWidthxCase MousePointerText BorderStyle_TextToolTip BackColor ForeColorAddItemClear FindStringItemDataItemDataListList RemoveItemSelectedSelected SelItemRangeRefreshAboutBoxS789*KeyCode As Integer, ByVal Shift As Integer:KeyAscii As Integer;*KeyCode As Integer, ByVal Shift As IntegerQByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As LongQByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As LongQByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long-.Long,ByVal Item As String, ByVal Index As VariantLong5ByVal strItem As String, ByVal iStartAfter As VariantLongByVal Index As Long+ByVal Index As Long, ByVal newValue As LongStringByVal Index As Long-ByVal Index As Long, ByVal newValue As StringLongByVal Index As LongBooleanByVal Index As Long.ByVal Index As Long, ByVal newValue As IntegerLongKByVal bSelect As Integer, ByVal nFirstItem As Long, ByVal nLastItem As Longfonttbl System FontArial MS Sans Serif Courier NewTimes New RomanApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew York 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 NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight lr SVbN lr OsakaVFONT @lr ff4550-fl @WSVbN gfAbadi MT Condensed Lightlr oSVbNCentury Arial BlackHaettenschweiler Map SymbolsMarlett lr o @lr 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 Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdcontrols nkklDefault6~Default%5 3:,D*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 LOOP Select Columns To Export/0! #Refuse if Children Present$Refuse if Children Present" On Master'frmSelectColumns+4MCHQFetch As Neededk@n@f-;2 Automatic2Standard Documenthijk lDefault6a 3D Control:  *+OK'btnOKH@h@[@8@98; %Hvn  `d(d(d` @dU` Long Integer8@)``d` +d`*`  9@:@;@  `@@(d@@` lstColumnsd@d*.*@8@B@4  @@@`E  d `e@b@``98de``,;(d7@d` ࡱ> 01Root Entry ґK f ˻Ole ContentsoOlePres000]FR Kj1QDB MS Sans Serif*.*KQuickPak Professional fojjr Windows, Copyright (c) 1995 Crescent Division of Progress Software Corporation.  mDefault :   *Available columns:'static18@(@h@8@StartTopzNone;jjjjj23ND IF frmMain.GetRecordset().FetchAllRows() objRecSet = frmMain.GetRecordset() nCount = objRecSet.GetRowCount() nPointer = 1 DIM nArrayCount AS Integer, nArrayPointer AS Integer nArrayCount = UBOUND(sArray) + 1 DO WHILE nPointer <= nCount objRecSet.SetCurRow(nPointer) DO WHILE nArrayPointer < nArrayCount DIM sLineValue AS String, sQuote AS String IF VARTYPE(objRecSet.GetColVal(sArray( & nArrayPointer))) = 8 THEN sQuote = "'" ELSE sQuote = "" END IF sLineValue = sLineValue & sQuote & FORMAT( & 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 6lDefault .--;,DIM sAddress1 AS String, sAddress2 AS String, sCity AS String DIM sState AS String, sZIP AS String, sCustomerName AS String sCustomerName = newval EXEC SQL AT ORDERDAT SELECT ADDRESS1, ADDRESS2, CITY, STATE, ZIP & INTO :sAddress1, :sAddress2, :sCity, :sState, :sZIP FROM CUSTOMERS WHERE & CUSTOMER_NAME = :sCustomerName clsAddress1.FirstChild.Value = sAddress1 clsAddress2.fldDataHelp.Value = sAddress2 CITY.Value = sCity STATE.Value = sState ZIP.Value = sZIP Validate = True'@= AT ORDERDAT SELECT CUSTOMER_NAME, CUSTOMER_NAME FROM CUSTOMERS898@r@E4 B@^@popCustomerName'popCustomer34Name3*  :a 3D Control)String CUSTOMER_NAMEUlDefault ( ;zNoneCenterStart8@X@r@x@static5' Line Total*  : mDefault ' ;zNoneCenterStart8@N@r@@t@static4'Discount*  : mDefault & ;zNoneCenterCenter8@H@r@pp@static12'Price*  : mDefault % ;zNoneCenterStart8@N@r@h@static11'Quantity*  : mDefault $ ;zNoneCenterStart8@b@r@H@static10' Order Item*  : mDefault #%66;,Start8 98@r@E4f@^@y*x fldDefault1'*,  FSHIP_NAME.Visible = True Self.Visible = False SHIP_NAME.Set45Focus() :a 3D Control)Same As CustomerStringINoneK ImmediateJLUmDefaultoAnynDefault 2]PP;-f8 9R@~@QFetch As NeededHORDERDATCMCOLORS ORDER_ITEMS4s@(@+ rptOrderItems'" On Master$Update CascadefrmMain#Delete Cascade  ORDER_NUMBER! ORDER_NUMBER*D,:3%lDefault  s  repeat_dummy1UUUUUUſUUUUUUſ*:;89,flDefault' s ;f89?@? repeat_dummy2'*,:lDefault s ;f89?@ repeat_panel'*,:lDefault "l;??? curOrderItem'*:IF NOT ISNULL(popOrderItem.Value) THEN frmItemDetail.Op56enModal(0) ELSE MSGBOX("You can only view the catalog when you have selected an item.", & 64, "No Item Selected") END IF  %66;,Right89??E4@y*x LINE_TOTAL1'*,Currency  :a 3D Control)Double =(QUANTITY*PRICE) * (1-DISCOUNT)INoneK ImmediateJLUmDefaultoAnynDefault %66;,Right89??E4@y*xPRICE1'*,Currency  :a 3D Control)Double~=SqlLookup(ORDERDAT, "select price from items where item_number = " & IIF(ISNULL(popOrderItem.Value), 0, popOrderItem.Value) )INoneK ImmediateJLUmDefaultoAnynDefault --lDefaultU ORDER_ITEM Long Integer)a 3D Control:  *3popup1' popOrderItemIF keycode = 17 THEN frmCatalog.popItems.Value = Value frmCatalog.OpenModal(0) Value = frmCatalog.popItems.Value END IF?4E??98'6=AT ORDERDAT select DESCRIPTION,ITEM_NUMBER from ITEMS,; j6K%66;,Center89??E4@y*xQUANTITY1'*,   DIM nOrderItem AS Integer, nOrderNumber AS Integer, nOrderItemID AS Integer 'new DIM nHoldTotal AS Integer DIM nCount AS Integer, nPointer AS Integer DjjIM nColorNumber AS Integer REDIM sColor(9) AS String, nColorID(9) AS Integer 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() frmPickColors.fldTotal.Value = 0 EXEC SQL AT ORDERDAT SELECT DESCRIPTIOjjN, 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) nQuantity = 0 EXEC SQL AT ORDERDAT SELECT QUANTITY INTO :nQuantity FROM ORDER_ITEM_COLORS WHERE & ORDER_NUMBER = :nOrderNumber AND ORDER_ITEM_ID = :nOrderItemID AND & COLOR_jjID = :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 LOOP 'new j7,;89:;8,9IBM1252 cpprpscr_nlprtrecproptblm fonttbl System FontArial MS Sans Serif Courier NewTimes New RomanApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew York 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 NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight lr SVbN lr OsakaVFONT @lr ff4550-fl @WSVbN gfAbadi MT Condensed Lightlr oSVbNCentury Arial BlackHaettenschweiler Map SymbolsMarlett lr o @lr 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 BTOzHanj9,: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 TextKyBdcontrols jj nkklDefault6~Default%5 3:,D*Review bad data! #Refuse if Children Present$Refuse if Children Present" On Master'jj frmErrors+4errorMCHERRORsQFetch All Immediatelyx@@q@f-;2 Automatic2Standard Documenthijk  jj:, ;lDefaulta 3D Control6+OK98  ';:*8@[@n@`@button1  ލ9lDefault:*'hsb1U@i@<= djj  containerh@8@;  2SSlDefault6~Default%3:,D*form1!ERROR_ID ERROR_ID#Refuse if Children Present frmErrors$Refuse if Children Presentjj" On Master'form1+(@^@4reasonMCHERRORSQFetch As Neededu@U@98f-; %66nDefaultoAnymDefaultULJK ImmediateINone ERROjjR_REASONString)a 3D Control:  ,*'1 ERROR_REASONxy*(@8@4E@t@H@98Start,;  static3(@X@8@*:;j;,'  StartBottomReason: zNonemDefault %66nDefaultoAnymDefaultULJK ImmediateINone ERROR_DATAString)a 3D Control:  ,*'1 ERROR_DATAxy*U@H@4E@q@N@98Start,;  mDefault :  *Data:'static2(@H@N@8@RightCenterzNone; %66ERROR_IDU@(@X@8@*:;'89  ERROR_ID4EU),DoubleStart,1INoneK ImmediateLJa 3D ControlmDefaultnDefaultoAnyxy*  mDefault :  * Error Number:'static1(@R@8@RightCenterzNone;<>=>=>IBM1252 cpprpscr_nlprtrecproptbl 6fonttbl6 System FontArial MS Sans Serif Courier Newcontrols5  nkklDefault6~Default%5 3:,D*Import Data From:! #Refuse if Children Present$Refuse if Children Present" On Master' frmTables+4MCHQFetch As Neededh@h@f-;2 Automatic2Standard Documenthijk button1H@b@X@8@*:;'  89OK+6a 3D ControllDefault Dv11lDefault UString)ORDERSa 3D Control:  *3Destination table:' rbfTables(@(@4Ee@[@98,; ..lDefault UString)aj> 3D Control:  * ORDER_ITEMS' rbOrderItemsB@N@4E[@8@98,&% ORDER_ITEMS; ..lDefault UString)a 3D Control:jj  *ORDERS'rbOrdersB@8@4E[@8@98,&%ORDERS;jjjjj?I @ABCDEFGHIj@pAIBM1252 cpprpscr_nlprtrecproptbl xCloseDblClickKeyDownKeyPressKeyUp udpRecordset MouseDown MouseMoveMouseUpMove PathChange PatternChangeResizeScrolled ScrollingArchive BorderEffectCaption ControlBoxDirDrivexEnabledEchoFileListFileNameFont xFontBold jjxFontItalic xFontName xFontSizeFontStrikethruxFontUnderline FoundIndexHidden ListCount ListIndex MinButton MultiColumnNewIndexNormalPattern xReadOnlySelCount SelectionSelTextSizeableSortedSystemTitleBarTopIndexTopRow WindowStateSelStartSelEnd SelLength StartSearch SearchStringPath NextItemDatahWndColWidth ScrollWidthTabWidthxCase MousePointerText BorderStyle_TextToolTip BackColor ForeColorAddItemClear FindStringItemDataItemDatajjListList RemoveItemSelectedSelected SelItemRangeRefreshAboutBoxT678*KeyCode As Integer, ByVal Shift As Integer9KeyAscii As Integer:*KeyCode As Integer, ByVal Shift As Integer;ObjectQByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As LongQByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As LongQByVal Button As Integer, ByVal Shift As Integer, ByVal x As Lojjng, ByVal y As LongjjABLong,ByVal Item As String, ByVal Index As VariantLong5ByVal strItem As String, ByVal iStartAfter As VariantLongByVal Index As Long+ByVal Index As Long, ByVal newValue As LongStringByVal Index As Long-ByVal Injjdex As Long, ByVal newValue As StringLongByVal Index As LongBooleanByVal Index As Long.ByVal Index As Long, ByVal newValue As IntegerLongKByVal bSelect As Integer, ByVal nFirstItem As Long, ByVal nLastItem As Longfonttbl System FontArial MS Sans Serif Courier NewTimes New RomanApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew York Arial Narrow Book AntiquaSystem Small FontsjjModernTerminalRomanMS 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 Exjjtra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight lr SVbN lr OsakaVFONT @lr ff4550-fl @WSVbN gfAbadi MT Condensed Lightlr oSVbNCentury Arial BlackHaettenschweiler Map SymbolsMarlett lr o @lr o @FixedSysLucida Sans UnicodeCjBCopperplate 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 Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdcontrols3 nkllDefault6~Default%5 3:,D*DIM nCount AS Integer, nPointer AS Integer, nPosition AS Integer 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),nPositioC;Dn) nPointer = nPointer + 1 LOOP*Link import fields and destination columns! #Refuse if Children Present$Refuse if Children Present" On Master'frmLinkDIM rsColumns AS Object DIM nCount AS Integer, nPointer 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 nNext = 1 DO WHILE nNext <> 0 nNext = INSTR(nStart, sInput, ",") IF nNext <> 0 THEN lstImportFields.Translation = lstImportFields.Translation & & " Field " & STR(nField) & " - " & MID(sInput, nStart, & nNext - nStart) & " = " & STR(nField) & CHR(13) ELSE lstImportFields.Translation = lstImportFields.Translation & & " Field " & STR(nField) & " - " & MID(sInput, nStart, & LEN(sInput) - (nStart - 1)) & " = " & STR(nField) END IF nStart = nNext + 1 nField = nField + 1 LOOP CLOSE #nFile +4MCHQFetch As Neededs@x@f; -;2 Automatic2Standard Documenthijk lDefault6jIF NOT ISNULL(udpRecordset) THEN DELETE udpRecordset frmLink.udpRecordset = NULL frmLink.CloseWindow() a 3D Control:  *+Cancel' btnCancejDXEle@u@U@8@98; lDefault6DIM rsLink AS Object DIM nCount AS Integer, nPointer AS Integer rsLink = NEW RECORDSET(True) rsLink.AddColumn("COLUMN", RecDty_String) rsLink.AddColumn("DATATYPE", RecDty_Integer) nCount = lstImportFields.GetRecordset().GetRowCount() nPointer = 1 DO WHILE nPointer <= nCount rsLink.InsertRow() nPointer = nPointer + 1 LOjjOP DIM sValue AS String nCount = lstLink.ListCount nPointer = 0 DIM nRow AS Integer IF nCount > 0 THEN DO WHILE nPointer < nCount sValue = lstLink.List(nPointer) nRow = CINT(MID(sValue,INSTR(sValue,"->") - 3,3)) rsLink.SetCurRow(nRow) rsLink.SetColVal("COLUMN", MID(sValue, INSTR(sValue, "->") +3)) rsLink.SetColVal("DATATYPE", VARTYPE(frmLink.udpRecordset.GetColVal( nRow ))) nPointer = nPointer + 1 LOOP DELETE frmLink.ujjdpRecordset frmLink.udpRecordset = rsLink ELSE DELETE frmLink.udpRecordset frmLink.udpRecordset = NULL END IF frmLink.CloseWindow() a 3D Control:  *+OK'btnOKH@u@U@8@98; %Hvn  `d(d(d` @dU`jjString7@)``d` +d`*`  8@9@:@  `@@(d@@`lstLinkd@d*.*@8@k@4  @@@`E  ` jEQF`p@X@``98de``,;(d6@d`  ࡱ> Root Entry ґK f &ԻOle ContentsoOlePres000jFhGI FR KQDB MS Sans Serif*.*jjKHuQuickPak Professional for Windows, Copyright (c) 1995 Crescent Division of Pjjrogress Software Corporation. lDefault6MDIM nCounter AS Integer IF NOT ISNULL(lstImportFields.Value) AND NOT ISNULL(lstColumns.SelText) THEN lstLink.AddItem ( "Import field " & STR(lstImportFields.Value) & " -> " & & 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(nCountjjer) NEXT nCounter lstImportFields.Value = NULL ELSE MSGBOX("You must select an insert field and a column to add a link.", 48, & "Values Not Selected") END IF a 3D Control:  *+Add Link'btnAdd[@f@X@8@98;  ;zNoneCenterStart8@jjGfH`@e@static2'Destination columns:*  : mDefault %Hvn`d6@(d;,``de89``b@`@`jj `  E`@@@  48@e@@d*.*@d lstColumns`@@(d@@`  :@9@8@  `*`+d `d``)7@Strjjing`Ud@ `(d(dd`   ࡱ> jjjjH\IRoot Entry ґK f &ԻOle ContentsjjoOlePres000jj FR KQDB MS Sans Serif*.*KjjQuickPak Professional for Windows, Copyright (c) 1995 Crescent Division of Progress Software Corporation.  ;zNoneCenterStart8@`@jI3(@static1'Import Fields:*  : mDefault >,,;,'89b@`@E48@(@lstImportFields'3*  :a 3D Control) Long IntegerUlDefault4E`@b@98',;tware Corporation.  ;zNoneCenterStart8@`@(@static1'Import Fields:*  : mDefault >,,;,'89b@`@E48@(@lstImportFields'3*  :a 3D Control) Long IntegerUlDefault,;J : mDefault --;,'4Personal Oracle Lite=ODBC:ORDERDAT Oracle=Oracle:2:898@n@E4oIF NOT ISNULL(Self.Value) THEN btnConnect.Enabled = True ELSE btnConnect.Enabled = False END IF B@[@ popDatabase'popup13*  :a 3D Control)StringdUlDefault@8@98'4Personal Oracle Lite=ODBC:ORDERDAT Oracle=Oracle:2:,;;KT nHoldTotal = frmPickColors.fldTotal.Value frmPickColors.OpenModal(0) 'if changed then, else no IF nHoldTotal <> frmPickColors.fldTotal.Value THEN DIM oRecSet AS Object DIM sSQL AS String oRecSet = NEW DBRECORDSET(ORDERDAT) sSQL = "select current_discount('" & frmMain.GetRecordset().GetColVal("CUSTOMER_NAME") & "'," & & nOrderItem & ", " & (Value - nHoldTotal) + 100 & ") from dual" oRecSet.SetQuery(sSQL, False) oRecSet.requery() rptOrderItems.GetRecordset().SetColVal("DISCOUNT", oRecSet.GetColVal(1)) msgbox rptOrderItems.GetRecordset().GetColVal("DISCOUNT") END IF 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 ImmediateJLUmDefaultoAnynDefault %66;,Right89??E4 @y*xDISCOUNT1'*,Percent  :a 3D Control)DoubleDISCOUNTINoneK ImmediateJLUmDefaultoAnynDefault %66;,Start89??E4?y*x ORDER_ITEM_ID1'*,  :a 3D Control) Long Integer ORDER_ITEM_IDINoneKDeferredJ ITEM_NUMBERSLjLTIONxy*^@8@4Ei@8@98Start,;  mDefault :  * Description'static2^@X@8@StartBottomzNone; jj%66nDefaultoAnymDefaultULJK ImmediateINone ITEM_NUMBER Long Integer)a 3D Control:  ,*'1 ITEM_NUMBERxy*(@8@4EX@8@98Stjjart,;  mDefault :  * Item Number:'static1(@X@8@StartBottomzNone;  * Item Number:'static1(@X@8@StartBojjttomzNone;jMSNOPQRSjNOIBM1252 cpprpscr_nlprtrecproptblM fonttbl System FontArial MS Sans Serif Courier NewTimes New RomanAppljjication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew York Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysCourier Wide Latin MS LineDrawMatura MT Script CapitalsPlaybillAlgerianArial Rounded MT BoldMonotype SortsMonotype CorsivaMarigoldMT Extra Letter GothicKino MTImpactGaramondFootlight MT Light DesdemonaCoronet Colonna MTClarendon CondensedCentury SchoolboojjkCentury GothicCG TimesCG OmegaBrush Script MTBritannic Bold BraggadocioBookman Old Style Antique OliveAlbertus MediumAlbertus Extra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight lr SVbN lr OsakaVFONT @lr ff4550-fl @WSVbN gfAbadi MT Condensedjj Lightlr oSVbNCentury Arial BlackHaettenschweiler Map SymbolsMarlett lr o @lr 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 jjO PBTLucia BT Imperial BTHumanst521 UBd BT GothicNo13 BTGeometr415 Blk BTFreehand521 BTFreefrm721 Blk BTFormalScrp421 BTFlareserif821 Lt BTExotc350 Bd BT Davida Bd BTCopperplate Gothic BoldCooper BlkOul BT Cooper Blk BTClarendon Cn BTCentury725 Cn BTCentury725 BdCn BT Calisto MTBookshelf Symbol 3Bookshelf Symbol 2Bookshelf Symbol 1altosansi8514oemSI TabSI NewPassword OCR-B-Digits SI NewYork SI Tables Code39-DigitsZipjjCodeBarcodeCaslonOpnface BTEngraversGothic BTGeoSlab703 Lt BTHost PresenterHumanst521 Cn BTHumanst521 Lt BT MS SystemExBernhardMod BTOnyx BTRibbon131 Bd BTShelleyVolante BTArrus BT MS DialogMS Dialog LightSwis721 BlkEx BT Arrus Blk BT Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdcontrols nkklDejjfault6~Default%5 3:,D*Form16! #Refuse if Children Present$Refuse if Children Present" On Master' frmCatalogjj+4MCHQFetch As Neededx@s@f-;2 Automatic2Standard Documenthijk ;898@X@jjPQ@q@`@btnOK'OK+*  :a 3D Control6lDefaultI  MasterLibrary000000083290E7B1 clsCatalog 2SS;-f89l@x@QFetch As NeededHORDERDATCMITEMS4jjB@+ clsCatalog'" On Master$Refuse if Children Present#Refuse if Children Present !Class8*D,:3%jj~Default6lDefault   2SSlDefault6~Default%3:,D*form1! ITEM_NUMBER  ITEM_NUMBER#Refuse if Children Present frmItemDetail$Refuse if Children Present" On Mastjjer'frmItemPicture+n@X@4 ITEM_PICTURESMCHORDERDATQFetch As Needed`@`@98f-;  $ "";f89^@[@E4(@jjQRpctItem'*:a 3D ControlPICTUREU~Default %66;,Start89R@k@E4^@(@y*xCATALOG_DESCRIPTION1'*, jj :a 3D Control)StringCATALOG_DESCRIPTIONINoneK ImmediateJLUmDefaultoAnynDefault  ;zNoneBottomStart8@X@X@(@static4'Catalog Description*  : jjmDefault %66;,Right898@X@E4R@U@y*xPRICE1'*,Currency  :a 3D Control)DoublePRICEINoneK ImmediateJLUjjmDefaultoAnynDefault  ;zNoneBottomStart8@X@H@U@static3'Price*  : mDefault %66;,Start898@i@E48@^@y*xjjRS DESCRIPTION1'*,  :a 3D Control)String DESCRIPTION(INoneK ImmediateJLUmDefaultoAnynDefault  ;zNoneBottomStart8@X@jj^@static2' Description*  : mDefault %66;,Start898@X@E48@(@y*x ITEM_NUMBER1'*,  :ajj 3D Control) Long Integer ITEM_NUMBERINoneK ImmediateJLUmDefaultoAnynDefault  ;zNoneBottomStart8@X@(@static1' Item Number:*  : mDefault  ;zjjNoneTopRight8@U@(@8@static1'Item:*  : mDefault --lDefaultU Long Integer)101a 3D Control:  *3popItems'popItemsjS5^@(@XDIM sWhere As string sWhere = "ITEM_NUMBER = " & Value clsCatalog.QueryWhere(sWhere) 4Ec@8@98'7=AT ORDERDAT SELECT DESCRIPTION, ITEM_NUMBER FROM ITEMS,;TUUmDefaultoAnynDefault %66;,Start8 98@r@E4IF 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 ImmediateJLUmDefaultoAnynDefault  ;zNoneBottomRight8@[@f@static9' Ship To Name:*  : mDefault  ;zNoneBottomRight8@X@@h@static8' Telephone:*  : mDefault %66;,Start898@X@E4b@@w@y*xZIP1'*,  :a 3D Control)StringZIP INoneK ImmediateJLUmDefaultoAnynDefault  %66;,Start898@B@E4Ugeb@@t@y*xSTATE1'*,  :a 3D Control)StringSTATEINoneK ImmediateJLUmDefaultoAnynDefault  %66;,Start898@h@E4b@^@y*xCITY1'*,  :a 3D Control)StringCITYITable, MAX()+CounterIncByK ImmediateJLUmDefaultoAnynDefault  ;zNoneBottomRight8@X@R@(@static3'Address:*  : mDefault  ;zNoneBottomRight8@X@B@(@static2' Customer:*  : mDefault %66;,Center898@N@E4@^@y*x ORDER_NUMBER1'*,  :a 3D Control) Long Integer ORDER_NUMBERISequenceK ImmediateJ ORDER_NUMBERSLUmDeV\WXYZ[\WXIBM1252 cpprpscr_nlprtrecproptbl  udpSorted udmDeleteItem udmFindEntry udmAddItemudpMatchingList udpOrderItem udmClearListudmGetDisplayValue_About BooleanBooleanLongsValue As StringLong$sDisplay As String, sValue As StringObjectLongLongStringsValue AS StringLongfonttbl System FontArial MS Sans Serif Courier NewTimes New RomanApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew York 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 NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight lr SVbN lr OsakaVFONT @lr ff4550-fl @WSVbN gfAbadi MT Condensed Lightlr oSVbNCentury Arial BlackHaettenschweiler Map SymbolsMarlett lr o @lr oXY @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 Brush738 BTCelCel Bold Cel850 BoldBlackletter686 BTCel850WinPTFntWinPTIntWP Arabic SihafaStarTrekGen Hv BT VAGRounded BT Vineta BT CIA POSTNETCIA Code 39 Medium TextKyBdcontrols/ nkklDefault6~Default%5 3:,D*Pick Your Colors! #Refuse if Children Present$Refuse if Children Present" On Master' frmPickColors+YWZ4MCHQFetch As Neededu@s@f-;2 Automatic2Standard Documenthijk  %66nDefaultoAnymDefaultULJK ImmediateINone Long Integer)0a 3D Control:  ,*'1fldTotalxy*e@n@4EB@8@98Center,;  mDefault :  *Total for this item:'static3B@n@^@8@RightTopzNone; lDefault6a 3D Control:  *+Cancel' btnCanceli@@q@U@8@98; lDefault6mDIM 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_NUMBER = :nOrderNujZL[mber AND ORDER_ITEM_ID = :nOrderItemID DO WHILE nPointer <= nCount lstRecSet.SetCurRow(nPointer) sValue = lstRecSet.GetColVal(1) sValue = RIGHT(sValue, LEN(sValue) - (INSTR(sValue, "-")+1)) nQuantity = VAL(sValue) nColorID = VAL(lstRecSet.GetColVal(2)) EXEC SQL AT ORDERDAT INSERT INTO ORDER_ITEM_COLORS ( & ORDER_NUMBER, ORDER_ITEM_ID, COLOR_ID, QUANTITY) & VALUES(:nOrderNumber, :nOrderItemID, :nColorID, :nQuanjjtity) nPointer = nPointer + 1 LOOP frmMain.rptOrderItems.GetRecordset().SetColVal("QUANTITY", fldTotal.Value) frmPickColors.CloseWindow() a 3D Control:  *+OK'btnOKN@@q@U@8@98;  mDefault :  *Colors Selected:jj'static2f@(@b@8@CenterCenterzNone;  mDefault :  *Colors Available:'static1(@(@b@8@CenterCenterzNone;D  MasterLibrary0000000F32976061 clsPickLijjst 2S[lDefault6~DefaultefrmColorQuantity.udpCallingList = Self frmColorQuantity.OpenModal(0) Inherited.ChildDblClick(child)%3:,D*Class15! #Refuse if Children Present$Refuse if Children Presentjj[P\" On Master'clsColorsSelected+f@B@4MCHQFetch As Neededb@h@98f clsColorsAvailable-; >,,lDefaultUjjString)a 3D Control:  *3' lstPickList4Eb@h@98'"This is a dummy value" = 0,;D  MasterLibrary0000000F32976061 clsPickList 2S[lDefault6~DefaultjjifrmColorQuantity.udpCallingList = Self frmColorQuantity.OpenModal(0) Inherited.ChildDblClick( child ) %3:,D*Class15! #Refuse if Children Present$Refuse if Children Present" On Master'clsColorjjsAvailable+(@B@4MCHQFetch As Neededb@h@98f clsColorsSelected-; >,-lDefaultUString)a 3D Control: jj\A *3' lstPickList4Eb@h@98'"This is a dummy value" = 0,;).GetColVal("ORDER_ITEM_ID") objRecSet = NEW DBRECORDSET(ORDERDAT, False) sQuery = "SELECT COLOR_ID, QUANTITY FROM " & & "ORDER_ITEM_COLORS WHERE ORDER_NUMBER = :nOrderID jjAND " & & "ORDER_ITEM_ID = :nOrderItemID" objRecSet.SetQuery(sQuery, False) nCounter = objRecSet.GetRowCount() nPointer = 1 DO WHILE nPointer <= nCounter objRecSet.SetCurRow(nPointer) nRowNumber = clsColorsAvailable.udmFindEntry( & CSTR(objRecSet.GetColVal("ORDER_ITEM_ID"))) clsColorsAvailable.lstPickList.GetRecordset().SetCurRow(nRowNumber) sValue = clsColorsAvailable.lstPickList.GetRecordset().GetColVal(1) & & " - " & objRecSet.GetColVal("QUANTITY"jj) clsColorsAvailable.lstPickList.Value = objRecSet.GetColVal("ORDER_ITEM_ID") clsColorsAvailable.ChildDblClick(lstPickList) nPointer = nPointer + 1 LOOP 4Eb@h@98'"This is a dummy value" = 0;,;jjj]L'd^_`bcdj^LV_IBM1252 cpprpscr_nlprtrecproptbl KeyDownKeyPressKeyUp Alignment ValueDisplayStyleSpinRate Increment BorderColor ArrowColorChange ChangeSpinSpinUpSpinDownxEnabledFont xFontBold xFontItalic xFontName xFontSizeFontStrikethruxFontUnderlinejjhWnd MousePointerToolTip BackColor ForeColorAboutBoxxMaxxMin ButtonWidth FillColor LightColor ShadeColor HdnHeightHdnWidth GetArrowsudpCallingList&;*KeyCode As Integer, ByVal Shift As Integer<KeyAscii As Integer=*KeyCode As Integer, ByVal Shift As Integer>?@ABCD`abcjjObjectfonttbl System FontArial MS Sans Serif Courier NewTimes New RomanApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew York Arial Narrow Book AntiquaSystem Small FonjjtsModernTerminalRomanMS 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 MediumAlbertusjj_Lz` Extra BoldUniversUnivers CondensedFences Helvetica Arial Super San FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight lr SVbN lr OsakaVFONT @lr ff4550-fl @WSVbN gfAbadi MT Condensed Lightlr oSVbNCentury Arial BlackHaettenschweiler Map SymbolsMarlett lr o @lr jjo @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 BTFreefrm721jj 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 SystemExBernhardMojjd 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 TextKyBdcontrols nkllDefault6~Default%5 3j`L1b:,D*Select A Quantity! #Refuse if Children Present$Refuse if Children Present" On Master'frmColorQuantityIDIM 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) END IF lblColor.Label = sValue spnQuantity.Value = nQuantity frmPickColors.fldTotal.Value = frmPickColors.fldTotal.Value - nQuantity Inherited.OpenModal(sys_exclusive) +4MCHQFetch As Neededk@X@f -;2 Automatic2Standard Documenthijk ;898@N@H@^@ btnCancel'Cancel+*  :a 3D Control]frmPickColors.clsColorsAvailable.lstPickList.Value = NULL frmColorQuantity.ClojbLHcseWindow() 6lDefault lDefault6DIM 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 = GetContainer().udpCallingList.udmGetDisplayValue(objPickList.Value) IF GetContainer()jj.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 objPickList.Value = NULL END IF ELSE IF GetContainer().udpCallingList = frmPickColors.clsColorsAvailable THEN jj objPickList.Value = NULL ELSE objPickList.GetRecordset().SetColVal(1, sValue) objPickList.UpdateList() END IF END IF frmPickColors.fldTotal.Value = frmPickColors.fldTotal.Value + spnQuantity.Value frmColorQuantity.CloseWindow() a 3D Control:  *+OK'btnOK8@H@N@8@98; jj%Hv@>(dD`dC`d`aU Long Integer)d+d``*`Bd;<=d(d spnQuantityc@(@4Ed B@8@cAd b@(d98dCSSpin,`?(d;djjcL<ddd`  ࡱ> jjjjRoot Entrylꆕ #L@ ۻOle ContentssOlePres000jjjdL/{MR KQDB MS Sans SerifCSSpind  pQuickPak Professional for Windows, Copyright (c) 1995 Crescent Division of Progress Software Corporation.  mDefault :  *'lblColor[@(@H@8@StartTopzNone;  mDefaultzNone How many items in:TopStart  ';:*8@X@(@(@static1zNone;  mDefaultzNone How many items in:TopStart  ';:*8@X@(@(@static1e+faultoAnynDefault  ;zNoneBottomRight8@X@@*@static1'Order:*  : mDefault,*'1CITYxy*^@e@4Eh@8@98Start,;  mDefault :   *Address:'static3(@X@X@8@RightBottomzNone;  mDefault :   * Customer:'static2(@N@X@8@RightBottomzNone; %66nDefaultoAnymDefaultULJ ORDER_NUMBERSK ImmediateISequence ORDER_NUMBER Long Integer)a 3D Control:   ,*'1 ORDER_NUMBERxy*^@8@4EN@8@98Center,;  mDefault :   *Order:'static1(@8@X@8@RightBottomzNone;fnghijkmnjjjjjjjjg`hIBM1252 cpprpscr_nlprtrecproptbln XAboutBox StatusLineSelectionChangedSetURLAndTitle LoadEnded LoadStartedFTPProxyFTPPort HTTPProxyHTTPPortNoProxyURLGoToURL GoForwardGoBackReLoad CanGoForward CanGoBack CanReLoad SetHTTPProxy SetFTPProxy SetNOProxyxStop GetCurrentURLGetCurrentTitleCanCopyCopy IsLoadingxPrintCanPrint SetThumbNail GetSource 9:ByVal StatusText As Sjjtring;"ByVal SomethingSelected As Integer<,ByVal pURL As String, ByVal pTitle As String=>?@ABCDEBooleanByVal URL As StringFBooleanGBooleanHBooleanIBooleanJBooleanKBooleanLBoolean'ByVal URL As String, ByVal PORT As LongMBoolean'ByVal URL As String, ByVal PORT As LongNBooleanByVal NoProxyString As StringOjjPStringQStringRBooleanSBooleanTBooleanUBooleanVBooleanW5ByVal p_ThumbNailOn As Integer, ByVal p_Scale As LongXStringfonttbl System FontArial MS Sans Serif Courier NewTimes New RomanApplication FontOCR A ExtendedGenevaChicagoTimesPalatinoAplication FontAthensNew York Arial Narrow Book AntiquaSystem Small FontsModernTerminalRomanMS Serif WingdingsSymbolScriptFixedsysjjCourier 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 Sajjhin FranciscoMonacoVeniceUnivers Conden{ed NewtSpecialNewtPCNewtITC Century HandtooledBoldAGaramond BoldBarmeno ExtraBold Espy SansEspy Sans Bold eWorld Tight lr SVbN lr OsakaVFONT @lr ff4550-fl @WSVbN gfAbadi MT Condensed Lightlr oSVbNCentury Arial BlackHaettenschweiler Map SymbolsMarlett lr o @lr o @FixedSysLucida Sans UnicodeCopperplate Gothic LightNULL Lucjjida 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 BjjTCopperplate 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 jjDialog 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 TextKyBdcontrols;# nkklDefault6~Default%5 3:,Djji<j*Mpbload.GoToURL("file:///c:/trans.htm") txtStatus.Label = "Loading . . . ." Enter the Web . . .! #Refuse if Children Present$Refuse if Children Present" On Master'frmWeb+jj4MCHQFetch As Needed~@~@f-;2 Automatic2Standard Documenthijk %Hv-9RJIVKS@`?`QPXGFE*B`A`Tjj=DDIM nPosition AS Integer, nStart DIM sTranslation AS String sTranslation = Self.GetSource() nStart = 1 nPosition = INSTR(sTranslation, "##") DO WHILE nPosition <> 0 lstWebPages.Translation = MID(sTranslation,nStart, nPosition - (nStart)) & CHR(13) & CHR(10) & lstWebPages.Translation nStart = nPosition + 2 nPosition = INSTR(nStart,sTranslation, "##") LOOP txtStatus.Label = "Load complete" >pbloadC`B@x@H;MjjLNW<??:98D`;UO ࡱ> jjjNkjjRoot Entry-ȫ A=ContentsOlePres000jjjjjk[m  lDefault6a 3D Control:  *+OK'btnOKx@@w@R@B@98;  >,,lDefaultPowerBrowse.GoToURL(Self.Value)UdString)a 3D Control:  *3' lstWebPagesc@u@4El@U@98',;  mDefault :  *' txtStatus[@{@o@8@StartTopzNone;  mDefault :   *Select a Web page: 'static1(@u@`@8@RightCenterzNone;  k|"lDefault{ Raised Panel|a 3D Control:*' recBrowse(@(@|@@t@98f; %Hv-9RJIVKS@`?`QPXGFE *B`A`T=> PowerBrowseC`(@jm&n(@H;MLNW<{@r@:DtxtStatus.Label = StatusText98D`;UO ࡱ> jjjjRoot Entry-ȫ A=ContentsOlePres000jjjn,,