home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 04 / MOD43F.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-02-11  |  24KB  |  643 lines
  1. pom_Vypocf
  2. pom_Prehlf
  3. m1_Ident
  4. Material
  5. p1_Prec
  6. Ident
  7. prav cen skladov
  8. ch polo
  9. ek na konci odbob
  10. RIIS 4
  11. mod43f
  12. Zadejte identifikaci:
  13. |...........
  14. Ident.
  15. Ident
  16. Ident
  17. m1_Ident.Nazev
  18. m1_Ident.Nazev
  19. Klasif.
  20. '   '+Vyb_Kon+'   '
  21. Vyb_Kon
  22.     %
  23. str(Proc_Kon,7,2)
  24. Proc_Kon
  25.  Cena p
  26. str(Cena_Stara,13,2)
  27. Cena_Stara
  28. Cena upraven
  29. str(Cena_Nova,13,2)
  30. Cena_Nova
  31. dle pohybu
  32. '     '+Vyb_Poh+'    '
  33. Vyb_Poh
  34.     % p
  35. str(Proc_Poh,7,2)
  36. Proc_Poh
  37. dle z
  38. '     '+Vyb_Zas+'    '
  39. Vyb_Zas
  40.     % z
  41. str(Proc_Zas,7,2)
  42. Proc_Zas
  43.       Z
  44. str(Zasoba,12,3)
  45. Zasoba
  46. m.spot
  47. str(Prum_Spotr,12,3)
  48. Prum_Spotr
  49. Posl.pohyb
  50. '  '+str(Posl_Mes,2)+'/'+str(Posl_Rok,4)+' '
  51. Posl_Rok*100+Posl_Mes
  52. m1_Ident.Typ
  53. m1_Ident.Typ
  54. Ext. identifikace
  55. m1_Ident.Ident_Odb
  56. m1_Ident.Ident_Odb
  57. Autor
  58. Autor
  59. Autor
  60. Dat.akt.
  61. tran(Dat_Akt,'@E')
  62. Dat_Akt
  63. POM_VYPOC
  64. POM_PREHL
  65. M1_IDENT
  66. MATERIAL
  67. P1_PREC
  68. IDENT
  69. PRECEN
  70. POLEX
  71. PROCX
  72. CLEFT
  73. CRIGHT
  74. FREEZE
  75. ORDER
  76. PRAVA
  77. NADPIS
  78. JMENO
  79. TITLE
  80. TITLECOLORPOC0
  81. F0PRG
  82. F1PRG
  83. F4_JM
  84. 3F4PRG
  85. TISKPRG
  86. F7_JM
  87. F7PRG
  88. F9PRG
  89. F9KEY
  90. F9KEY1
  91. F10_JM
  92. F10PRG
  93. RAMECEK
  94. NAZEVT
  95. KLICO
  96. KLNAZ
  97. SPACEBAR
  98. ETR_HL1
  99. TR_HL2
  100. TR_HL3
  101. TR_HL4
  102. TR_HL5
  103. TR_HL6
  104. TR_HL7
  105. TR_HL8
  106. TR_HL9
  107. DET_JM
  108. ENTER
  109. DETAIL
  110. _DETPRG
  111. PS_LINE
  112. PS_RETURN
  113. PS_ZAZN
  114. UZAV_MES
  115. UZAV_ROK
  116. MOD_PSV
  117. OBSAH
  118. m_Param
  119. colorz
  120.  Prob
  121. hne v
  122. et pro n
  123. prav cen  
  124.  do uzav
  125. ho odbob
  126.  Pokra
  127. ovat (a/N)     : 
  128. et NEBYL proveden
  129.   Prob
  130. et ...  
  131. u1_Zas
  132. Ident
  133. m1_Kalks
  134. x1_Kalks
  135. m1_Obr_A
  136. Pol_Dat<
  137. cPomoc
  138. M1_OBR_A
  139. m1_ident
  140. cPomoc
  141. cPomoc
  142. p1_Prec
  143. vrhu 
  144. prav cen byl UKON
  145. POM_TERU
  146. POM_MES
  147. POM_ROK
  148. POM_A
  149. POM_DAT
  150. POM_POS
  151. POM_06
  152. POM_0612
  153. POM_1224
  154. POM_POCM
  155. POM_VYBP
  156. POM_PROP
  157. POM_VYBZ
  158. POM_PROZ
  159. POM_VYBK
  160. POM_PROK
  161. MMCOLOR
  162. POM_V
  163. M_PARAM
  164. TER_UZAV
  165. HLASKA
  166. U1_ZAS
  167. IDENT
  168. M1_KALKS
  169. X1_KALKS
  170. M1_OBR_A
  171. RPOL_DAT
  172. 7CPOMOC
  173. BPOM_POSL
  174. MESIC
  175. ROK_MES
  176. KOD_OB
  177. SKUT_MNOZ
  178. PRUM_SPOTRM1_IDENT
  179. KOD_POL
  180. P1_PREC
  181. ZASOBA
  182. RCENA_STARACENA_NOVA
  183. CENA_POH
  184. CENA_ZAS
  185. VYB_POH
  186. PROC_POH
  187. VYB_ZAS
  188. PROC_ZAS
  189. VYB_KON
  190. PROC_KON
  191. POSL_ROK
  192. POSL_MES
  193. UZAV_ROK
  194. UZAV_MES
  195. AUTOR
  196. DAT_AKT
  197. RMM_AUTOR
  198. MESS2
  199. colora
  200. POM_TXT
  201. MMCOLOR
  202. colora
  203. POM_TXT
  204. POM_OBR
  205. MMCOLOR
  206. colora
  207. POM_TXT
  208. MMCOLOR
  209. m_Param
  210. p1_Prec
  211. Ident
  212.  stejn
  213.  obdob
  214. , neprovede se
  215. m1_Ident
  216. Ident
  217. u1_Um
  218. Ident
  219. prava dat ...
  220. u1_Um
  221. p1_Prec
  222. m1_Ident
  223. pom_Um
  224. Sklad
  225. pravy cen - rozd
  226. ly na skladech na konci odbob
  227. RIIS 4
  228. mod43f
  229. Sklad
  230. Zadejte sklad,identifikaci:
  231. |...|...........
  232. Funkce
  233. Fce_Volba
  234. Sklad
  235. Sklad
  236. Ident.
  237. Ident
  238. Ident
  239. Celk.v K
  240. '    '+str(Kc_Stara,13,2)
  241. Kc_Stara
  242. Celk.v K
  243.  upraven
  244. '     '+str(Kc_Nova,13,2)
  245. Kc_Nova
  246.        Rozd
  247. str(Kc_Stara - Kc_Nova,13,2)
  248. Kc_Stara - Kc_Nova
  249.     %
  250. str(Proc_Kon,7,2)
  251. Proc_Kon
  252.       Z
  253. str(Zasoba,12,3)
  254. Zasoba
  255.  Cena p
  256. str(Cena_Stara,13,2)
  257. Cena_Stara
  258. Cena upraven
  259. str(Cena_Nova,13,2)
  260. Cena_Nova
  261. dle pohybu
  262. '     '+Vyb_Poh+'    '
  263. Vyb_Poh
  264.     % p
  265. str(Proc_Poh,7,2)
  266. Proc_Poh
  267. dle z
  268. '     '+Vyb_Zas+'    '
  269. Vyb_Zas
  270.     % z
  271. str(Proc_Zas,7,2)
  272. Proc_Zas
  273. soba celk.
  274. str(Zas_Celk,12,3)
  275. Zas_Celk
  276. m.spot
  277. str(Prum_Spotr,12,3)
  278. Prum_Spotr
  279. Posl.pohyb
  280. '  '+str(Posl_Mes,2)+'/'+str(Posl_Rok,4)+' '
  281. Posl_Rok*100+Posl_Mes
  282. Nazev
  283. Nazev
  284. Ext. identifikace
  285. Ident_Odb
  286. Ident_Odb
  287. POM_ROK
  288. POM_MES
  289. M_PARAM
  290. P1_PREC
  291. IDENT
  292. UZAV_MES
  293. UZAV_ROK
  294. TER_UZAV
  295. HLASKA
  296. M1_IDENT
  297. U1_UM
  298. SKLAD
  299. ZASOBA
  300. CENA_STARAKC_STARA
  301. CENA_NOVA
  302. KC_NOVA
  303. CENA_POH
  304. KC_POH
  305. CENA_ZAS
  306. KC_ZAS
  307. PROC_KON
  308. VYB_POH
  309. PROC_POH
  310. VYB_ZAS
  311. PROC_ZAS
  312. RZAS_CELK
  313. 7PRUM_SPOTRPOSL_MES
  314. POSL_ROK
  315. NAZEV
  316. IDENT_ODB
  317. POM_UM
  318. POLEX
  319. OTRPROCX
  320. CLEFT
  321. RCRIGHT
  322. ARAFREEZE
  323. ORDER
  324. PRAVA
  325. NADPIS
  326. JMENO
  327. TITLE
  328. TITLECOLORPOC0
  329. AUTOR
  330. F0PRG
  331. F1PRG
  332. F4_JM
  333. _F4PRG
  334. TISKPRG
  335. F7_JM
  336. F7PRG
  337. F9PRG
  338. F9KEY
  339. F9KEY1
  340. F10_JM
  341. F10PRG
  342. RAMECEK
  343. NAZEVT
  344. KLICO
  345. KLNAZ
  346. SPACEBAR
  347. TR_HL1
  348. FTR_HL2
  349. TR_HL3
  350. TR_HL4
  351. TR_HL5
  352. TR_HL6
  353. TR_HL7
  354. TR_HL8
  355. TR_HL9
  356. DET_JM
  357. ENTER
  358. DETAIL
  359. DETPRG
  360. ,PS_LINE
  361.  PS_RETURN
  362. PS_ZAZN
  363. MOD_PSV
  364. OBSAH
  365. colorz
  366.  Rozd
  367. ly dle identifikace 
  368. ty za sklad 
  369.  Konec 
  370. POM_VOLBA
  371. POM_OBR
  372. MMCOLOR
  373. DLE_IDENT
  374. NAZEVT
  375. SOUCET_SKL>
  376. colorz
  377. Ident
  378. RIIS 4
  379. mod43f
  380. Ident
  381.  Dle identifikace 
  382. Zadejte identifikaci,sklad:
  383. |...........|...
  384. Ident.
  385. Ident
  386. Ident
  387. Sklad
  388. Sklad
  389. Celk.v K
  390. '    '+str(Kc_Stara,13,2)
  391. Kc_Stara
  392. Celk.v K
  393.  upraven
  394. '     '+str(Kc_Nova,13,2)
  395. Kc_Nova
  396.        Rozd
  397. str(Kc_Stara - Kc_Nova,13,2)
  398. Kc_Stara - Kc_Nova
  399.     %
  400. str(p1_Prec.Proc_Kon,7,2)
  401. p1_Prec.Proc_Kon
  402.       Z
  403. str(Zasoba,12,3)
  404. Zasoba
  405.  Cena p
  406. str(Cena_Stara,13,2)
  407. Cena_Stara
  408. Cena upraven
  409. str(Cena_Nova,13,2)
  410. Cena_Nova
  411. dle pohybu
  412. '     '+Vyb_Poh+'    '
  413. Vyb_Poh
  414.     % p
  415. str(Proc_Poh,7,2)
  416. Proc_Poh
  417. dle z
  418. '     '+Vyb_Zas+'    '
  419. Vyb_Zas
  420.     % z
  421. str(Proc_Zas,7,2)
  422. Proc_Zas
  423. soba celk.
  424. str(Zas_Celk,12,3)
  425. Zas_Celk
  426. m.spot
  427. str(Prum_Spotr,12,3)
  428. Prum_Spotr
  429. Posl.pohyb
  430. '  '+str(Posl_Mes,2)+'/'+str(Posl_Rok,4)+' '
  431. Posl_Rok*100+Posl_Mes
  432. Nazev
  433. Nazev
  434. Ext. identifikace
  435. Ident_Odb
  436. Ident_Odb
  437. POM_TEXT
  438. POM_ALI
  439. POM_ORD
  440. POM_VETA
  441. MMCOLOR
  442. POM_UM
  443. LIDENT
  444. POLEX
  445. PROCX
  446. CLEFT
  447. CRIGHT
  448. FREEZE
  449. ORDER
  450. TARAHOR
  451. _NOVA
  452. PRAVA
  453. NADPIS
  454. JMENO
  455. TITLE
  456. TITLECOLORPOC0
  457. _CELK
  458. M_SPOTRF2
  459. L_MES
  460. L_ROK
  461. NT_ODB
  462. OTRF0PRG
  463. F1PRG
  464. F4_JM
  465. RF4PRG
  466. ARATISKPRG
  467. F7_JM
  468. F7PRG
  469. F9PRG
  470. F9KEY
  471. F9KEY1
  472. F10_JM
  473. F10PRG
  474. RAMECEK
  475. NAZEVT
  476. KLICO
  477. KLNAZ
  478. OLORSPACEBAR
  479. TR_HL1
  480. ETR_HL2
  481. RTR_HL3
  482. TR_HL4
  483. TR_HL5
  484. TR_HL6
  485. TR_HL7
  486. TR_HL8
  487. TR_HL9
  488. DET_JM
  489. ENTER
  490. DETAIL
  491. DETPRG
  492. _PS_LINE
  493. PS_RETURN
  494. PS_ZAZN
  495. MOD_PSV
  496. OBSAH
  497. DEJ_STAV
  498. POM_ALI
  499. POM_ORD
  500. POM_VETA
  501. MMCOLOR
  502. colorz
  503. prava dat ...
  504. pom_Sum
  505. SELE pom_Um.Sklad,  sum(pom_Um.Kc_Stara) as Kc_Stara, sum(pom_Um.Kc_Nova) as Kc_Nova,  sum(pom_Um.Kc_Poh)   as Kc_Poh,   sum(pom_Um.Kc_Zas)  as Kc_Zas  FROM pom_Um  WHERE &pom_Fil  GROUP BY pom_Um.Sklad into dbf pom_Sum
  506. pom_Um
  507. pom_Sum
  508. Sklad
  509. RIIS 4
  510. mod43f
  511. ty za sklad FF
  512. Zadejte sklad:
  513. Suma with pom_Fil
  514. Sklad
  515. Sklad
  516.   Celk.v K
  517. '      '+str(pom_Sum.Kc_Stara,13,2)
  518. pom_Sum.Kc_Stara
  519.  Celk.v K
  520.  upraven
  521. '      '+str(pom_Sum.Kc_Nova,13,2)
  522. pom_Sum.Kc_Nova
  523.        Rozd
  524. str(pom_Sum.Kc_Stara - pom_Sum.Kc_Nova,13,2)
  525. pom_Sum.Kc_Stara - pom_Sum.Kc_Nova
  526.  Celk.v K
  527.  dle poh.
  528. '      '+str(pom_Sum.Kc_Poh,13,2)
  529. pom_Sum.Kc_Poh
  530.  Celk.v K
  531.  dle z
  532. '      '+str(pom_Sum.Kc_Zas,13,2)
  533. pom_Sum.Kc_Zas
  534. Vyhled
  535. Konec
  536. - F10
  537. - Esc, ^End
  538. POM_TEXT
  539. POM_OBR
  540. POM_ALI
  541. POM_ORD
  542. POM_VETA
  543. MMCOLOR
  544. LPOM_FIL
  545. POM_SSTARAPOM_SNOVA
  546. POM_SPOH
  547. POM_SZAS
  548. POM_SUM
  549. POM_UM
  550. SKLAD
  551. TARAKC_STARA
  552. KC_NOVA
  553. KC_POH
  554. KC_ZAS
  555. POLEX
  556. PROCX
  557. CLEFT
  558. CRIGHT
  559. FREEZE
  560. LORORDER
  561. _SPOTRLEVA
  562. PRAVA
  563. NADPIS
  564. JMENO
  565. OTRTITLE
  566. TITLECOLORPOC0
  567. ARAF2
  568. F0PRG
  569. F1PRG
  570. F4_JM
  571. F4PRG
  572. TISKPRG
  573. ORF7_JM
  574. F7PRG
  575. EF9PRG
  576. RF9KEY
  577. F9KEY1
  578. F10_JM
  579. F10PRG
  580. RAMECEK
  581. NAZEVT
  582. KLICO
  583. KLNAZ
  584. SPACEBAR
  585. TR_HL1
  586. _TR_HL2
  587. TR_HL3
  588. TR_HL4
  589. TR_HL5
  590. TR_HL6
  591. TR_HL7
  592. TR_HL8
  593. TR_HL9
  594. DET_JM
  595. ENTER
  596. DETAIL
  597. DETPRG
  598. PS_LINE
  599. PS_RETURN
  600. PS_ZAZN
  601. M_OBR
  602. MOD_PSV
  603. OBSAH
  604. DEJ_STAV
  605. colorz
  606. double
  607.  Cena celkem v K
  608.  Cena celkem v K
  609.  Esc,^End 
  610. upraven
  611. dle pohybu
  612. dle z
  613. 99 999 999 999.99
  614. 99 999 999 999.99
  615. 99 999 999 999.99
  616. 99 999 999 999.99
  617. 99 999 999 999.99
  618. 99 999 999 999.99
  619. 99 999 999 999.99
  620. 99 999 999 999.99
  621. 99 999 999 999.99
  622. POM_VYB
  623. POM_OBR
  624. MMCOLOR
  625. MOD_WIN
  626. POM_SSTARAPOM_SNOVA
  627. POM_SPOH
  628. APOM_SZAS
  629. PRECEN
  630. dn(pol
  631. HLASKA
  632. MESS2
  633. uc =.
  634. ROZDILY
  635. FCE_VOLBA
  636. DLE_IDENT
  637. DEJ_STAV
  638. SOUCET_SKL
  639.   Celk
  640. X:\OBEC\04\
  641. MOD43F.FXP
  642. X:\OBEC\04\MOD43F.PRG
  643.