ar_qry_arsheet.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Qry_ArSheet: TFrm_Ar_Qry_ArSheet
  Left = 262
  Top = 117
  Caption = '应收帐款表'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '应收帐款表'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = '客户代码'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 2
      Columns = <
        Item
          FieldName = 'CustomerCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerName'
          PickList.Strings = ()
          Width = 142
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerFlag'
          PickList.Strings = ()
          Width = 170
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyCode'
          PickList.Strings = ()
          Width = 63
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyName'
          PickList.Strings = ()
          Width = 69
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyFlag'
          PickList.Strings = ()
          Width = 75
          KeyList.Strings = ()
        end
        Item
          FieldName = 'NoInvoiceAmount'
          PickList.Strings = ()
          Width = 82
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvoiceAmount'
          PickList.Strings = ()
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Total'
          PickList.Strings = ()
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 237
    Top = 291
  end
  inherited ActionList: TActionList
    Left = 272
    Top = 240
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192.1' +
      '68.0.100;Use procedure for Prepare=1;Auto Translate=True;Packet ' +
      'Size=4096;Workstation ID=XYB'
    SQL.Strings = (
      ''
      'select CustomerCode,CustomerName,CustomerFlag,'
      '       CurrencyCode,CurrencyName,CurrencyFlag,'
      '       Sum(NoInvoiceAmount) as NoInvoiceAmount,'
      '       Sum(InvoiceAmount) as InvoiceAmount,'
      '       Sum(NoInvoiceAmount)-Sum(InvoiceAmount) as Total'
      'from '
      '(select Customer.CustomerCode,'
      '       Customer.CustomerName,'
      
        '       Customer.CustomerCode+'#39' '#39'+Customer.CustomerName as Custom' +
        'erFlag,'
      '       InvOutBill.CurrencyCode,'
      '       Currency.CurrencyName,'
      
        '       InvOutBill.CurrencyCode+'#39' '#39'+Currency.CurrencyName as Curr' +
        'encyFlag,'
      
        '       Sum(IsNull(InvOutBill.TotalInvBillAmount,0)) as NoInvoice' +
        'Amount,'
      '       0.0 as InvoiceAmount'
      'from Customer'
      
        ' join InvOutBill on Customer.CustomerCode=InvOutBill.CustomerCod' +
        'e'
      '       and InvOutBill.InvBillWhChCk=1'
      '       and IsNull(InvOutBill.InvoiceNo,'#39#39')='#39#39
      
        'left join Currency on InvOutBill.CurrencyCode=Currency.CurrencyC' +
        'ode'
      'group by Customer.CustomerCode,Customer.CustomerName,'
      '         InvOutBill.CurrencyCode,Currency.CurrencyName'
      'union '
      'select Customer.CustomerCode,'
      '       Customer.CustomerName,'
      
        '       Customer.CustomerCode+'#39' '#39'+Customer.CustomerName as Custom' +
        'erFlag,'
      '       Sa_SaleInvoice.CurrencyCode,'
      '       Currency.CurrencyName,'
      
        '       Sa_SaleInvoice.CurrencyCode+'#39' '#39'+Currency.CurrencyName as ' +
        'CurrencyFlag,'
      '       0.0 as NoInvoiceAmount,'
      
        '       Sum(IsNull(Sa_SaleInvoice.TotalTaxAmount,0)-IsNull(Sa_Sal' +
        'eInvoice.CancelAmount,0)) as InvoiceAmount'
      ''
      'from Customer'
      
        ' join Sa_SaleInvoice on Customer.CustomerCode=Sa_SaleInvoice.Cus' +
        'tomerCode'
      
        'left join Currency on Sa_SaleInvoice.CurrencyCode=Currency.Curre' +
        'ncyCode'
      'group by Customer.CustomerCode,Customer.CustomerName,'
      '         Sa_SaleInvoice.CurrencyCode,Currency.CurrencyName'
      ') tmp'
      'group by'
      'CustomerCode,CustomerName,CustomerFlag,'
      '       CurrencyCode,CurrencyName,CurrencyFlag')
    Left = 360
    Top = 217
    object AdoQry_MainCustomerCode: TStringField
      DisplayLabel = '客户代码'
      FieldName = 'CustomerCode'
      Origin = '#TmpArSheet'
      Size = 12
    end
    object AdoQry_MainCustomerName: TStringField
      DisplayLabel = '客户名称'
      FieldName = 'CustomerName'
      Origin = '#TmpArSheet'
      Size = 60
    end
    object AdoQry_MainCustomerFlag: TStringField
      DisplayLabel = '客户标识'
      FieldName = 'CustomerFlag'
      Origin = '#TmpArSheet'
      Size = 73
    end
    object AdoQry_MainCurrencyCode: TStringField
      DisplayLabel = '货币代码'
      FieldName = 'CurrencyCode'
      Origin = '#TmpArSheet'
      Size = 3
    end
    object AdoQry_MainCurrencyName: TStringField
      DisplayLabel = '货币名称'
      FieldName = 'CurrencyName'
      Origin = '#TmpArSheet'
      Size = 30
    end
    object AdoQry_MainCurrencyFlag: TStringField
      DisplayLabel = '货币标识'
      FieldName = 'CurrencyFlag'
      Origin = '#TmpArSheet'
      Size = 34
    end
    object AdoQry_MainNoInvoiceAmount: TFloatField
      DisplayLabel = '未开票应收款（含税）'
      FieldName = 'NoInvoiceAmount'
      Origin = '#TmpArSheet'
      ReadOnly = True
    end
    object AdoQry_MainInvoiceAmount: TFloatField
      DisplayLabel = '已开票应收款（含税）'
      FieldName = 'InvoiceAmount'
      Origin = '#TmpArSheet'
      ReadOnly = True
    end
    object AdoQry_MainTotal: TFloatField
      DisplayLabel = '合计'
      FieldName = 'Total'
      Origin = '#TmpArSheet'
      ReadOnly = True
    end
  end
  inherited DataSource: TDataSource
    Left = 312
    Top = 161
  end
end