home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 05 / MOD54F.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-09-10  |  29KB  |  776 lines
  1. m_param
  2. v4_skl_z
  3. x4_skl_z
  4. m1_obr
  5. sklad
  6. c_tiskv
  7. m1_ident
  8. soucasti
  9. m1_zas
  10. x1_zas
  11. m1_um
  12. ident
  13. v4_sklad
  14. x4_sklad
  15. m_dat
  16. x_dat
  17. m_cis1
  18. x_cis1
  19. m1_kalk
  20. x1_kalk
  21. v1_str
  22. x1_str
  23. v4_skl_z
  24. x4_skl_z
  25. c_tiskv
  26. m1_plan
  27. x1_plan
  28. M5_AKT.DBF2
  29. m5_akt
  30. ident
  31. m7_rene.DBF2
  32. m7_rene
  33. set color to b/w
  34. set color to bg/n
  35. set color to w+/w
  36. set color to w+/bg
  37. set color to b/bg,w+/rb
  38. set color to w+/b
  39. set color to w/n
  40.  d e j   s k l a d u :
  41. RIIS 4.2
  42. &barvau
  43. @!R XXXX
  44. mod_proc
  45. Sklad neexistuje
  46. mod_proc
  47. Nelze prov
  48. dej z jin
  49. ho ne
  50. ho skladu
  51. Pro zadan
  52.  sklad nem
  53. te opr
  54. mod_proc
  55. RIIS 5.4
  56. &barvau
  57.  doklad 
  58.  sklad 
  59. vrat 
  60.  Konec 
  61. &barvau
  62. &barvau
  63. eadkeANSI
  64.   M_PARAM
  65.  rW_POLE1
  66. rePOLE1
  67.     W_POLE4
  68.   POLE4
  69.   rePOM
  70.  screeTER_UZAV
  71.  W_ROK
  72. eW_MESIC
  73. 'AV4_SKL_Z
  74.  X4_SKL_Z
  75. ePRIHLAS
  76.   W_SKLAD1
  77. eSKLAD
  78.     M1_OBR
  79.  doC_TISKV
  80. itM1_IDENT
  81. pSOUCASTI
  82. M1_ZAS
  83.  obX1_ZAS
  84. e uM1_UM
  85.    IDENT
  86.   enV4_SKLAD
  87.  X4_SKLAD
  88.  M_DAT
  89. X_DAT
  90.   saM_CIS1
  91. X_CIS1
  92.  poM1_KALK
  93.   X1_KALK
  94. t V1_STR
  95.  w+X1_STR
  96.  M1_PLAN
  97. 1X1_PLAN
  98. r M5_AKT
  99.  M7_RENE
  100.  to 15,Q1
  101. ouble
  102.      @ Q3
  103. 4 say 'Q4
  104. it pr
  105. eze zm
  106. a/N)'
  107.      @ Q8
  108. 5 get pQ9
  109. ict '!XQ10
  110.       POCET2
  111. sorPOC_ZAZ
  112.   ZOBR_ZAZ
  113.  RADEK
  114. set Q_CENA
  115. INDIK
  116.    sP_ZOB
  117. r toHOR
  118. ,w+/rbDOL
  119.       POCET
  120. key(DOP1
  121. r reaDOP2
  122.       COUNT
  123. re sCENA_NOV
  124.   else
  125.       SL
  126. tore scPOC
  127.      KONTROLA
  128. uEXISTUJE
  129. =BARVAS
  130.    BARVAR
  131.   kBARVAT
  132. BARVAZ
  133.    BARVAU
  134.    BARVAN
  135.    BARVAH
  136. ratZOBR_SKL
  137.  MOD_PROC
  138. kW_NAZEV_SKNAZEV
  139.     HLASKA
  140.    DRUH_SKL
  141. fMOD_SYS
  142.  W_TYP1
  143. ndiBARVA
  144.  W_DOKLAD
  145. W_KOD_OB
  146. nW_TERMIN
  147.  HLAV1
  148.    MENU
  149. ONEC W_SKUT_MN
  150. W_ZASOBA
  151. *W_IDENT
  152. W_UM1
  153.  i=2W_SKLAD2
  154. iW_UM2
  155. * W_TYP2
  156. o hW_STRED
  157. h W_ID_ZAK
  158. nW_CPOL
  159.  pW_ID_VYS
  160. aW_POPIS
  161. loW_NAZEV
  162.   W_MJ
  163. nec =HLAV2
  164.     KONEC
  165.  do k_X
  166.  if koZ
  167. a = 'oU
  168.       &&T
  169. ntrola pQ
  170. ehla v pA
  171.    ZMENY
  172.   koVOL11
  173.   OBR1
  174.  endiM
  175.       enW_MENA
  176. &barvau
  177. &barvas
  178. &barvaz
  179. &barvar
  180. &barvaz
  181. &barvat
  182. dejka 
  183. Druh p.
  184. &barvau
  185. eadkeW_NAZEV_SK3
  186. &barvas
  187. &barvau
  188. &barvar
  189. &barvaz
  190. &barvat
  191. &barvan
  192.     Mno
  193. Rozpiska
  194.       Z
  195. Sklad-2
  196. &barvau
  197. eadkep
  198. &barvau
  199. &barvas
  200. &barvau
  201. eadkeW_DOKLAD
  202. KW_KOD_OB
  203. &barvas
  204. &barvau
  205. 99999999.999
  206. &barvau
  207. eadkeR
  208. DOKLAD
  209. KW_IDENT
  210. KM1_IDENT
  211. eW_NAZEV
  212.  NAZEV
  213.   W_MJ
  214.   reMJ
  215.  screeM1_OBR
  216.  W_SKUT_MN
  217. W_STRED
  218. 'AW_ID_ZAK
  219.  W_ID_VYS
  220. eW_UM1
  221.   W_POPIS
  222. eW_SKLAD2
  223.  W_UM2
  224.  doW_TYP2
  225. &barvau
  226. w_doklad
  227. @ 4,14  &vloz w_doklad pict '999999'
  228. w_kod_ob
  229. @ 4,30  &vloz w_kod_ob pict '@!X'
  230. eadkeQ
  231. DOKLAD
  232. KPOCET1
  233. eP_ZOB
  234.  C_TISKV
  235.   M1_OBR
  236. &barvau
  237. w_ident
  238. @ x,2  &vloz w_ident pict '@!X'
  239. ka neexistuje
  240. Nelze vyd
  241. vat jin
  242.  polo
  243. ky ne
  244. w_skut_mn
  245. @ x,15 &vloz w_skut_mn pict '99999999.999'
  246. w_stred
  247. @ x,28 &vloz w_stred pict '@!X'
  248. w_id_zak
  249. @ x,33 &vloz w_id_zak pict '@!X'
  250. w_id_vys
  251. @ x,44 &vloz w_id_vys pict '@!X'
  252. w_um1
  253. @ x,57 &vloz w_um1 pict '@!X'
  254. w_popis
  255. @ x,62 &vloz w_popis pict '@!X'
  256. w_sklad2
  257. @ x+1,44 &vloz w_sklad2 pict '@!X'
  258. w_um2
  259. @ x+1,49 &vloz w_um2  pict '@!X'
  260. @ x+1,54 &vloz w_typ2 pict '!X'
  261. eadkeQ
  262. DOKLAD
  263. KPOCET2
  264. eP_ZOB
  265.  M1_IDENT
  266. _IDENT
  267. eW_IDENT
  268.  HLASKA
  269. KOD_POL
  270. 'AW_MJ
  271. D_VYS
  272. eW_NAZEV
  273.   NAZEV
  274. eM1_OBR
  275.  PROC2
  276.  doQ2
  277.  obQ6
  278. e uQ7
  279.    Q8
  280.   enV4_SKLAD
  281.  W_SKLAD2
  282.  W_TYP2
  283. DRUH_SKL
  284. aW_SKLAD1
  285.  poQ10
  286. do proc&n
  287. do zmen&n with 'get'
  288. do zmen&n with 'say'
  289. &barvau
  290. if q<pocet&n      
  291. it pr
  292. ci beze zm
  293. n? (a/N)
  294.  vypln
  295. , obrat nelze ulo
  296. it pr
  297. ci beze zm
  298. n? (a/N)
  299. KONEC
  300. adkeN
  301. DOKLAD
  302. ePOCET1
  303.  W_KOD_OB
  304. IDENT
  305. ePODNIK
  306. eePOCET2
  307. D_VYS
  308.  W_SKLAD2
  309. oW_UM2
  310. itW_TYP2
  311. pW_STRED
  312.    DOL
  313.   enT
  314. UH_SKL
  315.  poOBR1
  316. t VOLBA
  317.  w+NAP_HOD
  318.  P_ZOB
  319. 1DALE
  320. r K_HLAVA
  321.  W_SKUT_MN
  322. W_IDENT
  323. 5,W_ID_ZAK
  324. W_CPOL
  325.  @ W_UM1
  326. ay 'W_MJ
  327. W_POPIS
  328. W_NAZEV
  329.      @ HLAV1
  330. et pHLAV2
  331.  '!XPROC1
  332.     MENU
  333. sorK_OBRATU
  334.  KONTROLA
  335.  W_CENA
  336. W_CENA_CELRADEK
  337.  sPOC_ZAZ
  338. toPOM
  339. +/rbHLASKA
  340. colorz
  341. set color to &Mcolor
  342. adkeMCOLOR
  343. KMOBR
  344. slo v
  345. dejky mus
  346. t vypln
  347. KOD_OB    
  348. w_kod_ob
  349. Lze zad
  350. vat pouze v
  351. dejov
  352. dy obrat
  353. KONTROLA
  354. eW_DOKLAD
  355.  HLASKA
  356. eeJMENO_C
  357.  WJMENO_C
  358. MOD_C2
  359. 'AOK_C
  360.  RADEK_C
  361. eSLOUPEC_C
  362. MOD_C1
  363. eW_KOD_OB
  364. ka neexistuje
  365. Nelze vyd
  366. vat jin
  367.  polo
  368. ky ne
  369. Pro tuto polo
  370. ku nebyla nalezena platn
  371.  cena
  372. Lze nav
  373. t pouze v
  374. dej a p
  375. KONTROLA
  376. eM1_IDENT
  377. KW_IDENT
  378. KHLASKA
  379.  KOD_POL
  380. eW_POLE4
  381. eeM1_KALK
  382.  PL_OD
  383. TYP_NAKL
  384. AIDENT
  385.  W_NAKLAD
  386. eOK_C
  387. eW_KOD_OB
  388.  KONTR_VR
  389. oKONTR_TR
  390. J.PORKERT
  391. Hromadn
  392.  polo
  393. ka - k
  394. d obratu nelze pou
  395. Hodnota mno
  396. t vypln
  397. FPSABCOJKG
  398. edisko mus
  399. t uvedeno
  400. FPSABCOJKG
  401. edisko neexistuje v souboru st
  402. edisek
  403. zka mus
  404. t uvedena
  405. m7_rene
  406. VP neexistuje v souboru M7_RENE
  407. Nesoulad st
  408. ediska v souboru M7_RENE
  409. Nesoulad identifikace polo
  410. ky v souboru M7_RENE
  411. zka neexistuje v souboru M7_RENE
  412. Nedostate
  413. soba na um
  414. W_KOD_OB
  415. ePODNIK
  416. KM1_PLAN
  417. KW_IDENT
  418. eKUM_VYDEJ
  419. HLASKA
  420. D_POL
  421. POLE4
  422. eeM1_OBR
  423.  W_SKUT_MN
  424. AM1_IDENT
  425.  KOD_POL
  426. eW_STRED
  427. W_POLE1
  428. eV1_STR
  429.  W_POLE42
  430. oW_POLE4
  431. tW_ID_ZAK
  432. pM7_RENE
  433. STRED
  434. bIDENT
  435.  uM1_UM
  436.   W_SKLAD1
  437. nW_UM1
  438.  W_TYP1
  439.  ZASOBA
  440. INDIK
  441. LOCK_ZAS
  442. VYDEJ
  443. M1_ZAS
  444. DATUM_VYD
  445. ZAPIS_OBR
  446. KONTROLA
  447. novan
  448. esun nen
  449.  povolen
  450. Hodnota skute
  451. ho mno
  452. Sklad mus
  453. t uveden
  454. Sklad neexistuje
  455. esun na tento druh skladu nelze prov
  456. st (F
  457. Nedostate
  458. soba na um
  459. Prove
  460. te kondenzaci datab
  461. ze M1_UM, informujte firmu SoWA
  462. znam 
  463.  o um
  464. sob (SKLAD1) nen
  465. stupn
  466. Prove
  467. te kondenzaci datab
  468. ze M1_UM, informujte firmu SoWA
  469. m1_um
  470. znam 
  471.  o um
  472. sob (SKLAD2) nen
  473. stupn
  474. W_KOD_OB
  475. KHLASKA
  476. M_VYDEJ
  477. W_SKUT_MN
  478. W_SKLAD2
  479. eV4_SKLAD
  480. eM1_OBR
  481.  DRUH_SKL
  482. M1_UM
  483. AW_IDENT
  484.  W_SKLAD1
  485. eW_UM1
  486. W_TYP1
  487. eZASOBA
  488.  IDENT
  489. SKLAD
  490. tUM_SKL
  491. pTYP_UM
  492. W_UM2
  493. bW_TYP2
  494.  uPRESUN
  495. ZAPIS_OBR
  496. KONTROLA
  497. m1_obr
  498. c_tiskv
  499. 99999999.999
  500. M1_OBR
  501. eIDENT
  502. KTERMIN_OB
  503. KOD_OB
  504. eSKUT_MNOZ
  505. VYDAL_SKL
  506. VYD_UM_SKLTYP_UM_V
  507. ePRIJAL_SKLPRI_UM_SKLTYP_UM_P
  508. APOPIS_OBR
  509. STRED_OBR
  510. DOKL_CIS
  511. IDENT_ZAK
  512.  IDENT_VYS
  513. ZASOBA
  514. tNAKLAD
  515. pJMENO
  516. bMESIC
  517.  uW_IDENT
  518. W_TERMIN
  519. W_KOD_OB
  520.  W_SKUT_MN
  521. W_SKLAD1
  522. W_UM1
  523. W_TYP1
  524. W_SKLAD2
  525. W_UM2
  526. W_TYP2
  527. W_POPIS
  528. W_STRED
  529.  W_DOKLAD
  530. 1W_ID_ZAK
  531.  W_CPOL
  532.  W_ID_VYS
  533. M1_UM
  534. 5,W_NAKLAD
  535. MM_AUTOR
  536.  W_ROK
  537. ay 'W_MESIC
  538. MESIC
  539. ZAPIS_AKT
  540. M1_IDENT
  541. Prove
  542. te kondenzaci datab
  543. ze M1_ZAS, informujte firmu SoWA
  544. m1_zas
  545. znam o z
  546. ch polo
  547. ky FF
  548. stupn
  549. Prove
  550. te kondenzaci datab
  551. ze M1_UM, informujte firmu SoWA
  552. znam o um
  553. sob polo
  554. ky FF
  555. stupn
  556. INDIK
  557. eX_IDENT
  558. KM1_ZAS
  559. IDENT
  560. _MNOZ
  561. HLASKA
  562. SKL_HLAVNISKL_HL_UM
  563. W_SKLAD1
  564. LW_UM1
  565. _SKLM1_UM
  566. AW_TYP1
  567. SKLAD
  568. UM_SKL
  569. TYP_UM
  570. p_kody
  571. p_name
  572. dejka dosud neexistuje
  573. P_KODY
  574. eP_NAME
  575. KW_TISKARNAC_TISKV
  576. eTISK
  577. L_HLAVNIMODTESTT
  578. S_KCS_CEL
  579. _SKLST_ZAZNAM
  580. HLASKA
  581. STRANA
  582. W_SKLAD1
  583. W_DOKLAD
  584.  VYDAL_SKL
  585. DOKL_CIS
  586. tTISK_HL
  587. pTISK_S
  588. UKONCI
  589. bP_RESET
  590. M1_OBR
  591.  d e j   s k l a d u : 
  592. MTZ-05
  593. dejka 
  594. Druh pohybu:
  595.     Mno
  596. Rozpiska
  597. Sklad-2
  598. Datum
  599. NAZEVT
  600. eVYDAL_SKL
  601. SKARNAP_KODY
  602. eP_SETUP
  603. P_COMP_OFFP_SUBON
  604. NIPODNIK
  605. P_SUBOFF
  606. _SKLP_LETRQUALP_BOLDON
  607. P_BOLDOFF
  608. P_DRAFT
  609. DOKL_CIS
  610. KOD_OB
  611. LDOFF
  612. 99999999.999
  613. eP_KODY
  614. P_10CPI
  615. NAW_SKLAD1
  616. eW_DOKLAD
  617. VYDAL_SKL
  618. DOKL_CIS
  619. IM1_IDENT
  620. C_TISKV
  621. IDENT
  622. _SKLSKUT_MNOZ
  623. STRED_OBR
  624. IDENT_ZAK
  625. IDENT_VYS
  626. VYD_UM_SKLPOPIS_OBR
  627. NAZEV
  628. IDENT
  629. tPRIJAL_SKLPRI_UM_SKLTYP_UM_P
  630. bTERMIN_OB
  631. Vydal:    .........................
  632.        Datum: ...................
  633. evzal:  .........................
  634.        Datum: ...................
  635. eP_KODY
  636. P_DRAFT
  637.  Zobrazen
  638. dejky 
  639.  Zobrazen
  640.  obrat
  641.  Konec 
  642. mod_proc
  643. &barvau
  644. mod_proc
  645. &barvau
  646. ehled polo
  647.  Informace o um
  648.  Informace o obratech 
  649. ediska 
  650.  Zobrazen
  651. dejky 
  652.  Tisk v
  653. dejky 
  654.  Konec 
  655. mod_proc
  656. inlist(kod_pol,'F','P','S','A','B','C','O','J','K','G')
  657. Chybn
  658.  hodnota identifikace polo
  659. mod_proc
  660. Chybn
  661.  hodnota identifikace polo
  662. mod_proc
  663. mod_proc
  664. mod_proc
  665. &barvau
  666. &barvau
  667. NAZOBR_VYD
  668. eW_SKLAD1
  669. W_DOKLAD
  670. MOD_PROC
  671. _IDENT
  672. TISKV
  673. ZOBR_OBV
  674. LW_KOD_OB
  675. M1_OBR
  676. ZOBR_POL
  677. W_IDENT
  678. W_NAZEV
  679. KLW_MJ
  680. HLASKA
  681. tZOBR_UM
  682. KLZOBR_OB
  683. LZOBR_STR
  684. bW_STRED
  685. Konec
  686. Aktualizace
  687. - Esc
  688. - Enter
  689. - F10
  690. M5_AKT.DBF2
  691. M5_AKT
  692. ident
  693. m5_akt
  694. ident
  695. m5_akt
  696. select &sel
  697. X_IDENT
  698. eX_DS
  699. NAM5_AKT
  700. eIDENT
  701. ZAVRI
  702. IDUVOD
  703. Pohyb
  704. dejky
  705. Funkce
  706. Konec
  707. <Enter>
  708. - ^PgDn
  709. - F10
  710. - Esc,^End
  711. IDENT
  712. w_kod_ob
  713. mod_proc
  714. w_ident
  715. mod_proc
  716. inlist(kod_pol,'F','P','S','A','B','C','O','J','K','G')
  717. w_skut_mn
  718. mod_proc
  719. w_um1
  720. w_um2
  721. mod_proc
  722. w_doklad
  723. mod_proc
  724. w_sklad2
  725. mod_proc
  726. w_stred
  727. mod_proc
  728. w_id_zak
  729. mod6_lib
  730. Pro toto pole neexistuje pomocn
  731. ehled hodnot
  732. P_ZOB
  733. eZOBR_OBV
  734. MOD_PROC
  735. AW_KOD_OB
  736. eZOBR_POL
  737. W_IDENT
  738. W_NAZEV
  739. IW_MJ
  740. ZOBR_UM
  741. ZOBR_OB
  742. LZOBR_SKL
  743. W_SKLAD2
  744. ZOBR_STR
  745. W_STRED
  746. PODNIK
  747. LZOBR_RENE
  748. W_ID_ZAK
  749. MOD6_LIB
  750. tHLASKA
  751. KLMOD54F
  752. HLAV1
  753. HLAV2
  754. PROC1
  755. PROC2
  756. ZMEN1
  757. ZMEN2
  758. ZMENY
  759. HLASKA
  760. K_HLAVA
  761. K_OBRATU
  762. KONTR_VR
  763. KONTR_TR
  764. ZAPIS_OBR
  765. LOCK_ZAS
  766. TISK_HL
  767. TISK_S
  768. UKONCI
  769. VOLBA
  770. HELP7
  771. ZAPIS_AKT
  772. NAP_HOD
  773. X:\OBEC\05\
  774. MOD54F.FXP
  775. X:\OBEC\05\MOD54F.PRG
  776.