home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 04 / S422C.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-03-22  |  41KB  |  1,365 lines
  1. RIIS 4.2
  2. Funkce
  3. Qfunkce
  4. Detail
  5. Det_obj
  6. S422C
  7.  Zadejte objedn
  8. vku : 
  9. m4_obj
  10. objed
  11. m4_pobj
  12. objed
  13. m4_pobjd
  14. objed
  15. m4_pobjt
  16. objed
  17.  e h l e d   objedn
  18. a4_obj
  19. objed
  20. a4_pobj
  21. objed
  22. a4_pobjd
  23. objed
  24. a4_pobjt
  25. objed
  26.  e h l e d   archivu  objedn
  27. m4_organ
  28. m5_plan
  29. zakazka
  30. m1_ident
  31. ident
  32. Objedn
  33. m4_obj.mat_obj
  34. m4_obj.mat_obj
  35. zev organizace
  36. m4_obj.nazev_org
  37. m4_obj.nazev_org
  38. m4_obj.ico
  39. m4_obj.ico
  40. m4_obj.zavod+'  '
  41. m4_obj.zavod
  42. m4_obj.stav+'   '
  43. m4_obj.stav
  44. Dat.vys.
  45. trans(m4_obj.datum_v,'@E')
  46. m4_obj.datum_v
  47. slo KS
  48. m4_obj.cislo_ks
  49. m4_obj.cislo_ks
  50. Datum KS
  51. trans(m4_obj.datum_ks,'@E')
  52. m4_obj.datum_ks
  53. Dat.odesl.
  54. trans(m4_obj.datum_o,'@E')+'  '
  55. m4_obj.datum_o
  56. Ulice
  57. m4_obj.ulice
  58. m4_obj.ulice
  59. m4_obj.mesto
  60. m4_obj.mesto
  61. m4_obj.psc
  62. m4_obj.psc
  63. Dod.lh
  64. m4_obj.dod_lhuta
  65. m4_obj.dod_lhuta
  66. sob dopravy
  67. m4_obj.zpus_dopr
  68. m4_obj.zpus_dopr
  69. sto ur
  70. m4_obj.misto_ur
  71. m4_obj.misto_ur
  72. Stanice ur
  73. m4_obj.csd
  74. m4_obj.csd_okrsek
  75. Okrsek 
  76. m4_obj.csd_okrsek
  77. m4_obj.csd_okrsek
  78. izuje
  79. m4_obj.vyrizuje
  80. m4_obj.vyrizuje
  81. Dopravn
  82.  dispozice (1)
  83. LEFT(m4_obj.dop_disp,50)
  84. m4_obj.dop_disp
  85. Dopravn
  86.  dispozice (2)
  87. RIGHT(m4_obj.dop_disp,50)
  88. m4_obj.dop_disp
  89. Intern
  90.  pozn
  91. m4_obj.pozn
  92. m4_obj.pozn
  93. POLEX
  94. 2,3)PROCX
  95. (i)=RTOP
  96. bj.mnRBOT
  97. i=CLEFT
  98. hl(iCRIGHT
  99. chFREEZE
  100. menORDER
  101. tr(cHOR
  102. j.mno_DOL
  103. )="c4PRAVA
  104. no_zNADPIS
  105. i+1ZAHL
  106. (i)='JMENO
  107. [MJ]HODN
  108. no(i)SOUC
  109. c4_poTITLE
  110. st,1TITLECOLORPOC0
  111. 4_pobF0
  112. o_st"
  113. [MJ]'
  114. o(i)="sF6
  115. 4_pobj.F7
  116. kdo,12,F9
  117. )="c4_F0PRG
  118. o_kdF1ON
  119. i=i+1F1PRG
  120. i)='F4_JM
  121. ad.dF4PRG
  122. menoTISKPRG
  123. s(F7_JM
  124. .datF7PRG
  125. @E')F9PRG
  126.   '"F9KEY
  127. i)='F9KEY1
  128. datF10_JM
  129. iF10PRG
  130. hl(RAMECEK
  131.  pRIIS
  132. jmNAZEVT
  133. traKLICO
  134. obj.KLNAZ
  135. o,'@SPACEBAR
  136.  TR_HL1
  137. (i)TR_HL2
  138. j.dTR_HL3
  139. TR_HL4
  140. zahTR_HL5
  141. na/TR_HL6
  142. jmeTR_HL7
  143. tr(TR_HL8
  144. cenTR_HL9
  145. 0,2DET_JM
  146. (i)ENTER
  147. bj.cDETAIL
  148. DETPRG
  149. PS_LINE
  150. 'EPS_RETURN
  151. PS_ZAZN
  152. i)= "MM_TYP
  153. deM4_OBJ
  154. hoOBJED
  155. "m1IM4_POBJ
  156. t_M4_POBJD
  157. =M4_POBJT
  158. (A4_OBJ
  159. A4_POBJ
  160. ="A4_POBJD
  161. dA4_POBJT
  162. )M4_ORGAN
  163. seM5_PLAN
  164. o ZAKAZKA
  165. 2 M1_IDENT
  166. 4IDENT
  167. do mM1IDENT
  168. _poMOD_PSV
  169.  i_M_ULICE
  170. _M_MESTO
  171. 4_M_STAT
  172. ! _M_PSC
  173. azn_M_DALNOPI_M_TELEFON_M_FAX
  174. _M_ICO
  175. est_M_FIRMA
  176.  _M_DISP
  177. _M_USTAV
  178. 0_M_UCET
  179. *_M_DICP
  180. **_M_NAZEV
  181. *_M_NAZ_2
  182. D_M_ZAV
  183. PEMAIL
  184. reeMEMAIL
  185.  soubor !
  186.  Detail objedn
  187. vky: F
  188. Stav:
  189. Dat.vyst.:
  190. izuje:
  191. Funkce:
  192. Ulice:
  193.  Kupn
  194.  smlouva 
  195. D.vyst.:
  196. D.odesl.:
  197.  Dopravn
  198.  dispozice 
  199. Dodac
  200. sob dopravy:
  201. Stanice ur
  202. sto ur
  203. Okrsek 
  204. HLASKA
  205. ,3)OBRD
  206. (i)=MAT_OBJ
  207. mnSTAV
  208. i=DATUM_V
  209. (iVYRIZUJE
  210. menZAVOD
  211. tr(cJMENO
  212. mno_FUNKCE
  213. NAZEV_ORG
  214. NAZEV_ORG2ULICE
  215. i+1MESTO
  216. i)='PSC
  217. [MJ]STAT
  218. no(i)CISLO_KS
  219. oDATUM_KS
  220. 1DATUM_O
  221. ORDOP_DISP
  222. bDOD_LHUTA
  223. ZPUS_DOPR
  224. stMISTO_UR
  225. CSD_OKRSEK
  226.  soubor !
  227. .obj.:F
  228.  objedn
  229. vky     
  230.  Text objedn
  231. vky       
  232.  Tisk objedn
  233. vky       
  234.  Saldokonto odb
  235. ratele 
  236.  Saldokonto dodavatele 
  237. ehled v
  238. ech po
  239. ehl.vybran
  240. ch po
  241.  Konec                 
  242. _M_ulicef
  243. m_param
  244. m4_uc_o
  245. et s k
  246. dem '
  247. ' neexistuje!
  248. m4_adr
  249. daje o vlastn
  250.  firm
  251. daje o vlastn
  252.  firm
  253. m4_tobj
  254. objed
  255. a4_tobj
  256. objed
  257. c4_text+
  258. c4_text
  259. m4_obj
  260. objed
  261. m4_pobj
  262. objed
  263. m4_pobjd
  264. objed
  265. a4_obj
  266. objed
  267. a4_pobj
  268. objed
  269. a4_pobjd
  270. objed
  271. m1_ident
  272. ident
  273. s422a
  274. select &_alias
  275.  Saldokonto odb
  276. ratel
  277.  nelze v archivu prohl
  278. et ! 
  279.  Saldokonto dodavatel
  280.  nelze v archivu prohl
  281. et ! 
  282. HLASKA
  283. ,3)_AOBR
  284. (i)=PS_LINE
  285. mnW_COBJ
  286. i=MAT_OBJ
  287. (i_ZAZ2
  288. h_AOBRX
  289. menVOL4
  290. tr(cFILT
  291. mno_QPORADI
  292. QTEXTY
  293. MOD_SYS
  294. G2_M_ULICE
  295. 1_M_MESTO
  296. '_M_STAT
  297. J]_M_PSC
  298. (i)_M_DALNOPI_M_TELEFON_M_FAX
  299. OR_M_ICO
  300. b_M_FIRMA
  301. _M_DISP
  302. _M_USTAV
  303. t_M_UCET
  304. _M_DICP
  305. EK_M_NAZEV
  306. ._M_NAZ_2
  307. ,_M_ZAV
  308. hPEMAIL
  309. c4_MEMAIL
  310. _kd_ZAZ
  311. i+1_ALIAS
  312. )='M_PARAM
  313. .dPATH0
  314. menoPT_OBEC
  315. s(ICO
  316. datZAVOD
  317. E')POLE4
  318.  '"M4_UC_O
  319. ='M4_OBJ
  320. datVL_KOD_UCTUSTAV
  321. (UCET
  322.  pM4_ADR
  323. UCTMESTO
  324. aNAZEV_ORG
  325. NAZEV_ORG2ULICE
  326.  STAT
  327. i)PSC
  328. j.dDALNOPIS
  329. ITELEFON
  330. ONFAX
  331. na/E_MAIL
  332. jmeM4_ORGAN
  333. NDICP
  334. MM_TYP
  335. 2M4_TOBJ
  336. i)OBJED
  337. bj.cA4_TOBJ
  338. C4_TEXT
  339. HLAOBJ
  340. 'EM4_POBJ
  341. POROBJ
  342. M4_POBJD
  343. "DETOBJ
  344. deA4_OBJ
  345. hoA4_POBJ
  346. 1IA4_POBJD
  347. _M1_IDENT
  348. =IDENT
  349. (TISK_OBJ
  350. S422A
  351. ="SALDO_ODB
  352. SALDO_DOD
  353. VSEPOR
  354. .PS_RETURN
  355. c4_pobj+
  356. c4_pobj
  357.  Objedn
  358. vka nem
  359.  Zobrazen
  360.  objedn
  361. vky  F
  362. RIIS 4.2
  363. Zobrazen
  364.  objedn
  365. vky F
  366. Detail
  367. det_por
  368. DetPor
  369. detpor
  370. S422C
  371.  Zadejte po
  372. str(c4_pobj.poradi,3)
  373. c4_pobj.poradi
  374. c4_pobj.ident
  375. c4_pobj.ident
  376. zev polo
  377. c4_pobj.nazev
  378. c4_pobj.nazev
  379. m1Ident.typ
  380. m1Ident.typ
  381. Identifikace
  382. c4_pobj.sek_ident
  383. c4_pobj.sek_ident
  384. K dod
  385. str(c4_pobj.mno_mj,12,3)
  386. c4_pobj.mno_mj
  387. c4_pobj.mj
  388. c4_pobj.mj
  389. Pl.MJ
  390. c4_pobj.plan_mj+'  '
  391. c4_pobj.plan_mj
  392.  Koeficient
  393. str(c4_pobj.koef,11,4)
  394. c4_pobj.koef
  395. K dod
  396. [Pl.MJ]
  397. '   '+str(c4_pobj.mno_plmj,12,3)
  398. c4_pobj.mno_plmj
  399. Potvrzeno[Pl.MJ]
  400. '    '+str(c4_pobj.mno_po,12,3)
  401. c4_pobj.mno_po
  402.   Dod
  403. no[MJ]
  404. str(c4_pobj.mno_ov,12,3)
  405. c4_pobj.mno_ov
  406.  Vadn
  407. ch[MJ]
  408. str(c4_pobj.mno_zm,12,3)
  409. c4_pobj.mno_zm
  410.  Storno[MJ]
  411. str(c4_pobj.mno_st,12,3)
  412. c4_pobj.mno_st
  413. statek[MJ]
  414. str(c4_pobj.mno_kdo,12,3)+'  '
  415. c4_pobj.mno_kdo
  416. Dat.po
  417. ad.dod.
  418. trans(c4_pobj.datum_pd,'@E')+'       '
  419. c4_pobj.datum_pd
  420. Datum potvrz.
  421. trans(c4_pobj.datum_po,'@E')+'      '
  422. c4_pobj.datum_po
  423. Cena/Pl.MJ
  424. str(c4_pobj.cena_plmj,10,2)
  425. c4_pobj.cena_plmj
  426. Extern
  427.  identifikace
  428. m1Ident.ident_odb
  429. m1Ident.ident_odb
  430. m1Ident.rada
  431. m1Ident.rada
  432. RIIS 4.2
  433. ,3)MOD_SYS
  434. )=ZAZN
  435. mnPS_LINE
  436. i=CISOBJ
  437. (iMAT_OBJ
  438. hM4_POBJ
  439. enC4_POBJ
  440. (cPORADI
  441. o_XC4_POBJ
  442. IDENT
  443. M1IDENT
  444. G2TXT
  445. 1HLASKA
  446. 'M4_OBJ
  447. J]PS_RETURN
  448. POLEX
  449. NOPIPROCX
  450. EFONRTOP
  451. ORRBOT
  452. bCLEFT
  453. CRIGHT
  454. FREEZE
  455. tORDER
  456. EKDOL
  457. .LEVA
  458. ,PRAVA
  459. hNADPIS
  460. c4_ZAHL
  461. _kdJMENO
  462. i+1HODN
  463. )='SOUC
  464. .dTITLE
  465. menoTITLECOLORPOC0
  466. datF0
  467. E')F1
  468.  '"F2
  469. datF4
  470. KOD_UCTF6
  471. UCTF10
  472. aF0PRG
  473. _ORG2F1PRG
  474.  F4_JM
  475. i)F4PRG
  476. j.dTISKPRG
  477. IF7_JM
  478. ONF7PRG
  479. na/F9PRG
  480. jmeF9KEY
  481. NF9KEY1
  482. F10_JM
  483. 2F10PRG
  484. i)RAMECEK
  485. .cRIIS
  486. NAZEVT
  487. KLICO
  488. 'EKLNAZ
  489. SPACEBAR
  490. TR_HL1
  491. "TR_HL2
  492. deTR_HL3
  493. hoTR_HL4
  494. 1ITR_HL5
  495. _TR_HL6
  496. =TR_HL7
  497. (TR_HL8
  498. TR_HL9
  499. ="DET_JM
  500. ENTER
  501. DETAIL
  502. .DETPRG
  503. PS_ZAZN
  504. 2 MOD_PSV
  505. 4A_POLE
  506.  objedn
  507. Identif.:
  508. novac
  509.  MJ :
  510. K dod
  511.  [MJ]    :
  512. K dod
  513.  [Pl.MJ] :
  514. Potvrzeno[Pl.MJ] :
  515. no   [MJ]    :
  516. ch  [MJ]    : 
  517. Storno   [MJ]    : 
  518. statek [MJ]    :
  519. Koeficient   :
  520. Cena/1 PlMJ  :
  521. Datum po
  522. ad.dod
  523. Datum potvrz.v KS :
  524. 99999999.999
  525. 99999999.999
  526. 99999999.999
  527. 99999999.999
  528. 99999999.999
  529. 99999999.999
  530. 99999999.999
  531. 9999999.9999
  532. 9999999.99
  533. ,3)PORADI
  534. )=CISOBJ
  535. mnIDENT
  536. i=NAZEV
  537. (iSEK_IDENT
  538. enPLAN_MJ
  539. (cMNO_MJ
  540. o_MNO_PLMJ
  541. MNO_PO
  542. MNO_OV
  543. G2MNO_ZM
  544. 1MNO_ST
  545. 'MNO_KDO
  546. J]KOEF
  547. CENA_PLMJ
  548. DATUM_PD
  549. NDATUM_PO
  550. colora
  551. set color to &Hcolor
  552. ,3)HCOLOR
  553. )=HOBR
  554.  Pol.:F
  555.  Detail po
  556.       
  557.  Specifikace po
  558. jem objedn
  559. vky  
  560.  Konec              
  561. Detail po
  562. zky neexistuje
  563. MAOBR
  564. ,3)M_ZAZ2
  565. )=MAOBRX
  566. mnMVOL4
  567. i=MQIDENT
  568. (iPS_LINE
  569. W_COBJ
  570. enMAT_OBJ
  571. (cIDENT
  572. o_MALIAS
  573. MM_TYP
  574. HLASKA
  575. G2DETNP
  576. 1TEXTPOR
  577. 'P_IDENT
  578. J]C4_POBJ
  579. ZOBR_PRIJ
  580. PS_RETURN
  581. c4_pobjd+
  582. c4_pobjd
  583.  detail ! 
  584. ehled detailu po
  585.  objedn
  586. vky  
  587. RIIS 4.2
  588.  Detail po
  589. S422C
  590. Dat.po
  591. .dod.
  592. trans(c4_pobjd.datum_pd,'@E')+'    '
  593. c4_pobjd.datum_pd
  594. k.zak.
  595. c4_pobjd.zakazka
  596. c4_pobjd.zakazka
  597. c4_pobjd.cpol+' '
  598. c4_pobjd.cpol
  599. K dod
  600. str(c4_pobjd.mno_mj,12,3)+' '
  601. c4_pobjd.mno_mj
  602.  Dodan
  603. str(c4_pobjd.mno_ov,12,3)
  604. c4_pobjd.mno_ov
  605. statek[MJ]
  606. str(c4_pobjd.mno_mj-c4_pobjd.mno_ov,12,3)
  607. c4_pobjd.mno_mj-c4_pobjd.mno_ov
  608. RIIS 4.2
  609. ,3)MOD_SYS
  610. )=ZAZN3
  611. mnPS_LINE
  612. i=CISOBJ
  613. (iMAT_OBJ
  614. CISPOR
  615. enPORADI
  616. (cM4_POBJD
  617. _C4_POBJD
  618. DATUM_PD
  619. XC4_POM1
  620. 1HLASKA
  621. 'C4_POBJ
  622. ]PS_RETURN
  623. POLEX
  624. PROCX
  625. RRBOT
  626. bCLEFT
  627. CRIGHT
  628. FREEZE
  629. tORDER
  630. EKDOL
  631. .LEVA
  632. ,PRAVA
  633. hNADPIS
  634. c4_ZAHL
  635. _kdJMENO
  636. i+1HODN
  637. )='SOUC
  638. .dTITLE
  639. menoTITLECOLORPOC0
  640. datF0
  641. E')F1
  642.  '"F2
  643. datF4
  644. KOD_UCTF6
  645. UCTF10
  646. aF0PRG
  647. _ORG2F1PRG
  648.  F4_JM
  649. i)F4PRG
  650. j.dTISKPRG
  651. IF7_JM
  652. ONF7PRG
  653. na/F9PRG
  654. jmeF9KEY
  655. NF9KEY1
  656. F10_JM
  657. 2F10PRG
  658. i)RAMECEK
  659. .cRIIS
  660. NAZEVT
  661. KLICO
  662. 'EKLNAZ
  663. SPACEBAR
  664. TR_HL1
  665. "TR_HL2
  666. deTR_HL3
  667. hoTR_HL4
  668. 1ITR_HL5
  669. _TR_HL6
  670. =TR_HL7
  671. (TR_HL8
  672. TR_HL9
  673. ="DET_JM
  674. ENTER
  675. DETAIL
  676. .DETPRG
  677. PS_ZAZN
  678. 2 MOD_PSV
  679. c4_pobjt+
  680. c4_pobjt
  681.  objedn
  682. vky nem
  683.  specifikaci ! 
  684. ehled specifikace po
  685.  objedn
  686. RIIS 4.2
  687. ehled specifikace po
  688.  objedn
  689. S422C
  690. c4_pobjt.text_tx
  691. c4_pobjt.text_tx
  692. RIIS 4.2
  693. ,3)MOD_SYS
  694. )=ZAZN3
  695. mnPS_LINE
  696. i=CISOBJ
  697. (iMAT_OBJ
  698. CISPOR
  699. enPORADI
  700. (cM4_POBJT
  701. _C4_POBJT
  702. HLASKA
  703. 2C4_POBJ
  704. 1PS_RETURN
  705. POLEX
  706. ]PROCX
  707. CLEFT
  708. RCRIGHT
  709. bFREEZE
  710. ORDER
  711. EKPRAVA
  712. .NADPIS
  713. ,ZAHL
  714. hJMENO
  715. c4_HODN
  716. _kdSOUC
  717. i+1TITLE
  718. )='TITLECOLORPOC0
  719. menoF0
  720. LECOLORF1
  721. datF2
  722. E')F3
  723.  '"F4
  724. datF7
  725. KOD_UCTF9
  726.  pF0PRG
  727. UCTF1ON
  728. aF1PRG
  729. F4_JM
  730. ORG2F4PRG
  731.  TISKPRG
  732. i)F7_JM
  733. j.dF7PRG
  734. IF9PRG
  735. ONF9KEY
  736. na/F9KEY1
  737. jmeF10_JM
  738. NF10PRG
  739. RAMECEK
  740. 2RIIS
  741. i)NAZEVT
  742. .cKLICO
  743. KLNAZ
  744. SPACEBAR
  745. ETR_HL1
  746. TR_HL2
  747. TR_HL3
  748. "TR_HL4
  749. deTR_HL5
  750. hoTR_HL6
  751. 1ITR_HL7
  752. _TR_HL8
  753. =TR_HL9
  754. (DET_JM
  755. ENTER
  756. ="DETAIL
  757. DETPRG
  758. PS_ZAZN
  759. MOD_PSV
  760. m4_tobj
  761. objed
  762. a4_tobj
  763. objed
  764. c4_tobj+
  765. c4_tobj
  766.  Objedn
  767. vka nem
  768.  naveden text ! 
  769.  Text objedn
  770. vky: F
  771. RIIS 4.2
  772.  Text objedn
  773. vky: F
  774. S422C
  775. c4_tobj.text
  776. c4_tobj.text
  777. RIIS 4.2
  778. ,3)MOD_SYS
  779. )=ZAZN
  780. mn_ALIAS
  781. i=PS_LINE
  782. (iCISOBJ
  783. MAT_OBJ
  784. enMM_TYP
  785. (cM4_TOBJ
  786. _OBJED
  787. A4_TOBJ
  788. C4_TOBJ
  789. 1HLASKA
  790. PS_RETURN
  791. POLEX
  792. PROCX
  793. RCLEFT
  794. bCRIGHT
  795. FREEZE
  796. ORDER
  797. EKLEVA
  798. .PRAVA
  799. ,NADPIS
  800. hZAHL
  801. c4_JMENO
  802. _kdHODN
  803. i+1SOUC
  804. )='TITLE
  805. OLORTITLECOLORPOC0
  806. COLORF0
  807. datF1
  808. E')F2
  809.  '"F3
  810. datF6
  811. KOD_UCTF7
  812.  pF10
  813. UCTF0PRG
  814. aF1ON
  815. F1PRG
  816. ORG2F4_JM
  817.  F4PRG
  818. i)TISKPRG
  819. .dF7_JM
  820. IF7PRG
  821. ONF9PRG
  822. na/F9KEY
  823. jmeF9KEY1
  824. NF10_JM
  825. F10PRG
  826. 2RAMECEK
  827. i)RIIS
  828. .cNAZEVT
  829. KLICO
  830. KLNAZ
  831. ESPACEBAR
  832. TR_HL1
  833. TR_HL2
  834. "TR_HL3
  835. deTR_HL4
  836. hoTR_HL5
  837. 1ITR_HL6
  838. _TR_HL7
  839. =TR_HL8
  840. (TR_HL9
  841. DET_JM
  842. ="ENTER
  843. DETAIL
  844. DETPRG
  845. PS_ZAZN
  846. MOD_PSV
  847. P_IDENT
  848. 3)IDENT
  849. )=ZOBR_PRIJ
  850. PS_RETURN
  851. s422c
  852.  E H L E D    P 
  853.  J E M E K  pro polo
  854. ku: F
  855. ehled p
  856. jemek pro polo
  857. ku: F
  858. RIIS 4.2
  859.  Prob
  860. r obrat
  861.  z archivu ... 
  862. m1_obr_a
  863. cu_obr_a
  864.  Prob
  865. r aktu
  866. ch obrat
  867.  ... 
  868. m1_obr
  869. cu_obr
  870. cu_obr_a
  871.  Polo
  872. ka nem
  873. Datum   
  874. tran(termin_ob,'@E')
  875. termin_ob
  876. kod_ob
  877. kod_ob
  878.     Mno
  879. str(skut_mnoz,12,3)
  880. skut_mnoz
  881. Sklad-1    
  882. vydal_skl+'/'+vyd_um_skl+'/'+typ_um_v
  883. vydal_skl
  884. stred_obr
  885. stred_obr
  886. Sklad-2    
  887. prijal_skl+'/'+pri_um_skl+'/'+typ_um_p
  888. prijal_skl
  889. Doklad
  890. dokl_cis
  891. dokl_cis
  892. n. mno
  893. str(plan_mnoz,12,3)
  894. plan_mnoz
  895.  Vadn
  896. str(vadne_mnoz,12,3)
  897. vadne_mnoz
  898. Rozpiska/Dod.l.
  899. ident_vys + '   '
  900. ident_vys
  901.      Z
  902. str(zasoba,11,2)
  903. zasoba
  904. mka       
  905. popis_obr
  906. popis_obr
  907. 3)MREC
  908. )=MOBRP
  909. MOD_SYS
  910. POLEX
  911. (iPROCX
  912. enRBOT
  913. (cCLEFT
  914. _CRIGHT
  915. FREEZE
  916. ORDER
  917. PRAVA
  918. NADPIS
  919. JMENO
  920. RHODN
  921. bSOUC
  922. TITLE
  923. TITLECOLORPOC0
  924. c4_F6
  925. _kdF7
  926. i+1F9
  927. )='F10
  928. OLORF0PRG
  929. OLORF1ON
  930. COLORF1PRG
  931. datF4_JM
  932. E')F4PRG
  933.  '"TISKPRG
  934. ='F7_JM
  935. datF7PRG
  936. _UCTF9PRG
  937. (F9KEY
  938.  pF9KEY1
  939. UCTF10_JM
  940. aF10PRG
  941. RAMECEK
  942. G2RIIS
  943.  NAZEVT
  944. i)KLICO
  945. .dKLNAZ
  946. ISPACEBAR
  947. NTR_HL1
  948. na/TR_HL2
  949. jmeTR_HL3
  950. NTR_HL4
  951. TR_HL5
  952. 2TR_HL6
  953. i)TR_HL7
  954. .cTR_HL8
  955. TR_HL9
  956. DET_JM
  957. EENTER
  958. DETAIL
  959. DETPRG
  960. "PS_LINE
  961. dePS_RETURN
  962. PS_ZAZN
  963. =P_IDENT
  964. (MESS
  965. ="M1_OBR_A
  966. CU_OBR_A
  967. KOD_OB
  968. IDENT
  969. IDENT_ZAK
  970. CISOBJ
  971. M1_OBR
  972. CU_OBR
  973. IDENT_VYS
  974. HLASKA
  975.  iMOD_PSV
  976. if ! file ( '&f_adr\data\M7_faodb.dbf' ) 
  977.  Nebylo nalezeno saldokonto odb
  978. ratel
  979. datez
  980. c2_fak
  981. m7_faodb
  982. c2_fak
  983. znam ! 
  984. c2_fak
  985. ** Celkem K
  986. RIIS 4.2
  987. RIIS 4.2
  988. ehled odb
  989. ratelsk
  990. ho saldokonta pro I
  991. ratelsk
  992.  saldokonto pro: 
  993. s422c
  994. s.faktury
  995. cis_fak
  996. Fakturov
  997. str(CAST_CEL,12,2)
  998. Zaplaceno celkem
  999. str(ZAP_CEL,12,2) + '    '
  1000.  uhradit
  1001. str(k_uhrade,13,2)
  1002. Dat.odes.
  1003. dat_odes + ' '
  1004. Dat.p
  1005. dat_pri + ' '
  1006. Dat.splat.
  1007. dat_spl + ' '
  1008. HLASKA
  1009. 3)MALIAS
  1010. )=MKL
  1011. (iMICO
  1012. enMDATE
  1013. (cMNAZEV
  1014. ZAVOD
  1015. 2NAZEV_ORG
  1016. MOD_SYS
  1017. C2_FAK
  1018. CIS_FAK
  1019. DAT_ODES
  1020. CAST_CEL
  1021. ZAP_CEL
  1022. RK_UHRADE
  1023. bDAT_PRI
  1024. DAT_SPL
  1025. CIS_OBJ
  1026. ORM7_FAODB
  1027. EKPS_RETURN
  1028. POLEX
  1029. ,PROCX
  1030. hRTOP
  1031. c4_RBOT
  1032. _kdCLEFT
  1033. i+1CRIGHT
  1034. )='FREEZE
  1035. LORORDER
  1036. OLORHOR
  1037. COLORDOL
  1038. datLEVA
  1039. E')PRAVA
  1040.  '"NADPIS
  1041. ='ZAHL
  1042. datJMENO
  1043. _UCTHODN
  1044. (SOUC
  1045.  pTITLE
  1046. UCTTITLECOLORPOC0
  1047. CEBAR
  1048. na/F9
  1049. jmeF10
  1050. NF0PRG
  1051. 2F1PRG
  1052. i)F4_JM
  1053. .cF4PRG
  1054. TISKPRG
  1055. F7_JM
  1056. EF7PRG
  1057. F9PRG
  1058. F9KEY
  1059. "F9KEY1
  1060. deF10_JM
  1061. F10PRG
  1062. 1IRAMECEK
  1063. _RIIS
  1064. =NAZEVT
  1065. (KLICO
  1066. KLNAZ
  1067. ="SPACEBAR
  1068. TR_HL1
  1069. TR_HL2
  1070. TR_HL3
  1071. TR_HL4
  1072. TR_HL5
  1073. TR_HL6
  1074. TR_HL7
  1075. TR_HL8
  1076. TR_HL9
  1077. DET_JM
  1078.  iENTER
  1079. DETAIL
  1080. 4DETPRG
  1081. ! PS_LINE
  1082. znPS_ZAZN
  1083. ONMOD_PSV
  1084. if ! file ( '&f_adr\data\m7_fadod.dbf' ) 
  1085.  Nebylo nalezeno saldokonto dodavatel
  1086. datez
  1087. c2_fak
  1088. m7_fadod
  1089. c2_fak
  1090. znam ! 
  1091. c2_fak
  1092. ** Celkem K
  1093. RIIS 4.2
  1094. RIIS 4.2
  1095. ehled dodavatelsk
  1096. ho saldokonta pro I
  1097.  Dodavatelsk
  1098.  saldokonto pro: 
  1099. s422c
  1100. s.faktury
  1101. cis_fak
  1102. Fakturov
  1103. str(CAST_CEL,12,2)
  1104. Zaplaceno celkem
  1105. str(ZAP_CEL,12,2) + '    '
  1106.  uhradit
  1107. str(k_uhrade,13,2)
  1108. Dat.odes.
  1109. dat_odes + ' '
  1110. Dat.p
  1111. dat_pri + ' '
  1112. Dat.splat.
  1113. dat_spl + ' '
  1114. HLASKA
  1115. 3)MALIAS
  1116. )=MKL
  1117. (iMICO
  1118. enMDATE
  1119. (cDMY
  1120. ZAVOD
  1121. MNAZEV
  1122. 2NAZEV_ORG
  1123. MOD_SYS
  1124. C2_FAK
  1125. CIS_FAK
  1126. DAT_ODES
  1127. CAST_CEL
  1128. ZAP_CEL
  1129. RK_UHRADE
  1130. bDAT_PRI
  1131. DAT_SPL
  1132. CIS_OBJ
  1133. ORM7_FADOD
  1134. EKPS_RETURN
  1135. POLEX
  1136. ,PROCX
  1137. hRTOP
  1138. c4_RBOT
  1139. _kdCLEFT
  1140. i+1CRIGHT
  1141. )='FREEZE
  1142. LORORDER
  1143. OLORHOR
  1144. COLORDOL
  1145. datLEVA
  1146. E')PRAVA
  1147.  '"NADPIS
  1148. ='ZAHL
  1149. datJMENO
  1150. _UCTHODN
  1151. (SOUC
  1152.  pTITLE
  1153. UCTTITLECOLORPOC0
  1154. CEBAR
  1155. na/F9
  1156. jmeF10
  1157. NF0PRG
  1158. 2F1PRG
  1159. i)F4_JM
  1160. .cF4PRG
  1161. TISKPRG
  1162. F7_JM
  1163. EF7PRG
  1164. F9PRG
  1165. F9KEY
  1166. "F9KEY1
  1167. deF10_JM
  1168. F10PRG
  1169. 1IRAMECEK
  1170. _RIIS
  1171. =NAZEVT
  1172. (KLICO
  1173. KLNAZ
  1174. ="SPACEBAR
  1175. TR_HL1
  1176. TR_HL2
  1177. TR_HL3
  1178. TR_HL4
  1179. TR_HL5
  1180. TR_HL6
  1181. TR_HL7
  1182. TR_HL8
  1183. TR_HL9
  1184. DET_JM
  1185.  iENTER
  1186. DETAIL
  1187. 4DETPRG
  1188. ! PS_LINE
  1189. znPS_ZAZN
  1190. ONMOD_PSV
  1191.  Neexistuj
  1192.  objedn
  1193. vek materi
  1194. lu ! 
  1195. m4_obj,
  1196. Zobrazen
  1197. ech objedn
  1198. RIIS 4.2
  1199. Zobrazen
  1200. ech objedn
  1201. Qprij
  1202. DetPor
  1203. detpor
  1204. S422C
  1205.  Zadejte objedn
  1206. vku: 
  1207. Objedn
  1208. m4_pobj.mat_obj
  1209. m4_pobj.mat_obj
  1210. str(m4_pobj.poradi,3)
  1211. m4_pobj.poradi
  1212. m4_pobj.ident
  1213. m4_pobj.ident
  1214. zev polo
  1215. m4_pobj.nazev
  1216. m4_pobj.nazev
  1217. m1Ident.typ
  1218. m1Ident.typ
  1219. Identifikace
  1220. m4_pobj.sek_ident
  1221. m4_pobj.sek_ident
  1222. K dod
  1223. str(m4_pobj.mno_mj,12,3)
  1224. m4_pobj.mno_mj
  1225. m4_pobj.mj
  1226. m4_pobj.mj
  1227. Pl.MJ
  1228. m4_pobj.plan_mj+'  '
  1229. m4_pobj.plan_mj
  1230.  Koeficient
  1231. str(m4_pobj.koef,11,4)
  1232. m4_pobj.koef
  1233. K dod
  1234. [Pl.MJ]
  1235. '   '+str(m4_pobj.mno_plmj,12,3)
  1236. m4_pobj.mno_plmj
  1237. Potvrzeno[Pl.MJ]
  1238. '    '+str(m4_pobj.mno_po,12,3)
  1239. m4_pobj.mno_po
  1240.   Dod
  1241. no[MJ]
  1242. str(m4_pobj.mno_ov,12,3)
  1243. m4_pobj.mno_ov
  1244.  Vadn
  1245. ch[MJ]
  1246. str(m4_pobj.mno_zm,12,3)
  1247. m4_pobj.mno_zm
  1248.  Storno[MJ]
  1249. str(m4_pobj.mno_st,12,3)
  1250. m4_pobj.mno_st
  1251. statek[MJ]
  1252. str(m4_pobj.mno_kdo,12,3)+'  '
  1253. m4_pobj.mno_kdo
  1254. Dat.po
  1255. ad.dod.
  1256. trans(m4_pobj.datum_pd,'@E')+'       '
  1257. m4_pobj.datum_pd
  1258. Datum potvrz.
  1259. trans(m4_pobj.datum_po,'@E')+'      '
  1260. m4_pobj.datum_po
  1261. Cena/Pl.MJ
  1262. str(m4_pobj.cena_plmj,10,2)
  1263. m4_pobj.cena_plmj
  1264. Extern
  1265.  identifikace
  1266. m1Ident.ident_odb
  1267. m1Ident.ident_odb
  1268. m1Ident.rada
  1269. m1Ident.rada
  1270. RIIS 4.2
  1271. 3)MOD_SYS
  1272. )=ZAZN
  1273. PS_LINE
  1274. CISOBJ
  1275. (iMAT_OBJ
  1276. M4_POBJ
  1277. enTXT
  1278. (cHLASKA
  1279. _M4_OBJ
  1280. PS_RETURN
  1281. IDENT
  1282. 2M1IDENT
  1283. POLEX
  1284. PROCX
  1285. CLEFT
  1286. RCRIGHT
  1287. bFREEZE
  1288. ORDER
  1289. ORDOL
  1290. EKPRAVA
  1291. NADPIS
  1292. ,ZAHL
  1293. hJMENO
  1294. c4_HODN
  1295. _kdSOUC
  1296. i+1TITLE
  1297. )='TITLECOLORPOC0
  1298. OLORF0
  1299. COLORF1
  1300. datF2
  1301. E')F3
  1302.  '"F4
  1303. datF7
  1304. _UCTF9
  1305.  pF0PRG
  1306. UCTF1ON
  1307. COLORF1PRG
  1308. F4_JM
  1309. G2F4PRG
  1310.  TISKPRG
  1311. i)F7_JM
  1312. .dF7PRG
  1313. IF9PRG
  1314. NF9KEY
  1315. na/F9KEY1
  1316. jmeF10_JM
  1317. NF10PRG
  1318. RAMECEK
  1319. 2RIIS
  1320. i)NAZEVT
  1321. .cKLICO
  1322. KLNAZ
  1323. SPACEBAR
  1324. ETR_HL1
  1325. TR_HL2
  1326. TR_HL3
  1327. "TR_HL4
  1328. deTR_HL5
  1329. TR_HL6
  1330. 1ITR_HL7
  1331. _TR_HL8
  1332. =TR_HL9
  1333. (DET_JM
  1334. ENTER
  1335. ="DETAIL
  1336. DETPRG
  1337. PS_ZAZN
  1338. MOD_PSV
  1339. A_POLE
  1340. S422C
  1341. _obec%
  1342. DET_OBJ
  1343. QFUNKCE
  1344. QPORADI
  1345.    u&
  1346. DETPOR
  1347. HLASKA
  1348. DET_POR
  1349. DETNP
  1350.  &&X.hB
  1351. TEXTPOR
  1352.  E-0M
  1353. QTEXTY
  1354. jednrU
  1355. QPRIJ
  1356.   use
  1357. ZOBR_PRIJ
  1358. SALDO_ODB
  1359. SALDO_DOD
  1360. VSEPOR
  1361. _kodj
  1362. Z:\RIIS\
  1363. S422C.FXP
  1364. Z:\RIIS\S422C.PRG
  1365.