podb File format Copyright (c) 1994,1995 by Oracle Corporation. 9 ~2B%podb@j@jj j  dj djjjjj@0*?wj@0*?wjjjjjjjj jjjjjjj x?  jjjjjjjjx  jjjjjjj` ?J j@ l Z7mM ~APPLID~00000008:000000000000.00010000 ~APPINF~0000000C:000000000000.000100010000001C32E0F2710000000E:000000000000.00010578frmItemDetail00000002327E0A5E00000013:000000000000.00010003frmMain0000001D334194D300000120:000000000000.000105DCnopictjjjjjjjj :jjjjjjjj 8   jjjjjjj  IBM1252proplistproptbl+ BfrmMain.OpenWindow()Chap2 Chapter 2g%$p} Gregorian)frmMain.OpenWindow()Chap2 Chapter 2g%$p} Gregorian)DATStarterStarterfrmMain.OpenWindow()ain.OpenWindow()j x@  jjjjjjj x IBM1252 cpprpscr_nlprtrecproptbl 5fonttbl 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 MTBookshej xlf 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 BoldBlacklettejjr686 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 nkklDefault6~Default5 3:,D* Ijjtem Detail! ITEM_NUMBER  ORDER_ITEM#Orphan DetailsfrmMain.rptOrderItems$Orphan Details" On Master frmItemDetail+4ITEMSMCHORDERDATQFetch As Neededv@p@f-;2 Automatic2Standard Documenthijk%jj'  lDefault6GetContainer().CloseWindow()a 3D Control:   jj x*+OK'btnOK[@l@X@:@98;  2SSlDefault6NOPICT~Centered3:,D*form1! ITEM_NUMBER  ITEM_NUMBER#Refuse if Children Present frmItemDetail$Refuse if Children Present" On MasterfrmItemPicture+jjl@\@4 ITEM_PICTURESMCHORDERDATQFetch As Needed@]@\@98f-;% 'jj  $ "";f89Y@[@E4OIF ISNULL(SELF) THEN Self.Visible = False ELSE Self.Visible = True END IF@pctItem'*:a 3D ControlPICTUREU~Default %66'jj;,Start89L@i@E4e@,@y*xCATALOG_DESCRIPTION1*,  :a 3D Control)StringCATALOG_DESCRIPTIONINoneK ImmediateJLUmDefaultoAnynDefault  'jj x ;zNoneBottomStart8@@f@b@,@static4Catalog Description*  : mDefault %66';,Right898@X@E4^@jj,@y*xPRICE1*,Currency  :a 3D Control)DoublePRICEINoneK ImmediateJLUmDefaultoAnynDefault  ';zNoneBottomStart8@X@X@,@static3Price* jj : mDefault %66';,Start898@@s@E4@R@,@y*x DESCRIPTION1*,  :a 3D Control)String DESCRIPTION(INoneK jjImmediateJLUmDefaultoAnynDefault  ';zNoneBottomStart8@X@H@,@static2 Description*  : mDefault %66';,jEe*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 MTBjookshelf 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 BoldBlacjjkletter686 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 CasablancaCasperOpenFaceCottagecontrolsD HnkklDefault6~Default jj %5 3:,D* Enter Orders! #Refuse if Children Present$Refuse if Children Present" On Master'frmMain+jjDIM oRecSet AS Object Inherited.Query() oRecSet = frmMain.GetRecordset() lblRecordStats.Label = "Record 1 of " & STR(oRecSet.GetRowCountAdvice()) btnFirst.Enabled = False btnPrev.Enabled = False btnNext.Enabled = True btnLast.Enabled = True 4ORDERSMCHORDERDATQFetch Count First@x@f-;2jj Automatic2Standard Documenthijk H mDefault :   *'lblRecordStatsh@o@[@8@CenterTopzNone; G;89=@;@ k@jjq@btnLast'>>+*  :a 3D ControlzDIM oRecSet As Object DIM nRow As Integer oRecSet = frmMain.GetRecordset() oRecSet.FetchAllRows() nRow = oRecSet.GetRowCountAdvice() oRecSet.SetCurRow(nRow) lblRecordStats.Label = "Record " & Str(nRow) & & " of " & Str(nRow) oRecSet.SetCurRow(oRecSet.GetRowCount()) Self.Enabled = False btnNext.Enabled = False btnPrev.Enabled = True btjjnFirst.Enabled = True 6lDefault F;89=@;@ k@n@btnNext'>+*  :a 3D ControlDIM oRecSet As Object oRecSet = frmMain.GetRecordset() oRecSet.SetCurRow(oRecSet.GetCurRow() + 1) lblRecordStats.Label = "Record " & & Str(oRecSet.GetCurRow()) & " of " & & Str(oRecSet.GetRowCounjjtAdvice()) btnPrev.Enabled = True btnFirst.Enabled=True IF oRecSet.GetCurRow() = oRecSet.GetRowCountAdvice() THEN Self.Enabled = False btnLast.Enabled = False END IF 6lDefault E;89=@;@ k@`k@btnPrev'<+*  :a 3D ControlqDIM oRecSet As Object oRecSet = frmMain.GetRecordjjset() oRecSet.SetCurRow(oRecSet.GetCurRow() - 1) lblRecordStats.Label = "Record " & & Str(oRecSet.GetCurRow()) & " of " & & Str(oRecSet.GetRowCountAdvice()) btnNext.Enabled = True btnLast.Enabled=True IF oRecSet.GetCurRow() = 1 THEN Self.Enabled = False btnFirst.Enabled = False END IF 6lDefault D;89=@;@ k@h@btnFirstjj'<<+*  :a 3D ControlfrmMain.GetRecordset().SetCurRow(1) lblRecordStats.Label = "Record 1 of " & & Str(frmMain.GetRecordset().GetRowCountAdvice()) Self.Enabled = False btnPrev.Enabled = False btnNext.Enabled = True btnLast.Enabled = True 6lDefault C%66;,Start8 97@r@E4jjf@^@y*x fldDefault1'*,  FSHIP_NAME.Visible = True Self.Visible = False SHIP_NAME.SetFocus() :a 3D Control)Same As CustomerStringINoneK ImmediateJLUmDefaultoAnynDefault B%66;,jjStart898@q@E4[@^@y*xADDRESS21'*,  :a 3D Control)StringADDRESS2INoneK ImmediateJLUmDefaultoAnynDefault A%jj:66;,Start899@q@E4Q@^@y*xADDRESS11'*,  :a 3D Control)StringADDRESS1INoneK ImmediateJLUmjjDefaultoAnynDefault ?%66nDefaultoAnymDefaultULJK ImmediateINone TELEPHONEString)a 3D Control:   ,*'1 TELEPHONExy* r@@4Ea@jj9@98Start,; .--lDefaultU CUSTOMER_NAMEString)a 3D Control:   *3popCustomerName'popCustomerName^@B@ 4Er@8@98'@= AT ORDERDAT SELECT CUSTOMER_NAME, jjCUSTOMER_NAME FROM CUSTOMERS,; ( mDefault :   * Line Total'static5x@r@X@8@StartCenterzNone; ' mDefault :   *Discount'static4jG@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]PPlDefault%3:,D*! ORDER_NUMBER  ORDER_NUMBER#Delete CascadefrmMain$Update Cascade" On Master' rptOrderItems+(@s@4 ORDER_ITEMSMCOLORSCHORDERDATQFetch As Needed~@R@98 f-;  s 'lDefaultf,98;:*UUUUUUſUUUUUUſ repeat_dummy1 js lDefault:,*' repeat_dummy2?@?98f; s lDefault:,*' repeat_panel@jj?98f; "lIF 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:*' curOrderItem???;  %66;,Right89?jj?E4@y*x LINE_TOTAL1'*,Currency  :a 3D Control)Double =(QUANTITY*PRICE) * (1-DISCOUNT)INoneK ImmediateJLUmDefaultoAnynDefault %66nDefauljjtoAnymDefaultULJK ImmediateINone~=SqlLookup(ORDERDAT, "select price from items where item_number = " & IIF(ISNULL(popOrderItem.Value), 0, popOrderItem.Value) )Double)a 3D Control:   Currency,*'1PRICExy*@j4E??98Right,; --;,'6=AT ORDERDAT select DESCRIPTION,ITEM_NUMBER from ITEMS89??E4? popOrderItem'popup13*  :a 3D Control) Long Integer ORDER_ITEMUlDefault %66nDefaultoAnymDefaultULJK ImmediateINoneQUANTITY Long Integer)a 3D Control:   ,*'1QUANTITYxy*@4E??98Center,; %66nDefaultoAnymDefaultULJK ImmediateINoneDISCOUNTDouble)a 3D Control:   Percent,*'1DISCOUNTxy* @4E??98Right,; %66nDefaultoAnymDefaultULJ ITEM_NUMBERSKDeferredINone ORDER_ITEM_ID Long Integer)a 3D Control:  ,*'jr1 ORDER_ITEM_IDxy*?4E??98Start,; %66;,Start8 98@r@E4IF ISNULL(Value) THEN SHIP_NAME.Visible = False fldDefault.Visible = True ELSE SHIP_NAME.Visibjjle = True fldDefault.Visible = False END IF `f@]@y*x SHIP_NAME1'*,  :a 3D Control)String SHIP_NAME(INoneK ImmediateJLUmDefaultoAnynDefault  mDefault :jj   * Ship To Name:'static9@@f@[@8@RightCenterzNone;  mDefault :   * Telephone:'static8h@@X@8@RightBottomzNone; jj%66nDefaultoAnymDefaultULJK ImmediateINone ZIPString)a 3D Control:   ,*'1ZIPxy*@w@b@4EX@8@98Start,;j  %66nDefaultoAnymDefaultULJK ImmediateINoneSTATEString)a 3D Control:   ,*'1STATExy*@t@b@4EB@8@98Start,;  %66nDefaultoAnymDefaultULJK ImmediateITable, MAX()+CounterIncByCITYString)a 3D Control:   ,*'1CITYxy*^@b@4Eh@8@98Start,;  mDefault :   *Address:'static3(@R@X@8@RightCenterzNone;  mDefault :   * Customer:'static2(@B@X@8@RightCenterzNone; %66nDefaultoAnymDefaultULJ ORDER_NUMBERSK ImmediateISequence ORDER_NUMBER Long Integer)a 3D Control:   ,*'1 ORDER_NUMj>BERxy*^@@4EN@8@98Center,;  mDefault :   *Order:'static14@@X@8@RightCenterzNone;UjjmDefaultoAnynDefault  ;zNoneCenterRight8@X@@4@static1'Order:*  : mDefaultUmDefaultoAnynDefault  ;zNoneCenterRight8@X@jj@4@static1'Order:*  : mDefault,*'1 ORDER_NUMBERxy*^@@4EN@8@98Center,;  mDefault :jj   *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." jj* EXIT DO END IF CASE 7 IF NOT ISDATE(sValue) THEN sErrorText = "The value for the " & & frmLink.udpRecordset.GetColVal("COLUMN") & " is not a date." EXIT DO 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 xStart898@X@E48@,@y*x ITEM_NUMBER1*,  :a 3D Control) Long Integer ITEM_NUMBERINoneK ImmediateJLUmDefaultoAnynDefault  ';zNoneBottomStart8@X@,@static1 Item Number*  : mDefault': mDefault  mDefault :   * Item Numberstatic1,@X@8@StartBottomzNone;'X@8@StartBottomzNone;' Item Numberstatic1,@X@8@StartBottomzNone;'!""##$j$*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+,,--..//0011723ND 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 j78899::;;<<==>>??@@AABBCCDDEEFFGGHHIIJ JLKT 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_NUMBERSLLMMNNOOPPQQRRSSVTUUmDefaultoAnynDefault %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_NUMBERSLUmDeVWWXXYYZZ[[\\]]^^__``bbccddfe+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;fgghhiijjkkmmnnooppqqrrssttuuvvwwxxyyzz{{||}}~~