home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 04 / MOD46D.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-12-09  |  11KB  |  324 lines
  1. KONEC
  2. && hMOD46D1X
  3. Zadejte 
  4. slo skladu:
  5. mod46d
  6. ehled  s k l a d 
  7. RIIS 4.6
  8. m_dat
  9. x_dat
  10. m_cis1
  11. x_cis1
  12. v4_skl_z
  13. x4_skl_z
  14. p_prist
  15. xp_prist
  16. v1_str
  17. x1_str
  18. m_param
  19. v4_sklad
  20. x4_sklad
  21. Sklad
  22. ' '+sklad
  23. sklad
  24. zev skladu
  25. nazev
  26. nazev
  27. '  '+druh_skl+' '
  28. druh_skl
  29. et pom
  30. ucet_pom+'  '
  31. ucet_pom
  32. POLEX
  33. && hRTOP
  34. 9    CLEFT
  35.   &&CRIGHT
  36. adeF1
  37. * ---F2
  38. --- oteF3
  39. i vsechF4
  40. abazi -F5
  41. -------F6
  42. close dF7
  43. selectF8
  44. use v1_F9
  45. index xF9KEY
  46. if rF10
  47.   PROCX
  48.  blaDETAIL
  49. RAMECEK
  50. uNAZEVT
  51. st RIIS
  52. xp_prNADPIS
  53. ectLEVA
  54. se m_PRAVA
  55. seleHOR
  56. ------M_DAT
  57. finiX_DAT
  58.  ---M_CIS1
  59. ---X_CIS1
  60. V4_SKL_Z
  61. hX4_SKL_Z
  62. pP_PRIST
  63. ahXP_PRIST
  64. uV1_STR
  65. no(X1_STR
  66. pubM_PARAM
  67. poV4_SKLAD
  68.  X4_SKLAD
  69.  ZAHL
  70. ni vsJMENO
  71. i --HODN
  72. ----I
  73. i =MOD_PSV
  74. colora
  75. set color to &color
  76. && hCOLOR
  77. 9    
  78. colora
  79. SET COLOR TO &col
  80. CMESS
  81. && hCOL
  82. KONEC
  83. && hMOD46D2X
  84. Zadejte 
  85. slo st
  86. ediska:
  87. zobr_akt
  88. mod46d
  89. ehled  s t 
  90.  e d i s e k
  91. RIIS 4.6
  92. v1_str
  93. x1_str
  94. p_prist
  95. xp_prist
  96. m_param
  97.  NSTR
  98. ' '+nstr
  99. zev st
  100. ediska
  101. nazev_str
  102. nazev_str
  103. hostr
  104. hostr
  105. '  '+zavod
  106. zavod
  107. '     '+ozn_cinn
  108. ozn_cinn
  109. Sk.v.
  110. '   '+skup_vypl
  111. skup_vypl
  112. Ozn.sp.
  113. '    '+ozn_sp
  114. ozn_sp
  115. et HK
  116. ' '+ucet_hk
  117. ucet_hk
  118. AU-pom
  119. au_pom
  120. au_pom
  121. ' '+str(rezie_vyr,6,1)
  122. rezie_vyr
  123. ' '+str(rezie_spr,6,1)
  124. rezie_spr
  125. ' '+str(rezie_zas,6,1)
  126. rezie_zas
  127. ' '+str(rezie_odb,6,1)
  128. rezie_odb
  129.     OPM
  130. ' '+str(opm,6,1)
  131.     OPN
  132. ' '+str(opn,6,1)
  133.  % PSM
  134. '   '+str(proc_psm,6,2)
  135. proc_psm
  136.     Bankovn
  137. '   '+str(b_ucet_1,16)
  138. b_ucet_1
  139.     Bankovn
  140. '   '+str(b_ucet_2,16)
  141. b_ucet_2
  142.     Bankovn
  143. '   '+str(b_ucet_3,16)
  144. b_ucet_3
  145. et vn. banky-1
  146. '  '+str(vnb_u1,16)
  147. vnb_u1
  148. et vn. banky-2
  149. '  '+str(vnb_u2,16)
  150. vnb_u2
  151. et vn. banky-3
  152. '  '+str(vnb_u3,16)
  153. vnb_u3
  154.    Stav
  155. '     '+stav_nstr
  156. stav_nstr
  157. POLEX
  158. && hRTOP
  159.     CLEFT
  160.   &&CRIGHT
  161. adeFREEZE
  162. ---F1
  163. --- oteF2
  164. i vsechF3
  165. abazi -F4
  166. -------F5
  167. close dF6
  168. selectF7
  169. use v1_F8
  170. index xF9
  171. if rF9KEY
  172.   F10
  173.  blaF10_JM
  174. F10PRG
  175. uPROCX
  176. st DETAIL
  177. _prRAMECEK
  178. ctNAZEVT
  179.  m_RIIS
  180. seleNADPIS
  181. -----PRAVA
  182. finiHOR
  183.  ---DOL
  184. ---V1_STR
  185. X1_STR
  186. hP_PRIST
  187. pXP_PRIST
  188. hM_PARAM
  189. uZAHL
  190. no(OBSAH
  191. pubJMENO
  192. poHODN
  193.  MOD_PSV
  194. set color to b/w
  195. set color to bg/n
  196. set color to w+/w
  197. set color to b/bg,w+/rb
  198. set color to w+/b
  199. set color to w/n
  200. RIIS 1.1
  201. Nebylo vlo
  202. eno st
  203. edisko
  204. Jste na prvn
  205. Jste na posledn
  206. set procedure to &ctiskproc
  207. do &f4prg
  208. set procedure to &cselfproc
  209. mod_psv
  210. PS_RETURN
  211. BARVAS
  212. BARVAR
  213.    BARVAZ
  214.  &&BARVAU
  215. adeBARVAN
  216. ---BARVAH
  217. otePORADI
  218. echF1
  219. abazi -F6
  220. -------HELP
  221. ose dUK
  222. electHMEZ
  223. e v1_DMEZ
  224. dex xLMEZ
  225. if rPMEZ
  226.  blaKLIC
  227. M_SCR
  228. st RAD
  229. _prSTREC
  230. ctBARVA
  231.  m_TXT
  232. seleHLASKA
  233. Z_AKT
  234. ----F9
  235. iniF8
  236.  ---F7
  237. ---F5
  238. hCTISKPROC
  239. CSELFPROC
  240. no(TRIDENI
  241. poOBR_V
  242.  VYBER
  243.  MOD_PSV
  244. vsNEXIT
  245. &barvaz
  246. &barvas
  247. &barvaz
  248. kladov
  249. edisko :
  250. zev st
  251. ediska     :
  252. Hospod
  253. vod     :
  254. innosti:
  255. Skupina v
  256. plat    :
  257. . SP :
  258. et hlavn
  259.  knihy :
  260. AU pom.   :
  261. Stav st
  262. ediska :
  263. Vyrobn
  264. ie     :
  265. ie     :
  266. sobovac
  267. ie  :
  268. Odbytov
  269. ie    :
  270. Ost. p
  271.  mzdy   :
  272. Ost. p
  273. kl.  :
  274. ka   :
  275. Bankovn
  276. et 1   :
  277. Bankovn
  278. et 2   :
  279. Bankovn
  280. et 3   :
  281. et vnitrobanky 1:
  282. et vnitrobanky 2:
  283. et vnitrobanky 3:
  284. 9999.9
  285. 9999.9
  286. 9999.9
  287. 9999.9
  288. 9999.9
  289. 9999.9
  290. 999.99
  291. NAZEV_STR
  292. HOSTR
  293.    ZAVOD
  294.  &&OZN_CINN
  295. eSKUP_VYPL
  296. OZN_SP
  297. oteUCET_HK
  298. chAU_POM
  299. i -STAV_NSTR
  300. REZIE_VYR
  301. REZIE_SPR
  302. REZIE_ZAS
  303. REZIE_ODB
  304. if rOPN
  305.   PROC_PSM
  306. aB_UCET_1
  307. B_UCET_2
  308. uB_UCET_3
  309.  VNB_U1
  310. _prVNB_U2
  311. ctVNB_U3
  312.  m_MOD46D
  313. MOD46D1
  314. MOD46D1X
  315. HLASKA
  316. MOD46D2
  317. MOD46D2X
  318. ZOBR_AKT
  319. PORADI
  320. Z_AKT
  321. C:\OBEC\04\
  322. MOD46D.FXP
  323. C:\OBEC\04\MOD46D.PRG
  324.