home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 07 / S736A.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-01-14  |  19KB  |  525 lines
  1. KONEC
  2.    'S736AX
  3. m_dat
  4. x_dat
  5. m_cis1
  6. x_cis1
  7. m7_desk
  8. skupina
  9. m7_kurz
  10. archiv
  11. p_prist
  12. xp_prist
  13. m7_ucet
  14. m7_poklm
  15. m7_meny
  16. mena_c
  17. s736a
  18. s736ad
  19. ehled   m 
  20.  n   a   c e n i n
  21. RIIS 7.36
  22. zev m
  23. ny, ceniny
  24. nazev
  25. nazev
  26. '  '+druh_mc+' '
  27. druh_mc
  28.  Nom.hod.
  29. iif(inlist(druh_mc,'C','S'),str(stred,9,2),space(9))
  30. iif(inlist(druh_mc,'C','S'),str(stred,9,2),space(9))
  31.    DPH
  32. iif(inlist(druh_mc,'C','S'),str(dph,6,2),space(6))
  33. iif(inlist(druh_mc,'C','S'),str(dph,6,2),space(6))
  34. ucet_men
  35. ucet_men
  36. AU pom
  37. au_pom
  38. au_pom
  39. aut_zvys+'   '
  40. aut_zvys
  41. aut_sniz+'   '
  42. aut_sniz
  43. tupk+' '
  44. tupz+' '
  45. ep. koeficient
  46. iif(prep_koef=0,space(16),'   '+str(prep_koef,13,8))
  47. prep_koef
  48. Autor
  49. autor
  50. autor
  51. Aktual.
  52. aktual
  53. aktual
  54. Dat.akt.
  55. tran(dat_akt,'@E')
  56. dat_akt
  57. M_DAT
  58.    'X_DAT
  59. & jM_CIS1
  60. ozkX_CIS1
  61.  ciM7_DESK
  62.   SKUPINA
  63.  =M7_KURZ
  64. mcARCHIV
  65.    P_PRIST
  66. o XP_PRIST
  67. pM7_UCET
  68.   UCET
  69. d_c3 M7_POKLM
  70. _MENA
  71. eno_cM7_MENY
  72.  zMENA_C
  73. POLEX
  74. _zobFREEZE
  75.  zobrRBOT
  76. with CLEFT
  77.  0 iCRIGHT
  78. caseF2
  79. ob='w_aF3
  80. zobr_ucF6
  81. ith w_aPROCX
  82. 0 inENTER
  83. DETAIL
  84. se DET_JM
  85. _tuRAMECEK
  86. doNAZEVT
  87. ? ?RIIS
  88. NADPIS
  89.     ALEVA
  90. use PRAVA
  91.  indHOR
  92. _pristDOL
  93. ect 0
  94. 7_uceJMENO
  95.  uceHODN
  96. ct 0I
  97. 7_poMOD_PSV
  98. mod_psv
  99. P_PRIST
  100.  'PRIHLAS
  101.  jMOD_SYS
  102. zkM7_MENY
  103. ciOPRAVA
  104.   PS_RETURN
  105. MOD_PSV
  106. RIIS 7.36
  107. imu v
  108. ru nelze prov
  109. t opravy z
  110. imu t
  111.  nelze prov
  112. t opravy z
  113. set color to b/w
  114. set color to bg/n
  115. set color to w+/bg
  116. set color to b/bg,w+/rb
  117. set color to w+/b
  118. set color to w/n
  119. &barvau
  120. CPODMV
  121. IHLAS
  122.  jCPODMS
  123. zkAUTOR
  124. ciMM_AUTOR
  125.  AKTUAL
  126. DAT_AKT
  127. cZMENA
  128.    NOVY_Z
  129. o ANSI
  130. pW_MENA
  131.   MENA
  132. d_c3 W_DRUH_MC
  133. DRUH_MC
  134. _cW_NAZEV
  135.  zNAZEV
  136. W_TUPK
  137. zobTUPK
  138. W_TUPZ
  139. obrTUPZ
  140. with W_UCET
  141. 0 iUCET_MEN
  142. W_AU_POM
  143. eAU_POM
  144. w_aW_NOMHOD
  145.  STRED
  146. r_ucW_DPH
  147.  w_aDPH
  148. 0 inW_AUT_ZVYSAUT_ZVYS
  149.  W_AUT_SNIZAUT_SNIZ
  150. oW_PR_KOEF
  151. PREP_KOEF
  152. W_AKTUAL
  153. AW_DAT_AKT
  154. W_AUTOR
  155. ndP_ZOB
  156. ristJMENO_C
  157. WJMENO_C
  158. eRADEK_C
  159. ceSLOUPEC_C
  160. 7_poQ1
  161. lectQ3
  162. use m7_Q4
  163.  order Q5
  164. -------Q7
  165. efiniceQ8
  166. ozek prQ9
  167. mu mod_Q10
  168. ------Q11
  169. ex=15 Q12
  170.  && poPOCET
  171. ozekCISELNIK
  172. rDOP1
  173. cDOP2
  174. *COUNT
  175. .t. ZAKAZNIK
  176. &POMOC
  177.  = .t.  RAD
  178.     &&SL
  179. f3POC
  180. .     KONTROLA
  181. rBARVAS
  182. 4 =BARVAR
  183.    BARVAZ
  184. iskBARVAU
  185. t. BARVAN
  186.   &BARVAH
  187. BARVA
  188. x = KS
  189.   &M7_MENY
  190. roMENU
  191. o PORADI
  192.  prKONEC
  193. ='s736R
  194.    && Z
  195.  progrU
  196.  detail
  197. tail=.t.Q
  198.       &&A
  199. o detailZMENY
  200. &barva
  201.  Aktualizace m
  202. n a cenin 
  203. na/cenina 
  204. zev m
  205. ny, ceniny
  206. Druh pokl. polo
  207. Nomin
  208.  hodnota
  209. Sazba DPH(%)
  210. AU pom
  211. deji aut. zv
  212. it hotovost CZK
  213. jmu aut. sn
  214. it hotovost CZK
  215. TUP pro kladn
  216.  kurzov
  217.  rozd
  218. TUP pro z
  219.  kurzov
  220.  rozd
  221.  koeficient EURa v
  222. Aktualizoval
  223. Autor
  224. Aktualizace
  225. &barvau
  226. 999999.99
  227. 999.99
  228. 9999.99999999
  229. W_MENA
  230.  'W_NAZEV
  231.  jW_DRUH_MC
  232. W_NOMHOD
  233. W_DPH
  234.  W_UCET
  235. W_AU_POM
  236. cW_AUT_ZVYSW_AUT_SNIZW_TUPK
  237. pW_TUPZ
  238.   W_PR_KOEF
  239. ZMENA
  240. W_AKTUAL
  241. cMM_AUTOR
  242. zW_DAT_AKT
  243. W_AUTOR
  244. &barvau
  245. w_mena
  246. @ 8,38 &vloz w_mena picture '@!X'
  247. w_nazev
  248. @ 9,38 &vloz w_nazev picture '@X'  
  249. w_druh_mc
  250. @ 11,38 &vloz w_druh_mc pict '!X'
  251. Nelze m
  252. nit druh, existuje z
  253. w_nomhod
  254. @ 12,38 &vloz w_nomhod pict '999999.99'
  255. w_dph
  256. @ 12,68 &vloz w_dph pict '999.99'
  257. w_ucet
  258. @ 13,38 &vloz w_ucet pict '@!X'
  259. w_au_pom
  260. @ 13,68 &vloz w_au_pom pict '@!X'
  261. w_aut_zvys
  262. @ 14,55 &vloz w_aut_zvys pict '@!X'
  263. w_aut_sniz
  264. @ 15,55 &vloz w_aut_sniz pict '@!X'
  265. w_tupk
  266. @ 16,55 &vloz w_tupk pict '@!X'
  267. w_tupz
  268. @ 17,55 &vloz w_tupz pict '@!X'
  269. w_pr_koef
  270. @ 18,55 &vloz w_pr_koef pict '9999.99999999'
  271.  'NASTAV_Q
  272. DRUH_MC
  273. OMHOD
  274. P_ZOB
  275.  W_MENA
  276. AU_POM
  277. UT_ZVYSW_NAZEV
  278. pW_DRUH_MC
  279. DRUH_MC
  280. ZASOBA
  281. HLASKA
  282. obrQ9
  283. ith Q10
  284. 0 iQ11
  285. eZMENA
  286. w_aW_AKTUAL
  287.  MM_AUTOR
  288. cW_DAT_AKT
  289. DAT_AKT
  290. inPROC1
  291. do proc&y
  292. do zmen&y with 'get'
  293. do zmen&y with 'say'
  294. Pokladn
  295.  polo
  296. ku nelze zru
  297. it, existuje pen
  298.  hotovost
  299. Pokladn
  300.  polo
  301. ku nelze zru
  302. it, existuje kurzovn
  303. it pr
  304. ci beze zm
  305. n? (a/N)
  306. KONEC
  307. STAV_Q
  308. DRUH_MC
  309. OMHOD
  310. T_ZVYSR
  311. NAZEV
  312. DRUH_MC
  313. VOLBA
  314. NAP_HOD
  315. P_ZOB
  316. cZASOBA
  317. HLASKA
  318. M7_KURZ
  319. bW_MENA
  320. M7_MENY
  321. brNOVY_Z
  322. h AUTOR
  323. 0 iMM_AUTOR
  324. AKTUAL
  325. eDAT_AKT
  326. aAUT_ZVYS
  327.  AUT_SNIZ
  328. cZMENA
  329. inW_DRUH_MC
  330. DRUH_MC
  331.  W_NAZEV
  332. IZNAZEV
  333. oW_TUPK
  334. W_TUPZ
  335. ATUPZ
  336. W_UCET
  337. ndUCET_MEN
  338. tW_AU_POM
  339. AU_POM
  340. eW_NOMHOD
  341. STRED
  342. W_DPH
  343. 7_poDPH
  344.  mW_AUT_ZVYSW_AUT_SNIZW_AKTUAL
  345.  W_PR_KOEF
  346. PREP_KOEF
  347. W_DAT_AKT
  348. W_AUTOR
  349. prPROC1
  350. mod_Q
  351. ------K_UDAJU
  352. 5 OK_C
  353. && poULOZ
  354. ozekC
  355. POCET
  356. Identifikace m
  357. ny/ceniny mus
  358. t vypln
  359. na ji
  360.  existuje, duplicita
  361. na ji
  362.  existuje, duplicita
  363. zev m
  364. ny je povinn
  365. DRUH_MC   
  366. w_druh_mc
  367. Druh polo
  368. ky pokladny (m
  369. na, cenina) mus
  370. t vypln
  371. Nelze m
  372. nit nomin
  373.  hodnota ceniny, existuje z
  374. et neexistuje
  375. Povolen
  376.  hodnoty jsou pouze A,N
  377. Povolen
  378.  hodnoty jsou pouze A,N
  379. Typov
  380. tovac
  381. edpis pro skupinu 07 neexistuje
  382. Typov
  383. tovac
  384. edpis pro skupinu 07 neexistuje
  385.  'W_MENA
  386. jHLASKA
  387. OMHOD
  388. ST_ZAZ
  389. cNOVY_Z
  390. VYSMENA
  391. IZW_NAZEV
  392. JMENO_C
  393. WJMENO_C
  394. MOD_C2
  395. cRADEK_C
  396. SLOUPEC_C
  397. MOD_C1
  398. W_DRUH_MC
  399. M7_MENY
  400. h W_NOMHOD
  401. STRED
  402. ZASOBA
  403. aW_UCET
  404.  M7_UCET
  405. W_AUT_ZVYSQ8
  406. W_AUT_SNIZQ9
  407. IZW_TUPK
  408. oM7_DESK
  409. W_TUPZ
  410. M7_MENY
  411.  'ZMENA
  412. jW_DRUH_MC
  413. DRUH_MC
  414. M7_POKLM
  415.  MENA
  416. WHILE
  417. W_MENA
  418. YSNAZEV
  419. W_NAZEV
  420. pUCET_MEN
  421. W_UCET
  422. AU_POM
  423. W_AU_POM
  424. cTUPK
  425. W_TUPK
  426. bW_TUPZ
  427. AUT_ZVYS
  428. W_AUT_ZVYSAUT_SNIZ
  429. W_AUT_SNIZPREP_KOEF
  430. W_PR_KOEF
  431. DAT_AKT
  432.  AKTUAL
  433. cMM_AUTOR
  434. STRED
  435. W_NOMHOD
  436. T_SNIZW_DPH
  437. colora
  438. set color to &color
  439.  'COLOR
  440. UH_MC
  441.       - 
  442.                  - ^PgDn
  443.                  - ^Home
  444.        - F10
  445.       - ^End,Esc
  446. Pohyb
  447. Funkce
  448. Konec
  449. colora
  450. SET COLOR TO &col
  451. CMESS
  452.  'COL
  453. ehled 
  454. ehled TUP
  455.  Konec 
  456. mod7_lib
  457. mod7_lib
  458.  'VOLBA
  459. jST_UCET
  460. W_UCET
  461. ZOBR_UCET
  462. MOD7_LIB
  463. ZMENA
  464. W_KLIC
  465. YSZOBR_DESK
  466. PROC1
  467. w_druh_mc
  468. DRUH_MC   
  469. w_druh_mc
  470. w_ucet
  471. mod7_lib
  472. w_au_pom
  473. mod7_lib
  474. w_tupk
  475. mod7_lib
  476. w_tupz
  477. mod7_lib
  478. Pro toto pole neexistuje pomocn
  479. ehled hodnot
  480. P_ZOB
  481.  'JMENO_C
  482. jWJMENO_C
  483. MOD_C3
  484. ZMENA
  485. ZOBR_UCET
  486. W_UCET
  487. MOD7_LIB
  488. SW_AU_POM
  489. ZOBR_DESK
  490. W_TUPK
  491. W_TUPZ
  492. HLASKA
  493. q&si = pocet
  494. q&si = 0
  495. jNOVY_Z
  496. W_DRUH_MC
  497. W_NOMHOD
  498. W_DPH
  499. W_MENA
  500. W_AUT_SNIZW_AUT_ZVYSPOCET
  501. S736AX
  502. & jmP
  503. S736AD
  504. OPRAVA
  505. PORADI
  506. PROC1
  507.      
  508. ZMEN1
  509.      
  510. ZMENY
  511.     &=!
  512. K_UDAJU
  513. zevt='
  514. HLASKA
  515. e n i d8
  516.       ":
  517. VOLBA
  518. lavic
  519. NAP_HOD
  520. IS 8=
  521. NASTAV_Q
  522. X:\OBEC\07\
  523. S736A.FXP
  524. X:\OBEC\07\S736A.PRG
  525.