home *** CD-ROM | disk | FTP | other *** search
/ ftp.texkom.ru / ftp.texkom.ru.tar / ftp.texkom.ru / kkm1 / PRICE2ATOL.PRG < prev   
Text File  |  2007-07-30  |  2KB  |  88 lines
  1. LOCAL lnFile,lcTable,lcPathToPrice,lcErrorString,lcLogFile,lcIniFile,lcRarFile,lcBasePath,lcTempDir
  2.  
  3. IF FILE('k_kodtov.dbf')
  4.     lcBasePath='_'+GETWORDNUM(LOCFILE('k_kodtov.dbf'),2,'\')
  5. ELSE
  6.     lcBasePath=''
  7. ENDIF
  8.  
  9. lnFile=FCREATE(ADDBS(SYS(2023))+'price2kkm'+lcBasePath+'.work')
  10. IF lnFile<0
  11.     WAIT WINDOW '╧≡επ≡α∞∞α ≤µσ τα∩≤∙σφα!' TIMEOUT 3
  12.     RETURN .F.
  13. ENDI
  14.  
  15. _SCREEN.CAPTION='▌Ω±∩ε≡≥ ∩≡αΘ±α φα Ωα±±√'
  16. lcLogFile='price2kkm.log'
  17. lcIniFile='D:\Mag\Z\KKM\Price2atol.ini'
  18. lcPathToPrice=ADDBS(GetIni(lcIniFile,'Setting','╩≤Σα Γ√ΩδαΣ√Γα≥ⁿ ∩≡αΘ±','c:\',.T.))
  19. lnMinNacen=VAL(GetIni(lcIniFile,'Setting','╠ΦφΦ∞αδⁿφα  φα÷σφΩα %','15',.T.))
  20.  
  21. lnPriceMode=VAL(GetIni(lcIniFile,'Setting','╨σµΦ∞ ⌠ε≡∞Φ≡εΓαφΦ  ∩≡αΘ±α','0',.T.))
  22. *!*    lcFlagImport=GetIni(lcIniFile,'Setting','╘δαπ ταπ≡≤τΩΦ','pos_f.spr',.T.)
  23. lcFileImport=GetIni(lcIniFile,'Setting','╘αΘδ ταπ≡≤τΩΦ','pos.spr',.T.)
  24. *!*    lcPath=GetIni(lcIniFile,'Setting','─Φ≡σΩ≥ε≡Φ  εß∞σφα Ωα±±√ '+TRANSFORM(nKas),"\\cash"+TRANSFORM(nKas)+"\exchg\",.T.)
  25. IF !safeuse('k_kodtov')
  26.     lcErrorString='╬°ΦßΩα ε≥Ω≡√≥Φ  ΩεΣΦ⌠ΦΩα≥ε≡α'
  27. ENDIF
  28. IF !safeuse('m_rezerv')
  29.     lcErrorString='╬°ΦßΩα ε≥Ω≡√≥Φ  ≡στσ≡Γα'
  30. ENDIF
  31. IF !EMPTY(lcErrorString)
  32.     STRTOFILE(TTOC(DATETIME())+' '+lcErrorString+CHR(13),lcLogFile,1)
  33.     RETURN .F.
  34. ENDIF
  35.  
  36. SELECT kodtov,SUM(kolvo) kolvores FROM m_rezerv GROUP BY 1 INTO CURSOR rezerv
  37. SELE k.kodtov,k.NAME,k.artikul,k.cenar,k.kolvoost+k.kolvoostz-NVL(r.kolvores,0)+00000 kolvoost,;
  38.     IIF(sale OR (1-cenaz/cenar)*100<lnMinNacen,.T.,.F.) AS sale,IIF(sale,cenar,ROUND(cenaz*(1+lnMinNacen/100),2)) AS mincena;
  39.     FROM k_kodtov k LEFT JOIN rezerv r ON k.kodtov=r.kodtov;
  40.     order by 1;
  41.     WHERE k.inprice and k.cenar>0 and k.kolvoost+k.kolvoostz-NVL(r.kolvores,0)>0 INTO CURSOR price
  42.  
  43. USE IN k_kodtov
  44. USE IN rezerv
  45.  
  46. SET TALK OFF
  47. SET TEXTMERGE ON NOSHOW
  48. SET TEXTMERGE DELIMITERS TO
  49. SET TEXTMERGE TO (ADDBS(lcPathToPrice)+lcFileImport)
  50.  
  51. \\##@@&&
  52. \#
  53. \$$$DELETEALLWARES
  54. \$$$REPLACEQUANTITY
  55.  
  56. SELECT price
  57. SCAN
  58. reccounter('╘ε≡∞Φ≡εΓαφΦσ ±∩≡αΓε≈φΦΩα')
  59. \<<price.kodtov>>;
  60. \\<<price.kodtov>>;
  61. \\<<ALLTRIM(STRTRAN(LEFT(price.name,100),';',','))>>;
  62. \\<<ALLTRIM(STRTRAN(padr(name,50) + ' ' + alltrim(padr(artikul,13)),';',','))>>;
  63. \\<<TRANSFORM(price.cenar)>>;
  64. \\<<TRANSFORM(price.kolvoost)>>;
  65. \\0;
  66. \\0;
  67. \\<<TRANSFORM(price.mincena)>>;
  68. \\0;
  69. \\0;
  70. \\0;
  71. \\0;
  72. \\1;
  73. \\0;
  74. \\0;
  75. \\1;
  76. \\1;
  77. \\0;
  78. \\;
  79. \\;
  80. \\;
  81. \\;
  82. \\;
  83. \\;
  84. \\<<ALLTRIM(LEFT(STRTRAN(price.artikul,';',','),20))>>;
  85. ENDS
  86. SET TEXTMERGE TO
  87. wait clear
  88. FCLOSE(lnFile)