selretcheckinfrm.~dfm

群星医药系统源码

            EditButtons = <>
            FieldName = 'EligibleQty'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Title.TitleButton = True
          end
          item
            EditButtons = <>
            FieldName = 'CustGoodsID'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
          end
          item
            EditButtons = <>
            FieldName = 'Remark'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 80
          end>
      end
    end
    inherited plFooter: TRzPanel
      Top = 342
      Width = 756
      Height = 60
      object Label10: TLabel
        Left = 18
        Top = 37
        Width = 60
        Height = 12
        Caption = #22791'    '#27880#65306
      end
      object Label9: TLabel
        Left = 18
        Top = 11
        Width = 60
        Height = 12
        Caption = #36135#21697#24635#25968#65306
      end
      object RzLabel15: TRzLabel
        Left = 552
        Top = 11
        Width = 57
        Height = 12
        AutoSize = False
        Caption = #21512'    '#35745#65306
      end
      object RzLabel13: TRzLabel
        Left = 236
        Top = 11
        Width = 36
        Height = 12
        AutoSize = False
        Caption = #36135#27454#65306
      end
      object RzLabel14: TRzLabel
        Left = 400
        Top = 11
        Width = 45
        Height = 12
        AutoSize = False
        Caption = #31246'  '#27454#65306
      end
      object RzDBLabel1: TRzDBLabel
        Left = 449
        Top = 39
        Width = 60
        Height = 12
        AutoSize = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        DataField = 'Creater'
        DataSource = DsSelRetCheckIn
      end
      object RzLabel1: TRzLabel
        Left = 400
        Top = 39
        Width = 48
        Height = 12
        Caption = #21019#24314#32773#65306
      end
      object RzDBLabel2: TRzDBLabel
        Left = 612
        Top = 39
        Width = 60
        Height = 12
        AutoSize = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        DataField = 'CreatTime'
        DataSource = DsSelRetCheckIn
      end
      object RzLabel2: TRzLabel
        Left = 552
        Top = 39
        Width = 60
        Height = 12
        Caption = #21019#24314#26085#26399#65306
      end
      object RzDBEdit6: TRzDBEdit
        Left = 79
        Top = 33
        Width = 294
        Height = 19
        DataSource = DsSelRetCheckIn
        DataField = 'Remark'
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
      object RzDBNumericEdit1: TRzDBEdit
        Tag = -1
        Left = 79
        Top = 6
        Width = 142
        Height = 20
        DataSource = DsSelRetCheckIn
        DataField = 'GoodsQty'
        ReadOnly = True
        Alignment = taRightJustify
        FrameVisible = True
        TabOrder = 1
      end
      object RzDBNumericEdit4: TRzDBEdit
        Tag = -1
        Left = 611
        Top = 7
        Width = 120
        Height = 19
        DataSource = DsSelRetCheckIn
        DataField = 'Amount'
        ReadOnly = True
        Alignment = taRightJustify
        AutoSize = False
        FrameVisible = True
        TabOrder = 2
      end
      object RzDBNumericEdit2: TRzDBEdit
        Tag = -1
        Left = 272
        Top = 7
        Width = 100
        Height = 19
        DataSource = DsSelRetCheckIn
        DataField = 'GoodsSum'
        ReadOnly = True
        Alignment = taRightJustify
        AutoSize = False
        FrameVisible = True
        TabOrder = 3
      end
      object RzDBNumericEdit3: TRzDBEdit
        Tag = -1
        Left = 450
        Top = 7
        Width = 87
        Height = 19
        DataSource = DsSelRetCheckIn
        DataField = 'TaxSum'
        ReadOnly = True
        Alignment = taRightJustify
        AutoSize = False
        FrameVisible = True
        TabOrder = 4
      end
    end
  end
  inherited ActionList1: TActionList
    Top = 4
    inherited ActQuery: TModlAction
      OnExecute = ActQueryExecute
    end
    inherited ActFieldLayout: TModlAction
      OnExecute = ActFieldLayoutExecute
    end
    inherited ActDataExport: TModlAction
      OnExecute = ActDataExportExecute
    end
    inherited ActBillTurn: TModlAction
      Caption = #39564#25910
      Visible = False
      ModuleFile = 'PurchBase.bpl;TFmGoodsCheckAccept'
    end
  end
  object DcomCnn: TDCOMConnection
    ServerGUID = '{2E17E6A4-B6AD-4CDD-A5AF-A05E0822C5AB}'
    ServerName = 'ckSalesBase.SalesBase'
    Left = 45
    Top = 196
  end
  object CdsSelRetCheckIn: TckClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    Params = <
      item
        DataType = ftVariant
        Name = 'BillNo'
        ParamType = ptUnknown
      end>
    ProviderName = 'DspSelRetCheckIn'
    RemoteServer = DcomCnn
    AfterScroll = CdsSelRetCheckInAfterScroll
    OnNewRecord = CdsSelRetCheckInNewRecord
    OnReconcileError = CdsSelRetCheckInReconcileError
    Left = 128
    Top = 200
    object CdsSelRetCheckInBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSelRetCheckInFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object CdsSelRetCheckInContractNo: TStringField
      FieldName = 'ContractNo'
    end
    object CdsSelRetCheckInPBillNo: TStringField
      FieldName = 'PBillNo'
    end
    object CdsSelRetCheckInEmpNO: TStringField
      FieldName = 'EmpNO'
      Size = 8
    end
    object CdsSelRetCheckInName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 12
    end
    object CdsSelRetCheckInAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object CdsSelRetCheckInCustNo: TStringField
      FieldName = 'CustNo'
      Size = 8
    end
    object CdsSelRetCheckInCustName: TStringField
      FieldName = 'CustName'
      ProviderFlags = []
    end
    object CdsSelRetCheckInLinkMan: TStringField
      FieldName = 'LinkMan'
      Size = 12
    end
    object CdsSelRetCheckInGoodsQty: TBCDField
      FieldName = 'GoodsQty'
      Precision = 12
      Size = 3
    end
    object CdsSelRetCheckInGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsSelRetCheckInTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsSelRetCheckInAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsSelRetCheckInRemark: TStringField
      FieldName = 'Remark'
      Size = 100
    end
    object CdsSelRetCheckInFungible: TBooleanField
      FieldName = 'Fungible'
    end
    object CdsSelRetCheckInTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object CdsSelRetCheckInCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object CdsSelRetCheckInCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
    object CdsSelRetCheckInMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object CdsSelRetCheckInUpdateTime: TDateTimeField
      FieldName = 'UpdateTime'
    end
    object CdsSelRetCheckInGrup: TIntegerField
      FieldName = 'Grup'
    end
    object CdsSelRetCheckInAdsSelRetCheckInDtl: TDataSetField
      FieldName = 'AdsSelRetCheckInDtl'
    end
  end
  object CdsSelRetCheckInDtl: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsSelRetCheckInAdsSelRetCheckInDtl
    FetchOnDemand = False
    Params = <>
    AfterOpen = CdsSelRetCheckInDtlAfterOpen
    BeforeInsert = CdsSelRetCheckInDtlBeforeInsert
    AfterPost = CdsSelRetCheckInDtlAfterPost
    AfterDelete = CdsSelRetCheckInDtlAfterPost
    OnNewRecord = CdsSelRetCheckInDtlNewRecord
    Left = 125
    Top = 260
    object CdsSelRetCheckInDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSelRetCheckInDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSelRetCheckInDtlGoodsID: TStringField
      FieldName = 'GoodsID'
      Required = True
      OnChange = CdsSelRetCheckInDtlGoodsIDChange
      Size = 16
    end
    object CdsSelRetCheckInDtlName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 24
    end
    object CdsSelRetCheckInDtlSpecs: TStringField
      FieldName = 'Specs'
      ProviderFlags = []
    end
    object CdsSelRetCheckInDtlUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object CdsSelRetCheckInDtlQty: TBCDField
      FieldName = 'Qty'
      Required = True
      OnChange = CdsSelRetCheckInDtlQtyChange
      Precision = 12
      Size = 3
    end
    object CdsSelRetCheckInDtlOPrice: TFloatField
      FieldName = 'OPrice'
      Required = True
      OnChange = CdsSelRetCheckInDtlQtyChange
    end
    object CdsSelRetCheckInDtlRebate: TBCDField
      FieldName = 'Rebate'
      OnChange = CdsSelRetCheckInDtlQtyChange
      Precision = 8
      Size = 2
    end
    object CdsSelRetCheckInDtlPrice: TFloatField
      FieldName = 'Price'
      Required = True
      OnChange = CdsSelRetCheckInDtlPriceChange
    end
    object CdsSelRetCheckInDtlTaxRate: TBCDField
      FieldName = 'TaxRate'
      OnChange = CdsSelRetCheckInDtlTaxRateChange
      Precision = 6
      Size = 2
    end
    object CdsSelRetCheckInDtlUnTaxPrice: TFloatField
      FieldName = 'UnTaxPrice'
      Required = True
      OnChange = CdsSelRetCheckInDtlUnTaxPriceChange
    end
    object CdsSelRetCheckInDtlGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsSelRetCheckInDtlTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsSelRetCheckInDtlAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsSelRetCheckInDtlPBillNo: TStringField
      FieldName = 'PBillNo'
    end
    object CdsSelRetCheckInDtlPItemNo: TIntegerField
      FieldName = 'PItemNo'
    end
    object CdsSelRetCheckInDtlBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object CdsSelRetCheckInDtlProdDate: TDateTimeField
      FieldName = 'ProdDate'
      OnChange = CdsSelRetCheckInDtlProdDateChange
    end
    object CdsSelRetCheckInDtlValidDate: TDateTimeField
      FieldName = 'ValidDate'
      OnChange = CdsSelRetCheckInDtlProdDateChange
    end
    object CdsSelRetCheckInDtlEligibleQty: TBCDField
      FieldName = 'EligibleQty'
      Precision = 12
      Size = 3
    end
    object CdsSelRetCheckInDtlCustGoodsID: TStringField
      FieldName = 'CustGoodsID'
      Size = 16
    end
    object CdsSelRetCheckInDtlRemark: TStringField
      FieldName = 'Remark'
      Size = 40
    end
  end
  object DsSelRetCheckIn: TDataSource
    DataSet = CdsSelRetCheckIn
    Left = 238
    Top = 198
  end
  object DsSelRetCheckInDtl: TDataSource
    DataSet = CdsSelRetCheckInDtl
    Left = 236
    Top = 262
  end
end