sal_qry_saleorder.pas

一个MRPII系统源代码版本

unit Sal_Qry_SaleOrder;

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_SaleOrder = Class(TFrm_Base_Qry)
    AdoQry_MaincustomerCode: TStringField;
    AdoQry_MaincustomerName: TStringField;
    AdoQry_Maincustomerflag: TStringField;
    AdoQry_Maincreatedate: TDateTimeField;
    AdoQry_MainItemCode: TStringField;
    AdoQry_MainItemName: TStringField;
    AdoQry_MainItemflag: TStringField;
    AdoQry_MainShipqty: TFloatField;
    AdoQry_MaintaxPrice: TFloatField;
    AdoQry_MaintaxAmount: TFloatField;
    AdoQry_MainnotaxPrice: TFloatField;
    AdoQry_MainnotaxAmount: TFloatField;
    AdoQry_MaindiSCountrate: TFloatField;
    AdoQry_MaindiSCountAmount: TFloatField;
    AdoQry_MainSaleTypeCode: TStringField;
    AdoQry_MainSaleTypeName: TStringField;
    AdoQry_MainSaleTypeflag: TStringField;
    AdoQry_MainSaleDeptCode: TStringField;
    AdoQry_MainDeptName: TStringField;
    AdoQry_MainDeptflag: TStringField;
    AdoQry_MainSaleEmployeeCode: TStringField;
    AdoQry_MainSaleEmployeeName: TStringField;
    AdoQry_MainSaleEmployeeflag: TStringField;
    AdoQry_MaincurrencyCode: TStringField;
    AdoQry_MaincurrencyName: TStringField;
    AdoQry_Maincurrencyflag: TStringField;
    AdoQry_Maintaxrate_Percent: TFloatField;
    AdoQry_MainPayTermCode: TStringField;
    AdoQry_MainPayTermName: TStringField;
    AdoQry_MainPayTermflag: TStringField;
    AdoQry_MaincreateEmployeeCode: TStringField;
    AdoQry_MaincreaterName: TStringField;
    AdoQry_Maincreaterflag: TStringField;
    AdoQry_MainShipModeCode: TStringField;
    AdoQry_MainShipModeName: TStringField;
    AdoQry_MainShipModeflag: TStringField;
    AdoQry_MainShipAddresSCode: TStringField;
    AdoQry_MainShipAddressName: TStringField;
    AdoQry_MainShipAddressflag: TStringField;
    AdoQry_MainremArk: TStringField;
    AdoQry_MainremArk1: TStringField;
    AdoQry_Mainslono: TStringField;
    AdoQry_Mainslolineno: TIntegerField;
    AdoQry_MainUomflag: TStringField;
    AdoQry_Mainslolinestatus: TIntegerField;
    AdoQry_Mainslolinedate: TDateTimeField;
    AdoQry_Mainsloqty: TFloatField;
    AdoQry_MainTotalnotaxAmount: TFloatField;
    AdoQry_MainTotaltaxAmount: TFloatField;
    AdoQry_Maineditdate: TDateTimeField;
    AdoQry_MainedItEmployeeCode: TStringField;
    AdoQry_MainedItEmployeeName: TStringField;
    AdoQry_MainedItEmployeeflag: TStringField;
    AdoQry_MainShipdays: TIntegerField;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Sal_Qry_SaleOrder: TFrm_Sal_Qry_SaleOrder;

implementation
 uses Sys_Global;
{$R *.DFM}
procedure TFrm_Sal_Qry_SaleOrder.InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);
var sqltext:string;
begin
  Application.ProcessMessages;
  inherited;
  sqltext:='select t1.customerCode,     '
           +'        customer.customerName,    '
           +'        t1.customerCode+'' ''+customer.customerName as customerflag, '
           +'        t1.Createdate,            '
           +'        t2.slono,                 '
           +'        t2.slolineno,             '
           +'        t2.ItemCode,              '
           +'        Item.ItemName,            '
           +'        t2.ItemCode+'' ''+Item.ItemName as Itemflag,   '
           +'        Uom.UomName as Uomflag,     '
           +'        t2.slolinestatus,                            '
            +'       t2.slolinedate,                              '
            +'       t2.sloqty,                                   '
            +'       t2.Shipdays,                                 '
             +'      t2.Shipqty,                                  '
             +'      t2.taxPrice,                                 '
             +'      t2.taxAmount,                                '
             +'      t2.notaxPrice,                               '
             +'      t2.notaxAmount,                              '
             +'      t2.diSCountrate,                             '
             +'      t2.diSCountAmount,                           '
             +'      t1.SaleTypeCode,                             '
             +'      SaleType.SaleTypeName,                       '
            + '      t1.SaleTypeCode+'' ''+SaleType.SaleTypeName as SaleTypeflag, '
             +'      t1.SaleDeptCode,                                           '
             +'      Dept.DeptName,                                             '
            + '      t1.SaleDeptCode+'' ''+Dept.DeptName as Deptflag,             '
            + '      t1.SaleEmployeeCode,                                       '
            + '      Employee2.EmployeeName as SaleEmployeeName,                '
            + '      t1.SaleEmployeeCode+'' ''+Employee2.EmployeeName as SaleEmployeeflag, '
            + '      t1.currencyCode,                                           '
            + '      currency.currencyName,                                     '
            + '      t1.currencyCode+'' ''+currency.currencyName as currencyflag, '
            + '      t1.taxrate_Percent,                                        '
            + '      t1.PayTermCode,                                            '
            + '      PayTerm.PayTermName,                                       '
            + '      t1.PayTermCode+'' ''+PayTerm.PayTermName as PayTermflag,     '
            + '       t1.ShipModeCode,                                          '
            + '      ShipMode.ShipModeName,                                     '
            + '      t1.ShipModeCode+'' ''+ShipMode.ShipModeName as ShipModeflag, '
            + '      t1.ShipAddresSCode,                                        '
            + '      customerShipAddress.ShipAddressName,                       '
            + '      t1.ShipAddresSCode+'' ''+customerShipAddress.ShipAddressName as ShipAddressflag, '
            + '      t1.TotalnotaxAmount,                                       '
            + '      t1.TotaltaxAmount,                                         '
            + '      t1.remArk,                                                 '
           +  '      t1.remArk1,                                                '
            + '      t1.CreateEmployeeCode,                                     '
            + '      Employee3.EmployeeName as createrName,                     '
            + '      t1.CreateEmployeeCode+'' ''+Employee3.EmployeeName as createrflag, '
            + '      t1.editdate,                                               '
            + '      t1.edItEmployeeCode,                                       '
            + '      Employee3.EmployeeName as edItEmployeeName,                '
            + '      t1.edItEmployeeCode+'' ''+Employee3.EmployeeName as edItEmployeeflag '
            +'   into #tMpSaleOrderQry  '
         + '  from  sa_SaleOrderline t2                                         '
         + '  join  sa_SaleOrder t1 on t2.slono=t1.slono  '
         + '  left outer join  customer on t1.customerCode=customer.customerCode '
         + '  left outer join  Item on t2.ItemCode=Item.ItemCode                 '
         + '  left outer join  Uom on Item.UomCode=Uom.UomCode                   '
         + '  left outer join  Employee Employee2 on t1.SaleEmployeeCode=Employee2.EmployeeCode '
         + '  left outer join  currency on t1.currencyCode=currency.currencyCode '
         + '  left outer join  SaleType on t1.SaleTypeCode=SaleType.SaleTypeCode '
         + '  left outer join  Dept on t1.SaleDeptCode=Dept.DeptCode             '
         + '  left outer join PayTerm on t1.PayTermCode=PayTerm.PayTermCode      '
         + '  left outer join Employee Employee3 on t1.CreateEmployeeCode=Employee3.EmployeeCode   '
         + '  left outer join ShipMode on t1.ShipModeCode=ShipMode.ShipModeCode                    '
         + '  left outer join customerShipAddress on t1.ShipAddresSCode=customerShipAddress.ShipAddresSCode ';
  selectfromsql:='select * from #tMpSaleOrderQry';
  condition:= 'createdate>=  '+quotedstr(formatdatetime('yyyy.mm.dd',strtodatetime(GetServerDateTime(dbconnect))-30));
  Orderbyfields:='customerCode,createdate,slono,slolineno';
  Executesql(AdoQry_Main,sqltext,1);
  Executesql(AdoQry_Main,'select * from #tMpSaleOrderQry',0);

  lbl_Condition.Caption:='下单日期>='+formatdatetime('yyyy.mm.dd',strtodatetime(GetServerDateTime(dbconnect))-30);
end;

procedure TFrm_Sal_Qry_SaleOrder.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Sal_Qry_SaleOrder:=nil;
end;

procedure TFrm_Sal_Qry_SaleOrder.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  try
    Executesql(AdoQry_tmp,'drop table #tMpSaleOrderQry',1);
  except
  end;
end;

end.