home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / ZAKL.EXE / S137.FXP (.txt) < prev    next >
Encoding:
MS Visual FoxPro App  |  1999-04-14  |  10.2 KB  |  238 lines
  1. H_Zmena
  2. Hromadn
  3. ny technologick
  4. ch postup
  5. /operac
  6. RIIS 1.3
  7. Postup
  8. m1_Normy.Postup
  9. m1_Normy.Postup
  10. m1_Normy.Oper
  11. m1_Normy.Oper
  12. m1_Normy.DOp
  13. m1_Normy.DOp
  14. m1_Normy.Prac
  15. m1_Normy.Prac
  16. m1_Normy.PTr
  17. m1_Normy.PTr
  18.   NH/tis
  19. str(m1_Normy.NH_Tis,8,2)
  20. m1_Normy.NH_Tis
  21. str(m1_Normy.TBc,4)
  22. m1_Normy.TBc
  23.       TAC
  24. iif(Kooperace(m1_Normy.DOp),           str(m1_Normy.Kooperace,10,4), str(m1_Normy.TAc,10,4))
  25. iif(Kooperace(m1_Normy.DOp),           str(m1_Normy.Kooperace,10,4), str(m1_Normy.TAc,10,4))
  26. zev oper.
  27. m1_Normy.Nazev_Op
  28. m1_Normy.Nazev_Op
  29. Kusy/h
  30. m1_Normy.NC
  31. m1_Normy.NC
  32. m1_Normy.Norm+' '
  33. m1_Normy.Norm
  34. edpis
  35. m1_Normy.Predpis
  36. m1_Normy.Predpis
  37. zev postupu
  38. m1_Hlava.Nazev
  39. m1_Hlava.Nazev
  40. m1_Hlava.Rada
  41. m1_Hlava.Rada
  42. m1_Hlava.KStr
  43. m1_Hlava.KStr
  44. Autor
  45. m1_Normy.Autor
  46. m1_Normy.Autor
  47. Aktual
  48. m1_Normy.Aktual
  49. m1_Normy.Aktual
  50. Datum akt.
  51. tran(m1_Normy.Dat_Akt,'@E')
  52. m1_Normy.Dat_Akt
  53. Vz.post.
  54. m1_Hlava.Typ_Postup
  55. m1_Hlava.Typ_Postup
  56. str(m1_Hlava.PocOp,4)+' '
  57. m1_Hlava.PocOp
  58. str(m1_Normy.KcsBc,10,4)
  59. m1_Normy.KcsBc
  60.     K
  61. str(m1_Normy.KcsAc,10,4)
  62. m1_Normy.KcsAc
  63.  Nmin-celk
  64. str(m1_Normy.TAc+m1_Normy.TBc,10,4)
  65. (m1_Normy.TAc+m1_Normy.TBc)
  66. -celkem
  67. str(m1_Normy.KcsAc+m1_Normy.KcsBc,10,4)
  68. (m1_Normy.KcsAc+m1_Normy.KcsBc)
  69. m1_Normy.Kod_Mat
  70. m1_Normy.Kod_Mat
  71. d op.
  72. m1_Normy.Kod_Oper+'    '
  73. m1_Normy.Kod_Oper
  74. m1_Normy.Typ_Oper+' '
  75. m1_Normy.Kod_Oper
  76. Zmetky %
  77. str(m1_Normy.Zmetky,8,2)
  78. m1_Normy.Zmetky
  79. D_KOOP
  80. POM_PKON
  81. POM_NH
  82. OPPOM_CKC
  83. POLEX
  84. LPROCX
  85. CLEFT
  86. NCRIGHT
  87. FREEZE
  88. ORDER
  89. STINA
  90. PRAVA
  91. NADPIS
  92. NZAHL
  93. JMENO
  94. ADRPSOUC
  95. LORTITLE
  96. NTITLECOLORPOC0
  97. LORF2
  98. #$%F3
  99. ghi&F4
  100. +,lnoswF6
  101. F0PRG
  102. 34F1ON
  103. :;F1PRG
  104. ?F4_JM
  105. F4PRG
  106. MTISKPRG
  107. F7_JM
  108. F7PRG
  109. wF9PRG
  110. F9KEY
  111. F9KEY1
  112. owxF10_JM
  113. F10PRG
  114. RAMECEK
  115. NAZEVT
  116. KLICO
  117. KLNAZ
  118. &SPACEBAR
  119. LTR_HL1
  120. ORTR_HL2
  121. VETR_HL3
  122. TR_HL4
  123. LOTR_HL5
  124. TR_HL6
  125. RTR_HL7
  126. HOTR_HL8
  127. ETR_HL9
  128. EDET_JM
  129. UPENTER
  130. ADETAIL
  131. STDETPRG
  132. PS_LINE
  133. PRPS_RETURN
  134. PS_ZAZN
  135. PROTEVRI
  136. OBM1_NORMY
  137. SMOD_PSV
  138. m_Param
  139. m1_HZ
  140. x1_HZ
  141. use &pom_NazAdr\m1_Hlava order Postup  alias m1_Hlava
  142. use &pom_NazAdr\m1_Normy order Operace alias m1_Normy
  143. M_PARAM
  144. D_KOOP
  145. DILNA_KOOPPOM_PKON
  146. POLE1
  147. LPOM_CKC
  148. POM_NH
  149. M1_HZ
  150. X1_HZ
  151. m1_Hlava.Kstr
  152. obs pict '9999'
  153. m1_Hlava.kstr
  154. zev postupu
  155. m1_Hlava.Nazev
  156. obs pict '@!'
  157. m1_Hlava.Nazev
  158. m1_Hlava.Rada+space(3)
  159. obs pict '9999'
  160. m1_Hlava.Rada
  161. Autor
  162. m1_Hlava.Autor
  163. obs pict '@! XXXXXXXXX'
  164. m1_Hlava.Autor
  165. Vz.post.
  166. tran(m1_Hlava.Typ_Postup,'999999999999')
  167. obs pict '999999999999'
  168. m1_Hlava.Typ_Postup
  169. m1_Normy.DOp
  170. obs pict '9999'
  171. m1_Normy.DOp
  172. m1_Normy.Prac
  173. obs pict '999999'
  174. m1_Normy.Prac
  175. zev oper.
  176. m1_Normy.Nazev_Op
  177. obs pict '@!'
  178. m1_Normy.Nazev_Op
  179. m1_Normy.PTr
  180. obs pict '@! XX'
  181. m1_Normy.PTr
  182. m1_Normy.Norm+' '
  183. obs pict '999'
  184. m1_Normy.Norm
  185. edpis
  186. m1_Normy.Predpis
  187. obs pict '@! XXXXXXXXXX'
  188. m1_Normy.Predpis
  189. dalsi
  190. konec
  191. na polo
  192. ......
  193. @ pom_R1,pom_Sl get &prom
  194. @ pom_R1,pom_Sl say &prom
  195. .................
  196.  with 
  197. STOP - d
  198. lku podm
  199. nky ji
  200.  nelze zv
  201. ovat !
  202.  Ukon
  203. Potvr
  204. repl &pom_Podm
  205. POM_PODM
  206. POM_R1
  207. POM_R2
  208. OOPPOM_SL
  209. POM_ODDEL
  210. M_CKC
  211. POLEX
  212. XOPER
  213. NXVYBER
  214. JMENO
  215. NOBSAH
  216. LOGIC
  217. M1_NORMY
  218. RMOD_SYS
  219. AKTUAL
  220. NMM_AUTOR
  221. RDAT_AKT
  222. M1_HLAVA
  223. DATUM
  224. RURCENI
  225. %PS_RETURN
  226. PALVF
  227. POM_DOP
  228. OPER_NE
  229. ID_ORG
  230. OPMKOOP
  231. D_KOOP
  232. OTEVRI
  233. H_ZMENA
  234. KOOPERACE
  235. P:\IN\SK\
  236. S137.FXP
  237. P:\IN\SK\S137.PRG
  238.