Nabídka zboží

Comments (...)

2003.05.16a / 13:00

 

03) Vyřazena funkce

 

   Hruška - Nabídka zboží - podle skupiny

 

   funkci nahrazuje kombinovaný SQL dotaz:

 

Scenar:

 

QA HR__Z201

SQL2

R2

 

SQL1:

 

select

   Dodavatel,

   Skupina,

   Cislo,

   Nazev,

   DPH,

   Egalizace,

   Cena01

from

   @

where

   (skupina>6) and

   (skupina<8888)

order by

   skupina

 

SQL2:

 

select

   MISNAZEVZS00(Skupina) as NazevSkupiny,

   Dodavatel,

   Skupina,

   Cislo,

   Nazev,

   Round(MISDPH(DPH)) As DPHProc,

   Egalizace,

   Cena01 as CenaBezDPH,

   MISCENASDPH(DPH,Cena01) as CenaSDPH,

   MISMZVMJ(1900000000+Cislo,04) as VMJ

from

   MEMO1

where

   (vmj>2)

 

RB2:

 

object ppReport2: TppReport

  AutoStop = False

  Columns = 2

  ColumnPositions.Strings = (

    '6350'

    '105000')

  DataPipeline = ppDBPipeline2

  PrinterSetup.BinName = 'Default'

  PrinterSetup.DocumentName = 'Report'

  PrinterSetup.PaperName = 'A4'

  PrinterSetup.PrinterName = 'Default'

  PrinterSetup.mmMarginBottom = 6350

  PrinterSetup.mmMarginLeft = 6350

  PrinterSetup.mmMarginRight = 6350

  PrinterSetup.mmMarginTop = 6350

  PrinterSetup.mmPaperHeight = 297000

  PrinterSetup.mmPaperWidth = 210000

  PrinterSetup.PaperSize = 9

  Template.FileName = 'C:\temp\REPORTR2.TMP'

  Template.Format = ftASCII

  Units = utMillimeters

  AllowPrintToFile = True

  DeviceType = 'Printer'

  TextFileName = 'C:\XX1.PDF'

  Left = 568

  Top = 32

  Version = '6.03'

  mmColumnWidth = 98650

  DataPipelineName = 'ppDBPipeline2'

  object ppHeaderBand2: TppHeaderBand

    PrintHeight = phDynamic

    mmBottomOffset = 0

    mmHeight = 22225

    mmPrintPosition = 0

    object ppLabel1: TppLabel

      UserName = 'Label1'

      Caption = 'Hruška s.r.o. - nabídka zboží'

      Font.Charset = EASTEUROPE_CHARSET

      Font.Color = clBlack

      Font.Name = 'Arial CE'

      Font.Size = 20

      Font.Style = [fsBold]

      Transparent = True

      mmHeight = 8467

      mmLeft = 1588

      mmTop = 1058

      mmWidth = 99219

      BandType = 0

    end

    object ppLabel2: TppLabel

      UserName = 'Label2'

      Caption = 'Číslo'

      Font.Charset = ANSI_CHARSET

      Font.Color = clBlack

      Font.Name = 'Times New Roman CE'

      Font.Size = 8

      Font.Style = []

      Transparent = True

      mmHeight = 3704

      mmLeft = 13494

      mmTop = 15081

      mmWidth = 6085

      BandType = 0

    end

    object ppLabel3: TppLabel

      UserName = 'Label3'

      Caption = 'Název'

      Font.Charset = ANSI_CHARSET

      Font.Color = clBlack

      Font.Name = 'Times New Roman CE'

      Font.Size = 10

      Font.Style = []

      Transparent = True

      mmHeight = 3969

      mmLeft = 24077

      mmTop = 14817

      mmWidth = 8731

      BandType = 0

    end

    object ppLabel4: TppLabel

      UserName = 'Label4'

      Caption = 'Egal.'

      Font.Charset = DEFAULT_CHARSET

      Font.Color = clBlack

      Font.Name = 'MS Sans Serif'

      Font.Size = 8

      Font.Style = []

      Transparent = True

      mmHeight = 3440

      mmLeft = 66146

      mmTop = 14817

      mmWidth = 6350

      BandType = 0

    end

    object ppLabel6: TppLabel

      UserName = 'Label6'

      Caption = 'Cena bez'

      Font.Charset = DEFAULT_CHARSET

      Font.Color = clBlack

      Font.Name = 'MS Sans Serif'

      Font.Size = 8

      Font.Style = []

      Transparent = True

      mmHeight = 3440

      mmLeft = 85990

      mmTop = 11113

      mmWidth = 11906

      BandType = 0

    end

    object ppLine1: TppLine

      UserName = 'Line1'

      Style = lsDouble

      Weight = 0.75

      mmHeight = 1852

      mmLeft = 1588

      mmTop = 20373

      mmWidth = 195263

      BandType = 0

    end

    object ppLabel5: TppLabel

      UserName = 'Label5'

      Caption = 'DPH %'

      Font.Charset = DEFAULT_CHARSET

      Font.Color = clBlack

      Font.Name = 'Arial'

      Font.Size = 8

      Font.Style = []

      Transparent = True

      mmHeight = 3704

      mmLeft = 74877

      mmTop = 14817

      mmWidth = 8731

      BandType = 0

    end

    object ppLabel8: TppLabel

      UserName = 'Label8'

      Caption = 'Číslo'

      Font.Charset = EASTEUROPE_CHARSET

      Font.Color = clBlack

      Font.Name = 'Times New Roman CE'

      Font.Size = 8

      Font.Style = []

      Transparent = True

      mmHeight = 3704

      mmLeft = 111654

      mmTop = 15081

      mmWidth = 6085

      BandType = 0

    end

    object ppLabel9: TppLabel

      UserName = 'Label9'

      Caption = 'Název'

      Font.Charset = ANSI_CHARSET

      Font.Color = clBlack

      Font.Name = 'Times New Roman CE'

      Font.Size = 10

      Font.Style = []

      Transparent = True

      mmHeight = 3969

      mmLeft = 121444

      mmTop = 14817

      mmWidth = 8731

      BandType = 0

    end

    object ppLabel10: TppLabel

      UserName = 'Label10'

      Caption = 'Egal.'

      Font.Charset = DEFAULT_CHARSET

      Font.Color = clBlack

      Font.Name = 'Arial'

      Font.Size = 8

      Font.Style = []

      Transparent = True

      mmHeight = 3704

      mmLeft = 165894

      mmTop = 14817

      mmWidth = 6085

      BandType = 0

    end

    object ppLabel11: TppLabel

      UserName = 'Label11'

      Caption = 'DPH %'

      Font.Charset = DEFAULT_CHARSET

      Font.Color = clBlack

      Font.Name = 'Arial'

      Font.Size = 8

      Font.Style = []

      Transparent = True

      mmHeight = 3704

      mmLeft = 174096

      mmTop = 14817

      mmWidth = 8731

      BandType = 0

    end

    object ppLabel7: TppLabel

      UserName = 'Label7'

      Caption = 'DPH'

      Font.Charset = DEFAULT_CHARSET

      Font.Color = clBlack

      Font.Name = 'MS Sans Serif'

      Font.Size = 8

      Font.Style = []

      Transparent = True

      mmHeight = 3440

      mmLeft = 88636

      mmTop = 14817

      mmWidth = 6085

      BandType = 0

    end

    object ppLabel12: TppLabel

      UserName = 'Label12'

      Caption = 'Cena bez'

      Font.Charset = DEFAULT_CHARSET

      Font.Color = clBlack

      Font.Name = 'MS Sans Serif'

      Font.Size = 8

      Font.Style = []

      Transparent = True

      mmHeight = 3440

      mmLeft = 184415

      mmTop = 11377

      mmWidth = 11906

      BandType = 0

    end

    object ppLabel13: TppLabel

      UserName = 'Label13'

      Caption = 'DPH'

      Font.Charset = DEFAULT_CHARSET

      Font.Color = clBlack

      Font.Name = 'MS Sans Serif'

      Font.Size = 8

      Font.Style = []

      Transparent = True

      mmHeight = 3440

      mmLeft = 187061

      mmTop = 15081

      mmWidth = 6085

      BandType = 0

    end

  end

  object ppColumnHeaderBand1: TppColumnHeaderBand

    mmBottomOffset = 0

    mmHeight = 0

    mmPrintPosition = 0

  end

  object ppDetailBand2: TppDetailBand

    mmBottomOffset = 0

    mmHeight = 3969

    mmPrintPosition = 0

    object ppDBText1: TppDBText

      UserName = 'DBText1'

      DataField = 'Cislo'

      DataPipeline = ppDBPipeline2

      Font.Charset = EASTEUROPE_CHARSET

      Font.Color = clBlack

      Font.Name = 'Arial CE'

      Font.Size = 8

      Font.Style = []

      ParentDataPipeline = False

      TextAlignment = taRightJustified

      Transparent = True

      DataPipelineName = 'ppDBPipeline2'

      mmHeight = 3704

      mmLeft = 12700

      mmTop = 265

      mmWidth = 12435

      BandType = 4

    end

    object ppDBText2: TppDBText

      UserName = 'DBText2'

      DataField = 'Nazev'

      DataPipeline = ppDBPipeline2

      Font.Charset = EASTEUROPE_CHARSET

      Font.Color = clBlack

      Font.Name = 'Arial CE'

      Font.Size = 8

      Font.Style = []

      ParentDataPipeline = False

      Transparent = True

      DataPipelineName = 'ppDBPipeline2'

      mmHeight = 3704

      mmLeft = 26194

      mmTop = 265

      mmWidth = 43127

      BandType = 4

    end

    object ppDBText3: TppDBText

      UserName = 'DBText3'

      AutoSize = True

      DataField = 'Egalizace'

      DataPipeline = ppDBPipeline2

      Font.Charset = DEFAULT_CHARSET

      Font.Color = clBlack

      Font.Name = 'MS Sans Serif'

      Font.Size = 8

      Font.Style = []

      ParentDataPipeline = False

      TextAlignment = taRightJustified

      Transparent = True

      DataPipelineName = 'ppDBPipeline2'

      mmHeight = 3260

      mmLeft = 72782

      mmTop = 265

      mmWidth = 1566

      BandType = 4

    end

    object ppDBText4: TppDBText

      UserName = 'DBText4'

      AutoSize = True

      DataField = 'CenaBezDPH'

      DataPipeline = ppDBPipeline2

      DisplayFormat = '#,0.00;-#,0.00'

      Font.Charset = EASTEUROPE_CHARSET

      Font.Color = clBlack

      Font.Name = 'Arial CE'

      Font.Size = 8

      Font.Style = []

      ParentDataPipeline = False

      TextAlignment = taRightJustified

      Transparent = True

      DataPipelineName = 'ppDBPipeline2'

      mmHeight = 3260

      mmLeft = 88709

      mmTop = 265

      mmWidth = 7070

      BandType = 4

    end

    object ppDBText6: TppDBText

      UserName = 'DBText6'

      AutoSize = True

      DataField = 'DPHProc'

      DataPipeline = ppDBPipeline2

      Font.Charset = EASTEUROPE_CHARSET

      Font.Color = clBlack

      Font.Name = 'Arial CE'

      Font.Size = 8

      Font.Style = []

      ParentDataPipeline = False

      TextAlignment = taRightJustified

      Transparent = True

      DataPipelineName = 'ppDBPipeline2'

      mmHeight = 3260

      mmLeft = 80984

      mmTop = 265

      mmWidth = 1566

      BandType = 4

    end

    object ppShape1: TppShape

      UserName = 'Shape1'

      mmHeight = 3440

      mmLeft = 0

      mmTop = 265

      mmWidth = 3175

      BandType = 4

    end

    object ppShape2: TppShape

      UserName = 'Shape2'

      mmHeight = 3440

      mmLeft = 2910

      mmTop = 265

      mmWidth = 3175

      BandType = 4

    end

    object ppShape3: TppShape

      UserName = 'Shape3'

      mmHeight = 3440

      mmLeft = 5821

      mmTop = 265

      mmWidth = 3175

      BandType = 4

    end

    object ppShape4: TppShape

      UserName = 'Shape4'

      mmHeight = 3440

      mmLeft = 8731

      mmTop = 265

      mmWidth = 3175

      BandType = 4

    end

  end

  object ppColumnFooterBand1: TppColumnFooterBand

    mmBottomOffset = 0

    mmHeight = 0

    mmPrintPosition = 0

  end

  object ppFooterBand2: TppFooterBand

    mmBottomOffset = 0

    mmHeight = 4763

    mmPrintPosition = 0

    object ppSystemVariable1: TppSystemVariable

      UserName = 'SystemVariable1'

      Font.Charset = DEFAULT_CHARSET

      Font.Color = clBlack

      Font.Name = 'MS Sans Serif'

      Font.Size = 10

      Font.Style = []

      TextAlignment = taRightJustified

      Transparent = True

      mmHeight = 4233

      mmLeft = 2381

      mmTop = 265

      mmWidth = 14552

      BandType = 8

    end

    object ppSystemVariable2: TppSystemVariable

      UserName = 'SystemVariable2'

      VarType = vtPageNo

      Font.Charset = DEFAULT_CHARSET

      Font.Color = clBlack

      Font.Name = 'MS Sans Serif'

      Font.Size = 10

      Font.Style = []

      TextAlignment = taRightJustified

      Transparent = True

      mmHeight = 4233

      mmLeft = 187325

      mmTop = 265

      mmWidth = 1852

      BandType = 8

    end

  end

  object ppGroup1: TppGroup

    BreakName = 'Skupina'

    DataPipeline = ppDBPipeline2

    UserName = 'Group1'

    mmNewColumnThreshold = 0

    mmNewPageThreshold = 0

    DataPipelineName = 'ppDBPipeline2'

    object ppGroupHeaderBand1: TppGroupHeaderBand

      mmBottomOffset = 0

      mmHeight = 10848

      mmPrintPosition = 0

      object ppShape5: TppShape

        UserName = 'Shape5'

        Brush.Color = 15132390

        Shape = stRoundRect

        mmHeight = 6350

        mmLeft = 9525

        mmTop = 794

        mmWidth = 75142

        BandType = 3

        GroupNo = 0

      end

      object ppDBText8: TppDBText

        UserName = 'DBText8'

        DataField = 'Skupina'

        DataPipeline = ppDBPipeline2

        Font.Charset = EASTEUROPE_CHARSET

        Font.Color = clBlack

        Font.Name = 'Times New Roman CE'

        Font.Size = 12

        Font.Style = [fsBold]

        ParentDataPipeline = False

        TextAlignment = taRightJustified

        Transparent = True

        DataPipelineName = 'ppDBPipeline2'

        mmHeight = 5027

        mmLeft = 10848

        mmTop = 1588

        mmWidth = 10848

        BandType = 3

        GroupNo = 0

      end

      object ppDBText9: TppDBText

        UserName = 'DBText9'

        AutoSize = True

        DataField = 'S.Nazev'

        DataPipeline = ppDBPipeline2

        Font.Charset = ANSI_CHARSET

        Font.Color = clBlack

        Font.Name = 'Times New Roman CE'

        Font.Size = 12

        Font.Style = [fsBold]

        Transparent = True

        DataPipelineName = 'ppDBPipeline2'

        mmHeight = 4995

        mmLeft = 27252

        mmTop = 1588

        mmWidth = 36068

        BandType = 3

        GroupNo = 0

      end

    end

    object ppGroupFooterBand1: TppGroupFooterBand

      mmBottomOffset = 0

      mmHeight = 0

      mmPrintPosition = 0

    end

  end

end

 

Comments (...)

Created with Help & Manual 6 and styled with Premium Pack 2.0