|
|
| Line 27: |
Line 27: |
| <br /> | | <br /> |
|
| |
|
| ==Sales Documents Entry== | | ==Reporting== |
| 1. Sales documents entry are:- | | 1. As long the reports parameter has '''Project''', '''Agent''', '''Area''', or '''Location''' these report able to lock by user. For instances:- |
| ::* Quotation | | ::* Customer Aging |
| ::* Sales Order | | ::* Sales/Purchase Document Listing |
| ::* Delivery Order | | ::* Stock Card |
| ::* Invoice | | ::* etc... |
| ::* Debit Note
| | <br /> |
| ::* Credit Note
| |
|
| |
|
| 2. Insert and update the following DIY fields & Script into above mentions sales documents in Tools | DIY | SQL Control Center... <br /> | | 2. Insert and update the following DIY fields & Script into above mentions sales documents in Tools | DIY | SQL Control Center... <br /> |
| a) DIY Fields<br />
| | DIY Script: '''OnGridColumnValueChange''' event<br /> |
| ::{| class="wikitable"
| |
| |-
| |
| ! Type !! Field Name !! Data Types !! Length
| |
| |-
| |
| | DIY-F || Length || Float || Size: 10 <br />SubSize: 4
| |
| |-
| |
| | DIY-F || LinearWeight || Float || Size: 10 <br />SubSize: 4
| |
| |-
| |
| | DIY-F || UnitPrice_Kg || Float || Size: 10 <br />SubSize: 4
| |
| |-
| |
| | DIY-F || UnitPrice_Pcs || Float || Size: 10 <br />SubSize: 4
| |
| |-
| |
| | DIY-F || Qty_Kg || Float || Size: 10 <br />SubSize: 4
| |
| |-
| |
| | DIY-F || Qty_Pcs || Float || Size: 10 <br />SubSize: 4
| |
| |}
| |
| <br />
| |
| | |
| b. DIY Script: '''OnGridColumnValueChange''' event<br />
| |
| <syntaxhighlight lang="delphi"> | | <syntaxhighlight lang="delphi"> |
| var
| |
| FComServer : Variant;
| |
|
| |
|
| function ComServer: Variant;
| |
| begin
| |
| if FComServer = Null then begin
| |
| FComServer := CreateOleObject('SQLAcc.BizApp');
| |
| end;
| |
| Result := FComServer;
| |
| end;
| |
|
| |
| var
| |
| lSQL, lCode : String;
| |
| cdsTemp : TClientDataSet;
| |
| D : TDataSource;
| |
|
| |
| begin
| |
| FComServer := null;
| |
| D := TDataSource(Self.FindComponent('dsDocDetail'));
| |
|
| |
| cdsTemp := TClientDataSet.Create(nil);
| |
| lCode := D.DataSet.FindField('ItemCode').AsString;
| |
| lSQL := Format('SELECT UDF_LinearWeight FROM ST_ITEM WHERE Code=%s ',[QuotedStr(lCode)]);
| |
| cdsTemp.Data := ComServer.DBManager.Execute(lSQL);
| |
|
| |
| //select item and batch to retrieve the linear weight from item master
| |
| if SameText(editingfield,'ItemCode') or
| |
| SameText(editingfield,'Batch') then begin
| |
| D.DataSet.FindField('UDF_LinearWeight').Value := cdsTemp.FindField('UDF_LinearWeight').Value;
| |
| D.DataSet.FindField('UDF_Length').Value := 0;
| |
| end;
| |
|
| |
| //select batch as "Length value"
| |
| if SameText(editingfield,'Batch') then begin
| |
| D.DataSet.FindField('UDF_Length').Value := D.DataSet.FindField('Batch').Value;
| |
| end;
| |
|
| |
| //key-in unit price per kg to convert into unit price per pcs
| |
| if SameText(editingfield,'UDF_UnitPrice_Kg') or
| |
| SameText(editingfield,'Batch') then begin
| |
| D.DataSet.FindField('UDF_UnitPrice_Pcs').AsFloat := (D.DataSet.FindField('UDF_UnitPrice_Kg').AsFloat*
| |
| D.DataSet.FindField('UDF_Length').AsFloat*
| |
| D.DataSet.FindField('UDF_LinearWeight').AsFloat);
| |
| end;
| |
|
| |
| //key-in unit price per pcs to convert into unit price per kg
| |
| if SameText(editingfield,'UDF_UnitPrice_Pcs') or
| |
| SameText(editingfield,'Batch') then begin
| |
| D.DataSet.FindField('UDF_UnitPrice_Kg').AsFloat := (D.DataSet.FindField('UDF_UnitPrice_Pcs').AsFloat/
| |
| D.DataSet.FindField('UDF_Length').AsFloat/
| |
| D.DataSet.FindField('UDF_LinearWeight').AsFloat);
| |
| end;
| |
|
| |
| //to compute the subtotal either based on unit price per pcs or per kg
| |
| if (D.DataSet.FindField('UDF_Length').Value <> 0.0000) or
| |
| (D.DataSet.FindField('UDF_LinearWeight').Value <> 0.000) or
| |
| (D.DataSet.FindField('UDF_Qty_Pcs').Value <> 0.0000) or
| |
| (D.DataSet.FindField('UDF_UnitPrice_Pcs').Value <> 0.0000) then begin
| |
| D.DataSet.FindField('Qty').Value := D.DataSet.FindField('UDF_Qty_Pcs').AsFloat;
| |
| D.DataSet.FindField('UnitPrice').Value := D.DataSet.FindField('UDF_UnitPrice_Pcs').AsFloat;
| |
| D.DataSet.FindField('UDF_Qty_Kg').AsFloat := (D.DataSet.FindField('UDF_Length').AsFloat*
| |
| D.DataSet.FindField('UDF_LinearWeight').AsFloat*
| |
| D.DataSet.FindField('UDF_Qty_Pcs').AsFloat);
| |
| end;
| |
|
| |
|
| |
| FComServer := null;
| |
| cdsTemp.Free;
| |
|
| |
| end.
| |
| </syntaxhighlight> | | </syntaxhighlight> |
| <br /> | | <br /> |
|
| |
|
| |
| '''Formula:''' <br />
| |
| 1. Unit price per Pcs = Unit price per Kg x Length x Linear Weight
| |
| 2. Unit price per Kg = Unit price per Pcs / Length / Linear Weight
| |
| 3. Total Weight = Length x Linear Weight x No of Pcs
| |
| <br />
| |
| ''Both formula results are rounding up to 4 decimals.''
| |
|
| |
|
| ==See also== | | ==See also== |
| * Others [[Customisation]] | | * Others [[Customisation]] |
