Espressman

Komercni banka:
107-6447760257/0100

mBank:
670100-2200547034/6210

Po provedeni platby nezapomente oznacit v escrow, ze jste platbu provedli ("marked as paid").

Diky za obchod.

ALTEC
Amount: 2400.00 CZK
Reference message: L532808BBF48

anfangen – angefangen start - zahájení
anrufen - angerufen volání - volání
antworten - geantwortet odpověď - odpověď
arbeiten - gearbeitet Práce - Práce
aufhören - aufgehört zastavit - zastavil
aufmachen - aufgemacht otevřít - otevřeno
aufräumen – aufgeräumt pořádek - pořádek
aufstehen – aufgestanden* postavit se - mám *
ausgeben - ausgegeben výstup - výstup
aussehen - ausgesen hledat - a
baden - gebadet koupat - vykoupal
bauen – gebaut stavět - vestavěný
beantworten - beantwortet odpověď - odpověděl
bedeuten - bedeutet rozumí - střední
bekomen - bekommen - dostat
beschreiben - beschrieben popsat - je popsáno
bestellen - bestellt pořadí - objednat
besuchen - besucht navštívit - navštívil
bezahlen - bezahlt zaplatit - placené
bleiben – geblieben* pobyt - zůstal *
brauchen - gebraucht Potřebujete - použitý
bringen - gebracht přinést - přinesl
diskutieren - diskutiert
duschen - geduscht sprcha - sprcha
einkaufen - eingekauft nakupování - koupil
einladen - eingeladen Pozvat - pozván
einschlafen – eingeschlafen * spí - spí *
entschneiden - entschieden - rozhodla
erzählen – erzählt říci - řekl
essen - gegessen jíst - jíst
fahren – gefahren* go - dolů *
feiern - gefeiert slaví - slaví
fernsehen - ferngesehen TV - dívat se na televizi
finden - gefunden najít - nalezeno
fotografieren - fotografiert
fragen - gefragt zeptat se - zeptal se
frühstücken - gefrühstückt snídaně - snídaně

ich habe aufgemacht
du habest aufgemacht
er/sie/es habe aufgemacht
wir haben aufgemacht
ihr habet aufgemacht
sie/Sie haben aufgemacht

Funkce vlastní

Fn_zaklad
--create function fnNazevFunkce (@Panam1 dattyp [=vychozi hodnota],...)
--returns dattyp -- datový typ hodnota
--as
--return
--(select ... do kterého jsou předány vstupní parametry)

select * from sys.objects
where type = 'fn'

create function fnSoucet(@cislo1 as float, @cislo2 as float)
returns float -- datový typ hodnota
as
begin
declare @vystup float
set @vystup = @cislo1 + @cislo2

return @vystup
end
___________________________________________________________________
Fnt_kvartal_prodej_zamestn.

/*tabulková funkce - vrátí kvartální prodeje kategorií realizované konkrétním zaměstnancem,
za určitou kategorii v daném roce
výstupní pole - Zamestnanec, Kategorie, Prodej, Kvartál
vstupní argumenty fce - Cislo zamestnance, Cislo Kategorie , rok
data budou agregována fci sum*/

use dbnw
go

if exists(select * from sys.objects where name = 'fntKvProZam')
drop function fntKvProZam
go
create function fntKvProZam(@CisZam int, @CisKat int, @Rok int)
returns table
as
return
(
--tělo fce
select z.Prijmeni , k.NazevKategorie ,
sum(r.JednotkovaCena * r.Mnozstvi * (1-r.Sleva )) as Prodej,
datepart(q,o.DatumOdeslani) as Kvartál

from tbKategorie k

inner join tbVyrobky v on k.CisloKategorie = v.CisloKategorie
inner join tbRozpisObjednavek r on r.CisloVyrobku = v.CisloVyrobku
inner join tbObjednavky o on o.CisloObjednavky = r.CisloObjednavky
Inner join tbZamestnanci z on o.CisloZamestnance = z.CisloZamestnance

where z.CisloZamestnance = @CisZam and k.CisloKategorie = @CisKat and year(o.DatumOdeslani) = @Rok

group by z.Prijmeni , k.NazevKategorie , datepart(q,o.DatumOdeslani)
)
go
_____________________________________________________________________
Fnt_Narozeni

/*skarální fnAgeControl přijímá dva argumenty
@Vek = číslo udávající věk, @DatNar = datum narození
a bude vracet hodnotu 0 nebo 1
0 v případě že nebylo dosaženo požadovaného věku
1 v případě že bylo dosaženo požadovaného věku*/

use master
go

declare @DatNar date, @Vek tinyInt

set @DatNar = getdate() -10000
set @Vek = 18

--tělo fce

declare @vystup bit
declare @datX date

set @datX = dateadd(yyyy,-@Vek, getdate())

if @DatNar <= @datX
set @vystup = 1

else
set @vystup = 0
________________________________________________________________
Fnt_zemePoradi

/*tabulková funkce se vstupnámi parametry
@nt - kolikátý v pořadí a
@por bit - 0 - ntý od začátku, 1 - ntý od konce
která vrací sloupce
ZemePrijemce, Prodej a Poradi*/

use dbNw
go
if exists (select * from sys.objects where name = 'fnt_ZemePoradi')
drop function fnt_ZemePoradi
go
create function fnt_ZemePoradi( @nt int, @por bit)
returns table
as
return
(
select * from
(
select o.ZemePrijemce ,
r.JednotkovaCena * r.Mnozstvi *(1-r.Sleva ) as Prodej,
case
when @por = 0 then
ROW_NUMBER() over (order by r.JednotkovaCena * r.Mnozstvi *(1-r.Sleva ) asc)
when @por = 1 then
ROW_NUMBER() over (order by r.JednotkovaCena * r.Mnozstvi *(1-r.Sleva )desc )
end as Poradi

from tbRozpisObjednavek r
inner join tbObjednavky o on o.CisloObjednavky= r.CisloObjednavky

) as A
where Poradi = @nt
)
go
________________________________________________________________
Fnt_kvar_Prod_Zam(cross)

/*tabulková funkce přijímá číslo kategorie a rok
a vrací kvartální prodeje zaměstnanců
jako křížovou tabulku, kde čísla kvartálů jsou popisky sloupců*/

use dbNw
go

if exists(select * from sys.objects where name = 'fnt_CrossKvProdZam')
drop function fnt_CrossKvProdZam
go
create function fnt_CrossKvProdZam(@cisKat int, @Rok int)
returns table
as return
(
select * from
(
select z.Prijmeni,
r.JednotkovaCena * r.Mnozstvi *(1-r.Sleva ) as Prodej,
datepart(q,o.datumodeslani) as Kvartal
from tbZamestnanci z
inner join tbObjednavky o on o.CisloZamestnance = z.CisloZamestnance
inner join tbRozpisObjednavek r on r.CisloObjednavky = o.CisloObjednavky
inner join tbVyrobky v on r.CisloVyrobku = v.CisloVyrobku
where v.CisloKategorie = @cisKat and year(o.datumodeslani) = @Rok
) as A
pivot
(
sum(Prodej)
for Kvartal in ([1],[2],[3],[4])
)as B
)
go
__________________________________________________________________

Fnt_datumy
/*funkce fnDateFl bude přijímat datum a kód
a
vracet datum k prvnímu dni příslušného měsíce - pro kód F
nebo
datum k poslednímu dni příslusného měsíce - pro kód L*/

use master
go

declare @datum date, @kod char(1)

set @datum = getdate()-12030
set @kod = 'L'

-- tělo fce
declare @vystup date

if @kod = 'F'
begin
--print 'První den'
set @vystup = CAST(substring(CONVERT(char(8),@datum,112),1,6) + '01' as datetime)

end
else if @kod = 'L'
begin
--print 'Poslední den'
if substring(CONVERT(char(8),@datum,112),5,2) in ('01','03','05','07','08','10','12')

set @vystup = CAST(substring(CONVERT(char(8),@datum,112),1,6) + '31' as datetime)

else if substring(CONVERT(char(8),@datum,112),5,2) in ('04','06','09','11')

set @vystup = CAST(substring(CONVERT(char(8),@datum,112),1,6) + '30' as datetime)

else
if YEAR(@datum) % 4 <> 0
set @vystup = CAST(substring(CONVERT(char(8),@datum,112),1,6) + '28' as datetime)

else if YEAR(@datum) %100 = 0 and YEAR(@datum) % 400 <> 0
set @vystup = CAST(substring(CONVERT(char(8),@datum,112),1,6) + '28' as datetime)
else
set @vystup = CAST(substring(CONVERT(char(8),@datum,112),1,6) + '29' as datetime)
end
else
begin
set @vystup = null
end
__________________________________________________________________
Fn_RodneCislo

use master
go

if exists(select * from sys.objects where name = 'fnDateRc')
drop function fnDateRc
go
create function fnDateRc(@RC char(11), @R2 char(2))
returns date
as
begin

--tělo funkce

declare @vystup date
declare @rok char(4)
declare @mesic char(2)
declare @den char(2)

set @rok = @r2 + SUBSTRING (@rc,1,2)

set @mesic = SUBSTRING (@rc,3,2)
if cast(@mesic as int) > 50

set @mesic =cast( cast(@mesic as int) -50 as char(2))
if len(@mesic) =1

set @mesic = '0' + @mesic
set @den = SUBSTRING (@rc,5,2)
set @vystup = cast (@rok + @mesic + @den as date)

return @vystup
end
go

Module Module1

Class SouboryTXT

Private _Jmeno As String

Private CtiF As IO.StreamReader

Private ZapisF As IO.StreamWriter

Private Kod As System.Text.Encoding = System.Text.Encoding.GetEncoding("WINDOWS-1250")

Sub New(Jmeno As String)

Me._Jmeno = Jmeno

End Sub

Function CtiSoubor(ByRef data As String) As Boolean

data = ""

Try

Me.CtiF = New IO.StreamReader(_Jmeno, Kod)

While Not CtiF.EndOfStream

data = data & Me.CtiF.ReadLine & vbCrLf

End While

CtiF.Close()

Return True

Catch

Return False

End Try

End Function

Function ZapisSoubor(data As String) As Boolean

Try

Me.ZapisF = New IO.StreamWriter(_Jmeno)

Me.ZapisF.Writeline(data)

Me.ZapisF.Close()

Return True

Catch

Return False

End Try

End Function

End Class

Sub Main()

Dim Ftxt As SouboryTXT = New SouboryTXT("Ftxt.txt")

Dim data As String = ""

If Ftxt.CtiSoubor(data) Then

Console.Write(data)

data = data & vbCrLf & "Ahoj"

'data = data & vbCrLf & Console.ReadLine()

Ftxt.ZapisSoubor(data)

Else

Console.Write("err")

End If

Console.ReadLine()

End Sub

End Module

if exists(select * from tempdb.sys.tables where name = '##Klienti')
drop table ##Klienti
go

if exists(select * from tempdb.sys.tables where name = '##Platby')
drop table ##Platby
go

create table ##Klienti
(
id int identity(1,1),
klient varchar(50)
)
create table ##Platby
(
id int identity(1,1),
idKlient int,
platba money
)
go

insert into ##klienti values('NOVÁK')
insert into ##klienti values('ZOUFALÝ')
insert into ##klienti values('SUCHÁ')
insert into ##klienti values('KOKOS')
insert into ##klienti values('ZCHUDLÁ')

insert into ##Platby values(1,10000)
insert into ##Platby values(1,10000)
insert into ##Platby values(3,60000)
insert into ##Platby values(3,60000)
insert into ##Platby values(3,60000)
insert into ##Platby values(4,70000)
insert into ##Platby values(4,70000)
insert into ##Platby values(4,70000)
insert into ##Platby values(9,900000000)
insert into ##Platby values(9,800000000)
insert into ##Platby values(9,700000000)
insert into ##Platby values(9,600000000)

--select * from ##klienti
--select * from ##Platby

/*CROSS JOIN*/

select k.klient, p.platba from ##Klienti k cross join ##Platby p
select k.klient, p.platba from ##Klienti k, ##Platby p

/*INNER JOIN*/

select k.klient, p.platba from ##Klienti k inner join ##Platby p
on k.id = p.idKlient

/*INNER JOIN přes CROSS JOIN*/
select k.klient, p.platba from ##Klienti k cross join ##Platby p
where k.id in (select p.idKlient from ##Platby)

select k.klient, p.platba from ##Klienti k cross join ##Platby p
where k.id = p.idKlient

/*LEFT JOIN*/

select k.klient, p.platba from ##Klienti k left join ##Platby p
on k.id = p.idKlient

/*LEFT RIGHT*/

select k.klient, p.platba from ##Klienti k right join ##Platby p
on k.id = p.idKlient

/*LEFT FULL*/

select k.klient, p.platba from ##Klienti k full join ##Platby p
on k.id = p.idKlient

/*LEFT JOIN - ZMĚNĚN V RIGHT JOIN*/

select k.klient, p.platba from ##Klienti k left join ##Platby p
on k.id = p.idKlient

select k.klient, p.platba from ##Platby p RIGHT join ##Klienti k
on k.id = p.idKlient

/*VYPIŠ SEZNAM KLIENTŮ BEZ PLATEB*/
select k.klient from ##KLIENTI k left outer join ##PLATBY p
on k.id = p.idKlient
where p.id is null

/*ZJISTI POČET ANONYMNÍCH PLATEB A JEJICH SUMU*/

select count(p.ID) as 'Pocet', sum(p.PLATBA) as 'Suma'
from ##KLIENTI k right outer join ##PLATBY p
on k.id = p.IDKLIENT
where k.ID is null

/*VYPIŠ MAXIMÁLNÍ PALTBY KLIENTŮ*/

select k.klient, max(p.platba) as max from ##KLIENTI k inner join ##PLATBY p
on k.id = p.idklient
group by k.klient

/*VYPIŠ MAXIMÁLNÍ PLATBU*/
select MAX(platba) from ##PLATBY

/*VYPIŠ MAXIMÁLNÍ ANONYMNÍ PLATBU*/

select max(p.platba) from ##KLIENTI k right outer join ##PLATBY p
on k.id = p.idKlient
where k.ID is null

USE T3_TELEFONY
GO
SELECT * FROM VOLAJICI
SELECT * FROM VOLANI
SELECT * FROM TELEFONATY

/*seznam volajicich - prijmeni a jmeno oddelene carkou a cislo poze tech kde nemame evidovany telefonaty*/

select v.Prijmeni + ' ,' + v.Jmeno as volajici, v.VolajiciCislo from volajici v left outer join telefonaty t
on v.VolajiciCislo = t.VolajiciCislo
where t.id is null

/*udaje o telefonaetech rok mesic pocet volanych cisel ale jenom tech jejich cisla nejsou v ve volanych cislech*/

select year(t.Datum) as rok, month(t.Datum) as mesic, count(t.id) as pocet
from volani v right outer join telefonaty t
on v.VolaneCislo=t.VolajiciCislo
where v.volanecislo is null
group by year(t.Datum), month(t.datum)
VolaneCisla

USE DBNW_JOIN
select k.NazevKategorie, v.NazevVyrobku
from tbKategorie k
inner join tbVyrobky v on k.CisloKategorie= v.CisloKategorie

select k.NazevKategorie, v.NazevVyrobku
from tbKategorie k
left join tbVyrobky v on k.CisloKategorie= v.CisloKategorie
where v.CisloVyrobku is null

select k.NazevKategorie, v.NazevVyrobku
from tbKategorie k
right join tbVyrobky v on k.CisloKategorie= v.CisloKategorie
where k.CisloKategorie is null

/* vytvor seznam mest prijemce s poctem objednavek a celkovym dopravnym,
zajimaji nas jen pripady, kdy není evidován zaměstnanec,
který prodej realizoval, ani zákazník který zboží objednal,
seřad podle počtu objednávek a následně podle dopravného,
vždy od nejvyssi hodnoty po nejnizssi.*/

--select * from tbZakaznici z
--inner join tbObjednavky on z.KodZakaznika = o.kodZakaznika
--inner join tbZamestnanci za on o.CisloZamestnance = za.CisloZamestnance

select o.MestoPrijemce, count(o.CisloObjednavky) as pocet, sum(o.Dopravne) as dopravSum from tbZakaznici z
right join tbObjednavky on z.KodZakaznika = o.KodZakaznika
left join tbZamestnanci za on o.CisloZamestnance = za.CisloZamestnance
where z.KodZakaznika is null and za.CisloZamestnance is null
group by o.MestoPrijemce
order by Pocet, DopravSum desc serazeni