/*INFO: Tento script vytvoří defici grafu Náklady a výnosy
*/
DECLARE @BrowseGraf INT,@Prehled INT
SET @Prehled=59
IF NOT EXISTS(SELECT 0 FROM TabExtKom WHERE Typ=3 AND IdBrowse = @Prehled AND UP='OrangeGraf.Graf')
INSERT INTO TabExtKom(Skupina,Typ,Popis,UP,Parametry,IdBrowse,TextBrowse,NazevPodmenu,ParamHe)
VALUES('Graf',3,'Graf','OrangeGraf.Graf','',@Prehled,@Prehled,'Graf',0)
INSERT INTO tOrangeGraf(IdBrowse,Popis,TypDefinice,Definice,Body,ZdrojDat,Poznamka,Popisky)
VALUES(
59,
'Náklady a výnosy',
1,
'object TChart
  Left = 0
  Top = 33
  Width = 1024
  Height = 667
  Legend.CheckBoxes = True
  Legend.LegendStyle = lsSeries
  Title.Text.Strings = (
    ''N''#225''klady a v''#253''nosy'')
  MaxPointsPerPage = 3
  Page = 23
  Align = alClient
  TabOrder = 0
  AutoSize = True
  object TBarSeries
    Active = False
    Marks.Callout.Brush.Color = clBlack
    Marks.Style = smsValue
    Marks.Visible = True
    ShowInLegend = False
    Title = ''Zak''#225''zka''
    Gradient.Direction = gdTopBottom
    XValues.Name = ''X''
    XValues.Order = loAscending
    YValues.Name = ''Sloupec''
    YValues.Order = loNone
  end
  object TBarSeries
    Tag = 1
    Marks.Callout.Brush.Color = clBlack
    Marks.Style = smsValue
    Marks.Visible = True
    Title = ''N''#225''klady''
    Gradient.Direction = gdTopBottom
    XValues.Name = ''X''
    XValues.Order = loAscending
    YValues.Name = ''Sloupec''
    YValues.Order = loNone
  end
  object TBarSeries
    Tag = 2
    Marks.Callout.Brush.Color = clBlack
    Marks.Style = smsValue
    Marks.Visible = True
    Title = ''V''#253''nosy''
    Gradient.Direction = gdTopBottom
    XValues.Name = ''X''
    XValues.Order = loAscending
    YValues.Name = ''Sloupec''
    YValues.Order = loNone
  end
  object TBarSeries
    Tag = 3
    Marks.Callout.Brush.Color = clBlack
    Marks.Style = smsValue
    Marks.Visible = True
    Title = ''Zisk''
    Gradient.Direction = gdTopBottom
    XValues.Name = ''X''
    XValues.Order = loAscending
    YValues.Name = ''Sloupec''
    YValues.Order = loNone
  end
end
',
'SELECT TabZakazka.CisloZakazky+CHAR(13)+ LEFT(TabZakazka.Nazev,10) AS Zakazka,
(SELECT SUM(TabDenik.Castka) FROM TabDenik WHERE TabDenik.CisloZakazky=TabZakazka.CisloZakazky AND TabDenik.CisloUcet LIKE ''5%'') AS Naklady,
(SELECT SUM(TabDenik.Castka) FROM TabDenik WHERE TabDenik.CisloZakazky=TabZakazka.CisloZakazky AND TabDenik.CisloUcet LIKE ''6%'') AS Vynosy,
(SELECT SUM(TabDenik.Castka) FROM TabDenik WHERE TabDenik.CisloZakazky=TabZakazka.CisloZakazky AND TabDenik.CisloUcet LIKE ''6%'')-
(SELECT SUM(TabDenik.Castka) FROM TabDenik WHERE TabDenik.CisloZakazky=TabZakazka.CisloZakazky AND TabDenik.CisloUcet LIKE ''5%'') AS Zisk


FROM TabZakazka
/*###*//*^^^*/',
1,
'',
'0|Ano|Zakazka|Zakázka
1|Ne|Naklady|Náklady
2|Ne|Vynosy|Výnosy
3|Ne|Zisk|Zisk
')