uo_taskdamt_ew.sru 2.6 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091
  1. $PBExportHeader$uo_taskdamt_ew.sru
  2. forward
  3. global type uo_taskdamt_ew from uo_taskdamt_spi
  4. end type
  5. end forward
  6. global type uo_taskdamt_ew from uo_taskdamt_spi
  7. end type
  8. global uo_taskdamt_ew uo_taskdamt_ew
  9. forward prototypes
  10. public function integer uf_save (s_eb_cusamt s_import[], ref string arg_msg, boolean ifcommit)
  11. end prototypes
  12. public function integer uf_save (s_eb_cusamt s_import[], ref string arg_msg, boolean ifcommit);Int rslt = 1
  13. // TODO: 企精灵没有订单收款单
  14. //Long i, j, k
  15. //s_taskdamt l_s_amt[]
  16. //uo_taskdamt uo_ware
  17. //uo_ware = Create uo_taskdamt
  18. //
  19. //FOR i = 1 To UpperBound(s_import)
  20. // FOR j = 1 To UpperBound(l_s_amt)
  21. // IF l_s_amt[j].scid = s_import[i].scid &
  22. // And l_s_amt[j].cussptid = s_import[i].cusid &
  23. // And l_s_amt[j].part = s_import[i].part &
  24. // And l_s_amt[j].billdate = s_import[i].billdate &
  25. // And l_s_amt[j].assign_emp = s_import[i].assign_emp &
  26. // And l_s_amt[j].dscrp = s_import[i].dscrp THEN EXIT
  27. // NEXT
  28. //
  29. // IF j > UpperBound(l_s_amt) THEN
  30. // l_s_amt[j].billid = 0
  31. // l_s_amt[j].scid = s_import[i].scid
  32. // l_s_amt[j].cussptid = s_import[i].cusid
  33. // l_s_amt[j].part = s_import[i].part
  34. // l_s_amt[j].billdate = s_import[i].billdate
  35. // l_s_amt[j].assign_emp = s_import[i].assign_emp
  36. // l_s_amt[j].dscrp = s_import[i].dscrp
  37. // END IF
  38. //
  39. // k = UpperBound(l_s_amt[j].arg_s_mx) + 1
  40. // l_s_amt[j].arg_s_mx[k].scid = l_s_amt[j].scid
  41. // l_s_amt[j].arg_s_mx[k].billid = l_s_amt[j].billid
  42. // l_s_amt[j].arg_s_mx[k].printid = k
  43. // l_s_amt[j].arg_s_mx[k].relid = s_import[i].relid
  44. // l_s_amt[j].arg_s_mx[k].reltaskcode = s_import[i].reltaskcode
  45. // l_s_amt[j].arg_s_mx[k].damt = s_import[i].damt
  46. // l_s_amt[j].arg_s_mx[k].dscrp = s_import[i].mxdscrp
  47. // l_s_amt[j].arg_s_mx[k].accountsid = s_import[i].accountsid
  48. // l_s_amt[j].arg_s_mx[k].billamt = s_import[i].billamt
  49. // l_s_amt[j].arg_s_mx[k].itemid = s_import[i].itemid
  50. // l_s_amt[j].arg_s_mx[k].takeamt = s_import[i].takeamt
  51. // l_s_amt[j].arg_s_mx[k].reltakeamt = s_import[i].reltakeamt
  52. // l_s_amt[j].arg_s_mx[k].realmoneyid = s_import[i].realmoneyid
  53. // l_s_amt[j].arg_s_mx[k].realrate = s_import[i].realrate
  54. // l_s_amt[j].arg_s_mx[k].billtype = s_import[i].billtype
  55. // l_s_amt[j].arg_s_mx[k].banktypeid = s_import[i].banktypeid
  56. // l_s_amt[j].arg_s_mx[k].reldamt = s_import[i].reldamt
  57. //NEXT
  58. //
  59. //FOR i = 1 To UpperBound(l_s_amt)
  60. // IF uo_ware.Save(l_s_amt[i],arg_msg,False) <> 1 THEN
  61. // rslt = 0
  62. // GOTO ext
  63. // END IF
  64. //NEXT
  65. //
  66. //ext:
  67. //Destroy uo_ware
  68. IF ifcommit THEN
  69. IF rslt = 1 THEN
  70. COMMIT;
  71. ELSE
  72. ROLLBACK;
  73. END IF
  74. END IF
  75. RETURN rslt
  76. end function
  77. on uo_taskdamt_ew.create
  78. call super::create
  79. end on
  80. on uo_taskdamt_ew.destroy
  81. call super::destroy
  82. end on