home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 07 / S758A.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-04-15  |  21KB  |  609 lines
  1. 000000
  2. znam! 
  3. Zadejte 
  4. slo faktury:
  5. |...........
  6. Odsouhl.
  7. Funkce
  8. Hodn.
  9. Hod_Ud with Cis_Fak, nazevt
  10. s758a
  11. Stav dodav. faktur a 
  12. hrad do data zda
  13. RIIS 7.5
  14. s. faktury
  15. FaDod.Cis_Fak
  16. FaDod.Cis_Fak
  17. FaDod.ICO
  18. FaDod.ICO
  19. FaDod.Zav
  20. FaDod.Zav
  21. zev organizace
  22. left(m4_Organ.Nazev_Org,33)
  23. left(m4_Organ.Nazev_Org,33)
  24. Var. symbol
  25. FaDod.Vars_S
  26. FaDod.Vars_S
  27.    Celkem K
  28. str(FaDod.Cast_Cel,12,2)
  29. FaDod.Cast_Cel
  30. Zapl. ke dni
  31. str(FaDod.Zap_Cel,12,2)
  32. FaDod.Zap_Cel
  33.  Zapl. dosud
  34. str(FaDod.Zap_Dosud,12,2)
  35. FaDod.Zap_Dosud
  36.          Da
  37. str(FaDod.Dan_Cel,12,2)
  38. FaDod.Dan_Cel
  39.       Z
  40. str(FaDod.Zal_Cel,12,2)
  41. FaDod.Zal_Cel
  42. FaDod.Ucet_Dod
  43. FaDod.Ucet_Dod
  44. Dat.spl.
  45. trans(FaDod.Dat_Spl,'@E')
  46. FaDod.Dat_Spl
  47. Dat.zap.
  48. trans(FaDod.Dat_Zap,'@E')
  49. FaDod.Dat_Zap
  50. Dat.p
  51. trans(FaDod.Dat_Odes,'@E')
  52. FaDod.Dat_Odes
  53.  Celkem m
  54. str(FaDod.Cast_Men,12,2)
  55. FaDod.Cast_Men
  56. Zaplac. m
  57. str(FaDod.Zap_Men,12,2)
  58. FaDod.Zap_Men
  59. FaDod.Mena+' '
  60. FaDod.Mena
  61.           Kurz
  62. str(FaDod.Kurz,14,7)
  63. FaDod.Kurz
  64. m4_Organ.Dicp
  65. m4_Organ.Dicp
  66. FaDod.Znak_F+'  '
  67. FaDod.Znak_F
  68. Konst.Sym.
  69. FaDod.Kons_S+'      '
  70. FaDod.Kons_S
  71. Zdan.Pl.
  72. trans(FaDod.Dat_Pri,'@E')
  73. FaDod.Dat_Pri
  74. FaDod.Stav_Fa+'   '
  75. FaDod.Stav_Fa
  76. Dat.Sm
  77. trans(FaDod.Dat_Smir,'@E')
  78. FaDod.Dat_Smir
  79. trans(FaDod.Dat_Uct,'@E')
  80. FaDod.Dat_Uct
  81. Autor
  82. FaDod.Autor
  83. FaDod.Autor
  84. FaDod.Zapoc+'   '
  85. FaDod.Zapoc
  86. str(FaDod.Zal_Vypl,12,2)
  87. FaDod.Zal_Vypl
  88. FaDod.Pozn
  89. FaDod.Pozn
  90. POM_DATZDPPOM_CISODZPOM_CIZIM
  91. POM_JEDOBRDEJ_RIIS7
  92. OTEVRI
  93. PRUBSALDA
  94. FADOD
  95. IHLASKA
  96. IPOLEX
  97. IPROCX
  98. IRTOP
  99. DRBOT
  100. DCLEFT
  101. ACRIGHT
  102. FREEZE
  103. AORDER
  104. ILEVA
  105. PRAVA
  106. NADPIS
  107. JMENO
  108. PSOUC
  109. TITLE
  110. TITLECOLORPOC0
  111. _ODES
  112. T_CEL
  113. MKAF7
  114. OLORF10
  115. F0PRG
  116. ?F1ON
  117. NIF1PRG
  118. F4_JM
  119. BF4PRG
  120. TISKPRG
  121. F7_JM
  122. F7PRG
  123. F9PRG
  124. F9KEY
  125. F9KEY1
  126. LORF10_JM
  127. RF10PRG
  128. ?RAMECEK
  129. ORRIIS
  130. NAZEVT
  131.  KLICO
  132. KLNAZ
  133. *SPACEBAR
  134. ?TR_HL1
  135. *TR_HL2
  136. ?TR_HL3
  137. TR_HL4
  138. TR_HL5
  139. *TR_HL6
  140. ?TR_HL7
  141. TR_HL8
  142. TR_HL9
  143. DET_JM
  144. ENTER
  145. DETAIL
  146. DETPRG
  147. PS_LINE
  148. ?PS_RETURN
  149. PS_ZAZN
  150. MOD_PSV
  151. m_Param
  152. m7_OdZ
  153. Cis_OdZ
  154. m4_Uc_O
  155. m4_Organ
  156. m7_FaDod
  157. Cis_Fak
  158. c7_FaDod
  159. c7_FaDod
  160. c7_FaDod
  161. Cis_Fak
  162. m7_HoDod
  163. Cis_Fak
  164. m7_LiDod
  165. Cis_Fak
  166. m7_PeDod
  167. Cis_Fak
  168. m7_TUP
  169. Skupina
  170. m7_Desk
  171. Skupina
  172. M_PARAM
  173. POM_CIZIM
  174. POLE7
  175. SODZM7_ODZ
  176. CIS_ODZ
  177. BRPOM_CISODZM4_UC_O
  178. M4_ORGAN
  179. IM7_FADOD
  180. ICIS_FAK
  181. IC7_FADOD
  182. DDAT_SPL
  183. DPOM_DATSPLZAP_CEL
  184. CAST_CEL
  185. AFADOD
  186. IM7_HODOD
  187. IHODOD
  188. IM7_LIDOD
  189. LIDOD
  190. M7_PEDOD
  191. PEDOD
  192. M7_TUP
  193. SKUPINA
  194. M7_DESK
  195. SNASTAV_RE
  196. filterz
  197. colorz
  198. orderz
  199. Cis_Fak
  200.  Prob
  201.  obnova p
  202. ehledu ... 
  203. C_PSV
  204. index on &pom_Index tag &cps_dbf of &cps_cdx &pom_NDesc
  205. index on &pom_Index tag &cps_dbf of &cps_cdx for &pom_Podm &pom_NDesc
  206. c_Oznac
  207. POM_ALI
  208. POM_ORD
  209. POM_VETA
  210. ZPOM_FILT
  211. MMCOLOR
  212. BRPOM_OBR
  213. DZPOM_DBF
  214. POM_TRIDENPOM_INDEX
  215. POM_NDESC
  216. POM_PODM
  217. M_DBF
  218. IW_FAK
  219. DMOD_SYS
  220. DFADOD
  221. TSPLCIS_FAK
  222. NDESCENDINCPODMV
  223. IS751A
  224. IMESS
  225. INASTAV_RELC_OZNAC
  226. DEJ_STAV
  227. filterz
  228. colorz
  229. c_Oznac
  230.  Nebyly vybr
  231. ny (vysv
  232. ceny) 
  233. znamy. 
  234. c_Oznac,
  235. r (rozd
  236. O) ! 
  237. r (rozd
  238. vod) ! 
  239. 000000
  240. Esc - konec
  241. Chcete zalo
  242. it odsouhlasen
  243. vazku 
  244. 999999
  245.      Ano / Ne 
  246. c_Oznac.dbf
  247.  Toto odsouhlasen
  248. vazku ji
  249.  existuje ! 
  250. c_Oznac,
  251. m7_OdZ
  252. c_Oznac.dbf
  253. POM_ZAZNAMPOM_ZALOZ
  254. POM_ICO
  255. ZPOM_ZAV
  256. POM_ALI
  257. BRPOM_ORD
  258. DZPOM_VETA
  259. POM_FILT
  260. NMMCOLOR
  261. POM_OBR
  262. HLASKA
  263. IDEJ_STAV
  264. IC_OZNAC
  265. DZAZNAM
  266. AMFADOD
  267. TSPLICO
  268. AMZAV
  269. INM7_ODZ
  270. IPOM_CISODZCIS_ODZ
  271. M_CISODZNTRGPZAZ
  272. PS_RETURN
  273. CIS_FAK
  274. VARS_S
  275. DAT_SPL
  276. DAT_PRI
  277. RECAST_CEL
  278. DAN_CEL
  279. ORDAT_ODZ
  280. KC_DAT_ODZDAT_AKT
  281. AKC_DAT_AKTPOM_DATZDPZAP_CEL
  282. IZAP_DOSUD
  283. set filter to &pom_Filt
  284. POM_ALI
  285. AMPOM_ORD
  286. POM_VETA
  287. ZPOM_FILT
  288. MMCOLOR
  289. FADOD
  290. AMUCET_DOD
  291. M4_UC_O
  292. BRM4_ORGAN
  293.  Stav faktur a 
  294. hrad k zadan
  295. mu datu zdaniteln
  296. ho pln
  297.  Nejd
  298. ve se vyberou faktury s datem 
  299.  zdaniteln
  300. ho pln
  301.  zadan
  302.  datum.
  303.  Bere se jak aktu
  304. , tak i archivn
  305.  soubor.
  306. hrady t
  307. chto faktur se berou takt
  308.  jen do 
  309.  tohoto zadan
  310. ho data.        
  311. chto podm
  312. nek se z hodnotov
  313. te stav
  314.  saldokonta tak, jak
  315.  skute
  316.  k zadan
  317. mu datu byl.
  318.  Zobraz
  319.  se jenom faktury nezaplacen
  320.  nebo p
  321. eplacen
  322.  Faktury zaplacen
  323.  zcela se nezobraz
  324.  !      
  325.     Zadejte datum    
  326.  zdaniteln
  327. ho pln
  328.  Prob
  329. prava dat ... 
  330. RIIS 7.5
  331. m7_FaDod
  332. c7_Fakt
  333. a7_FaDod
  334. c7_FaktA
  335. RIIS 7.6
  336. m7_FaOdb
  337. c7_Fakt
  338. a7_FaOdb
  339. c7_FaktA
  340. c7_Fakt
  341. c7_Fakt
  342. Cis_Fak
  343. c7_FaktA
  344. c7_Fakt
  345. Cis_Fak
  346. POM_DODODBDEJ_RIIS7
  347. _UC_O
  348. ZPOM_DATZDPMOD_SYS
  349. BRMESS
  350. ZHODOD
  351. DODBDAT_V_Z
  352. NA_HODOD
  353. DPRIIS
  354. ATZDPDAT_PRI
  355. IHLDAT
  356. IZAP_CEL
  357. DZAP_DOSUD
  358. M7_FADOD
  359. LC7_FAKT
  360. DPA7_FADOD
  361. C7_FAKTA
  362. PHOODB
  363. SODZA_HODODB
  364. PM7_FAODB
  365. A7_FAODB
  366. ETURN
  367. CIS_FAK
  368. ZAL_VYPL
  369. ZAL_MEN
  370. REZAL_CEL
  371. ZAP_MEN
  372. ORDAT_ZAP
  373. PREPISFAK
  374. CAST_CEL
  375. BFADOD
  376. KTNASTAV_REL
  377. filterz
  378. colorz
  379. HoDod
  380. a_HoDod
  381. Cis_Fak
  382. Cis_Fak
  383. a_HoDod
  384. HoDod
  385. if MaxDatZap < &pom_Dbf..Dat_V_Z and not inlist(&pom_Dbf..Druh_H, "2","3","9")
  386. MaxDatZap =&pom_Dbf..Dat_V_Z
  387. case &pom_Dbf..Druh_H = "2"
  388. SumM  =SumM  + &pom_Dbf..Cast_Men
  389. SumKc =SumKc + &pom_Dbf..Cast
  390. Zal_Fak
  391. SumZalM =SumZalM + &pom_Dbf..Cast_Men
  392. SumZal  =SumZal  + &pom_Dbf..Cast
  393. Zal_Fak
  394. SumZalM = SumZalM + &pom_Dbf_D..Cast_Men
  395. SumZal  = SumZal  + &pom_Dbf_D..Cast
  396. case &pom_Dbf..Druh_H = "3"
  397. SumZapM =SumZapM + &pom_Dbf..Cast_Men
  398. SumZap  =SumZap  + &pom_Dbf..Cast
  399. SumZapM =SumZapM - &pom_Dbf..Cast_Men
  400. SumZap  =SumZap  - &pom_Dbf..Cast
  401. if MaxDatZap < &pom_Dbf..Dat_V_Z
  402. MaxDatZap =&pom_Dbf..Dat_V_Z
  403. Zal_Fak
  404. SumDobrM =SumDobrM + &pom_Dbf..Cast_Men
  405. SumDobr  =SumDobr  + &pom_Dbf..Cast
  406. Zal_Fak
  407. SumDobrM =SumDobrM + &pom_Dbf_D..Cast_Men
  408. SumDobr  =SumDobr  + &pom_Dbf_D..Cast
  409. if inlist(&pom_Dbf..Druh_H, "1","4","5","6","7","D","K")
  410. SumZapM =SumZapM + &pom_Dbf..Cast_Men
  411. SumZap  =SumZap  + &pom_Dbf..Cast
  412. if &pom_Dbf..Druh_H = "9"
  413. SumPrikM =SumPrikM + &pom_Dbf..Cast_Men
  414. SumPrik  =SumPrik  + &pom_Dbf..Cast
  415. Cis_Fak
  416. Cis_Fak
  417. Cis_Fak
  418. POM_CISFAKPOM_CISZALPOM_DBF
  419. ZPOM_DBF_D
  420. POM_HODVETPOM_NASEL
  421. SUMZALM
  422. DBSUMZAL
  423. NSUMZAP
  424. DPSUMZAPM
  425. DPSUMM
  426. ISUMKC
  427. ISUMPRIK
  428. DSUMPRIKM
  429. MAXDATZAP
  430. POM_ALI
  431. DPPOM_ORD
  432. POM_VETA
  433. PPOM_FILT
  434. ZMMCOLOR
  435. PCIS_FAK
  436. CIS_F_ZAL
  437. ZAL_FAK
  438. ALDRUH_H
  439. ZALC7_FAKT
  440. ALZAL_VYPL
  441. ZAL_MEN
  442. PAR_POLE
  443. EPOM_DODODBSUMDOBR
  444. ORSUMDOBRM
  445. ZAL_CEL
  446. AKZAP_CEL
  447. BZAP_MEN
  448. KTDAT_ZAP
  449. ELPR_CEL
  450. ODBPR_UHR
  451. DEJ_STAV
  452. m_Param
  453. m7_OdZ
  454. Cis_OdZ
  455. m4_Uc_O
  456. m4_Organ
  457. m7_FaDod
  458. Cis_Fak
  459. a7_FaDod
  460. Cis_Fak
  461. m7_HoDod
  462. Cis_Fak
  463. a7_HoDod
  464. Cis_Fak
  465. m7_LiDod
  466. Cis_Fak
  467. m7_PeDod
  468. Cis_Fak
  469. m7_TUP
  470. Skupina
  471. m7_Desk
  472. Skupina
  473. M_PARAM
  474. AKPOM_CIZIM
  475. POLE7
  476. ZPOM_JEDOBRM7_ODZ
  477. VETCIS_ODZ
  478. POM_CISODZM4_UC_O
  479. NUCET
  480. DPM4_ORGAN
  481. IM7_FADOD
  482. ICIS_FAK
  483. DA7_FADOD
  484. M7_HODOD
  485. HODOD
  486. DPA7_HODOD
  487. A_HODOD
  488. PM7_LIDOD
  489. ZLIDOD
  490. PM7_PEDOD
  491. PEDOD
  492. M7_TUP
  493. ALSKUPINA
  494. ALM7_DESK
  495. colorz
  496. RIIS 7.5
  497. MMCOLOR
  498. filterz
  499. colorz
  500. c7_HoDod
  501. c7_HoDod+
  502. c7_HoDod
  503. c7_HoDod
  504. s758a
  505. RIIS 7.5
  506. Hodnotov
  507. daje faktury 
  508. c7_HoDod.Druh_H+' '
  509. c7_HoDod.Druh_H
  510. h/vys
  511. trans(c7_HoDod.Dat_V_Z,'@E')
  512. c7_HoDod.Dat_V_Z
  513. c7_HoDod.Mena+' '
  514. c7_HoDod.Mena
  515. stka/m
  516. str(c7_HoDod.Cast_Men,12,2)
  517. c7_HoDod.Cast_Men
  518.           Kurz
  519. str(c7_HoDod.Kurz,14,7)
  520. c7_HoDod.Kurz
  521. stka v K
  522. str(c7_HoDod.Cast,12,2)
  523. c7_HoDod.Cast
  524. Doklad 
  525. c7_HoDod.Cis_F_Zal
  526. c7_HoDod.Cis_F_Zal
  527. POM_CISFAKPOM_NAZT
  528. POM_ALI
  529. KPOM_ORD
  530. BRPOM_VETA
  531. TPOM_FILT
  532. MMCOLOR
  533. DZPOM_OBR
  534. NPOM_DBF
  535. DPPOM_TRIDENPOM_INDEX
  536. POM_NDESC
  537. POM_PODM
  538. DC7_HODOD
  539. HODOD
  540. A_HODOD
  541. AKCIS_FAK
  542. KPS_LINE
  543. KPOLEX
  544. ZPROCX
  545. PRTOP
  546. CLEFT
  547. ALCRIGHT
  548. ALFREEZE
  549. ALORDER
  550. ELEVA
  551. ODODBPRAVA
  552. ORNADPIS
  553. AKJMENO
  554. BHODN
  555. KTSOUC
  556. ELPSOUC
  557. ODBTITLE
  558. TITLECOLORPOC0
  559. F0PRG
  560. F1PRG
  561. LORF4_JM
  562. RF4PRG
  563. ?TISKPRG
  564. ORF7_JM
  565. F7PRG
  566.  F9PRG
  567. F9KEY
  568. *F9KEY1
  569. ?F10_JM
  570. *F10PRG
  571. ?RAMECEK
  572. NAZEVT
  573. *KLICO
  574. ?KLNAZ
  575. SPACEBAR
  576. TR_HL1
  577. TR_HL2
  578. TR_HL3
  579. TR_HL4
  580. TR_HL5
  581. TR_HL6
  582. ?TR_HL7
  583. TR_HL8
  584. TR_HL9
  585. BDET_JM
  586. ENTER
  587. DETAIL
  588. DETPRG
  589. PS_RETURN
  590. PS_ZAZN
  591. ACEBAR
  592. ?MOD_PSV
  593. AKDEJ_STAV
  594. S758A
  595. VYTV_ODZ
  596. SOTEVRI
  597. DETAIL
  598. FUNKCE
  599. DEJ_STAV
  600. NASTAV_REL
  601. PRUBSALDA
  602. PREPISFAK
  603. OTEVRI
  604. DEJ_RIIS7
  605. HOD_UD
  606. P:\IN\SK\O\07\
  607. S758A.FXP
  608. P:\IN\SK\O\07\S758A.PRG
  609.