w_check_ware.srw 1.2 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758
  1. $PBExportHeader$w_check_ware.srw
  2. forward
  3. global type w_check_ware from window
  4. end type
  5. type dw_1 from u_dw_rbtnfilter within w_check_ware
  6. end type
  7. end forward
  8. global type w_check_ware from window
  9. integer width = 2421
  10. integer height = 1267
  11. boolean titlebar = true
  12. string title = "Untitled"
  13. boolean controlmenu = true
  14. boolean minbox = true
  15. boolean maxbox = true
  16. boolean resizable = true
  17. long backcolor = 67108864
  18. string icon = "AppIcon!"
  19. boolean center = true
  20. dw_1 dw_1
  21. end type
  22. global w_check_ware w_check_ware
  23. type variables
  24. s_edit_index_tran s_tran
  25. long ins_scid,ins_outwareid
  26. end variables
  27. on w_check_ware.create
  28. this.dw_1=create dw_1
  29. this.Control[]={this.dw_1}
  30. end on
  31. on w_check_ware.destroy
  32. destroy(this.dw_1)
  33. end on
  34. event open;s_tran = Message.PowerObjectParm
  35. ins_scid = s_tran.c_long
  36. ins_outwareid = s_tran.d_long
  37. dw_1.SetTransObject (sqlca)
  38. dw_1.retrieve(ins_scid,ins_outwareid)
  39. end event
  40. type dw_1 from u_dw_rbtnfilter within w_check_ware
  41. integer x = 7
  42. integer y = 10
  43. integer width = 2366
  44. integer height = 1149
  45. string dataobject = "dw_outware_check_ware"
  46. boolean hscrollbar = true
  47. boolean vscrollbar = true
  48. boolean hsplitscroll = true
  49. boolean rbutton_filter_use = true
  50. end type