sal_qry_totalshiporder4.dfm

一个MRPII系统源代码版本

inherited Frm_Sal_Qry_TotalShipOrder4: TFrm_Sal_Qry_TotalShipOrder4
  Left = 181
  Top = 116
  Caption = '销售发货统计-按营销业务员'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '销售发货统计-按营销业务员'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Left = 78
    end
    inherited Lbl_Order: TLabel
      Left = 78
      Width = 216
      Caption = '营销业务员代码/发货日期/销售发货单号'
    end
  end
  inherited Pnl_Hint: TPanel
    object DBText1: TDBText
      Left = 116
      Top = 9
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'SaleEmployeeFlag'
      DataSource = DataSource
    end
    object Label1: TLabel
      Left = 12
      Top = 9
      Width = 96
      Height = 12
      Caption = '营销业务员标识：'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      OnDblClick = Act_LookExecute
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'createdate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货日期'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货单号'
          Width = 68
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售客户标识'
          Width = 180
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Shipqty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货数量'
          Width = 54
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalInvBillnotaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税金额'
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalInvBillAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售类型标识'
          Width = 109
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleDeptFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售部门标识'
          Width = 154
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '营销业务员标识'
          Width = 99
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillTaxRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售税率'
          Width = 63
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款条款标识'
          Width = 111
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货方式标识'
          Width = 88
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerShipAddressFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货地址标识'
          Width = 135
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 477
    Top = 43
  end
  inherited ActionList: TActionList
    Left = 200
    Top = 112
    inherited Act_Look: TAction
      Enabled = True
      Visible = True
      OnExecute = Act_LookExecute
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = ''
    CurSorType = ctStatic
    SQL.Strings = (
      
        ' Exec AnalyzeSales '#39'4'#39','#39'[##ZHENGJIArONG_2002.08.17 16:21:06 381]' +
        #39','#39'  (InvOutBill.InvBillDate Between '#39#39'2002.05.19'#39#39' And '#39#39'2002.0' +
        '8.17'#39#39') '#39','#39'  (isnull(InvOutBill.CustomerCode,'#39#39#39#39')  Between '#39#39#39#39 +
        ' And '#39#39'ZZZZZZ'#39#39') '#39','#39'  (InvOutBill.InvBillNO Between  '#39#39#39#39' And '#39#39 +
        'ZZZZZZ'#39#39') '#39','#39'  (isnull(InvOutBill.SaleType,'#39#39#39#39') Between '#39#39#39#39' An' +
        'd '#39#39'ZZZZZZ'#39#39') '#39','#39'  (isnull(InvOutBill.DeptCode,'#39#39#39#39') Between '#39#39#39 +
        #39' And '#39#39'ZZZZZZ'#39#39') '#39','#39'  (isnull(InvOutBill.Sal_EmployeeCode,'#39#39#39#39')' +
        ' Between '#39#39#39#39' And '#39#39'ZZZZZZ'#39#39') '#39','#39'  (isnull(InvOutBill.PayTermCod' +
        'e,'#39#39#39#39') Between '#39#39#39#39' And '#39#39'ZZZZZZ'#39#39')  '#39','#39' InvOutBill.CurrencyCod' +
        'e='#39#39'00'#39#39'  '#39)
    Left = 320
    Top = 145
  end
  inherited DataSource: TDataSource
    Left = 392
    Top = 153
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 232
    Top = 169
  end
end