?? ordcomm.pas.svn-base
字號:
unit OrdComm;
interface
uses
Classes, SysUtils, Controls, Windows, Forms, ComCtrls, CommCtrl, DBGrids,
Messages, Graphics, ADODB, ActiveX, SYSDATA, Dialogs, atScript, CommFun,
atPascal, Variants, StdCtrls, DB;
//取得銷售價格和總額折扣函數：
procedure GetSalePrice(AOrderInfo:TOrderInfo; var APriceInfo:TPriceInfo);
//取得特殊價格及總額折扣
function GetSpecPrice(ASpecNo:Integer;AOrderInfo:TOrderInfo;var APriceInfo:TPriceInfo):Boolean;
//取得特價記錄的設置信息 并 檢驗是否符合條件
function CheckSpecInfo(ASpecNo,AItemClass,ACustClass,ACustGrade,ASaleGrade:Integer;AOrderInfo:TOrderInfo;var ASpecInfo:TSpecInfo):Boolean;
//切分字符串
procedure SplitString(s: string; Separator: char;Terms: TStringList);
//替換變量
function ReplaceVariable(AString, AAddre, ACompany, ACurrency,APlace,APayment:string;ATotal,ADiscount:Double): string;
//取得條款信息
procedure GetTerm(AAddre, ACompany, ACurrency,APlace,APayment: string;ATotal,ADiscount:Double;var Terms: TStringList);
//去掉S中的回車返行符
procedure StrTruncateCRLF(var S: string);
//取得所有客戶分類列表
procedure GetAllCustClass(ADataSet: TADODataSet; AcbClass: TComboBox);
//報價單生成銷售定單
procedure CreateOrder(ACode:String);
//銷售定單生成采購定單
procedure CreatePurchase(ACode:String);
//加入銷售產品
procedure AddItemLine(AOrderInfo:TOrderInfo;AItemInfo:TItemInfo;ADataSet:TADODataSet;AType:String='UPD');
//取得所有任務類別
procedure GetAllSellsClass(AcbClass:TComboBox);
//取得有銷售類別及其所有子類的電腦編號
function GetChildSell(ATasClass:string):string;
//更新報價單的狀態，當銷售定單刪除時，刪除前調用
//AOrder:銷售單號
procedure UpdataOrd500(AOrder:String);
implementation
uses PurComm;
//取得標準價格
function GetStandardOrdPrice(AOrderInfo:TOrderInfo):Double;
var
AUnitRate,ARate,APrice:Double;
begin
//1.取得計量單位換算率
AUnitRate:=GetUnitRate(AOrderInfo.CustNo,AOrderInfo.ItemNo,AOrderInfo.UnitNo);
//2.取得幣別彙率
ARate:=GetCurrencyRate(AOrderInfo.CurrNo);
//3.取得價格
//3A.取得需求幣別的價格
SYSDM.qryQuery.Close;
SYSDM.qryQuery.SQL.Clear;
SYSDM.qryQuery.SQL.Add('select top 1 O130_004 from ORD130,GLD100');
SYSDM.qryQuery.SQL.Add('where O130_002=G100_001 and O130_001='+IntToStr(AOrderInfo.ItemNo));
SYSDM.qryQuery.SQL.Add(' and O130_003<='+GetDateString(AOrderInfo.OrderDate));
SYSDM.qryQuery.SQL.Add(' and G100_001='+IntToStr(AOrderInfo.CurrNo));
SYSDM.qryQuery.SQL.Add('order by O130_003 desc');
SYSDM.qryQuery.Open;
if not SYSDM.qryQuery.IsEmpty then
begin
APrice:=SYSDM.qryQuery.FieldByName('O130_004').AsFloat;
ARate:=1;
end else
//3B.取得本位幣的價格，并換算成需求的幣別價格，即價格=本位幣價格/幣別匯率
begin
SYSDM.qryQuery.Close;
SYSDM.qryQuery.SQL.Clear;
SYSDM.qryQuery.SQL.Add('select top 1 O130_004 from ORD130,GLD100');
SYSDM.qryQuery.SQL.Add('where O130_002=G100_001 and O130_001='+IntToStr(AOrderInfo.ItemNo));
SYSDM.qryQuery.SQL.Add(' and O130_003<='+GetDateString(AOrderInfo.OrderDate));
SYSDM.qryQuery.SQL.Add(' and G100_002='+''''+ACurrID+'''');
SYSDM.qryQuery.SQL.Add('order by O130_003 desc');
SYSDM.qryQuery.Open;
APrice:=SYSDM.qryQuery.FieldByName('O130_004').AsFloat;
end;
//4.計算價格
APrice:=APrice*AUnitRate;
APrice:=APrice/ARate;
Result:=APrice;
end;
//AType:類型 0=料品分類，1=客戶分類，2=地區
function IsInclude(AParent,AChild,AType:Integer):Boolean;
var
AStringList:TStringList;
begin
AStringList:=TStringList.Create;
AStringList.Add(IntToStr(AParent));
case AType of
0:GetChild(IntToStr(AParent),'INV120','I120_004','I120_001',AStringList);
1:GetChild(IntToStr(AParent),'ORD110','O110_003','O110_001',AStringList);
2:GetChild(IntToStr(AParent),'ORD120','O120_003','O120_001',AStringList);
end;
Result:=AStringList.IndexOf(IntToStr(AChild))<>-1;
AStringList.Free;
end;
//取得所有上級類別
//AType:類型 0=料品分類，1=客戶分類，2=地區
procedure GetParentNo(AChild,AType:Integer; var AStringList:TStringList);
begin
AStringList.Add(IntToStr(AChild));
case AType of
0:GetAllParent(IntToStr(AChild),'INV120','I120_004','I120_001',AStringList);
1:GetAllParent(IntToStr(AChild),'ORD110','O110_003','O110_001',AStringList);
2:GetAllParent(IntToStr(AChild),'ORD120','O120_003','O120_001',AStringList);
end;
end;
//取得特價記錄的設置信息 并 檢驗是否符合條件
function CheckSpecInfo(ASpecNo,AItemClass,ACustClass,ACustGrade,ASaleGrade:Integer;AOrderInfo:TOrderInfo;var ASpecInfo:TSpecInfo):Boolean;
begin
Result:=False;
SYSDM.qryQuery.Close;
SYSDM.qryQuery.SQL.Clear;
SYSDM.qryQuery.SQL.Add('select * from ORD140A where O140A_001='+IntToStr(ASpecNo));
SYSDM.qryQuery.Open;
if SYSDM.qryQuery.IsEmpty then Exit;
ASpecInfo.AType:=SYSDM.qryQuery.FieldByName('O140A_004').AsInteger;
ASpecInfo.AFromDate:=SYSDM.qryQuery.FieldByName('O140A_005').AsDateTime;
ASpecInfo.AToDate:=SYSDM.qryQuery.FieldByName('O140A_006').AsDateTime;
ASpecInfo.ACurr:=SYSDM.qryQuery.FieldByName('O140A_007').AsString;
ASpecInfo.AIsSum:=SYSDM.qryQuery.FieldByName('O140A_008').AsBoolean;
ASpecInfo.AItemNo:=SYSDM.qryQuery.FieldByName('O140A_011').AsInteger;
ASpecInfo.AItemClass:=SYSDM.qryQuery.FieldByName('O140A_012').AsInteger;
ASpecInfo.ACustNo:=SYSDM.qryQuery.FieldByName('O140A_013').AsInteger;
ASpecInfo.ACustClass:=SYSDM.qryQuery.FieldByName('O140A_014').AsInteger;
ASpecInfo.ACustGrade:=SYSDM.qryQuery.FieldByName('O140A_015').AsInteger;
ASpecInfo.ASaleNo:=SYSDM.qryQuery.FieldByName('O140A_016').AsInteger;
ASpecInfo.ASaleGrade:=SYSDM.qryQuery.FieldByName('O140A_017').AsInteger;
ASpecInfo.ARegionNo:=SYSDM.qryQuery.FieldByName('O140A_018').AsInteger;
ASpecInfo.AIsSame:=SYSDM.qryQuery.FieldByName('O140A_019').AsBoolean;
ASpecInfo.ARange:=SYSDM.qryQuery.FieldByName('O140A_020').AsInteger;
ASpecInfo.AAmtType:=SYSDM.qryQuery.FieldByName('O140A_021').AsInteger;
//日期在生效和失效范圍內
if (AOrderInfo.OrderDate<ASpecInfo.AFromDate) or (AOrderInfo.OrderDate>ASpecInfo.AToDate) then Exit;
//幣別編號（幣別相符，或為空）
if (ASpecInfo.ACurr<>'') and (ASpecInfo.ACurr<>IntToStr(AOrderInfo.CurrNo)) then Exit;
//料品編號（料品相符，或為空）
if (ASpecInfo.AItemNo<>0) and (ASpecInfo.AItemNo<>AOrderInfo.ItemNo) then Exit;
//料品分類（料品分類相符，或為空，或屬于其子類）
if (ASpecInfo.AItemClass<>0) and (ASpecInfo.AItemClass<>AItemClass) and (not IsInclude(ASpecInfo.AItemClass,AItemClass,0)) then Exit;
//客戶編號（客戶相符，或為空）
if (ASpecInfo.ACustNo<>0) and (ASpecInfo.ACustNo<>AOrderInfo.CustNo) then Exit;
//客戶分類（客戶分類相符，或為空，或屬于其子類）
if (ASpecInfo.ACustClass<>0) and (ASpecInfo.ACustClass<>ACustClass) and (not IsInclude(ASpecInfo.ACustClass,ACustClass,1)) then Exit;
//客戶級別（客戶級別相符，或為空）
if (ASpecInfo.ACustGrade<>0) and (ASpecInfo.ACustGrade<>ACustGrade) then Exit;
//銷售員號（銷售員相符，或為空）
if (ASpecInfo.ASaleNo<>0) and (ASpecInfo.ASaleNo<>AOrderInfo.SaleNo) then Exit;
//銷售員級別（銷售員級別相符，或為空）
if (ASpecInfo.ASaleGrade<>0) and (ASpecInfo.ASaleGrade<>ASaleGrade) then Exit;
//交貨地區（交貨地區相符，或為空，或屬于其子類）
if (ASpecInfo.ARegionNo<>0) and (ASpecInfo.ARegionNo<>AOrderInfo.RegionNo) and (not IsInclude(ASpecInfo.ARegionNo,AOrderInfo.RegionNo,2)) then Exit;
Result:=True;
end;
//取得特殊價格及總額折扣
function GetSpecPrice(ASpecNo:Integer;AOrderInfo:TOrderInfo;var APriceInfo:TPriceInfo):Boolean;
var
ASpecInfo:TSpecInfo;
AItemClass,ACustClass,ACustGrade,ASaleGrade,ANo,I:Integer;
AValue,Amount:Double;
AStringList:TStringList;
AIsExists:Boolean;
begin
Result:=False;
//1.取得料品分類、客戶分類、客戶級別、銷售員級別
SYSDM.qryQuery.Close;
SYSDM.qryQuery.SQL.Clear;
SYSDM.qryQuery.SQL.Add('select I150_005 from INV150 where I150_001='+IntToStr(AOrderInfo.ItemNo));
SYSDM.qryQuery.Open;
AItemClass:=SYSDM.qryQuery.Fields[0].AsInteger;
SYSDM.qryQuery.Close;
SYSDM.qryQuery.SQL.Clear;
SYSDM.qryQuery.SQL.Add('select O150_010,O150_041 from ORD150 where O150_001='+IntToStr(AOrderInfo.CustNo));
SYSDM.qryQuery.Open;
ACustClass:=SYSDM.qryQuery.Fields[0].AsInteger;
ACustGrade:=SYSDM.qryQuery.Fields[1].AsInteger;
SYSDM.qryQuery.Close;
SYSDM.qryQuery.SQL.Clear;
SYSDM.qryQuery.SQL.Add('select H150_024 from HRM150 where H150_001='+IntToStr(AOrderInfo.SaleNo));
SYSDM.qryQuery.Open;
ASaleGrade:=SYSDM.qryQuery.Fields[0].AsInteger;
//2.取得特價記錄的設置信息 并 檢驗是否符合條件
if not CheckSpecInfo(ASpecNo,AItemClass,ACustClass,ACustGrade,ASaleGrade,AOrderInfo,ASpecInfo) then Exit;
APriceInfo.IsBySum:=ASpecInfo.AIsSum;
Amount:=0;
case ASpecInfo.AAmtType of
0:Amount:=AOrderInfo.LineSumAmt; //0=銷售總額=定單行銷售總額
1:Amount:=AOrderInfo.LineSumAmt-AOrderInfo.LineDisAmt; //1=定單總額=定單行銷售總額-定單行總折扣額
2:Amount:=AOrderInfo.LineSumAmt-AOrderInfo.LineDisAmt+AOrderInfo.ChargeAmt; //2=應收總額=定單總額+特殊費用
3:Amount:=AOrderInfo.LineSumAmt-AOrderInfo.LineDisAmt-AOrderInfo.OrdDisAmt; //3=折后總額=定單總額-定單總折扣額
4:Amount:=AOrderInfo.LineSumAmt-AOrderInfo.LineDisAmt+AOrderInfo.ChargeAmt-AOrderInfo.OrdDisAmt; //4=凈應收額=定單總額+特殊費用-定單總折扣額
end;
APriceInfo.Amount:=Amount;
//3.依據特價類型計算其數量或金額
AValue:=0;
case ASpecInfo.AType of
0:AValue:=AOrderInfo.OrderQty; //0=基于數量的折扣率
1:AValue:=AOrderInfo.OrderQty; //1=基于數量的價格
2:AValue:=AOrderInfo.OrderQty*APriceInfo.StdPrice; //2=基于金額的折扣率
3:AValue:=AOrderInfo.OrderQty*APriceInfo.StdPrice; //3=基于金額的價格
end;
if ASpecInfo.AIsSum then AValue:=Amount;
//4.取得應用對象的編號
ANo:=0;
case ASpecInfo.ARange of
0:ANo:=AOrderInfo.ItemNo; //0=料品編號
1:ANo:=AItemClass; //1=料品分類
2:ANo:=AOrderInfo.CustNo; //2=客戶編號
3:ANo:=ACustClass; //3=客戶分類
4:ANo:=ACustGrade; //4=客戶級別
5:ANo:=AOrderInfo.SaleNo; //5=銷售員號
6:ANo:=ASaleGrade; //6=銷售員級別
7:ANo:=AOrderInfo.RegionNo; //7=交貨地區
end;
//5.取得所有上級類別的編號
AStringList:=TStringList.Create;
case ASpecInfo.ARange of
1:GetParentNo(ANo,0,AStringList);
3:GetParentNo(ANo,1,AStringList);
7:GetParentNo(ANo,2,AStringList);
else
AStringList.Add(IntToStr(ANo));
end;
//取得適用范圍的編號
AIsExists:=False;
SYSDM.qryQuery.Close;
SYSDM.qryQuery.SQL.Clear;
SYSDM.qryQuery.SQL.Add('select * from ORD140B where O140B_001='+IntToStr(ASpecNo));
SYSDM.qryQuery.Open;
if not SYSDM.qryQuery.IsEmpty then
begin
//按級別一級一級向上查找
for I:=0 to AStringList.Count-1 do
begin
if SYSDM.qryQuery.Locate('O140B_003',AStringList[I],[]) then
begin
ANo:=SYSDM.qryQuery.FieldByName('O140B_003').AsInteger;
AIsExists:=True;
Break;
end;
end;
end;
if (not SYSDM.qryQuery.IsEmpty) and (not AIsExists) then Exit;
if (SYSDM.qryQuery.IsEmpty) or (ASpecInfo.AIsSame) then ANo:=0;
SYSDM.qryQuery.Close;
SYSDM.qryQuery.SQL.Clear;
SYSDM.qryQuery.SQL.Add('select * from ORD140C where O140C_001='+IntToStr(ASpecNo)+' and O140C_002='+IntToStr(ANo)+' order by O140C_003 desc');
SYSDM.qryQuery.Open;
while not SYSDM.qryQuery.Eof do
begin
if AValue>=SYSDM.qryQuery.FieldByName('O140C_003').Value then
begin
if ASpecInfo.AIsSum then //總額折扣
begin
case ASpecInfo.AType of
0://0=基于數量的折扣率
begin
APriceInfo.DisAmt:=Amount*SYSDM.qryQuery.FieldByName('O140C_004').Value;
APriceInfo.OrdPrice:=Amount*SYSDM.qryQuery.FieldByName('O140C_004').Value;
end;
1://1=基于數量的價格
begin
APriceInfo.DisAmt:=SYSDM.qryQuery.FieldByName('O140C_004').Value;
APriceInfo.OrdPrice:=SYSDM.qryQuery.FieldByName('O140C_004').Value;
end;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -