home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 01 / MOD11E.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1997-01-29  |  6KB  |  198 lines
  1.  Provede se kontrola na duplicity   
  2.  mezi ident. a z
  3. kaz. identifikac
  4.  Opravdu chcete prov
  5. st kontrolu    
  6.  na duplicity ?                     
  7.  Konec         
  8.  Kontrola duplicit 
  9.  Prob
  10.  kontrola na duplicity ... 
  11. Funkce
  12. mod11bd
  13.  e h l e d    duplicit
  14. RIIS 1.1
  15. mod11e
  16. m1_ident
  17. m1_ident
  18. c1_ident
  19. Rozpiska    
  20. ident
  21. ident
  22. nazev
  23. nazev
  24. ' '+kod_pol+' '
  25. kod_pol
  26. str(ds,3)
  27. Ident.odb
  28. ratele
  29. substr(ident_odb,1,9)
  30. ident_odb
  31. ident_odb
  32. Postup
  33. c_postup
  34. c_postup
  35. jak_csn
  36. jak_csn
  37. rozm_csn
  38. rozm_csn
  39. Sekund. kl
  40. sek_ident
  41. sek_ident
  42. space(4)+rada
  43.  Datum  
  44. tran(datum,'@E')
  45. dtoc(datum     )
  46. VOLBA
  47. no(iDET_OBR
  48. stVOL
  49. hodn(iM
  50. c_postupMOD_WIN
  51. i)POLEX
  52. jmeCARA
  53. "typ"POC0
  54. (i)="POC1
  55. i = iPOC2
  56. zahlPOCS
  57. jmeno(iF2
  58. "jak_csF3
  59. hodn(i)F4
  60. k_csn"
  61. hl(i)='F7
  62. SN'F8
  63. eno(i) F9
  64. ozm_csnF10
  65. dn(i)=DETAIL
  66. F10_JM
  67. *F10PRG
  68. )='RAMECEK
  69. NAZEVT
  70. o(iRIIS
  71. ek_idNADPIS
  72. dn(LEVA
  73. k_idePRAVA
  74. = i+HOR
  75. zahl(DOL
  76. adPROCX
  77. no(iM1_IDENT
  78. )IDENT
  79. hodIDENT_ODB
  80. C1_IDENT
  81. =JMENO
  82. i)="I
  83. tum,PODNIK
  84. hodMOD_PSV
  85. c(OBSAH
  86. colorz
  87. no(iM1COLOR
  88. colorz
  89.  Vyhled
  90. Zadejte rozpisku nebo n
  91. zev rozpisky
  92. ident
  93. soucasti
  94. nazev
  95. nazev
  96. 'ident'
  97. ident
  98. mod_fun
  99.  Rozpiska nebyla nalezena 
  100. 'ident'
  101. ident
  102. MCOLOR
  103. o(iOBR
  104. stM1_IDENT
  105. IDENT
  106. pKLIC
  107. M_ORD1
  108. i)NAZEV
  109. jmeW_CESTINA
  110. (i)="HLASKA
  111. = iMOD_FUN
  112.  Provede se zru
  113.  polo
  114. ek, kter
  115. ADU=000, ji
  116.  nejsou v objedn
  117. ka a vyhovuj
  118. em podm
  119.  pro zru
  120. .                       
  121.  polo
  122. ky se p
  123. evedou do archivu. 
  124.  Konec         
  125. it polo
  126.  Prob
  127.  polo
  128. ek (p
  129. evod do archivu) ... 
  130. m1_ident
  131. ident
  132. m2_por
  133. ident
  134. m1_ident
  135. m2_por
  136. a2_por
  137. m2_por
  138. c1_ident
  139. m1_zas
  140. x1_zas
  141. m1_kalk
  142. x1_kalk
  143. m1_plan
  144. x1_plan
  145. m1_zmena
  146. x1_zmena
  147. m1_pozid
  148. x1_pozid
  149. m1_kalks
  150. x1_kalks
  151. m1_um
  152. ident
  153. m1_npol
  154. ident
  155. m1_kusov
  156. pozice
  157. m4_nahr
  158. ident
  159. mod1pro
  160. VOLBA
  161. o(iDET_OBR
  162. stVOL
  163. IDENT
  164. pMOD_WIN
  165. i)HR_RUS
  166. jmeM1_IDENT
  167. IDENT
  168. i)="M2_POR
  169. = iDISTINCT
  170. lA2_POR
  171. SRADA
  172. iC1_IDENT
  173. sM1_ZAS
  174. (i)X1_ZAS
  175. M1_KALK
  176. *X1_KALK
  177. ='M1_PLAN
  178. N'X1_PLAN
  179. ) M1_ZMENA
  180. nX1_ZMENA
  181. =M1_POZID
  182. X1_POZID
  183. *M1_KALKS
  184. 'X1_KALKS
  185. M1_UM
  186. o(iM1_NPOL
  187. idM1_KUSOV
  188. (POZICE
  189. ideM4_NAHR
  190. i+ZRUS_POL
  191. (MOD1PRO
  192. adMOD11E
  193. HLEDEJ1
  194. MOD11F
  195. L:\OBEC\01\
  196. MOD11E.FXP
  197. L:\OBEC\01\MOD11E.PRG
  198.