sal_qry_chginfosaleorder.pas

一个MRPII系统源代码版本

unit Sal_Qry_ChgInfoSaleOrder;

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_ChgInfoSaleOrder = Class(TFrm_Base_Qry)
    AdoQry_MainCustomerCode: TStringField;
    AdoQry_MainCustomerName: TStringField;
    AdoQry_MainCustomerB: TStringField;
    AdoQry_MainCreateDate: TDateTimeField;
    AdoQry_MainSloNo: TStringField;
    AdoQry_MainSloLineNo: TIntegerField;
    AdoQry_MainItemCode: TStringField;
    AdoQry_MainItemName: TStringField;
    AdoQry_MainUomName: TStringField;
    AdoQry_MainSloLineStatus: TIntegerField;
    AdoQry_MainSloLineDate: TDateTimeField;
    AdoQry_MainSloQty: TFloatField;
    AdoQry_MainShipQty: TFloatField;
    AdoQry_MainTaxPrice: TFloatField;
    AdoQry_MainTaxAmount: TFloatField;
    AdoQry_MainNoTaxPrice: TFloatField;
    AdoQry_MainNoTaxAmount: TFloatField;
    AdoQry_MainDiSCountRate: TFloatField;
    AdoQry_MainDiSCountAmount: TFloatField;
    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_ChgInfoSaleOrder: TFrm_Sal_Qry_ChgInfoSaleOrder;

implementation
uses Sal_Qry_ChgInfoSaleOrder_C;
{$R *.DFM}

procedure TFrm_Sal_Qry_ChgInfoSaleOrder.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  SelectFromSql:=' Select Sa_SaleOrderHistory.CustomerCode,'+
                  ' Customer.CustomerName,'+
                  ' Sa_SaleOrderHistory.CustomerCode+'' ''+Customer.CustomerName As CustomerB,'+
                  ' Sa_SaleOrderHistory.CreateDate,'+
                  ' Sa_SaleOrderLineHistory.SloNo,'+
                  ' Sa_SaleOrderLineHistory.SloLineNo,'+
                  ' Sa_SaleOrderLineHistory.ItemCode,'+
                  ' Item.ItemName,'+
                  ' Uom.UomName,'+
                  ' Sa_SaleOrderLineHistory.SloLineStatus,'+
                  ' Sa_SaleOrderLineHistory.SloLineDate,'+
                  ' Sa_SaleOrderLineHistory.SloQty,'+
                  ' Sa_SaleOrderLineHistory.ShipQty,'+
                  ' Sa_SaleOrderLineHistory.TaxPrice,'+
                  ' Sa_SaleOrderLineHistory.TaxAmount,'+
                  ' Sa_SaleOrderLineHistory.NoTaxPrice,'+
                  ' Sa_SaleOrderLineHistory.NoTaxAmount,'+
                  ' Sa_SaleOrderLineHistory.DiSCountRate,'+
                  ' Sa_SaleOrderLineHistory.DiSCountAmount,'+
                  ' Sa_SaleOrderLineHistory.ChgEmployeeCode,'+
                  ' Employee.EmployeeName,'+
                  ' Sa_SaleOrderLineHistory.ChgEmployeeCode+'' ''+Employee.EmployeeName As ChgEmployeeB,'+
                  ' Sa_SaleOrderLineHistory.ChgType,'+
                  ' Sa_SaleOrderLineHistory.ChgTime'+
          ' From Sa_SaleOrderLineHistory'+
          ' Left Join Sa_SaleOrderHistory on Sa_SaleOrderLineHistory.SloNo=Sa_SaleOrderHistory.SloNo'+
          ' Left Join Customer on Sa_SaleOrderHistory.CustomerCode=Customer.CustomerCode'+
          ' Left Join Item on Sa_SaleOrderLineHistory.ItemCode=Item.ItemCode'+
          ' Left Join Uom on Item.UomCode=Uom.UomCode'+
          ' Left Join Employee on Sa_SaleOrderLineHistory.ChgEmployeeCode=Employee.EmployeeCode';
  OrderByFields:=' chgtime,CustomerCode ';
  Frm_Sys_Condition:=TFrm_Sal_Qry_ChgInfoSaleOrder_C.Create(self);
  Act_Filter.Execute;
  conditionuserDefine:=condition;
  Frm_Sys_Condition:=nil;
end;

end.