home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.texkom.ru
/
ftp.texkom.ru.tar
/
ftp.texkom.ru
/
Zay100.zip
/
Zay100
/
Progs
/
program4.prg
< prev
next >
Wrap
Text File
|
2002-07-05
|
2KB
|
85 lines
SET DELETED ON
SET DATE GERMAN
IF !USED ('table1')
USE "&cPach" + "\Bin\table1" SHARE IN 0
ENDIF
SELECT table1
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) SHARE IN 0
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
DO FORM "&cPach" + "\Forms\Zaku"