home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 04 / MOD49A.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-03-23  |  25KB  |  639 lines
  1.  e h l e d     p o l o 
  2.  e k   pro rezervaci z
  3. RIIS 1.6
  4. Rezervace
  5. rez_pol
  6. mod49a
  7.  Zadejte identifikaci polo
  8. m_param
  9. m1_ident
  10. ident
  11. m_dat
  12. x_dat
  13. m_cis1
  14. x_cis1
  15. m1_zas
  16. x1_zas
  17. m1_um
  18. ident
  19. v4_sklad
  20. x4_sklad
  21. m1_rez
  22. ident
  23. m2_por
  24. objednavka
  25. m4_organ
  26. Identifikace
  27. ident
  28. ident
  29. nazev
  30. nazev
  31. m1_ident.kod_pol
  32. m1_ident.kod_pol
  33.    Rezervace
  34. str(m1_zas.rezervace,12,3)
  35. m1_zas.rezervace
  36.       Z
  37. str(m1_zas.zasoba,12,3)
  38. m1_zas.zasoba
  39. Jakost 
  40. jak_csn
  41. jak_csn
  42. rozm_csn
  43. rozm.csn
  44. aPOLEX
  45. vPROCX
  46. tRTOP
  47. CLEFT
  48. CRIGHT
  49. avnFREEZE
  50. e(9ORDER
  51. ct 0HOR
  52.  m_hesDOL
  53. der uzLEVA
  54.  selePRAVA
  55. NADPIS
  56.  c1ZAHL
  57. pravnJMENO
  58.  if HODN
  59.  SOUC
  60. o hlaPSOUC
  61. h 'OTITLE
  62. + alTITLECOLORPOC0
  63. avnenF0
  64.  ' neexF1
  65. je v seF2
  66. ivaF3
  67.  syst
  68.       qF6
  69.      F7
  70. use in F10
  71.   F0PRG
  72. ect F1ON
  73.    F1PRG
  74. F4_JM
  75.  F4PRG
  76. n m_TISKPRG
  77.  sF7_JM
  78. 1_reF7PRG
  79. *F9PRG
  80. zervF9KEY
  81.    aF9KEY1
  82.   qF10_JM
  83.  doF10PRG
  84. witRAMECEK
  85.  rRIIS
  86.  NAZEVT
  87. KLICO
  88. KLNAZ
  89. *SPACEBAR
  90. vTR_HL1
  91. TR_HL2
  92. TR_HL3
  93. TR_HL4
  94. askTR_HL5
  95. RezTR_HL6
  96. TR_HL7
  97. TR_HL8
  98.  vTR_HL9
  99. sDET_JM
  100.  reENTER
  101. ndifDETAIL
  102. if DETPRG
  103.   sPS_LINE
  104. PS_RETURN
  105. PS_ZAZN
  106. = TERMINTT
  107. nM_PARAM
  108. _kPOLE2
  109. dM1_IDENT
  110. eIDENT
  111.  strM_DAT
  112. i,3)X_DAT
  113. M_CIS1
  114. sX_CIS1
  115. if M1_ZAS
  116. =skX1_ZAS
  117. t+oM1_UM
  118. ka +V4_SKLAD
  119. dX4_SKLAD
  120.  M1_REZ
  121. oc+REZERVACE
  122. VYDANO
  123. scaM2_POR
  124. st_OBJEDNAVKAM4_ORGAN
  125. if !eoI
  126.  MOD_PSV
  127. c1_rez+
  128. c1_rez
  129. c1_um+
  130. c1_um
  131. v4_sklad
  132. CelkZ
  133. c1_rez
  134. ps_linef
  135. OBR_REZ
  136. aM1_REZ
  137. vM1_IDENT
  138. tIDENT
  139. C1_REZ
  140. M1_UM
  141. C1_UM
  142. nZASOBA
  143. 9CELKZ
  144. t 0SKLAD
  145. _hesV4_SKLAD
  146. zREZERV
  147. eleNZAS
  148. AUTOR
  149. 1MM_AUTOR
  150. nAKTUAL
  151. if DAT_AKT
  152.  ZMENA
  153.  hlaZMEN_ZAZ
  154. OPS_LINE
  155. set color to b/w
  156. set color to bg/n
  157. set color to w+/bg
  158. set color to b/bg,w+/rb
  159. set color to w+/b
  160. set color to w+/w
  161. set color to w/n
  162. ST_SKLAD
  163. IDENT
  164. t 0POCET
  165. _hesKONEC
  166. zPOMOC
  167. eleKONTROLA
  168. P_ZOB
  169. if BARVA
  170.  MHOD
  171.  hlaMNAZ
  172. OBARVAS
  173. lBARVAR
  174. RBARVAZ
  175. nenBARVAU
  176. eexBARVAN
  177.  seBARVANS
  178. vaBARVAH
  179.      HLAVA
  180.   MENU
  181. e in ZMENY
  182. &barvaz
  183.  Rezervace polo
  184. ky: F
  185.  Dostupn
  186. &barvan
  187. Objedn
  188.  Rezervov
  189.       Vyd
  190. Term.pot
  191. Autor
  192. Aktual.
  193. Dat.akt.
  194. WTEXT4
  195. aM1_IDENT
  196. vIDENT
  197. tWTEXT5
  198. &barvau
  199. _IDENT
  200. RADEK
  201. 99999999.999
  202. 99999999.999
  203. m2_Por
  204. aSKLAD
  205. vUMIST
  206. tKOD_REZ
  207. OBJEDNAVKAPORADI
  208. OPRAVNENI
  209. REZERVACE
  210. VYDANO
  211. t 0TERMINTT
  212. AM2_POR
  213. zTER_OV_TT
  214. TER_OV
  215. POZNAMKA
  216. 1AUTOR
  217. nAKTUAL
  218. if DAT_AKT
  219. &barvau
  220. sklad
  221. @ x,2  &vloz sklad pict '@!X'
  222. Nelze m
  223. nit, nejste autorem z
  224. znamu !
  225. umist
  226. @ x,7  &vloz umist pict '@!X'
  227. kod_rez
  228. @ x,12 &vloz kod_rez pict '!X'
  229. objednavka
  230. objednavka
  231. @ x,16 &vloz objednavka pict '@!X'
  232. poradi
  233. @ x,27 &vloz poradi pict '999'
  234. opravneni
  235. @ x,31 &vloz opravneni pict '@!X'
  236. rezervace
  237. @ x,41 &vloz rezervace pict '99999999.999'
  238. @ x+1,2 &vloz poznamka
  239. vNASTAV_Q
  240. D_REZ
  241. EDNAVKAP_ZOB
  242. ST_SKLAD
  243. SKLAD
  244. AUTOR
  245. 0MM_AUTOR
  246. APRIOR
  247. zHLASKA
  248. ZMENA_ZAZ
  249. ZNAMKA
  250. if Q4
  251.  MHOD
  252.  hlaOBJEDNAVKAMNAZ
  253. lDEJ_OBJED
  254. nenPORADI
  255. eexQ6
  256. _OBJED
  257. mZMEN_ZAZ
  258. qAKTUAL
  259.  DAT_AKT
  260.  RADEK
  261.  in X
  262.   ZMENA
  263. Funkci F10 nelze pou
  264. t, nejste autorem z
  265. znamu
  266. du F8 nelze pou
  267. t, nejste autorem z
  268. znamu
  269. Nelze smazat, nejste autorem z
  270. znamu
  271. it pr
  272. ci beze zm
  273. n? (a/N)
  274. TAV_Q
  275. EDNAVKAX1
  276. _SKLAD
  277. _AUTOR
  278. AKONEC
  279. A_ZAZ
  280. ZNAMKA
  281. nPROC1
  282. if ZMEN1
  283.  hlaAUTOR
  284. AVKAMM_AUTOR
  285. lPRIOR
  286. VOLBA
  287. nenHLASKA
  288. eexNAP_HOD
  289. P_ZOB
  290. mPOCET
  291. qKONTROLA
  292.  ZMEN_ZAZ
  293.  ZMENA
  294.  ULOZ
  295.  IDENT
  296.  M1_IDENT
  297.  AKTUAL
  298. DAT_AKT
  299. Nelze m
  300. nit, nejste autorem z
  301. znamu
  302. Sklad neexistuje
  303.  polo
  304. ka - nelze rezervovat na materi
  305. m sklad
  306. Materi
  307.  polo
  308. ka - nelze rezervovat na v
  309. m sklad
  310. KOD_REZ
  311. c1_rez.kod_rez
  312. Na po
  313.  objedn
  314. vky je jin
  315.  identifikace !
  316.  objedn
  317. vky mus
  318. t vypln
  319. m_heslo
  320. Osoba F
  321.  neexistuje v seznamu u
  322. ivatel
  323.  syst
  324. Nulov
  325.  rezervovan
  326. Rezervace nem
  327. t men
  328.  vydan
  329. Duplicita rezervace na sklad, um
  330. , objedn
  331. vku a po
  332. KONTROLA
  333. aZMEN_ZAZ
  334. vMM_AUTOR
  335. tAUTOR
  336. PRIOR
  337. AVKAHLASKA
  338. _SKLAD
  339. V4_SKLAD
  340. 0C1_REZ
  341. ASKLAD
  342. zM1_IDENT
  343. KOD_POL
  344. DRUH_SKL
  345. 1OK_C
  346. nJMENO_C
  347. f WJMENO_C
  348.  MOD_C2
  349. hlaMOD_C3
  350. MENO_C
  351. lM2_POR
  352. OBJEDNAVKAPORADI
  353. eexIDENT
  354. KOD_REZ
  355. vaOPRAVNENI
  356. M_HESLO
  357.  REZERVACE
  358. VYDANO
  359. ST_ZAZ
  360.  ST_KLIC
  361.  UMIST
  362. c1_rez
  363. ZMENA
  364. aC1_REZ
  365. vSKLAD
  366. tM1_REZ
  367. M1_IDENT
  368. AIDENT
  369. M1_ZAS
  370. REZERVACE
  371. M1_UM
  372. 0WHILE
  373. zUMIST
  374. V4_SKLAD
  375. UM_SKL
  376. 1TYP_UM
  377. nDRUH_SKL
  378.  VYDANO
  379. SKL_HLAVNISKL_HL_UM
  380. TYP_INV
  381. lZMEN_ZAZ
  382.               - 
  383. ,PgDn,PgUp
  384.               - ^PgUp,^PgDn
  385.               - F10
  386.               - ^Home
  387.       - ^End,Esc
  388. Pohyb
  389. Funkce
  390. Konec
  391. ehled sklad
  392.  mater. objedn
  393.  odbyt. objedn
  394. ehled u
  395. ivatel
  396.  Informace o um
  397.  Konec 
  398. mod_proc
  399. mod_proc
  400. mod_proc
  401. &barvau
  402. vW_SKLAD
  403. tC1_REZ
  404. SKLAD
  405. AZOBR_SKL
  406. MOD_PROC
  407. ZMENA
  408. ZOBR_IDOBJM1_IDENT
  409. IDENT
  410. POM_OBJED
  411. POM_PORAD
  412. ZOBR_OBJEDOBJEDNAVKAPORADI
  413. ZMEN_ZAZ
  414. DEJ_OBJED
  415. W_UZIV
  416. OPRAVNENI
  417. ZOBR_UZIV
  418. ZOBR_UM
  419. sklad
  420. umist
  421. mod_proc
  422. kod_rez
  423. KOD_REZ
  424. c1_rez.kod_rez
  425. rezervace
  426. mod_proc
  427. objednavka
  428. opravneni
  429. Pro toto pole neexistuje pomocn
  430. ehled hodnot
  431. P_ZOB
  432. aPOM_OBJED
  433. POM_PORAD
  434. POM_OBR
  435. W_SKLAD
  436. ASKLAD
  437. ZOBR_SKL
  438. MOD_PROC
  439. ZMENA
  440. 0ZMENA_ZAZ
  441. MOD_C3
  442. _IDENT
  443. ZOBR_UM
  444. M1_IDENT
  445. IDENT
  446. ZOBR_OBJEDC1_REZ
  447. OBJEDNAVKAPORADI
  448. ZMEN_ZAZ
  449. DEJ_OBJED
  450. W_UZIV
  451. OPRAVNENI
  452. ZOBR_UZIV
  453. HLASKA
  454. m_heslo
  455.  definov
  456. ivatel
  457. Pomocn
  458. ehled u
  459. ivatel
  460.  syst
  461. RIIS 6.2
  462. vyb_uziv
  463. mod49a
  464. ivatel
  465. jmeno
  466. jmeno
  467. poznamka
  468. poznamka
  469. W_UZIV
  470. aOBR_PROC
  471. M_HESLO
  472. HLASKA
  473. AC1_REZ
  474. POLEX
  475. PROCX
  476. 0RBOT
  477. CLEFT
  478. BJCRIGHT
  479. FREEZE
  480. ORDER
  481. _OBJEDLEVA
  482. PRAVA
  483. AVKANADPIS
  484. JMENO
  485. PSOUC
  486. TITLE
  487. TITLECOLORPOC0
  488. ERVACE
  489. VKAF9
  490. TROLA
  491. _F0PRG
  492. sF1ON
  493. 1_reF1PRG
  494. *F4_JM
  495. zervF4PRG
  496.    aTISKPRG
  497.  qF7_JM
  498.  doF7PRG
  499. witF9PRG
  500.  rF9KEY
  501.  F9KEY1
  502. F10_JM
  503. F10PRG
  504. *RAMECEK
  505. vRIIS
  506. NAZEVT
  507. KLICO
  508. KLNAZ
  509. askSPACEBAR
  510. zTR_HL1
  511. TR_HL2
  512. TR_HL3
  513.  vTR_HL4
  514. sTR_HL5
  515.  reTR_HL6
  516. difTR_HL7
  517. if TR_HL8
  518.   sTR_HL9
  519. DET_JM
  520. ENTER
  521. = DETAIL
  522. nDETPRG
  523. _kPS_LINE
  524. dPS_RETURN
  525. PS_ZAZN
  526. 3)MOD_PSV
  527. W_UZIV
  528. aUZIV
  529. datez
  530. ident
  531. c2_por
  532. c2_por
  533. znam ! 
  534. RIIS 1.6
  535. objednavka
  536. RIIS 1.6
  537. pom_Objed
  538. c2_por.objednavka
  539.  Nedododan
  540.  obj. pro polo
  541.  dle term
  542. nu OV 
  543. Objedn.z
  544. kaz. Po
  545. . Ks-po
  546. .Ks-pot. Ks-dod.Ter-OV   Z
  547. objednavka +' ' + rok_obj +' ' + str(poradi,3) + ' ' +     str(ks_pozad,6) + ' '+ str(ks_potvrz,6)+ ' '+ str(ks_dodane,6) +      ' ' + IIF (empty (ter_ov), space (10), tran(ter_ov,'@E'))      + ' ' + left (m4_organ.nazev_org, 26)
  548. mod_fun
  549. objednavka
  550. MALIAS
  551. AMDATE
  552. MOBRAZ
  553. MZAZP
  554. 0MZAZO
  555. BJM1_IDENT
  556. IDENT
  557. MOD_SYS
  558. M2_POR
  559. C2_POR
  560. JEDKS_POTVRZ
  561. KS_DODANE
  562. KOD_ADR_U
  563. TER_OV
  564. ROK_OBJ
  565. OBJEDNAVKAOV
  566. HLASKA
  567. ICO_URCENIZAV_URCENIM4_ORGAN
  568.  N_RIIS
  569. N_LMEZ
  570. N_PMEZ
  571.  N_HMEZ
  572.  N_DMEZ
  573.  N_PROM
  574. VKAN_HOD
  575. AN_POC
  576. _N_VYB
  577. sN_TEXT
  578. _reN_HLAV
  579. *N_RAD
  580. zervZOBR_NAP
  581. aMOD_FUN
  582.  qPOM_PORAD
  583. PORADI
  584. AUTOR
  585. aMM_AUTOR
  586. PRIOR
  587. BJPOCET
  588. colorz
  589. epsat pozn
  590. mku (a/N)
  591. Nelze rezervovat, ji
  592.  bylo expedov
  593. Nelze rezervovat, bylo stornov
  594. epsat pozn
  595. mku (a/N)
  596. POM_OBR
  597. aMMCOLOR
  598. POM_MNOZ
  599. C1_REZ
  600. AOBJEDNAVKAPORADI
  601. M2_POR
  602. POZNAMKA
  603. AM4_ORGAN
  604. ICO_URCENIZAV_URCENINAZEV_ORG
  605. STAV_POR
  606. HLASKA
  607. REZERVACE
  608. KS_POTVRZ
  609. MOD49A
  610. ****%
  611. REZ_POL
  612. AKTUAL
  613. HLAVA
  614. lect O
  615. PROC1
  616. k m1_
  617. RADEK
  618. ZMEN1
  619.    co
  620. ZMENY
  621. m whi
  622. KONTROLA
  623.    SE
  624. t, sum*7
  625. VOLBA
  626. AS za
  627. HLASKA
  628.    Fw>
  629. NAP_HOD
  630. TO W?
  631. ZOBR_UZIV
  632. VYB_UZIV
  633. ZOBR_OBJED
  634. NASTAV_Q
  635. DEJ_OBJED
  636. X:\OBEC\04\
  637. MOD49A.FXP
  638. X:\OBEC\04\MOD49A.PRG
  639.