home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 09 / MOD95A.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-01-08  |  7KB  |  203 lines
  1. ID_ORG
  2. *UZAV_STARAUZAV_NOVA
  3. RIIS 7.9
  4. Archivace pokl. den
  5. ku a kurz. listku
  6.  Prob
  7. hne archivace pokl. den
  8. ku,obrat
  9.  a kurz. listku.
  10.  Archivovan
  11.  data budou vymaz
  12. na ze z
  13. kladn
  14. ch soubor
  15. Pokra
  16. ovat (A/N): 
  17.            O.K. - prob
  18.  archivace  ...    
  19. m_param
  20. ! flag &f_adr\data\u7_kasa.dbf -t >nul
  21. ! flag &f_adr\data\m7_kasa.dbf -t >nul
  22. ! flag &f_adr\data\u7_obru.dbf -t >nul
  23. ! flag &f_adr\data\m7_obru.dbf -t >nul
  24. ! flag &f_adr\data\u7_meny.dbf -t >nul
  25. m7_kasa
  26. cis_dok
  27. a7_kasa.dbf2
  28. copy stru to &f_adr\data\a7_kasa with cdx
  29. m7_obru
  30. a7_obru.dbf2
  31. copy stru to &f_adr\data\a7_obru 
  32. copy file m7_meny.dbf to &f_adr\data\u7_meny.dbf
  33. copy file m7_meny.cdx to &f_adr\data\u7_meny.cdx
  34. copy file m7_kasa.dbf to &f_adr\data\u7_kasa.dbf
  35. copy file m7_kasa.cdx to &f_adr\data\u7_kasa.cdx
  36. a7_kasa
  37. m7_kasa
  38. m7_kasa
  39. m7_meny
  40. m7_vdra.dbf2
  41. copy file m7_vdra.dbf to &f_adr\data\u7_vdra.dbf
  42. copy file m7_vdra.cdx to &f_adr\data\u7_vdra.cdx
  43. a7_vdra
  44. m7_vdra
  45. m7_vdra
  46. m7_ucto
  47. m7_pokl
  48. ! flag &f_adr\data\u7_kasa.dbf t >nul
  49. ! flag &f_adr\data\m7_kasa.dbf t >nul
  50. ! flag &f_adr\data\u7_obru.dbf t >nul
  51. ! flag &f_adr\data\m7_obru.dbf t >nul
  52. ! flag &f_adr\data\u7_meny.dbf t >nul
  53. KONEC
  54. *W_SK
  55. STARAUZAV
  56. PUSTIT
  57. ***MOD_SYS
  58. **M_PARAM
  59. **KOD
  60. ******POLE0
  61. W_SIT
  62. M7_KASA
  63. CIS_DOK
  64. M7_OBRU
  65. A7_KASA
  66. M7_MENY
  67. DRUH_MC
  68. STAV_M
  69. ZASOBA
  70. STAV_D
  71. PRIJ_M
  72. VYD_M
  73. PRIJ_D
  74. VYD_D
  75. POC_PM
  76. POC_VM
  77. POC_PD
  78. POC_VD
  79. A7_VDRA
  80. M7_VDRA
  81. M7_UCTO
  82. POC_OBDOB
  83. PLAT_POK
  84. ROK_POK
  85. M7_POKL
  86. DOKLAD
  87. RIIS 7.9
  88. rka pokladny
  89.  Pokladn
  90.  obraty se ulo
  91. ejdeme na nov
  92.  obdob
  93.  Archivovan
  94.  data budou vymaz
  95. na ze z
  96. kladn
  97. ch soubor
  98. Pokra
  99. ovat (a/N) : 
  100. m7_pokp
  101. Obdob
  102. rky :
  103. Za zadan
  104.  obdob
  105. rka ji
  106.  prob
  107. Chybn
  108.  zadan
  109. c obdob
  110. Chybn
  111.  zadan
  112.  rok obdob
  113. Chybn
  114.  zadan
  115. c obdob
  116. Chybn
  117.  zadan
  118.  obdob
  119. Chybn
  120.  zadan
  121.  rok uz
  122.   Prob
  123. rka  ...  
  124. m_param
  125. ! flag &f_adr\data\m7_obrp.dbf -t >nul
  126. ! flag &f_adr\data\m7_obrpp.dbf -t >nul
  127. ! flag &f_adr\data\u7_obrp.dbf -t >nul
  128. ! flag &f_adr\data\u7_obrpp.dbf -t >nul
  129. ! flag &f_adr\data\a7_obrp.dbf -t >nul
  130. ! flag &f_adr\data\a7_obrpp.dbf -t >nul
  131. ! flag &f_adr\data\u7_meny.dbf -t >nul
  132. ! flag &f_adr\data\u7_poklm.dbf -t >nul
  133. m7_obrp
  134. cis_dok
  135. m7_obrpp
  136. cis_dok
  137. m7_meny
  138. mena_c
  139. m7_poklm
  140. ident_pok
  141. a7_obrp
  142. a7_obrpp
  143. m7_pokp
  144. m7_pokld
  145. copy to &f_adr\data\u7_obrp with cdx
  146. u7_obrp
  147. copy to &f_adr\data\u7_obrpp with cdx
  148. u7_obrpp
  149. copy to &f_adr\data\u7_meny with cdx
  150. copy to &f_adr\data\u7_poklm with cdx
  151. ! flag &f_adr\data\u7_meny.dbf t >nul
  152. KONEC
  153. *W_SK
  154. STARAUZAV
  155. M7_POKP
  156. **MESIC_POK
  157. **W_MM_ST
  158. **ROK_POK
  159. W_RR_ST
  160. HLASKA
  161. MOD_SYS
  162. M_PARAM
  163. POLE0
  164. W_SIT
  165. M7_OBRP
  166. CIS_DOK
  167. M7_OBRPP
  168. M7_MENY
  169. MENA_C
  170. M7_POKLM
  171. IDENT_POK
  172. A7_OBRP
  173. A7_OBRPP
  174. M7_POKLD
  175. UZAVR
  176. U7_OBRP
  177. U7_OBRPP
  178. STAV_D
  179. ZASOBA
  180. PRIJ_D
  181. VYD_D
  182. STAV_M
  183. PRIJ_M
  184. VYD_M
  185. POC_PM
  186. POC_VM
  187. POC_PD
  188. POC_VD
  189. DOKLAD
  190. colora
  191. set color to &color
  192. *COLOR
  193. colora
  194. set color to &color
  195. *COLOR
  196. TARAOBR
  197. UZAV_STARA
  198. UZAV_NOVA
  199. HLASKA
  200. X:\OBEC\09\
  201. MOD95A.FXP
  202. X:\OBEC\09\MOD95A.PRG
  203.