home *** CD-ROM | disk | FTP | other *** search
/ ftp.sanbilgisayar.com / ftp.sanbilgisayar.com.tar / ftp.sanbilgisayar.com / SHOP / ShopImportP.exe / 0 / RCDATA / TDMSI / TDMSI.txt
Text File  |  2015-03-03  |  61KB  |  1,947 lines

  1. object DMsi: TDMsi
  2.   OldCreateOrder = False
  3.   OnCreate = DataModuleCreate
  4.   OnDestroy = DataModuleDestroy
  5.   Left = 379
  6.   Top = 189
  7.   Height = 590
  8.   Width = 913
  9.   object Bolge: TMSQuery
  10.     Connection = mDM.MSConnection
  11.     SQL.Strings = (
  12.       'Select * from Bolge')
  13.     Left = 36
  14.     Top = 128
  15.     object BolgeKOD: TStringField
  16.       FieldName = 'KOD'
  17.       Required = True
  18.       Size = 3
  19.     end
  20.     object BolgeADI: TStringField
  21.       FieldName = 'ADI'
  22.       Size = 30
  23.     end
  24.   end
  25.   object Magaza: TMSQuery
  26.     Connection = mDM.MSConnection
  27.     SQL.Strings = (
  28.       'Select Kodu,Adi from Magaza')
  29.     Active = True
  30.     Left = 84
  31.     Top = 128
  32.     object MagazaKodu: TStringField
  33.       FieldName = 'Kodu'
  34.       Origin = 'Magaza.Kodu'
  35.       Required = True
  36.       Size = 6
  37.     end
  38.     object MagazaAdi: TStringField
  39.       FieldName = 'Adi'
  40.       Origin = 'Magaza.Adi'
  41.       Size = 30
  42.     end
  43.   end
  44.   object Rehber: TMSQuery
  45.     Connection = mDM.MSConnection
  46.     SQL.Strings = (
  47.       'Select Kodu,Adi from Rehber')
  48.     Left = 36
  49.     Top = 176
  50.     object RehberKodu: TStringField
  51.       FieldName = 'Kodu'
  52.       Required = True
  53.       Size = 6
  54.     end
  55.     object RehberAdi: TStringField
  56.       FieldName = 'Adi'
  57.       Size = 25
  58.     end
  59.   end
  60.   object ShopMal: TMSQuery
  61.     Connection = mDM.MSConnection
  62.     SQL.Strings = (
  63.       'Select Kodu,tanimi from ShopMal')
  64.     Left = 84
  65.     Top = 176
  66.     object ShopMalKodu: TStringField
  67.       FieldName = 'Kodu'
  68.       Required = True
  69.       Size = 15
  70.     end
  71.     object ShopMaltanimi: TStringField
  72.       FieldName = 'tanimi'
  73.       Size = 30
  74.     end
  75.   end
  76.   object Tur: TMSQuery
  77.     Connection = mDM.MSConnection
  78.     SQL.Strings = (
  79.       'Select * From Tur with (NOLOCK)')
  80.     Left = 132
  81.     Top = 176
  82.     object TurKodu: TStringField
  83.       FieldName = 'Kodu'
  84.       Size = 6
  85.     end
  86.     object TurAdi: TStringField
  87.       FieldName = 'Adi'
  88.       Size = 25
  89.     end
  90.     object TurABebYas1: TSmallintField
  91.       FieldName = 'ABebYas1'
  92.     end
  93.     object TurABebYas2: TSmallintField
  94.       FieldName = 'ABebYas2'
  95.     end
  96.     object TurABebYuzde: TSmallintField
  97.       FieldName = 'ABebYuzde'
  98.     end
  99.     object TurSBebYas1: TSmallintField
  100.       FieldName = 'SBebYas1'
  101.     end
  102.     object TurSBebYas2: TSmallintField
  103.       FieldName = 'SBebYas2'
  104.     end
  105.     object TurSBebYuzde: TSmallintField
  106.       FieldName = 'SBebYuzde'
  107.     end
  108.     object TurACocYas1: TSmallintField
  109.       FieldName = 'ACocYas1'
  110.     end
  111.     object TurACocYas2: TSmallintField
  112.       FieldName = 'ACocYas2'
  113.     end
  114.     object TurACocYuzde: TSmallintField
  115.       FieldName = 'ACocYuzde'
  116.     end
  117.     object TurSCocYas1: TSmallintField
  118.       FieldName = 'SCocYas1'
  119.     end
  120.     object TurSCocYas2: TSmallintField
  121.       FieldName = 'SCocYas2'
  122.     end
  123.     object TurSCocYuzde: TSmallintField
  124.       FieldName = 'SCocYuzde'
  125.     end
  126.     object TurFiyKate: TStringField
  127.       FieldName = 'FiyKate'
  128.       Size = 15
  129.     end
  130.   end
  131.   object DovCins: TMSQuery
  132.     Connection = mDM.MSConnection
  133.     SQL.Strings = (
  134.       'Select * From DovCins with (NOLOCK)')
  135.     Left = 187
  136.     Top = 176
  137.     object DovCinsDoviz: TStringField
  138.       FieldName = 'Doviz'
  139.       Required = True
  140.       Size = 3
  141.     end
  142.     object DovCinsText: TStringField
  143.       FieldName = 'Text'
  144.       Size = 25
  145.     end
  146.   end
  147.   object ShopParam: TMSQuery
  148.     Connection = mDM.MSConnection
  149.     SQL.Strings = (
  150.       'Select * From ShopParam ')
  151.     Left = 132
  152.     Top = 128
  153.     object ShopParamFirmaLogo: TBlobField
  154.       FieldName = 'FirmaLogo'
  155.     end
  156.     object ShopParamFirmaKase: TBlobField
  157.       FieldName = 'FirmaKase'
  158.     end
  159.     object ShopParamBankNo: TSmallintField
  160.       FieldName = 'BankNo'
  161.     end
  162.     object ShopParamKurTipi: TSmallintField
  163.       FieldName = 'KurTipi'
  164.     end
  165.   end
  166.   object MagTopSat: TMSQuery
  167.     Connection = mDM.MSConnection
  168.     SQL.Strings = (
  169.       
  170.         'Select Sum(CiroTut) as ToplamCiro,Sum(Ciroiadetut) as Toplamiade' +
  171.         ','
  172.       
  173.         'Netciro=(Sum(CiroTut)-Sum(Ciroiadetut)),CiroDov,Magaza from ShpS' +
  174.         'at '
  175.       'Group By Magaza,CiroDov'
  176.       'Order By Magaza,CiroDov')
  177.     Active = True
  178.     Left = 26
  179.     Top = 52
  180.     object MagTopSatMagaza: TStringField
  181.       FieldName = 'Magaza'
  182.       Origin = 'ShpSat.Magaza'
  183.       Size = 6
  184.     end
  185.     object MagTopSatMagAdi: TStringField
  186.       FieldKind = fkLookup
  187.       FieldName = 'MagAdi'
  188.       LookupDataSet = Magaza
  189.       LookupKeyFields = 'Kodu'
  190.       LookupResultField = 'Adi'
  191.       KeyFields = 'Magaza'
  192.       Lookup = True
  193.     end
  194.     object MagTopSatToplamCiro: TFloatField
  195.       FieldName = 'ToplamCiro'
  196.       Origin = '.ToplamCiro'
  197.       DisplayFormat = '#,##0.00;;'#39#39
  198.       EditFormat = '#,###.##'
  199.     end
  200.     object MagTopSatCiroDov: TStringField
  201.       FieldName = 'CiroDov'
  202.       Origin = 'ShpSat.CiroDov'
  203.       Size = 3
  204.     end
  205.     object MagTopSatToplamiade: TFloatField
  206.       FieldName = 'Toplamiade'
  207.       Origin = '.Toplamiade'
  208.       ReadOnly = True
  209.     end
  210.     object MagTopSatNetciro: TFloatField
  211.       FieldName = 'Netciro'
  212.       Origin = '.Netciro'
  213.       ReadOnly = True
  214.     end
  215.   end
  216.   object MagTopSatDS: TDataSource
  217.     DataSet = MagTopSat
  218.     Left = 26
  219.     Top = 6
  220.   end
  221.   object MagTopPax: TMSQuery
  222.     Connection = mDM.MSConnection
  223.     SQL.Strings = (
  224.       'Select Sum(GirYet)As ToplamYet , Sum(GirCoc)As ToplamCoc,'
  225.       
  226.         '       Sum(GirBeb)As ToplamBeb, Sum(GirMuk) As ToplamGirMuk ,Mag' +
  227.         'aza From ShpMag'
  228.       'Group By Magaza'
  229.       'Order By Magaza')
  230.     Active = True
  231.     Left = 102
  232.     Top = 52
  233.     object MagTopPaxToplamYet: TIntegerField
  234.       FieldName = 'ToplamYet'
  235.       DisplayFormat = '#,##0.00;;'#39#39
  236.       EditFormat = '#,###.##'
  237.     end
  238.     object MagTopPaxToplamCoc: TIntegerField
  239.       FieldName = 'ToplamCoc'
  240.       DisplayFormat = '#,##0.00;;'#39#39
  241.       EditFormat = '#,###.##'
  242.     end
  243.     object MagTopPaxToplamBeb: TIntegerField
  244.       FieldName = 'ToplamBeb'
  245.       DisplayFormat = '#,##0.00;;'#39#39
  246.       EditFormat = '#,###.##'
  247.     end
  248.     object MagTopPaxMagaza: TStringField
  249.       FieldName = 'Magaza'
  250.       Size = 6
  251.     end
  252.     object MagTopPaxMagAdi: TStringField
  253.       FieldKind = fkLookup
  254.       FieldName = 'MagAdi'
  255.       LookupDataSet = Magaza
  256.       LookupKeyFields = 'Kodu'
  257.       LookupResultField = 'Adi'
  258.       KeyFields = 'Magaza'
  259.       Lookup = True
  260.     end
  261.     object MagTopPaxToplamGirMuk: TIntegerField
  262.       FieldName = 'ToplamGirMuk'
  263.     end
  264.   end
  265.   object MagTopPaxDS: TDataSource
  266.     DataSet = MagTopPax
  267.     Left = 102
  268.     Top = 6
  269.   end
  270.   object MagTopHak: TMSQuery
  271.     Connection = mDM.MSConnection
  272.     SQL.Strings = (
  273.       'Select Sum(KomTut) as ToplamKomisyon,KomDov,Magaza from ShpSat'
  274.       'Group By Magaza,KomDov'
  275.       'Order By Magaza,KomDov')
  276.     Active = True
  277.     Left = 179
  278.     Top = 52
  279.     object MagTopHakToplamKomisyon: TFloatField
  280.       FieldName = 'ToplamKomisyon'
  281.       DisplayFormat = '#,##0.00;;'#39#39
  282.       EditFormat = '#,###.##'
  283.     end
  284.     object MagTopHakKomDov: TStringField
  285.       FieldName = 'KomDov'
  286.       Size = 3
  287.     end
  288.     object MagTopHakMagaza: TStringField
  289.       FieldName = 'Magaza'
  290.       Size = 6
  291.     end
  292.     object MagTopHakMagAdi: TStringField
  293.       FieldKind = fkLookup
  294.       FieldName = 'MagAdi'
  295.       LookupDataSet = Magaza
  296.       LookupKeyFields = 'Kodu'
  297.       LookupResultField = 'Adi'
  298.       KeyFields = 'Magaza'
  299.       Lookup = True
  300.     end
  301.   end
  302.   object MagTopHakDS: TDataSource
  303.     DataSet = MagTopHak
  304.     Left = 179
  305.     Top = 6
  306.   end
  307.   object MagTopReh: TMSQuery
  308.     Connection = mDM.MSConnection
  309.     SQL.Strings = (
  310.       'Select Sum(CiroTut) As Ciro ,Magaza,Rehber,CiroDov From ShpSat'
  311.       'Where not CiroDov is null and not CiroTut is null '
  312.       'Group By Magaza,Rehber,CiroDov'
  313.       'Order By Magaza,Rehber,CiroDov')
  314.     Left = 443
  315.     Top = 52
  316.     object MagTopRehMagaza: TStringField
  317.       FieldName = 'Magaza'
  318.       Size = 6
  319.     end
  320.     object StringField2: TStringField
  321.       FieldKind = fkLookup
  322.       FieldName = 'MagAdi'
  323.       LookupDataSet = Magaza
  324.       LookupKeyFields = 'Kodu'
  325.       LookupResultField = 'Adi'
  326.       KeyFields = 'Magaza'
  327.       Lookup = True
  328.     end
  329.     object MagTopRehRehber: TStringField
  330.       FieldName = 'Rehber'
  331.       Size = 6
  332.     end
  333.     object MagTopRehCiro: TFloatField
  334.       FieldName = 'Ciro'
  335.       DisplayFormat = '#,##0.00;;'#39#39
  336.       EditFormat = '#,###.##'
  337.     end
  338.     object MagTopRehCiroDov: TStringField
  339.       FieldName = 'CiroDov'
  340.       Size = 3
  341.     end
  342.     object MagTopRehRehAdi: TStringField
  343.       FieldKind = fkLookup
  344.       FieldName = 'RehAdi'
  345.       LookupDataSet = Rehber
  346.       LookupKeyFields = 'Kodu'
  347.       LookupResultField = 'Adi'
  348.       KeyFields = 'Rehber'
  349.       Lookup = True
  350.     end
  351.   end
  352.   object MagTopRehDS: TDataSource
  353.     DataSet = MagTopReh
  354.     Left = 443
  355.     Top = 6
  356.   end
  357.   object RehTopSat: TMSQuery
  358.     Connection = mDM.MSConnection
  359.     SQL.Strings = (
  360.       'Select Sum(CiroTut) As Ciro ,Rehber,CiroDov From ShpSat '
  361.       'Where not CiroDov is null and not CiroTut is null '
  362.       'Group By Rehber,CiroDov '
  363.       'Order By Rehber,CiroDov ')
  364.     Left = 520
  365.     Top = 52
  366.     object RehTopSatCiro: TFloatField
  367.       FieldName = 'Ciro'
  368.       DisplayFormat = '#,##0.00;;'#39#39
  369.       EditFormat = '#,###.##'
  370.     end
  371.     object RehTopSatRehber: TStringField
  372.       FieldName = 'Rehber'
  373.       Size = 6
  374.     end
  375.     object RehTopSatRehAdi: TStringField
  376.       FieldKind = fkLookup
  377.       FieldName = 'RehAdi'
  378.       LookupDataSet = Rehber
  379.       LookupKeyFields = 'Kodu'
  380.       LookupResultField = 'Adi'
  381.       KeyFields = 'Rehber'
  382.       Lookup = True
  383.     end
  384.     object RehTopSatCiroDov: TStringField
  385.       FieldName = 'CiroDov'
  386.       Size = 3
  387.     end
  388.   end
  389.   object RehTopSatDS: TDataSource
  390.     DataSet = RehTopSat
  391.     Left = 520
  392.     Top = 6
  393.   end
  394.   object HakDag: TMSQuery
  395.     Connection = mDM.MSConnection
  396.     SQL.Strings = (
  397.       
  398.         'Select Sum(HakKomTut) As Hakedis ,K.Komdov,S.Magaza,K.KomAlan Fr' +
  399.         'om ShpSatKom K,ShpSat S'
  400.       
  401.         'Where S.Sira=K.ShpSira and not K.KomDov is null and not HakKomTu' +
  402.         't is Null and K.KomDov<>'#39#39' and HakKomTut<>0'
  403.       'Group By S.Magaza,K.KomAlan,K.KomDov'
  404.       'Order By S.Magaza,K.KomAlan,K.KomDov')
  405.     Left = 597
  406.     Top = 52
  407.     object HakDagHakedis: TFloatField
  408.       FieldName = 'Hakedis'
  409.     end
  410.     object HakDagKomdov: TStringField
  411.       FieldName = 'Komdov'
  412.       Size = 3
  413.     end
  414.     object HakDagMagaza: TStringField
  415.       FieldName = 'Magaza'
  416.       Size = 6
  417.     end
  418.     object HakDagKomAlan: TStringField
  419.       FieldName = 'KomAlan'
  420.       Size = 15
  421.     end
  422.     object HakDagMagAdi: TStringField
  423.       FieldKind = fkLookup
  424.       FieldName = 'MagAdi'
  425.       LookupDataSet = Magaza
  426.       LookupKeyFields = 'Kodu'
  427.       LookupResultField = 'Adi'
  428.       KeyFields = 'Magaza'
  429.       Lookup = True
  430.     end
  431.   end
  432.   object HakDagDS: TDataSource
  433.     DataSet = HakDag
  434.     Left = 597
  435.     Top = 6
  436.   end
  437.   object RehTopPax: TMSQuery
  438.     Connection = mDM.MSConnection
  439.     SQL.Strings = (
  440.       
  441.         'Select ToplamYet = Sum(GirYet)-Sum(GirMuk)  , Sum(GirCoc)As Topl' +
  442.         'amCoc , Sum(GirBeb)As ToplamBeb,S.Rehber'
  443.       ', Tipi=1'
  444.       'From ShpMag M ,ShpSat S '
  445.       
  446.         'Where M.Magaza=S.Magaza and M.Tur =S.Tur and M.Bolge = S.Bolge a' +
  447.         'nd M.Tarih =S.Tarih and'
  448.       'M.Operator=S.Operator and M.MusTipi=S.Mustipi'
  449.       'Group By S.Rehber'
  450.       'Order By S.Rehber')
  451.     Left = 665
  452.     Top = 52
  453.     object RehTopPaxToplamYet: TIntegerField
  454.       FieldName = 'ToplamYet'
  455.     end
  456.     object RehTopPaxToplamCoc: TIntegerField
  457.       FieldName = 'ToplamCoc'
  458.     end
  459.     object RehTopPaxToplamBeb: TIntegerField
  460.       FieldName = 'ToplamBeb'
  461.     end
  462.     object RehTopPaxRehber: TStringField
  463.       FieldName = 'Rehber'
  464.       Size = 6
  465.     end
  466.     object RehTopPaxRehAdi: TStringField
  467.       FieldKind = fkLookup
  468.       FieldName = 'RehAdi'
  469.       LookupDataSet = Rehber
  470.       LookupKeyFields = 'Kodu'
  471.       LookupResultField = 'Adi'
  472.       KeyFields = 'Rehber'
  473.       Lookup = True
  474.     end
  475.     object RehTopPaxTipi: TIntegerField
  476.       FieldName = 'Tipi'
  477.       ReadOnly = True
  478.     end
  479.   end
  480.   object RehTopPaxDS: TDataSource
  481.     DataSet = RehTopPax
  482.     Left = 665
  483.     Top = 6
  484.   end
  485.   object HakDagAraTop: TMSQuery
  486.     Connection = mDM.MSConnection
  487.     SQL.Strings = (
  488.       
  489.         'Select Sum(HakKomTut) As Hakedis ,K.Komdov,S.Magaza From ShpSatK' +
  490.         'om K,ShpSat S'
  491.       
  492.         'Where S.Sira=K.ShpSira and not K.KomDov is null and not HakKomTu' +
  493.         't is Null and K.KomDov<>'#39#39#39#39' and HakKomTut<>0  and'
  494.       
  495.         'K.Tur =S.Tur and K.Bolge =S.Bolge and K.Tarih =S.Tarih and K.Ope' +
  496.         'rator=S.Operator and K.MusTipi=S.MusTipi and Magaza=:Magaza'
  497.       'Group By S.Magaza,K.KomDov'
  498.       'Order By S.Magaza,K.KomDov')
  499.     MasterSource = HakDagDS
  500.     Left = 824
  501.     Top = 175
  502.     ParamData = <
  503.       item
  504.         DataType = ftString
  505.         Name = 'Magaza'
  506.         ParamType = ptInput
  507.         Size = 7
  508.       end>
  509.     object HakDagAraTopHakedis: TFloatField
  510.       FieldName = 'Hakedis'
  511.     end
  512.     object HakDagAraTopKomdov: TStringField
  513.       FieldName = 'Komdov'
  514.       Size = 3
  515.     end
  516.     object HakDagAraTopMagaza: TStringField
  517.       FieldName = 'Magaza'
  518.       Size = 6
  519.     end
  520.   end
  521.   object HakDagAraTopDS: TDataSource
  522.     DataSet = HakDagAraTop
  523.     Left = 825
  524.     Top = 127
  525.   end
  526.   object ShopTopPax: TMSQuery
  527.     Connection = mDM.MSConnection
  528.     SQL.Strings = (
  529.       
  530.         'Select Tur,Tarih,Bolge,Operator,MusTipi,Sum(Yet) As TurYet,Sum(C' +
  531.         'oc) As TurCoc,Sum(Beb) As TurBeb   From ShpBas'
  532.       'Group By Tur,Tarih,Bolge,Operator,MusTipi')
  533.     Left = 745
  534.     Top = 52
  535.     object ShopTopPaxTur: TStringField
  536.       FieldName = 'Tur'
  537.       Required = True
  538.       Size = 6
  539.     end
  540.     object ShopTopPaxTarih: TDateTimeField
  541.       FieldName = 'Tarih'
  542.       Required = True
  543.       DisplayFormat = 'dd/mm/yy'
  544.       EditMask = '99/99/99!'
  545.     end
  546.     object ShopTopPaxBolge: TStringField
  547.       FieldName = 'Bolge'
  548.       Required = True
  549.       Size = 3
  550.     end
  551.     object ShopTopPaxOperator: TStringField
  552.       FieldName = 'Operator'
  553.       Required = True
  554.       Size = 6
  555.     end
  556.     object ShopTopPaxMusTipi: TStringField
  557.       FieldName = 'MusTipi'
  558.       Required = True
  559.       Size = 6
  560.     end
  561.     object ShopTopPaxTurYet: TIntegerField
  562.       FieldName = 'TurYet'
  563.       DisplayFormat = '#,##0.00;;'#39#39
  564.       EditFormat = '#,###'
  565.     end
  566.     object ShopTopPaxTurCoc: TIntegerField
  567.       FieldName = 'TurCoc'
  568.       DisplayFormat = '#,##0.00;;'#39#39
  569.       EditFormat = '#,###'
  570.     end
  571.     object ShopTopPaxTurBeb: TIntegerField
  572.       FieldName = 'TurBeb'
  573.       DisplayFormat = '#,##0.00;;'#39#39
  574.       EditFormat = '#,###'
  575.     end
  576.   end
  577.   object ShopTopPaxDS: TDataSource
  578.     DataSet = ShopTopPax
  579.     Left = 745
  580.     Top = 6
  581.   end
  582.   object TurOp: TMSQuery
  583.     Connection = mDM.MSConnection
  584.     SQL.Strings = (
  585.       'Select Kodu,Adi From TurOp with (NOLOCK)')
  586.     Left = 187
  587.     Top = 128
  588.     object TurOpKodu: TStringField
  589.       FieldName = 'Kodu'
  590.       Required = True
  591.       Size = 6
  592.     end
  593.     object TurOpAdi: TStringField
  594.       FieldName = 'Adi'
  595.       Size = 25
  596.     end
  597.   end
  598.   object ShopMusTip: TMSQuery
  599.     Connection = mDM.MSConnection
  600.     SQL.Strings = (
  601.       'Select * From ShopMusTip with (NOLOCK)')
  602.     Left = 241
  603.     Top = 176
  604.     object ShopMusTipKodu: TStringField
  605.       FieldName = 'Kodu'
  606.       Required = True
  607.       Size = 6
  608.     end
  609.     object ShopMusTipTanimi: TStringField
  610.       FieldName = 'Tanimi'
  611.       Size = 30
  612.     end
  613.   end
  614.   object PaxDetail: TMSQuery
  615.     Connection = mDM.MSConnection
  616.     SQL.Strings = (
  617.       
  618.         'Select Sum(GirYet) As GirYet,Sum(GirCoc) As GirCoc,Sum(GirBeb) A' +
  619.         's GirBeb,Magaza  from ShpMag'
  620.       
  621.         'Where Tur=:Tur and Bolge=:Bolge and Tarih=:Tarih and Operator=:O' +
  622.         'perator and MusTipi=:MusTipi'
  623.       'Group By Tur,Tarih,Bolge,Operator,MusTipi,Magaza')
  624.     MasterSource = ShopTopPaxDS
  625.     Left = 819
  626.     Top = 52
  627.     ParamData = <
  628.       item
  629.         DataType = ftString
  630.         Name = 'Tur'
  631.         ParamType = ptInput
  632.         Size = 7
  633.       end
  634.       item
  635.         DataType = ftString
  636.         Name = 'Bolge'
  637.         ParamType = ptInput
  638.         Size = 4
  639.       end
  640.       item
  641.         DataType = ftDateTime
  642.         Name = 'Tarih'
  643.         ParamType = ptInput
  644.       end
  645.       item
  646.         DataType = ftString
  647.         Name = 'Operator'
  648.         ParamType = ptInput
  649.         Size = 7
  650.       end
  651.       item
  652.         DataType = ftString
  653.         Name = 'MusTipi'
  654.         ParamType = ptInput
  655.         Size = 7
  656.       end>
  657.     object PaxDetailGirYet: TIntegerField
  658.       FieldName = 'GirYet'
  659.       DisplayFormat = '#,##0.00;;'#39#39
  660.       EditFormat = '#,###'
  661.     end
  662.     object PaxDetailGirCoc: TIntegerField
  663.       FieldName = 'GirCoc'
  664.       DisplayFormat = '#,##0.00;;'#39#39
  665.       EditFormat = '#,###'
  666.     end
  667.     object PaxDetailGirBeb: TIntegerField
  668.       FieldName = 'GirBeb'
  669.       DisplayFormat = '#,##0.00;;'#39#39
  670.       EditFormat = '#,###'
  671.     end
  672.     object PaxDetailMagaza: TStringField
  673.       FieldName = 'Magaza'
  674.       Size = 6
  675.     end
  676.   end
  677.   object PaxDetailDS: TDataSource
  678.     DataSet = PaxDetail
  679.     Left = 819
  680.     Top = 6
  681.   end
  682.   object DovKur: TMSQuery
  683.     Connection = mDM.MSConnection
  684.     SQL.Strings = (
  685.       'Select Top 1 * From Doviz'
  686.       'Where BankNo = :BankNo and Tarih <= :Tarih'
  687.       'Order by Tarih Desc'
  688.       ''
  689.       '')
  690.     Left = 241
  691.     Top = 128
  692.     ParamData = <
  693.       item
  694.         DataType = ftUnknown
  695.         Name = 'BankNo'
  696.         ParamType = ptInput
  697.       end
  698.       item
  699.         DataType = ftUnknown
  700.         Name = 'Tarih'
  701.         ParamType = ptInput
  702.       end>
  703.     object DovKurTarih: TDateTimeField
  704.       FieldName = 'Tarih'
  705.       Required = True
  706.     end
  707.     object DovKurDA_DEM: TFloatField
  708.       FieldName = 'DA_DEM'
  709.     end
  710.     object DovKurDA_USD: TFloatField
  711.       FieldName = 'DA_USD'
  712.     end
  713.     object DovKurDA_FRF: TFloatField
  714.       FieldName = 'DA_FRF'
  715.     end
  716.     object DovKurDA_GBP: TFloatField
  717.       FieldName = 'DA_GBP'
  718.     end
  719.     object DovKurDA_BEF: TFloatField
  720.       FieldName = 'DA_BEF'
  721.     end
  722.     object DovKurDA_ATS: TFloatField
  723.       FieldName = 'DA_ATS'
  724.     end
  725.     object DovKurDA_CHF: TFloatField
  726.       FieldName = 'DA_CHF'
  727.     end
  728.     object DovKurDA_ITL: TFloatField
  729.       FieldName = 'DA_ITL'
  730.     end
  731.     object DovKurDA_NLG: TFloatField
  732.       FieldName = 'DA_NLG'
  733.     end
  734.     object DovKurDA_SEK: TFloatField
  735.       FieldName = 'DA_SEK'
  736.     end
  737.     object DovKurDA_NOK: TFloatField
  738.       FieldName = 'DA_NOK'
  739.     end
  740.     object DovKurDA_AUD: TFloatField
  741.       FieldName = 'DA_AUD'
  742.     end
  743.     object DovKurDA_CAD: TFloatField
  744.       FieldName = 'DA_CAD'
  745.     end
  746.     object DovKurDA_DKK: TFloatField
  747.       FieldName = 'DA_DKK'
  748.     end
  749.     object DovKurDA_FIM: TFloatField
  750.       FieldName = 'DA_FIM'
  751.     end
  752.     object DovKurDA_JPY: TFloatField
  753.       FieldName = 'DA_JPY'
  754.     end
  755.     object DovKurDA_SAR: TFloatField
  756.       FieldName = 'DA_SAR'
  757.     end
  758.     object DovKurDA_ESP: TFloatField
  759.       FieldName = 'DA_ESP'
  760.     end
  761.     object DovKurDA_EUR: TFloatField
  762.       FieldName = 'DA_EUR'
  763.     end
  764.     object DovKurDS_DEM: TFloatField
  765.       FieldName = 'DS_DEM'
  766.     end
  767.     object DovKurDS_USD: TFloatField
  768.       FieldName = 'DS_USD'
  769.     end
  770.     object DovKurDS_FRF: TFloatField
  771.       FieldName = 'DS_FRF'
  772.     end
  773.     object DovKurDS_GBP: TFloatField
  774.       FieldName = 'DS_GBP'
  775.     end
  776.     object DovKurDS_BEF: TFloatField
  777.       FieldName = 'DS_BEF'
  778.     end
  779.     object DovKurDS_ATS: TFloatField
  780.       FieldName = 'DS_ATS'
  781.     end
  782.     object DovKurDS_CHF: TFloatField
  783.       FieldName = 'DS_CHF'
  784.     end
  785.     object DovKurDS_ITL: TFloatField
  786.       FieldName = 'DS_ITL'
  787.     end
  788.     object DovKurDS_NLG: TFloatField
  789.       FieldName = 'DS_NLG'
  790.     end
  791.     object DovKurDS_SEK: TFloatField
  792.       FieldName = 'DS_SEK'
  793.     end
  794.     object DovKurDS_NOK: TFloatField
  795.       FieldName = 'DS_NOK'
  796.     end
  797.     object DovKurDS_AUD: TFloatField
  798.       FieldName = 'DS_AUD'
  799.     end
  800.     object DovKurDS_CAD: TFloatField
  801.       FieldName = 'DS_CAD'
  802.     end
  803.     object DovKurDS_DKK: TFloatField
  804.       FieldName = 'DS_DKK'
  805.     end
  806.     object DovKurDS_FIM: TFloatField
  807.       FieldName = 'DS_FIM'
  808.     end
  809.     object DovKurDS_JPY: TFloatField
  810.       FieldName = 'DS_JPY'
  811.     end
  812.     object DovKurDS_SAR: TFloatField
  813.       FieldName = 'DS_SAR'
  814.     end
  815.     object DovKurDS_ESP: TFloatField
  816.       FieldName = 'DS_ESP'
  817.     end
  818.     object DovKurDS_EUR: TFloatField
  819.       FieldName = 'DS_EUR'
  820.     end
  821.     object DovKurEA_DEM: TFloatField
  822.       FieldName = 'EA_DEM'
  823.     end
  824.     object DovKurEA_USD: TFloatField
  825.       FieldName = 'EA_USD'
  826.     end
  827.     object DovKurEA_FRF: TFloatField
  828.       FieldName = 'EA_FRF'
  829.     end
  830.     object DovKurEA_GBP: TFloatField
  831.       FieldName = 'EA_GBP'
  832.     end
  833.     object DovKurEA_BEF: TFloatField
  834.       FieldName = 'EA_BEF'
  835.     end
  836.     object DovKurEA_ATS: TFloatField
  837.       FieldName = 'EA_ATS'
  838.     end
  839.     object DovKurEA_CHF: TFloatField
  840.       FieldName = 'EA_CHF'
  841.     end
  842.     object DovKurEA_ITL: TFloatField
  843.       FieldName = 'EA_ITL'
  844.     end
  845.     object DovKurEA_NLG: TFloatField
  846.       FieldName = 'EA_NLG'
  847.     end
  848.     object DovKurEA_SEK: TFloatField
  849.       FieldName = 'EA_SEK'
  850.     end
  851.     object DovKurEA_NOK: TFloatField
  852.       FieldName = 'EA_NOK'
  853.     end
  854.     object DovKurEA_AUD: TFloatField
  855.       FieldName = 'EA_AUD'
  856.     end
  857.     object DovKurEA_CAD: TFloatField
  858.       FieldName = 'EA_CAD'
  859.     end
  860.     object DovKurEA_DKK: TFloatField
  861.       FieldName = 'EA_DKK'
  862.     end
  863.     object DovKurEA_FIM: TFloatField
  864.       FieldName = 'EA_FIM'
  865.     end
  866.     object DovKurEA_JPY: TFloatField
  867.       FieldName = 'EA_JPY'
  868.     end
  869.     object DovKurEA_SAR: TFloatField
  870.       FieldName = 'EA_SAR'
  871.     end
  872.     object DovKurEA_ESP: TFloatField
  873.       FieldName = 'EA_ESP'
  874.     end
  875.     object DovKurEA_EUR: TFloatField
  876.       FieldName = 'EA_EUR'
  877.     end
  878.     object DovKurES_DEM: TFloatField
  879.       FieldName = 'ES_DEM'
  880.     end
  881.     object DovKurES_USD: TFloatField
  882.       FieldName = 'ES_USD'
  883.     end
  884.     object DovKurES_FRF: TFloatField
  885.       FieldName = 'ES_FRF'
  886.     end
  887.     object DovKurES_GBP: TFloatField
  888.       FieldName = 'ES_GBP'
  889.     end
  890.     object DovKurES_BEF: TFloatField
  891.       FieldName = 'ES_BEF'
  892.     end
  893.     object DovKurES_ATS: TFloatField
  894.       FieldName = 'ES_ATS'
  895.     end
  896.     object DovKurES_CHF: TFloatField
  897.       FieldName = 'ES_CHF'
  898.     end
  899.     object DovKurES_ITL: TFloatField
  900.       FieldName = 'ES_ITL'
  901.     end
  902.     object DovKurES_NLG: TFloatField
  903.       FieldName = 'ES_NLG'
  904.     end
  905.     object DovKurES_SEK: TFloatField
  906.       FieldName = 'ES_SEK'
  907.     end
  908.     object DovKurES_NOK: TFloatField
  909.       FieldName = 'ES_NOK'
  910.     end
  911.     object DovKurES_AUD: TFloatField
  912.       FieldName = 'ES_AUD'
  913.     end
  914.     object DovKurES_CAD: TFloatField
  915.       FieldName = 'ES_CAD'
  916.     end
  917.     object DovKurES_DKK: TFloatField
  918.       FieldName = 'ES_DKK'
  919.     end
  920.     object DovKurES_FIM: TFloatField
  921.       FieldName = 'ES_FIM'
  922.     end
  923.     object DovKurES_JPY: TFloatField
  924.       FieldName = 'ES_JPY'
  925.     end
  926.     object DovKurES_SAR: TFloatField
  927.       FieldName = 'ES_SAR'
  928.     end
  929.     object DovKurES_ESP: TFloatField
  930.       FieldName = 'ES_ESP'
  931.     end
  932.     object DovKurES_EUR: TFloatField
  933.       FieldName = 'ES_EUR'
  934.     end
  935.     object DovKurBankNo: TSmallintField
  936.       FieldName = 'BankNo'
  937.       Required = True
  938.     end
  939.   end
  940.   object MagTopOrtMas: TMSQuery
  941.     Connection = mDM.MSConnection
  942.     SQL.Strings = (
  943.       'Select ToplamYet = Sum(GirYet) - Sum(GirMuk),Magaza From ShpMag'
  944.       'Group by Magaza'
  945.       'Order By Magaza')
  946.     Left = 354
  947.     Top = 52
  948.     object MagTopOrtMasMagaza: TStringField
  949.       FieldName = 'Magaza'
  950.       Size = 6
  951.     end
  952.     object MagTopOrtMasMagAdi: TStringField
  953.       FieldKind = fkLookup
  954.       FieldName = 'MagAdi'
  955.       LookupDataSet = Magaza
  956.       LookupKeyFields = 'Kodu'
  957.       LookupResultField = 'Adi'
  958.       KeyFields = 'Magaza'
  959.       Lookup = True
  960.     end
  961.     object MagTopOrtMasToplamYet: TIntegerField
  962.       FieldName = 'ToplamYet'
  963.     end
  964.   end
  965.   object MagTopOrtMasDS: TDataSource
  966.     DataSet = MagTopOrtMas
  967.     Left = 353
  968.     Top = 6
  969.   end
  970.   object OtelTopSat: TMSQuery
  971.     Connection = mDM.MSConnection
  972.     SQL.Strings = (
  973.       'Select Otel'
  974.       '       ,Case When 1=1 THEN  BilSatReh Else Rehber End SecRehber'
  975.       
  976.         '       ,Sum(IsNull(CiroTut,0)) As ToplamCiro,Sum(IsNull(Ciroiade' +
  977.         'Tut,0)) As ToplamIade'
  978.       
  979.         '       ,Sum(IsNull(KomTut,0)) As ToplamKomisyon ,Sum(IsNull(ShpP' +
  980.         'ax,0)) As ToplamPax,CiroDov '
  981.       
  982.         '       ,OtelBolge = (Select Bolge From Otel Where Otel.Otel=ShpS' +
  983.         'at.Otel)'
  984.       
  985.         '       ,OtelBolgeAdi = (Select ADI From Bolge where Bolge.KOD=(S' +
  986.         'elect Bolge From Otel Where Otel.Otel=ShpSat.Otel))'
  987.       'From Shpsat'
  988.       '       Where not Otel is null and not CiroDov is null'
  989.       
  990.         'Group by Otel,CiroDov,Case When 1=1 THEN  BilSatReh Else Rehber ' +
  991.         'End')
  992.     Left = 344
  993.     Top = 175
  994.     object OtelTopSatotel: TStringField
  995.       FieldName = 'otel'
  996.       Origin = 'Shpsat.Otel'
  997.       Size = 6
  998.     end
  999.     object OtelTopSatToplamCiro: TFloatField
  1000.       FieldName = 'ToplamCiro'
  1001.       Origin = '.ToplamCiro'
  1002.       DisplayFormat = '#,##0.00;;'#39#39
  1003.       EditFormat = '#,###.##'
  1004.     end
  1005.     object OtelTopSatToplamIade: TFloatField
  1006.       FieldName = 'ToplamIade'
  1007.       Origin = '.ToplamIade'
  1008.       DisplayFormat = '#,##0.00;;'#39#39
  1009.       EditFormat = '#,###.##'
  1010.     end
  1011.     object OtelTopSatToplamKomisyon: TFloatField
  1012.       FieldName = 'ToplamKomisyon'
  1013.       Origin = '.ToplamKomisyon'
  1014.       DisplayFormat = '#,##0.00;;'#39#39
  1015.       EditFormat = '#,###.##'
  1016.     end
  1017.     object OtelTopSatOtelAdi: TStringField
  1018.       DisplayWidth = 35
  1019.       FieldKind = fkLookup
  1020.       FieldName = 'OtelAdi'
  1021.       LookupDataSet = Otel
  1022.       LookupKeyFields = 'Otel'
  1023.       LookupResultField = 'Adi'
  1024.       KeyFields = 'otel'
  1025.       Lookup = True
  1026.     end
  1027.     object OtelTopSatCiroDov: TStringField
  1028.       FieldName = 'CiroDov'
  1029.       Origin = 'Shpsat.CiroDov'
  1030.       Size = 3
  1031.     end
  1032.     object OtelTopSatToplamPax: TIntegerField
  1033.       FieldName = 'ToplamPax'
  1034.       Origin = '.ToplamPax'
  1035.     end
  1036.     object OtelTopSatOtelBolge: TStringField
  1037.       FieldName = 'OtelBolge'
  1038.       ReadOnly = True
  1039.       Size = 3
  1040.     end
  1041.     object OtelTopSatOtelBolgeAdi: TStringField
  1042.       FieldName = 'OtelBolgeAdi'
  1043.       ReadOnly = True
  1044.       Size = 30
  1045.     end
  1046.     object OtelTopSatSecRehber: TStringField
  1047.       FieldName = 'SecRehber'
  1048.       ReadOnly = True
  1049.       Size = 6
  1050.     end
  1051.   end
  1052.   object OtelTopSatDS: TDataSource
  1053.     DataSet = OtelTopSat
  1054.     Left = 346
  1055.     Top = 128
  1056.   end
  1057.   object Otel: TMSQuery
  1058.     Connection = mDM.MSConnection
  1059.     SQL.Strings = (
  1060.       'Select Otel,Adi From Otel'
  1061.       '')
  1062.     Left = 291
  1063.     Top = 176
  1064.     object OtelOtel: TStringField
  1065.       FieldName = 'Otel'
  1066.       Origin = 'Otel.Otel'
  1067.       Required = True
  1068.       Size = 6
  1069.     end
  1070.     object OtelAdi: TStringField
  1071.       FieldName = 'Adi'
  1072.       Origin = 'Otel.Adi'
  1073.       Size = 30
  1074.     end
  1075.   end
  1076.   object OtelsizTopSat: TMSQuery
  1077.     Connection = mDM.MSConnection
  1078.     SQL.Strings = (
  1079.       
  1080.         'Select Otel, Sum(IsNull(CiroTut,0)) As ToplamCiro,Sum(IsNull(Cir' +
  1081.         'oiadeTut,0)) As ToplamIade,'
  1082.       
  1083.         '       Sum(IsNull(KomTut,0)) As ToplamKomisyon ,Sum(IsNull(ShpPa' +
  1084.         'x,0)) As ToplamPax,CiroDov from Shpsat'
  1085.       '       Where  Otel is null and not CiroDov is null'
  1086.       'Group by Otel,CiroDov')
  1087.     Left = 422
  1088.     Top = 176
  1089.     object StringField1: TStringField
  1090.       FieldName = 'otel'
  1091.       Size = 6
  1092.     end
  1093.     object FloatField1: TFloatField
  1094.       FieldName = 'ToplamCiro'
  1095.       DisplayFormat = '#,##0.00;;'#39#39
  1096.       EditFormat = '#,###.##'
  1097.     end
  1098.     object FloatField2: TFloatField
  1099.       FieldName = 'ToplamIade'
  1100.       DisplayFormat = '#,##0.00;;'#39#39
  1101.       EditFormat = '#,###.##'
  1102.     end
  1103.     object FloatField3: TFloatField
  1104.       FieldName = 'ToplamKomisyon'
  1105.       DisplayFormat = '#,##0.00;;'#39#39
  1106.       EditFormat = '#,###.##'
  1107.     end
  1108.     object StringField3: TStringField
  1109.       DisplayWidth = 35
  1110.       FieldKind = fkLookup
  1111.       FieldName = 'OtelAdi'
  1112.       LookupDataSet = Otel
  1113.       LookupKeyFields = 'Otel'
  1114.       LookupResultField = 'Adi'
  1115.       KeyFields = 'otel'
  1116.       Lookup = True
  1117.     end
  1118.     object StringField4: TStringField
  1119.       FieldName = 'CiroDov'
  1120.       Size = 3
  1121.     end
  1122.     object OtelsizTopSatToplamPax: TIntegerField
  1123.       FieldName = 'ToplamPax'
  1124.     end
  1125.   end
  1126.   object OtelsizTopSatDS: TDataSource
  1127.     DataSet = OtelsizTopSat
  1128.     Left = 420
  1129.     Top = 128
  1130.   end
  1131.   object OtelTopsatListeAltiTop: TMSQuery
  1132.     Connection = mDM.MSConnection
  1133.     SQL.Strings = (
  1134.       
  1135.         'Select Sum(IsNull(CiroTut,0)) As ToplamCiro,Sum(IsNull(CiroiadeT' +
  1136.         'ut,0)) As ToplamIade,'
  1137.       
  1138.         '       Sum(IsNull(KomTut,0)) As ToplamKomisyon ,Sum(IsNull(ShpPa' +
  1139.         'x,0)) As ToplamPax,CiroDov from Shpsat'
  1140.       '       Where  not Otel is null and not CiroDov is null'
  1141.       'Group by CiroDov')
  1142.     Left = 528
  1143.     Top = 176
  1144.     object FloatField4: TFloatField
  1145.       FieldName = 'ToplamCiro'
  1146.       Origin = '.ToplamCiro'
  1147.       DisplayFormat = '#,##0.00;;'#39#39
  1148.       EditFormat = '#,###.##'
  1149.     end
  1150.     object FloatField5: TFloatField
  1151.       FieldName = 'ToplamIade'
  1152.       Origin = '.ToplamIade'
  1153.       DisplayFormat = '#,##0.00;;'#39#39
  1154.       EditFormat = '#,###.##'
  1155.     end
  1156.     object FloatField6: TFloatField
  1157.       FieldName = 'ToplamKomisyon'
  1158.       Origin = '.ToplamKomisyon'
  1159.       DisplayFormat = '#,##0.00;;'#39#39
  1160.       EditFormat = '#,###.##'
  1161.     end
  1162.     object StringField7: TStringField
  1163.       FieldName = 'CiroDov'
  1164.       Origin = 'Shpsat.CiroDov'
  1165.       Size = 3
  1166.     end
  1167.     object OtelTopsatListeAltiTopToplamPax: TIntegerField
  1168.       FieldName = 'ToplamPax'
  1169.       Origin = '.ToplamPax'
  1170.     end
  1171.   end
  1172.   object OtelTopsatListeAltiTopDS: TDataSource
  1173.     DataSet = OtelTopsatListeAltiTop
  1174.     Left = 526
  1175.     Top = 128
  1176.   end
  1177.   object ShopMizan: TMSQuery
  1178.     Connection = mDM.MSConnection
  1179.     SQL.Strings = (
  1180.       'select Mustipi,Magaza,Bolge,'
  1181.       ' Sum(CiroTut) as ToplamCiro,CiroDov,'#9
  1182.       
  1183.         ' Sum(CiroiadeTut) as Toplamiade,NetCiro=(Sum(CiroTut)-Sum(Ciroia' +
  1184.         'deTut)),'
  1185.       ' Sum(KrdTut) as ToplamKredili,KrdDov,'
  1186.       ' Sum(KomTut) as ToplamKomisyon,KomDov'
  1187.       'from ShpSat '
  1188.       'Where not Tur is null '
  1189.       'Group by Mustipi,Magaza,Bolge,ciroDov,KrdDov,KomDov'
  1190.       'Order By Mustipi,Magaza,Bolge')
  1191.     Left = 744
  1192.     Top = 247
  1193.     object ShopMizanMustipi: TStringField
  1194.       FieldName = 'Mustipi'
  1195.       Origin = '.Mustipi'
  1196.       Size = 6
  1197.     end
  1198.     object ShopMizanMagaza: TStringField
  1199.       FieldName = 'Magaza'
  1200.       Origin = '.Magaza'
  1201.       Size = 6
  1202.     end
  1203.     object ShopMizanBolge: TStringField
  1204.       FieldName = 'Bolge'
  1205.       Origin = '.Bolge'
  1206.       Size = 3
  1207.     end
  1208.     object ShopMizanToplamCiro: TFloatField
  1209.       FieldName = 'ToplamCiro'
  1210.       Origin = '.'
  1211.       ReadOnly = True
  1212.     end
  1213.     object ShopMizanCiroDov: TStringField
  1214.       FieldName = 'CiroDov'
  1215.       Origin = '.CiroDov'
  1216.       Size = 3
  1217.     end
  1218.     object ShopMizanToplamiade: TFloatField
  1219.       FieldName = 'Toplamiade'
  1220.       Origin = '.'
  1221.       ReadOnly = True
  1222.     end
  1223.     object ShopMizanNetCiro: TFloatField
  1224.       FieldName = 'NetCiro'
  1225.       Origin = '.'
  1226.       ReadOnly = True
  1227.     end
  1228.     object ShopMizanToplamKredili: TFloatField
  1229.       FieldName = 'ToplamKredili'
  1230.       Origin = '.'
  1231.       ReadOnly = True
  1232.     end
  1233.     object ShopMizanKrdDov: TStringField
  1234.       FieldName = 'KrdDov'
  1235.       Origin = '.KrdDov'
  1236.       Size = 3
  1237.     end
  1238.     object ShopMizanToplamKomisyon: TFloatField
  1239.       FieldName = 'ToplamKomisyon'
  1240.       Origin = '.'
  1241.       ReadOnly = True
  1242.     end
  1243.     object ShopMizanKomDov: TStringField
  1244.       FieldName = 'KomDov'
  1245.       Origin = '.KomDov'
  1246.       Size = 3
  1247.     end
  1248.     object ShopMizanMagazaLoop: TStringField
  1249.       FieldKind = fkLookup
  1250.       FieldName = 'MagazaLoop'
  1251.       LookupDataSet = Magaza
  1252.       LookupKeyFields = 'Kodu'
  1253.       LookupResultField = 'Adi'
  1254.       KeyFields = 'Magaza'
  1255.       Size = 30
  1256.       Lookup = True
  1257.     end
  1258.   end
  1259.   object ShopMizanDS: TDataSource
  1260.     DataSet = ShopMizan
  1261.     Left = 743
  1262.     Top = 203
  1263.   end
  1264.   object MagGrp: TMSQuery
  1265.     Connection = mDM.MSConnection
  1266.     SQL.Strings = (
  1267.       'Select * from MagazaGrp')
  1268.     Left = 323
  1269.     Top = 232
  1270.     object StringField5: TStringField
  1271.       FieldName = 'Adi'
  1272.       Required = True
  1273.       Size = 6
  1274.     end
  1275.     object StringField6: TStringField
  1276.       FieldName = 'Magaza'
  1277.       Required = True
  1278.       Size = 6
  1279.     end
  1280.   end
  1281.   object BolgeGrp: TMSQuery
  1282.     Connection = mDM.MSConnection
  1283.     SQL.Strings = (
  1284.       'Select * from BolgeGrp')
  1285.     Left = 387
  1286.     Top = 232
  1287.     object BolgeGrpAdi: TStringField
  1288.       FieldName = 'Adi'
  1289.       Size = 6
  1290.     end
  1291.     object BolgeGrpBolge: TStringField
  1292.       FieldName = 'Bolge'
  1293.       Size = 6
  1294.     end
  1295.   end
  1296.   object TuropTopSat: TMSQuery
  1297.     Connection = mDM.MSConnection
  1298.     SQL.Strings = (
  1299.       
  1300.         'Select Operator, Sum(IsNull(CiroTut,0)) As ToplamCiro,Sum(IsNull' +
  1301.         '(CiroiadeTut,0)) As ToplamIade,'
  1302.       '       Sum(IsNull(KomTut,0)) As ToplamKomisyon ,'
  1303.       
  1304.         '       ToplamPax = (select ToplamPax=(Yet+Coc+Beb) from shpbas w' +
  1305.         'here Tur=S.Tur and Tarih=S.Tarih and Operator=S.Operator)'
  1306.       '       ,CiroDov from Shpsat S'
  1307.       '        Where IsNull(Operator,'#39#39')<>'#39#39' and IsNull(CiroDov,'#39#39')<>'#39#39
  1308.       'Group by S.Operator,S.CiroDov,S.Tur,S.Tarih')
  1309.     Left = 261
  1310.     Top = 52
  1311.     object TuropTopSatOperator: TStringField
  1312.       FieldName = 'Operator'
  1313.       Size = 6
  1314.     end
  1315.     object TuropTopSatToplamCiro: TFloatField
  1316.       FieldName = 'ToplamCiro'
  1317.       ReadOnly = True
  1318.     end
  1319.     object TuropTopSatToplamIade: TFloatField
  1320.       FieldName = 'ToplamIade'
  1321.       ReadOnly = True
  1322.     end
  1323.     object TuropTopSatToplamKomisyon: TFloatField
  1324.       FieldName = 'ToplamKomisyon'
  1325.       ReadOnly = True
  1326.     end
  1327.     object TuropTopSatToplamPax: TSmallintField
  1328.       FieldName = 'ToplamPax'
  1329.       ReadOnly = True
  1330.     end
  1331.     object TuropTopSatCiroDov: TStringField
  1332.       FieldName = 'CiroDov'
  1333.       Size = 3
  1334.     end
  1335.   end
  1336.   object TuropTopSatDS: TDataSource
  1337.     DataSet = TuropTopSat
  1338.     Left = 261
  1339.     Top = 6
  1340.   end
  1341.   object TurOpGrp: TMSQuery
  1342.     Connection = mDM.MSConnection
  1343.     SQL.Strings = (
  1344.       'Select distinct adi From TurOpGrp with (NOLOCK)'
  1345.       'order by adi')
  1346.     Active = True
  1347.     Left = 133
  1348.     Top = 228
  1349.     object TurOpGrpadi: TStringField
  1350.       FieldName = 'adi'
  1351.       Origin = 'TurOpGrp.adi'
  1352.       Size = 6
  1353.     end
  1354.   end
  1355.   object MagIcmSat: TMSQuery
  1356.     Connection = mDM.MSConnection
  1357.     SQL.Strings = (
  1358.       'SELECT sum(isnull(CiroNet, 0)) CiroNetToplam'
  1359.       #9' , CiroDov,Magaza'
  1360.       
  1361.         #9' , sum(isnull(RehHakTut, 0)) + sum(isnull(BilRehHakTut, 0)) + s' +
  1362.         'um(isnull(DigerRehHakTut, 0)) + sum(isnull(ExtraHakTut, 0)) + su' +
  1363.         'm(isnull(AcentaHakTut, 0)) as HakedisTut'
  1364.       'FROM'
  1365.       #9'(SELECT '#39'S'#39' Tipi,m.Magaza'
  1366.       #9#9'  , isnull(s.CiroTut, 0) AS CiroNet'
  1367.       #9#9'  , CiroDov = (CASE'
  1368.       #9#9#9#9#9#9'   WHEN isnull(s.CiroDov, '#39#39') = '#39#39' THEN'
  1369.       #9#9#9#9#9#9#9'   KrdDov'
  1370.       #9#9#9#9#9#9'   ELSE'
  1371.       #9#9#9#9#9#9#9'   s.CiroDov'
  1372.       #9#9#9#9#9'   END)'
  1373.       #9#9'  , RehHakTut = (SELECT sum(isnull(k.HakKomTut, 0))'
  1374.       #9#9#9#9#9#9' FROM'
  1375.       #9#9#9#9#9#9#9' ShpSatKom K, ShopKomAl a'
  1376.       #9#9#9#9#9#9' WHERE'
  1377.       #9#9#9#9#9#9#9' s.Tur = K.Tur'
  1378.       #9#9#9#9#9#9#9' AND s.Tarih = K.Tarih'
  1379.       #9#9#9#9#9#9#9' AND s.Bolge = K.Bolge'
  1380.       #9#9#9#9#9#9#9' AND s.Operator = K.Operator'
  1381.       #9#9#9#9#9#9#9' AND s.MusTipi = K.MusTipi'
  1382.       #9#9#9#9#9#9#9' AND S.Sira = K.ShpSira'
  1383.       #9#9#9#9#9#9#9' AND k.KomAlan = a.Kodu'
  1384.       
  1385.         #9#9#9#9#9#9#9' AND A.RehTip = '#39'TUR'#39') - isnull((SELECT isnull(sum(isnull' +
  1386.         '(k.HakKomTut, 0)), 0)'
  1387.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' FROM'
  1388.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' ShpSatKrdKom K, ShopKomAl a'
  1389.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' WHERE'
  1390.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' s.Tur = K.Tur'
  1391.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND s.Tarih = K.Tarih'
  1392.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND s.Bolge = K.Bolge'
  1393.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND s.Operator = K.Operator'
  1394.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND s.MusTipi = K.MusTipi'
  1395.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND S.Sira = K.ShpSira'
  1396.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND k.KomAlan = a.Kodu'
  1397.       
  1398.         #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND A.RehTip = '#39'TUR'#39'), 0) + isnull((SELECT isnu' +
  1399.         'll(sum(isnull(k.HakKomTut, 0)), 0)'
  1400.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' FROM'
  1401.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' ShpIadKom K, ShopKomAl a'
  1402.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' WHERE'
  1403.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' s.Tur = K.Tur'
  1404.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND s.Tarih = K.Tarih'
  1405.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND s.Bolge = K.Bolge'
  1406.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND s.Operator = K.Operator'
  1407.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND s.MusTipi = K.MusTipi'
  1408.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND S.Sira = K.ShpSira'
  1409.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND k.KomAlan = a.Kodu'
  1410.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND A.RehTip = '#39'TUR'#39'), 0)'
  1411.       #9#9'  , BilRehHakTut = (SELECT sum(isnull(k.HakKomTut, 0))'
  1412.       #9#9#9#9#9#9#9'FROM'
  1413.       #9#9#9#9#9#9#9#9'ShpSatKom K, ShopKomAl a'
  1414.       #9#9#9#9#9#9#9'WHERE'
  1415.       #9#9#9#9#9#9#9#9's.Tur = K.Tur'
  1416.       #9#9#9#9#9#9#9#9'AND s.Tarih = K.Tarih'
  1417.       #9#9#9#9#9#9#9#9'AND s.Bolge = K.Bolge'
  1418.       #9#9#9#9#9#9#9#9'AND s.Operator = K.Operator'
  1419.       #9#9#9#9#9#9#9#9'AND s.MusTipi = K.MusTipi'
  1420.       #9#9#9#9#9#9#9#9'AND S.Sira = K.ShpSira'
  1421.       #9#9#9#9#9#9#9#9'AND k.KomAlan = a.Kodu'
  1422.       
  1423.         #9#9#9#9#9#9#9#9'AND A.RehTip = '#39'OTEL'#39') - isnull((SELECT isnull(sum(isnul' +
  1424.         'l(k.HakKomTut, 0)), 0)'
  1425.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' FROM'
  1426.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' ShpSatKrdKom K, ShopKomAl a'
  1427.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' WHERE'
  1428.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' s.Tur = K.Tur'
  1429.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND s.Tarih = K.Tarih'
  1430.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND s.Bolge = K.Bolge'
  1431.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND s.Operator = K.Operator'
  1432.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND s.MusTipi = K.MusTipi'
  1433.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND S.Sira = K.ShpSira'
  1434.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND k.KomAlan = a.Kodu'
  1435.       
  1436.         #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND A.RehTip = '#39'OTEL'#39'), 0) + isnull((SELECT is' +
  1437.         'null(sum(isnull(k.HakKomTut, 0)), 0)'
  1438.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  FROM'
  1439.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  ShpIadKom K, ShopKomAl a'
  1440.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  WHERE'
  1441.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  s.Tur = K.Tur'
  1442.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND s.Tarih = K.Tarih'
  1443.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND s.Bolge = K.Bolge'
  1444.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND s.Operator = K.Operator'
  1445.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND s.MusTipi = K.MusTipi'
  1446.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND S.Sira = K.ShpSira'
  1447.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND k.KomAlan = a.Kodu'
  1448.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND A.RehTip = '#39'OTEL'#39'), 0)'
  1449.       #9#9'  , DigerRehHakTut = (SELECT sum(isnull(k.HakKomTut, 0))'
  1450.       #9#9#9#9#9#9#9'  FROM'
  1451.       #9#9#9#9#9#9#9#9'  ShpSatKom K, ShopKomAl a'
  1452.       #9#9#9#9#9#9#9'  WHERE'
  1453.       #9#9#9#9#9#9#9#9'  s.Tur = K.Tur'
  1454.       #9#9#9#9#9#9#9#9'  AND s.Tarih = K.Tarih'
  1455.       #9#9#9#9#9#9#9#9'  AND s.Bolge = K.Bolge'
  1456.       #9#9#9#9#9#9#9#9'  AND s.Operator = K.Operator'
  1457.       #9#9#9#9#9#9#9#9'  AND s.MusTipi = K.MusTipi'
  1458.       #9#9#9#9#9#9#9#9'  AND S.Sira = K.ShpSira'
  1459.       #9#9#9#9#9#9#9#9'  AND k.KomAlan = a.Kodu'
  1460.       
  1461.         #9#9#9#9#9#9#9#9'  AND A.RehTip = '#39'DIGER'#39') - isnull((SELECT isnull(sum(is' +
  1462.         'null(k.HakKomTut, 0)), 0)'
  1463.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'FROM'
  1464.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'ShpSatKrdKom K, ShopKomAl a'
  1465.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'WHERE'
  1466.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9's.Tur = K.Tur'
  1467.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'AND s.Tarih = K.Tarih'
  1468.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'AND s.Bolge = K.Bolge'
  1469.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'AND s.Operator = K.Operator'
  1470.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'AND s.MusTipi = K.MusTipi'
  1471.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'AND S.Sira = K.ShpSira'
  1472.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'AND k.KomAlan = a.Kodu'
  1473.       
  1474.         #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'AND A.RehTip = '#39'DIGER'#39'), 0) + isnull((SELECT i' +
  1475.         'snull(sum(isnull(k.HakKomTut, 0)), 0)'
  1476.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  FROM'
  1477.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  ShpIadKom K, ShopKomAl a'
  1478.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  WHERE'
  1479.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  s.Tur = K.Tur'
  1480.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND s.Tarih = K.Tarih'
  1481.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND s.Bolge = K.Bolge'
  1482.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND s.Operator = K.Operator'
  1483.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND s.MusTipi = K.MusTipi'
  1484.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND S.Sira = K.ShpSira'
  1485.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND k.KomAlan = a.Kodu'
  1486.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND A.RehTip = '#39'DIGER'#39'), 0)'
  1487.       #9#9'  , ExtraHakTut = (SELECT sum(isnull(k.HakKomTut, 0))'
  1488.       #9#9#9#9#9#9'   FROM'
  1489.       #9#9#9#9#9#9#9'   ShpSatKom K, ShopKomAl a'
  1490.       #9#9#9#9#9#9'   WHERE'
  1491.       #9#9#9#9#9#9#9'   s.Tur = K.Tur'
  1492.       #9#9#9#9#9#9#9'   AND s.Tarih = K.Tarih'
  1493.       #9#9#9#9#9#9#9'   AND s.Bolge = K.Bolge'
  1494.       #9#9#9#9#9#9#9'   AND s.Operator = K.Operator'
  1495.       #9#9#9#9#9#9#9'   AND s.MusTipi = K.MusTipi'
  1496.       #9#9#9#9#9#9#9'   AND S.Sira = K.ShpSira'
  1497.       #9#9#9#9#9#9#9'   AND k.KomAlan = a.Kodu'
  1498.       #9#9#9#9#9#9#9'   AND (isnull(Extra, '#39'N'#39') = '#39'Y'#39
  1499.       
  1500.         #9#9#9#9#9#9#9'   OR isnull(Extra, '#39'N'#39') = '#39'y'#39')) - isnull((SELECT isnull(' +
  1501.         'sum(isnull(k.HakKomTut, 0)), 0)'
  1502.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   FROM'
  1503.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   ShpSatKrdKom K, ShopKomAl a'
  1504.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   WHERE'
  1505.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   s.Tur = K.Tur'
  1506.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   AND s.Tarih = K.Tarih'
  1507.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   AND s.Bolge = K.Bolge'
  1508.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   AND s.Operator = K.Operator'
  1509.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   AND s.MusTipi = K.MusTipi'
  1510.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   AND S.Sira = K.ShpSira'
  1511.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   AND k.KomAlan = a.Kodu'
  1512.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   AND (isnull(Extra, '#39'N'#39') = '#39'Y'#39
  1513.       
  1514.         #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   OR isnull(Extra, '#39'N'#39') = '#39'y'#39')), 0) + isnull(' +
  1515.         '(SELECT isnull(sum(isnull(k.HakKomTut, 0)), 0)'
  1516.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   FROM'
  1517.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   ShpIadKom K, ShopKomAl a'
  1518.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   WHERE'
  1519.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   s.Tur = K.Tur'
  1520.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   AND s.Tarih = K.Tarih'
  1521.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   AND s.Bolge = K.Bolge'
  1522.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   AND s.Operator = K.Operator'
  1523.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   AND s.MusTipi = K.MusTipi'
  1524.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   AND S.Sira = K.ShpSira'
  1525.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   AND k.KomAlan = a.Kodu'
  1526.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   AND (isnull(Extra, '#39'N'#39') = '#39'Y'#39
  1527.       
  1528.         #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'   OR isnull(Extra, '#39'N'#39') = '#39'y'#39')), ' +
  1529.         '0)'
  1530.       #9#9'  , AcentaHakTut = (SELECT sum(isnull(k.HakKomTut, 0))'
  1531.       #9#9#9#9#9#9#9'FROM'
  1532.       #9#9#9#9#9#9#9#9'ShpSatKom K, ShopKomAl a'
  1533.       #9#9#9#9#9#9#9'WHERE'
  1534.       #9#9#9#9#9#9#9#9's.Tur = K.Tur'
  1535.       #9#9#9#9#9#9#9#9'AND s.Tarih = K.Tarih'
  1536.       #9#9#9#9#9#9#9#9'AND s.Bolge = K.Bolge'
  1537.       #9#9#9#9#9#9#9#9'AND s.Operator = K.Operator'
  1538.       #9#9#9#9#9#9#9#9'AND s.MusTipi = K.MusTipi'
  1539.       #9#9#9#9#9#9#9#9'AND S.Sira = K.ShpSira'
  1540.       #9#9#9#9#9#9#9#9'AND k.KomAlan = a.Kodu'
  1541.       #9#9#9#9#9#9#9#9'AND (NOT (isnull(Extra, '#39'N'#39') = '#39'Y'#39
  1542.       #9#9#9#9#9#9#9#9'OR isnull(Extra, '#39'N'#39') = '#39'y'#39'))'
  1543.       #9#9#9#9#9#9#9#9'AND NOT (RehTip IS NOT NULL'
  1544.       
  1545.         #9#9#9#9#9#9#9#9'AND RehTip <> '#39#39')) - isnull((SELECT isnull(sum(isnull(k.' +
  1546.         'HakKomTut, 0)), 0)'
  1547.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' FROM'
  1548.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' ShpSatKrdKom K, ShopKomAl a'
  1549.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' WHERE'
  1550.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' s.Tur = K.Tur'
  1551.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND s.Tarih = K.Tarih'
  1552.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND s.Bolge = K.Bolge'
  1553.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND s.Operator = K.Operator'
  1554.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND s.MusTipi = K.MusTipi'
  1555.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND S.Sira = K.ShpSira'
  1556.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND k.KomAlan = a.Kodu'
  1557.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND (NOT (isnull(Extra, '#39'N'#39') = '#39'Y'#39
  1558.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' OR isnull(Extra, '#39'N'#39') = '#39'y'#39'))'
  1559.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND NOT (RehTip IS NOT NULL'
  1560.       
  1561.         #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9' AND RehTip <> '#39#39')), 0) + isnull((SELECT isnull(' +
  1562.         'sum(isnull(k.HakKomTut, 0)), 0)'
  1563.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  FROM'
  1564.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  ShpIadKom K, ShopKomAl a'
  1565.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  WHERE'
  1566.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  s.Tur = K.Tur'
  1567.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND s.Tarih = K.Tarih'
  1568.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND s.Bolge = K.Bolge'
  1569.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND s.Operator = K.Operator'
  1570.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND s.MusTipi = K.MusTipi'
  1571.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND S.Sira = K.ShpSira'
  1572.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND k.KomAlan = a.Kodu'
  1573.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND (NOT (isnull(Extra, '#39'N'#39') = '#39'Y'#39
  1574.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  OR isnull(Extra, '#39'N'#39') = '#39'y'#39'))'
  1575.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND NOT (RehTip IS NOT NULL'
  1576.       #9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9'  AND RehTip <> '#39#39')), 0)'
  1577.       #9' FROM'
  1578.       #9#9' ShpMag m, ShpSat s'
  1579.       #9' WHERE'
  1580.       #9#9' m.Tur = s.Tur'
  1581.       #9#9' AND m.Magaza = '#39'029207'#39
  1582.       #9#9' AND m.Bolge = s.Bolge'
  1583.       #9#9' AND m.Tarih = s.Tarih'
  1584.       #9#9' AND m.Sira = s.MgzSira'
  1585.       #9#9' AND s.Operator = M.Operator'
  1586.       #9#9' AND s.MusTipi = M.MusTipi'
  1587.       #9#9' AND s.Tarih BETWEEN '#39'10/01/2014'#39' AND '#39'10/01/2014'#39' UNION ALL'
  1588.       #9' SELECT '#39'T'#39' Tipi,m.Magaza'
  1589.       #9#9'  , isnull(s.CiroTut, 0) AS CiroNet'
  1590.       #9#9'  , CiroDov = KrdDov'
  1591.       #9#9'  , RehHakTut = (SELECT sum(isnull(k.HakKomTut, 0))'
  1592.       #9#9#9#9#9#9' FROM'
  1593.       #9#9#9#9#9#9#9' ShpSatKrdKom K, ShopKomAl a'
  1594.       #9#9#9#9#9#9' WHERE'
  1595.       #9#9#9#9#9#9#9' s.Tur = K.Tur'
  1596.       #9#9#9#9#9#9#9' AND s.Tarih = K.Tarih'
  1597.       #9#9#9#9#9#9#9' AND s.Bolge = K.Bolge'
  1598.       #9#9#9#9#9#9#9' AND s.Operator = K.Operator'
  1599.       #9#9#9#9#9#9#9' AND s.MusTipi = K.MusTipi'
  1600.       #9#9#9#9#9#9#9' AND S.Sira = K.ShpSira'
  1601.       #9#9#9#9#9#9#9' AND k.KomAlan = a.Kodu'
  1602.       #9#9#9#9#9#9#9' AND A.RehTip = '#39'TUR'#39')'
  1603.       #9#9'  , BilRehHakTut = (SELECT sum(isnull(k.HakKomTut, 0))'
  1604.       #9#9#9#9#9#9#9'FROM'
  1605.       #9#9#9#9#9#9#9#9'ShpSatKrdKom K, ShopKomAl a'
  1606.       #9#9#9#9#9#9#9'WHERE'
  1607.       #9#9#9#9#9#9#9#9's.Tur = K.Tur'
  1608.       #9#9#9#9#9#9#9#9'AND s.Tarih = K.Tarih'
  1609.       #9#9#9#9#9#9#9#9'AND s.Bolge = K.Bolge'
  1610.       #9#9#9#9#9#9#9#9'AND s.Operator = K.Operator'
  1611.       #9#9#9#9#9#9#9#9'AND s.MusTipi = K.MusTipi'
  1612.       #9#9#9#9#9#9#9#9'AND S.Sira = K.ShpSira'
  1613.       #9#9#9#9#9#9#9#9'AND k.KomAlan = a.Kodu'
  1614.       #9#9#9#9#9#9#9#9'AND A.RehTip = '#39'OTEL'#39')'
  1615.       #9#9'  , DigerRehHakTut = (SELECT sum(isnull(k.HakKomTut, 0))'
  1616.       #9#9#9#9#9#9#9'  FROM'
  1617.       #9#9#9#9#9#9#9#9'  ShpSatKrdKom K, ShopKomAl a'
  1618.       #9#9#9#9#9#9#9'  WHERE'
  1619.       #9#9#9#9#9#9#9#9'  s.Tur = K.Tur'
  1620.       #9#9#9#9#9#9#9#9'  AND s.Tarih = K.Tarih'
  1621.       #9#9#9#9#9#9#9#9'  AND s.Bolge = K.Bolge'
  1622.       #9#9#9#9#9#9#9#9'  AND s.Operator = K.Operator'
  1623.       #9#9#9#9#9#9#9#9'  AND s.MusTipi = K.MusTipi'
  1624.       #9#9#9#9#9#9#9#9'  AND S.Sira = K.ShpSira'
  1625.       #9#9#9#9#9#9#9#9'  AND k.KomAlan = a.Kodu'
  1626.       #9#9#9#9#9#9#9#9'  AND A.RehTip = '#39'DIGER'#39')'
  1627.       #9#9'  , ExtraHakTut = (SELECT sum(isnull(k.HakKomTut, 0))'
  1628.       #9#9#9#9#9#9'   FROM'
  1629.       #9#9#9#9#9#9#9'   ShpSatKrdKom K, ShopKomAl a'
  1630.       #9#9#9#9#9#9'   WHERE'
  1631.       #9#9#9#9#9#9#9'   s.Tur = K.Tur'
  1632.       #9#9#9#9#9#9#9'   AND s.Tarih = K.Tarih'
  1633.       #9#9#9#9#9#9#9'   AND s.Bolge = K.Bolge'
  1634.       #9#9#9#9#9#9#9'   AND s.Operator = K.Operator'
  1635.       #9#9#9#9#9#9#9'   AND s.MusTipi = K.MusTipi'
  1636.       #9#9#9#9#9#9#9'   AND S.Sira = K.ShpSira'
  1637.       #9#9#9#9#9#9#9'   AND k.KomAlan = a.Kodu'
  1638.       #9#9#9#9#9#9#9'   AND (isnull(Extra, '#39'N'#39') = '#39'Y'#39
  1639.       #9#9#9#9#9#9#9'   OR isnull(Extra, '#39'N'#39') = '#39'y'#39'))'
  1640.       #9#9'  , AcentaHakTut = (SELECT sum(isnull(k.HakKomTut, 0))'
  1641.       #9#9#9#9#9#9#9'FROM'
  1642.       #9#9#9#9#9#9#9#9'ShpSatKrdKom K, ShopKomAl a'
  1643.       #9#9#9#9#9#9#9'WHERE'
  1644.       #9#9#9#9#9#9#9#9's.Tur = K.Tur'
  1645.       #9#9#9#9#9#9#9#9'AND s.Tarih = K.Tarih'
  1646.       #9#9#9#9#9#9#9#9'AND s.Bolge = K.Bolge'
  1647.       #9#9#9#9#9#9#9#9'AND s.Operator = K.Operator'
  1648.       #9#9#9#9#9#9#9#9'AND s.MusTipi = K.MusTipi'
  1649.       #9#9#9#9#9#9#9#9'AND S.Sira = K.ShpSira'
  1650.       #9#9#9#9#9#9#9#9'AND k.KomAlan = a.Kodu'
  1651.       #9#9#9#9#9#9#9#9'AND (NOT (isnull(Extra, '#39'N'#39') = '#39'Y'#39
  1652.       #9#9#9#9#9#9#9#9'OR isnull(Extra, '#39'N'#39') = '#39'y'#39'))'
  1653.       #9#9#9#9#9#9#9#9'AND NOT (RehTip IS NOT NULL'
  1654.       #9#9#9#9#9#9#9#9'AND RehTip <> '#39#39'))'
  1655.       #9' FROM'
  1656.       #9#9' ShpMag m, ShpSat s'
  1657.       #9' WHERE'
  1658.       #9#9' m.Tur = s.Tur'
  1659.       #9#9' AND m.Magaza = '#39'029207'#39
  1660.       #9#9' AND m.Bolge = s.Bolge'
  1661.       #9#9' AND m.Tarih = s.Tarih'
  1662.       #9#9' AND m.Sira = s.MgzSira'
  1663.       #9#9' AND S.Operator = M.Operator'
  1664.       #9#9' AND S.MusTipi = M.MusTipi'
  1665.       #9#9' AND isnull(KrdTut, 0) > 0'
  1666.       
  1667.         #9#9' AND s.ThsTarih BETWEEN '#39'10/01/2014'#39' AND '#39'10/01/2014'#39' UNION AL' +
  1668.         'L'
  1669.       #9' SELECT '#39'U'#39' Tipi,m.Magaza'
  1670.       #9#9'  , isnull(s.CiroiadeTut, 0) AS CiroNet'
  1671.       #9#9'  , CiroDov = (CASE'
  1672.       #9#9#9#9#9#9'   WHEN isnull(s.CiroDov, '#39#39') = '#39#39' THEN'
  1673.       #9#9#9#9#9#9#9'   KrdDov'
  1674.       #9#9#9#9#9#9'   ELSE'
  1675.       #9#9#9#9#9#9#9'   s.CiroDov'
  1676.       #9#9#9#9#9'   END)'
  1677.       
  1678.         #9#9'  , RehHakTut = 0 - isnull((SELECT isnull(sum(isnull(k.HakKomT' +
  1679.         'ut, 0)), 0)'
  1680.       #9#9#9#9#9#9#9#9#9'FROM'
  1681.       #9#9#9#9#9#9#9#9#9#9'ShpIadKom K, ShopKomAl a'
  1682.       #9#9#9#9#9#9#9#9#9'WHERE'
  1683.       #9#9#9#9#9#9#9#9#9#9's.Tur = K.Tur'
  1684.       #9#9#9#9#9#9#9#9#9#9'AND s.Tarih = K.Tarih'
  1685.       #9#9#9#9#9#9#9#9#9#9'AND s.Bolge = K.Bolge'
  1686.       #9#9#9#9#9#9#9#9#9#9'AND s.Operator = K.Operator'
  1687.       #9#9#9#9#9#9#9#9#9#9'AND s.MusTipi = K.MusTipi'
  1688.       #9#9#9#9#9#9#9#9#9#9'AND S.Sira = K.ShpSira'
  1689.       #9#9#9#9#9#9#9#9#9#9'AND k.KomAlan = a.Kodu'
  1690.       #9#9#9#9#9#9#9#9#9#9'AND A.RehTip = '#39'TUR'#39'), 0)'
  1691.       
  1692.         #9#9'  , BilRehHakTut = 0 - isnull((SELECT isnull(sum(isnull(k.HakK' +
  1693.         'omTut, 0)), 0)'
  1694.       #9#9#9#9#9#9#9#9#9'   FROM'
  1695.       #9#9#9#9#9#9#9#9#9#9'   ShpIadKom K, ShopKomAl a'
  1696.       #9#9#9#9#9#9#9#9#9'   WHERE'
  1697.       #9#9#9#9#9#9#9#9#9#9'   s.Tur = K.Tur'
  1698.       #9#9#9#9#9#9#9#9#9#9'   AND s.Tarih = K.Tarih'
  1699.       #9#9#9#9#9#9#9#9#9#9'   AND s.Bolge = K.Bolge'
  1700.       #9#9#9#9#9#9#9#9#9#9'   AND s.Operator = K.Operator'
  1701.       #9#9#9#9#9#9#9#9#9#9'   AND s.MusTipi = K.MusTipi'
  1702.       #9#9#9#9#9#9#9#9#9#9'   AND S.Sira = K.ShpSira'
  1703.       #9#9#9#9#9#9#9#9#9#9'   AND k.KomAlan = a.Kodu'
  1704.       #9#9#9#9#9#9#9#9#9#9'   AND A.RehTip = '#39'OTEL'#39'), 0)'
  1705.       
  1706.         #9#9'  , DigerRehHakTut = 0 - isnull((SELECT isnull(sum(isnull(k.Ha' +
  1707.         'kKomTut, 0)), 0)'
  1708.       #9#9#9#9#9#9#9#9#9#9' FROM'
  1709.       #9#9#9#9#9#9#9#9#9#9#9' ShpIadKom K, ShopKomAl a'
  1710.       #9#9#9#9#9#9#9#9#9#9' WHERE'
  1711.       #9#9#9#9#9#9#9#9#9#9#9' s.Tur = K.Tur'
  1712.       #9#9#9#9#9#9#9#9#9#9#9' AND s.Tarih = K.Tarih'
  1713.       #9#9#9#9#9#9#9#9#9#9#9' AND s.Bolge = K.Bolge'
  1714.       #9#9#9#9#9#9#9#9#9#9#9' AND s.Operator = K.Operator'
  1715.       #9#9#9#9#9#9#9#9#9#9#9' AND s.MusTipi = K.MusTipi'
  1716.       #9#9#9#9#9#9#9#9#9#9#9' AND S.Sira = K.ShpSira'
  1717.       #9#9#9#9#9#9#9#9#9#9#9' AND k.KomAlan = a.Kodu'
  1718.       #9#9#9#9#9#9#9#9#9#9#9' AND A.RehTip = '#39'DIGER'#39'), 0)'
  1719.       
  1720.         #9#9'  , ExtraHakTut = 0 - isnull((SELECT isnull(sum(isnull(k.HakKo' +
  1721.         'mTut, 0)), 0)'
  1722.       #9#9#9#9#9#9#9#9#9'  FROM'
  1723.       #9#9#9#9#9#9#9#9#9#9'  ShpIadKom K, ShopKomAl a'
  1724.       #9#9#9#9#9#9#9#9#9'  WHERE'
  1725.       #9#9#9#9#9#9#9#9#9#9'  s.Tur = K.Tur'
  1726.       #9#9#9#9#9#9#9#9#9#9'  AND s.Tarih = K.Tarih'
  1727.       #9#9#9#9#9#9#9#9#9#9'  AND s.Bolge = K.Bolge'
  1728.       #9#9#9#9#9#9#9#9#9#9'  AND s.Operator = K.Operator'
  1729.       #9#9#9#9#9#9#9#9#9#9'  AND s.MusTipi = K.MusTipi'
  1730.       #9#9#9#9#9#9#9#9#9#9'  AND S.Sira = K.ShpSira'
  1731.       #9#9#9#9#9#9#9#9#9#9'  AND k.KomAlan = a.Kodu'
  1732.       #9#9#9#9#9#9#9#9#9#9'  AND (isnull(Extra, '#39'N'#39') = '#39'Y'#39
  1733.       #9#9#9#9#9#9#9#9#9#9'  OR isnull(Extra, '#39'N'#39') = '#39'y'#39')), 0)'
  1734.       
  1735.         #9#9'  , AcentaHakTut = 0 - isnull((SELECT isnull(sum(isnull(k.HakK' +
  1736.         'omTut, 0)), 0)'
  1737.       #9#9#9#9#9#9#9#9#9'   FROM'
  1738.       #9#9#9#9#9#9#9#9#9#9'   ShpIadKom K, ShopKomAl a'
  1739.       #9#9#9#9#9#9#9#9#9'   WHERE'
  1740.       #9#9#9#9#9#9#9#9#9#9'   s.Tur = K.Tur'
  1741.       #9#9#9#9#9#9#9#9#9#9'   AND s.Tarih = K.Tarih'
  1742.       #9#9#9#9#9#9#9#9#9#9'   AND s.Bolge = K.Bolge'
  1743.       #9#9#9#9#9#9#9#9#9#9'   AND s.Operator = K.Operator'
  1744.       #9#9#9#9#9#9#9#9#9#9'   AND s.MusTipi = K.MusTipi'
  1745.       #9#9#9#9#9#9#9#9#9#9'   AND S.Sira = K.ShpSira'
  1746.       #9#9#9#9#9#9#9#9#9#9'   AND k.KomAlan = a.Kodu'
  1747.       #9#9#9#9#9#9#9#9#9#9'   AND (NOT (isnull(Extra, '#39'N'#39') = '#39'Y'#39
  1748.       #9#9#9#9#9#9#9#9#9#9'   OR isnull(Extra, '#39'N'#39') = '#39'y'#39'))'
  1749.       #9#9#9#9#9#9#9#9#9#9'   AND NOT (RehTip IS NOT NULL'
  1750.       #9#9#9#9#9#9#9#9#9#9'   AND RehTip <> '#39#39')), 0)'
  1751.       #9' FROM'
  1752.       #9#9' ShpMag m, ShpSat s'
  1753.       #9' WHERE'
  1754.       #9#9' m.Tur = s.Tur'
  1755.       #9#9' AND m.Magaza = '#39'029207'#39
  1756.       #9#9' AND m.Bolge = s.Bolge'
  1757.       #9#9' AND m.Tarih = s.Tarih'
  1758.       #9#9' AND m.Sira = s.MgzSira'
  1759.       #9#9' AND s.Operator = M.Operator'
  1760.       #9#9' AND s.MusTipi = M.MusTipi'
  1761.       #9#9' AND s.iadeTar BETWEEN '#39'10/01/2014'#39' AND '#39'10/01/2014'#39') X'
  1762.       'GROUP BY'
  1763.       #9'CiroDov,Magaza')
  1764.     MasterSource = MagIcmDS
  1765.     DetailFields = 'Magaza'
  1766.     Left = 103
  1767.     Top = 387
  1768.     object MagIcmSatCiroNetToplam: TFloatField
  1769.       FieldName = 'CiroNetToplam'
  1770.       ReadOnly = True
  1771.     end
  1772.     object MagIcmSatCiroDov: TStringField
  1773.       FieldName = 'CiroDov'
  1774.       ReadOnly = True
  1775.       Size = 3
  1776.     end
  1777.     object MagIcmSatHakedisTut: TFloatField
  1778.       FieldName = 'HakedisTut'
  1779.       ReadOnly = True
  1780.     end
  1781.     object MagIcmSatMagaza: TStringField
  1782.       FieldName = 'Magaza'
  1783.       ReadOnly = True
  1784.       Size = 6
  1785.     end
  1786.   end
  1787.   object MagIcmSatDS: TDataSource
  1788.     DataSet = MagIcmSat
  1789.     Left = 104
  1790.     Top = 329
  1791.   end
  1792.   object MagIcm: TMSQuery
  1793.     Connection = mDM.MSConnection
  1794.     SQL.Strings = (
  1795.       'Select Magaza'
  1796.       '     , sum(GirYet) AS ToplamYet'
  1797.       #9' , sum(GirCoc) AS ToplamCoc'
  1798.       #9' , sum(GirBeb) AS ToplamBeb'
  1799.       #9' , sum(KatilanPax) AS KatilanPax'
  1800.       '         , FireAdet = (sum(KatilanPax) -  sum(GirYet))'
  1801.       #9' , FireOran =((sum(GirYet)*100) / sum(KatilanPax))'
  1802.       #9'from ('
  1803.       'SELECT Magaza'
  1804.       '     , GirYet'
  1805.       #9' , GirCoc'
  1806.       #9' , GirBeb'
  1807.       #9' , KatilanPax = ('
  1808.       #9#9#9#9#9#9'SELECT sum(isnull(Yet,0)) from ShpBas B '
  1809.       
  1810.         #9#9#9#9#9#9#9'WHERE B.Tur=s.Tur AND B.Bolge=s.Bolge and B.Operator=s.Op' +
  1811.         'erator AND B.MusTipi=s.MusTipi'
  1812.       #9#9#9#9'    )'
  1813.       'FROM'
  1814.       #9'ShpMag s'
  1815.       'WHERE'
  1816.       #9'1 = 1'
  1817.       ') x'
  1818.       'group by Magaza')
  1819.     Left = 30
  1820.     Top = 390
  1821.     object MagIcmMagaza: TStringField
  1822.       FieldName = 'Magaza'
  1823.       Size = 6
  1824.     end
  1825.     object MagIcmToplamYet: TIntegerField
  1826.       FieldName = 'ToplamYet'
  1827.       ReadOnly = True
  1828.     end
  1829.     object MagIcmToplamCoc: TIntegerField
  1830.       FieldName = 'ToplamCoc'
  1831.       ReadOnly = True
  1832.     end
  1833.     object MagIcmToplamBeb: TIntegerField
  1834.       FieldName = 'ToplamBeb'
  1835.       ReadOnly = True
  1836.     end
  1837.     object MagIcmMagazaAdi: TStringField
  1838.       FieldKind = fkLookup
  1839.       FieldName = 'MagazaAdi'
  1840.       LookupDataSet = Magaza
  1841.       LookupKeyFields = 'Kodu'
  1842.       LookupResultField = 'Adi'
  1843.       KeyFields = 'Magaza'
  1844.       Lookup = True
  1845.     end
  1846.     object MagIcmKatilanPax: TIntegerField
  1847.       FieldName = 'KatilanPax'
  1848.       ReadOnly = True
  1849.     end
  1850.     object MagIcmFireAdet: TIntegerField
  1851.       FieldName = 'FireAdet'
  1852.       ReadOnly = True
  1853.     end
  1854.     object MagIcmFireOran: TIntegerField
  1855.       FieldName = 'FireOran'
  1856.       ReadOnly = True
  1857.     end
  1858.   end
  1859.   object MagIcmDS: TDataSource
  1860.     DataSet = MagIcm
  1861.     Left = 30
  1862.     Top = 329
  1863.   end
  1864.   object AyBasTut: TMSQuery
  1865.     Connection = mDM.MSConnection
  1866.     SQL.Strings = (
  1867.       'SELECT  Magaza,sum(AyBasTut) as AyBasTut, AyBasDov'
  1868.       'FROM ShpMag s'
  1869.       
  1870.         'WHERE Magaza=:Magaza and NOT AyBasDov IS NULL AND NOT AyBasTut I' +
  1871.         'S NULL'
  1872.       'GROUP BY Magaza,AyBasDov'
  1873.       'ORDER BY Magaza,AyBasDov')
  1874.     MasterSource = MagIcmDS
  1875.     DetailFields = 'Magaza'
  1876.     Active = True
  1877.     Left = 261
  1878.     Top = 393
  1879.     ParamData = <
  1880.       item
  1881.         DataType = ftString
  1882.         Name = 'Magaza'
  1883.         ParamType = ptInput
  1884.         Size = 6
  1885.         Value = 'BATIK'
  1886.       end>
  1887.     object AyBasTutMagaza: TStringField
  1888.       FieldName = 'Magaza'
  1889.       Size = 6
  1890.     end
  1891.     object AyBasTutAyBasTut: TFloatField
  1892.       FieldName = 'AyBasTut'
  1893.       ReadOnly = True
  1894.     end
  1895.     object AyBasTutAyBasDov: TStringField
  1896.       FieldName = 'AyBasDov'
  1897.       Size = 3
  1898.     end
  1899.   end
  1900.   object AyBasTutDS: TDataSource
  1901.     DataSet = AyBasTut
  1902.     Left = 255
  1903.     Top = 331
  1904.   end
  1905.   object GarantiliSat: TMSQuery
  1906.     Connection = mDM.MSConnection
  1907.     SQL.Strings = (
  1908.       
  1909.         'SELECT Magaza,sum(GirYet * GarHakKont) as GarantiliTut, GarHakDo' +
  1910.         'v'
  1911.       'FROM ShpMag s'
  1912.       'WHERE Magaza=:Magaza and NOT GarHakDov IS NULL'
  1913.       'GROUP BY Magaza,GarHakDov'
  1914.       'ORDER BY Magaza,GarHakDov')
  1915.     MasterSource = MagIcmDS
  1916.     DetailFields = 'Magaza'
  1917.     Active = True
  1918.     Left = 329
  1919.     Top = 395
  1920.     ParamData = <
  1921.       item
  1922.         DataType = ftString
  1923.         Name = 'Magaza'
  1924.         ParamType = ptInput
  1925.         Size = 6
  1926.         Value = 'BATIK'
  1927.       end>
  1928.     object GarantiliSatMagaza: TStringField
  1929.       FieldName = 'Magaza'
  1930.       Size = 6
  1931.     end
  1932.     object GarantiliSatGarantiliTut: TFloatField
  1933.       FieldName = 'GarantiliTut'
  1934.       ReadOnly = True
  1935.     end
  1936.     object GarantiliSatGarHakDov: TStringField
  1937.       FieldName = 'GarHakDov'
  1938.       Size = 3
  1939.     end
  1940.   end
  1941.   object Garantili_DS: TDataSource
  1942.     DataSet = GarantiliSat
  1943.     Left = 326
  1944.     Top = 336
  1945.   end
  1946. end
  1947.