API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Apr 24th, 2018
61
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 51.63 KB | None | 0 0
raw download clone embed print report
  1. "if dte1=0 and check='N' then
  2. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  3. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  4. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  5.  
  6. wrtasdef[dte1, tas1]:=temptas1
  7. wrtasdef[dte1,tas2]:=temptas2
  8. dte1:=strnum[temphrs]
  9. check:='Y'
  10. dtecount:=dtecount+1
  11. dtecount:=dtecount+dte1
  12. endif"
  13. "if dte2=0 and check='N' then
  14. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  15. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  16. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  17.  
  18. wrtasdef[dte2, tas1]:=temptas1
  19. wrtasdef[dte2,tas2]:=temptas2
  20. dte2:=strnum[temphrs]
  21. check:='Y'
  22. dtecount:=dtecount+1
  23. dtecount:=dtecount+dte2
  24. endif"
  25. "if dte3=0 and check='N' then
  26. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  27. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  28. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  29.  
  30. wrtasdef[dte3, tas1]:=temptas1
  31. wrtasdef[dte3,tas2]:=temptas2
  32. dte3:=strnum[temphrs]
  33. check:='Y'
  34. dtecount:=dtecount+1
  35. dtecount:=dtecount+dte3
  36. endif"
  37. "if dte4=0 and check='N' then
  38. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  39. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  40. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  41.  
  42. wrtasdef[dte4, tas1]:=temptas1
  43. wrtasdef[dte4,tas2]:=temptas2
  44. dte4:=strnum[temphrs]
  45. check:='Y'
  46. dtecount:=dtecount+1
  47. dtecount:=dtecount+dte4
  48. endif"
  49. "if dte5=0 and check='N' then
  50. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  51. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  52. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  53.  
  54. wrtasdef[dte5, tas1]:=temptas1
  55. wrtasdef[dte5,tas2]:=temptas2
  56. dte5:=strnum[temphrs]
  57. check:='Y'
  58. dtecount:=dtecount+1
  59. dtecount:=dtecount+dte5
  60. endif"
  61. "if dte6=0 and check='N' then
  62. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  63. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  64. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  65.  
  66. wrtasdef[dte6, tas1]:=temptas1
  67. wrtasdef[dte6,tas2]:=temptas2
  68. dte6:=strnum[temphrs]
  69. check:='Y'
  70. dtecount:=dtecount+1
  71. dtecount:=dtecount+dte6
  72. endif"
  73. "if dte7=0 and check='N' then
  74. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  75. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  76. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  77.  
  78. wrtasdef[dte7, tas1]:=temptas1
  79. wrtasdef[dte7,tas2]:=temptas2
  80. dte7:=strnum[temphrs]
  81. check:='Y'
  82. dtecount:=dtecount+1
  83. dtecount:=dtecount+dte7
  84. endif"
  85. "if dte8=0 and check='N' then
  86. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  87. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  88. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  89.  
  90. wrtasdef[dte8, tas1]:=temptas1
  91. wrtasdef[dte8,tas2]:=temptas2
  92. dte8:=strnum[temphrs]
  93. check:='Y'
  94. dtecount:=dtecount+1
  95. dtecount:=dtecount+dte8
  96. endif"
  97. "if dte9=0 and check='N' then
  98. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  99. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  100. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  101.  
  102. wrtasdef[dte9, tas1]:=temptas1
  103. wrtasdef[dte9,tas2]:=temptas2
  104. dte9:=strnum[temphrs]
  105. check:='Y'
  106. dtecount:=dtecount+1
  107. dtecount:=dtecount+dte9
  108. endif"
  109. "if dte10=0 and check='N' then
  110. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  111. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  112. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  113.  
  114. wrtasdef[dte10, tas1]:=temptas1
  115. wrtasdef[dte10,tas2]:=temptas2
  116. dte10:=strnum[temphrs]
  117. check:='Y'
  118. dtecount:=dtecount+1
  119. dtecount:=dtecount+dte10
  120. endif"
  121. "if dte11=0 and check='N' then
  122. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  123. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  124. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  125.  
  126. wrtasdef[dte11, tas1]:=temptas1
  127. wrtasdef[dte11,tas2]:=temptas2
  128. dte11:=strnum[temphrs]
  129. check:='Y'
  130. dtecount:=dtecount+1
  131. dtecount:=dtecount+dte11
  132. endif"
  133. "if dte12=0 and check='N' then
  134. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  135. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  136. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  137.  
  138. wrtasdef[dte12, tas1]:=temptas1
  139. wrtasdef[dte12,tas2]:=temptas2
  140. dte12:=strnum[temphrs]
  141. check:='Y'
  142. dtecount:=dtecount+1
  143. dtecount:=dtecount+dte12
  144. endif"
  145. "if dte13=0 and check='N' then
  146. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  147. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  148. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  149.  
  150. wrtasdef[dte13, tas1]:=temptas1
  151. wrtasdef[dte13,tas2]:=temptas2
  152. dte13:=strnum[temphrs]
  153. check:='Y'
  154. dtecount:=dtecount+1
  155. dtecount:=dtecount+dte13
  156. endif"
  157. "if dte14=0 and check='N' then
  158. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  159. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  160. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  161.  
  162. wrtasdef[dte14, tas1]:=temptas1
  163. wrtasdef[dte14,tas2]:=temptas2
  164. dte14:=strnum[temphrs]
  165. check:='Y'
  166. dtecount:=dtecount+1
  167. dtecount:=dtecount+dte14
  168. endif"
  169. "if dte15=0 and check='N' then
  170. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  171. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  172. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  173.  
  174. wrtasdef[dte15, tas1]:=temptas1
  175. wrtasdef[dte15,tas2]:=temptas2
  176. dte15:=strnum[temphrs]
  177. check:='Y'
  178. dtecount:=dtecount+1
  179. dtecount:=dtecount+dte15
  180. endif"
  181. "if dte16=0 and check='N' then
  182. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  183. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  184. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  185.  
  186. wrtasdef[dte16, tas1]:=temptas1
  187. wrtasdef[dte16,tas2]:=temptas2
  188. dte16:=strnum[temphrs]
  189. check:='Y'
  190. dtecount:=dtecount+1
  191. dtecount:=dtecount+dte16
  192. endif"
  193. "if dte17=0 and check='N' then
  194. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  195. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  196. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  197.  
  198. wrtasdef[dte17, tas1]:=temptas1
  199. wrtasdef[dte17,tas2]:=temptas2
  200. dte17:=strnum[temphrs]
  201. check:='Y'
  202. dtecount:=dtecount+1
  203. dtecount:=dtecount+dte17
  204. endif"
  205. "if dte18=0 and check='N' then
  206. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  207. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  208. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  209.  
  210. wrtasdef[dte18, tas1]:=temptas1
  211. wrtasdef[dte18,tas2]:=temptas2
  212. dte18:=strnum[temphrs]
  213. check:='Y'
  214. dtecount:=dtecount+1
  215. dtecount:=dtecount+dte18
  216. endif"
  217. "if dte19=0 and check='N' then
  218. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  219. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  220. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  221.  
  222. wrtasdef[dte19, tas1]:=temptas1
  223. wrtasdef[dte19,tas2]:=temptas2
  224. dte19:=strnum[temphrs]
  225. check:='Y'
  226. dtecount:=dtecount+1
  227. dtecount:=dtecount+dte19
  228. endif"
  229. "if dte20=0 and check='N' then
  230. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  231. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  232. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  233.  
  234. wrtasdef[dte20, tas1]:=temptas1
  235. wrtasdef[dte20,tas2]:=temptas2
  236. dte20:=strnum[temphrs]
  237. check:='Y'
  238. dtecount:=dtecount+1
  239. dtecount:=dtecount+dte20
  240. endif"
  241. "if dte21=0 and check='N' then
  242. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  243. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  244. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  245.  
  246. wrtasdef[dte21, tas1]:=temptas1
  247. wrtasdef[dte21,tas2]:=temptas2
  248. dte21:=strnum[temphrs]
  249. check:='Y'
  250. dtecount:=dtecount+1
  251. dtecount:=dtecount+dte21
  252. endif"
  253. "if dte22=0 and check='N' then
  254. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  255. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  256. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  257.  
  258. wrtasdef[dte22, tas1]:=temptas1
  259. wrtasdef[dte22,tas2]:=temptas2
  260. dte22:=strnum[temphrs]
  261. check:='Y'
  262. dtecount:=dtecount+1
  263. dtecount:=dtecount+dte22
  264. endif"
  265. "if dte23=0 and check='N' then
  266. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  267. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  268. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  269.  
  270. wrtasdef[dte23, tas1]:=temptas1
  271. wrtasdef[dte23,tas2]:=temptas2
  272. dte23:=strnum[temphrs]
  273. check:='Y'
  274. dtecount:=dtecount+1
  275. dtecount:=dtecount+dte23
  276. endif"
  277. "if dte24=0 and check='N' then
  278. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  279. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  280. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  281.  
  282. wrtasdef[dte24, tas1]:=temptas1
  283. wrtasdef[dte24,tas2]:=temptas2
  284. dte24:=strnum[temphrs]
  285. check:='Y'
  286. dtecount:=dtecount+1
  287. dtecount:=dtecount+dte24
  288. endif"
  289. "if dte25=0 and check='N' then
  290. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  291. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  292. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  293.  
  294. wrtasdef[dte25, tas1]:=temptas1
  295. wrtasdef[dte25,tas2]:=temptas2
  296. dte25:=strnum[temphrs]
  297. check:='Y'
  298. dtecount:=dtecount+1
  299. dtecount:=dtecount+dte25
  300. endif"
  301. "if dte26=0 and check='N' then
  302. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  303. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  304. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  305.  
  306. wrtasdef[dte26, tas1]:=temptas1
  307. wrtasdef[dte26,tas2]:=temptas2
  308. dte26:=strnum[temphrs]
  309. check:='Y'
  310. dtecount:=dtecount+1
  311. dtecount:=dtecount+dte26
  312. endif"
  313. "if dte27=0 and check='N' then
  314. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  315. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  316. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  317.  
  318. wrtasdef[dte27, tas1]:=temptas1
  319. wrtasdef[dte27,tas2]:=temptas2
  320. dte27:=strnum[temphrs]
  321. check:='Y'
  322. dtecount:=dtecount+1
  323. dtecount:=dtecount+dte27
  324. endif"
  325. "if dte28=0 and check='N' then
  326. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  327. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  328. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  329.  
  330. wrtasdef[dte28, tas1]:=temptas1
  331. wrtasdef[dte28,tas2]:=temptas2
  332. dte28:=strnum[temphrs]
  333. check:='Y'
  334. dtecount:=dtecount+1
  335. dtecount:=dtecount+dte28
  336. endif"
  337. "if dte29=0 and check='N' then
  338. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  339. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  340. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  341.  
  342. wrtasdef[dte29, tas1]:=temptas1
  343. wrtasdef[dte29,tas2]:=temptas2
  344. dte29:=strnum[temphrs]
  345. check:='Y'
  346. dtecount:=dtecount+1
  347. dtecount:=dtecount+dte29
  348. endif"
  349. "if dte30=0 and check='N' then
  350. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  351. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  352. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  353.  
  354. wrtasdef[dte30, tas1]:=temptas1
  355. wrtasdef[dte30,tas2]:=temptas2
  356. dte30:=strnum[temphrs]
  357. check:='Y'
  358. dtecount:=dtecount+1
  359. dtecount:=dtecount+dte30
  360. endif"
  361. "if dte31=0 and check='N' then
  362. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  363. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  364. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  365.  
  366. wrtasdef[dte31, tas1]:=temptas1
  367. wrtasdef[dte31,tas2]:=temptas2
  368. dte31:=strnum[temphrs]
  369. check:='Y'
  370. dtecount:=dtecount+1
  371. dtecount:=dtecount+dte31
  372. endif"
  373. "if dte32=0 and check='N' then
  374. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  375. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  376. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  377.  
  378. wrtasdef[dte32, tas1]:=temptas1
  379. wrtasdef[dte32,tas2]:=temptas2
  380. dte32:=strnum[temphrs]
  381. check:='Y'
  382. dtecount:=dtecount+1
  383. dtecount:=dtecount+dte32
  384. endif"
  385. "if dte33=0 and check='N' then
  386. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  387. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  388. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  389.  
  390. wrtasdef[dte33, tas1]:=temptas1
  391. wrtasdef[dte33,tas2]:=temptas2
  392. dte33:=strnum[temphrs]
  393. check:='Y'
  394. dtecount:=dtecount+1
  395. dtecount:=dtecount+dte33
  396. endif"
  397. "if dte34=0 and check='N' then
  398. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  399. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  400. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  401.  
  402. wrtasdef[dte34, tas1]:=temptas1
  403. wrtasdef[dte34,tas2]:=temptas2
  404. dte34:=strnum[temphrs]
  405. check:='Y'
  406. dtecount:=dtecount+1
  407. dtecount:=dtecount+dte34
  408. endif"
  409. "if dte35=0 and check='N' then
  410. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  411. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  412. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  413.  
  414. wrtasdef[dte35, tas1]:=temptas1
  415. wrtasdef[dte35,tas2]:=temptas2
  416. dte35:=strnum[temphrs]
  417. check:='Y'
  418. dtecount:=dtecount+1
  419. dtecount:=dtecount+dte35
  420. endif"
  421. "if dte36=0 and check='N' then
  422. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  423. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  424. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  425.  
  426. wrtasdef[dte36, tas1]:=temptas1
  427. wrtasdef[dte36,tas2]:=temptas2
  428. dte36:=strnum[temphrs]
  429. check:='Y'
  430. dtecount:=dtecount+1
  431. dtecount:=dtecount+dte36
  432. endif"
  433. "if dte37=0 and check='N' then
  434. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  435. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  436. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  437.  
  438. wrtasdef[dte37, tas1]:=temptas1
  439. wrtasdef[dte37,tas2]:=temptas2
  440. dte37:=strnum[temphrs]
  441. check:='Y'
  442. dtecount:=dtecount+1
  443. dtecount:=dtecount+dte37
  444. endif"
  445. "if dte38=0 and check='N' then
  446. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  447. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  448. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  449.  
  450. wrtasdef[dte38, tas1]:=temptas1
  451. wrtasdef[dte38,tas2]:=temptas2
  452. dte38:=strnum[temphrs]
  453. check:='Y'
  454. dtecount:=dtecount+1
  455. dtecount:=dtecount+dte38
  456. endif"
  457. "if dte39=0 and check='N' then
  458. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  459. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  460. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  461.  
  462. wrtasdef[dte39, tas1]:=temptas1
  463. wrtasdef[dte39,tas2]:=temptas2
  464. dte39:=strnum[temphrs]
  465. check:='Y'
  466. dtecount:=dtecount+1
  467. dtecount:=dtecount+dte39
  468. endif"
  469. "if dte40=0 and check='N' then
  470. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  471. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  472. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  473.  
  474. wrtasdef[dte40, tas1]:=temptas1
  475. wrtasdef[dte40,tas2]:=temptas2
  476. dte40:=strnum[temphrs]
  477. check:='Y'
  478. dtecount:=dtecount+1
  479. dtecount:=dtecount+dte40
  480. endif"
  481. "if dte41=0 and check='N' then
  482. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  483. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  484. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  485.  
  486. wrtasdef[dte41, tas1]:=temptas1
  487. wrtasdef[dte41,tas2]:=temptas2
  488. dte41:=strnum[temphrs]
  489. check:='Y'
  490. dtecount:=dtecount+1
  491. dtecount:=dtecount+dte41
  492. endif"
  493. "if dte42=0 and check='N' then
  494. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  495. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  496. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  497.  
  498. wrtasdef[dte42, tas1]:=temptas1
  499. wrtasdef[dte42,tas2]:=temptas2
  500. dte42:=strnum[temphrs]
  501. check:='Y'
  502. dtecount:=dtecount+1
  503. dtecount:=dtecount+dte42
  504. endif"
  505. "if dte43=0 and check='N' then
  506. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  507. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  508. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  509.  
  510. wrtasdef[dte43, tas1]:=temptas1
  511. wrtasdef[dte43,tas2]:=temptas2
  512. dte43:=strnum[temphrs]
  513. check:='Y'
  514. dtecount:=dtecount+1
  515. dtecount:=dtecount+dte43
  516. endif"
  517. "if dte44=0 and check='N' then
  518. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  519. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  520. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  521.  
  522. wrtasdef[dte44, tas1]:=temptas1
  523. wrtasdef[dte44,tas2]:=temptas2
  524. dte44:=strnum[temphrs]
  525. check:='Y'
  526. dtecount:=dtecount+1
  527. dtecount:=dtecount+dte44
  528. endif"
  529. "if dte45=0 and check='N' then
  530. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  531. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  532. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  533.  
  534. wrtasdef[dte45, tas1]:=temptas1
  535. wrtasdef[dte45,tas2]:=temptas2
  536. dte45:=strnum[temphrs]
  537. check:='Y'
  538. dtecount:=dtecount+1
  539. dtecount:=dtecount+dte45
  540. endif"
  541. "if dte46=0 and check='N' then
  542. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  543. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  544. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  545.  
  546. wrtasdef[dte46, tas1]:=temptas1
  547. wrtasdef[dte46,tas2]:=temptas2
  548. dte46:=strnum[temphrs]
  549. check:='Y'
  550. dtecount:=dtecount+1
  551. dtecount:=dtecount+dte46
  552. endif"
  553. "if dte47=0 and check='N' then
  554. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  555. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  556. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  557.  
  558. wrtasdef[dte47, tas1]:=temptas1
  559. wrtasdef[dte47,tas2]:=temptas2
  560. dte47:=strnum[temphrs]
  561. check:='Y'
  562. dtecount:=dtecount+1
  563. dtecount:=dtecount+dte47
  564. endif"
  565. "if dte48=0 and check='N' then
  566. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  567. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  568. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  569.  
  570. wrtasdef[dte48, tas1]:=temptas1
  571. wrtasdef[dte48,tas2]:=temptas2
  572. dte48:=strnum[temphrs]
  573. check:='Y'
  574. dtecount:=dtecount+1
  575. dtecount:=dtecount+dte48
  576. endif"
  577. "if dte49=0 and check='N' then
  578. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  579. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  580. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  581.  
  582. wrtasdef[dte49, tas1]:=temptas1
  583. wrtasdef[dte49,tas2]:=temptas2
  584. dte49:=strnum[temphrs]
  585. check:='Y'
  586. dtecount:=dtecount+1
  587. dtecount:=dtecount+dte49
  588. endif"
  589. "if dte50=0 and check='N' then
  590. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  591. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  592. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  593.  
  594. wrtasdef[dte50, tas1]:=temptas1
  595. wrtasdef[dte50,tas2]:=temptas2
  596. dte50:=strnum[temphrs]
  597. check:='Y'
  598. dtecount:=dtecount+1
  599. dtecount:=dtecount+dte50
  600. endif"
  601. "if dte51=0 and check='N' then
  602. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  603. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  604. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  605.  
  606. wrtasdef[dte51, tas1]:=temptas1
  607. wrtasdef[dte51,tas2]:=temptas2
  608. dte51:=strnum[temphrs]
  609. check:='Y'
  610. dtecount:=dtecount+1
  611. dtecount:=dtecount+dte51
  612. endif"
  613. "if dte52=0 and check='N' then
  614. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  615. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  616. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  617.  
  618. wrtasdef[dte52, tas1]:=temptas1
  619. wrtasdef[dte52,tas2]:=temptas2
  620. dte52:=strnum[temphrs]
  621. check:='Y'
  622. dtecount:=dtecount+1
  623. dtecount:=dtecount+dte52
  624. endif"
  625. "if dte53=0 and check='N' then
  626. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  627. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  628. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  629.  
  630. wrtasdef[dte53, tas1]:=temptas1
  631. wrtasdef[dte53,tas2]:=temptas2
  632. dte53:=strnum[temphrs]
  633. check:='Y'
  634. dtecount:=dtecount+1
  635. dtecount:=dtecount+dte53
  636. endif"
  637. "if dte54=0 and check='N' then
  638. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  639. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  640. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  641.  
  642. wrtasdef[dte54, tas1]:=temptas1
  643. wrtasdef[dte54,tas2]:=temptas2
  644. dte54:=strnum[temphrs]
  645. check:='Y'
  646. dtecount:=dtecount+1
  647. dtecount:=dtecount+dte54
  648. endif"
  649. "if dte55=0 and check='N' then
  650. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  651. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  652. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  653.  
  654. wrtasdef[dte55, tas1]:=temptas1
  655. wrtasdef[dte55,tas2]:=temptas2
  656. dte55:=strnum[temphrs]
  657. check:='Y'
  658. dtecount:=dtecount+1
  659. dtecount:=dtecount+dte55
  660. endif"
  661. "if dte56=0 and check='N' then
  662. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  663. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  664. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  665.  
  666. wrtasdef[dte56, tas1]:=temptas1
  667. wrtasdef[dte56,tas2]:=temptas2
  668. dte56:=strnum[temphrs]
  669. check:='Y'
  670. dtecount:=dtecount+1
  671. dtecount:=dtecount+dte56
  672. endif"
  673. "if dte57=0 and check='N' then
  674. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  675. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  676. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  677.  
  678. wrtasdef[dte57, tas1]:=temptas1
  679. wrtasdef[dte57,tas2]:=temptas2
  680. dte57:=strnum[temphrs]
  681. check:='Y'
  682. dtecount:=dtecount+1
  683. dtecount:=dtecount+dte57
  684. endif"
  685. "if dte58=0 and check='N' then
  686. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  687. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  688. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  689.  
  690. wrtasdef[dte58, tas1]:=temptas1
  691. wrtasdef[dte58,tas2]:=temptas2
  692. dte58:=strnum[temphrs]
  693. check:='Y'
  694. dtecount:=dtecount+1
  695. dtecount:=dtecount+dte58
  696. endif"
  697. "if dte59=0 and check='N' then
  698. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  699. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  700. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  701.  
  702. wrtasdef[dte59, tas1]:=temptas1
  703. wrtasdef[dte59,tas2]:=temptas2
  704. dte59:=strnum[temphrs]
  705. check:='Y'
  706. dtecount:=dtecount+1
  707. dtecount:=dtecount+dte59
  708. endif"
  709. "if dte60=0 and check='N' then
  710. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  711. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  712. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  713.  
  714. wrtasdef[dte60, tas1]:=temptas1
  715. wrtasdef[dte60,tas2]:=temptas2
  716. dte60:=strnum[temphrs]
  717. check:='Y'
  718. dtecount:=dtecount+1
  719. dtecount:=dtecount+dte60
  720. endif"
  721. "if dte61=0 and check='N' then
  722. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  723. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  724. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  725.  
  726. wrtasdef[dte61, tas1]:=temptas1
  727. wrtasdef[dte61,tas2]:=temptas2
  728. dte61:=strnum[temphrs]
  729. check:='Y'
  730. dtecount:=dtecount+1
  731. dtecount:=dtecount+dte61
  732. endif"
  733. "if dte62=0 and check='N' then
  734. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  735. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  736. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  737.  
  738. wrtasdef[dte62, tas1]:=temptas1
  739. wrtasdef[dte62,tas2]:=temptas2
  740. dte62:=strnum[temphrs]
  741. check:='Y'
  742. dtecount:=dtecount+1
  743. dtecount:=dtecount+dte62
  744. endif"
  745. "if dte63=0 and check='N' then
  746. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  747. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  748. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  749.  
  750. wrtasdef[dte63, tas1]:=temptas1
  751. wrtasdef[dte63,tas2]:=temptas2
  752. dte63:=strnum[temphrs]
  753. check:='Y'
  754. dtecount:=dtecount+1
  755. dtecount:=dtecount+dte63
  756. endif"
  757. "if dte64=0 and check='N' then
  758. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  759. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  760. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  761.  
  762. wrtasdef[dte64, tas1]:=temptas1
  763. wrtasdef[dte64,tas2]:=temptas2
  764. dte64:=strnum[temphrs]
  765. check:='Y'
  766. dtecount:=dtecount+1
  767. dtecount:=dtecount+dte64
  768. endif"
  769. "if dte65=0 and check='N' then
  770. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  771. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  772. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  773.  
  774. wrtasdef[dte65, tas1]:=temptas1
  775. wrtasdef[dte65,tas2]:=temptas2
  776. dte65:=strnum[temphrs]
  777. check:='Y'
  778. dtecount:=dtecount+1
  779. dtecount:=dtecount+dte65
  780. endif"
  781. "if dte66=0 and check='N' then
  782. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  783. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  784. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  785.  
  786. wrtasdef[dte66, tas1]:=temptas1
  787. wrtasdef[dte66,tas2]:=temptas2
  788. dte66:=strnum[temphrs]
  789. check:='Y'
  790. dtecount:=dtecount+1
  791. dtecount:=dtecount+dte66
  792. endif"
  793. "if dte67=0 and check='N' then
  794. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  795. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  796. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  797.  
  798. wrtasdef[dte67, tas1]:=temptas1
  799. wrtasdef[dte67,tas2]:=temptas2
  800. dte67:=strnum[temphrs]
  801. check:='Y'
  802. dtecount:=dtecount+1
  803. dtecount:=dtecount+dte67
  804. endif"
  805. "if dte68=0 and check='N' then
  806. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  807. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  808. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  809.  
  810. wrtasdef[dte68, tas1]:=temptas1
  811. wrtasdef[dte68,tas2]:=temptas2
  812. dte68:=strnum[temphrs]
  813. check:='Y'
  814. dtecount:=dtecount+1
  815. dtecount:=dtecount+dte68
  816. endif"
  817. "if dte69=0 and check='N' then
  818. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  819. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  820. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  821.  
  822. wrtasdef[dte69, tas1]:=temptas1
  823. wrtasdef[dte69,tas2]:=temptas2
  824. dte69:=strnum[temphrs]
  825. check:='Y'
  826. dtecount:=dtecount+1
  827. dtecount:=dtecount+dte69
  828. endif"
  829. "if dte70=0 and check='N' then
  830. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  831. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  832. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  833.  
  834. wrtasdef[dte70, tas1]:=temptas1
  835. wrtasdef[dte70,tas2]:=temptas2
  836. dte70:=strnum[temphrs]
  837. check:='Y'
  838. dtecount:=dtecount+1
  839. dtecount:=dtecount+dte70
  840. endif"
  841. "if dte71=0 and check='N' then
  842. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  843. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  844. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  845.  
  846. wrtasdef[dte71, tas1]:=temptas1
  847. wrtasdef[dte71,tas2]:=temptas2
  848. dte71:=strnum[temphrs]
  849. check:='Y'
  850. dtecount:=dtecount+1
  851. dtecount:=dtecount+dte71
  852. endif"
  853. "if dte72=0 and check='N' then
  854. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  855. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  856. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  857.  
  858. wrtasdef[dte72, tas1]:=temptas1
  859. wrtasdef[dte72,tas2]:=temptas2
  860. dte72:=strnum[temphrs]
  861. check:='Y'
  862. dtecount:=dtecount+1
  863. dtecount:=dtecount+dte72
  864. endif"
  865. "if dte73=0 and check='N' then
  866. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  867. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  868. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  869.  
  870. wrtasdef[dte73, tas1]:=temptas1
  871. wrtasdef[dte73,tas2]:=temptas2
  872. dte73:=strnum[temphrs]
  873. check:='Y'
  874. dtecount:=dtecount+1
  875. dtecount:=dtecount+dte73
  876. endif"
  877. "if dte74=0 and check='N' then
  878. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  879. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  880. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  881.  
  882. wrtasdef[dte74, tas1]:=temptas1
  883. wrtasdef[dte74,tas2]:=temptas2
  884. dte74:=strnum[temphrs]
  885. check:='Y'
  886. dtecount:=dtecount+1
  887. dtecount:=dtecount+dte74
  888. endif"
  889. "if dte75=0 and check='N' then
  890. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  891. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  892. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  893.  
  894. wrtasdef[dte75, tas1]:=temptas1
  895. wrtasdef[dte75,tas2]:=temptas2
  896. dte75:=strnum[temphrs]
  897. check:='Y'
  898. dtecount:=dtecount+1
  899. dtecount:=dtecount+dte75
  900. endif"
  901. "if dte76=0 and check='N' then
  902. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  903. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  904. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  905.  
  906. wrtasdef[dte76, tas1]:=temptas1
  907. wrtasdef[dte76,tas2]:=temptas2
  908. dte76:=strnum[temphrs]
  909. check:='Y'
  910. dtecount:=dtecount+1
  911. dtecount:=dtecount+dte76
  912. endif"
  913. "if dte77=0 and check='N' then
  914. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  915. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  916. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  917.  
  918. wrtasdef[dte77, tas1]:=temptas1
  919. wrtasdef[dte77,tas2]:=temptas2
  920. dte77:=strnum[temphrs]
  921. check:='Y'
  922. dtecount:=dtecount+1
  923. dtecount:=dtecount+dte77
  924. endif"
  925. "if dte78=0 and check='N' then
  926. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  927. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  928. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  929.  
  930. wrtasdef[dte78, tas1]:=temptas1
  931. wrtasdef[dte78,tas2]:=temptas2
  932. dte78:=strnum[temphrs]
  933. check:='Y'
  934. dtecount:=dtecount+1
  935. dtecount:=dtecount+dte78
  936. endif"
  937. "if dte79=0 and check='N' then
  938. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  939. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  940. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  941.  
  942. wrtasdef[dte79, tas1]:=temptas1
  943. wrtasdef[dte79,tas2]:=temptas2
  944. dte79:=strnum[temphrs]
  945. check:='Y'
  946. dtecount:=dtecount+1
  947. dtecount:=dtecount+dte79
  948. endif"
  949. "if dte80=0 and check='N' then
  950. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  951. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  952. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  953.  
  954. wrtasdef[dte80, tas1]:=temptas1
  955. wrtasdef[dte80,tas2]:=temptas2
  956. dte80:=strnum[temphrs]
  957. check:='Y'
  958. dtecount:=dtecount+1
  959. dtecount:=dtecount+dte80
  960. endif"
  961. "if dte81=0 and check='N' then
  962. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  963. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  964. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  965.  
  966. wrtasdef[dte81, tas1]:=temptas1
  967. wrtasdef[dte81,tas2]:=temptas2
  968. dte81:=strnum[temphrs]
  969. check:='Y'
  970. dtecount:=dtecount+1
  971. dtecount:=dtecount+dte81
  972. endif"
  973. "if dte82=0 and check='N' then
  974. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  975. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  976. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  977.  
  978. wrtasdef[dte82, tas1]:=temptas1
  979. wrtasdef[dte82,tas2]:=temptas2
  980. dte82:=strnum[temphrs]
  981. check:='Y'
  982. dtecount:=dtecount+1
  983. dtecount:=dtecount+dte82
  984. endif"
  985. "if dte83=0 and check='N' then
  986. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  987. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  988. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  989.  
  990. wrtasdef[dte83, tas1]:=temptas1
  991. wrtasdef[dte83,tas2]:=temptas2
  992. dte83:=strnum[temphrs]
  993. check:='Y'
  994. dtecount:=dtecount+1
  995. dtecount:=dtecount+dte83
  996. endif"
  997. "if dte84=0 and check='N' then
  998. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  999. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1000. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1001.  
  1002. wrtasdef[dte84, tas1]:=temptas1
  1003. wrtasdef[dte84,tas2]:=temptas2
  1004. dte84:=strnum[temphrs]
  1005. check:='Y'
  1006. dtecount:=dtecount+1
  1007. dtecount:=dtecount+dte84
  1008. endif"
  1009. "if dte85=0 and check='N' then
  1010. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1011. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1012. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1013.  
  1014. wrtasdef[dte85, tas1]:=temptas1
  1015. wrtasdef[dte85,tas2]:=temptas2
  1016. dte85:=strnum[temphrs]
  1017. check:='Y'
  1018. dtecount:=dtecount+1
  1019. dtecount:=dtecount+dte85
  1020. endif"
  1021. "if dte86=0 and check='N' then
  1022. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1023. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1024. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1025.  
  1026. wrtasdef[dte86, tas1]:=temptas1
  1027. wrtasdef[dte86,tas2]:=temptas2
  1028. dte86:=strnum[temphrs]
  1029. check:='Y'
  1030. dtecount:=dtecount+1
  1031. dtecount:=dtecount+dte86
  1032. endif"
  1033. "if dte87=0 and check='N' then
  1034. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1035. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1036. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1037.  
  1038. wrtasdef[dte87, tas1]:=temptas1
  1039. wrtasdef[dte87,tas2]:=temptas2
  1040. dte87:=strnum[temphrs]
  1041. check:='Y'
  1042. dtecount:=dtecount+1
  1043. dtecount:=dtecount+dte87
  1044. endif"
  1045. "if dte88=0 and check='N' then
  1046. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1047. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1048. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1049.  
  1050. wrtasdef[dte88, tas1]:=temptas1
  1051. wrtasdef[dte88,tas2]:=temptas2
  1052. dte88:=strnum[temphrs]
  1053. check:='Y'
  1054. dtecount:=dtecount+1
  1055. dtecount:=dtecount+dte88
  1056. endif"
  1057. "if dte89=0 and check='N' then
  1058. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1059. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1060. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1061.  
  1062. wrtasdef[dte89, tas1]:=temptas1
  1063. wrtasdef[dte89,tas2]:=temptas2
  1064. dte89:=strnum[temphrs]
  1065. check:='Y'
  1066. dtecount:=dtecount+1
  1067. dtecount:=dtecount+dte89
  1068. endif"
  1069. "if dte90=0 and check='N' then
  1070. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1071. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1072. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1073.  
  1074. wrtasdef[dte90, tas1]:=temptas1
  1075. wrtasdef[dte90,tas2]:=temptas2
  1076. dte90:=strnum[temphrs]
  1077. check:='Y'
  1078. dtecount:=dtecount+1
  1079. dtecount:=dtecount+dte90
  1080. endif"
  1081. "if dte91=0 and check='N' then
  1082. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1083. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1084. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1085.  
  1086. wrtasdef[dte91, tas1]:=temptas1
  1087. wrtasdef[dte91,tas2]:=temptas2
  1088. dte91:=strnum[temphrs]
  1089. check:='Y'
  1090. dtecount:=dtecount+1
  1091. dtecount:=dtecount+dte91
  1092. endif"
  1093. "if dte92=0 and check='N' then
  1094. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1095. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1096. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1097.  
  1098. wrtasdef[dte92, tas1]:=temptas1
  1099. wrtasdef[dte92,tas2]:=temptas2
  1100. dte92:=strnum[temphrs]
  1101. check:='Y'
  1102. dtecount:=dtecount+1
  1103. dtecount:=dtecount+dte92
  1104. endif"
  1105. "if dte93=0 and check='N' then
  1106. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1107. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1108. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1109.  
  1110. wrtasdef[dte93, tas1]:=temptas1
  1111. wrtasdef[dte93,tas2]:=temptas2
  1112. dte93:=strnum[temphrs]
  1113. check:='Y'
  1114. dtecount:=dtecount+1
  1115. dtecount:=dtecount+dte93
  1116. endif"
  1117. "if dte94=0 and check='N' then
  1118. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1119. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1120. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1121.  
  1122. wrtasdef[dte94, tas1]:=temptas1
  1123. wrtasdef[dte94,tas2]:=temptas2
  1124. dte94:=strnum[temphrs]
  1125. check:='Y'
  1126. dtecount:=dtecount+1
  1127. dtecount:=dtecount+dte94
  1128. endif"
  1129. "if dte95=0 and check='N' then
  1130. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1131. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1132. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1133.  
  1134. wrtasdef[dte95, tas1]:=temptas1
  1135. wrtasdef[dte95,tas2]:=temptas2
  1136. dte95:=strnum[temphrs]
  1137. check:='Y'
  1138. dtecount:=dtecount+1
  1139. dtecount:=dtecount+dte95
  1140. endif"
  1141. "if dte96=0 and check='N' then
  1142. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1143. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1144. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1145.  
  1146. wrtasdef[dte96, tas1]:=temptas1
  1147. wrtasdef[dte96,tas2]:=temptas2
  1148. dte96:=strnum[temphrs]
  1149. check:='Y'
  1150. dtecount:=dtecount+1
  1151. dtecount:=dtecount+dte96
  1152. endif"
  1153. "if dte97=0 and check='N' then
  1154. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1155. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1156. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1157.  
  1158. wrtasdef[dte97, tas1]:=temptas1
  1159. wrtasdef[dte97,tas2]:=temptas2
  1160. dte97:=strnum[temphrs]
  1161. check:='Y'
  1162. dtecount:=dtecount+1
  1163. dtecount:=dtecount+dte97
  1164. endif"
  1165. "if dte98=0 and check='N' then
  1166. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1167. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1168. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1169.  
  1170. wrtasdef[dte98, tas1]:=temptas1
  1171. wrtasdef[dte98,tas2]:=temptas2
  1172. dte98:=strnum[temphrs]
  1173. check:='Y'
  1174. dtecount:=dtecount+1
  1175. dtecount:=dtecount+dte98
  1176. endif"
  1177. "if dte99=0 and check='N' then
  1178. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1179. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1180. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1181.  
  1182. wrtasdef[dte99, tas1]:=temptas1
  1183. wrtasdef[dte99,tas2]:=temptas2
  1184. dte99:=strnum[temphrs]
  1185. check:='Y'
  1186. dtecount:=dtecount+1
  1187. dtecount:=dtecount+dte99
  1188. endif"
  1189. "if dte100=0 and check='N' then
  1190. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1191. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1192. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1193.  
  1194. wrtasdef[dte100, tas1]:=temptas1
  1195. wrtasdef[dte100,tas2]:=temptas2
  1196. dte100:=strnum[temphrs]
  1197. check:='Y'
  1198. dtecount:=dtecount+1
  1199. dtecount:=dtecount+dte100
  1200. endif"
  1201. "if dte101=0 and check='N' then
  1202. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1203. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1204. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1205.  
  1206. wrtasdef[dte101, tas1]:=temptas1
  1207. wrtasdef[dte101,tas2]:=temptas2
  1208. dte101:=strnum[temphrs]
  1209. check:='Y'
  1210. dtecount:=dtecount+1
  1211. dtecount:=dtecount+dte101
  1212. endif"
  1213. "if dte102=0 and check='N' then
  1214. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1215. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1216. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1217.  
  1218. wrtasdef[dte102, tas1]:=temptas1
  1219. wrtasdef[dte102,tas2]:=temptas2
  1220. dte102:=strnum[temphrs]
  1221. check:='Y'
  1222. dtecount:=dtecount+1
  1223. dtecount:=dtecount+dte102
  1224. endif"
  1225. "if dte103=0 and check='N' then
  1226. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1227. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1228. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1229.  
  1230. wrtasdef[dte103, tas1]:=temptas1
  1231. wrtasdef[dte103,tas2]:=temptas2
  1232. dte103:=strnum[temphrs]
  1233. check:='Y'
  1234. dtecount:=dtecount+1
  1235. dtecount:=dtecount+dte103
  1236. endif"
  1237. "if dte104=0 and check='N' then
  1238. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1239. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1240. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1241.  
  1242. wrtasdef[dte104, tas1]:=temptas1
  1243. wrtasdef[dte104,tas2]:=temptas2
  1244. dte104:=strnum[temphrs]
  1245. check:='Y'
  1246. dtecount:=dtecount+1
  1247. dtecount:=dtecount+dte104
  1248. endif"
  1249. "if dte105=0 and check='N' then
  1250. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1251. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1252. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1253.  
  1254. wrtasdef[dte105, tas1]:=temptas1
  1255. wrtasdef[dte105,tas2]:=temptas2
  1256. dte105:=strnum[temphrs]
  1257. check:='Y'
  1258. dtecount:=dtecount+1
  1259. dtecount:=dtecount+dte105
  1260. endif"
  1261. "if dte106=0 and check='N' then
  1262. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1263. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1264. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1265.  
  1266. wrtasdef[dte106, tas1]:=temptas1
  1267. wrtasdef[dte106,tas2]:=temptas2
  1268. dte106:=strnum[temphrs]
  1269. check:='Y'
  1270. dtecount:=dtecount+1
  1271. dtecount:=dtecount+dte106
  1272. endif"
  1273. "if dte107=0 and check='N' then
  1274. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1275. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1276. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1277.  
  1278. wrtasdef[dte107, tas1]:=temptas1
  1279. wrtasdef[dte107,tas2]:=temptas2
  1280. dte107:=strnum[temphrs]
  1281. check:='Y'
  1282. dtecount:=dtecount+1
  1283. dtecount:=dtecount+dte107
  1284. endif"
  1285. "if dte108=0 and check='N' then
  1286. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1287. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1288. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1289.  
  1290. wrtasdef[dte108, tas1]:=temptas1
  1291. wrtasdef[dte108,tas2]:=temptas2
  1292. dte108:=strnum[temphrs]
  1293. check:='Y'
  1294. dtecount:=dtecount+1
  1295. dtecount:=dtecount+dte108
  1296. endif"
  1297. "if dte109=0 and check='N' then
  1298. temphrs:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, hours, 'daycount=dtecheck']
  1299. temptas1:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas1, 'daycount=dtecheck']
  1300. temptas2:=ANYSTRFLDWHERE[datestr[wrdate,yyyymmdd]+empref,dterecalc, tas2, 'daycount=dtecheck']
  1301.  
  1302. wrtasdef[dte109, tas1]:=temptas1
  1303. wrtasdef[dte109,tas2]:=temptas2
  1304. dte109:=strnum[temphrs]
  1305. check:='Y'
  1306. dtecount:=dtecount+1
  1307. dtecount:=dtecount+dte109
  1308. endif"
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!