home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.texkom.ru
/
ftp.texkom.ru.tar
/
ftp.texkom.ru
/
Zay100.zip
/
Zay100
/
Progs
/
program2.prg
< prev
next >
Wrap
Text File
|
2002-07-05
|
7KB
|
292 lines
SET DELETED ON
SET DATE GERMAN
IF !USED ('table1')
USE "&cPach" + "\Bin\table1" SHARE IN 0
ENDIF
SELECT table1
IF EMPTY (ALLTRIM(cPach1))
IF !USED ("Kodi")
USE "&cPach" + "\Bin\Kodi" EXCLUSIVE IN 0
ENDIF
SELECT Kodi
SET ORDER TO nam
ELSE
IF !USED ("Kodi")
CD (cPach1)
IF FILE ("Kodi.dbf")
IF !USED ("Kodi")
cP = ALLTRIM (cPach1) + ALLTRIM ("Kodi.dbf")
USE (cP) SHARE IN 0 ALIAS KodiO
ENDIF
* set step on
SELECT table1
PachNet = alltrim((cPach1))
if PachNet = "&cPach" + "\Bin\"
IF !USED ("Kodi")
USE "&cPach" + "\Bin\Kodi" EXCLUSIVE IN 0 again alias Kodi
ENDIF
SELECT KodiO
select *;
from KodiO;
where not deleted();
order by Name;
into cursor KodiOO
select KodiO
use
select kodi
use
USE "&cPach" + "\Bin\Kodi" EXCLUSIVE IN 0
select Kodi
zap
SELECT KodiOO
select *;
from KodiOO;
where not deleted();
order by Name;
into table "&cPach" + "\Bin\Kodi"
select KodiOO
use
select Kodi
INDEX ON ALLTRIM (UPPER (NAME))TAG Nam
INDEX ON ALLTRIM (kodtov) TAG kodtov
INDEX ON ALLTRIM (UPPER (artikul)) TAG artikul
INDEX ON DTOC (data) + ALLTRIM (UPPER (NAME)) TAG da
INDEX ON data TAG da1
INDEX ON ALLTRIM (UPPE (MEMBER)) TAG MEMBER
SELECT kodi
SET ORDER TO nam
else
IF !USED ("Kodi")
USE "&cPach" + "\Bin\Kodi" EXCLUSIVE IN 0
ENDIF
* set step on
SELECT Kodi
zap
SELECT KodiO
select *;
from KodiO;
where not deleted();
order by Name;
into table "&cPach" + "\Bin\Kodi"
select kodiO
use
select kodi
INDEX ON ALLTRIM (UPPER (NAME))TAG Nam
INDEX ON ALLTRIM (kodtov) TAG kodtov
INDEX ON ALLTRIM (UPPER (artikul)) TAG artikul
INDEX ON DTOC (data) + ALLTRIM (UPPER (NAME)) TAG da
INDEX ON data TAG da1
INDEX ON ALLTRIM (UPPE (MEMBER)) TAG MEMBER
SELECT kodi
SET ORDER TO nam
endif
ELSE
WAIT WINDOW "═σ φαΘΣσφ ⌠αΘδ Kodi.dbf ∩ε ±δσΣ≤■∙σ∞≤ ∩≤≥Φ :"+CHR (13);
+ ALLTRIM (cPach1)+"Kodi.dbf"+CHR (13);
+"ΦδΦ ∩≤≥ⁿ "+ ALLTRIM (cPach1)+" φσ ±≤∙σ±≥Γ≤σ≥"
IF !USED ("Kodi")
USE "&cPach" + "\Bin\Kodi" SHARE IN 0
ENDIF
SELECT Kodi
SET ORDER TO nam
WAIT WINDOW " ╚±∩εδⁿτ≤σ≥± ≥αßδΦ÷α ΣΦ±≥≡Φßⁿ■≥ΦΓα!"+CHR(13);
+ "╦Φßε φσ ∩≡εΓσΣσφα φα±≥≡εΘΩα, δΦßε ≤Ωαταφεπε ∩≤≥Φ φσ ±≤∙σ±≥Γ≤σ≥"
ENDIF
ENDIF
ENDIF
SELECT table1
IF EMPTY (cPach1)
IF !USED ("FIO")
USE "&cPach" + "\Bin\FIO" SHARE IN 0
ENDIF
SELECT FIO
SET ORDER TO FIO
ELSE
IF !USED ("FIO")
CD (cPach1)
IF FILE ("FIO.dbf")
cP = ALLTRIM (cPach1) + ALLTRIM ("FIO.dbf")
IF !USED ("FIO")
USE (cP) SHARE IN 0
ENDIF
SELECT FIO
SET ORDER TO FIO
ELSE
WAIT WINDOW "═σ φαΘΣσφ ⌠αΘδ FIO.dbf ∩ε ±δσΣ≤■∙σ∞≤ ∩≤≥Φ :"+CHR (13);
+ ALLTRIM (cPach1)+"FIO.dbf"+CHR (13);
+"ΦδΦ ∩≤≥ⁿ "+ ALLTRIM (cPach1)+" φσ ±≤∙σ±≥Γ≤σ≥"
IF !USED ("FIO")
USE "&cPach" + "\Bin\FIO" SHARE IN 0
ENDIF
SELECT FIO
SET ORDER TO FIO
WAIT WINDOW " ╚±∩εδⁿτ≤σ≥± ≥αßδΦ÷α ΣΦ±≥≡Φßⁿ■≥ΦΓα!"+CHR(13);
+ "╦Φßε φσ ∩≡εΓσΣσφα φα±≥≡εΘΩα, δΦßε ≤Ωαταφεπε ∩≤≥Φ φσ ±≤∙σ±≥Γ≤σ≥"
ENDIF
ENDIF
ENDIF
SELECT table1
IF EMPTY (cPach2)
IF !USED ("Za")
USE "&cPach" + "\Bin\Za" SHARE IN 0
ENDIF
SELECT Za
SET ORDER TO nam
REPLACE lPk WITH .T. FOR Da_nak # DATE ()
GO TOP
SET ORDER TO nam
SET FILTER TO lPk = .F.
GO TOP
ELSE
IF !USED ("Za")
CD (cPach2)
IF FILE ("Za.dbf")
IF !USED ("Za")
cP = ALLTRIM (cPach2) + ALLTRIM ("Za.dbf")
USE (cP) SHARE IN 0
ENDIF
SELECT Za
SET ORDER TO nam
REPLACE lPk WITH .T. FOR Da_nak # DATE ()
GO TOP
SET ORDER TO nam
SET FILTER TO lPk = .F.
GO TOP
ELSE
WAIT WINDOW "═σ φαΘΣσφ ⌠αΘδ Za.dbf ∩ε ±δσΣ≤■∙σ∞≤ ∩≤≥Φ :"+CHR (13);
+ ALLTRIM (cPach2)+"Za.dbf"+CHR (13);
+"ΦδΦ ∩≤≥ⁿ "+ ALLTRIM (cPach2)+" φσ ±≤∙σ±≥Γ≤σ≥"
IF !USED ("Za")
USE "&cPach" + "\Bin\Za" SHARE IN 0
ENDIF
SELECT Za
SET ORDER TO nam
REPLACE lPk WITH .T. FOR Da_nak # DATE ()
GO TOP
SET ORDER TO nam
SET FILTER TO lPk = .F.
GO TOP
WAIT WINDOW " ╚±∩εδⁿτ≤σ≥± ≥αßδΦ÷α ΣΦ±≥≡Φßⁿ■≥ΦΓα!"+CHR(13);
+ "╦Φßε φσ ∩≡εΓσΣσφα φα±≥≡εΘΩα, δΦßε ≤Ωαταφεπε ∩≤≥Φ φσ ±≤∙σ±≥Γ≤σ≥"
ENDIF
ENDIF
ENDIF
SELECT table1
IF EMPTY (cPach1)
IF !USED ("Nast")
USE "&cPach" + "\Bin\Nast" SHARE IN 0
ENDIF
SELECT Nast
dNast = (Da_nast)
ELSE
IF !USED ("Nast")
CD (cPach1)
IF FILE ("Nast.dbf")
IF !USED ("Nast")
cP = ALLTRIM (cPach1) + ALLTRIM ("Nast.dbf")
USE (cP) SHARE IN 0
ENDIF
SELECT Nast
dNast = (Da_nast)
ELSE
WAIT WINDOW "═σ φαΘΣσφ ⌠αΘδ Nast.dbf ∩ε ±δσΣ≤■∙σ∞≤ ∩≤≥Φ :"+CHR (13);
+ ALLTRIM (cPach1)+"Nast.dbf"+CHR (13);
+"ΦδΦ ∩≤≥ⁿ "+ ALLTRIM (cPach1)+" φσ ±≤∙σ±≥Γ≤σ≥"
IF !USED ("Nast")
USE "&cPach" + "\Bin\Nast" SHARE IN 0
ENDIF
SELECT Nast
dNast = (Da_nast)
WAIT WINDOW " ╚±∩εδⁿτ≤σ≥± ≥αßδΦ÷α ΣΦ±≥≡Φßⁿ■≥ΦΓα!"+CHR(13);
+ "╦Φßε φσ ∩≡εΓσΣσφα φα±≥≡εΘΩα, δΦßε ≤Ωαταφεπε ∩≤≥Φ φσ ±≤∙σ±≥Γ≤σ≥"
ENDIF
ENDIF
ENDIF
SELECT table1
IF EMPTY (cPach1)
IF !USED ("Kodi2")
USE "&cPach" + "\Bin\Kodi2" SHARE IN 0
ENDIF
SELECT Kodi2
SET FILTER TO data = (dNast)
GO TOP
SET ORDER TO nam
ELSE
IF !USED ("Kodi2")
CD (cPach1)
IF FILE ("Kodi2.dbf")
IF !USED ("Kodi2")
cP = ALLTRIM (cPach1) + ALLTRIM ("Kodi2.dbf")
USE (cP) IN 0 SHARE
ENDIF
SELECT Kodi2
SET FILTER TO data = (dNast)
GO TOP
SET ORDER TO nam
ELSE
WAIT WINDOW "═σ φαΘΣσφ ⌠αΘδ Kodi2.dbf ∩ε ±δσΣ≤■∙σ∞≤ ∩≤≥Φ :"+CHR (13);
+ ALLTRIM (cPach1)+"Kodi2.dbf"+CHR (13);
+"ΦδΦ ∩≤≥ⁿ "+ ALLTRIM (cPach1)+" φσ ±≤∙σ±≥Γ≤σ≥"
IF !USED ("Kodi2")
USE "&cPach" + "\Bin\Kodi2" SHARE IN 0
ENDIF
SELECT Kodi2
SET FILTER TO data = (dNast)
GO TOP
SET ORDER TO nam
WAIT WINDOW " ╚±∩εδⁿτ≤σ≥± ≥αßδΦ÷α ΣΦ±≥≡Φßⁿ■≥ΦΓα!"+CHR(13);
+ "╦Φßε φσ ∩≡εΓσΣσφα φα±≥≡εΘΩα, δΦßε ≤Ωαταφεπε ∩≤≥Φ φσ ±≤∙σ±≥Γ≤σ≥"
ENDIF
ENDIF
ENDIF
if !used ('Pre')
use "&cPach" + "\Bin\Pre" excl in 0
endif
select Pre
*!* SELECT table1
*!* CD (cPach1)
*!* IF FILE ("Kodi.dbf")
SELECT Kodi
DO FORM "&cPach" + "\Forms\Z_1"
*!* ELSE
*!* IF !USED ("Kodi")
*!* USE "&cPach" + "\Bin\Kodi" SHARE IN 0
*!* ENDIF
*!* WAIT WINDOW " ╚±∩εδⁿτ≤■≥± ≥αßδΦ÷√ ΣΦ±≥≡Φßⁿ■≥ΦΓα!!!"+CHR(13);
*!* + "╦Φßε φσ ∩≡εΓσΣσφα φα±≥≡εΘΩα, δΦßε ≤Ωαταφφ√⌡ ∩≤≥σΘ φσ ±≤∙σ±≥Γ≤σ≥"
*!* SELECT Kodi
*!* DO FORM "&cPach" + "\Forms\Z_1"
*!* ENDIF