home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 04 / S421C.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-01-23  |  6KB  |  165 lines
  1.  Prob
  2. prava dat ... 
  3. m1_kalk
  4. x1_kalk
  5. m4_organ
  6. m4_dodm
  7. ident1
  8. m1_obr
  9. ident
  10. m1_ident
  11. material
  12. m1_ident
  13. m1_obr
  14. c1_ident
  15. Aktualizace cen dododavatel
  16.  na z
  17. RIIS 4.1
  18. zmena_cen
  19. s421c
  20. Identifikace
  21. ident
  22. ident
  23. nazev
  24. nazev
  25. Dodavatel
  26. m4_organ.nazev_org
  27. m4_organ.nazev_org
  28. jm. cena
  29. str(naklad,11,2)
  30. naklad
  31.  cena
  32. str(m4_dodm.cena_plmj,10,2)
  33. m4_dodm.cena_plmj
  34. m4_dodm.mena+' '
  35. m4_dodm.mena
  36. str(iif(m4_dodm.cena_plmj=0, 0, ((naklad-m4_dodm.cena_plmj)/m4_dodm.cena_plmj*100) ),7,2)
  37. (iif(m4_dodm.cena_plmj=0, 0, ((naklad-m4_dodm.cena_plmj)/m4_dodm.cena_plmj*100) )
  38. l. cena
  39. ' '+str(aktual_cena,11,2)
  40. aktual_cena
  41. str(iif(aktual_cena=0, 0, ((naklad-aktual_cena)/aktual_cena*100) ),7,2)
  42. (iif(aktual_cena=0, 0, ((naklad-aktual_cena)/aktual_cena*100) )
  43. zavod
  44. zavod
  45. Datum
  46. tran(termin_ob,'@E')
  47. termin_ob
  48. Sklad
  49. vydal_skl+' '
  50. vydal_skl
  51. i =ANSI
  52. ahl(iM1_KALK
  53. a'X1_KALK
  54.  =M4_ORGAN
  55. _cena=M4_DODM
  56. akIDENT1
  57. al_M1_OBR
  58. tuaIDENT
  59. 100)M1_IDENT
  60. oMATERIAL
  61. fNAZEV
  62. nZAVOD
  63. ((nNAKLAD
  64. tuaTERMIN_OB
  65. VYDAL_SKL
  66. KOD_OB
  67. i=iTYP_UM_V
  68. =STARA_CENANAZ_ORG
  69. hMENA
  70. ="icoAKTUAL_CENC1_IDENT
  71. vPL_OD
  72. =TYP_NAKL
  73. ENPOLEX
  74. zPROCX
  75. 'DatRTOP
  76. eno(iRBOT
  77. n(terCLEFT
  78. '@E'CRIGHT
  79. i)=FREEZE
  80. ob"ORDER
  81. zaZAHL
  82. 'SklxJMENO
  83. TITLE
  84. TITLECOLORPOC0
  85.  naF2
  86. riis F4
  87. IIS 4.1F6
  88. Top  = F7
  89. ot  =24F9
  90. ft = 1
  91. t=78  F0PRG
  92.     F1ON
  93.      F1PRG
  94. FreeF4_JM
  95. f1 =F4PRG
  96. 2 = TISKPRG
  97.  .F7_JM
  98.  .t.F7PRG
  99. fF9PRG
  100. f9 F9KEY
  101. 9keyF9KEY1
  102. kaF10_JM
  103.  .fF10PRG
  104. =.tRAMECEK
  105. 'ZRIIS
  106. enterNAZEVT
  107. cenKLICO
  108. bar KLNAZ
  109. rocxSPACEBAR
  110. dTR_HL1
  111. (poTR_HL2
  112. e jTR_HL3
  113. ex)TR_HL4
  114. dn(TR_HL5
  115. i =TR_HL6
  116. i)=TR_HL7
  117. ikaTR_HL8
  118. o(iTR_HL9
  119. hDET_JM
  120. ideENTER
  121. =i+1DETAIL
  122. ='NDETPRG
  123. enoPS_LINE
  124. v"PS_RETURN
  125. PS_ZAZN
  126. =MOD_PSV
  127. C_OZNAC.DBF2
  128. C_OZNAC
  129.  Nebyly ozna
  130. eny (vysv
  131. ceny) 
  132. daje. 
  133.  Opravdu prov
  134. st zm
  135. nu ceny ? (a/n) 
  136.  Prob
  137. na CENY/PLMJ ... 
  138. pom_cena
  139. pom_cena
  140. m4_dodm
  141. m4_dodm
  142. ahl(iZRUS
  143. a'COBR
  144.  =TXT
  145. aHLASKA
  146. na=POM_CENA
  147. kC_OZNAC
  148. l_ZAZNAM
  149. tuaM4_DODM
  150. )IDENT
  151. oPOM_XX
  152. nZAVOD
  153. nCENA_PLMJ
  154. NAKLAD
  155. PRIOR
  156. C1_IDENT
  157. STARA_CENANTRGPZAZ
  158. hPS_RETURN
  159. S421C
  160. -----%
  161. ZMENA_CEN
  162. X:\OBEC\04\
  163. S421C.FXP
  164. X:\OBEC\04\S421C.PRG
  165.