1Use OrderPrecompile.pkg 2 3Use DfAllent.pkg 4Use cCJStandardCommandBarSystem.pkg 5Use cToolTipController.pkg 6 7Object oHtmlHelp is a cHtmlHelp 8End_Object 9 10Object oApplication is a cApplication 11 Set psCompany to "Data Access Worldwide" 12 Set psProduct to "Visual DataFlex Examples" 13 Set psVersion to "16.1" 14 Set psProgram to "Order" 15 Set psHelpFile to "Examples.chm" 16 Set peHelpType to htHtmlHelp 17End_Object 18 19Object oToolTipController is a cToolTipController 20 Move Self to ghoToolTipController 21End_Object 22 23Use oEditContextMenu.pkg 24Use oDEOEditContextMenu.pkg 25 26Object oMain is a Panel 27 Set Label to "Order Entry Sample Application" 28 Set Location to 4 3 29 Set Size to 300 450 30 31 Object oCommandBarSystem is a cCJCommandBarSystem 32 33 Set pbTimerUpdate to True 34 35 Procedure OnCreateCommandBars 36 Handle hoOptions 37 Get OptionsObject to hoOptions 38 Forward Send OnCreateCommandBars 39 End_Procedure 40 41 Object oMenuBar is a cCJMenuBar 42 43 Object oFileMenu is a cCJMenuItem 44 45 Set peControlType to xtpControlPopup 46 Set psCaption to "&File" 47 Set psDescription to "Find, Save, Delete, Clear information or quit this application." 48 Set psCategory to "Menus" 49 50 Object oClearMenuItem is a cCJClearMenuItem 51 Set pbAddToDesignerMenu to True 52 End_Object 53 54 Object oClearAllMenu is a cCJClearAllMenuItem 55 Set pbAddToDesignerMenu to True 56 End_Object 57 58 Object oPromptMenuItem is a cCJPromptMenuItem 59 Set pbAddToDesignerMenu to True 60 Set pbControlBeginGroup to True 61 End_Object 62 63 Object oFindMenuItem is a cCJFindMenuItem 64 Set pbAddToDesignerMenu to True 65 Set pbControlBeginGroup to True 66 End_Object 67 68 Object oFindNextMenu is a cCJFindNextMenuItem 69 Set pbAddToDesignerMenu to True 70 End_Object 71 72 Object oFindPreviousMenu is a cCJFindPreviousMenuItem 73 Set pbAddToDesignerMenu to True 74 End_Object 75 76 Object oFindFirstMenu is a cCJFindFirstMenuItem 77 Set pbAddToDesignerMenu to True 78 End_Object 79 80 Object oFindLastMenu is a cCJFindLastMenuItem 81 Set pbAddToDesignerMenu to True 82 End_Object 83 84 Object oSaveMenuItem is a cCJSaveMenuItem 85 Set pbAddToDesignerMenu to True 86 Set pbControlBeginGroup to True 87 End_Object 88 89 Object oDeleteMenuItem is a cCJDeleteMenuItem 90 Set pbAddToDesignerMenu to True 91 End_Object 92 93 Object oExitMenu is a cCJExitMenuItem 94 Set pbControlBeginGroup to True 95 End_Object 96 97 End_Object 98 99 Object oViewMenu is a cCJMenuItem 100 101 Set peControlType to xtpControlPopup 102 Set psCaption to "&View" 103 Set psToolTip to "View" 104 Set psDescription to "Available Views" 105 106 Object oCustomerEntryViewMenuItem is a cCJMenuItem 107 Set psCaption to "Customer Entry View" 108 Set psShortcut to "Ctrl+1" 109 Set psDescription to "Add, edit and delete Customer data." 110 Set psToolTip to "Customer Entry View" 111 112 Procedure OnExecute Variant vCommandBarControl 113 Handle hoClient 114 Get Client_Id to hoClient 115 Send Activate_oCustomerView of hoClient 116 End_Procedure 117 End_Object 118 119 Object oInventoryItemViewMenuItem is a cCJMenuItem 120 Set psCaption to "Inventory Item View" 121 Set psShortcut to "Ctrl+2" 122 Set psDescription to "Add, edit and delete Inventory data." 123 Set psToolTip to "Inventory Item View" 124 125 Procedure OnExecute Variant vCommandBarControl 126 Handle hoClient 127 Get Client_Id to hoClient 128 Send Activate_oInventoryView of hoClient 129 End_Procedure 130 End_Object 131 132 Object oOrderEntryMenuItem is a cCJMenuItem 133 Set psCaption to "Order Entry" 134 Set psShortcut to "Ctrl+3" 135 Set psDescription to "Add, edit and delete Order data." 136 Set psToolTip to "Order Entry" 137 138 Procedure OnExecute Variant vCommandBarControl 139 Handle hoClient 140 Get Client_Id to hoClient 141 Send Activate_oOrderEntryView of hoClient 142 End_Procedure 143 End_Object 144 145 Object oSalesPersonEntryViewMenuItem is a cCJMenuItem 146 Set psCaption to "Sales Person Entry View" 147 Set psShortcut to "Ctrl+4" 148 Set psDescription to "Add, edit and delete Sales Person data." 149 Set psToolTip to "Sales Person Entry View" 150 151 Procedure OnExecute Variant vCommandBarControl 152 Handle hoClient 153 Get Client_Id to hoClient 154 Send Activate_oSalesPersonView of hoClient 155 End_Procedure 156 End_Object 157 158 Object oVendorEntryViewMenuItem is a cCJMenuItem 159 Set psCaption to "Vendor Entry View" 160 Set psShortcut to "Ctrl+5" 161 Set psDescription to "Add, edit and delete Vendor data." 162 Set psToolTip to "Vendor Entry View" 163 164 Procedure OnExecute Variant vCommandBarControl 165 Handle hoClient 166 Get Client_Id to hoClient 167 Send Activate_oVendorView of hoClient 168 End_Procedure 169 End_Object 170 171 End_Object 172 173 Object oReportMenu is a cCJMenuItem 174 175 Set peControlType to xtpControlPopup 176 Set psCaption to "&Report" 177 Set psToolTip to "Report" 178 Set psDescription to "Available Reports" 179 180 Object oBasicReportsMenuItem is a cCJMenuItem 181 Set psCaption to "Basic Reports" 182 Set peControlType to xtpControlPopup 183 Set psToolTip to "Basic Reports" 184 Set psDescription to "Reports based on the Basic Report class." 185 186 Object oCustomerListMenuItem is a cCJMenuItem 187 Set psCaption to "Customer List" 188 Set psToolTip to "Customer List (Basic)" 189 190 Procedure OnExecute Variant vCommandBarControl 191 Handle hoClient 192 Get Client_Id to hoClient 193 Send Activate_oCustomerListBR of hoClient 194 End_Procedure 195 End_Object 196 End_Object 197 198 Object oWinPrintReportsMenuItem is a cCJMenuItem 199 Set psCaption to "WinPrint Reports" 200 Set peControlType to xtpControlPopup 201 Set psToolTip to "WinPrint Reports" 202 Set psDescription to "Reports based on the WinPrint class." 203 204 Object oCustomerListMenuItem2 is a cCJMenuItem 205 Set psCaption to "Customer List" 206 Set psShortcut to "Ctrl+6" 207 Set psToolTip to "Customer List (WinPrint)" 208 Set psDescription to "Print Customer data." 209 210 Procedure OnExecute Variant vCommandBarControl 211 Handle hoClient 212 Get Client_Id to hoClient 213 Send Activate_oCustomerListWP of hoClient 214 End_Procedure 215 End_Object 216 217 Object oItemsperOrderMenuItem is a cCJMenuItem 218 Set psCaption to "Items per Order" 219 Set psShortcut to "Ctrl+7" 220 Set psToolTip to "Items per Order (WinPrint)" 221 Set psDescription to "Print line items for all Orders." 222 223 Procedure OnExecute Variant vCommandBarControl 224 Handle hoClient 225 Get Client_Id to hoClient 226 Send Activate_oItemsPerOrderWP of hoClient 227 End_Procedure 228 End_Object 229 230 Object oOrdersbyCustomerMenuItem1 is a cCJMenuItem 231 Set psCaption to "Orders by Customer" 232 Set psShortcut to "Ctrl+8" 233 Set psToolTip to "Orders by Customer (WinPrint)" 234 Set psDescription to "Print Order data sorted by Customer." 235 236 Procedure OnExecute Variant vCommandBarControl 237 Handle hoClient 238 Get Client_Id to hoClient 239 Send Activate_oOrdersByCustomerWP of hoClient 240 End_Procedure 241 End_Object 242 243 Object oOrdersbyOrderNumberMenuItem is a cCJMenuItem 244 Set psCaption to "Orders by Order Number" 245 Set psShortcut to "Ctrl+9" 246 Set psToolTip to "Orders by Order Number (WinPrint)" 247 Set psDescription to "Print Order data." 248 249 Procedure OnExecute Variant vCommandBarControl 250 Handle hoClient 251 Get Client_Id to hoClient 252 Send Activate_oOrdersWP of hoClient 253 End_Procedure 254 End_Object 255 End_Object 256 257 Object oCrystalReportsMenuItem is a cCJMenuItem 258 Set psCaption to "Crystal Reports" 259 Set peControlType to xtpControlPopup 260 261 Object oAddressLabelsMenuItem is a cCJMenuItem 262 Set psCaption to "Address Labels" 263 Set psToolTip to "Address Labels (Crystal)" 264 Set psDescription to "Print address labels for Customers or Vendors." 265 266 Procedure OnExecute Variant vCommandBarControl 267 Handle hoClient 268 Get Client_Id to hoClient 269 Send Activate_oAddressLabelsCR of hoClient 270 End_Procedure 271 End_Object 272 273 Object oCustomerListMenuItem1 is a cCJMenuItem 274 Set psCaption to "Customer List" 275 Set psToolTip to "Customer List (Crystal)" 276 Set psDescription to "Print or export Customer data." 277 278 Procedure OnExecute Variant vCommandBarControl 279 Handle hoClient 280 Get Client_Id to hoClient 281 Send Activate_oCustomerListCR of hoClient 282 End_Procedure 283 End_Object 284 285 Object oOrdersbyCustomerMenuItem is a cCJMenuItem 286 Set psCaption to "Orders by Customer" 287 Set psToolTip to "Orders by Customer (Crystal)" 288 Set psDescription to "Print Order data sorted by Customer." 289 290 Procedure OnExecute Variant vCommandBarControl 291 Handle hoClient 292 Get Client_Id to hoClient 293 Send Activate_oOrdersByCustomerCR of hoClient 294 End_Procedure 295 End_Object 296 297 Object oOrdersMenuItem is a cCJMenuItem 298 Set psCaption to "Orders" 299 Set psToolTip to "Orders (Crystal)" 300 Set psDescription to "Print Order data." 301 302 Procedure OnExecute Variant vCommandBarControl 303 Handle hoClient 304 Get Client_Id to hoClient 305 Send Activate_oOrdersCR of hoClient 306 End_Procedure 307 End_Object 308 309 Object oReportInformationMenuItem is a cCJMenuItem 310 Set psCaption to "Report Information" 311 Set psToolTip to "Report Information (Crystal)" 312 Set psDescription to "Select any Crystal Report and examine its structure.." 313 314 Procedure OnExecute Variant vCommandBarControl 315 Handle hoClient 316 Get Client_Id to hoClient 317 Send Activate_oReportInformationCR of hoClient 318 End_Procedure 319 End_Object 320 321 Object oCrystalReportsPreviewerMenuItem is a cCJMenuItem 322 Set psCaption to "Crystal Reports Previewer" 323 Set psToolTip to "Crystal Reports Previewer" 324 Set psDescription to "Select any Crystal Report to run in Preview." 325 326 Procedure OnExecute Variant vCommandBarControl 327 Handle hoClient 328 Get Client_Id to hoClient 329 Send Activate_oReportPreviewCR of hoClient 330 End_Procedure 331 End_Object 332 End_Object 333 334 End_Object 335 336 Object oNavigateMenu is a cCJMenuItem 337 Set peControlType to xtpControlPopup 338 Set psCaption to "&Navigate" 339 Set psTooltip to "Navigate" 340 Set psDescription to "Move to different areas of the application" 341 342 Object oNextAreaMenu is a cCJNextAreaMenu 343 End_Object 344 345 Object oPriorAreaMenu is a cCJPriorAreaMenu 346 End_Object 347 348 Object oNextViewMenu is a cCJNextViewMenu 349 End_Object 350 351 Object oPriorViewMenu is a cCJPriorViewMenu 352 End_Object 353 354 Object oPromptMenu is a cCJPromptMenuItem 355 Set pbControlBeginGroup to True 356 End_Object 357 358 Object oZoomMenu is a cCJZoomMenuItem 359 End_Object 360 361 End_Object 362 363 Object oWindowMenu is a cCJMDIWindowsMenuItem 364 Set peControlType to xtpControlPopup 365 Set psCaption to "&Window" 366 Set psToolTip to "Window" 367 Set psDescription to "Display Current Views and set other display options." 368 369 // These are the static windows items. More will be created in onInitPopup 370 Object oDisplayOptionsMenu is a cCJMenuItem 371 Set peControlType to xtpControlPopup 372 Set psCaption to "&Display Options" 373 Set psToolTip to "Display Options" 374 Set psDescription to "Set display options" 375 376 Object oStatusbarMenu is a cCJStatusbarMenuItem 377 End_Object 378 379 Object oAutoArrangeIconsMenu is a cCJAutoArrangeIconsMenuItem 380 End_Object 381 382 Object oRestoreMenusMenu is a cCJRestoreMenusMenuItem 383 Set pbControlBeginGroup to True 384 End_Object 385 386 End_Object 387 388 Object oCascadeMenu is a cCJCascadeMenuItem 389 Set pbControlBeginGroup to True 390 End_Object 391 392 Object oHorizTile is a cCJTileHorizontally 393 End_Object 394 395 Object oVertTile is a cCJTileVertically 396 End_Object 397 398 Object oMinimizeMenuItem is a cCJMinimizeWindowsMenuItem 399 Set pbControlBeginGroup to True 400 End_Object 401 402 Object oRestoreMenuItem is a cCJRestoreWindowsMenuItem 403 End_Object 404 405 Object oArrangeIconsMenuItem is a cCJAutoArrangeIconsMenuItem 406 Set pbControlBeginGroup to True 407 End_Object 408 409 End_Object 410 411 Object oHelpMenu is a cCJMenuItem 412 Set peControlType to xtpControlPopup 413 Set psCaption to "&Help" 414 Set psDescription to "Access Information for learning and using this DataFlex application." 415 Set psToolTip to "Help" 416 417 Object oHelpMenuItem is a cCJHelpMenuItem 418 End_Object 419 420 Object oAboutMenuItem is a cCJAboutMenuItem 421 End_Object 422 423 End_Object 424 425 End_Object 426 427 Object oFindToolBar is a cCJToolbar 428 Set psTitle to "Finding Toolbar" 429 430 Object oFindFirstTool is a cCJFindFirstMenuItem 431 End_Object 432 433 Object oFindPreviousTool is a cCJFindPreviousMenuItem 434 End_Object 435 436 Object oFindMenuTool is a cCJFindMenuItem 437 End_Object 438 439 Object oFindNextTool is a cCJFindNextMenuItem 440 End_Object 441 442 Object oFindLastTool is a cCJFindLastMenuItem 443 End_Object 444 445 Object oPromptToolItem is a cCJPromptMenuItem 446 Set pbControlBeginGroup to True 447 End_Object 448 449 End_Object 450 451 Object oFileToolBar is a cCJToolbar 452 Set psTitle to "Data Entry Toolbar" 453 454 Object oClearToolItem is a cCJClearMenuItem 455 Set peControlStyle to xtpButtonIconAndCaption 456 End_Object 457 458 Object oClearAllToolItem2 is a cCJClearAllMenuItem 459 Set peControlStyle to xtpButtonIconAndCaption 460 End_Object 461 462 Object oSaveToolItem is a cCJSaveMenuItem 463 Set peControlStyle to xtpButtonIconAndCaption 464 Set pbControlBeginGroup to True 465 End_Object 466 467 Object oDeleteToolItem is a cCJDeleteMenuItem 468 Set peControlStyle to xtpButtonIconAndCaption 469 End_Object 470 471 End_Object 472 473 Object oEditToolBar is a cCJToolbar 474 Set psTitle to "Edit Toolbar" 475 476 Object oCutToolbarItem is a cCJCutMenuItem 477 End_Object 478 479 Object oCopyToolbarItem is a cCJCopyMenuItem 480 End_Object 481 482 Object oPasteToolbarItem is a cCJPasteMenuItem 483 End_Object 484 485 Object oDeleteEditToolbarItem is a cCJDeleteEditMenuItem 486 Set pbControlBeginGroup to True 487 End_Object 488 489 End_Object 490 491 Object oStatusBar is a cCJStatusBar 492 493 Object oStatusPane1 is a cCJStatusBarPane 494 Set piID to sbpIDIdlePane 495 Set pbStyleStretch to True 496 End_Object 497 498 Object oStatusPane2 is a cCJStatusBarPane 499 Set phoViewPane to Self 500 Set pbStyleStretch to True 501 End_Object 502 503 End_Object 504 505 End_Object 506 507 Object oClientArea is a ClientArea 508 Use Customer.vw 509 Use Invt.vw 510 Use Order.vw 511 Use SalesP.vw 512 Use Vendor.vw 513 514 Use Basic\CustomerListBR.rv 515 Use Crystal\AddressLabelsCR.rv 516 Use Crystal\CustomerListCR.rv 517 Use Crystal\OrdersCR.rv 518 Use Crystal\OrdersByCustomerCR.rv 519 Use Crystal\ReportInformationCR.rv 520 Use Crystal\ReportPreviewCR.rv 521 Use WinPrint\CustomerListWP.rv 522 Use WinPrint\ItemsPerOrderWP.rv 523 Use WinPrint\OrdersWP.rv 524 Use WinPrint\OrdersByCustomerWP.rv 525 526 On_Key Key_Ctrl+Key_1 Send Activate_oCustomerView 527 On_Key Key_Ctrl+Key_2 Send Activate_oInventoryView 528 On_Key Key_Ctrl+Key_3 Send Activate_oOrderEntryView 529 On_Key Key_Ctrl+Key_4 Send Activate_oSalesPersonView 530 On_Key Key_Ctrl+Key_5 Send Activate_oVendorView 531 On_Key Key_Ctrl+Key_6 Send Activate_oCustomerListWP 532 On_Key Key_Ctrl+Key_7 Send Activate_oItemsPerOrderWP 533 On_Key Key_Ctrl+Key_8 Send Activate_oOrdersByCustomerWP 534 On_Key Key_Ctrl+Key_9 Send Activate_oOrdersWP 535 536 Use StdAbout.pkg 537 538 Procedure Activate_About 539 Send DoAbout "Order Entry Sample Application" "16.1.1.0" "Copyright (c) 2010 Data Access Corporation" "Data Access Worldwide" "" 540 End_Procedure 541 542 End_Object 543 544 545End_Object 546 547// open Order Entry view on application startup 548Send Activate_oOrderEntryView of (oClientArea(oMain)) 549Start_UI