podb File format Copyright (c) 1994,1995 by Oracle Corporation. 9 ~2B%podbj4j4j j j dj djjjj@0*wj@0*wjjjjjjjj jjjjjjj s  jjjjjjjj   jjjjjjj` MJ @  E{ [WZ ~APPLID~00000008:000000000000.00010000 ~APPINF~0000000C:000000000000.000100010000002232E1899A0000000E:000000000000.00010708frmItemDetail00000002327E0A5E00000013:000000000000.00010003frmMain0000001B32C10FF900000120:000000000000.00010516nopict0000001C32C1F80500000025:000000000000.00010578 frmLogin0000001D32C43A750000002C:000000000000.000105DCfrmExportFile0000001E32C479F300000030:000000000000.00010640 frmSelectColumns00000024334A23C10000003C:000000000000.000107D0 frmErrors0000002032C58D6800000041:000000000000.000106A5 frmTables0000002132C5911A00000045:000000000000.000106A6frmLink00000023334268A300000052:000000000000.0001076C dlgImportj J$jjjjjjjj   jjjjjjjj & IBM1252proplistproptbl 5)} Gregorianp$%gORDERDAT Chapter 4Chap4+frmLogin.OpenModal(0) frmMain.OpenWindow()} Gregorian)indow()orian))} Gregorianp$%gORDERDAT jjChapter 4Chap4+frmLogin.OpenModal(0) frmMain.OpenWindow()p} Gregorian)StarterfrmMain.OpenWindow()ain.OpenWindow()jjjjjj t  jjjjjjj 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 MTBookshe  lf 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 CasablancaCasperOpenFaceCottagecontrols nkklDefault6~Default5 3:,D* Item Detail! ITEM_NUMBER  ORDER_ITEM#Orphan DetailsfrmMain.rptOrderItems$Orphan Details" On Master frmItemDetail+4ITEMSMCHORDERDATQFetch As Neededv@p@f-;2 Automatic2Standard Documenthijk%'   2SSlDefault6NOPICT~Centered3:,D*form1 ! ITEM_NUMBER  ITEM_NUMBER#Refuse if Children Present frmItemDetail$Refuse if Children Present" On MasterfrmItemPicture+l@\@4 ITEM_PICTURESMCHORDERDATQFetch As Needed@]@\@98f-;% '  $ "";f89Y@[@E4OIF ISNULL(SELF) THEN Self.Visible = False ELSE Self.Visible = True END IF@pctItem'*:a 3D ControlPICTUREU~Default  lDefault6GetContainer().CloseWindow()a 3D Control:   *+OK'btnOK@`@ m@X@:@98; %66';,Start89L@i@E4e@,@y*xCATALOG_DESCRIPTION1*,  :a 3D Control)StringCATALOG_DESCRIPTIONINoneK ImmediateJLUmDefaultoAnynDefault  '  ;zNoneBottomStart8@@f@b@,@static4Catalog Description*  : mDefault %66';,Right898@X@E4^@,@y*xPRICE1*,Currency  :a 3D Control)DoublePRICEINoneK ImmediateJLUmDefaultoAnynDefault  ';zNoneBottomStart8@X@X@,@static3Price*  : mDefault %66';,Start898@@s@E4@R@,@y*x DESCRIPTION1*,  :a 3D Control)String DESCRIPTION(INoneK ImmediateJLUmDefaultoAnynDefault  ';zNoneBottomStart8@X@H@,@static2 Description*  : mDefault %66';,e*23456KTUeOIBM1252 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 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 BdUCn 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 CasablancaCasperOpenFaceCottagecontrolsr MnkklDefault6~Default ӑDIM oRecSet As Object DIM nRows As Integer DIM nRowsLeft As Integer oRecSet = Self.GetRecordset() nRows = oRecSet.GetRowCountAdvice() IF oRecSet.GetRowCount() <> nRows THEN nRowsLeft = nRows - oRecSet.GetRowCount() IF nRowsLeft > 100 THEN IF MSGBOX("There are " & STR(nRowsLeft) & & " rows left. Do you want to retrieve them?", 33, & "Retrieve the rows?") = 2 THEN EXIT SUB END IF END IF oRecSet.FetchAllRows() END IF Inherited.CommitForm() %STATIC sSQL As String DIM oControl As Object STATIC oRecSet As Object DIM oCurRecSet As Object DIM nCountNew As Integer DIM nCountCur As Integer DIM 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.DataSource & "," & 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() nCountCur = 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 " & & 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 your 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 5 3:,D* Enter =Orders! #Refuse if Children Present$Refuse if Children Present" On Master'frmMain+DIM 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-;2 Automatic2Standard Documenthijk LlDefault6REDIM sImportArray(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 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 sLinjleValue AS String, sValue 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, sLinejjValue, ",") IF nNext <> 0 THEN sValue = MID(sLineValue, nStart, nNext - nStart) nStart = nNext + 1 ELSE sValue = MID(sLineValue, nStart) nStart = 0 END IF frmLink.udpRecordset.SetCurRow(nColumn) DIM sErrorText AS String IF NOT ISNULL(frmLink.udpRecordset.GetColVal("COLUMN")) THEjjN 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.udpRecordsejjt.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 ENDj IF END SELECT sColumns = sColumns & frmLink.udpRecordset.GetColVal("COLUMN") & & "," sImportValues = sImportValues & sValue & "," 'new one END IF nColumn = nColumn + 1 LOOP IF sErrorText = "" THEN sColumns = LEFT(sColumns, LEN(sColumns) - 1) sImportValues = LEFT(sImportValues, LEN(sImportValues) - 1) sInsert = "INSERT INTO " & frmTables.rbfTables.Value & " ( " & & sColumns & ") VALUES(" & sImportValues & ")" EXEC SQL AT ORDERDAT :sInsert ELSE WRITE #nFileReason, nErrors, sErrorText WRITE #nFileData, nErrors, sLineValue nErrors = nErrors + 1 END IF IF SqlErrCode() <> 0 AND sErrorText = "" THEN WRITE #nFileReason, nErrors, SqlErrCode() & " - " & SqlErrText() WRITE # nFileData, nErrors, sLineValue nErrors = nErrors + 1 ELSE IF sErrorText = "" THEN nRows = nRows + 1 END IF LOOP EXEC SQL AT ORDERDAT COMMIT END IF ON ERROR GOTO 0 END IF END IF CLOSE nFileData CLOSE nFileReason DIM sMessage AS String sMessage = STR(nRows) & " rows inserted into the ORDERS table." & & CHR(13) & CHR(13) & STR(nErrors - 1) & " rows not inserted due to errors." IF nErrors = 1 THEN MSGBOX(sMessage, 64, "Results of Import") ELSE sMessage = sMessage & CHR(13) & CHR(13) & & "Would you like to review the errors?" IF MSGBOX(sMessage, 67, "Results of Import") = 6 THEN frmErrors.OpenModal(0) END IF END IF a 3D Control:  *+Import' btnImport|@Ef@T@6@98; KlDefault6[ DIM nFile AS Integer, nCount AS Integer, nPointer AS Integer DIM sExportFile AS String DIM objRecSet AS Object DIM sListValue AS String, sValue AS String nCount = frmMain.GetRecordset().GetColCount() REDIM sArray(nCount) AS String frmExportFile.OpenModal(0) sExportFile = frmExportFile.fldExportFile.Value ON ERROR RESUME NEXT IF NOT ISNULL(sExportFile) THEN frmSelectColumns.OpenModal(0) ' You have to parse through the values in the selected pick list to create the values in sArray. objRecSet = frmSelectColumns.clsSelectedColumns.lstPickList.GetRecordset() nCount = objRecSet.GetRowCount() nPointer = 1 DO WHILE nPointer <= nCount objRecSet.SetCurRow(nPointer) sArray(nPointer - 1) = objRecSet.GetColVal(1) nPointer = nPointer + 1 ' nPointer = INSTR(sListValue, CHR(13)) ' IF nPointer <> 0 THEN ' sValue = LEFT(sListValue, nPointer - 1) ' sListValue = RIGHT(sListValue, LEN(sListValue) - (nPointer + 1)) ' ELSE ' sValue = sListValue ' sListValue = "" ' END IF ' sArray(nCount) = sValue ' nCount = nCount + 1 LOOP REDIM PRESERVE sArray(nCount - 1) nFile = FREEFILE OPEN sExportFile FOR OUTPUT AS nFile IF ERR <> 0 THEN MSGBOX("You could not open the " & sExportFile & & " file.", 32, "Open File Failed") EXIT SUB ELSE ON ERROR GOTO 0 END IF frmMain.GetRecordset().FetchAllRows() objRecSet = frmMain.GetRecordset() nCount = objRecSet.GetRowCount() nPointer = 1 DIM nArrayCount AS Integer, nArrayPointer AS Integer nArrayCount = UBOUND(sArray) + 1 DO WHILE nPointer <= nCount objRecSet.SetCurRow(nPointer) DO WHILE nArrayPointer < nArrayCount j8 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 jjLOOP 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 a 3D Control:  *+Export Current Rows' btnExportp{@@k@^@;@9jj8; JlDefault60frmMain.rptOrderItems.GetRecordset().DeleteRow()a 3D Control:  *+Delete' btnDelete@t@K@5@98; H mDefault :   *'lblRejjcordStatsh@o@[@8@CenterTopzNone; GlDefault6zDIM 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.Enajbled = True btnFirst.Enabled = True a 3D Control:  *+>>'btnLastq@ k@;@=@98; FlDefault6DIM oRecSet As Object oRecSet = frmMain.GetRecordset() oRecSet.SetCurRow(oRecSet.GetCurRow() + 1) lblRecordStats.Label = "Record " & & Str(oRecSet.GetCurRow()) & " of " & & Str(oRecSet.GetRowCountAdvice()) btnPrev.Enabled = True btnFirst.Enabled=True IF oRecSet.GetCurRow() = oRecSet.GetRowCountAdvice() THEN Self.Enabled = False btnLast.Enabled = False END IF a 3D Control:  *+>'btnNextn@ k@;@=@98; ElDefault6qDIM oRecSet As Object oRecSet = frmMain.GetRecordset() 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 a 3D Control:  *+<'btnPrev`k@ k@;@=@98; DlDefault6frmMain.GetRecordset().SetCurRow(1) lblRecordStats.Label = "Record 1 of " & & Str(frmMain.GetRecordset().GetRowCountAdvice()) Self.Enabled = False btnPrev.Enabled = False btnNext.Enabled = True btnLast.Enabled = True a 3D Control:  *+<<'btnFirstjFh@ k@;@=@98; C%66nDefaultoAnymDefaultULJK ImmediateINoneString)Same As Customera 3D Control:FSHIP_NAME.Visible = True Self.Visible = False SHIP_NAME.SetFocus()    ,*jj'1 fldDefaultxy*]@f@4Er@7@98 Start,; B%66nDefaultoAnymDefaultULJK ImmediateINoneADDRESS2String)a 3D Control:   ,*jj'1ADDRESS2xy*^@[@4Eq@8@98Start,; A%66nDefaultoAnymDefaultULJK ImmediateINoneADDRESS1String)a 3D Control:   jj,*'1ADDRESS1xy*^@Q@4Eq@9@98Start,; ?%66nDefaultoAnymDefaultULJK ImmediateINone TELEPHONEString)a 3D Control:  je ,*'1 TELEPHONExy* r@@4Ea@9@98Start,; .--lDefaultU CUSTOMER_NAMEString)a 3D Control:   *3popCustomerName'popCustomerName^@B@ 4Er@8@98'@= AT ORDERDAT SELECT CUSTOMER_NAME, CUSTOMER_NAME FROM CUSTOMERS.DIM 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 & CUSTOMER_NAME = :sCustomerName ADDRESS1.Value = sAddress1 ADDRESS2.Value = sAddress2 CITY.Value = sCity STATE.Value = sState ZIP.Value = sZIP TELEPHONE.Value = sTelephone Validate = True,; ( mDefault :   * Line Total'static5x@r@X@8@StartCenterzNone; ' mDefault :   *Discount'static4@t@r@N@8@StartCenterzNone; & mDefault :   j**Price'static12pp@r@H@8@CenterCenterzNone; % mDefault :   *Quantity'static11h@r@N@8@StartCenterzNone; jj$ mDefault :   * Order Item'static10H@r@b@8@StartCenterzNone; 2]PPlDefault%3:,D*! ORjjDER_NUMBER  ORDER_NUMBER#Delete CascadefrmMain$Update Cascade" On Master' rptOrderItems+(@s@4 ORDER_ITEMSMCOLORSCHORDERDATQFetch As Needed~@R@98 f-jj;  s  repeat_dummy1UUUUUUſUUUUUUſ*:;89,flDefault' s lDefault:,*' repeat_dummy2?@jj Start898@X@E48@,@y*x ITEM_NUMBER1*,  :a 3D Control) Long Integer ITEM_NUMBERINoneK ImmediateJLUmDefaultoAnynDefault  ';jjzNoneBottomStart8@X@,@static1 Item Number*  : mDefault': mDefault  mDefault :   * Item Numberstatic1,@X@8@jjStartBottomzNone;'X@8@StartBottomzNone;' Item Numberstatic1,@X@8@StartBottomzNone;'jjj!""##$j$*jjjjjjjj%xQ&'(+Qjjjjjjjj&x 'IBM1252 cpprpscr_nlprtrecproptblM fonttbl System FontArial MS Sans Serif Courier NewApplication FontOCRjj 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 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 j'x-(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 CasablancaCasperOpenFaceCottagecontrolsp nkklDefault6~Default%5 3:,D*Log In To A Database! #Refuse if Children Present$Refuse if Children Present" On Master'frmLogin+4MCHQFetch As Neededx@(x+h@f-;2 Automatic2Standard Documenthijk  ;89<@@T@a@@j@ btnCancel'Cancel+*  :a 3D ControlApplication.CloseApp()6lDefault lDefault6DIM sConnect As String STATIC nFailures As Integer 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) ORDERDAT.RunConnect = TRIM(sConnect) ORDERDAT.Connect() IF ORDERDAT.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 not log in successfully. Please try again", 32, & "Login Failure") nFailures = nFailures + 1 END IF END IF a 3D Control:  *+Connect' btnConnectR@a@@T@<@98;  ;zNoneCenterRight7@U@W@$@static3' Password:*  : mDefault  mDefault :* 2?98f; s lDefault:,*' repeat_panel@?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???;  %66nDefaultoAnymDefaultULJK ImmediateINone =(QUANTITY*PRICE) * (1-DISCOUNT)Double)a 3D Control:   Currency,*'1 LINE_TOTALxy*@4E??98Right,; %66nDefaultoAnymDefaultULJK ImmediateINone~=SqlLookup(ORDERDAT, "select price from items where item_number = " & IIF(ISNULL(popOrderItem.Value), 0, popOrderItem.Value) )Double)a 3D Control:   Currency,*'1PRICExy*@4E??98Right,; --;,'6=AT ORDERDAT select DESCRIPTION,ITEM_NUMBER from +xQ   *User:'static2$@M@U@7@RightCenterzNone; %66nDefaultoAnymDefaultULJK ImmediateINoneString)a 3D Control:   ,*'1 fldPasswordxy*X@W@4E o@:@98Start,; %66nDefaultoAnymDefaultULJK ImmediateINoneString)a 3D Control:   ,*'1fldUserxy*X@M@4E o@:@98Start,;  mDefault :   * Database:'static1$@:@U@7@RightCenterzNone; --;,';Local database = ODBC#ORDERDAT Remote database = Oracle# 897@@o@E4oIF NOT ISNULL(Self.Value) THEN btnConnect.Enabled = True ELSE btnConnect.Enabled = False END IF 9@X@ popDatabase'3*  j,/-./jjjjjjjj- .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 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 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 CasablancaCasperOpenFaceCottagecontrolsH  nkkkjih2Standard Document2 jjAutomatic;-f`@p@QFetch As NeededHCM4+ frmExportFile'" On Master$Refuse if Childjjren Present#Refuse if Children Present !Specify An Export File*D,:35 %~Default6lDefault lDefault6=fldExportFile.Value = "" GetContainer().DismissModal(Self) a 3D Contrj/ol:  *+Cancel' btnCancel@a@@U@J@7@98; lDefault6IF ISNULL(fldExportFile.Value) THEN MSGBOX("You must enter a file name.", 32,"No File Name") fldExportFile.SetFocus() ELSE GetContainer().DismissModal(Self) END IF a 3D Control:  *+OK'btnOKE@@U@J@7@98; %66;,Start89;@n@E4F@(@y*x fldExportFile1'*,  :a 3D Control)StringdINoneK ImmediateJLUmDefaultoAnynDefault  ;zNoneTopStart8@m@(@*@static1'File to hold exported data:*  : mDefault0@ ;1789:;1@7IBM1252 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 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 BTLj23ITEMS89??E4? popOrderItem'popup13*  :a 3D Control) Long Integer ORDER_ITEMUlDefault %66nDefaultoAnymDefaultUjjLJK ImmediateINoneQUANTITY Long Integer)a 3D Control:   ,*'1QUANTITYxy*@4E??98Center,; %66nDefaultoAnymDefajjultULJK ImmediateINoneDISCOUNTDouble)a 3D Control:   Percent,*'1DISCOUNTxy* @4E??98Right,; %66nDefaultojjAnymDefaultULJ ITEM_NUMBERSKDeferredINone ORDER_ITEM_ID Long Integer)a 3D Control:  ,*'1 ORDER_ITEM_IDxy*?4E??98Start,;j34 %66nDefaultoAnymDefaultULJK ImmediateINone( SHIP_NAMEString)a 3D Control:   ,*'1 SHIP_NAMExy*]@`f@IF ISNULL(Value) THEN SHIP_NAME.Visible = False fldDefault.Visible = True ELSE SHIP_NAME.Visible = True fldDefault.Visible = False END IF 4Er@8@98 Start,;  mDefault :   * Ship To Name:'static9 @f@[@8@RightCenterzNone;  mDefault :   * Telephone:'static8h@@X@8@RightBottomzNone; %66nDefaultoAnymDefaultULJK ImmediateINone ZIPString)a 3D Control:   ,*'1ZIPxy*@w@b@4EX@8@98Start,;  %66nDefaultoAnymDefaultULJK ImmediateINoneSTATEString)a 3D Control:45   ,*'1STATExy*@t@b@4EB@8@98Start,;  %66nDefaultoAnymDefaultULJK ImmediateITable, MAX()+CounterIncByCITYString)a 3D Control:   ,*'1CITYxy*^@b@4Eh@8@98Start,;  mDefault :   *Address:'static34@R@X@8@RightCenterzNone;  mDefault :   * Customer:'static24@B@X@8@RightCenterzNone; %66nDefaultoAnymDefaultULJ ORDER_NUMBERSK ImmediateISequence ORDER_NUMBER Long Integer)a 3D Control:   ,*'1 ORDER_NUMBERxy*^@@4EN@8@98Center,;  m56Default :   *Order:'static14@@X@8@RightCenterzNone;static8' Telephone:*  : mDefault %66;,Start898@X@E4b@@w@y*xZIP1'*,  :a 3D Control)StringZIP INoneK ImmediateJLUmDefaultoAnynDefault  %66;,Start898@B@E4b@@t@y*xSTATE1'*,  :a 3D Control)StringSTATEINoneK ImmediateJLUmDefaultoAnynDefault  %66;,Start898@h@E4b@^@y*xCITY1'*,  :a 3D Control)StringCITYITable, MAX()+CounterIncByK ImmediateJLUmDefaultoAnynDefault j6K ;zNoneCenterRight8@X@R@4@static3'Address:*  : mDefault  ;zNoneCenterRight8@X@B@4@static2' Customer:*jj  : mDefault %66;,Center898@N@E4@^@y*x ORDER_NUMBER1'*,  :a 3D Control) Long Integer ORDER_NUMBERIjjSequenceK ImmediateJ ORDER_NUMBERSLUmDefaultoAnynDefault  ;zNoneCenterRight8@X@@4@static1'Order:*  : mDefault ;zNoneCenterRight8@X@jj@4@static1'Order:*  : mDefault@@X@8@RightCenterzNone;= frmPickColors.fldTotal.Value + nQuantity ELSE frmPickColors.clsColorsAvailable.udmAddItem(sColor(nPointer), CSTR(nColorID(nPointer))) END IF nPointer = nPointer + 1 LOOP 'new jj7@ 8ucia 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-DigitsZipCodeBjjarcodeCaslonOpnface 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 jjPassword Avant GardeIPA Password mask Zapf DingbatsBodoni MT Ultra Bold BahamasHeavy BahamasLightBrooklyn CasablancaCasperOpenFaceCottagecontrolsY nkklDefault6~Default%5 3:,D*DIM nCount AS Integer, nPointer AS Integer DIM objRejjcSet 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 Pj8@9resent" On Master'frmSelectColumns+4MCHQFetch As Neededu@@q@f-;2 Automatic2Standard Documenthijk  mDefault :   *Selected columns:'static2f@(@a@:@StartTopzNone;D  MasterLibrary0000000F32D22F99 clsPickList 2S[796;:=8 clsAvailableColumns<lDefault6~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" = 089g@b@E4@ lstPickListj9@ :'3*  :a 3D Control)StringUlDefaultD  MasterLibrary0000000F32D22F99 clsPickList 2S[796;:=8 clsSelectedColumns<lDefault6~Default%3jj:,D*Class15! #Refuse if Children Present$Refuse if Children Present" On Master'clsAvailableColumns+(@B@4MCjjHQFetch As Neededb@h@98f-; >,,;,'"This is a dummy value" = 089g@b@E4@ lstPickList'3*  :a 3D Control)StringjjUlDefault lDefault6a 3D Control:  *+OK'btnOK^@n@Y@7@98;  mDefault :   *Available columns:'static10@jj:@;$@a@:@StartTopzNone;jjRoot Entryjj ґK f bOle ContentsoOlePres000jjj;@ FR KQDB MS Sans Serif*.*KQuickPak Professional for Windows, Copyright (c) 1995 Crescent Division of Progress Software Corporation.  mDefault :   *Available columns:'static10@$@j@:@StartTopzNone;<O@=>?@=>IBM1252 cpprpscr_nlprtrecproptbl) Afonttbl 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 BdCnj>? 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 jjCel850 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 nkklDefault6~Defaultjj%5 3:,D*Review bad data! #Refuse if Children Present$Refuse if Children Present" On Master' frmErrors+jj4ERRORSMCHerrorsQFetch As Neededx@@q@f-;2 Automatic2Standard Documenthijk  ;89?@W@ n@c@btnOK'jj?@OK+*  :a 3D Control6lDefault ލ9;9@@h@  containerd= < j@Z@hsb1'*:lDefault  2SS;-jjf89V@u@QFetch As NeededHerrorsCMreason4@\@@@+form1'" On Master$Refuse if Children Present frmErrors#Refuse if Children Present ERROR_ID!ERROR_IDjjform1*D,:3%~Default6lDefault %66;,Start89Q@ o@E40@R@y*x ERROR_REASON1'*,jj  :a 3D Control)String ERROR_REASONINoneK ImmediateJLUmDefaultoAnynDefault  ;zNoneCenterRight8@R@"@static3'Error:*  : j@vmDefault %66;,Start89O@o@E4F@[@y*x ERROR_DATA1'*,  :a 3D Control)String ERROR_DATAINoneK ImmediateJLUmDefaultoAnynDefault  ;zNoneCenterRight8@X@F@"@static2'Data:*  : mDefault %66y*xoAnynDefaultmDefaulta 3D ControlJLK ImmediateINone1,StartDouble,)UE4ERROR_ID  98';:*8@X@@[@ERROR_ID  mDefaultzNone  Error Number:CenterRight  ';:*8@Z@@static1jA~DBCDjjjjjjjjBCIBM1252 cpprpscr_nlprtrecproptblm fonttbl System FontArial MS Sans Serif Cojjurier 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 MTClarenjjdon 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 jjgfAbadi 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 BTOzHanjC Ddicraft 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 CasablancaCasperOpenFaceCottagecontrols$  nkklDefault6~Default%5 3:,D*Import Dat From:! #Refuse if Children Present$Refuse if Children Present" On Master' frmTables+4MCHQFetch As NeededjDh@e@f-;2 Automatic2Standard Documenthijk ;898@@Z@@^@C@btnOK'OK+*  :a 3D Control6lDefault Dv11ljjDefault UString)ORDERSa 3D Control:   *3Destination Table' rbfTables.@*@4E c@W@98,; ..lDefaulta 3D Controljj  ORDER_ITEMS&% Long Integer,)UE4  98';:*<@^@J@.@radio2 ..;%ORDERS&,897@@_@E4jj8@0@radio1'ORDERS*  :a 3D Control)StringU lDefaultjE}P FGHIJLMNOPjFHGIBM1252 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 Cojjurier 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 MTClarenjjdon 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 jjgfAbadi 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 BTOzHanjGkHdicraft 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 CasablancaCasperOpenFaceCottagecontrols" nkl> lDefault6~Default%5 3:,D*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 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 & & HAI " 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 '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 fields and destination columns! #Refuse if Children Present$Refuse if Children Present" On Master'frmLink+4MCHQFetch As Neededx@r@f-;2 Automatic2Standard DocumenthijkD  MasterLibrary0000000F32D22F99 clsPickList 2S[;-f89R@u@QFetch As NeededHCM4fI%J@8@+clsLink'" On Master$Refuse if Children Present#Refuse if Children Present !Class15*D,:3%~Default6lDefault<8 =:;697 >,,;,'"This is a dummy value" = 089Q@u@E4 lstPickList'3*  :a 3D Control)StringUlDefaultD  MasterLibrary0000000F32D22F99 clsPickList 2S[796;:=8 <lDefault6~Default%3:,D*Class15! #Refuse if Children Present$Refuse if Children Present" On Master' clsColumns+i@8@4MCHQFetch As Neededb@[@98f-; >,,;,'"This is a dummy value" = 089 Z@b@E4j J&L@ lstPickList'3*  :a 3D Control)StringUlDefault lDefault6VDELETE frmLink.udpRecordset frmLink.udpRecordset = NULL frmLink.DismissModal(Self) a 3D Control:  jj*+Cancel' btnCancelh@p@@U@5@98; lDefault6~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'btnOKX@jKT 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_NUMBERSLjL0Mp@@U@5@98; lDefault6DIM 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'btnAddjj`@a@@_@7@98;  ;zNoneCenterStart5@ a@@`i@static5'Destination Columns*  : mDefault  mDefaultzNone Import Fields:CenterStart  jj';:*5@\@@2@static4 >,,lDefaultU Long Integer)a 3D Control:  *3'lstImportFields(@8@4Ec@[@9jM!N8',;FR KQDB MS Sans Serif*.*KQuickPak Professional for Windows, Copyright (c) 1995 Crescent Division of Progress Software Corporation. lDefault6KDIM 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.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`@a@@_@7@98NO;  ;zNoneCenterStart5@ a@@`i@static5'Destination Columns*  : mDefault %Hvn6`d8(d;,``de89``[@c@``E`46@i@d*.*d lstColumns`(d`<;:`*`+d`d``)9String`Ud`(d(dd`7  ࡱ> jOPRoot Entry ґK f jzOle jjContentsoOlePres000jj ^ FR KQDB MS Sans Serif*.*KjjkQuickPak Professional for Windows, Copyright (c) 1995 Crescent Division of Progress Software Corporation. jP  mDefaultzNone Import Fields:CenterStart  ';:*5@\@@2@static4 >,,;,'89[@c@E48@(@lstImportFields'3*  :a 3D Control) Long IntegerUlDefaultQx:a 3D Control)StringdUlDefault,;e#local ,;jRlrWSVWjjjjjjjjSlVIBM1252 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 Scriptjj 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 NewjjtSpecialNewtPCNewtITC 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 MTjj 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 jTUUmDefaultoAnynDefault %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_NUMBERSLUmDeVl WCn 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 CasablancaCasperOpenFaceCottagecontrolsF nkklDefault6~Default%5 3:,D*Select file to import . . .! #Refuse if Children Present$Refuse if Children Present" On Master' dlgImport+4MCHQFetch As Neededx@^@f-;2 Automatic2Standard Documenthijk lDefault6GetContainer().CloseWindow()a 3D Control:jWl  *+OK'button1\@@Q@\@@@98; %66nDefaultoAnymDefaultULJK ImmediateINoneString)a 3D Control:  ,*jj'1Pathnamexy*\@7@4En@9@98Start,;  static1:@8@Q@8@*:;'  StartTopFile to Import: zNonemjjDefaultjjjXYYZZ[[\\]]^^__``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{{||}}~~