gl_enter_credencearh.dfm

一个MRPII系统源代码版本

inherited Frm_Gl_Enter_CredenceArH: TFrm_Gl_Enter_CredenceArH
  Left = 21
  Top = 87
  Caption = '凭证处理'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '凭证处理'
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      ReadOnly = False
      OnDblClick = Act_ModifyExecute
      OnTitleClick = DBGridEhTitleClick
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'CheckFlag'
          PickList.Strings = (
            '1'
            '0')
          Title.Caption = '标记'
          Width = 30
          KeyList.Strings = (
            '1'
            '0')
          Checkboxes = True
        end
        Item
          FieldName = 'CredenceClass'
          PickList.Strings = ()
          Title.Caption = '事务类型'
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Title.Caption = '摘要'
          Width = 208
          KeyList.Strings = ()
        end
        Item
          FieldName = 'KmCode'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '科目代码'
          Width = 89
          KeyList.Strings = ()
        end
        Item
          FieldName = 'KmName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '科目名称'
          Width = 97
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FDebitAmount'
          PickList.Strings = ()
          Title.Caption = '借方金额'
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FCreditAmount'
          PickList.Strings = ()
          Title.Caption = '贷方金额'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyCode'
          PickList.Strings = ()
          Width = 53
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyName'
          PickList.Strings = ()
          Width = 53
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyFlag'
          PickList.Strings = ()
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ExchRate'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DebitAmount'
          PickList.Strings = ()
          Title.Caption = '本位币借方金额'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreditAmount'
          PickList.Strings = ()
          Title.Caption = '本位币贷方金额'
          Width = 70
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 437
    Top = 155
  end
  inherited ActionList: TActionList
    inherited Act_Modify: TAction
      Enabled = True
      Visible = True
      OnExecute = Act_ModifyExecute
    end
    inherited Act_CancelCheck: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Order: TAction
      Enabled = False
      Visible = False
    end
    inherited Act_Check: TAction
      OnExecute = Act_CheckExecute
    end
  end
  inherited AdoQry_Head: 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'
    BeforeInsert = AdoQry_HeadBeforeInsert
    SQL.Strings = (
      
        ' declAre @SellTaxKmCode varchAr(30)                             ' +
        '                                    '
      
        '                    select @SellTaxKmCode=ArParamValueC from Ar_' +
        'ArParam                                                '
      
        '                    where ArParamCode='#39'SellTaxKmCode'#39'           ' +
        '                                                       '
      ''
      '                    select 1 as CredenceId,'
      '                           0 as CheckFlag   ,       '
      
        '                           '#39'                     '#39' as CurrencyCo' +
        'de,'
      
        '                           '#39'                     '#39' as CurrencyNa' +
        'me,'
      
        '                           '#39'                                    ' +
        '                 '#39' as CurrencyFlag,  '
      
        '                           InvoiceNo,                           ' +
        '                        '
      
        '                           Customer.InvoiceArKmCode as KmCode,  ' +
        ' '
      
        '                           Gl_AccountSubject.KmName,            ' +
        '                        '
      
        '                           Sa_SaleInvoice.TotalTaxAmount as FDeb' +
        'itAmount,                                '
      
        '                           0.0 as FCreditAmount,                ' +
        '                                          '
      
        '                           Sa_SaleInvoice.TotalTaxAmountC  as De' +
        'bitAmount,                             '
      
        '                           0.0 as CreditAmount,                 ' +
        '                                         '
      
        '                           '#39'发票凭证                            ' +
        '                         '#39' as CredenceClass,             '
      '                           0 as CredenceType  ,  '
      '                           0 as Flag,'
      
        '                           '#39'客户：'#39'+Sa_SaleInvoice.CustomerCode+' +
        #39' 发票号：'#39'+Sa_SaleInvoice.InvoiceNo as RemArk   '
      '              --       Into #TmpCredence '
      
        '                     from  Sa_SaleInvoice                       ' +
        '                                                       '
      
        '                     left join  Customer on Sa_SaleInvoice.Custo' +
        'merCode=Customer.CustomerCode                          '
      
        '                     left Join  Gl_AccountSubject on Customer.In' +
        'voiceArKmCode=Gl_AccountSubject.KmCode'
      
        '                    where ISCredence=0                          ' +
        '                                                       ')
    Left = 472
    Top = 273
    object AdoQry_HeadCheckFlag: TIntegerField
      FieldName = 'CheckFlag'
      OnChange = AdoQry_HeadCheckFlagChange
    end
    object AdoQry_HeadKmCode: TStringField
      FieldName = 'KmCode'
      Size = 15
    end
    object AdoQry_HeadKmName: TStringField
      FieldName = 'KmName'
      Size = 40
    end
    object AdoQry_HeadFDebitAmount: TFloatField
      DisplayLabel = '原币借方金额'
      FieldName = 'FDebitAmount'
      ReadOnly = True
    end
    object AdoQry_HeadFCreditAmount: TFloatField
      DisplayLabel = '原币贷方金额'
      FieldName = 'FCreditAmount'
      ReadOnly = True
    end
    object AdoQry_HeadDebitAmount: TFloatField
      FieldName = 'DebitAmount'
      ReadOnly = True
    end
    object AdoQry_HeadCreditAmount: TFloatField
      FieldName = 'CreditAmount'
      ReadOnly = True
    end
    object AdoQry_HeadCredenceType: TIntegerField
      FieldName = 'CredenceType'
      ReadOnly = True
    end
    object AdoQry_HeadRemArk: TStringField
      FieldName = 'RemArk'
      Origin = '#TempCredence'
      ReadOnly = True
      Size = 43
    end
    object AdoQry_HeadCredenceId: TIntegerField
      FieldName = 'CredenceId'
      ReadOnly = True
    end
    object AdoQry_HeadInvoiceNo: TStringField
      FieldName = 'InvoiceNo'
      Size = 50
    end
    object AdoQry_HeadExchRate: TFloatField
      DisplayLabel = '汇率'
      FieldName = 'ExchRate'
    end
    object AdoQry_HeadFlag: TIntegerField
      FieldName = 'Flag'
      ReadOnly = True
    end
    object AdoQry_HeadCredenceClass: TStringField
      FieldName = 'CredenceClass'
      Origin = '#TempCredence'
      ReadOnly = True
      Size = 61
    end
    object AdoQry_HeadCurrencyCode: TStringField
      DisplayLabel = '货币代码'
      FieldName = 'CurrencyCode'
      ReadOnly = True
      Size = 21
    end
    object AdoQry_HeadCurrencyName: TStringField
      DisplayLabel = '货币名称'
      FieldName = 'CurrencyName'
      ReadOnly = True
      Size = 21
    end
    object AdoQry_HeadCurrencyFlag: TStringField
      DisplayLabel = '货币标识'
      FieldName = 'CurrencyFlag'
      ReadOnly = True
      Size = 53
    end
  end
end