home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 07 / S712B.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-01-07  |  16KB  |  424 lines
  1. m_param
  2. m7_ucto
  3. u7_obru
  4. denik
  5. r7_obru
  6. denik
  7. m7_obru
  8. denik
  9. Nebyl vybr
  10. znam.
  11. k(3),Par. znak(12),Doklad(5)
  12. Funkce
  13. funkce
  14. Zmena
  15.  Kontrola za
  16.  faktur 
  17. RIIS 7.1
  18. ku, par. znaku a dokladu
  19. s712b
  20. ident_den+" "
  21. ident_den
  22. rov. znak
  23. par_znak
  24. par_znak
  25. Dokl.
  26. str(doklad,5)
  27. doklad
  28. cis_pol+" "
  29. cis_pol
  30.                 MD
  31. str(md,18,2)
  32.                Dal
  33. str(dal,18,2)
  34. Splatn.
  35. tran(splatnost,'@E')
  36. splatnost
  37. Datum
  38. tran(datum,'@E')
  39. datum
  40. M_PARAM
  41. iiW_PODNIK
  42. 1FIRMA
  43.  = .M7_UCTO
  44. .t_UZAV
  45.  .t.U7_OBRU
  46. DENIK
  47. 'tisOBRU
  48. f6 _MES
  49. f7 =PLAT_OBDOB_ROK
  50. dejteROK
  51. eyR7_OBRU
  52. W_ROK_VYB
  53. M7_OBRU
  54. fP_DATUM
  55. OBOBDOBI_MM
  56. IDENT_DEN
  57. PAR_ZNAK
  58. .DOKLAD
  59. jm=TXT
  60. eHLASKA
  61. taiPOLEX
  62. CPROCX
  63. @RTOP
  64. )="nsCLEFT
  65. i = CRIGHT
  66. l(iFREEZE
  67. n.'ORDER
  68. (i)=HOR
  69. (splatDOL
  70. '@E')"LEVA
  71. (i)="PRAVA
  72. NADPIS
  73. i)='(JMENO
  74. dTITLE
  75. TITLECOLORPOC0
  76. F0PRG
  77. F1PRG
  78. F4_JM
  79. dn(iF4PRG
  80. pol"TISKPRG
  81. +1F7_JM
  82. i)='F7PRG
  83. jmenF9PRG
  84. cet'F9KEY
  85. i)="F9KEY1
  86. i F10_JM
  87. ahlF10PRG
  88.    RAMECEK
  89.  MRIIS
  90. eno(iNAZEVT
  91. d,1KLICO
  92. hodnKLNAZ
  93. sSPACEBAR
  94. TR_HL1
  95. TR_HL2
  96. =' TR_HL3
  97.    TR_HL4
  98. jmTR_HL5
  99. strTR_HL6
  100. 2)"TR_HL7
  101. )="TR_HL8
  102. uc(TR_HL9
  103. iDET_JM
  104. zahENTER
  105. .'DETAIL
  106. i)=DETPRG
  107. hodPS_LINE
  108. r"PS_RETURN
  109. PS_ZAZN
  110. (i)="trTRID
  111. hMOD_PSV
  112. filterz
  113. relationz
  114.  Konec 
  115. FILTERz
  116.  AND 
  117.  and 
  118.  Zadejte intervaly 
  119.  Od den
  120.  Do den
  121.  Konec(A\N): 
  122. ident_den
  123.  and '
  124. ident_den
  125. Stop - d
  126. lku podm
  127. nky ji
  128.  nelze zv
  129.  Prob
  130. r ... 
  131. select * from u7_obru into dbf c_obru where &podm order by ident_den
  132. select * from r7_obru into dbf c_obru where &podm order by ident_den
  133. select * from m7_obru into dbf c_obru where &podm order by ident_den
  134. set filter to &M_filt
  135. set relation to &m_rel
  136. M_DRUH
  137. iiKONEC
  138. 1VOL11
  139.  = .OBRF
  140.  .t.ALIAS
  141. M_FILT
  142. tisM_REL
  143. f6 AREC
  144. f7 =VETARECNO
  145. ZPETRECNO
  146. SOUCET
  147. eyFILT1
  148. FILT2
  149. fPODM
  150. OB_KON
  151. .HLASKA
  152. jm=MESS
  153. ePODM1
  154. tai_UZAV
  155. C_ROK
  156. @ZOBRRADY
  157. colora
  158. iiMCOLOR
  159. german
  160. Nebyl vybr
  161. znam.
  162. c_obru
  163.  Kontrola za
  164.  faktur 
  165. RIIS 7.1
  166. tisk_den
  167. Zadejte 
  168. slo den
  169. souc1
  170. Detail
  171. detailDod
  172. s712b
  173. ident_den+" "
  174. ident_den
  175. rov. znak
  176. par_znak
  177. par_znak
  178. Dokl.
  179. str(doklad,5)
  180. doklad
  181. cis_pol+" "
  182. cis_pol
  183.                 MD
  184. str(md,18,2)
  185.                Dal
  186. str(dal,18,2)
  187. Splatn.
  188. tran(splatnost,'@E')
  189. splatnost
  190. Datum
  191. tran(datum,'@E')
  192. datum
  193. GERMAN
  194. iiHLASKA
  195. 1C_OBRU
  196. = .IDENT_DEN
  197. PAR_ZNAK
  198. .DOKLAD
  199. POLEX
  200. tisPROCX
  201. f6 RTOP
  202. f7 =RBOT
  203. CLEFT
  204. CRIGHT
  205. FREEZE
  206. eyORDER
  207. fLEVA
  208. OBPRAVA
  209. NADPIS
  210. .JMENO
  211. jm=HODN
  212. eSOUC
  213. taiTITLE
  214. CTITLECOLORPOC0
  215. i = F2
  216. l(iF3
  217. n.'F4
  218. (i)=F6
  219. (splatF7
  220. '@E')"F9
  221. (i)="F10
  222. F0PRG
  223. i)='(F1PRG
  224. F4_JM
  225. F4PRG
  226. dTISKPRG
  227. F7_JM
  228. OLORF7PRG
  229. F9PRG
  230. F9KEY
  231. F9KEY1
  232. F10_JM
  233. F10PRG
  234.  RAMECEK
  235. NAZEVT
  236. KLICO
  237. KLNAZ
  238. SPACEBAR
  239. TR_HL1
  240. TR_HL2
  241. n(iTR_HL3
  242. ol"TR_HL4
  243. +1TR_HL5
  244. )='TR_HL6
  245. menTR_HL7
  246. et'TR_HL8
  247. )="TR_HL9
  248. i DET_JM
  249. ahlENTER
  250.    DETAIL
  251.  MDETPRG
  252. o(iPS_LINE
  253. ,1PS_RETURN
  254. PS_ZAZN
  255. MOD_PSV
  256. mod_lib
  257. mod_lib
  258.  Prob
  259.  tisk  ... 
  260. s712b
  261. iiP_SETUP
  262. 1P_RESET
  263.  .P_6LPI
  264. P_8LPI
  265. .P_10CPI
  266. P_12CPI
  267. isP_16CPI
  268. 6 P_20CPI
  269.  =P_BOLDON
  270. P_BOLDOFF
  271. P_ULINEON
  272. P_ULINEOFFP_ITALON
  273. P_ITALOFF
  274. P_SUPERON
  275. P_SUPEROFFP_SUBON
  276. P_SUBOFF
  277. P_DBST_ON
  278. P_DBST_OFFP_LETRQUALP_DRAFT
  279. aiP_COMP_OFFP_WIDT_ON
  280. P_WIDT_OFFP_HEIG_ON
  281. P_HEIG_OFFP_NEWPAGE
  282. P_KODY
  283. n.'MOD_LIB
  284. )=INDIK
  285. platNASTAV_PRNZAZT
  286. ="OBRT
  287. S712B
  288. FILTERz
  289.  AND 
  290. colorz
  291. double
  292.  Celkov
  293.  Celkov
  294. ty - v
  295.  Esc,^End 
  296.  MD :                    K
  297.  Dal:                    K
  298. sum all md, dal to s_md, s_dal for &filt
  299. RIIS 7.1
  300. 999,999,999,999.99
  301. 999,999,999,999.99
  302. SCRQ1
  303. iiMOD_SYS
  304. 1FILT1
  305.  .FILT2
  306. .AREC
  307. VETARECNO
  308. M_COL
  309. 6 MOD_WIN
  310. LDOFF
  311. S_DAL
  312. EOFFPOM
  313. ALOFF
  314. ZPETRECNO
  315. prava dat ...
  316.  soubor ! 
  317. ty za den
  318. Zadejte den
  319.  Kontrola za
  320.  faktur - v
  321. RIIS 7.1
  322. s712b
  323. Funkce
  324. Funkce
  325. Detail
  326. Detail
  327. c_obru
  328. c7_obru
  329. ident_den+"  "
  330. ident_den
  331.                 MD
  332. str(md,18,2)
  333.                Dal
  334. str(dal,18,2)
  335. Celkem:
  336. 9999999999.99
  337. 9999999999.99
  338. iiO01
  339. 1MESS
  340.  .ZAZ
  341. HLASKA
  342. .POLEX
  343. PROCX
  344. 6 RBOT
  345.  =CLEFT
  346. CRIGHT
  347. FREEZE
  348. ORDER
  349. EOFFHOR
  350. ALOFF
  351. PRAVA
  352. ROFFNADPIS
  353. JMENO
  354. T_OFFSOUC
  355. RQUALTITLE
  356. aiTITLECOLORPOC0
  357. IDT_OFFF1
  358. EIG_ON
  359. EIG_OFFF3
  360. EWPAGE
  361. n.'F6
  362. platF9
  363. TAV_PRNF10
  364. ="F0PRG
  365. F1PRG
  366. '(F4_JM
  367. F4PRG
  368. TISKPRG
  369. dF7_JM
  370. F7PRG
  371. OLORF9PRG
  372. F9KEY
  373. F9KEY1
  374. F10_JM
  375. F10PRG
  376. RAMECEK
  377.  RIIS
  378. NAZEVT
  379. KLICO
  380. KLNAZ
  381. SPACEBAR
  382. TR_HL1
  383. TR_HL2
  384. TR_HL3
  385. n(iTR_HL4
  386. ol"TR_HL5
  387. +1TR_HL6
  388. )='TR_HL7
  389. menTR_HL8
  390. et'TR_HL9
  391. )="DET_JM
  392. i ENTER
  393. ahlDETAIL
  394.    DETPRG
  395.  MPS_LINE
  396. (iPS_RETURN
  397. PS_ZAZN
  398. IDENT_DEN
  399. NT_DEN
  400.    C_OBRU
  401. jmC7_OBRU
  402. trQ_MD
  403. Q_DAL
  404. uc(HELP
  405. zahMOD_PSV
  406. Vyhled
  407. Konec
  408. - Esc
  409. colora
  410. set color to &color
  411. iiCOLOR
  412.  .S712B
  413. FUNKCE
  414. ZOBRRADY
  415. VETARECNO
  416. ZPETRECNO
  417. TISK_DEN
  418. SOUCET
  419. SOUC1
  420. HLASKA
  421. Z:\RIIS\
  422. S712B.FXP
  423. Z:\RIIS\S712B.PRG
  424.