API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Feb 1st, 2018
161
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualFoxPro 3.64 KB | None | 0 0
raw download clone embed print report
  1. **********************************************************************************************
  2. *  FORMULA EXAMPLE:
  3. *  CHANGE THE VALUE OF THE KEYFIGURE ZQUANTITY OF PRODUCT11
  4. *  TO THE VALUE OF ZQUANTITY OF PRODUCT09 TIMES 1.1
  5. *  ASSUMPTION FOR FIELDS TO BE CHANGED: ZPRODUCT
  6. *                  ==> OPERAND: {NAME OF KEYFIGURE, ZPRODUCT}
  7. **********************************************************************************************
  8. *   DATA L_FACTOR TYPE F.
  9. *   L_FACTOR = 1.1.
  10. *   { ZQUANTITY, PRODUCT11 } = { ZQUANTITY, PRODUCT09 } * L_FACTOR.
  11. **********************************************************************************************
  12.  
  13. DATA ULK TYPE 0COUNTRY.
  14. DATA MUS TYPE 0CUSTOMER.
  15. DATA DK TYPE  0DISTR_CHAN.
  16. DATA SBT TYPE 0DOC_TYPE.
  17. DATA KD2 TYPE 0FISCPER3.
  18. DATA MY TYPE 0FISCYEAR.
  19. DATA MY2 TYPE 0FISCYEAR.
  20. DATA MLG TYPE 0MATL_GROUP.
  21. DATA MLT TYPE 0MATL_TYPE.
  22. DATA UN TYPE 0UNIT.
  23. DATA VERS  TYPE 0VERSION.
  24. DATA BUT TYPE ZBUTCENO.
  25. DATA FDON TYPE 0FISCPER3.
  26. DATA FDON3 TYPE 0FISCPER3.
  27. DATA FDON2 TYPE I.
  28. DATA PB TYPE 0CURRENCY.
  29. DATA MYD0 TYPE 0FISCPER.
  30. DATA MYD02 TYPE 0FISCPER.
  31. DATA MYD1 TYPE 0FISCPER.
  32. DATA MYD12 TYPE 0FISCPER.
  33. DATA COMP TYPE 0COMP_CODE.
  34. DATA MTAL TYPE 0SHIP_TO.
  35.  
  36. BREAK-POINT.
  37. FOREACH COMP.
  38. IF COMP <> #.
  39. VERS = VARV(ZBIPVERSION).
  40. MY = VARV(ZBIPYIL).
  41. BUT = VARV(ZBIPBUTCE).
  42. FDON = VARV(ZKAYDON4).
  43. FDON2 = 1.
  44. FDON3 = 001.
  45. BREAK-POINT.
  46. DO.
  47. IF FDON > FDON3.
  48. FDON2 = FDON2 + 1.
  49. FDON3 = FDON3 + 001.
  50. ELSE.
  51. EXIT.
  52. ENDIF.
  53. ENDDO.
  54.  
  55. BREAK-POINT.
  56. MY2 = VARV(ZBIPYIL2).
  57.  
  58. FOREACH ULK,MUS, MTAL,DK,SBT,KD2,MLG,MLT,UN,PB.
  59.  
  60.  
  61. IF KD2 <= FDON.
  62. MYD0 = CONCAT( MY, 000 ).
  63. MYD02 = CONCAT( MY2, 000 ).
  64. MYD1 = CONCAT( MY, KD2 ).
  65. MYD12 = CONCAT( MY2, KD2 ).
  66. IF {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} <> 0.
  67. IF COMP = '2500'.
  68. PB = 'USD'.
  69. ENDIF.
  70. IF MLT = 'ZTIC'.
  71. * ZTIC malzem türlerinin satışları 00 Kayıt türüne atılıyor.
  72. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,00} =
  73. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  74. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  75. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  76. ELSE.
  77. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,01} =
  78. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  79. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  80. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  81. ENDIF.
  82. ENDIF.
  83. *ELSE.
  84. *IF  {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} <> 0.
  85.  
  86. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,KD2,K4,MY,ZSD03_BIP,MLG,MLT,UN,VERS,BUT,01} =
  87. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,#,K4,MY2,ZSD_C03_3,MLG,MLT,UN,000,1000,#} *
  88. *( {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} / 12 * FDON2 ) /
  89. *{ZSATMIK,COMP,ULK,#,MUS,#,#,#,K4,MY2,ZSD_C03_2,#,#,UN,#,#,#} .
  90. *ENDIF.
  91. ENDIF.
  92.  
  93.  
  94.  
  95. ENDFOR.
  96. ENDIF.
  97. ENDFO
  98. *  FORMULA EXAMPLE:
  99. *  CHANGE THE VALUE OF THE KEYFIGURE ZQUANTITY OF PRODUCT11
  100. *  TO THE VALUE OF ZQUANTITY OF PRODUCT09 TIMES 1.1
  101. *  ASSUMPTION FOR FIELDS TO BE CHANGED: ZPRODUCT
  102. *                  ==> OPERAND: {NAME OF KEYFIGURE, ZPRODUCT}
  103. **********************************************************************************************
  104. *   DATA L_FACTOR TYPE F.
  105. *   L_FACTOR = 1.1.
  106. *   { ZQUANTITY, PRODUCT11 } = { ZQUANTITY, PRODUCT09 } * L_FACTOR.
  107. **********************************************************************************************
  108.  
  109. DATA ULK TYPE 0COUNTRY.
  110. DATA MUS TYPE 0CUSTOMER.
  111. DATA DK TYPE  0DISTR_CHAN.
  112. DATA SBT TYPE 0DOC_TYPE.
  113. DATA KD2 TYPE 0FISCPER3.
  114. DATA MY TYPE 0FISCYEAR.
  115. DATA MY2 TYPE 0FISCYEAR.
  116. DATA MLG TYPE 0MATL_GROUP.
  117. DATA MLT TYPE 0MATL_TYPE.
  118. DATA UN TYPE 0UNIT.
  119. DATA VERS  TYPE 0VERSION.
  120. DATA BUT TYPE ZBUTCENO.
  121. DATA FDON TYPE 0FISCPER3.
  122. DATA FDON3 TYPE 0FISCPER3.
  123. DATA FDON2 TYPE I.
  124. DATA PB TYPE 0CURRENCY.
  125. DATA MYD0 TYPE 0FISCPER.
  126. DATA MYD02 TYPE 0FISCPER.
  127. DATA MYD1 TYPE 0FISCPER.
  128. DATA MYD12 TYPE 0FISCPER.
  129. DATA COMP TYPE 0COMP_CODE.
  130. DATA MTAL TYPE 0SHIP_TO.
  131.  
  132. BREAK-POINT.
  133. FOREACH COMP.
  134. IF COMP <> #.
  135. VERS = VARV(ZBIPVERSION).
  136. MY = VARV(ZBIPYIL).
  137. BUT = VARV(ZBIPBUTCE).
  138. FDON = VARV(ZKAYDON4).
  139. FDON2 = 1.
  140. FDON3 = 001.
  141. BREAK-POINT.
  142. DO.
  143. IF FDON > FDON3.
  144. FDON2 = FDON2 + 1.
  145. FDON3 = FDON3 + 001.
  146. ELSE.
  147. EXIT.
  148. ENDIF.
  149. ENDDO.
  150.  
  151. BREAK-POINT.
  152. MY2 = VARV(ZBIPYIL2).
  153.  
  154. FOREACH ULK,MUS, MTAL,DK,SBT,KD2,MLG,MLT,UN,PB.
  155.  
  156.  
  157. IF KD2 <= FDON.
  158. MYD0 = CONCAT( MY, 000 ).
  159. MYD02 = CONCAT( MY2, 000 ).
  160. MYD1 = CONCAT( MY, KD2 ).
  161. MYD12 = CONCAT( MY2, KD2 ).
  162. IF {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} <> 0.
  163. IF COMP = '2500'.
  164. PB = 'USD'.
  165. ENDIF.
  166. IF MLT = 'ZTIC'.
  167. * ZTIC malzem türlerinin satışları 00 Kayıt türüne atılıyor.
  168. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,00} =
  169. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  170. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  171. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  172. ELSE.
  173. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,01} =
  174. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  175. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  176. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  177. ENDIF.
  178. ENDIF.
  179. *ELSE.
  180. *IF  {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} <> 0.
  181.  
  182. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,KD2,K4,MY,ZSD03_BIP,MLG,MLT,UN,VERS,BUT,01} =
  183. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,#,K4,MY2,ZSD_C03_3,MLG,MLT,UN,000,1000,#} *
  184. *( {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} / 12 * FDON2 ) /
  185. *{ZSATMIK,COMP,ULK,#,MUS,#,#,#,K4,MY2,ZSD_C03_2,#,#,UN,#,#,#} .
  186. *ENDIF.
  187. ENDIF.
  188.  
  189.  
  190.  
  191. ENDFOR.
  192. ENDIF.
  193. ENDFO
  194. *  CHANGE THE VALUE OF THE KEYFIGURE ZQUANTITY OF PRODUCT11
  195. *  TO THE VALUE OF ZQUANTITY OF PRODUCT09 TIMES 1.1
  196. *  ASSUMPTION FOR FIELDS TO BE CHANGED: ZPRODUCT
  197. *                  ==> OPERAND: {NAME OF KEYFIGURE, ZPRODUCT}
  198. **********************************************************************************************
  199. *   DATA L_FACTOR TYPE F.
  200. *   L_FACTOR = 1.1.
  201. *   { ZQUANTITY, PRODUCT11 } = { ZQUANTITY, PRODUCT09 } * L_FACTOR.
  202. **********************************************************************************************
  203.  
  204. DATA ULK TYPE 0COUNTRY.
  205. DATA MUS TYPE 0CUSTOMER.
  206. DATA DK TYPE  0DISTR_CHAN.
  207. DATA SBT TYPE 0DOC_TYPE.
  208. DATA KD2 TYPE 0FISCPER3.
  209. DATA MY TYPE 0FISCYEAR.
  210. DATA MY2 TYPE 0FISCYEAR.
  211. DATA MLG TYPE 0MATL_GROUP.
  212. DATA MLT TYPE 0MATL_TYPE.
  213. DATA UN TYPE 0UNIT.
  214. DATA VERS  TYPE 0VERSION.
  215. DATA BUT TYPE ZBUTCENO.
  216. DATA FDON TYPE 0FISCPER3.
  217. DATA FDON3 TYPE 0FISCPER3.
  218. DATA FDON2 TYPE I.
  219. DATA PB TYPE 0CURRENCY.
  220. DATA MYD0 TYPE 0FISCPER.
  221. DATA MYD02 TYPE 0FISCPER.
  222. DATA MYD1 TYPE 0FISCPER.
  223. DATA MYD12 TYPE 0FISCPER.
  224. DATA COMP TYPE 0COMP_CODE.
  225. DATA MTAL TYPE 0SHIP_TO.
  226.  
  227. BREAK-POINT.
  228. FOREACH COMP.
  229. IF COMP <> #.
  230. VERS = VARV(ZBIPVERSION).
  231. MY = VARV(ZBIPYIL).
  232. BUT = VARV(ZBIPBUTCE).
  233. FDON = VARV(ZKAYDON4).
  234. FDON2 = 1.
  235. FDON3 = 001.
  236. BREAK-POINT.
  237. DO.
  238. IF FDON > FDON3.
  239. FDON2 = FDON2 + 1.
  240. FDON3 = FDON3 + 001.
  241. ELSE.
  242. EXIT.
  243. ENDIF.
  244. ENDDO.
  245.  
  246. BREAK-POINT.
  247. MY2 = VARV(ZBIPYIL2).
  248.  
  249. FOREACH ULK,MUS, MTAL,DK,SBT,KD2,MLG,MLT,UN,PB.
  250.  
  251.  
  252. IF KD2 <= FDON.
  253. MYD0 = CONCAT( MY, 000 ).
  254. MYD02 = CONCAT( MY2, 000 ).
  255. MYD1 = CONCAT( MY, KD2 ).
  256. MYD12 = CONCAT( MY2, KD2 ).
  257. IF {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} <> 0.
  258. IF COMP = '2500'.
  259. PB = 'USD'.
  260. ENDIF.
  261. IF MLT = 'ZTIC'.
  262. * ZTIC malzem türlerinin satışları 00 Kayıt türüne atılıyor.
  263. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,00} =
  264. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  265. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  266. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  267. ELSE.
  268. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,01} =
  269. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  270. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  271. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  272. ENDIF.
  273. ENDIF.
  274. *ELSE.
  275. *IF  {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} <> 0.
  276.  
  277. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,KD2,K4,MY,ZSD03_BIP,MLG,MLT,UN,VERS,BUT,01} =
  278. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,#,K4,MY2,ZSD_C03_3,MLG,MLT,UN,000,1000,#} *
  279. *( {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} / 12 * FDON2 ) /
  280. *{ZSATMIK,COMP,ULK,#,MUS,#,#,#,K4,MY2,ZSD_C03_2,#,#,UN,#,#,#} .
  281. *ENDIF.
  282. ENDIF.
  283.  
  284.  
  285.  
  286. ENDFOR.
  287. ENDIF.
  288. ENDFO
  289. *  TO THE VALUE OF ZQUANTITY OF PRODUCT09 TIMES 1.1
  290. *  ASSUMPTION FOR FIELDS TO BE CHANGED: ZPRODUCT
  291. *                  ==> OPERAND: {NAME OF KEYFIGURE, ZPRODUCT}
  292. **********************************************************************************************
  293. *   DATA L_FACTOR TYPE F.
  294. *   L_FACTOR = 1.1.
  295. *   { ZQUANTITY, PRODUCT11 } = { ZQUANTITY, PRODUCT09 } * L_FACTOR.
  296. **********************************************************************************************
  297.  
  298. DATA ULK TYPE 0COUNTRY.
  299. DATA MUS TYPE 0CUSTOMER.
  300. DATA DK TYPE  0DISTR_CHAN.
  301. DATA SBT TYPE 0DOC_TYPE.
  302. DATA KD2 TYPE 0FISCPER3.
  303. DATA MY TYPE 0FISCYEAR.
  304. DATA MY2 TYPE 0FISCYEAR.
  305. DATA MLG TYPE 0MATL_GROUP.
  306. DATA MLT TYPE 0MATL_TYPE.
  307. DATA UN TYPE 0UNIT.
  308. DATA VERS  TYPE 0VERSION.
  309. DATA BUT TYPE ZBUTCENO.
  310. DATA FDON TYPE 0FISCPER3.
  311. DATA FDON3 TYPE 0FISCPER3.
  312. DATA FDON2 TYPE I.
  313. DATA PB TYPE 0CURRENCY.
  314. DATA MYD0 TYPE 0FISCPER.
  315. DATA MYD02 TYPE 0FISCPER.
  316. DATA MYD1 TYPE 0FISCPER.
  317. DATA MYD12 TYPE 0FISCPER.
  318. DATA COMP TYPE 0COMP_CODE.
  319. DATA MTAL TYPE 0SHIP_TO.
  320.  
  321. BREAK-POINT.
  322. FOREACH COMP.
  323. IF COMP <> #.
  324. VERS = VARV(ZBIPVERSION).
  325. MY = VARV(ZBIPYIL).
  326. BUT = VARV(ZBIPBUTCE).
  327. FDON = VARV(ZKAYDON4).
  328. FDON2 = 1.
  329. FDON3 = 001.
  330. BREAK-POINT.
  331. DO.
  332. IF FDON > FDON3.
  333. FDON2 = FDON2 + 1.
  334. FDON3 = FDON3 + 001.
  335. ELSE.
  336. EXIT.
  337. ENDIF.
  338. ENDDO.
  339.  
  340. BREAK-POINT.
  341. MY2 = VARV(ZBIPYIL2).
  342.  
  343. FOREACH ULK,MUS, MTAL,DK,SBT,KD2,MLG,MLT,UN,PB.
  344.  
  345.  
  346. IF KD2 <= FDON.
  347. MYD0 = CONCAT( MY, 000 ).
  348. MYD02 = CONCAT( MY2, 000 ).
  349. MYD1 = CONCAT( MY, KD2 ).
  350. MYD12 = CONCAT( MY2, KD2 ).
  351. IF {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} <> 0.
  352. IF COMP = '2500'.
  353. PB = 'USD'.
  354. ENDIF.
  355. IF MLT = 'ZTIC'.
  356. * ZTIC malzem türlerinin satışları 00 Kayıt türüne atılıyor.
  357. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,00} =
  358. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  359. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  360. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  361. ELSE.
  362. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,01} =
  363. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  364. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  365. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  366. ENDIF.
  367. ENDIF.
  368. *ELSE.
  369. *IF  {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} <> 0.
  370.  
  371. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,KD2,K4,MY,ZSD03_BIP,MLG,MLT,UN,VERS,BUT,01} =
  372. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,#,K4,MY2,ZSD_C03_3,MLG,MLT,UN,000,1000,#} *
  373. *( {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} / 12 * FDON2 ) /
  374. *{ZSATMIK,COMP,ULK,#,MUS,#,#,#,K4,MY2,ZSD_C03_2,#,#,UN,#,#,#} .
  375. *ENDIF.
  376. ENDIF.
  377.  
  378.  
  379.  
  380. ENDFOR.
  381. ENDIF.
  382. ENDFO
  383. *  ASSUMPTION FOR FIELDS TO BE CHANGED: ZPRODUCT
  384. *                  ==> OPERAND: {NAME OF KEYFIGURE, ZPRODUCT}
  385. **********************************************************************************************
  386. *   DATA L_FACTOR TYPE F.
  387. *   L_FACTOR = 1.1.
  388. *   { ZQUANTITY, PRODUCT11 } = { ZQUANTITY, PRODUCT09 } * L_FACTOR.
  389. **********************************************************************************************
  390.  
  391. DATA ULK TYPE 0COUNTRY.
  392. DATA MUS TYPE 0CUSTOMER.
  393. DATA DK TYPE  0DISTR_CHAN.
  394. DATA SBT TYPE 0DOC_TYPE.
  395. DATA KD2 TYPE 0FISCPER3.
  396. DATA MY TYPE 0FISCYEAR.
  397. DATA MY2 TYPE 0FISCYEAR.
  398. DATA MLG TYPE 0MATL_GROUP.
  399. DATA MLT TYPE 0MATL_TYPE.
  400. DATA UN TYPE 0UNIT.
  401. DATA VERS  TYPE 0VERSION.
  402. DATA BUT TYPE ZBUTCENO.
  403. DATA FDON TYPE 0FISCPER3.
  404. DATA FDON3 TYPE 0FISCPER3.
  405. DATA FDON2 TYPE I.
  406. DATA PB TYPE 0CURRENCY.
  407. DATA MYD0 TYPE 0FISCPER.
  408. DATA MYD02 TYPE 0FISCPER.
  409. DATA MYD1 TYPE 0FISCPER.
  410. DATA MYD12 TYPE 0FISCPER.
  411. DATA COMP TYPE 0COMP_CODE.
  412. DATA MTAL TYPE 0SHIP_TO.
  413.  
  414. BREAK-POINT.
  415. FOREACH COMP.
  416. IF COMP <> #.
  417. VERS = VARV(ZBIPVERSION).
  418. MY = VARV(ZBIPYIL).
  419. BUT = VARV(ZBIPBUTCE).
  420. FDON = VARV(ZKAYDON4).
  421. FDON2 = 1.
  422. FDON3 = 001.
  423. BREAK-POINT.
  424. DO.
  425. IF FDON > FDON3.
  426. FDON2 = FDON2 + 1.
  427. FDON3 = FDON3 + 001.
  428. ELSE.
  429. EXIT.
  430. ENDIF.
  431. ENDDO.
  432.  
  433. BREAK-POINT.
  434. MY2 = VARV(ZBIPYIL2).
  435.  
  436. FOREACH ULK,MUS, MTAL,DK,SBT,KD2,MLG,MLT,UN,PB.
  437.  
  438.  
  439. IF KD2 <= FDON.
  440. MYD0 = CONCAT( MY, 000 ).
  441. MYD02 = CONCAT( MY2, 000 ).
  442. MYD1 = CONCAT( MY, KD2 ).
  443. MYD12 = CONCAT( MY2, KD2 ).
  444. IF {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} <> 0.
  445. IF COMP = '2500'.
  446. PB = 'USD'.
  447. ENDIF.
  448. IF MLT = 'ZTIC'.
  449. * ZTIC malzem türlerinin satışları 00 Kayıt türüne atılıyor.
  450. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,00} =
  451. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  452. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  453. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  454. ELSE.
  455. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,01} =
  456. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  457. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  458. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  459. ENDIF.
  460. ENDIF.
  461. *ELSE.
  462. *IF  {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} <> 0.
  463.  
  464. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,KD2,K4,MY,ZSD03_BIP,MLG,MLT,UN,VERS,BUT,01} =
  465. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,#,K4,MY2,ZSD_C03_3,MLG,MLT,UN,000,1000,#} *
  466. *( {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} / 12 * FDON2 ) /
  467. *{ZSATMIK,COMP,ULK,#,MUS,#,#,#,K4,MY2,ZSD_C03_2,#,#,UN,#,#,#} .
  468. *ENDIF.
  469. ENDIF.
  470.  
  471.  
  472.  
  473. ENDFOR.
  474. ENDIF.
  475. ENDFO
  476. *                  ==> OPERAND: {NAME OF KEYFIGURE, ZPRODUCT}
  477. **********************************************************************************************
  478. *   DATA L_FACTOR TYPE F.
  479. *   L_FACTOR = 1.1.
  480. *   { ZQUANTITY, PRODUCT11 } = { ZQUANTITY, PRODUCT09 } * L_FACTOR.
  481. **********************************************************************************************
  482.  
  483. DATA ULK TYPE 0COUNTRY.
  484. DATA MUS TYPE 0CUSTOMER.
  485. DATA DK TYPE  0DISTR_CHAN.
  486. DATA SBT TYPE 0DOC_TYPE.
  487. DATA KD2 TYPE 0FISCPER3.
  488. DATA MY TYPE 0FISCYEAR.
  489. DATA MY2 TYPE 0FISCYEAR.
  490. DATA MLG TYPE 0MATL_GROUP.
  491. DATA MLT TYPE 0MATL_TYPE.
  492. DATA UN TYPE 0UNIT.
  493. DATA VERS  TYPE 0VERSION.
  494. DATA BUT TYPE ZBUTCENO.
  495. DATA FDON TYPE 0FISCPER3.
  496. DATA FDON3 TYPE 0FISCPER3.
  497. DATA FDON2 TYPE I.
  498. DATA PB TYPE 0CURRENCY.
  499. DATA MYD0 TYPE 0FISCPER.
  500. DATA MYD02 TYPE 0FISCPER.
  501. DATA MYD1 TYPE 0FISCPER.
  502. DATA MYD12 TYPE 0FISCPER.
  503. DATA COMP TYPE 0COMP_CODE.
  504. DATA MTAL TYPE 0SHIP_TO.
  505.  
  506. BREAK-POINT.
  507. FOREACH COMP.
  508. IF COMP <> #.
  509. VERS = VARV(ZBIPVERSION).
  510. MY = VARV(ZBIPYIL).
  511. BUT = VARV(ZBIPBUTCE).
  512. FDON = VARV(ZKAYDON4).
  513. FDON2 = 1.
  514. FDON3 = 001.
  515. BREAK-POINT.
  516. DO.
  517. IF FDON > FDON3.
  518. FDON2 = FDON2 + 1.
  519. FDON3 = FDON3 + 001.
  520. ELSE.
  521. EXIT.
  522. ENDIF.
  523. ENDDO.
  524.  
  525. BREAK-POINT.
  526. MY2 = VARV(ZBIPYIL2).
  527.  
  528. FOREACH ULK,MUS, MTAL,DK,SBT,KD2,MLG,MLT,UN,PB.
  529.  
  530.  
  531. IF KD2 <= FDON.
  532. MYD0 = CONCAT( MY, 000 ).
  533. MYD02 = CONCAT( MY2, 000 ).
  534. MYD1 = CONCAT( MY, KD2 ).
  535. MYD12 = CONCAT( MY2, KD2 ).
  536. IF {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} <> 0.
  537. IF COMP = '2500'.
  538. PB = 'USD'.
  539. ENDIF.
  540. IF MLT = 'ZTIC'.
  541. * ZTIC malzem türlerinin satışları 00 Kayıt türüne atılıyor.
  542. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,00} =
  543. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  544. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  545. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  546. ELSE.
  547. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,01} =
  548. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  549. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  550. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  551. ENDIF.
  552. ENDIF.
  553. *ELSE.
  554. *IF  {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} <> 0.
  555.  
  556. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,KD2,K4,MY,ZSD03_BIP,MLG,MLT,UN,VERS,BUT,01} =
  557. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,#,K4,MY2,ZSD_C03_3,MLG,MLT,UN,000,1000,#} *
  558. *( {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} / 12 * FDON2 ) /
  559. *{ZSATMIK,COMP,ULK,#,MUS,#,#,#,K4,MY2,ZSD_C03_2,#,#,UN,#,#,#} .
  560. *ENDIF.
  561. ENDIF.
  562.  
  563.  
  564.  
  565. ENDFOR.
  566. ENDIF.
  567. ENDFO
  568. **********************************************************************************************
  569. *   DATA L_FACTOR TYPE F.
  570. *   L_FACTOR = 1.1.
  571. *   { ZQUANTITY, PRODUCT11 } = { ZQUANTITY, PRODUCT09 } * L_FACTOR.
  572. **********************************************************************************************
  573.  
  574. DATA ULK TYPE 0COUNTRY.
  575. DATA MUS TYPE 0CUSTOMER.
  576. DATA DK TYPE  0DISTR_CHAN.
  577. DATA SBT TYPE 0DOC_TYPE.
  578. DATA KD2 TYPE 0FISCPER3.
  579. DATA MY TYPE 0FISCYEAR.
  580. DATA MY2 TYPE 0FISCYEAR.
  581. DATA MLG TYPE 0MATL_GROUP.
  582. DATA MLT TYPE 0MATL_TYPE.
  583. DATA UN TYPE 0UNIT.
  584. DATA VERS  TYPE 0VERSION.
  585. DATA BUT TYPE ZBUTCENO.
  586. DATA FDON TYPE 0FISCPER3.
  587. DATA FDON3 TYPE 0FISCPER3.
  588. DATA FDON2 TYPE I.
  589. DATA PB TYPE 0CURRENCY.
  590. DATA MYD0 TYPE 0FISCPER.
  591. DATA MYD02 TYPE 0FISCPER.
  592. DATA MYD1 TYPE 0FISCPER.
  593. DATA MYD12 TYPE 0FISCPER.
  594. DATA COMP TYPE 0COMP_CODE.
  595. DATA MTAL TYPE 0SHIP_TO.
  596.  
  597. BREAK-POINT.
  598. FOREACH COMP.
  599. IF COMP <> #.
  600. VERS = VARV(ZBIPVERSION).
  601. MY = VARV(ZBIPYIL).
  602. BUT = VARV(ZBIPBUTCE).
  603. FDON = VARV(ZKAYDON4).
  604. FDON2 = 1.
  605. FDON3 = 001.
  606. BREAK-POINT.
  607. DO.
  608. IF FDON > FDON3.
  609. FDON2 = FDON2 + 1.
  610. FDON3 = FDON3 + 001.
  611. ELSE.
  612. EXIT.
  613. ENDIF.
  614. ENDDO.
  615.  
  616. BREAK-POINT.
  617. MY2 = VARV(ZBIPYIL2).
  618.  
  619. FOREACH ULK,MUS, MTAL,DK,SBT,KD2,MLG,MLT,UN,PB.
  620.  
  621.  
  622. IF KD2 <= FDON.
  623. MYD0 = CONCAT( MY, 000 ).
  624. MYD02 = CONCAT( MY2, 000 ).
  625. MYD1 = CONCAT( MY, KD2 ).
  626. MYD12 = CONCAT( MY2, KD2 ).
  627. IF {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} <> 0.
  628. IF COMP = '2500'.
  629. PB = 'USD'.
  630. ENDIF.
  631. IF MLT = 'ZTIC'.
  632. * ZTIC malzem türlerinin satışları 00 Kayıt türüne atılıyor.
  633. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,00} =
  634. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  635. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  636. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  637. ELSE.
  638. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,01} =
  639. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  640. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  641. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  642. ENDIF.
  643. ENDIF.
  644. *ELSE.
  645. *IF  {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} <> 0.
  646.  
  647. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,KD2,K4,MY,ZSD03_BIP,MLG,MLT,UN,VERS,BUT,01} =
  648. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,#,K4,MY2,ZSD_C03_3,MLG,MLT,UN,000,1000,#} *
  649. *( {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} / 12 * FDON2 ) /
  650. *{ZSATMIK,COMP,ULK,#,MUS,#,#,#,K4,MY2,ZSD_C03_2,#,#,UN,#,#,#} .
  651. *ENDIF.
  652. ENDIF.
  653.  
  654.  
  655.  
  656. ENDFOR.
  657. ENDIF.
  658. ENDFO
  659. *   DATA L_FACTOR TYPE F.
  660. *   L_FACTOR = 1.1.
  661. *   { ZQUANTITY, PRODUCT11 } = { ZQUANTITY, PRODUCT09 } * L_FACTOR.
  662. **********************************************************************************************
  663.  
  664. DATA ULK TYPE 0COUNTRY.
  665. DATA MUS TYPE 0CUSTOMER.
  666. DATA DK TYPE  0DISTR_CHAN.
  667. DATA SBT TYPE 0DOC_TYPE.
  668. DATA KD2 TYPE 0FISCPER3.
  669. DATA MY TYPE 0FISCYEAR.
  670. DATA MY2 TYPE 0FISCYEAR.
  671. DATA MLG TYPE 0MATL_GROUP.
  672. DATA MLT TYPE 0MATL_TYPE.
  673. DATA UN TYPE 0UNIT.
  674. DATA VERS  TYPE 0VERSION.
  675. DATA BUT TYPE ZBUTCENO.
  676. DATA FDON TYPE 0FISCPER3.
  677. DATA FDON3 TYPE 0FISCPER3.
  678. DATA FDON2 TYPE I.
  679. DATA PB TYPE 0CURRENCY.
  680. DATA MYD0 TYPE 0FISCPER.
  681. DATA MYD02 TYPE 0FISCPER.
  682. DATA MYD1 TYPE 0FISCPER.
  683. DATA MYD12 TYPE 0FISCPER.
  684. DATA COMP TYPE 0COMP_CODE.
  685. DATA MTAL TYPE 0SHIP_TO.
  686.  
  687. BREAK-POINT.
  688. FOREACH COMP.
  689. IF COMP <> #.
  690. VERS = VARV(ZBIPVERSION).
  691. MY = VARV(ZBIPYIL).
  692. BUT = VARV(ZBIPBUTCE).
  693. FDON = VARV(ZKAYDON4).
  694. FDON2 = 1.
  695. FDON3 = 001.
  696. BREAK-POINT.
  697. DO.
  698. IF FDON > FDON3.
  699. FDON2 = FDON2 + 1.
  700. FDON3 = FDON3 + 001.
  701. ELSE.
  702. EXIT.
  703. ENDIF.
  704. ENDDO.
  705.  
  706. BREAK-POINT.
  707. MY2 = VARV(ZBIPYIL2).
  708.  
  709. FOREACH ULK,MUS, MTAL,DK,SBT,KD2,MLG,MLT,UN,PB.
  710.  
  711.  
  712. IF KD2 <= FDON.
  713. MYD0 = CONCAT( MY, 000 ).
  714. MYD02 = CONCAT( MY2, 000 ).
  715. MYD1 = CONCAT( MY, KD2 ).
  716. MYD12 = CONCAT( MY2, KD2 ).
  717. IF {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} <> 0.
  718. IF COMP = '2500'.
  719. PB = 'USD'.
  720. ENDIF.
  721. IF MLT = 'ZTIC'.
  722. * ZTIC malzem türlerinin satışları 00 Kayıt türüne atılıyor.
  723. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,00} =
  724. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  725. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  726. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  727. ELSE.
  728. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,01} =
  729. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  730. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  731. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  732. ENDIF.
  733. ENDIF.
  734. *ELSE.
  735. *IF  {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} <> 0.
  736.  
  737. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,KD2,K4,MY,ZSD03_BIP,MLG,MLT,UN,VERS,BUT,01} =
  738. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,#,K4,MY2,ZSD_C03_3,MLG,MLT,UN,000,1000,#} *
  739. *( {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} / 12 * FDON2 ) /
  740. *{ZSATMIK,COMP,ULK,#,MUS,#,#,#,K4,MY2,ZSD_C03_2,#,#,UN,#,#,#} .
  741. *ENDIF.
  742. ENDIF.
  743.  
  744.  
  745.  
  746. ENDFOR.
  747. ENDIF.
  748. ENDFO
  749. *   L_FACTOR = 1.1.
  750. *   { ZQUANTITY, PRODUCT11 } = { ZQUANTITY, PRODUCT09 } * L_FACTOR.
  751. **********************************************************************************************
  752.  
  753. DATA ULK TYPE 0COUNTRY.
  754. DATA MUS TYPE 0CUSTOMER.
  755. DATA DK TYPE  0DISTR_CHAN.
  756. DATA SBT TYPE 0DOC_TYPE.
  757. DATA KD2 TYPE 0FISCPER3.
  758. DATA MY TYPE 0FISCYEAR.
  759. DATA MY2 TYPE 0FISCYEAR.
  760. DATA MLG TYPE 0MATL_GROUP.
  761. DATA MLT TYPE 0MATL_TYPE.
  762. DATA UN TYPE 0UNIT.
  763. DATA VERS  TYPE 0VERSION.
  764. DATA BUT TYPE ZBUTCENO.
  765. DATA FDON TYPE 0FISCPER3.
  766. DATA FDON3 TYPE 0FISCPER3.
  767. DATA FDON2 TYPE I.
  768. DATA PB TYPE 0CURRENCY.
  769. DATA MYD0 TYPE 0FISCPER.
  770. DATA MYD02 TYPE 0FISCPER.
  771. DATA MYD1 TYPE 0FISCPER.
  772. DATA MYD12 TYPE 0FISCPER.
  773. DATA COMP TYPE 0COMP_CODE.
  774. DATA MTAL TYPE 0SHIP_TO.
  775.  
  776. BREAK-POINT.
  777. FOREACH COMP.
  778. IF COMP <> #.
  779. VERS = VARV(ZBIPVERSION).
  780. MY = VARV(ZBIPYIL).
  781. BUT = VARV(ZBIPBUTCE).
  782. FDON = VARV(ZKAYDON4).
  783. FDON2 = 1.
  784. FDON3 = 001.
  785. BREAK-POINT.
  786. DO.
  787. IF FDON > FDON3.
  788. FDON2 = FDON2 + 1.
  789. FDON3 = FDON3 + 001.
  790. ELSE.
  791. EXIT.
  792. ENDIF.
  793. ENDDO.
  794.  
  795. BREAK-POINT.
  796. MY2 = VARV(ZBIPYIL2).
  797.  
  798. FOREACH ULK,MUS, MTAL,DK,SBT,KD2,MLG,MLT,UN,PB.
  799.  
  800.  
  801. IF KD2 <= FDON.
  802. MYD0 = CONCAT( MY, 000 ).
  803. MYD02 = CONCAT( MY2, 000 ).
  804. MYD1 = CONCAT( MY, KD2 ).
  805. MYD12 = CONCAT( MY2, KD2 ).
  806. IF {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} <> 0.
  807. IF COMP = '2500'.
  808. PB = 'USD'.
  809. ENDIF.
  810. IF MLT = 'ZTIC'.
  811. * ZTIC malzem türlerinin satışları 00 Kayıt türüne atılıyor.
  812. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,00} =
  813. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  814. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  815. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  816. ELSE.
  817. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,01} =
  818. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  819. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  820. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  821. ENDIF.
  822. ENDIF.
  823. *ELSE.
  824. *IF  {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} <> 0.
  825.  
  826. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,KD2,K4,MY,ZSD03_BIP,MLG,MLT,UN,VERS,BUT,01} =
  827. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,#,K4,MY2,ZSD_C03_3,MLG,MLT,UN,000,1000,#} *
  828. *( {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} / 12 * FDON2 ) /
  829. *{ZSATMIK,COMP,ULK,#,MUS,#,#,#,K4,MY2,ZSD_C03_2,#,#,UN,#,#,#} .
  830. *ENDIF.
  831. ENDIF.
  832.  
  833.  
  834.  
  835. ENDFOR.
  836. ENDIF.
  837. ENDFO
  838. *   { ZQUANTITY, PRODUCT11 } = { ZQUANTITY, PRODUCT09 } * L_FACTOR.
  839. **********************************************************************************************
  840.  
  841. DATA ULK TYPE 0COUNTRY.
  842. DATA MUS TYPE 0CUSTOMER.
  843. DATA DK TYPE  0DISTR_CHAN.
  844. DATA SBT TYPE 0DOC_TYPE.
  845. DATA KD2 TYPE 0FISCPER3.
  846. DATA MY TYPE 0FISCYEAR.
  847. DATA MY2 TYPE 0FISCYEAR.
  848. DATA MLG TYPE 0MATL_GROUP.
  849. DATA MLT TYPE 0MATL_TYPE.
  850. DATA UN TYPE 0UNIT.
  851. DATA VERS  TYPE 0VERSION.
  852. DATA BUT TYPE ZBUTCENO.
  853. DATA FDON TYPE 0FISCPER3.
  854. DATA FDON3 TYPE 0FISCPER3.
  855. DATA FDON2 TYPE I.
  856. DATA PB TYPE 0CURRENCY.
  857. DATA MYD0 TYPE 0FISCPER.
  858. DATA MYD02 TYPE 0FISCPER.
  859. DATA MYD1 TYPE 0FISCPER.
  860. DATA MYD12 TYPE 0FISCPER.
  861. DATA COMP TYPE 0COMP_CODE.
  862. DATA MTAL TYPE 0SHIP_TO.
  863.  
  864. BREAK-POINT.
  865. FOREACH COMP.
  866. IF COMP <> #.
  867. VERS = VARV(ZBIPVERSION).
  868. MY = VARV(ZBIPYIL).
  869. BUT = VARV(ZBIPBUTCE).
  870. FDON = VARV(ZKAYDON4).
  871. FDON2 = 1.
  872. FDON3 = 001.
  873. BREAK-POINT.
  874. DO.
  875. IF FDON > FDON3.
  876. FDON2 = FDON2 + 1.
  877. FDON3 = FDON3 + 001.
  878. ELSE.
  879. EXIT.
  880. ENDIF.
  881. ENDDO.
  882.  
  883. BREAK-POINT.
  884. MY2 = VARV(ZBIPYIL2).
  885.  
  886. FOREACH ULK,MUS, MTAL,DK,SBT,KD2,MLG,MLT,UN,PB.
  887.  
  888.  
  889. IF KD2 <= FDON.
  890. MYD0 = CONCAT( MY, 000 ).
  891. MYD02 = CONCAT( MY2, 000 ).
  892. MYD1 = CONCAT( MY, KD2 ).
  893. MYD12 = CONCAT( MY2, KD2 ).
  894. IF {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} <> 0.
  895. IF COMP = '2500'.
  896. PB = 'USD'.
  897. ENDIF.
  898. IF MLT = 'ZTIC'.
  899. * ZTIC malzem türlerinin satışları 00 Kayıt türüne atılıyor.
  900. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,00} =
  901. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  902. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  903. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  904. ELSE.
  905. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,01} =
  906. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  907. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  908. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  909. ENDIF.
  910. ENDIF.
  911. *ELSE.
  912. *IF  {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} <> 0.
  913.  
  914. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,KD2,K4,MY,ZSD03_BIP,MLG,MLT,UN,VERS,BUT,01} =
  915. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,#,K4,MY2,ZSD_C03_3,MLG,MLT,UN,000,1000,#} *
  916. *( {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} / 12 * FDON2 ) /
  917. *{ZSATMIK,COMP,ULK,#,MUS,#,#,#,K4,MY2,ZSD_C03_2,#,#,UN,#,#,#} .
  918. *ENDIF.
  919. ENDIF.
  920.  
  921.  
  922.  
  923. ENDFOR.
  924. ENDIF.
  925. ENDFO
  926. **********************************************************************************************
  927.  
  928. DATA ULK TYPE 0COUNTRY.
  929. DATA MUS TYPE 0CUSTOMER.
  930. DATA DK TYPE  0DISTR_CHAN.
  931. DATA SBT TYPE 0DOC_TYPE.
  932. DATA KD2 TYPE 0FISCPER3.
  933. DATA MY TYPE 0FISCYEAR.
  934. DATA MY2 TYPE 0FISCYEAR.
  935. DATA MLG TYPE 0MATL_GROUP.
  936. DATA MLT TYPE 0MATL_TYPE.
  937. DATA UN TYPE 0UNIT.
  938. DATA VERS  TYPE 0VERSION.
  939. DATA BUT TYPE ZBUTCENO.
  940. DATA FDON TYPE 0FISCPER3.
  941. DATA FDON3 TYPE 0FISCPER3.
  942. DATA FDON2 TYPE I.
  943. DATA PB TYPE 0CURRENCY.
  944. DATA MYD0 TYPE 0FISCPER.
  945. DATA MYD02 TYPE 0FISCPER.
  946. DATA MYD1 TYPE 0FISCPER.
  947. DATA MYD12 TYPE 0FISCPER.
  948. DATA COMP TYPE 0COMP_CODE.
  949. DATA MTAL TYPE 0SHIP_TO.
  950.  
  951. BREAK-POINT.
  952. FOREACH COMP.
  953. IF COMP <> #.
  954. VERS = VARV(ZBIPVERSION).
  955. MY = VARV(ZBIPYIL).
  956. BUT = VARV(ZBIPBUTCE).
  957. FDON = VARV(ZKAYDON4).
  958. FDON2 = 1.
  959. FDON3 = 001.
  960. BREAK-POINT.
  961. DO.
  962. IF FDON > FDON3.
  963. FDON2 = FDON2 + 1.
  964. FDON3 = FDON3 + 001.
  965. ELSE.
  966. EXIT.
  967. ENDIF.
  968. ENDDO.
  969.  
  970. BREAK-POINT.
  971. MY2 = VARV(ZBIPYIL2).
  972.  
  973. FOREACH ULK,MUS, MTAL,DK,SBT,KD2,MLG,MLT,UN,PB.
  974.  
  975.  
  976. IF KD2 <= FDON.
  977. MYD0 = CONCAT( MY, 000 ).
  978. MYD02 = CONCAT( MY2, 000 ).
  979. MYD1 = CONCAT( MY, KD2 ).
  980. MYD12 = CONCAT( MY2, KD2 ).
  981. IF {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} <> 0.
  982. IF COMP = '2500'.
  983. PB = 'USD'.
  984. ENDIF.
  985. IF MLT = 'ZTIC'.
  986. * ZTIC malzem türlerinin satışları 00 Kayıt türüne atılıyor.
  987. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,00} =
  988. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  989. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  990. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  991. ELSE.
  992. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,01} =
  993. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  994. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  995. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  996. ENDIF.
  997. ENDIF.
  998. *ELSE.
  999. *IF  {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} <> 0.
  1000.  
  1001. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,KD2,K4,MY,ZSD03_BIP,MLG,MLT,UN,VERS,BUT,01} =
  1002. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,#,K4,MY2,ZSD_C03_3,MLG,MLT,UN,000,1000,#} *
  1003. *( {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} / 12 * FDON2 ) /
  1004. *{ZSATMIK,COMP,ULK,#,MUS,#,#,#,K4,MY2,ZSD_C03_2,#,#,UN,#,#,#} .
  1005. *ENDIF.
  1006. ENDIF.
  1007.  
  1008.  
  1009.  
  1010. ENDFOR.
  1011. ENDIF.
  1012. ENDFO
  1013. * ZTIC malzem türlerinin satışları 00 Kayıt türüne atılıyor.
  1014. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,00} =
  1015. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  1016. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  1017. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  1018. ELSE.
  1019. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD1,KD2,K4,MY,ZSD03_BIP,MLG,MLT,MTAL,UN,VERS,BUT,01} =
  1020. {ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,MYD12,KD2,K4,MY2,ZSD_C03,MLG,MLT,MTAL,UN,000,1000,#} *
  1021. ( {ZSATMIK,COMP,ULK,#,MUS,#,#,MYD0,#,K4,MY,ZSD03_BIP,#,#,MTAL,UN,VERS,BUT,99} / 12 * FDON2 ) /
  1022. {ZSATMIK,COMP,ULK,#,MUS,#,#,#,#,K4,MY2,ZSD_C03_2,#,#,MTAL,UN,#,#,#} .
  1023. ENDIF.
  1024. ENDIF.
  1025. *ELSE.
  1026. *IF  {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} <> 0.
  1027.  
  1028. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,KD2,K4,MY,ZSD03_BIP,MLG,MLT,UN,VERS,BUT,01} =
  1029. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,#,K4,MY2,ZSD_C03_3,MLG,MLT,UN,000,1000,#} *
  1030. *( {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} / 12 * FDON2 ) /
  1031. *{ZSATMIK,COMP,ULK,#,MUS,#,#,#,K4,MY2,ZSD_C03_2,#,#,UN,#,#,#} .
  1032. *ENDIF.
  1033. ENDIF.
  1034.  
  1035.  
  1036.  
  1037. ENDFOR.
  1038. ENDIF.
  1039. ENDFO
  1040. *ELSE.
  1041. *IF  {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} <> 0.
  1042.  
  1043. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,KD2,K4,MY,ZSD03_BIP,MLG,MLT,UN,VERS,BUT,01} =
  1044. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,#,K4,MY2,ZSD_C03_3,MLG,MLT,UN,000,1000,#} *
  1045. *( {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} / 12 * FDON2 ) /
  1046. *{ZSATMIK,COMP,ULK,#,MUS,#,#,#,K4,MY2,ZSD_C03_2,#,#,UN,#,#,#} .
  1047. *ENDIF.
  1048. ENDIF.
  1049.  
  1050.  
  1051.  
  1052. ENDFOR.
  1053. ENDIF.
  1054. ENDFO
  1055. *IF  {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} <> 0.
  1057. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,KD2,K4,MY,ZSD03_BIP,MLG,MLT,UN,VERS,BUT,01} =
  1058. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,#,K4,MY2,ZSD_C03_3,MLG,MLT,UN,000,1000,#} *
  1059. *( {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} / 12 * FDON2 ) /
  1060. *{ZSATMIK,COMP,ULK,#,MUS,#,#,#,K4,MY2,ZSD_C03_2,#,#,UN,#,#,#} .
  1061. *ENDIF.
  1062. ENDIF.
  1063.  
  1064.  
  1065.  
  1066. ENDFOR.
  1067. ENDIF.
  1068. ENDFO
  1069. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,KD2,K4,MY,ZSD03_BIP,MLG,MLT,UN,VERS,BUT,01} =
  1070. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,#,K4,MY2,ZSD_C03_3,MLG,MLT,UN,000,1000,#} *
  1071. *( {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} / 12 * FDON2 ) /
  1072. *{ZSATMIK,COMP,ULK,#,MUS,#,#,#,K4,MY2,ZSD_C03_2,#,#,UN,#,#,#} .
  1073. *ENDIF.
  1074. ENDIF.
  1075.  
  1076.  
  1077.  
  1078. ENDFOR.
  1079. ENDIF.
  1080. ENDFO
  1081. *{ZSATMIK,COMP,ULK,PB,MUS,DK,SBT,#,K4,MY2,ZSD_C03_3,MLG,MLT,UN,000,1000,#} *
  1082. *( {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} / 12 * FDON2 ) /
  1083. *{ZSATMIK,COMP,ULK,#,MUS,#,#,#,K4,MY2,ZSD_C03_2,#,#,UN,#,#,#} .
  1084. *ENDIF.
  1085. ENDIF.
  1086.  
  1087.  
  1088.  
  1089. ENDFOR.
  1090. ENDIF.
  1091. ENDFO
  1092. *( {ZSATMIK,COMP,ULK,#,MUS,#,#,KD2,K4,MY,ZSD03_BIP,#,#,UN,VERS,BUT,98} / 12 * FDON2 ) /
  1093. *{ZSATMIK,COMP,ULK,#,MUS,#,#,#,K4,MY2,ZSD_C03_2,#,#,UN,#,#,#} .
  1094. *ENDIF.
  1095. ENDIF.
  1096.  
  1097.  
  1098.  
  1099. ENDFOR.
  1100. ENDIF.
  1101. ENDFO
  1102. *{ZSATMIK,COMP,ULK,#,MUS,#,#,#,K4,MY2,ZSD_C03_2,#,#,UN,#,#,#} .
  1103. *ENDIF.
  1104. ENDIF.
  1105.  
  1106.  
  1107.  
  1108. ENDFOR.
  1109. ENDIF.
  1110. ENDFO
  1111. *ENDIF.
  1112. ENDIF.
  1113.  
  1114.  
  1115.  
  1116. ENDFOR.
  1117. ENDIF.
  1118. ENDFOR.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!