sal_qry_chginfoshiporder.pas

一个MRPII系统源代码版本

unit Sal_Qry_ChgInfoShipOrder;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Qry, Menus, ExtPrintReport, Db, ActnList, AdODB, Grids, DBGridEh,
  StdCtrls, ExtCtrls, ComCtrls, ToolWin, jpeg;

Type
  TFrm_Sal_Qry_ChgInfoShipOrder = Class(TFrm_Base_Qry)
    AdoQry_MainShipNo: TStringField;
    AdoQry_MainShipLineNo: TIntegerField;
    AdoQry_MainItemCode: TStringField;
    AdoQry_MainItemName: TStringField;
    AdoQry_MainUomName: TStringField;
    AdoQry_MainShipQty: TFloatField;
    AdoQry_MainTaxPrice: TFloatField;
    AdoQry_MainTaxAmount: TFloatField;
    AdoQry_MainNoTaxPrice: TFloatField;
    AdoQry_MainNoTaxAmount: TFloatField;
    AdoQry_MainDiSCountRate: TFloatField;
    AdoQry_MainDiSCountAmount: TFloatField;
    AdoQry_MainWHCode: TStringField;
    AdoQry_MainWHName: TStringField;
    AdoQry_MainWarehouseB: TStringField;
    AdoQry_MainWhPositionCode: TStringField;
    AdoQry_MainWhPositionName: TStringField;
    AdoQry_MainWhPositionB: TStringField;
    AdoQry_MainBatchNo: TStringField;
    AdoQry_MainSloNo: TStringField;
    AdoQry_MainSloLineNo: TIntegerField;
    AdoQry_MainChgEmployeeCode: TStringField;
    AdoQry_MainEmployeeName: TStringField;
    AdoQry_MainChgEmployeeB: TStringField;
    AdoQry_MainChgType: TStringField;
    AdoQry_MainChgTime: TDateTimeField;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
  end;

var
  Frm_Sal_Qry_ChgInfoShipOrder: TFrm_Sal_Qry_ChgInfoShipOrder;

implementation
uses Sal_Qry_ChgInfoShipOrder_C;
{$R *.DFM}

procedure TFrm_Sal_Qry_ChgInfoShipOrder.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  SelectFromSql:=' select Sa_ShipOrderLineHistory.ShipNo,'+
                 ' Sa_ShipOrderLineHistory.ShipLineNo,'+
                 ' Sa_ShipOrderLineHistory.ItemCode,'+
                 ' Item.ItemName,'+
                 ' Uom.UomName,'+
                 ' Sa_ShipOrderLineHistory.ShipQty,'+
                 ' Sa_ShipOrderLineHistory.TaxPrice,'+
                 ' Sa_ShipOrderLineHistory.TaxAmount,'+
                 ' Sa_ShipOrderLineHistory.NoTaxPrice,'+
                 ' Sa_ShipOrderLineHistory.NoTaxAmount,'+
                 ' Sa_ShipOrderLineHistory.DiSCountRate,'+
                 ' Sa_ShipOrderLineHistory.DiSCountAmount,'+
                 ' Sa_ShipOrderLineHistory.WHCode,'+
                 ' Warehouse.WHName,'+
                 ' Sa_ShipOrderLineHistory.WHCode+'' ''+Warehouse.WHName as WarehouseB ,'+
                 ' Sa_ShipOrderLineHistory.WhPositionCode,'+
                 ' WhPosition.WhPositionName,'+
                 ' Sa_ShipOrderLineHistory.WhPositionCode+'' ''+WhPosition.WhPositionName as WhPositionB,'+
                 ' Sa_ShipOrderLineHistory.BatchNo,'+
                 ' Sa_ShipOrderLineHistory.SloNo,'+
                 ' Sa_ShipOrderLineHistory.SloLineNo,'+
                 ' Sa_ShipOrderLineHistory.ChgEmployeeCode,'+
                 ' Employee.EmployeeName,'+
                 ' Sa_ShipOrderLineHistory.ChgEmployeeCode+'' ''+Employee.EmployeeName as ChgEmployeeB ,'+
                 ' Sa_ShipOrderLineHistory.ChgType,'+
                 ' Sa_ShipOrderLineHistory.ChgTime'+
         ' from  Sa_ShipOrderLineHistory'+
         ' left join Item on Sa_ShipOrderLineHistory.ItemCode=Item.ItemCode'+
         ' left join Uom on Item.UomCode=Uom.UomCode'+
         ' left join Warehouse on Sa_ShipOrderLineHistory.WHCode=Warehouse.whCode'+
         ' left join WhPosition on Sa_ShipOrderLineHistory.WhPositionCode=WhPosition.WhPositionCode and'+
         ' WhPosition.WHCode=Sa_ShipOrderLineHistory.WHCode'+
         ' left join Employee on Sa_ShipOrderLineHistory.ChgEmployeeCode=Employee.EmployeeCode';

  OrderByFields:=' chgtime,ShipNo ';
  Frm_Sys_Condition:=TFrm_Sal_Qry_ChgInfoShipOrder_C.Create(self);
  Act_Filter.Execute;
  conditionuserDefine:=condition;
  Frm_Sys_Condition:=nil;
end;

end.