Inicio Explorar Ayuda
Iniciar sesión
Neil
/
Q5
1
0
Fork 0
Archivos Incidencias 0 Pull Requests 0 Wiki
Árbol: 3c03c1be77
Ramas Etiquetas
Q5
/
ws_objects
/
longjoe_report_uo.pbl.src
/
f_retrieve_dw.srf

f_retrieve_dw.srf 1.9 KB
Histórico Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657 
  1. $PBExportHeader$f_retrieve_dw.srf
    2. 

  2. global type f_retrieve_dw from function_object
    3. 

  3. end type
    4. 

  4. 

  5. forward prototypes
    6. 

  6. global function integer f_retrieve_dw (datawindow arg_dw, s_rpt_print_msg arg_print_msg)
    7. 

  7. end prototypes
    8. 

  8. 

  9. global function integer f_retrieve_dw (datawindow arg_dw, s_rpt_print_msg arg_print_msg);//dw_retrieve
    10. 

  10. Int i = 0
    11. 

  11. 

  12. CHOOSE CASE arg_print_msg.retr_pram_falg
    13. 

  13. 	CASE -1
    14. 

  14. 		arg_dw.Retrieve()
    15. 

  15. 	CASE 0 //SHARE DATAWINDOW
    16. 

  16. 		DATAWINDOW LS_DW
    17. 

  17. 		LS_DW = arg_print_msg.SHARE_DW
    18. 

  18. 		LS_DW.ShareData(arg_dw)
    19. 

  19. 	CASE 1 //ONE STRING PRAM
    20. 

  20. 		arg_dw.Retrieve(arg_print_msg.retr_pramstr)
    21. 

  21. 	CASE 2 //ONE NUMBER PRAM
    22. 

  22. 		arg_dw.Retrieve(arg_print_msg.retr_pramnmb)
    23. 

  23. 		//retrieveid = arg_print_msg.retr_pramnmb
    24. 

  24. 	CASE 3 //ONE DATE PRAM
    25. 

  25. 		arg_dw.Retrieve(arg_print_msg.retr_pramfd)
    26. 

  26. 	CASE 4 //TWO DATE PRAM
    27. 

  27. 		arg_dw.Retrieve(arg_print_msg.retr_pramfd,arg_print_msg.retr_pramed)
    28. 

  28. 	CASE 5 //TWO NUMBER PRAM
    29. 

  29. 		arg_dw.Retrieve(arg_print_msg.retr_pramnmb,arg_print_msg.b_long)
    30. 

  30. 	CASE 6 //TWO DATETIME PRAM
    31. 

  31. 		arg_dw.Retrieve(arg_print_msg.retr_pramfdt,arg_print_msg.retr_pramedt)
    32. 

  32. 	CASE 11 //scid string
    33. 

  33. 		arg_dw.Retrieve(arg_print_msg.retr_scid,arg_print_msg.retr_pramstr)
    34. 

  34. 	CASE 12 //scid long
    35. 

  35. 		arg_dw.Retrieve(arg_print_msg.retr_scid,arg_print_msg.retr_pramnmb)
    36. 

  36. 	CASE 13 //scid long and TWO NUMBER PRAM
    37. 

  37. 		arg_dw.Retrieve(arg_print_msg.retr_scid,arg_print_msg.retr_pramnmb,arg_print_msg.b_long)
    38. 

  38. 	CASE 14 //ONE NUMBER PRAM and ONE STRING PRAM
    39. 

  39. 		arg_dw.Retrieve(arg_print_msg.retr_pramnmb,arg_print_msg.retr_pramstr)
    40. 

  40. 	CASE 15 //scid long and TWO NUMBER PRAM and null_row
    41. 

  41. 		i = 1
    42. 

  42. 		DO WHILE arg_print_msg.printrow * i < arg_print_msg.rowcnt
    43. 

  43. 			i++
    44. 

  44. 		LOOP
    45. 

  45. 		arg_print_msg.nullrow = arg_print_msg.printrow * i - arg_print_msg.rowcnt
    46. 

  46. 		arg_dw.Retrieve(arg_print_msg.retr_scid,arg_print_msg.retr_pramnmb,arg_print_msg.printrow,arg_print_msg.nullrow)
    47. 

  47. 	CASE ELSE
    48. 

  48. 		arg_dw.Retrieve()
    49. 

  49. END CHOOSE
    50. 

  50. IF arg_print_msg.retr_pram_falg <> 0 THEN
    51. 

  51. 	arg_dw.SetFilter(arg_print_msg.FILTER_STRING)
    52. 

  52. 	arg_dw.Filter()
    53. 

  53. END IF
    54. 

  54. 

  55. RETURN 0
    56. 

  56. end function
    57. 

  57.