home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 01 / MOD181.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1997-05-23  |  7KB  |  207 lines
  1. \PRENOS\UP\
  2. CEL_POL.TXT
  3.  Prob
  4. prava dat ... 
  5. m1_npol
  6. ident
  7. m1_pozid
  8. x1_pozid
  9. m4_dodm
  10. ident
  11. m_cis1
  12. x_cis1
  13. m1_ident
  14. ident
  15.  soubor !
  16. Zadejte 
  17. slo polo
  18. hl_ident with m1_ident.ident in mod11b
  19. Export
  20. exp_kar
  21. ky pro celn
  22.  sklad
  23. RIIS 0.0
  24. mod181
  25. Ident
  26. m1_ident.ident
  27. m1_ident.ident
  28. Ident.odb.
  29. m1_ident.ident_odb
  30. m1_ident.ident_odb
  31. Cel.saz.
  32. m1_ident.cel_saz
  33. m1_ident.cel_saz
  34. m1_ident.dod_csaz
  35. m1_ident.dod_csaz
  36. left(m_cis1.hod_ext,3)
  37. m_cis1.hod_ext
  38. m1_ident.mj
  39. m1_ident.mj
  40. left(m1_ident.nazev,24)
  41. m1_ident.nazev
  42. iif(!eof('m1_pozid'),left(m1_pozid.text_tx,38),padr(m1_npol.nazev,38))
  43. iif(!eof('m1_pozid'),left(m1_pozid.text_tx,38),padr(m1_npol.nazev,38))
  44. m1_ident.typ
  45. m1_ident.typ
  46. '  '+m1_ident.rada+'  '
  47. m1_ident.rada
  48.  Cena PLMJ
  49. str(m4_dodm.cena_plmj, 10, 2)
  50. m4_dodm.cena_plmj
  51. m4_dodm.mena+' '
  52. m4_dodm.mena
  53. W_FCES
  54. (i)F_ADR
  55. _ideW_FNAZ
  56. _odW_FILE
  57. = iW_SCR
  58. hl(MOD_SYS
  59. l.MESS
  60. jmenM1_NPOL
  61. 1_IDENT
  62. el_sM1_POZID
  63. iX1_POZID
  64. dM4_DODM
  65. azM_CIS1
  66.  i X_CIS1
  67. l(iM1_IDENT
  68. IDENT
  69.  HLASKA
  70. t.dPOLEX
  71. hPROCX
  72.  = "RTOP
  73. nt.doRBOT
  74. CLEFT
  75. CRIGHT
  76.  = FREEZE
  77. menORDER
  78. "lefHOR
  79. is1.hoDOL
  80. )  = PRAVA
  81. .hodNADPIS
  82. i ZAHL
  83. zaJMENO
  84. = "MHODN
  85. eno(iSOUC
  86. 1_idePSOUC
  87. hodTITLE
  88.  "m1TITLECOLORPOC0
  89.  i + F0
  90. ahl(i) F1
  91. no(i) =F3
  92. ft(m1_iF4
  93. .nazev,F6
  94. hodn(F7
  95. = "m1_iF9
  96. .nazev"F10
  97.  = i +F0PRG
  98. l(i)F1ON
  99. F1PRG
  100. menoF4_JM
  101. iif(F4PRG
  102. 1_poTISKPRG
  103. t(F7_JM
  104. d.teF7PRG
  105. 8),pF9PRG
  106. npolF9KEY
  107. 38))F9KEY1
  108. i) F10_JM
  109. !eoF10PRG
  110. zidRAMECEK
  111. 1_RIIS
  112. text_NAZEVT
  113. adrKLICO
  114. l.naKLNAZ
  115. SPACEBAR
  116. 1TR_HL1
  117. )  TR_HL2
  118. jmTR_HL3
  119.  "mTR_HL4
  120. typTR_HL5
  121. i) TR_HL6
  122. denTR_HL7
  123. iTR_HL8
  124. zTR_HL9
  125. = "DET_JM
  126. ENTER
  127. ) = DETAIL
  128. _idDETPRG
  129. +' PS_LINE
  130. (iPS_RETURN
  131. PS_ZAZN
  132. 1MOD_PSV
  133. c_oznac
  134.  Nebyly vybr
  135. znamy 
  136. c_oznac.dbf
  137. HLASKA
  138. (i)W_REC
  139. _ideEXPORT
  140. _odNTRGPZAZ
  141. iPS_RETURN
  142. C_OZNAC
  143. l.DBF
  144. enOZNAM
  145.   Prob
  146.  export dat ...          
  147. c_oznac,
  148. m1_pozid,
  149. 0000000000.000
  150. 0000000001.000
  151. 0000000001.000
  152. 0000000001.000
  153. W_EXPSCR
  154. )W_POCET
  155. deW_POCETC
  156. dNTRGPZAZ
  157. iW_MANIP
  158. W_FILE
  159. l.W_NAZNEM
  160. nM1_POZID
  161. _TEXT_TX
  162. _sM1_NPOL
  163. iNAZEV
  164. dW_POZNAM
  165. zM1_IDENT
  166.  IDENT
  167. l(iM4_DODM
  168. CENA_PLMJ
  169. .dW_ERR
  170. hIDENT_ODB
  171. CEL_SAZ
  172. oDOD_CSAZ
  173. M_CIS1
  174. HOD_EXT
  175. IDENT
  176. fRADA
  177. oPROCENTA
  178. colora
  179. )MCOLOR
  180. COLORz
  181. )HCOLOR
  182. deHOBR
  183. COLORz
  184.  Vytvo
  185.  soubor "
  186. " byl ulo
  187.  do adres
  188. m zopakov
  189. lohy dojde k op
  190. episu tohoto souboru.
  191. )HCOLOR
  192. deW_FNAZ
  193. dW_FCES
  194. W_POCET
  195. )W_POCETC
  196. eW_POC
  197. dMOD181
  198. Q-87%
  199. EXP_KAR
  200. EXPORT
  201. HLASKA
  202. OZNAM
  203. PROCENTA
  204. L:\OBEC\01\
  205. MOD181.FXP
  206. L:\OBEC\01\MOD181.PRG
  207.