home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 04 / S424A.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-03-22  |  20KB  |  613 lines
  1. K o n t r o l a   objedn
  2. RIIS 4.2
  3. Nedod.
  4. Qvyber
  5. Qporadi
  6. s424a
  7.  Zadejte objedn
  8. vku : 
  9. m4_obj
  10. objed
  11. m4_pobj
  12. objed
  13. m4_pobjd
  14. objed
  15. m4_organ
  16. m5_plan
  17. zakazka
  18. m1_ident
  19. ident
  20. Objedn
  21. m4_obj.mat_obj
  22. m4_obj.mat_obj
  23. zev organizace
  24. m4_obj.nazev_org
  25. m4_obj.nazev_org
  26. m4_obj.ico
  27. m4_obj.ico
  28. m4_obj.zavod+'  '
  29. m4_obj.zavod
  30. m4_obj.stav+'   '
  31. m4_obj.stav
  32. Dat.vys.
  33. trans(m4_obj.datum_v,'@E')
  34. m4_obj.datum_v
  35. slo KS
  36. m4_obj.cislo_ks
  37. m4_obj.cislo_ks
  38. Datum KS
  39. trans(m4_obj.datum_ks,'@E')
  40. m4_obj.datum_ks
  41. Dat.odesl.
  42. trans(m4_obj.datum_o,'@E')+'  '
  43. m4_obj.datum_o
  44. Ulice
  45. m4_obj.ulice
  46. m4_obj.ulice
  47. m4_obj.mesto
  48. m4_obj.mesto
  49. m4_obj.psc
  50. m4_obj.psc
  51. Dod.lh
  52. m4_obj.dod_lhuta
  53. m4_obj.dod_lhuta
  54. sob dopravy
  55. m4_obj.zpus_dopr
  56. m4_obj.zpus_dopr
  57. sto ur
  58. m4_obj.misto_ur
  59. m4_obj.misto_ur
  60. Stanice ur
  61. m4_obj.csd
  62. m4_obj.csd_okrsek
  63. Okrsek 
  64. m4_obj.csd_okrsek
  65. m4_obj.csd_okrsek
  66. izuje
  67. m4_obj.vyrizuje
  68. m4_obj.vyrizuje
  69. Dopravn
  70.  dispozice (1)
  71. LEFT(m4_obj.dop_disp,50)
  72. m4_obj.dop_disp
  73. Dopravn
  74.  dispozice (2)
  75. RIGHT(m4_obj.dop_disp,50)
  76. m4_obj.dop_disp
  77. Intern
  78.  pozn
  79. m4_obj.pozn
  80. m4_obj.pozn
  81. MOD_SYS
  82. URANSI
  83. ROCEDZAHL
  84. xtPorJMENO
  85. ****HODN
  86. *SOUC
  87. -----KLICO
  88. ----PS_LINE
  89. --PS_RETURN
  90. POLEX
  91. PROCX
  92.   PRRTOP
  93. DETAIRBOT
  94. ADI nCLEFT
  95. o prCRIGHT
  96.  --FREEZE
  97. ---ORDER
  98. ----TITLE
  99. ----TITLECOLORF1
  100. screen F3
  101. _SYS WIF6
  102. zaznF7
  103. cno()
  104. t colorF10
  105. @DETAIL
  106. ar F1PRG
  107. @F4_JM
  108. y PSF4PRG
  109. CiF7_JM
  110. mat_F7PRG
  111. sPorF9KEY
  112. poraF10_JM
  113. eleF10PRG
  114.  m4DET_JM
  115. rdeDETPRG
  116. seRAMECEK
  117. +CNAZEVT
  118. OPYRIIS
  119. _pobjTR_HL
  120.  matENTER
  121. poM4_OBJ
  122. = COBJED
  123. isPoM4_POBJ
  124. _pM4_POBJD
  125. M4_ORGAN
  126.   txt M5_PLAN
  127.  ZAKAZKA
  128. y M1_IDENT
  129. fIDENT
  130. askMOD_PSV
  131. colora
  132. set color to &Hcolor
  133. URHCOLOR
  134. CEDHOBR
  135. xtPor
  136. c4_pobj+
  137. c4_pobj
  138. xc4_pobj
  139.  Objedn
  140. vka nem
  141. sele &_sele1
  142. ehled po
  143.  objedn
  144. vky  F
  145. ehled po
  146.  objedn
  147. vky  F
  148. RIIS 4,2
  149. Funkce
  150. funkce1
  151. DetPor
  152. detpor
  153. s424a
  154.  Zadejte po
  155. str(c4_pobj.poradi,3)
  156. c4_pobj.poradi
  157. c4_pobj.ident
  158. c4_pobj.ident
  159. zev polo
  160. c4_pobj.nazev
  161. c4_pobj.nazev
  162. m1_ident.typ
  163. m1_ident.typ
  164. Identifikace
  165. c4_pobj.sek_ident
  166. c4_pobj.sek_ident
  167. K dod
  168. str(c4_pobj.mno_mj,12,3)
  169. c4_pobj.mno_mj
  170. c4_pobj.mj
  171. c4_pobj.mj
  172. Pl.MJ
  173. c4_pobj.plan_mj+'   '
  174. c4_pobj.plan_mj
  175.  Koeficient
  176. str(c4_pobj.koef,11,4)
  177. c4_pobj.koef
  178. statek[MJ]
  179. str(c4_pobj.mno_kdo,12,3)
  180. c4_pobj.mno_kdo
  181. K dod
  182. [Pl.MJ]
  183. '   '+str(c4_pobj.mno_plmj,12,3)
  184. c4_pobj.mno_plmj
  185. Potvrzeno[Pl.MJ]
  186. '    '+str(c4_pobj.mno_po,12,3)
  187. c4_pobj.mno_po
  188. no [MJ]
  189. str(c4_pobj.mno_ov,12,3)
  190. c4_pobj.mno_ov
  191. ch [MJ]
  192. str(c4_pobj.mno_zm,12,3)
  193. c4_pobj.mno_zm
  194. Storno [MJ]
  195. str(c4_pobj.mno_st,12,3)
  196. c4_pobj.mno_st
  197. Dat.po
  198. ad.dod.
  199. trans(c4_pobj.datum_pd,'@E')+'      '
  200. c4_pobj.datum_pd
  201. Datum potvrz.
  202. trans(c4_pobj.datum_po,'@E')+'      '
  203. c4_pobj.datum_po
  204. Cena/Pl.MJ
  205. str(c4_pobj.cena_plmj,10,2)
  206. c4_pobj.cena_plmj
  207. Extern
  208.  identifikace
  209. m1_ident.ident_odb
  210. m1_ident.ident_odb
  211. m1_Ident.rada
  212. m1_Ident.rada
  213. RIIS 4.2
  214. sele &_sele1
  215. _SELE1
  216. UROBR2
  217. CEDMOD_SYS
  218. orZAZN
  219. ***PS_LINE
  220. *CISOBJ
  221. ---MAT_OBJ
  222. --M4_POBJ
  223. --C4_POBJ
  224. PORADI
  225. XC4_POBJ
  226. RIDENT
  227. ETAIM1_IDENT
  228. rHLASKA
  229.  --PS_RETURN
  230. ----JMENO
  231. ----HODN
  232. COLORSOUC
  233. sKLICO
  234. een POLEX
  235. PROCX
  236. S WIRTOP
  237. zaznRBOT
  238. CLEFT
  239. olorCRIGHT
  240. @FREEZE
  241. ar ORDER
  242. @TITLE
  243. y PSTITLECOLORF1
  244. mat_F2
  245. sPorF3
  246. poraF4
  247. eleF6
  248.  m4F7
  249. rdeF9
  250. seF10
  251. +CDETAIL
  252. OPYENTER
  253. pobjF1PRG
  254.  matF4_JM
  255. poF4PRG
  256. = CF7_JM
  257. isPoF7PRG
  258. _pF9KEY
  259. F10_JM
  260. )F10PRG
  261. xt DET_JM
  262.  DETPRG
  263. y RAMECEK
  264. fNAZEVT
  265. askTR_HL
  266. 15MOD_PSV
  267.  objedn
  268. Identif.:
  269. novac
  270.  MJ :
  271. K dod
  272.  [MJ]    :
  273. K dod
  274.  [Pl.MJ] :
  275. Potvrzeno[Pl.MJ] :
  276. no   [MJ]    :
  277. ch  [MJ]    : 
  278. Storno   [MJ]    : 
  279. statek [MJ]    :
  280. Koeficient   :
  281. Cena/1 PlMJ  :
  282. Datum po
  283. ad.dod
  284. Datum potvrz.v KS :
  285. 99999999.999
  286. 99999999.999
  287. 99999999.999
  288. 99999999.999
  289. 99999999.999
  290. 99999999.999
  291. 99999999.999
  292. 999999.9999
  293. 9999999.99
  294. URPORADI
  295. CEDCISOBJ
  296. orIDENT
  297. ***NAZEV
  298. *SEK_IDENT
  299. --PLAN_MJ
  300. --MNO_MJ
  301. MNO_PLMJ
  302. MNO_PO
  303. RMNO_OV
  304. TAIMNO_ZM
  305. nMNO_ST
  306. rMNO_KDO
  307. --KOEF
  308. CENA_PLMJ
  309. DATUM_PD
  310. -DATUM_PO
  311. r nevydodan
  312. ch po
  313.  objedn
  314. ech po
  315.  objedn
  316.  Zobrazen
  317.  detailu po
  318.  Specifikace po
  319. jem objedn
  320.  Konec 
  321. echna po
  322.  jsou vydod
  323. s422c
  324. URZAZF1
  325. CEDC4_POBJ
  326. _POBJ
  327. **MNO_KDO
  328. *POCZAZ
  329. --HLASKA
  330. --PS_RETURN
  331. DETNP
  332. TEXTPOR
  333. P_IDENT
  334. IDENT
  335. nMM_TYP
  336. rZOBR_PRIJ
  337. S422C
  338. c4_pobjd+
  339. c4_pobjd
  340. xc4_pom1
  341.  detail ! 
  342. ehled detailu po
  343.  objedn
  344. vky  
  345. RIIS 4,2
  346.  Detail po
  347. S424a
  348. Dat.po
  349. .dod.
  350. trans(c4_pobjd.datum_pd,'@E')+'    '
  351. c4_pobjd.datum_pd
  352. k.zak.
  353. c4_pobjd.zakazka
  354. c4_pobjd.zakazka
  355. c4_pobjd.cpol
  356. c4_pobjd.cpol
  357. K dod
  358. str(c4_pobjd.mno_mj,12,3)+' '
  359. c4_pobjd.mno_mj
  360.  Dodan
  361. str(c4_pobjd.mno_ov,12,3)
  362. c4_pobjd.mno_ov
  363. statek[MJ]
  364. str(c4_pobjd.mno_mj-c4_pobjd.mno_ov,12,3)
  365. c4_pobjd.mno_mj-c4_pobjd.mno_ov
  366. RIIS 4.2
  367. URMOD_SYS
  368. EDZAZN3
  369. orPS_LINE
  370. **CISOBJ
  371. *MAT_OBJ
  372. CISPOR
  373. --PORADI
  374. --M4_POBJD
  375. C4_POBJD
  376. DATUM_PD
  377. XC4_POM1
  378. nHLASKA
  379. rC4_POBJ
  380. PS_RETURN
  381. JMENO
  382. -HODN
  383. RSOUC
  384. sKLICO
  385. een POLEX
  386. PROCX
  387. S WIRTOP
  388. zaznRBOT
  389. CLEFT
  390. olorCRIGHT
  391. @FREEZE
  392. ar ORDER
  393. @TITLE
  394. y PSTITLECOLORF1
  395. mat_F2
  396. sPorF3
  397. poraF4
  398. eleF6
  399.  m4F7
  400. rdeF9
  401. seF10
  402. +CDETAIL
  403. OPYENTER
  404. pobjF1PRG
  405.  matF4_JM
  406. poF4PRG
  407. = CF7_JM
  408. isPoF7PRG
  409. _pF9KEY
  410. F10_JM
  411. )F10PRG
  412. xt DET_JM
  413.  DETPRG
  414. y RAMECEK
  415. fNAZEVT
  416. askTR_HL
  417. 15MOD_PSV
  418. m4_pobjt
  419. objed
  420. c4_pobjt+
  421. c4_pobjt
  422.  objedn
  423. vky nem
  424.  specifikaci ! 
  425. ehled specifikace po
  426.  objedn
  427. RIIS 4,2
  428. ehled specifikace po
  429.  objedn
  430. S424a
  431. c4_pobjt.text_tx
  432. c4_pobjt.text_tx
  433. RIIS 4.2
  434. URMOD_SYS
  435. EDZAZN3
  436. orPS_LINE
  437. **CISOBJ
  438. *MAT_OBJ
  439. CISPOR
  440. --PORADI
  441. --M4_POBJT
  442. OBJED
  443. C4_POBJT
  444. HLASKA
  445. nC4_POBJ
  446. rPS_RETURN
  447. JMENO
  448. -SOUC
  449. RKLICO
  450. sPOLEX
  451. PROCX
  452. S WIRBOT
  453. zaznCLEFT
  454. CRIGHT
  455. lorFREEZE
  456. @ORDER
  457. ar TITLE
  458. @TITLECOLORF1
  459. LECOLORF2
  460. mat_F3
  461. sPorF4
  462. poraF6
  463. eleF7
  464.  m4F9
  465. rdeF10
  466. seDETAIL
  467. +CENTER
  468. OPYF1PRG
  469. pobjF4_JM
  470.  matF4PRG
  471. poF7_JM
  472. = CF7PRG
  473. isPoF9KEY
  474. _pF10_JM
  475. F10PRG
  476. )DET_JM
  477. xt DETPRG
  478.  RAMECEK
  479. y NAZEVT
  480. fRIIS
  481. TR_HL
  482. MOD_PSV
  483. m4_obj
  484. m4_pobj
  485. c4_obj
  486. xc4_obj
  487. echny objedn
  488. vky jsou vydod
  489. ny ! 
  490. N e v y d o d a n 
  491.   a neuzav
  492.  objedn
  493. RIIS 4.2
  494. N e v y d o d a n 
  495.   a neuzav
  496.  objedn
  497. QPoradi
  498. s424a
  499.  Zadejte objedn
  500. vku : 
  501. Objedn
  502. c4_obj.mat_obj
  503. c4_obj.mat_obj
  504. zev organizace
  505. c4_obj.nazev_org
  506. c4_obj.nazev_org
  507. c4_obj.ico
  508. c4_obj.ico
  509. c4_obj.zavod+'  '
  510. c4_obj.zavod
  511. c4_obj.stav+'   '
  512. c4_obj.stav
  513. Dat.vys.
  514. trans(c4_obj.datum_v,'@E')
  515. c4_obj.datum_v
  516. slo KS
  517. c4_obj.cislo_ks
  518. c4_obj.cislo_ks
  519. Datum KS
  520. trans(c4_obj.datum_ks,'@E')
  521. c4_obj.datum_ks
  522. Dat.odesl.
  523. trans(c4_obj.datum_o,'@E')+'  '
  524. c4_obj.datum_o
  525. Ulice
  526. c4_obj.ulice
  527. c4_obj.ulice
  528. c4_obj.mesto
  529. c4_obj.mesto
  530. c4_obj.psc
  531. c4_obj.psc
  532. Dod.lh
  533. c4_obj.dod_lhuta
  534. c4_obj.dod_lhuta
  535. sob dopravy
  536. c4_obj.zpus_dopr
  537. c4_obj.zpus_dopr
  538. sto ur
  539. c4_obj.misto_ur
  540. c4_obj.misto_ur
  541. Stanice ur
  542. c4_obj.csd
  543. c4_obj.csd_okrsek
  544. Okrsek 
  545. c4_obj.csd_okrsek
  546. c4_obj.csd_okrsek
  547. izuje
  548. c4_obj.vyrizuje
  549. c4_obj.vyrizuje
  550. RIIS 4.2
  551. OBRC1
  552. URMOD_SYS
  553. EDM4_OBJ
  554. orSTAV
  555. **MAT_OBJ
  556. *M4_POBJ
  557. MNO_KDO
  558. --C4_OBJ
  559. --XC4_OBJ
  560. HLASKA
  561. JMENO
  562. nHODN
  563. rSOUC
  564. KLICO
  565. PS_LINE
  566. PS_RETURN
  567. POLEX
  568. RPROCX
  569. sRTOP
  570. CLEFT
  571. S WICRIGHT
  572. aznFREEZE
  573. ORDER
  574. lorTITLE
  575. @TITLECOLORF1
  576. LECOLORF3
  577. LECOLORF4
  578. mat_F6
  579. sPorF7
  580. poraF9
  581. eleF10
  582.  m4DETAIL
  583. rdeENTER
  584. seF1PRG
  585. +CF4_JM
  586. OPYF4PRG
  587. pobjF7_JM
  588.  matF7PRG
  589. poF9KEY
  590. = CF10_JM
  591. sPoF10PRG
  592. _pDET_JM
  593. DETPRG
  594. )RAMECEK
  595. t NAZEVT
  596.  RIIS
  597. y TR_HL
  598. MOD_PSV
  599. skS424A
  600. HLASKA
  601. i)= +
  602. QPORADI
  603. DETPOR
  604. FUNKCE1
  605. 4_oA&
  606. DETNP
  607. i=i+/*
  608. TEXTPOR
  609. QVYBER
  610. Z:\RIIS\
  611. S424A.FXP
  612. Z:\RIIS\S424A.PRG
  613.