home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 07 / MOD79H.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-01-08  |  11KB  |  317 lines
  1. m7_ucto
  2. m_param
  3. RIIS 7.9
  4. Rekapitulace pokladny - v
  5. deje za obd.:     / F
  6. m7_obru
  7. Nejsou 
  8. znamy
  9. x7_ob-st
  10. m7_obru
  11. c9_str
  12. x9_str
  13. c9_t.dbf
  14. c9_t1.dbf
  15. insert into c9_t1 (field_name,field_type,field_len,field_dec) values ('sum&zz', 'C', 10, 0)
  16. c9_tisk
  17. c9_t1
  18. replace sum&zz with 'Str.: '+c9_str.nstr
  19. x7_uc-st
  20. stredisko(a1+2)=stredisko(a1+2)+val(sum&zz)
  21. Celkem 
  22. Rekapit
  23. Rekap.
  24. Funkce
  25. funkce
  26. mod79h
  27. Rekapitulace pokladny - v
  28. deje za obd.:  F
  29. RIIS 7.9
  30. c9_tisk.ucet
  31. c9_tisk.ucet
  32.  Celkem K
  33. c9_tisk.sum_celk
  34. c9_tisk.sum_celk
  35.         FF
  36. jmeno(i)="c9_tisk.sum&zz"
  37. hodn(i)="c9_tisk.sum&zz"
  38. KONEC
  39. ='tiA1
  40. '  &&naW_SK
  41. ogramM7_UCTO
  42. POBD1
  43. PLAT_OBDOBOBD
  44. procxPLAT_POK
  45. nazev pROK_POK
  46. rM_PARAM
  47. .tUCET_POKL
  48. UC_POKL
  49.   MOD_SYS
  50. enM7_OBRU
  51. t='Re_AA
  52. ulace SKUPINA
  53. - OBDOBI_MM
  54. HLASKA
  55. strNSTR
  56. )+' /X7_OB
  57. rk,4ST
  58.        DISTINCT
  59. aC9_STR
  60. ICINNOST
  61. OBI_MM
  62. X9_STR
  63. aviC9_T
  64. nadDBF
  65.       SUM_CELK
  66. kC9_T1
  67. dpisZZ
  68. a=1   C9_TISK
  69. & STREDISKO
  70. X7_UC
  71.   POM_STR
  72. POM_UC
  73. SUM_C
  74.     SUM_STR
  75. 19    I
  76. M_STR
  77.  dPOLEX
  78. PROCX
  79. cRBOT
  80. criCLEFT
  81. CRIGHT
  82. ---FREEZE
  83. ce ORDER
  84. ----ZAHL
  85. -----JMENO
  86. diHODN
  87. l(polSOUC
  88. ime jTITLE
  89. lex)TITLECOLORF1
  90. ouc(polF3
  91. store F4
  92. to soucF6
  93. ico='riF7
  94. * -F9
  95. ----- nF10
  96. ni vseDETAIL
  97. ---F1PRG
  98. ----F4_JM
  99. i = F4PRG
  100. ahl(F7_JM
  101. F7PRG
  102. )="cF9KEY
  103. ucetF10_JM
  104. i)=F10PRG
  105. .ucDET_JM
  106.  i+DETPRG
  107. hl(RAMECEK
  108. elNAZEVT
  109. jmRIIS
  110. ="'  TISKPRG
  111. _pKLICO
  112. a,10F5
  113. dn(F8
  114. c9_pr_tENTER
  115. souPS_ZAZN
  116. iNADPIS
  117. -----PRAVA
  118. defiHOR
  119. polozeDOL
  120. gramu MOD_PSV
  121.  Rekapitulace 
  122.  Tisk rekap. 
  123.  Konec 
  124. ='tiKONEC
  125. &&naVOL11
  126. gramM
  127. PPRIJEM
  128. REKAPIT
  129. OBTISK_R
  130. c9_pr_t
  131. c9_pr_t
  132. Rekapit
  133. Rekap.
  134. Tisk-rek.
  135. tisk_r
  136. mod79h
  137. Rekapitulace pokladny - p
  138. jmy za obd.:  F
  139. RIIS 7.9
  140. c9_pr_t.ucet
  141. c9_pr_t.ucet
  142.     Celkem K
  143. '   '+str(c9_pr_t.suma,10,2)
  144. c9_pr_t.suma
  145. C9_PR_T
  146. tiUCET
  147. &&naSUMA
  148. gramM7_OBRU
  149. PSKUPINA
  150. OBCINNOST
  151. cxUCET_POKL
  152. azev pOBDOBI_MM
  153. POM_UC
  154. .tSUM_C
  155.   DAL
  156. enPOLEX
  157. PROCX
  158. ='ReRTOP
  159. lace RBOT
  160. - CLEFT
  161. CRIGHT
  162. strFREEZE
  163. ' /ORDER
  164. rk,4ZAHL
  165.      JMENO
  166. aHODN
  167. ISOUC
  168.   TITLE
  169. TITLECOLORF1
  170. nadF2
  171.       F3
  172. _CELK
  173. dpisF6
  174. a=1   F7
  175. EDISKO
  176.   DETAIL
  177. F1PRG
  178. F4_JM
  179.     F4PRG
  180.  hF7_JM
  181. F7PRG
  182.     F9KEY
  183.  dF10_JM
  184. F10PRG
  185. DET_JM
  186. cDETPRG
  187. criRAMECEK
  188. NAZEVT
  189. ---RIIS
  190. ce TISKPRG
  191. --KLICO
  192. ----F5
  193. l(polENTER
  194. me jPS_ZAZN
  195. ORNADPIS
  196. diLEVA
  197. c(polPRAVA
  198. ore HOR
  199. o soucDOL
  200. co='riI
  201. * -MOD_PSV
  202.  nPS_RETURN
  203. german
  204. m7_meny
  205. ch nejsou koruny
  206. Rekapitulace p
  207.  za obd: F
  208.  stav 
  209. 9999999.99
  210. 9999999.99
  211. 9999999.99
  212.  stav 
  213. 9999999.99
  214. et: p
  215. ch doklad
  216. 99999
  217.        v
  218. dajov
  219. ch doklad
  220. 99999
  221. GERMAN
  222. tiM7_MENY
  223. naMENA
  224. gramTXT
  225. PHLASKA
  226. cxSTAV_M
  227. PRIJ_M
  228.  pVYD_M
  229. ZASOBA
  230. .tPOC_PM
  231. POC_VM
  232. german
  233. ipravena tisk
  234. p_kody
  235. p_name
  236. Epson LX-810
  237. m7_meny
  238. ch nejsou koruny
  239. Rekapitulace p
  240.  za obd: 
  241.  stav 
  242. 9999999.99
  243. 9999999.99
  244. 9999999.99
  245.  stav 
  246. 9999999.99
  247. et: p
  248. ch doklad
  249. 99999
  250.        v
  251. dajov
  252. ch doklad
  253. 99999
  254. GERMAN
  255. tiTTISK
  256. naMODTESTT
  257. PHLASKA
  258. SOUBOR
  259. OBP_KODY
  260. cxP_NAME
  261. W_TISKARNAEMP
  262. SKARNAP_BOLDON
  263. tEMP0
  264. P_BOLDOFF
  265. DOUBLE
  266. enP_DBST_ON
  267. NDOUBLE
  268. ReP_DBST_OFFNLQ_ON
  269. - P_LETRQUALDRAFT
  270. strP_DRAFT
  271.  /SUB_OFF
  272. ,4P_SUBOFF
  273.  SUPER_ON
  274. aP_SUPERON
  275. SUPER_OFF
  276. P_SUPEROFFHUSTE_ON
  277. RP_10CPI
  278. adP_COMPRESSHUSTE_OFF
  279. P_COMP_OFFEXP
  280.   P_WIDT_ON
  281. P_WIDT_OFFPICA
  282. ELITE
  283. P_12CPI
  284.   MALE
  285.  hP_SUBON
  286. RESET
  287.     P_SETUP
  288.  dR8LPI
  289. P_8LPI
  290. R6LPI
  291. cP_6LPI
  292. criNCON
  293. MP_OFFNEWPAGE
  294. SSP_NEWPAGE
  295. ---M7_MENY
  296. diMENA
  297. l(polR
  298. e jOBD
  299. ORSTAV_M
  300. diPRIJ_M
  301. olVYD_M
  302. e ZASOBA
  303. ucPOC_PM
  304. riPOC_VM
  305. colora
  306. set color to &color
  307. tiCOLOR
  308. na_XOBR
  309. mFUNKCE
  310. PRIJEM
  311. REKAPIT
  312. TISK_R
  313. HLASKA
  314. X:\OBEC\07\
  315. MOD79H.FXP
  316. X:\OBEC\07\MOD79H.PRG
  317.