sfc_mooutqry.dfm

一个MRPII系统源代码版本

inherited Frm_Sfc_MoOutQry: TFrm_Sfc_MoOutQry
  Left = 80
  Top = 76
  Caption = '车间生产订单领料差异分析表'
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '车间生产订单领料差异分析表'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Order: TLabel
      Width = 96
      Caption = '订单号、订单行号'
    end
    object Label1: TLabel
      Left = 632
      Top = 16
      Width = 84
      Height = 12
      Caption = '差异：+超  -欠'
    end
  end
  inherited Pnl_Hint: TPanel
    object Label2: TLabel
      Left = 24
      Top = 8
      Width = 72
      Height = 12
      Caption = '当前行产品：'
    end
    object Lbl_ItemCodeName: TLabel
      Left = 104
      Top = 8
      Width = 6
      Height = 12
    end
    object Label3: TLabel
      Left = 312
      Top = 8
      Width = 96
      Height = 12
      Caption = '当前行物料描述：'
    end
    object DBEdt_Item: TDBEdit
      Left = 416
      Top = 8
      Width = 225
      Height = 13
      BOrderStyle = bsNone
      Color = clMenu
      DataField = 'ItemCodeName'
      DataSource = DataSource
      Enabled = False
      TabOrder = 0
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        Item
          FieldName = 'MoNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '订单号'
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLineNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '订单行号'
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MOCtrlQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '限额数量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OutQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '实际领用量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'QtyDiff'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '差异量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'QtyDiffPercent'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '差异率（%）'
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AmountDiff'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '差异额'
          Width = 76
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_test_zcw;Data Source=192' +
      '.168.0.8'
    CurSorType = ctStatic
    AfterScroll = AdoQry_MainAfterScroll
    SQL.Strings = (
      
        'select MI.MoNo,Mi.MoLineNo,MI.ItemCode+'#39' '#39'+Item.ItemName as Item' +
        'CodeName,'
      '          Uom.UomName,'
      
        '          MI.MOCtrlQty,S.OutQty,S.OutQty-MI.MOCtrlQty QtyDiff,  ' +
        '--??'
      '             case'
      
        '                when MI.MOCtrlQty<>0 then convert(varchAr(40),(S' +
        '.OutQty-MI.MoCtrlQty)/MI.MoCtrlQty*100)'
      '                else '#39'--'#39
      '             end QtyDiffPercent,  --???'
      '             case'
      
        '                when S.OutQty<>0 then Round((S.OutQty-MI.MoCtrlQ' +
        'ty)*(S.OutAmount/S.OutQty),2)'
      '                else 0'
      '             end AmountDiff  --???'
      '        from MNItemList MI'
      '      Left Join'
      
        '      (select BL.MONo,BL.MoLineNo,BL.ItemCode,sum(InvBillQty) Ou' +
        'tQty,Sum(InvBillNoTaxAmount) OutAmount'
      '         from InvOutBillLine BL,InvOutBill B,MO,MoLine'
      '         where MO.MONo between '#39'1'#39' and  '#39'2'#39' and'
      '               MO.DeptCode='#39'0000'#39' and'
      '               MoLine.MoNO=MO.MoNo and'
      '               MoLine.MoLineStatus>=1 and'
      '               BL.MONo=MoLine.MoNo and'
      '               BL.MoLineNo=MoLine.MoLineNo and'
      '               B.InvBillWHChck=1  and --??????'
      '               --????????'
      '              B.InvBillId=BL.InvBillId'
      
        '         group by BL.MoNo,Bl.MoLineNo,BL.ItemCode) S  --????????' +
        '????'
      
        '         On (S.MoNo=Mi.MoNo) and (S.MoLineNo=Mi.MoLineNo) and (S' +
        '.ItemCode=Mi.ItemCode)'
      '   Join Item on Item.ItemCode=Mi.ItemCode'
      '   Join Uom on Uom.UomCode=Item.UomCode'
      'Order BY MI.MONO,MI.MoLineNO')
    Top = 129
    object AdoQry_MainMoNo: TStringField
      FieldName = 'MoNo'
      Size = 16
    end
    object AdoQry_MainMoLineNo: TIntegerField
      FieldName = 'MoLineNo'
    end
    object AdoQry_MainItemCodeName: TStringField
      FieldName = 'ItemCodeName'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_MainMOCtrlQty: TFloatField
      FieldName = 'MOCtrlQty'
    end
    object AdoQry_MainOutQty: TFloatField
      FieldName = 'OutQty'
    end
    object AdoQry_MainQtyDiff: TFloatField
      FieldName = 'QtyDiff'
      ReadOnly = True
    end
    object AdoQry_MainQtyDiffPercent: TStringField
      FieldName = 'QtyDiffPercent'
      ReadOnly = True
      Size = 40
    end
    object AdoQry_MainAmountDiff: TFloatField
      FieldName = 'AmountDiff'
      ReadOnly = True
    end
  end
end