/*INFO: Tento script vytvoří defici grafu Zakázka název saldo
*/
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,
'Zakázka název saldo',
1,
'object TChart
  Left = 0
  Top = 33
  Width = 1024
  Height = 667
  Legend.CheckBoxes = True
  Legend.LegendStyle = lsSeries
  Title.Text.Strings = (
    ''Zak''#225''zka n''#225''zev saldo'')
  MaxPointsPerPage = 5
  Align = alClient
  TabOrder = 0
  AutoSize = True
  object TBarSeries
    Active = False
    Marks.Callout.Brush.Color = clBlack
    Marks.Style = smsValue
    Marks.Visible = True
    ShowInLegend = False
    Title = ''[Zakazka]''
    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
    Gradient.Direction = gdTopBottom
    XValues.Name = ''X''
    XValues.Order = loAscending
    YValues.Name = ''Sloupec''
    YValues.Order = loNone
  end
end
',
'SELECT TabZakazka.CisloZakazky+Char(13)+TabZakazka.Nazev AS Zakazka,(SELECT ABS(SUM(TabSaldo.Saldo)) FROM TabSaldo WHERE TabSaldo.CisloZakazky=TabZakazka.CisloZakazky) AS Saldo

FROM TabZakazka/*###*//*^^^*/',
1,
'',
'0|Ano|Zakazka|Zakázka
1|Ne|Saldo|Saldo
')