+
+
+## Lazada
+
+Shopee - click to expand
+ +### How does the system post when Shipping Fees Charges is higher than Seller Paid Amount that causes the Escrow Amount becomes negative ? + + + +System will Post to **Sales CN** and set Qty in Negative (In the **Order Tab**). +When Load in Income statement(.xls) files into **Payment Tab**, system will auto post to **Customer Refund**. + +### How system post for Order Cancelled with Posted Invoice ? + +This usually happens when Buyer is not at Home after a few attempts sent and seller decided to cancel the Order. + + + +### How System handle Payment Withdraw ? + +[How do i get my payment back?](https://help.shopee.com.my/portal/4/article/173133-%5BShopeePay%5D-ShopeePay-App-Withdrawals?previousPage=search%20recommendation%20bar) + +[How to Post In SQL Accounting? Video](https://www.youtube.com/watch?v=PloG3CeHA1w) + +### Why when i load the payments , the date looks incorrect ? + +Try redownload again from shopee as shopee had updated the format. + + + +
+
diff --git a/docs/integration/e-commerce/easystore.md b/docs/integration/e-commerce/easystore.md
index 279bdf8e..947aef3e 100644
--- a/docs/integration/e-commerce/easystore.md
+++ b/docs/integration/e-commerce/easystore.md
@@ -8,13 +8,13 @@ tags: ["SQL Account", "Integration", "e-Commerce", "EasyStore"]
## Maintain Cloud Account
-1. Select ** > Maintain Cloud Account** (One Time Setting)
+1. Select ** > Maintain Cloud Account** (One Time Setting)
- 
+ 
2. Click on NEW
- 
+ 
1. Enter Description "**EasyStore**"
@@ -24,17 +24,17 @@ tags: ["SQL Account", "Integration", "e-Commerce", "EasyStore"]
3. Paste your Easy Store URL and press **GO**
- 
+ 
4. **Login** with your credentials and then press **Install**
- 
+ 
- 
+ 
5. Press SAVE
- 
+ 
- Once linking Successful, system will be returned status Linking Success Message.
@@ -44,11 +44,11 @@ tags: ["SQL Account", "Integration", "e-Commerce", "EasyStore"]
1. Create EasyStore Voucher / Discount Account Under Sales Adjustment
- 
+ 
2. Create Shipping and Transaction Fee under Expenses
- 
+ 
:::info
It is up to company want to create under which category. Some of the Company will create under Cost of Goods Sold.
@@ -56,7 +56,7 @@ tags: ["SQL Account", "Integration", "e-Commerce", "EasyStore"]
2. Customer > Maintain Customer
- 
+ 
3. Stock > Maintain Stock Group
@@ -64,11 +64,11 @@ tags: ["SQL Account", "Integration", "e-Commerce", "EasyStore"]
1. Create Discount Stock Group
- 
+ 
2. Create Voucher Stock Group
- 
+ 
- Repeat same step to create for Shipping and Transaction Fees Stock Group
@@ -76,11 +76,11 @@ tags: ["SQL Account", "Integration", "e-Commerce", "EasyStore"]
1. Create Discount Stock Item
- 
+ 
2. Create Voucher Item Code
- 
+ 
- Repeat same step to create for Shipping and Transaction Fees Item Code
@@ -88,15 +88,15 @@ tags: ["SQL Account", "Integration", "e-Commerce", "EasyStore"]
1. Click on - >Easy Store
- 
+ 
- 
+ 
2. Click on Account Tab > Double click on your account
1. Mapping Code
- 
+ 
## Product Tab
@@ -104,39 +104,39 @@ tags: ["SQL Account", "Integration", "e-Commerce", "EasyStore"]
1. Click on Product Tab > Click on Fetch Button > System will return the message when fetching done.
- 
+ 
2. Verify Status: Exist in Stock Item are meaning SQL and EasyStore Shop SKU are having the same Item Code.
- 
+ 
If you decide to use the same item code as EasyStore Shop SKU, click on select All records > press on Post button for the first time so system will remember the settings.
- 
+ 
3. Verify Status: Success when posting done
- 
+ 
:::note
Once you post successful, system will keep the ID in Stock Item as Alternative Item
:::
- 
+ 
4. You can still decide to map to different item code (system will auto ticked the record you change the item code), once done all, click on POST button.
- 
+ 
## Orders Tab
1. Click on Orders Tab
- 
+ 
2. Status – Default Post Action
- 
+ 
|Status|Posting To Sales Quotation|Posting to Sales Invoice|
|---|---|---|
@@ -152,11 +152,11 @@ tags: ["SQL Account", "Integration", "e-Commerce", "EasyStore"]
1. Select Date Range > Click on Refresh Order
- 
+ 
Please be patient, system is on the way to fetch the order from EasyStore
- 
+ 
System will return the message when Fetching Done, Press OK.
@@ -164,23 +164,23 @@ tags: ["SQL Account", "Integration", "e-Commerce", "EasyStore"]
1. Click on the status you want to post the order, let us take an example on Paid Status > Ticked all > Click on Post
- 
+ 
2. If you did not tick on any order when do the posting, system will raise a message: You have not selected any order. Would you like to select all? If you would like to post all > Press Yes
- 
+ 
Please be patient to wait for the order posting.
- 
+ 
3. Click on OK when done posting
- 
+ 
5. Verify Status
- 
+ 
1. Posted
- Earlier Order posted before, system will ignore.
@@ -198,23 +198,23 @@ tags: ["SQL Account", "Integration", "e-Commerce", "EasyStore"]
3. Click on Post
- 
+ 
6. Sales Invoice
- Example of Sales Invoice posted from EasyStore | Orders.
- 
+ 
- 
+ 
7. Status – Others than Default POST Action
- Beside the post button, press the black triangle, and select “Post” to post it to sales invoice.
- 
+ 
- 
+ 
## FAQ
@@ -222,13 +222,13 @@ tags: ["SQL Account", "Integration", "e-Commerce", "EasyStore"]
1. Login to your EasyStore account and go to Channls > and click Online Store
- 
+ 
2. Then click Domains and copy the “easy.co” domain.
- 
+ 
- 
+ 
2. How to do if have multiple location for each store?
@@ -242,18 +242,18 @@ tags: ["SQL Account", "Integration", "e-Commerce", "EasyStore"]
4. Fetch Order raise error : E097 : Offset and limit sum 5100 must less than 5000, request id : 2101235d16xxxx
- 
+ 
- EasyStore API Returned error as too huge transaction being fetched, the only way is to shorten the date period.
5. The specified access token is invalid or expired.
- 
+ 
- EasyStore API link expired, you are required to go back maintain cloud and link again with EasyStore platform (Refer Step 1.1.3 – 1.1.5)
6. API access frequently exceeds the limit. This ban will last 1 seconds.
- 
+ 
- Error appears after click Fetch. Solution, close your EasyStore tab in SQL Account > re-open it > click “Fetch” button again
diff --git a/docs/integration/e-commerce/lazada-vs-shopee.md b/docs/integration/e-commerce/lazada-vs-shopee.md
index fcafeacd..41521e72 100644
--- a/docs/integration/e-commerce/lazada-vs-shopee.md
+++ b/docs/integration/e-commerce/lazada-vs-shopee.md
@@ -12,20 +12,20 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Posting order", "Shopee", "L
1. When you post order in Shopee, all transaction fee / shipping fees are finalised when post order to invoice. SQL captures the **escrow amount** as the **Net Total**
- 
+ 
2. When post payment, the payment amount will tally with the invoice amount. No adjustment
is made.
- 
+ 
### Shopee Order Returned
1. When a returned order is posted into SQL, it will be posted into SQL Invoice and will be transferred to Credit Note.
- 
+ 
- 
+ 
:::note
There are small no of cases where the escrow amount and the posted order amount is different. For such cases, SQL system will make the adjustment either editing on invoice or CN when payment is posted to make it tally.
@@ -35,23 +35,23 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Posting order", "Shopee", "L
1. When you post your order, the system has not finalized the transaction, shipping, marketing fees. You will only see the stock item in the invoice.
- 
+ 
- 
+ 
2. The shipping fees and transaction fees will be added after posting payment.
3. Load the payment file, and post
- 
+ 
Payment has been created
- 
+ 
4. After posting, you will notice that the invoice has been edited and the additional fees has been added. The Delivery Date is the posting date of the transaction entries.
- 
+ 
### Lazada Multiple Payment files
@@ -62,7 +62,7 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Posting order", "Shopee", "L
2. If order is a returned, and the first payment file has a **positive payment amount** , the returned order will be posted into Invoice first. The invoice **Net Total will be 0** value.
3. Order and Payment Posting for Lazada:
- 
+ 
- Positive Amount / Negative Amount = SUM Total Amount for same Order as per Payment File
@@ -70,9 +70,9 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Posting order", "Shopee", "L
Order 338719603950977 is posted as invoice :
- 
+ 
- 
+ 
Payment file 1 (positive amount) :
@@ -82,28 +82,28 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Posting order", "Shopee", "L
:::
- 
+ 
Payment File 2 (negative amount):
- 
+ 
Payment File 3 (negative amount):
- 
+ 
Invoice :
- 
+ 
Payment:
- 
+ 
Credit Note :
- 
+ 
Customer Refund:
- 
+ 
diff --git a/docs/integration/e-commerce/lazada.md b/docs/integration/e-commerce/lazada.md
index 1feb6b6d..2e65ca02 100644
--- a/docs/integration/e-commerce/lazada.md
+++ b/docs/integration/e-commerce/lazada.md
@@ -7,13 +7,13 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
## Maintain Cloud Account
-1. Select ** > Maintain Cloud Account** (One Time Setting)
+1. Select ** > Maintain Cloud Account** (One Time Setting)
- 
+ 
2. Click on NEW
- 
+ 
1. Enter **Description**
@@ -23,15 +23,15 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
3. Select Platform
- 
+ 
4. Login with your credentials
- 
+ 
5. Press on SAVE
- 
+ 
- Once linking Successful, system will be returned status Linking Success Message.
@@ -41,11 +41,11 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
1. Create Lazada Voucher / Discount Account Under Sales Adjustment
- 
+ 
2. Create Shipping and Transaction Fee under Expenses
- 
+ 
:::info
@@ -55,7 +55,7 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
2. Customer > Maintain Customer
- 
+ 
3. Stock > Maintain Stock Group
@@ -63,11 +63,11 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
1. Create Discount Stock Group
- 
+ 
2. Create Voucher Stock Group
- 
+ 
- Repeat same step to create for Shipping and Transaction Fees Stock Group
@@ -75,11 +75,11 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
1. Create Discount Stock Item
- 
+ 
2. Create Voucher Item Code
- 
+ 
- Repeat same step to create for Shipping and Transaction Fees Item Code
@@ -89,11 +89,11 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
2. Click on Account Tab > Double click on your account
- 
+ 
1. Mapping Code
- 
+ 
2. Expiry Date
@@ -107,15 +107,15 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
2. Click on “**Products**” Tab, then click on “**Manage Products**” and then click “**Bulk Manage**”
- 
+ 
3. Select “Bulk Edit” option
- 
+ 
4. Press “**Export Excel Template**” and save it to your computer location.
- 
+ 
You can choose to have Lazada SKU as SQL Item Code by import to SQL. May contact your service agent to assist on this product import.
@@ -123,31 +123,31 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
6. Click on Product Tab > Click on Fetch Button > System will return the message when fetching done.
- 
+ 
7. Verify Status: Exist in Stock Item are meaning SQL and Seller SKU are having the same Item Code.
- 
+ 
:::info
If you decide to use the same item code as Seller Sku, click on select All records > press on Post button for the first time so system will remember the settings.
:::
- 
+ 
8. Verified Status: Success when posting done
- 
+ 
:::note
Once you post successful, system will keep the Shop SKU in Stock Item as Alternative Item
:::
- 
+ 
9. You can still decide to map to different item code (system will auto ticked the record you change the item code), once done all, click on POST button.
- 
+ 
[Youtube](https://www.youtube.com/watch?v=B9UmhTYjFHM)
@@ -155,13 +155,13 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
1. Click on Orders Tab
- 
+ 
2. Status – Default Post Action
- 
+ 
- 
+ 
Remark: Each order number will be posted once. You can delete the Invoice if you want to repost.
@@ -169,13 +169,13 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
1. Select Date Range > Click on Refresh Order
- 
+ 
Please be patient, system is on the way to fetch the order from Lazada
- 
+ 
- 
+ 
System will return the message when Fetching Done, Press OK.
@@ -183,23 +183,23 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
1. Click on the status you want to post the order, let us take an example on Delivered Status > Ticked all > Click on Post
- 
+ 
2. If you did not tick on any order when do the posting, system will raise a message: You have not selected any order. Would you like to select all? If you would like to post all > Press Yes
- 
+ 
Please be patient to wait for the order posting.
- 
+ 
3. Click on OK when done posting
- 
+ 
5. Verify Status
- 
+ 
1. Posted
@@ -213,7 +213,7 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
- Normally repost will be fine.
- 
+ 
4. Failed – Missing Item Code
@@ -225,21 +225,21 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
3. Click on Post
- 
+ 
6. Sales Invoice
- Example of Sales Invoice posted from Lazada | Orders.
- 
+ 
- 
+ 
7. Sales Credit Note
- Example of Sales Credit Note posted from Lazada | Orders.
- 
+ 
Returned Sales will be posted to 1 document only.
@@ -247,9 +247,9 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
Select **“Post”** to post it to sales invoice.
- 
+ 
- 
+ 
[Youtube](https://www.youtube.com/watch?v=jrts5wSRecA)
@@ -257,9 +257,9 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
- Beside the post button, press the black triangle, and select ”Post” to post it to sales invoice.
- 
+ 
- 
+ 
## Payment Tab
@@ -271,15 +271,15 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
The new version of Lazada Seller Center, has changed the settlement period from weekly to daily.
:::
- 
+ 
2. At your Statement Overview, go to Settlement Report to see the weekly statement.
- 
+ 
3. Click “Download” and download the file of the weekly statement that contains the payments that you want to export.
- 
+ 
2. Posting Payment
@@ -287,21 +287,21 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
2. Click Load CSV (Statement downloaded from Step 1.6)
- 
+ 
3. Select the statement download from Lazada
- 
+ 
4. Click on Post
- 
+ 
5. Error in Red: Please sync all orders before posting payment.
- Due to some order yet posting to Invoice. Before you do the posting, you can check on Invoice No column, post the orders with empty Invoice No.
- 
+ 
:::info
Lazada required you to sync all order before can posting payment due to have to tally with bank recon.
@@ -309,33 +309,33 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
6. Once you check all the order have been posting (without empty Invoice No), click on Post
- 
+ 
7. Posting Payment / Editing Invoice for Lazada Fees, please be patient
- 
+ 
8. Cheque number already exists
- Press **Yes**, system capture Lazada Payment ref ID as Cheque number.
- 
+ 
User can choose to turn off prompt duplicate cheque number at Tools > Option > Miscellaneous > Unticked Prompt Duplicate Cheque Number.
- 
+ 
9. Posting done
- 
+ 
10. System will skip posting when Item Price is 0
- 
+ 
11. Example of Sales Invoice with added in Transaction Fees Posted from Lazada | Payment
- 
+ 
:::note
Version 794 – 801 will post to Sales CN
@@ -346,7 +346,7 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
12. Example of Customer Payment posted from Lazada | Payment
- System will auto do the knockoff
- 
+ 
:::note
Same Transaction Date will be posting as 1 Customer Payment.
@@ -356,7 +356,7 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
- 7 Days of payment will group as 1 row in bank recon for easier bank recon.
- 
+ 
:::note
Bank Slip No is Lazada Payment Ref ID
@@ -364,7 +364,7 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
Example of Bank Recon
- 
+ 
[Youtube](https://www.youtube.com/watch?v=PloG3CeHA1w)
@@ -376,12 +376,12 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
- Not paid status will not posting to Customer payment.
- 
+ 
2. Payment ref id not found
- Lazada allows seller to forward date download finance statement, without Payment ref ID which mean Lazada yet release payment to Seller, SQL will not posting without payment ref ID.
- 
+ 
## FAQ
@@ -415,7 +415,7 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
- Load in payment, when order date before system conversion date, right click Select Check Past Invoice, Click on Post Past Invoice
- 
+ 
- User required to post the past invoice in Order
@@ -425,7 +425,7 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
- Look for Order Date, system will show the Order Date on Verify Status with Order Not Posted
- 
+ 
8. How system handle for the scenario when first release payment in negative due to overcharge on shipping fees
@@ -435,32 +435,32 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Lazada"]
9. Fetch Order raise error : E097 : Offset and limit sum 5100 must less than 5000, request id : 2101235d16xxxx
- 
+ 
- Lazada API Returned error as too huge transaction being fetched, the only way is to shorten the date period.
10. The specified access token is invalid or expired
- 
+ 
- Lazada API link expired, you are required to go back maintain cloud and link again with Lazada platform (Refer Step 1.1.3 – 1.1.5)
11. API access frequently exceeds the limit. This ban will last 1 seconds
- 
+ 
- Error appears after click Fetch. Solution, close your Lazada tab in SQL Account > re-open it > click “Fetch” button again
12. How system handle “Failed Delivery" in SQL?
- 
+ 
Orders with “Failed Delivery” in Lazada will be fetch into SQL with the status as **canceled**.
If the order has transaction fees to offset, the canceled order can be posted as
Cancelled Sales Invoice.
- 
+ 
To post as invoice, click the black arrow beside the “Post” button and select “Post as
Cancelled Sales Invoice”.
diff --git a/docs/integration/e-commerce/shopee.md b/docs/integration/e-commerce/shopee.md
index f95e3388..36e526f4 100644
--- a/docs/integration/e-commerce/shopee.md
+++ b/docs/integration/e-commerce/shopee.md
@@ -7,13 +7,13 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
## Maintain Cloud Account
-1. Select ** > Maintain Cloud Account** (One Time Setting)
+1. Select ** > Maintain Cloud Account** (One Time Setting)
- 
+ 
2. Click on NEW
- 
+ 
1. Enter **Description**
@@ -23,15 +23,15 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
3. Login Shopee Credential
- 
+ 
4. Click on Confirm Authorization
- 
+ 
5. Press SAVE
- 
+ 
- Once linking Successful, system will be returned status Linking Success Message.
@@ -41,21 +41,21 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
1. Create Shopee Payment Method
- 
+ 
2. Create Shopee Voucher / Discount Account Under Sales Adjustment
- 
+ 
3. Create Shipping and Transaction Fee under Expenses
- 
+ 
- It is up to company want to create under which category. Some of the Company will create under Cost of Goods Sold.
2. Customer -> Maintain Customer
- 
+ 
3. Stock -> Maintain Stock Group
@@ -63,11 +63,11 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
1. Create Discount Stock Group
- 
+ 
2. Create Voucher Stock Group
- 
+ 
- Repeat same step to create for Shipping and Transaction Fees Stock Group
@@ -75,7 +75,7 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
1. Create Discount Stock Item
- 
+ 
:::note
Unticked Stock Control
@@ -83,21 +83,21 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
2. Create Voucher Item Code
- 
+ 
- Repeat same step to create for Shipping and Transaction Fees Item Code
## Account Tab
-1. Click on ''- > Shopee
+1. Click on ''- > Shopee
2. Click on Account Tab -> Double click on your account
- 
+ 
1. Mapping Code
- 
+ 
2. Expiry Date
@@ -114,13 +114,13 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
2. Click on “Batch Tools” and select “Mass Update”
- 
+ 
3. Click on “Generate” to generate the product list.
4. Click on “Download” to get the generated product list.
- 
+ 
You can choose to have Shopee SKU as SQL Item Code by import to SQL, may contact your service agent to assist on this product import.
@@ -128,29 +128,29 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
1. Click on Product Tab -> Click on Fetch Button -> System will return the message when fetching done.
- 
+ 
2. Verify Status: Exist in Stock Item are meaning SQL and Seller SKU are having the same Item Code.
- 
+ 
If you decide to use the same item code as Seller Sku, ticked on select All records -> press on Post button for the first time so system will remember the settings.
- 
+ 
3. Verified Status: Success when posting done
- 
+ 
:::note
Once you post successful, system will keep the Shop SKU in Stock Item as Alternative Item
:::
- 
+ 
4. You can still manually do the mapping on the item code (system will auto ticked the record you have change the item code), once done all, click on POST button.
- 
+ 
[Youtube](https://www.youtube.com/watch?v=B9UmhTYjFHM)
@@ -158,13 +158,13 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
1. Click on Orders Tab
- 
+ 
2. Status
- 
+ 
- 
+ 
:::tip
Each order number will be posted once. You can delete the Invoice if you want to repost.
@@ -174,37 +174,37 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
1. Select Date Range -> Click on Refresh Order
- 
+ 
Please be patient, system is on the way to fetch the order from Shopee
- 
+ 
System will return the message when Fetching Done, Press OK.
- 
+ 
4. Post Order
1. Click on the status you want to post the order, let us take an example on Completed Status -> Ticked all -> Click on Post
- 
+ 
2. If you did not tick on any order when do the posting, system will raise a message: You have not selected any order. Would you like to select all? If you would like to post all -> Press Yes
- 
+ 
Please be patient to wait for the order posting.
- 
+ 
3. Click on OK when done posting
- 
+ 
5. Verify Status
- 
+ 
1. Posted
@@ -226,7 +226,7 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
1. Ticked on the order
- 
+ 
2. Click on Item Code Drop Down, user can manually map the item code
@@ -236,17 +236,17 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
1. Double click on the order which you want to view the detail.
- 
+ 
2. Order details will be displayed.
- 
+ 
7. Sales Invoice
- Example of Sales Invoice posted from Shopee | Orders.
- 
+ 
1. Formula to calc Shipping Fees:
@@ -260,7 +260,7 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
Escrow Amount will be Shopee release amount.
:::
- 
+ 
:::note
Missing no 10 Discount Item Code?
@@ -276,11 +276,11 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
1. Example of Sales Credit Note posted from Shopee | Orders.
- 
+ 
2. Sales -> Invoice
- 
+ 
3. Escrow = RM 10.25(Escrow Amt) + 23.50(Product) = RM 33.75
@@ -298,11 +298,11 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
CN will be posting return product without Shipping and Transaction fees.
- 
+ 
**Customer -> Customer Credit Note**
- 
+ 
:::note
System will auto knockoff the Invoice.
@@ -310,7 +310,7 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
**Customer -> Customer Invoice**
- 
+ 
- Outstanding Amount will be Shopee Release Amount
@@ -318,27 +318,27 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
1. Select the order that need to be replaced and click on Replace.
- 
+ 
- 
+ 
2. The order selected will be replaced.
- 
+ 
10. Print
1. Click on Order No -> Print
- 
+ 
2. Select Report -> Press OK
- 
+ 
3. Sample Report
- 
+ 
[Youtube](https://www.youtube.com/watch?v=jrts5wSRecA)
@@ -352,7 +352,7 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
3. Click on “Export” button and finally “Download” the file.
- 
+ 
2. Posting Payment
@@ -360,25 +360,25 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
2. Click Load Excel
- 
+ 
3. Select the statement download from Shopee
- 
+ 
4. Check on Invoice No Column, make sure no blank Invoice No. It is advisable to post all the order first before do payment. Once done, click on Post
- 
+ 
Blank Invoice No mean order yet do the posting.
5. Posting Payment, please be patient
- 
+ 
6. Payment Posting done
- 
+ 
7. Example of Customer Payment posted from Shopee | Payment
@@ -388,15 +388,15 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
Example: On 7/12/2020, total payment received RM 1424.71
- 
+ 
**Customer -> Customer Payment**
- 
+ 
System will auto do the knockoff.
- 
+ 
3. Withdrawal
@@ -410,7 +410,7 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
3. GL -> Cash Book Entry -> New OR
- 
+ 
[Youtube](https://www.youtube.com/watch?v=PloG3CeHA1w)
@@ -432,7 +432,7 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Shopee"]
4. How system handle the situation when Shipping Fees charges Seller Paid Amount cause escrow amount in negative?
- 
+ 
1. This scenario system will post to **Sales CN** and **Customer Refund**.
diff --git a/docs/integration/e-commerce/tiktok.md b/docs/integration/e-commerce/tiktok.md
index a2dcb319..acc055a9 100644
--- a/docs/integration/e-commerce/tiktok.md
+++ b/docs/integration/e-commerce/tiktok.md
@@ -8,13 +8,13 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Tiktok"]
## Maintain Cloud Account
-1. Select ** > Maintain Cloud Account** (One Time Setting)
+1. Select ** > Maintain Cloud Account** (One Time Setting)
- 
+ 
2. Click on NEW
- 
+ 
1. Enter **Description “Tik Tok”**
@@ -24,19 +24,19 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Tiktok"]
3. Select Platform
- 
+ 
Select your account type to start the authorization process
- 
+ 
4. Login with your credentials
- 
+ 
5. Press SAVE
- 
+ 
- Once linking Successful, system will be returned status Linking Success Message.
@@ -46,17 +46,17 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Tiktok"]
1. Create TikTok Voucher / Discount Account Under Sales Adjustment
- 
+ 
2. Create Shipping and Transaction Fee under Expenses
- 
+ 
- It is up to company want to create under which category. Some of the Company will create under Cost of Goods Sold.
2. Customer -> Maintain Customer
- 
+ 
3. Stock -> Maintain Stock Group
@@ -64,10 +64,10 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Tiktok"]
1. Create Discount Stock Group
- 
+ 
2. Create Voucher Stock Group
- 
+ 
- Repeat same step to create for Shipping and Transaction Fees Stock Group
@@ -75,11 +75,11 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Tiktok"]
1. Create Discount Stock Item
- 
+ 
2. Create Voucher Item Code
- 
+ 
- Repeat same step to create for Shipping and Transaction Fees Item Code
@@ -87,51 +87,51 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Tiktok"]
1. Click on - > TikTok
- 
+ 
2. Click on Account Tab -> Double click on your account
1. Mapping Code
- 
+ 
## Product Tab : Fetch Product
1. Click on Product Tab -> Click on Fetch Button -> System will return the message when fetching done.
- 
+ 
2. Verify Status: Exist in Stock Item are meaning SQL and TikTok Shop SKU are having the same Item Code.
- 
+ 
If you decide to use the same item code as Tiktok Shop Sku, click on select All records -> press on Post button for the first time so system will remember the settings.
- 
+ 
3. Verified Status: Success when posting done
- 
+ 
:::note
Once you post successful, system will keep the ID in Stock Item as Alternative Item
:::
- 
+ 
4. You can still decide to map to different item code (system will auto ticked the record you change the item code), once done all, click on POST button.
- 
+ 
## Orders Tab
1. Click on Orders Tab
- 
+ 
2. Status – Default Post Action
- 
+ 
:::info
Each order number will be posted once. You can delete the Invoice if you want to repost.
@@ -141,11 +141,11 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Tiktok"]
1. Select Date Range -> Click on Refresh Order
- 
+ 
Please be patient, system is on the way to fetch the order from TikTok
- 
+ 
System will return the message when Fetching Done, Press OK.
@@ -153,23 +153,23 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Tiktok"]
1. Click on the status you want to post the order, let us take an example on Delivered Status -> Ticked all -> Click on Post
- 
+ 
2. If you did not tick on any order when do the posting, system will raise a message: You have not selected any order. Would you like to select all? If you would like to post all -> Press Yes
- 
+ 
Please be patient to wait for the order posting.
- 
+ 
3. Click on OK when done posting
- 
+ 
5. Verify Status
- 
+ 
1. Posted
@@ -189,7 +189,7 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Tiktok"]
1. Click on Item Code Drop Down, user can manually map the item code
- 
+ 
2. Ticked on the record you want to post
@@ -199,17 +199,17 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Tiktok"]
- Example of Sales Invoice posted from TikTok | Orders.
- 
+ 
- 
+ 
7. Status – Others than Default POST Action
- Beside the post button, press the black triangle, and select “Post” to post it to sales invoice.
- 
+ 
- 
+ 
## Payment Tab
@@ -217,7 +217,7 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Tiktok"]
1. Click on Seller Center -> Finance Tab on left menu -> Settled Records -> Export
- 
+ 
2. Posting Payment
@@ -225,21 +225,21 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Tiktok"]
2. Click Load CSV (Statement downloaded from Step 1.6)
- 
+ 
3. Select the statement download from TikTok
- 
+ 
4. Click on Post
- 
+ 
5. Error in Red: Please sync all orders before posting payment.
- Due to some order yet posting to Invoice. Before you do the posting, you can check on Invoice No column, post the orders with empty Invoice No.
- 
+ 
:::note
@@ -249,15 +249,15 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Tiktok"]
6. Once you check all the order have been posting (without empty Invoice No), click on Post
- 
+ 
7. Posting Payment / Editing Invoice for TikTok Fees, please be patient
- 
+ 
8. Posting done
- 
+ 
9. Example of Customer Payment posted from TikTok | Payment
@@ -267,17 +267,17 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Tiktok"]
Same Payment Transaction Date will be posting as 1 Customer Payment.
:::
- 
+ 
- 
+ 
10. If the Order No starts with “ 7 ”, it is an adjustment, SQL System will combine the transactions that start with number “ 7 ” of the same date and post into 1 invoice (description : Tiktok Adjustment) using the SQL Systems current running number.
- 
+ 
- 
+ 
- 
+ 
## FAQ
@@ -293,18 +293,18 @@ tags: ["SQL Account", "Integration", "e-Commerce", "Tiktok"]
3. Fetch Order raise error : E097 : Offset and limit sum 5100 must less than 5000, request id : 2101235d16xxxx
- 
+ 
- TikTok API Returned error as too huge transaction being fetched, the only way is to shorten the date period.
4. The specified access token is invalid or expired.
- 
+ 
- TikTok API link expired, you are required to go back maintain cloud and link again with TikTok platform (Refer Step 1.1.3 – 1.1.5)
5. API access frequently exceeds the limit. This ban will last 1 seconds.
- 
+ 
- Error appears after click Fetch. Solution, close your TikTok tab in SQL Account -> re-open it -> click “Fetch” button again
diff --git a/docs/integration/e-commerce/woocommerce.md b/docs/integration/e-commerce/woocommerce.md
index 4ef79b78..5efe2aae 100644
--- a/docs/integration/e-commerce/woocommerce.md
+++ b/docs/integration/e-commerce/woocommerce.md
@@ -7,13 +7,13 @@ tags: ["SQL Account", "Integration", "e-Commerce", "WooCommerce"]
## Maintain Cloud Account
-1. Select ** > Maintain Cloud Account** (One Time Setting)
+1. Select ** > Maintain Cloud Account** (One Time Setting)
- 
+ 
2. Click on NEW
- 
+ 
1. Enter **Description**
@@ -21,25 +21,25 @@ tags: ["SQL Account", "Integration", "e-Commerce", "WooCommerce"]
3. Click on **Link** Button
- 
+ 
4. Enter store URL
- 
+ 
5. Go to your shop website and copy this first part of the URL:
- 
+ 
6. Paste in you SQL Account and press GO
- 
+ 
7. Login to your Woocommerce account.
3. Press on SAVE
- 
+ 
- Once linking Successful, system will be returned status Linking Success Message.
@@ -49,17 +49,17 @@ tags: ["SQL Account", "Integration", "e-Commerce", "WooCommerce"]
1. Create Voucher / Discount Account Under Sales Adjustment
- 
+ 
2. Create Shipping and Transaction Fee under Expenses
- 
+ 
- It is up to company want to create under which category. Some of the Company will create under Cost of Goods Sold.
2. Customer > Maintain Customer
- 
+ 
3. Stock > Maintain Stock Group
@@ -67,11 +67,11 @@ tags: ["SQL Account", "Integration", "e-Commerce", "WooCommerce"]
1. Create Discount Stock Group
- 
+ 
2. Create Voucher Stock Group
- 
+ 
- Repeat same step to create for Shipping, Transaction Fees and Claim Stock Group
@@ -79,25 +79,25 @@ tags: ["SQL Account", "Integration", "e-Commerce", "WooCommerce"]
1. Create Discount Stock Item
- 
+ 
2. Create Voucher Item Code
- 
+ 
- Repeat same step to create for Shipping, Transaction Fees and Claim Item Code
## Account Tab
- 1. Click on  - > Woocommerce
+ 1. Click on  - > Woocommerce
2. Click on Account Tab > Double click on your account
- 
+ 
1. Mapping Code
- 
+ 
2. Expiry Date
@@ -111,15 +111,15 @@ tags: ["SQL Account", "Integration", "e-Commerce", "WooCommerce"]
1. Click on “Products” Tab, then click on “All Products”
- 
+ 
2. Click on the “Export” button
- 
+ 
3. Click “Generate CSV” once the export file has been generated. You will receive a file in .csv format.
- 
+ 
4. Load the file into Microsoft Office. Then you can edit the details you need.
@@ -129,43 +129,43 @@ tags: ["SQL Account", "Integration", "e-Commerce", "WooCommerce"]
1. Click on Product Tab > Click on Fetch Button > System will return the message when fetching done.
- 
+ 
- 
+ 
2. Verify Status: Exist in Stock Item are meaning SQL and Seller SKU are having the same Item Code.
- 
+ 
If you decide to use the same item code as Seller SKU, click on select All records > press on Post button for the first time so system will remember the settings.
- 
+ 
3. Verified Status: Success when posting done
- 
+ 
:::note
Once you post successful, system will keep the Shop SKU in Stock Item as Alternative Item
:::
- 
+ 
4. You can still decide to map to different item code (system will auto ticked the record you change the item code), once done all, click on POST button.
- 
+ 
## Orders Tab
1. Click on Orders Tab
- 
+ 
2. Status
- 
+ 
- 
+ 
:::tip
Each order number will be posted once. You can delete the Invoice if you want to repost.
@@ -175,37 +175,37 @@ tags: ["SQL Account", "Integration", "e-Commerce", "WooCommerce"]
1. Select Date Range > Click on Refresh Order
- 
+ 
Please be patient, system is on the way to fetch the order from WooCommerce
- 
+ 
System will return the message when Fetching Done, Press OK.
- 
+ 
4. Post Order
1. Click on the status you want to post the order, let us take an example on Completed - > Ticked all > Click on Post
- 
+ 
2. If you did not tick on any order when do the posting, system will raise a message: You have not selected any order. Would you like to select all? If you would like to post all > Press Yes
- 
+ 
Please be patient to wait for the order posting.
- 
+ 
3. Click on OK when done posting
- 
+ 
5. Verify Status
- 
+ 
1. Posted
@@ -225,7 +225,7 @@ tags: ["SQL Account", "Integration", "e-Commerce", "WooCommerce"]
1. Click on Item Code Drop Down, user can manually map the item code
- 
+ 
2. Ticked on the record you want to post
@@ -235,11 +235,11 @@ tags: ["SQL Account", "Integration", "e-Commerce", "WooCommerce"]
- Example of Sales Invoice posted from WooCommerce | Orders.
- 
+ 
- 
+ 
- 
+ 
7. Sales Credit Note (Refund)
@@ -247,17 +247,17 @@ tags: ["SQL Account", "Integration", "e-Commerce", "WooCommerce"]
1. Example of Sales Credit Note posted from WooCommerce | Orders.
- 
+ 
2. Tick which orders key you want to post to sales credit note. If post is successful, the verify status should show “Success”. You can see a Sales credit Note has been created in Sales | Credit Note
- 
+ 
3. For a refund voucher, a sales credit note will be created as well as a sales invoice.
- 
+ 
- 
+ 
4. In the customer credit note, The CN knocks off the outstanding amount of the Invoice.
diff --git a/docs/integration/pos/batch-module.md b/docs/integration/pos/batch-module.md
index 7d4ad91e..c02a4047 100644
--- a/docs/integration/pos/batch-module.md
+++ b/docs/integration/pos/batch-module.md
@@ -1,5 +1,6 @@
---
title: Batch Number Module
+sidebar_position: 2
description: A guide to Batch Number Module for SQL POS System
slug: /integration/pos/batch-module
tags: ["SQL Account", "POS"]
@@ -26,25 +27,25 @@ This feature is very useful and widely explore for alternative usage like:
2. Fill in the batch details:
- 
+ 
- 
+ 
3. Assign the stock item to the batch number.
- 
+ 
4. In SQL Pos -> Setting -> System -> Batch No. Module -> Tick **YES**
- 
+ 
5. In SQL Pos, when you select the item, it will prompt out to ask you to choose on the batch for this item.
- 
+ 
6. When you print out the receipt, the receipt will show out your batch number.
The description for batch that prints out in receipt will follow the setting that you had done.
- 
+ 
- 
+ 
diff --git a/docs/integration/pos/category.md b/docs/integration/pos/category.md
index fa273b3a..f1a3e9e3 100644
--- a/docs/integration/pos/category.md
+++ b/docs/integration/pos/category.md
@@ -1,5 +1,6 @@
---
title: Category
+sidebar_position: 3
description: A guide to setup category for SQL POS System
slug: /integration/pos/category
tags: ["SQL Account", "POS"]
@@ -7,22 +8,22 @@ tags: ["SQL Account", "POS"]
## Steps and Instructions
-### 1. Go to setting | POS Screen | Touch Mode | press OK
+### Go to setting | POS Screen | Touch Mode | press OK
-
+
-### 2. Select Category | New | Example : Vegetable
+### Select Category | New | Example : Vegetable
-
+
-### 3. Select Item, eg. Lady Finger
+### Select Item, eg. Lady Finger
-
+
-### 4. You can also load the photo as display photo in POS, continue to update all item
+### You can also load the photo as display photo in POS, continue to update all item
-
+
-### 5. SQL POS will show it as picture below
+### SQL POS will show it as picture below
-
+
diff --git a/docs/integration/pos/faq.md b/docs/integration/pos/faq.md
new file mode 100644
index 00000000..ffd7fef0
--- /dev/null
+++ b/docs/integration/pos/faq.md
@@ -0,0 +1,317 @@
+---
+sidebar_position: 11
+title: FAQ
+description: SQL POS frequently-asked questions
+slug: /faq/sql-pos
+tags: ["SQL Account", "FAQ", "POS"]
+---
+## Normal POS FAQ
+
+### Error When install SQL POS : Must specify additional Parameter
+
+
+
+**Solution:**
+
+ - **If New Installation:**
+
+
+
+ ```
+ 1. Delete all the Item from C:\itUnicode
+ 2. Control Panel | Uninstall SQL-POS
+ ```
+
+- **If already have transactions:**
+
+ 
+
+ 1. Backup SQL POS first
+
+ 2. Delete all the Item from `C:\itUnicode`
+
+ 3. Control Panel | Uninstall SQL-POS
+
+### Use Offline Mode
+
+- Unable to capture live Master Transaction from SQL Acc Master
+
+### SQL POS is only Standalone PC
+
+- The reason due to when Database corrupt, it won’t corrupt all, so preferable
+ Standalone
+
+### Even though I set to Each Bill(Real Time) still unable to get the UTD QTY in SQL POS?
+
+- In Setting - > SQL Account -> Need to ticked Run This POS When call from
+ SQLAcc
+
+ 
+
+### Why keep prompt me Network failed?
+
+1. Make sure have install Firebird
+
+2. SQL Account have to Set to **Firebird Server** if setting ticked **Run this POS when call from SQLAcc**
+
+### Added Stock Item Code with Chinese word, prompt me unable to find this Product Code ???
+
+- SQL POS unable to support Unicode on Code, may key in the Chinese Word in Item Description
+- Code Only Alphanumeric
+
+### Previously using IT Uni POS, how should I integrate in SQL?
+
+#### 1. SQL POS 316 -> FoxPro
+
+1. In SQL Account -> Click on SQL POS(to generate New POS Database)
+
+2. In SQLPOS-> Setting -> System Tab -> Tools -> Select UniPos Migration ->
+
+ 
+
+ 1. Import From : C:\user\public\itposdata or C:\user\public\unipos
+
+ 2. Ticked all the Setting
+
+ 3. Click on Migrate
+
+#### 2. SQL POS 333 - > Firebird Database
+
+In SQL POS System -> Double click SQL POS -> Logon Screen -> Right Click
+Restore Database
+
+### Print Receipt Chinese word show in ???
+
+- Reason due to Non-Unicode program set to Chinese
+
+Solution :
+
+- Control Panel -> Regional -> Language for Non Unicode -> Set to English (United States)
+
+ 
+
+- Font change to Arial
+
+1. Click on Design report
+
+ 
+
+2. Click on Modify
+
+ 
+
+3. Click on Description Text Object -> Menu select Format -> Font
+
+ 
+
+4. Change to Arial
+
+ 
+
+5. Save the report
+
+### Error Message : Warning : Assigned Printer does not exist : Print to PDF (Mac Desktop)
+
+ 
+
+Solution:
+
+1. **Testing Database only** - Delete whole ITUnicode database
+2. **Real Database** – May request backup from user upload to us to check (suspect file corrupted)
+
+### Unable to capture correct price Tag Price
+
+Assigned price tag for item A and Item B, how come only first Item A will capture price tag
+price, but second item B ref price?
+
+Solution :
+
+Setting -> SQL Account -> Ticked Unlink SQL Accounting when available
+
+
+
+### Error Message : Failed to Set
+
+
+
+**Solution :**
+
+- Make sure install SQL With 759 & above
+
+### What is Price Set in Stock Item?
+
+- Multiple price set in Maintain Stock Item, user allow to set multiple price with comma.
+
+- Example :
+ - Price 1 : RM 10.
+ - Price 2 : RM 15.
+ - Price 3 : RM 20.
+
+ 
+
+- When select itemcode RED BEAN 500G, auto prompt the price for user to select
+
+ 
+
+### What to do if I want to print Barcode Label with Chinese Company Name?
+
+- Save as JPEG, then load the picture into Foxit Design ~
+
+### Error Message : File in use when design barcode report
+
+
+
+- Try Exit the program and logon
+- Delete this report and design again
+
+### Backup Error : C:\itUnicode\SQL-POS\SQL-POS-0001.fdb could not be read
+
+- Is due to IT Sync is running behind, may shut down IT Sync before Backup
+
+### Close Counter Collect Payment Type is not match with Payment Method select in Bills
+
+
+
+- Collect Payment Summary Payment Type is group by Account Code, may check
+ whether the payment method is using same account code ~
+
+:::info
+Step to check Payment Method post to what Account
+
+- Setting -> POS Screen -> Payment Method - > Double click on the Payment Name
+
+:::
+
+### Why in Setting Receipt & License Retrieve From SQL button is missing
+
+
+
+- Once License Registered, the button will disable ~
+
+### Same receipt will auto cut to few pages
+
+
+
+**Solution :**
+
+- Upgrade to latest version of 334, some of the printer after design, paper size changed incorrectly, need to Tweak it again
+
+**Step to Tweak :**
+
+- In Print Receipt -> Follow below step
+
+
+
+### Unable to key In Daily Cash Sales No with message : The Control is Read Only
+
+
+
+**Answer :**
+
+- Control by license, need email to request new license key, mean Counter ID and CashSales number prefix based on license.
+
+### Receipt format unable to show Chinese word
+
+1. Menu Screen -> Select **Print Receipt**
+
+2. Click on **Modify** - >
+
+3. Select the **Report Name** - > Click on **Modify**
+
+4. Double click on the object to show in Chinese
+
+ 
+
+:::caution
+After Fill in \Lazada - click to expand
+ +### How system Post Marketing Fees? + +When load in Finance statement(.csv) file in **Payment Tab** (marketing fees without Order No). +System will post to Sales CN (Transaction Fee) and Customer Refund. + +### How system handle Reversal Item Price and Adjustment Item Charge? + +System will Delete the CN once load payment file(if the lazada payment release more than Outstanding Invoice amount) + +### How system handle for first release payment in negative due to shipping fees under charge customer? + +When load payment, once release amount is in **negative**, system will **delete earlier Invoice**, and raise CN(amount will be exactly same as Payment file) and Refund. + +When **2nd payment(Adjustment)**, if the amount is in negative, append to CN and Refund, if in positive, will raise Invoice(Adjustment value) and Payment. + +### Why the Invoice Amount is changes once Payment is loaded? + +It is due to Shipping Fee updated. +Lazada actual Shipping Fee only known **after Payment** is Loaded. + +### What is the Claim Field for & What GL Account to Set? + +This only use when there is Damage Claim from Lazada. +You can create New Account under Sales as it part of Sales too. + +### Load Payment shown Status As Payment ref id not found + +It means Lazada not yet release the payment to Seller & SQL **will not** post without **payment ref ID**. + +### Where to download the Logistic Billing detail? + +You may refer [Logistics Billing System - updates to shipping fee charges and Account Statement](https://bixi.alicdn.com/punish/punish:resource:template:lazadaSpace:exefqahalk_33139279.html?qrcode=zNg-VXbPThepB3VqrYSNnA|aNNfRA|MWrYXQ_0|BgLVzQ&uuid=ccd83e5576cf4e17a907756aad848d9c&action=deny&origin=https%3A%2F%2Fuac-pre.lazada.com%3A443%2Ftbpass%2Fjump) + +### How do system handle for Same Oder Number from different Store? + +System will add Last 4 character Store Id for the duplicate(for 2nd & above Invoice) + +### When Fetch Prompt Api access frequency exceed the limit + +This happen when click too many times fetch. Just close whole window & try again + +- **None** – No Tax
- **Start SST from** – When SST starts charging | +| **Date** | - Enter the Start Date for GST/SST | +| **Price set in SQL are** | - **Tax Inclusive** – System will reverse the price to exclude tax amount
- **Tax Exclusive** – System will directly get the price | +| **When Ask Price** | - **Tax Inclusive** – System will reverse the entered price to exclude tax amount
- **Tax Exclusive** – System will directly use the price entered
- **Follow Record** – System will follow the last selected setting | +| **Tax Rate** | - The tax rate | + +### Decimal Points + +| **Field** | **Description** | +|------------|----------------| +| **Qty** | Quantity Field Display format | +| **Cost** | Stock Unit Cost Display format | +| **Price** | Sales Unit Price Display format | + +### Off Line Mode + +| **Field** | **Description** | +|------------|----------------| +| **Auto Prepare Off Line Data on every** | Set Number of Days to Update | +| **Use Of Line Mode** | **Yes** – To Enable Off Line Mode Function
**No** – To Disable Off Line Mode Function | +| **Prepare Now** | Adhoc update Data | + +### Stock Item + +| **Field** | **Description** | +|------------|----------------| +| **Fixed Value On** | **Cost** – ???
**Price** – ???
**None** – ??? | +| **Mark Up** | ??? | +| **Round Decimal** | ??? | +| **Category as** | **Stock Category** – ???
**Stock Group** – ??? | + +### Add On Module + +| **Field** | **Description** | +|------------|----------------| +| **Advance Commission Module base on** | **Bill** – ???
**Item** – ???
**None** – ??? | +| **Serial Number** | **Yes** – ???
**No** – ???
**None** – ??? | +| **Price Checker Module** | **Yes** – ???
**No** – ???
**None** – ??? | +| **Sales Order Module** | **Yes** – ???
**No** – ???
**None** – ??? | +| **iT-Sync Module** | **Yes** – ???
**No** – ???
**None** – ??? | +| **Multiple Currency Module** | **Yes** – ???
**No** – ???
**None** – ??? | +| **Batch No. Module** | **Yes** – ???
**No** – ???
**None** – ??? | + +### Import Export + +| **Field** | **Description** | +|------------|----------------| +| **Export Cash Sales** | **Yes** – Allow Export Cash Sales Data (Default)
**No** – Not Allow Export Cash Sales Data | +| **Import Cash Sales** | **Yes** – Allow Import Cash Sales Data (Default)
**No** – Not Allow Import Cash Sales Data | +| **Email while Close counter** | **Yes** – ???
**No** – (Default) | + +### Group Type Date + +This Option is to determine what date to post to SQL Accounting + +| **Field** | **Description** | +|------------|----------------| +| **Transc. Date** | Post Base On Transactions Date (Default) | +| **Open Counter Date** | Post Base on Open Counter Date.
This is useful if Counter is closed on next Date but account needs to be posted on Today. | +| **Close Counter Date** | Post Base on Open Counter Date.
This is useful if Counter is closed on next Date and account needs to be posted on next Date. | + +### Free Tools + +| **Field** | **Description** | +|------------|----------------| +| **Import Product list from Excel File** | ??? | +| **Import Customer list from Excel File** | ??? | +| **Import Supplier list from Excel File** | ??? | +| **Global Price Adjustment** | ??? | +| **Delete Zero Quantity Items** | ??? | +| **Fix Firebird Shutdown Database** | ??? | + +### Tools + +| **Field** | **Description** | +|------------|----------------| +| **Backup Database** | Backup the current SQL Pos DB | +| **Restore Database** | ??? | +| **Delete Data / Clean Test Data** | ??? | +| **Unipos Migration** | ??? | + +### Theme + +This function is allow user to change the Application Skin/Theme to suit the user. From form till grid & label + +  + +## System - Receipt & License + +This Page is to: + +- Register the SQL Pos +- Design the Receipt + +  diff --git a/docs/integration/pos/item-template.md b/docs/integration/pos/item-template.md index f9170713..fa87993a 100644 --- a/docs/integration/pos/item-template.md +++ b/docs/integration/pos/item-template.md @@ -1,5 +1,6 @@ --- title: Item Template +sidebar_position: 4 description: A guide to item template for SQL POS System slug: /integration/pos/item-template tags: ["SQL Account", "POS"] @@ -13,34 +14,34 @@ tags: ["SQL Account", "POS"] 1. Setup your item template from Stock | Maintain Item Template | New - + ## SQL POS 1. Go to Setting -  +  2. Go to **POS Screen** | click on **Setting Action Button** -  +  3. Click on + to insert a new line, enter a **display name** by double click, on Action column select stock template and make sure the show checkbox is ticked | click on OK | OK -  +  4. Go to POS -  +  5. On right bottom column you will able to see 1 new option Item Template , click on it -  +  6. All the item template set in your SQL Account able to select here, you can double click to choose your package / template. -  +  7. The items will be display out , and you can proceed with payment or if there is any discount, just set the discount as usual by enter in discount column, or choose the discount option on right panel. -  +  diff --git a/docs/integration/pos/membership.md b/docs/integration/pos/membership.md index ccdee83a..3ee56030 100644 --- a/docs/integration/pos/membership.md +++ b/docs/integration/pos/membership.md @@ -1,5 +1,6 @@ --- title: Membership +sidebar_position: 5 description: A guide to setup membership for SQL POS System slug: /integration/pos/memebrship tags: ["SQL Account", "POS"] @@ -9,53 +10,53 @@ tags: ["SQL Account", "POS"] 1. Go to setting > system > enable member module -  +  2. Go to SQL Account, need set the posting type by each bill, or each bill (real time) - the pos cash sales need posted into SQL Account only the point will be captured -  +  3. In setting > others, you can setup the membership detail -  +  4. In setting \> pos screen \> pos title command, add \
+
+
+#### Agent
+
+Common Functions - click to expand
+ +```python + +#Updated 03 Oct 2023 +import win32com.client +import Common +import os +from time import sleep + +ComServer = win32com.client.Dispatch("SQLAcc.BizApp") + +def KillApp(): + os.system('cmd /c "taskkill /IM "SQLACC.exe" /F"') + sleep(2) #sleep 2 sec + + +def CheckLogin(): + global ComServer + ComServer = win32com.client.Dispatch("SQLAcc.BizApp") + B = ComServer.IsLogin + if B == True: + ComServer.Logout() + KillApp() + + ComServer = win32com.client.Dispatch("SQLAcc.BizApp") + try: + ComServer.Login("ADMIN", "ADMIN", #UserName, Password + "D:\\Happy\\DB\\Default.DCF", + #"C:\\eStream\\SQLAccounting\\Share\\Default.DCF", #DCF file + "ACC-0015.FDB") #Database Name + except Exception as e: + print("Oops !", e) + + +def ShowResult(ADataset): + if ADataset.RecordCount > 0: + while not ADataset.eof: + fc = ADataset.Fields.Count + for x in range(fc): + fn = ADataset.Fields.Items(x).FieldName + fv = ADataset.FindField(fn).AsString + lresult = "Index : "+ str(x) + " FieldName : " + fn + " Value : " + fv + print (lresult) + print("====") + ADataset.Next() + else: + print ("Record Not Found") + + +def QuotedStr(ACode): + return "'" + ACode.replace("'", "''") + "'" +``` + +
+
+
+#### Get Company Profile
+
+Agent Script - click to expand
+ +```python +#Updated 22 Jul 2023 +import Common + +def GetListData(): + lSQL = "SELECT * FROM AGENT " + lSQL = lSQL + "WHERE ISACTIVE='T' " + lSQL = lSQL + "ORDER BY CODE " + + lDataSet = ComServer.DBManager.NewDataSet(lSQL) + + Common.ShowResult(lDataSet) + +def PostData(): + BizObject = ComServer.BizObjects.Find("Agent") + lMain = BizObject.DataSets.Find("MainDataSet") + + lDocKey = BizObject.FindKeyByRef("CODE", "FAIRY") + + if lDocKey is None: + BizObject.New() + lMain.FindField("CODE").value = "FAIRY" + lMain.FindField("DESCRIPTION").value = "FAIRY TAIL" + + else: + BizObject.Params.Find("Code").Value = lDocKey + BizObject.Open() + BizObject.Edit() + lMain.FindField("DESCRIPTION").value = "FAIRY TAIL WIZARD" + + try: + BizObject.Save() + except Exception as e: + print("Oops!", e) + BizObject.Close() + print ("Posting/Update Done") + +def DelData(): + #Deleting only work if the record never use in other document + BizObject = ComServer.BizObjects.Find("Agent") + + lDocKey = BizObject.FindKeyByRef("CODE", "FAIRY") + + if lDocKey is None: + print ("Record Not Found") + else: + BizObject.Params.Find("CODE").Value = lDocKey + BizObject.Open() + BizObject.Delete() + print ("Deleting Done") + +try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + GetListData() + PostData() + + answer = input("Continue To delete?") + if answer.lower() in ["y","yes"]: + DelData() + elif answer.lower() in ["n","no"]: + print ("Deleting Aborted") + else: + print ("Invalid Input") + + ComServer.Logout() +finally: + ComServer = None + Common.KillApp() +``` + +
+
+
+#### Complete Post
+
+Get Company Profile - click to expand
+ + ```python + #Updated 22 Jul 2023 +import Common + +def GetData(): + lSQL = "SELECT COMPANYNAME, REMARK, BRN, BRN2, GSTNO, " + lSQL = lSQL + "SALESTAXNO, SERVICETAXNO, " + lSQL = lSQL + "ADDRESS1,ADDRESS2,ADDRESS3,ADDRESS4 FROM SY_PROFILE " + + lDataSet = ComServer.DBManager.NewDataSet(lSQL) + + Common.ShowResult(lDataSet) + +try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + GetData() + ComServer.Logout() +finally: + ComServer = None + Common.KillApp() + ``` + +
+
+
+#### Get Picture & Description3(Rich Text)
+
+Complete Post - click to expand
+ + ```python + #Updated 19 Jul 2023 + #This will doing following posting + #01. Cash Sales + #02. Sales Credit Note + #03. Customer Payment With Knock off + #04. Edit Credit Note Posted in Step 02 & Knock Off + #05. Customer Refund to Knock off Credit Note + import Common + import datetime + + def PostDataCS(): + BizObject = ComServer.BizObjects.Find("SL_CS") + lMain = BizObject.DataSets.Find("MainDataSet") #lMain contains master data + lDetail = BizObject.DataSets.Find("cdsDocDetail") #lDetail contains detail data + + lDate = datetime.datetime(2023, 2, 22, 13, 0) + lDate.strftime('%m/%d/%Y') + + BizObject.New(); + lMain.FindField("DocNo").AsString = "--IV Test--" + lMain.FindField("DocDate").value = lDate + lMain.FindField("PostDate").value = lDate + lMain.FindField("Code").AsString = "300-C0001" #Customer Account + lMain.FindField("CompanyName").AsString = "Cash Sales" + lMain.FindField("Address1").AsString = "" #Optional + lMain.FindField("Address2").AsString = "" #Optional + lMain.FindField("Address3").AsString = "" #Optional + lMain.FindField("Address4").AsString = "" #Optional + lMain.FindField("Phone1").AsString = "" #Optional + lMain.FindField("Description").AsString = "Sales" + + #Insert Data - Detail + #For Tax Inclusive = True with override Tax Amount + lDetail.Append() + lDetail.FindField("Seq").value = 1 + lDetail.FindField("Account").AsString = "500-000" #Sales Account + lDetail.FindField("Description").AsString = "Sales Item A" + lDetail.FindField("Description3").AsString = ("Item A Line 1" + ("\r" + "Item A Line 2")) + lDetail.FindField("Qty").AsFloat = 1 + lDetail.FindField("Tax").AsString = "SV" + lDetail.FindField("TaxRate").AsString = "6%" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("UnitPrice").AsFloat = 435 + lDetail.FindField("Amount").AsFloat = 410.37 #Exclding GST Amt + lDetail.FindField("TaxAmt").AsFloat = 24.63 + + lDetail.DisableControls() + lDetail.FindField("TaxInclusive").value = 1 + lDetail.EnableControls() + + lDetail.Post() + + #For Tax Inclusive = False with override Tax Amount + lDetail.Append() + lDetail.FindField("Seq").value = 2 + lDetail.FindField("Account").AsString = "500-000" + lDetail.FindField("Description").AsString = "Sales Item B" + lDetail.FindField("Qty").AsFloat = 1 + lDetail.FindField("Tax").AsString = "SV" + lDetail.FindField("TaxRate").AsString = "6%" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("UnitPrice").AsFloat = 94.43 + lDetail.FindField("Amount").AsFloat = 94.43 + lDetail.FindField("TaxAmt").AsFloat = 5.66 + lDetail.Post() + + #For With Item Code + lDetail.Append() + lDetail.FindField("Seq").value = 3 + lDetail.FindField("ItemCode").AsString = "ANT" + lDetail.FindField("Description").AsString = "Sales Item B" + #lDetail.FindField("Account").AsString = "500-000" #If you wanted override the Sales Account Code + lDetail.FindField("Qty").AsFloat = 2 + lDetail.FindField("UOM").AsString = "UNIT" + #lDetail.FindField("DISC").AsString = "5%+3" #Optional(eg 5% plus 3 Discount) + lDetail.FindField("Tax").AsString = "SV" + lDetail.FindField("TaxRate").AsString = "6%" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("UnitPrice").AsFloat = 100 + lDetail.FindField("Amount").AsFloat = 200 + lDetail.FindField("TaxAmt").AsFloat = 12 + lDetail.Post() + + BizObject.Save() + BizObject.Close() + + def PostDataPM(): + BizObject = ComServer.BizObjects.Find("AR_PM") + lMain = BizObject.DataSets.Find("MainDataSet") #lMain contains master data + lDetail = BizObject.DataSets.Find("cdsKnockOff") #lDetail contains detail data + + lDate = datetime.datetime(2023, 2, 22, 13, 0) + lDate.strftime('%m/%d/%Y') + + BizObject.New() + lMain.FindField("DocNo").AsString = "--PM Test--" + lMain.FindField("CODE").AsString = "300-C0001" #Customer Account + lMain.FindField("DocDate").Value = lDate + lMain.FindField("PostDate").Value = lDate + lMain.FindField("Description").AsString = "Payment for A/c" + lMain.FindField("PaymentMethod").AsString = "320-000" #Bank or Cash Account + lMain.FindField("ChequeNumber").AsString = "" + lMain.FindField("BankCharge").AsFloat = 0 + lMain.FindField("DocAmt").AsFloat = 200.00 + lMain.FindField("Cancelled").AsString = "F" + + #Knock Off IV + V = ["IV", "--IV Test--"] #DocType, DocNo + + if (lDetail.Locate("DocType;DocNo", V, False, False)) : + lDetail.Edit() + lDetail.FindField("KOAmt").AsFloat = 147.09 #Partial Knock off + lDetail.FindField("KnockOff").AsString = "T" + lDetail.Post() + + BizObject.Save() + BizObject.Close() + + def PostDataCN(): + BizObject = ComServer.BizObjects.Find("SL_CN") + lMain = BizObject.DataSets.Find("MainDataSet") #lMain contains master data + lDetail = BizObject.DataSets.Find("cdsDocDetail") #lDetail contains detail data + + lDate = datetime.datetime(2023, 2, 22, 13, 0) + lDate.strftime('%m/%d/%Y') + + BizObject.New() + lMain.FindField("DocNo").AsString = "--CN Test--" + lMain.FindField("DocDate").value = lDate + lMain.FindField("PostDate").value = lDate + lMain.FindField("Code").AsString = "300-C0001" + lMain.FindField("CompanyName").AsString = "Cash Sales" + lMain.FindField("Address1").AsString = "" + lMain.FindField("Address2").AsString = "" + lMain.FindField("Address3").AsString = "" + lMain.FindField("Address4").AsString = "" + lMain.FindField("Phone1").AsString = "" + lMain.FindField("Description").AsString = "Sales Returned" + + #For With Item Code + lDetail.Append() + lDetail.FindField("ItemCode").AsString = "ANT" + lDetail.FindField("Description").AsString = "Sales Item B" + lDetail.FindField("Description2").AsString = "Product Spoil" #Reason + lDetail.FindField("Remark1").AsString = "--IV Test--" #Invoice No + lDetail.FindField("Remark2").AsString = "01 Jan 2017" #Invoice Date + lDetail.FindField("Qty").AsFloat = 1 + lDetail.FindField("Tax").AsString = "SV" + lDetail.FindField("TaxRate").AsString = "6%" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("UnitPrice").AsFloat = 100 + lDetail.FindField("Amount").AsFloat = 100 + lDetail.FindField("TaxAmt").AsFloat = 6 + lDetail.Post() + + #Save Document + BizObject.Save() + BizObject.Close() + + def PostKnockIVCN(): + BizObject = ComServer.BizObjects.Find("AR_CN") + lMain = BizObject.DataSets.Find("MainDataSet") + lDetail = BizObject.DataSets.Find("cdsKnockOff") + + #Find CN Number + lDocNo = "--CN Test--" + lDocKey = BizObject.FindKeyByRef("DocNo", lDocNo) + BizObject.Params.Find("DocKey").Value = lDocKey + + if lDocKey is not None: + BizObject.Open() + BizObject.Edit() + lMain.Edit() + + #Knock Off IV + V = ["IV", "--IV Test--"] #DocType, DocNo + + if (lDetail.Locate("DocType;DocNo", V, False, False)) : + lDetail.Edit() + lDetail.FindField("KOAmt").AsFloat = 100 #Partial Knock off + lDetail.FindField("KnockOff").AsString = "T" + lDetail.Post() + + BizObject.Save() + BizObject.Close() + + def PostDataCF(): + BizObject = ComServer.BizObjects.Find("AR_CF") + lMain = BizObject.DataSets.Find("MainDataSet") #lMain contains master data + lDetail = BizObject.DataSets.Find("cdsKnockOff") #lDetail contains detail data + + lDate = datetime.datetime(2023, 2, 22, 13, 0) + lDate.strftime('%m/%d/%Y') + + BizObject.New() + lMain.FindField("DocNo").AsString = "--CF Test--" + lMain.FindField("CODE").AsString = "300-C0001" #Customer Account + lMain.FindField("DocDate").Value = lDate + lMain.FindField("PostDate").Value = lDate + lMain.FindField("Description").AsString = "Payment for A/c" + lMain.FindField("PaymentMethod").AsString = "320-000" #Bank or Cash Account + lMain.FindField("ChequeNumber").AsString = "" + lMain.FindField("BankCharge").AsFloat = 0 + lMain.FindField("DocAmt").AsFloat = 6 + lMain.FindField("Cancelled").AsString = "F" + + #Knock Off Credit Note + V = ["CN", "--CN Test--"] #DocType, DocNo + + if (lDetail.Locate("DocType;DocNo", V, False, False)) : + lDetail.Edit() + lDetail.FindField("KOAmt").AsFloat = 4 #Partial Knock off + lDetail.FindField("KnockOff").AsString = "T" + lDetail.Post() + + BizObject.Save() + BizObject.Close() + + try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + print ("Posting Cash Sales") + PostDataCS() + print ("Posting Payment") + PostDataPM() + print ("Posting Sales CN") + PostDataCN() + print ("Posting Knock Off CN") + PostKnockIVCN() + print ("Posting Customer Refund") + PostDataCF() + print ("Done") + ComServer.Logout() + finally: + ComServer = None + Common.KillApp() + ``` + +
+
+
+#### Get Invoice Next Number
+
+Get Picture & Description3(Rich Text) - click to expand
+ + ```python + #Updated 02 Aug 2023 +import os, sys +import Common +from io import BytesIO +from PIL import Image + +def GetData(): + lSQL = "SELECT Description3, Picture FROM ST_ITEM " + lSQL = lSQL + "WHERE Code='ANT' " + lDataSet = ComServer.DBManager.NewDataSet(lSQL) + + imgdata = BytesIO(lDataSet.FindField('Picture').Value) + dt = Image.open(imgdata) + dt.save("test.jpg") + print ("Done Export Picture file...") + #print (lDataSet.FindField('Picture').Value) + + rtf = lDataSet.FindField('Description3').AsString + print (rtf) + + with open('out.rtf', 'w') as output: + output.write(rtf) + output.close() + print ("Done Export RTF file...") + + txt = ComServer.Utility.RichTextToPlainText(rtf) + print (txt) + +try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + GetData() + ComServer.Logout() +finally: + ComServer = None + Common.KillApp() + ``` + +
+
+
+#### Stock Item
+
+Get Invoice Next Number Script - click to expand
+ + ```python + #Updated 19 Jul 2023 +import Common + +def GetData(): + lSQL = "SELECT A.*, B.NEXTNUMBER FROM SY_DOCNO A " + lSQL = lSQL + "INNER JOIN SY_DOCNO_DTL B ON (A.DOCKEY=B.PARENTKEY) " + lSQL = lSQL + "WHERE A.DOCTYPE='IV' " + lSQL = lSQL + "AND A.DESCRIPTION='Customer Invoice' " + lSQL = lSQL + "AND A.STATESET=1 " + + lDataSet = ComServer.DBManager.NewDataSet(lSQL) + + fmt = lDataSet.FindField('Format').AsString + NextNo = lDataSet.FindField('NEXTNUMBER').AsFloat + print (fmt % NextNo) + +try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + GetData() + ComServer.Logout() +finally: + ComServer = None + Common.KillApp() + ``` + +
+
+
+#### AR_Customer
+
+Stock Item Script - click to expand
+ + ```python +#Updated 21 Dec 2023 +import Common + +def GetListData(): + lSQL = "SELECT A.*, B.UOM, B.RATE, B.REFCOST, B.REFPRICE, B.ISBASE FROM ST_ITEM A " + lSQL = lSQL + "INNER JOIN ST_ITEM_UOM B ON (A.CODE=B.CODE) " + lSQL = lSQL + "WHERE A.ISACTIVE='T' " + lSQL = lSQL + "ORDER BY A.CODE, B.RATE" + + lDataSet = ComServer.DBManager.NewDataSet(lSQL) + + Common.ShowResult(lDataSet) + +def PostData(): + BizObject = ComServer.BizObjects.Find("ST_ITEM") + lMain = BizObject.DataSets.Find("MainDataSet") + lDtl = BizObject.DataSets.Find("cdsUOM") + LBar = BizObject.DataSets.Find("cdsBarcode") + + lDocKey = BizObject.FindKeyByRef("CODE", "FAIRY") + + if lDocKey is None: + BizObject.New() + lMain.FindField("CODE").value = "FAIRY" + lMain.FindField("DESCRIPTION").value = "FAIRY TAIL" + lMain.FindField("STOCKGROUP").value = "DEFAULT"; + lMain.FindField("STOCKCONTROL").value = "T"; + lMain.FindField("ISACTIVE").value = "T"; + + lDtl.Edit() #For 1St UOM + lDtl.FindField("UOM").AsString = "PCS" + lDtl.FindField("Rate").AsFloat = 1 + lDtl.FindField("RefCost").AsFloat = 10.2 + lDtl.FindField("RefPrice").AsFloat = 25 + lDtl.Post() + + lDtl.Append() #For 2nd UOM + lDtl.FindField("UOM").AsString = "CTN" + lDtl.FindField("Rate").AsFloat = 12 + lDtl.FindField("RefCost").AsFloat = 102 + lDtl.FindField("RefPrice").AsFloat = 240 + lDtl.Post() + + LBar.Append() #For 1St UOM Barcode + LBar.FindField("Barcode").AsString = "123456" + LBar.FindField("UOM").AsString = "PCS" + LBar.Post() + + LBar.Append() #For 2nd UOM Barcode + LBar.FindField("Barcode").AsString = "7890123" + LBar.FindField("UOM").AsString = "CTN" + LBar.Post() + else: + BizObject.Params.Find("Dockey").Value = lDocKey + BizObject.Open() + BizObject.Edit() + lMain.FindField("DESCRIPTION").value = "FAIRY TAIL WIZARD" + + while lDtl.RecordCount > 0: + lDtl.First() + lDtl.Delete() + + #Insert back with new Price + lDtl.Append() #For 1St UOM + lDtl.FindField("UOM").AsString = "PCS" #Make sure this always same as b4 delete data + lDtl.FindField("Rate").AsFloat = 1 #Make sure this always same as b4 delete data + lDtl.FindField("RefCost").AsFloat = 22.3 + lDtl.FindField("RefPrice").AsFloat = 52 + lDtl.FindField("ISBASE").AsFloat = 1 + lDtl.Post(); + + lDtl.Append() #For 2nd UOM + lDtl.FindField("UOM").AsString = "CTN" #Make sure this always same as b4 delete data + lDtl.FindField("Rate").AsFloat = 12 #Make sure this always same as b4 delete data + lDtl.FindField("RefCost").AsFloat = 102.5 + lDtl.FindField("RefPrice").AsFloat = 260.45 + lDtl.FindField("ISBASE").AsFloat = 0 + lDtl.Post() + + while LBar.RecordCount > 0: + LBar.First() + LBar.Delete() + + LBar.Append() #For 1St UOM Barcode + LBar.FindField("Barcode").AsString = "888888" + LBar.FindField("UOM").AsString = "PCS" + LBar.Post() + + LBar.Append() #For 2nd UOM Barcode + LBar.FindField("Barcode").AsString = "999999" + LBar.FindField("UOM").AsString = "CTN" + LBar.Post() + try: + BizObject.Save() + except Exception as e: + print("Oops!", e) + BizObject.Close() + print ("Posting/Update Done") + +def DelData(): + #Deleting only work if the record never use in other document + BizObject = ComServer.BizObjects.Find("ST_ITEM") + + lDocKey = BizObject.FindKeyByRef("CODE", "FAIRY") + + if lDocKey is None: + print ("Record Not Found") + else: + BizObject.Params.Find("Dockey").Value = lDocKey + BizObject.Open() + BizObject.Delete() + print ("Deleting Done") + +try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + GetListData() + PostData() + + answer = input("Continue To delete?") + if answer.lower() in ["y","yes"]: + DelData() + elif answer.lower() in ["n","no"]: + print ("Deleting Aborted") + else: + print ("Invalid Input") + ComServer.Logout() +finally: + ComServer = None + Common.KillApp() + ``` + +
+
+
+#### Sales Invoice
+
+AR_Customer Script - click to expand
+ + ```python +#Updated 22 Jul 2023 +import Common + +def GetListData(): + lSQL = "SELECT A.*, B.BRANCHTYPE, B.BRANCHNAME, B.ADDRESS1, B.ADDRESS2, B.ADDRESS3, B.ADDRESS4, " + lSQL = lSQL + "B.GEOLAT, B.GEOLONG, B.ATTENTION, B.PHONE1, B.PHONE2, B.MOBILE, B.FAX1, B.FAX2, B.EMAIL " + lSQL = lSQL + "FROM AR_CUSTOMER A " + lSQL = lSQL + "INNER JOIN AR_CUSTOMERBRANCH B ON (A.CODE=B.CODE) " + lSQL = lSQL + "WHERE A.STATUS='A' " + lSQL = lSQL + "ORDER BY A.CODE, B.BRANCHTYPE " + + lDataSet = ComServer.DBManager.NewDataSet(lSQL) + + Common.ShowResult(lDataSet) + +def PostData(): + BizObject = ComServer.BizObjects.Find("AR_CUSTOMER") + lMain = BizObject.DataSets.Find("MainDataSet") + lDtl = BizObject.DataSets.Find("cdsBranch") + + lDocKey = BizObject.FindKeyByRef("CODE", "FAIRY") + + if lDocKey is None: + BizObject.New() + lMain.FindField("CODE").value = "FAIRY" + lMain.FindField("CompanyName").value = "FAIRY TAIL" + + lDtl.Edit() #For 1St Branch + lDtl.FindField("BranchName").AsString = "BILLING" + lDtl.FindField("Address1").AsString = "Address1" + lDtl.FindField("Address2").AsString = "Address2" + lDtl.FindField("Address3").AsString = "Address3" + lDtl.FindField("Address4").AsString = "Address4" + lDtl.FindField("Attention").AsString = "Attention" + lDtl.FindField("Phone1").AsString = "Phone1" + lDtl.FindField("Fax1").AsString = "Fax1" + lDtl.FindField("Email").AsString = "EmailAddress" + lDtl.Post() + + lDtl.Append() #For 2nd Branch + lDtl.FindField("BranchName").AsString = "Branch1" + lDtl.FindField("Address1").AsString = "DAddress1" + lDtl.FindField("Address2").AsString = "DAddress2" + lDtl.FindField("Address3").AsString = "DAddress3" + lDtl.FindField("Address4").AsString = "DAddress4" + lDtl.FindField("Attention").AsString = "DAttention" + lDtl.FindField("Phone1").AsString = "DPhone1" + lDtl.FindField("Fax1").AsString = "DFax1" + lDtl.FindField("Email").AsString = "DEmailAddress" + lDtl.Post() + else: + BizObject.Params.Find("Code").Value = "FAIRY" + BizObject.Open() + BizObject.Edit() + lMain.FindField("CompanyName").value = "FAIRY TAIL WIZARD" + + while lDtl.RecordCount > 0: + lDtl.First() + lDtl.Delete() + + #Insert back with new Information + lDtl.Append() #For 1St Branch + lDtl.FindField("BranchType").AsString = "B" + lDtl.FindField("BranchName").AsString = "BILLING" #Make sure this always same as b4 delete data + lDtl.FindField("Address1").AsString = "New Address1" + lDtl.FindField("Address2").AsString = "New Address2" + lDtl.FindField("Address3").AsString = "New Address3" + lDtl.FindField("Address4").AsString = "New Address4" + lDtl.FindField("Attention").AsString = "New Attention" + lDtl.FindField("Phone1").AsString = "New Phone1" + lDtl.FindField("Fax1").AsString = "New Fax1" + lDtl.FindField("Email").AsString = "New EmailAddress" + lDtl.Post() + + lDtl.Append() #For 2nd Branch + lDtl.FindField("BranchType").AsString = "D" + lDtl.FindField("BranchName").AsString = "Branch1" #Make sure this always same as b4 delete data + lDtl.FindField("Address1").AsString = "New DAddress1" + lDtl.FindField("Address2").AsString = "New DAddress2" + lDtl.FindField("Address3").AsString = "New DAddress3" + lDtl.FindField("Address4").AsString = "New DAddress4" + lDtl.FindField("Attention").AsString = "New DAttention" + lDtl.FindField("Phone1").AsString = "New DPhone1" + lDtl.FindField("Fax1").AsString = "New DFax1" + lDtl.FindField("Email").AsString = "New DEmailAddress" + lDtl.Post() + + try: + BizObject.Save() + except Exception as e: + print("Oops!", e) + BizObject.Close() + print ("Posting/Update Done") + +def DelData(): + #Deleting only work if the record never use in other document + BizObject = ComServer.BizObjects.Find("AR_CUSTOMER") + + lDocKey = BizObject.FindKeyByRef("CODE", "FAIRY") + + if lDocKey is None: + print ("Record Not Found") + else: + BizObject.Params.Find("CODE").Value = lDocKey + BizObject.Open() + BizObject.Delete() + print ("Deleting Done") + +try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + GetListData() + PostData() + + answer = input("Continue To delete?") + if answer.lower() in ["y","yes"]: + DelData() + elif answer.lower() in ["n","no"]: + print ("Deleting Aborted") + else: + print ("Invalid Input") + ComServer.Logout() +finally: + ComServer = None + Common.KillApp() + ``` + +
+
+
+#### Purchase Invoice
+
+Sales Invoice Script - click to expand
+ +```python +#Updated 08 Jan 2024 +import Common +import datetime + +def GetListData(): + lSQL = "SELECT A.DOCNO, A.DOCDATE, A.CODE, A.COMPANYNAME, A.DESCRIPTION, A.DOCAMT, " + lSQL = lSQL + "A.AGENT, A.AREA, " + lSQL = lSQL + "B.ITEMCODE, B.DESCRIPTION ITEMDESC, B.QTY, B.UOM, B.UNITPRICE, B.DISC, " + lSQL = lSQL + "B.TAX, B.TAXRATE, B.TAXAMT, B.TAXINCLUSIVE, B.AMOUNT " + lSQL = lSQL + "FROM SL_IV A " + lSQL = lSQL + "INNER JOIN SL_IVDTL B ON (A.DOCKEY=B.DOCKEY) " + lSQL = lSQL + "WHERE A.CODE='300-A0002' " + lSQL = lSQL + "AND A.CANCELLED='F' " + + lDataSet = ComServer.DBManager.NewDataSet(lSQL) + + Common.ShowResult(lDataSet) + +def PostData(): + BizObject = ComServer.BizObjects.Find("SL_IV") + lMain = BizObject.DataSets.Find("MainDataSet") #lMain contains master data + lDetail = BizObject.DataSets.Find("cdsDocDetail") #lDetail contains detail data + + lDate = datetime.datetime(2023, 2, 22, 13, 0) + lDate.strftime('%m/%d/%Y') + + lDocKey = BizObject.FindKeyByRef("DocNo", "--IV Test--") + + if lDocKey is None: + BizObject.New() + lMain.FindField("DocNo").AsString = "--IV Test--" + lMain.FindField("DocDate").value = lDate + lMain.FindField("PostDate").value = lDate + lMain.FindField("Code").AsString = "300-C0001" #Customer Account + lMain.FindField("CompanyName").AsString = "Cash Sales" + lMain.FindField("Address1").AsString = "" #Optional + lMain.FindField("Address2").AsString = "" #Optional + lMain.FindField("Address3").AsString = "" #Optional + lMain.FindField("Address4").AsString = "" #Optional + lMain.FindField("Phone1").AsString = "" #Optional + lMain.FindField("Description").AsString = "Sales" + + #Insert Data - Detail + #For Tax Inclusive = True with override Tax Amount + lDetail.Append() + lDetail.FindField("Seq").value = 1 + lDetail.FindField("Account").AsString = "500-000" #Sales Account + lDetail.FindField("Description").AsString = "Sales Item A" + lDetail.FindField("Description3").AsString = ("Item A Line 1" + ("\r" + "Item A Line 2")) + lDetail.FindField("Qty").AsFloat = 1 + lDetail.FindField("Tax").AsString = "SV" + lDetail.FindField("TaxRate").AsString = "6%" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("UnitPrice").AsFloat = 435 + lDetail.FindField("Amount").AsFloat = 410.37 #Exclding GST Amt + lDetail.FindField("TaxAmt").AsFloat = 24.63 + + lDetail.DisableControls() + lDetail.FindField("TaxInclusive").value = 1 + lDetail.EnableControls() + + lDetail.Post() + + #For Tax Inclusive = False with override Tax Amount + lDetail.Append() + lDetail.FindField("Seq").value = 2 + lDetail.FindField("Account").AsString = "500-000" + lDetail.FindField("Description").AsString = "Sales Item B" + lDetail.FindField("Qty").AsFloat = 1 + lDetail.FindField("Tax").AsString = "SV" + lDetail.FindField("TaxRate").AsString = "6%" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("UnitPrice").AsFloat = 94.43 + lDetail.FindField("Amount").AsFloat = 94.43 + lDetail.FindField("TaxAmt").AsFloat = 5.66 + lDetail.Post() + + #For With Item Code + lDetail.Append() + lDetail.FindField("Seq").value = 3 + lDetail.FindField("ItemCode").AsString = "ANT" + lDetail.FindField("Description").AsString = "Sales Item B" + #lDetail.FindField("Account").AsString = "500-000" #If you wanted override the Sales Account Code + lDetail.FindField("Qty").AsFloat = 2 + lDetail.FindField("UOM").AsString = "UNIT" + #lDetail.FindField("DISC").AsString = "5%+3" #Optional(eg 5% plus 3 Discount) + lDetail.FindField("Tax").AsString = "SV" + lDetail.FindField("TaxRate").AsString = "6%" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("UnitPrice").AsFloat = 100 + lDetail.FindField("Amount").AsFloat = 200 + lDetail.FindField("TaxAmt").AsFloat = 12 + lDetail.Post() + + else: + BizObject.Params.Find("Dockey").Value = lDocKey + BizObject.Open() + BizObject.Edit() + lMain.Edit() + lMain.FindField("Description").AsString = "Edited Description 123 的第一 🐱" + + #Delete all Detail + while lDetail.RecordCount != 0: + lDetail.Last() + lDetail.Delete() + + #Append Detail + lDetail.Append() + #lDetail.FindField("Account").value = "500-000" + lDetail.FindField("Description").AsString = "Item A 的第一" + lDetail.FindField("Description3").AsString = ComServer.Utility.PlainTextToRichText("More description 的第一 🐱") + lDetail.FindField("Tax").value = "" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("Amount").value = 410.37 + lDetail.FindField("TaxAmt").value = 0 + lDetail.Post() + + try: + BizObject.Save() + except Exception as e: + print("Oops!", e) + BizObject.Close() + print ("Posting/Update Done") + +def DelData(): + #Deleting only work if the record never not knock off by Payment or Credit Note + BizObject = ComServer.BizObjects.Find("SL_IV") + + lDocKey = BizObject.FindKeyByRef("DocNo", "--IV Test--") + + if lDocKey is None: + print ("Record Not Found") + else: + BizObject.Params.Find("Dockey").Value = lDocKey + BizObject.Open() + BizObject.Delete() + print ("Deleting Done") + +try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + GetListData() + PostData() + + answer = input("Continue To delete?") + if answer.lower() in ["y","yes"]: + DelData() + elif answer.lower() in ["n","no"]: + print ("Deleting Aborted") + else: + print ("Invalid Input") + + ComServer.Logout() +finally: + ComServer = None + Common.KillApp() +``` + +
+
+
+#### GL Ledger
+
+Purchase Invoice Script - click to expand
+ +```python +#Updated 08 Jan 2024 +import Common +import datetime + +def GetListData(): + lSQL = "SELECT A.DOCNO, A.DOCDATE, A.CODE, A.COMPANYNAME, A.DESCRIPTION, A.DOCAMT, " + lSQL = lSQL + "A.AGENT, A.AREA, " + lSQL = lSQL + "B.ITEMCODE, B.DESCRIPTION ITEMDESC, B.QTY, B.UOM, B.UNITPRICE, B.DISC, " + lSQL = lSQL + "B.TAX, B.TAXRATE, B.TAXAMT, B.TAXINCLUSIVE, B.AMOUNT " + lSQL = lSQL + "FROM PH_PI A " + lSQL = lSQL + "INNER JOIN PH_PIDTL B ON (A.DOCKEY=B.DOCKEY) " + lSQL = lSQL + "WHERE A.CODE='400-L0001' " + lSQL = lSQL + "AND A.CANCELLED='F' " + + lDataSet = ComServer.DBManager.NewDataSet(lSQL) + + Common.ShowResult(lDataSet) + +def PostData(): + BizObject = ComServer.BizObjects.Find("PH_PI") + lMain = BizObject.DataSets.Find("MainDataSet") #lMain contains master data + lDetail = BizObject.DataSets.Find("cdsDocDetail") #lDetail contains detail data + + lDate = datetime.datetime(2023, 2, 22, 13, 0) + lDate.strftime('%m/%d/%Y') + + V = ["--PI Test--", "400-W0001"] #DocNo, Code + + lDocKey = BizObject.FindKeyByRef("DocNo;Code", V) + + if lDocKey is None: + BizObject.New() + lMain.FindField("DocNo").AsString = "--PI Test--" + lMain.FindField("DocDate").value = lDate + lMain.FindField("PostDate").value = lDate + lMain.FindField("Code").AsString = "400-W0001" #Supplier Account + lMain.FindField("CompanyName").AsString = "WORLDLINE COMMUNICATION SDN BHD" + #lMain.FindField("Address1").AsString = "" #Optional + #lMain.FindField("Address2").AsString = "" #Optional + #lMain.FindField("Address3").AsString = "" #Optional + #lMain.FindField("Address4").AsString = "" #Optional + #lMain.FindField("Phone1").AsString = "" #Optional + lMain.FindField("Description").AsString = "Purchase Invoice" + + #Insert Data - Detail + lDetail.Append() + lDetail.FindField("Seq").value = 1 + lDetail.FindField("ItemCode").AsString = "ANT" + lDetail.FindField("Description").AsString = "Item B" + #lDetail.FindField("Account").AsString = "600-000" #If you wanted override the Purchase Account Code + lDetail.FindField("Qty").AsFloat = 2 + lDetail.FindField("UOM").AsString = "UNIT" + #lDetail.FindField("DISC").AsString = "5%+3" #Optional(eg 5% plus 3 Discount) + lDetail.FindField("Tax").AsString = "" + lDetail.FindField("TaxRate").AsString = "" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("UnitPrice").AsFloat = 80 + lDetail.FindField("Amount").AsFloat = 160 + lDetail.FindField("TaxAmt").AsFloat = 0 + lDetail.Post() + + lDetail.Append() + lDetail.FindField("Seq").value = 2 + lDetail.FindField("ItemCode").AsString = "HFK" + lDetail.FindField("Description").AsString = "HANDS FREE KITS" + #lDetail.FindField("Account").AsString = "600-000" #If you wanted override the Purchase Account Code + lDetail.FindField("Qty").AsFloat = 3 + lDetail.FindField("UOM").AsString = "UNIT" + #lDetail.FindField("DISC").AsString = "5%+3" #Optional(eg 5% plus 3 Discount) + lDetail.FindField("Tax").AsString = "" + lDetail.FindField("TaxRate").AsString = "" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("UnitPrice").AsFloat = 50 + lDetail.FindField("Amount").AsFloat = 150 + lDetail.FindField("TaxAmt").AsFloat = 0 + lDetail.Post() + + else: + BizObject.Params.Find("Dockey").Value = lDocKey + BizObject.Open() + BizObject.Edit() + lMain.Edit() + lMain.FindField("Description").AsString = "Edited Description 123 的第一 🐱" + + #Delete all Detail + while lDetail.RecordCount != 0: + lDetail.Last() + lDetail.Delete() + + #Append Detail + lDetail.Append() + #lDetail.FindField("Account").value = "600-000" + lDetail.FindField("Description").AsString = "Item A 的第一" + lDetail.FindField("Description3").AsString = ComServer.Utility.PlainTextToRichText("More description 的第一 🐱") + lDetail.FindField("Tax").value = "" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("Amount").value = 410.37 + lDetail.FindField("TaxAmt").value = 0 + lDetail.Post() + + try: + BizObject.Save() + except Exception as e: + print("Oops!", e) + BizObject.Close() + print ("Posting/Update Done") + +def DelData(): + #Deleting only work if the record never not knock off by Payment or Credit Note + BizObject = ComServer.BizObjects.Find("PH_PI") + + V = ["--PI Test--", "400-W0001"] #DocNo, Code + + lDocKey = BizObject.FindKeyByRef("DocNo;Code", V) + + if lDocKey is None: + print ("Record Not Found") + else: + BizObject.Params.Find("Dockey").Value = lDocKey + BizObject.Open() + BizObject.Delete() + print ("Deleting Done") + +try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + GetListData() + PostData() + + answer = input("Continue To delete?") + if answer.lower() in ["y","yes"]: + DelData() + elif answer.lower() in ["n","no"]: + print ("Deleting Aborted") + else: + print ("Invalid Input") + + ComServer.Logout() +finally: + ComServer = None + Common.KillApp() +``` + +
+
+
+#### GL Trial Balance
+
+GL Ledger Script - click to expand
+ +```python +#Updated 24 Jul 2023 +import Common + +def GetData(): + lSQL = "SELECT A.CODE, B.DESCRIPTION ACCDESC, A.DOCDATE, A.POSTDATE, A.DESCRIPTION, A.DESCRIPTION2, " + lSQL = lSQL + "A.LOCALDR, A.LOCALCR, A.REF1, A.REF2 FROM GL_TRANS A " + lSQL = lSQL + "INNER JOIN GL_ACC B ON (A.CODE=B.CODE) " + lSQL = lSQL + "WHERE A.CANCELLED='F' " + lSQL = lSQL + "AND A.POSTDATE BETWEEN '01 JAN 2023' " + lSQL = lSQL + "AND '31 DEC 2023' " + lSQL = lSQL + "AND A.CODE='310-000' " + lSQL = lSQL + "ORDER BY A.CODE, A.POSTDATE " + + lDataSet = ComServer.DBManager.NewDataSet(lSQL) + + Common.ShowResult(lDataSet) + +try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + GetData() + ComServer.Logout() +finally: + ComServer = None + Common.KillApp() +``` + +
+
+
+#### Terms
+
+GL Trial Balance Script - click to expand
+ +```python +#Updated 25 Jul 2023 +import Common +import datetime + +def GetData(): + RptObject = ComServer.RptObjects.Find('GL.TrialBalance.RO') + + RptObject.Params.Find("AllProject").Value = True + RptObject.Params.Find("AllAgent").Value = True + RptObject.Params.Find("AllArea").Value = True + RptObject.Params.Find("LedgerType").Value = "G" #G = Legder, S = Debtor, P = Supplier + #RptObject.Params.Find("ProjectData").Value = #Not use if AllArea is true + RptObject.Params.Find("ShowZeroBalance").Value = False + RptObject.Params.Find("SortBy").Value = "PostDate;DocNo" + RptObject.Params.Find("UseDescription2").Value = False + + lDateFrom = datetime.datetime(2018, 1, 1, 13, 0) + lDateFrom.strftime('%m/%d/%Y') + lDateTo = datetime.datetime(2018, 12, 31, 13, 0) + lDateTo.strftime('%m/%d/%Y') + + RptObject.Params.Find("DateFrom").Value = lDateFrom + RptObject.Params.Find("DateTo").Value = lDateTo + + #RptObject.Params.Find("AgentData").Value = 'Not use if AllAgent is true + #RptObject.Params.Find("AreaData").Value = 'Not use if AllArea is true + + RptObject.Params.Find("SortBy").Value = "Code;Description" + RptObject.CalculateReport() + + lDataSet = RptObject.DataSets.Find("cdsMain") + lDataSet2 = RptObject.DataSets.Find("cdsGLAccount") #For Account List + + if lDataSet2.RecordCount > 0: + while not lDataSet2.eof: + print(lDataSet2.FindField('CODE').AsString) + print(lDataSet2.FindField('DESCRIPTION').AsString) + print("===") + lDataSet2.Next() + + if lDataSet.RecordCount > 0: + while not lDataSet.eof: + print("Month To Date") + print(lDataSet.FindField('CODE').AsString) + print(lDataSet.FindField('MTDDR').AsString) + print(lDataSet.FindField('MTDCR').AsString) + print("Year To Date") + print(lDataSet.FindField('CODE').AsString) + print(lDataSet.FindField('YTDDR').AsString) + print(lDataSet.FindField('YTDCR').AsString) + print("===") + lDataSet.Next() + else: + print ("Record Not Found") + +try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + GetData() + ComServer.Logout() +finally: + ComServer = None + Common.KillApp() +``` + +
+
+
+#### Stock Adjustment
+
+Terms Script - click to expand
+ +```python +#Updated 25 Jul 2023 +import Common + +def GetListData(): + lSQL = "SELECT * FROM TERMS " + lSQL = lSQL + "WHERE ISACTIVE='T' " + lSQL = lSQL + "ORDER BY CODE " + + lDataSet = ComServer.DBManager.NewDataSet(lSQL) + + Common.ShowResult(lDataSet) + +def PostData(): + BizObject = ComServer.BizObjects.Find("Terms") + lMain = BizObject.DataSets.Find("MainDataSet") + + lDocKey = BizObject.FindKeyByRef("CODE", "90 Days") + + if lDocKey is None: + BizObject.New() + lMain.FindField("CODE").value = "90 Days" + lMain.FindField("DESCRIPTION").value = "Net 90 Days" + lMain.FindField("TermDay").value = 90 + lMain.FindField("ISACTIVE").value = "T" + else: + BizObject.Params.Find("CODE").Value = lDocKey + BizObject.Open() + BizObject.Edit() + lMain.FindField("DESCRIPTION").value = "Net 90 Days - Edited" + lMain.FindField("ISACTIVE").value = "F" + + try: + BizObject.Save() + except Exception as e: + print("Oops!", e) + BizObject.Close() + print ("Posting/Update Done") + +def DelData(): + #Deleting only work if the record never use in other document + BizObject = ComServer.BizObjects.Find("Terms") + + lDocKey = BizObject.FindKeyByRef("CODE", "90 Days") + + if lDocKey is None: + print ("Record Not Found") + else: + BizObject.Params.Find("CODE").Value = lDocKey + BizObject.Open() + BizObject.Delete() + print ("Deleting Done") + +try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + GetListData() + PostData() + + answer = input("Continue To delete?") + if answer.lower() in ["y","yes"]: + DelData() + elif answer.lower() in ["n","no"]: + print ("Deleting Aborted") + else: + print ("Invalid Input") + + ComServer.Logout() +finally: + ComServer = None + Common.KillApp() +``` + +
+
+
+#### Sales Order
+
+Stock Adjustment Script - click to expand
+ +```python +#Updated 08 Jan 2024 +import Common +import datetime + +def GetListData(): + lSQL = "SELECT A.DOCNO, A.DOCDATE, A.DESCRIPTION, A.DOCAMT, " + lSQL = lSQL + "A.AUTHBY, A.REASON, A.REMARK, " + lSQL = lSQL + "B.ITEMCODE, B.DESCRIPTION ITEMDESC, B.QTY, B.UOM, B.UNITCOST, " + lSQL = lSQL + "B.AMOUNT, B.REMARK1, B.REMARK2 " + lSQL = lSQL + "FROM ST_AJ A " + lSQL = lSQL + "INNER JOIN ST_AJDTL B ON (A.DOCKEY=B.DOCKEY) " + lSQL = lSQL + "WHERE A.DocDate='20 Apr 2013' " + lSQL = lSQL + "AND A.CANCELLED='F' " + + lDataSet = ComServer.DBManager.NewDataSet(lSQL) + + Common.ShowResult(lDataSet) + +def PostData(): + BizObject = ComServer.BizObjects.Find("ST_AJ") + lMain = BizObject.DataSets.Find("MainDataSet") #lMain contains master data + lDetail = BizObject.DataSets.Find("cdsDocDetail") #lDetail contains detail data + + lDate = datetime.datetime(2023, 2, 22, 13, 0) + lDate.strftime('%m/%d/%Y') + + lDocKey = BizObject.FindKeyByRef("DocNo", "--AJ Test--") + + if lDocKey is None: + BizObject.New() + lMain.FindField("DocNo").AsString = "--AJ Test--" + lMain.FindField("DocDate").value = lDate + lMain.FindField("PostDate").value = lDate + lMain.FindField("Description").AsString = "Stock Adjustment" + + #Insert Data - Detail - Increase Stock Qty + lDetail.Append() + lDetail.FindField("Seq").value = 1 + lDetail.FindField("ItemCode").AsString = "ANT" + lDetail.FindField("Description").AsString = "ANTENA" + lDetail.FindField("Qty").AsFloat = 2 + lDetail.FindField("UOM").AsString = "PCS" + lDetail.FindField("UnitCOST").AsFloat = 80 + lDetail.FindField("Amount").AsFloat = 160 + lDetail.Post() + + #Insert Data - Detail - Reduce Stock Qty + lDetail.Append() + lDetail.FindField("Seq").value = 2 + lDetail.FindField("ItemCode").AsString = "HFK" + lDetail.FindField("Description").AsString = "HANDS FREE KITS" + lDetail.FindField("Qty").AsFloat = -3 + lDetail.FindField("UOM").AsString = "UNIT" + lDetail.Post() + + else: + BizObject.Params.Find("Dockey").Value = lDocKey + BizObject.Open() + BizObject.Edit() + lMain.Edit() + lMain.FindField("Description").AsString = "Edited Description 123 的第一 🐱" + + #Delete all Detail + while lDetail.RecordCount != 0: + lDetail.Last() + lDetail.Delete() + + #Append Detail + lDetail.Append() + lDetail.FindField("Seq").value = 1 + lDetail.FindField("ItemCode").AsString = "BOM" + lDetail.FindField("Description").AsString = "Bill Of Material" + lDetail.FindField("Qty").AsFloat = -1 + lDetail.FindField("UOM").AsString = "UNIT" + lDetail.Post() + + try: + BizObject.Save() + except Exception as e: + print("Oops!", e) + BizObject.Close() + print ("Posting/Update Done") + +def DelData(): + BizObject = ComServer.BizObjects.Find("ST_AJ") + + lDocKey = BizObject.FindKeyByRef("DocNo", "--AJ Test--") + + if lDocKey is None: + print ("Record Not Found") + else: + BizObject.Params.Find("Dockey").Value = lDocKey + BizObject.Open() + BizObject.Delete() + print ("Deleting Done") + +try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + GetListData() + PostData() + + answer = input("Continue To delete?") + if answer.lower() in ["y","yes"]: + DelData() + elif answer.lower() in ["n","no"]: + print ("Deleting Aborted") + else: + print ("Invalid Input") + + ComServer.Logout() +finally: + ComServer = None + Common.KillApp() +``` + +
+
+
+#### Sales.PriceHistory.RO
+
+Sales Order Script - click to expand
+ +```python +#Updated 08 Jan 2024 +import Common +import datetime + +def GetListData(): + lSQL = "SELECT A.DOCNO, A.DOCDATE, A.CODE, A.COMPANYNAME, A.DESCRIPTION, A.DOCAMT, " + lSQL = lSQL + "A.AGENT, A.AREA, " + lSQL = lSQL + "B.ITEMCODE, B.DESCRIPTION ITEMDESC, B.QTY, B.UOM, B.UNITPRICE, B.DISC, " + lSQL = lSQL + "B.TAX, B.TAXRATE, B.TAXAMT, B.TAXINCLUSIVE, B.AMOUNT " + lSQL = lSQL + "FROM SL_SO A " + lSQL = lSQL + "INNER JOIN SL_SODTL B ON (A.DOCKEY=B.DOCKEY) " + lSQL = lSQL + "WHERE A.CODE='300-A0002' " + lSQL = lSQL + "AND A.CANCELLED='F' " + + lDataSet = ComServer.DBManager.NewDataSet(lSQL) + + Common.ShowResult(lDataSet) + +def PostData(): + BizObject = ComServer.BizObjects.Find("SL_SO") + lMain = BizObject.DataSets.Find("MainDataSet") #lMain contains master data + lDetail = BizObject.DataSets.Find("cdsDocDetail") #lDetail contains detail data + + lDate = datetime.datetime(2023, 2, 22, 13, 0) + lDate.strftime('%m/%d/%Y') + + lDocKey = BizObject.FindKeyByRef("DocNo", "--SO Test--") + + if lDocKey is None: + BizObject.New() + lMain.FindField("DocNo").AsString = "--SO Test--" + lMain.FindField("DocDate").value = lDate + lMain.FindField("PostDate").value = lDate + lMain.FindField("Code").AsString = "300-C0001" #Customer Account + lMain.FindField("CompanyName").AsString = "Cash Sales" + #lMain.FindField("Address1").AsString = "" #Optional + #lMain.FindField("Address2").AsString = "" #Optional + #lMain.FindField("Address3").AsString = "" #Optional + #lMain.FindField("Address4").AsString = "" #Optional + #lMain.FindField("Phone1").AsString = "" #Optional + lMain.FindField("Description").AsString = "Sales Order" + + #Insert Data - Detail + lDetail.Append() + lDetail.FindField("Seq").value = 1 + lDetail.FindField("ItemCode").AsString = "ANT" + lDetail.FindField("Description").AsString = "Sales Item B" + lDetail.FindField("Qty").AsFloat = 2 + lDetail.FindField("UOM").AsString = "UNIT" + #lDetail.FindField("DISC").AsString = "5%+3" #Optional(eg 5% plus 3 Discount) + lDetail.FindField("Tax").AsString = "SV" + lDetail.FindField("TaxRate").AsString = "6%" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("UnitPrice").AsFloat = 100 + lDetail.FindField("Amount").AsFloat = 200 + lDetail.FindField("TaxAmt").AsFloat = 12 + lDetail.Post() + + else: + BizObject.Params.Find("Dockey").Value = lDocKey + BizObject.Open() + BizObject.Edit() + lMain.Edit() + lMain.FindField("Description").AsString = "Edited Description 123 的第一 🐱" + + #Delete all Detail + while lDetail.RecordCount != 0: + lDetail.Last() + lDetail.Delete() + + #Append Detail + lDetail.Append() + lDetail.FindField("Seq").value = 1 + lDetail.FindField("ItemCode").AsString = "BOM" + lDetail.FindField("Description").AsString = "Sales Item BOM" + lDetail.FindField("Qty").AsFloat = 1 + lDetail.FindField("UOM").AsString = "UNIT" + #lDetail.FindField("DISC").AsString = "5%+3" #Optional(eg 5% plus 3 Discount) + lDetail.FindField("Tax").AsString = "SV" + lDetail.FindField("TaxRate").AsString = "6%" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("UnitPrice").AsFloat = 100 + lDetail.FindField("Amount").AsFloat = 100 + lDetail.FindField("TaxAmt").AsFloat = 6 + lDetail.Post() + + try: + BizObject.Save() + except Exception as e: + print("Oops!", e) + BizObject.Close() + print ("Posting/Update Done") + +def DelData(): + BizObject = ComServer.BizObjects.Find("SL_SO") + + lDocKey = BizObject.FindKeyByRef("DocNo", "--SO Test--") + + if lDocKey is None: + print ("Record Not Found") + else: + BizObject.Params.Find("Dockey").Value = lDocKey + BizObject.Open() + BizObject.Delete() + print ("Deleting Done") + +try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + GetListData() + PostData() + + answer = input("Continue To delete?") + if answer.lower() in ["y","yes"]: + DelData() + elif answer.lower() in ["n","no"]: + print ("Deleting Aborted") + else: + print ("Invalid Input") + + ComServer.Logout() +finally: + ComServer = None + Common.KillApp() +``` + +
+
+
+#### Get Edited Sales Invoice List
+
+Sales.PriceHistory.RO Script - click to expand
+ +```python +#Updated 01 Apr 2021 +import win32com.client +import datetime + +ComServer = win32com.client.Dispatch("SQLAcc.BizApp") + +def CheckLogin(): + B = ComServer.IsLogin + if B == True: + ComServer.Logout() + ComServer.Login("ADMIN", "ADMIN", #UserName, Password + "C:\\eStream\\SQLAccounting\\Share\\Default.DCF", #DCF file + "ACC-0081.FDB") #Database Name + +def GetData(): + RptObject = ComServer.RptObjects.Find('Sales.PriceHistory.RO') + + #RptObject.Params.Find("AgentData").Value = #Not use if AllAgent is true + #RptObject.Params.Find("TaxData").Value = #Not use if AllTax is true + #RptObject.Params.Find("CompanyCategoryData").Value = #Not use if AllCompanyCategory is true + RptObject.Params.Find("AllAgent").Value = True + RptObject.Params.Find("AllTax").Value = True + RptObject.Params.Find("AllShipper").Value = True + RptObject.Params.Find("AllArea").Value = True + RptObject.Params.Find("AllCompany").Value = True + RptObject.Params.Find("AllDocProject").Value = True + RptObject.Params.Find("AllItem").Value = False + RptObject.Params.Find("AllItemProject").Value = True + RptObject.Params.Find("AllLocation").Value = True + RptObject.Params.Find("AllCompanyCategory").Value = True + RptObject.Params.Find("AllBatch").Value = True + RptObject.Params.Find("AllTariff").Value = True + RptObject.Params.Find("AllStockGroup").Value = True + #RptObject.Params.Find("AreaData").Value = #Not use if AllArea is true + #RptObject.Params.Find("CategoryData").Value = #Not use if AllTax is true + #RptObject.Params.Find("CategoryTpl").Value = #Not use if AllTax is true + #RptObject.Params.Find("CompanyData").Value = #Not use if AllTax is true + + lDateFrom = datetime.datetime(2021, 3, 1, 13, 0) + lDateFrom.strftime('%m/%d/%Y') + lDateTo = datetime.datetime(2021, 3, 31, 13, 0) + lDateTo.strftime('%m/%d/%Y') + + RptObject.Params.Find("DateFrom").Value = lDateFrom + RptObject.Params.Find("DateTo").Value = lDateTo + + RptObject.Params.Find("DoCN_SC").Value = False #Include Credit Note + #RptObject.Params.Find("DocProjectData").Value = #Not use if AllDocProject is true + RptObject.Params.Find("DoCS_CP").Value = True #Include Cash Sales + RptObject.Params.Find("DoDN_SD").Value = False #Include Debit Note + RptObject.Params.Find("DoDO_GR").Value = False #Include Delivery Order + RptObject.Params.Find("DoED_EG").Value = False #Include Extra Delivery Order + RptObject.Params.Find("DoIV_PI").Value = False #Include Invoice + RptObject.Params.Find("DoQT_PQ").Value = False #Include Quotation + RptObject.Params.Find("DoSO_PO").Value = False #Include Sales Order + #RptObject.Params.Find("ItemCode").Value = #For Internal use only + RptObject.Params.Find("ItemData").Value = "ANT" + "\r" + "BOM" + #RptObject.Params.Find("ItemProjectData").Value = #Not use if AllItemProject is true + #RptObject.Params.Find("LocationData").Value = #Not use if AllLocation is true + #RptObject.Params.Find("MaxRecords").Value = #Not use if SelectMaxRecords is False + RptObject.Params.Find("SelectDate").Value = True + RptObject.Params.Find("SelectMaxRecords").Value = False + #RptObject.Params.Find("GroupBy").Value = #Only use if wanted to grouping + RptObject.Params.Find("HasCategory").Value = False + #RptObject.Params.Find("ItemCategoryData").Value = #Not use if HasCategory is False + #RptObject.Params.Find("BatchData").Value = #Not use if AllBatch is true + #RptObject.Params.Find("TariffData").Value = #Not use if AllTariff is true + #RptObject.Params.Find("ShipperData").Value = #Not use if AllShipper is true + RptObject.Params.Find("SortBy").Value = "DocDate;DocNo" + #RptObject.Params.Find("StockGroupData").Value = #Not use if AllStockGroup is true + #RptObject.Params.Find("SummaryInterval + + RptObject.CalculateReport() + + lDataSet = RptObject.DataSets.Find("cdsMain") + + if lDataSet.RecordCount > 0: + while not lDataSet.eof: + for idx in range(lDataSet.Fields.Count): + LFld = lDataSet.Fields.Items(idx).FieldName + print(LFld + " :"+ lDataSet.FindField(LFld).AsString) + print("===") + lDataSet.Next() + else: + print ("Record Not Found") + +try: + CheckLogin() + GetData() +finally: + ComServer.Logout() + ComServer = None +``` + +
+
+
+#### SO to DO
+
+Get Edited Sales Invoice List Script - click to expand
+ +```python +#Updated 19 Jul 2021 +import win32com.client + +ComServer = win32com.client.Dispatch("SQLAcc.BizApp") + +def CheckLogin(): + B = ComServer.IsLogin + if B == True: + ComServer.Logout() + ComServer.Login("ADMIN", "ADMIN", #UserName, Password + "C:\\eStream\\SQLAccounting\\Share\\Default.DCF", #DCF file + "ACC-0081.FDB") #Database Name + +def GetData(): + lSQL = "SELECT REFERENCE FROM AUDIT " + lSQL = lSQL + "WHERE REF LIKE 'SL_IV%' " + lSQL = lSQL + "AND UPDATEKIND='E' " + lSQL = lSQL + "AND CAST(DOCDATETIME AS DATE) = '10 JUN 2021' " + + lDataSet = ComServer.DBManager.NewDataSet(lSQL) + + if lDataSet.RecordCount > 0: + while not lDataSet.eof: + DocNo = lDataSet.FindField('REFERENCE').AsString + DocNo = DocNo.split(',')[0] + DocNo = DocNo.split(':')[1] + + print(DocNo) + print("===") + lDataSet.Next() + else: + print ("Record Not Found") + + + +try: + CheckLogin() + GetData() +finally: + ComServer.Logout() + ComServer = None +``` + +
+
+
+#### Stock Month End - Weighted Average
+
+Get Outstanding SO by SO Number transfer to DO Script Script - click to expand
+ +```python +#Updated 29 Nov 2021 +import win32com.client +import datetime + +ComServer = win32com.client.Dispatch("SQLAcc.BizApp") + +def CheckLogin(): + B = ComServer.IsLogin + if B == True: + ComServer.Logout() + ComServer.Login("FAUNG", "ADMIN", #UserName, Password + "D:\\Happy\\DB\\Default.DCF", + # "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0011.FDB") #Database Name + +def PostData(): + lSQL = "SELECT Dockey, DocNo,Code, CompanyName, DocProject, Seq, DtlKey, ItemCode, Qty, UOM, UnitPrice, Disc, Amount, DtlProject, " + lSQL = lSQL + "Tax, TaxRate, TaxInclusive, TaxAmt, COALESCE(Sum(XFQty),0) XFQty, COALESCE((Qty-Sum(XFQty)), Qty) OSQty FROM ( " + lSQL = lSQL + "SELECT A.Dockey, A.DocNo, A.Code, A.CompanyName, A.Project DocProject, " + lSQL = lSQL + "B.DtlKey, B.Seq, B.ItemCode, B.Qty, B.UOM, B.UnitPrice, B.Disc, B.Amount, " + lSQL = lSQL + "B.Tax, B.TaxRate, B.TaxInclusive, B.TaxAmt, B.Project DtlProject, C.Qty XFQty FROM SL_SO A " + lSQL = lSQL + "INNER JOIN SL_SODTL B ON (A.DOCKEY=B.DOCKEY) " + lSQL = lSQL + "LEFT JOIN ST_XTRANS C ON (A.DOCKEY=C.FROMDOCKEY AND B.DTLKEY=C.FROMDTLKEY " + lSQL = lSQL + " AND C.FROMDOCTYPE='SO') " + lSQL = lSQL + "WHERE A.DOCNO='SO-00044') " + lSQL = lSQL + "GROUP BY Dockey, DocNo, Code, CompanyName, DocProject, Seq, Dtlkey, ItemCode, Qty, UOM, UnitPrice, Disc, " + lSQL = lSQL +" Amount, DtlProject, Tax, TaxRate, TaxInclusive, TaxAmt " + lSQL = lSQL + "HAVING COALESCE((Qty-Sum(XFQty)), Qty) >0 " + + lDataSet = ComServer.DBManager.NewDataSet(lSQL) #Get Outstanding Qty for each itemcode + #print("==="+ str(lDataSet.RecordCount)) + if lDataSet.RecordCount > 0: + BizObject = ComServer.BizObjects.Find("SL_DO") + lMain = BizObject.DataSets.Find("MainDataSet") #lMain contains master data + lDetail = BizObject.DataSets.Find("cdsDocDetail") #lDetail contains detail data + + lDate = datetime.datetime(2021, 11, 29, 13, 0) + lDate.strftime('%m/%d/%Y') + + BizObject.New(); + lMain.FindField("DocKey").value = -1 + lMain.FindField("DocNo").AsString = "--DO Test--" + lMain.FindField("DocDate").value = lDate + lMain.FindField("PostDate").value = lDate + lMain.FindField("Code").AsString = lDataSet.FindField("Code").AsString #Customer Account + lMain.FindField("CompanyName").AsString = lDataSet.FindField("CompanyName").AsString + #lMain.FindField("Address1").AsString = "" #Optional + #lMain.FindField("Address2").AsString = "" #Optional + #lMain.FindField("Address3").AsString = "" #Optional + #lMain.FindField("Address4").AsString = "" #Optional + #lMain.FindField("Phone1").AsString = "" #Optional + lMain.FindField("Project").AsString = lDataSet.FindField("DocProject").AsString + lMain.FindField("Description").AsString = "Delivery Order" + + #Insert Data - Detail + while not lDataSet.eof: + lDetail.Append() + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("DocKey").value = -1 + lDetail.FindField("Seq").value = lDataSet.FindField("Seq").Value + lDetail.FindField("ItemCode").AsString = lDataSet.FindField("ItemCode").AsString + lDetail.FindField("UOM").AsString = lDataSet.FindField("UOM").AsString + lDetail.FindField("Qty").AsFloat = lDataSet.FindField("OSQty").AsFloat # Transfer all balance Qty + lDetail.FindField("DISC").AsString = lDataSet.FindField("DISC").AsString + lDetail.FindField("Tax").AsString = lDataSet.FindField("Tax").AsString + lDetail.FindField("TaxRate").AsString = lDataSet.FindField("TaxRate").AsString + lDetail.FindField("TaxInclusive").value = lDataSet.FindField("TaxInclusive").value + lDetail.FindField("UnitPrice").AsFloat = lDataSet.FindField("UnitPrice").AsFloat + lDetail.FindField("Amount").AsFloat = lDataSet.FindField("Amount").AsFloat + lDetail.FindField("TaxAmt").AsFloat = lDataSet.FindField("TaxAmt").AsFloat + lDetail.FindField("Project").AsString = lDataSet.FindField("DtlProject").AsString + lDetail.FindField("FromDocType").AsString = "SO"; #From Document Type + lDetail.FindField("FromDockey").AsFloat = lDataSet.FindField("Dockey").AsFloat; + lDetail.FindField("FromDtlkey").AsFloat = lDataSet.FindField("DtlKey").AsFloat; + lDetail.Post() + lDataSet.Next() + + BizObject.Save() + BizObject.Close() + else : + print ("Record Not Found") +try: + CheckLogin() + print ("Posting SO to DO") + PostData() + print ("Done") +finally: + ComServer.Logout() + ComServer = None +``` + +
+
+
+#### Stock Month End - FIFO
+
+Stock Month End - Weighted Average Script - click to expand
+ +```python +#Updated 30 Nov 2021 +import win32com.client +import datetime + +ComServer = win32com.client.Dispatch("SQLAcc.BizApp") + +def CheckLogin(): + B = ComServer.IsLogin + if B == True: + ComServer.Logout() + ComServer.Login("FAUNG", "ADMIN", #UserName, Password + "D:\\Happy\\DB\\Default.DCF", + # "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0011.FDB") #Database Name + +def GetData(): + #Accuracy : 90% - Due to the figure is base on last run Costing in SQL Accounting + lSQL = "SELECT A.ItemCode, A.Location, A.Batch, MAX(B.Seq) AS Seq, 2 AS CostingMethod " + lSQL = lSQL + "FROM ST_TR A INNER JOIN ST_TR_WMA B ON (A.TRANSNO=B.TRANSNO) " + lSQL = lSQL + "WHERE A.PostDate<='31 Jul 2020' " + lSQL = lSQL + "GROUP BY A.ItemCode, A.Location, A.Batch " + + lDataSet1 = ComServer.DBManager.NewDataSet(lSQL) + + if lDataSet1.RecordCount > 0: + lDataSet1.First() + while not lDataSet1.eof: + lSQL = "SELECT A.TRANSNO, A.ItemCode, A.Location, A.Batch, B.UTDQty, B.UTDCost FROM ST_TR A " + lSQL = lSQL + "INNER JOIN ST_TR_WMA B ON (A.TRANSNO=B.TRANSNO) " + lSQL = lSQL + "WHERE A.ITEMCODE= '" + lDataSet1.FindField("ItemCode").AsString + "' " + lSQL = lSQL + "AND B.SEQ= " + lDataSet1.FindField("Seq").AsString + lSQL = lSQL + " AND A.LOCATION='" + lDataSet1.FindField("Location").AsString + "' " + lSQL = lSQL + " AND A.BATCH='" + lDataSet1.FindField("Batch").AsString + "' " + lSQL = lSQL + "AND B.UTDQty<>0 " + lSQL = lSQL + "ORDER BY A.ItemCode, A.Location, A.Batch " + + #print(lSQL) + lDataSet2 = ComServer.DBManager.NewDataSet(lSQL) + if lDataSet2.RecordCount > 0: + lDataSet2.First() + print("ITEMCODE = "+lDataSet2.FindField("ITEMCODE").AsString) + print("LOCATION = "+lDataSet2.FindField("LOCATION").AsString) + print("BATCH = "+lDataSet2.FindField("BATCH").AsString) + print("UTDQTY = "+lDataSet2.FindField("UTDQTY").AsString) + print("UTDCOST = "+lDataSet2.FindField("UTDCOST").AsString) + print("=====") + else : + print ("Detail Record Not Found") + lDataSet1.Next() + + else : + print ("Record Not Found") +try: + CheckLogin() + print ("Month End - WA") + GetData() + print ("Done") +finally: + ComServer.Logout() + ComServer = None +``` + +
+
+
+#### Login 2 Database
+
+Stock Month End - FIFO Script - click to expand
+ +```python +#Updated 15 Feb 2022 +import win32com.client +import datetime + +ComServer = win32com.client.Dispatch("SQLAcc.BizApp") + +def CheckLogin(): + B = ComServer.IsLogin + if B == True: + ComServer.Logout() + ComServer.Login("FAUNG", "ADMIN", #UserName, Password + "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0011.FDB") #Database Name + +def GetData(): + #Accuracy : 90% - Due to the figure is base on last run Costing in SQL Accounting + + lSQL = "SELECT A.TRANSNO, A.ItemCode, A.Location, A.Batch, B.QTY, B.COST FROM ST_TR A " + lSQL = lSQL + "INNER JOIN ST_TR_FIFO B ON (A.TRANSNO=B.TRANSNO) " + lSQL = lSQL + "WHERE B.COSTTYPE='U' " + lSQL = lSQL + "AND A.PostDate<='31 Jul 2022' " + lSQL = lSQL + "AND A.ITEMCODE ='ANT' " + lSQL = lSQL + "AND B.Qty<>0 " + lSQL = lSQL + "AND EXISTS (SELECT MAX(D.Seq) FROM ST_TR C " + lSQL = lSQL + " INNER JOIN ST_TR_FIFO D ON (C.TRANSNO=D.TRANSNO) " + lSQL = lSQL + " WHERE C.PostDate<='31 Jul 2022' " + lSQL = lSQL + " AND C.ItemCode ='ANT' " + lSQL = lSQL + " GROUP BY C.ItemCode, C.Location, C.Batch " + lSQL = lSQL + " HAVING B.SEQ=MAX(D.Seq) " + lSQL = lSQL + " ) " + lSQL = lSQL + "ORDER BY A.ItemCode, A.Location, A.BATCH, A.TRANSNO " + print(lSQL) + lDataSet2 = ComServer.DBManager.NewDataSet(lSQL) + + if lDataSet2.RecordCount > 0: #Total Qty & Cost + lDataSet2.First() + while not lDataSet2.eof: + print(" ") + print("TRANSNO = "+lDataSet2.FindField("TRANSNO").AsString) + print("ITEMCODE = "+lDataSet2.FindField("ITEMCODE").AsString) + print("LOCATION = "+lDataSet2.FindField("LOCATION").AsString) + print("BATCH = "+lDataSet2.FindField("BATCH").AsString) + print("QTY = "+lDataSet2.FindField("QTY").AsString) + print("COST = "+lDataSet2.FindField("COST").AsString) + print("=====") + print(" ") + print("===Detail Cost===") + lSQL = "SELECT TRANSNO, ITEMCODE, COSTSEQ, QTY, COST FROM ST_TR_FIFO " + lSQL = lSQL + "WHERE ITEMCODE = '" + lDataSet2.FindField("ITEMCODE").AsString + lSQL = lSQL + "' AND COSTTYPE='B' " + lSQL = lSQL + "AND TRANSNO="+lDataSet2.FindField("TRANSNO").AsString + lSQL = lSQL + " ORDER BY COSTSEQ" + + lDataSet3 = ComServer.DBManager.NewDataSet(lSQL) + + if lDataSet3.RecordCount > 0: #Detail Cost + lDataSet3.First() + while not lDataSet3.eof: + print("TRANSNO = "+lDataSet3.FindField("TRANSNO").AsString) + print("ITEMCODE = "+lDataSet3.FindField("ITEMCODE").AsString) + print("COSTSEQ = "+lDataSet3.FindField("COSTSEQ").AsString) + print("QTY = "+lDataSet3.FindField("QTY").AsString) + print("COST = "+lDataSet3.FindField("COST").AsString) + print("D=====") + lDataSet3.Next() + lDataSet2.Next() + else : + print("Detail Record Not Found") + +try: + CheckLogin() + print ("Month End - FIFO") + GetData() + print ("Done") +finally: + #ComServer.Logout() + ComServer = None +``` + +
+
+
+#### Get Stock Qty Balance
+
+Login 2 Database Script - click to expand
+ +```python +#Updated 17 Mar 2022 +import win32com.client +import datetime + +ComServer = win32com.client.Dispatch("SQLAcc.BizApp") + +def CheckLogin1(): + ComServer = None + ComServer = win32com.client.Dispatch("SQLAcc.BizApp") + B = ComServer.IsLogin + if B == True: + ComServer.Logout() + ComServer.Login("FAUNG", "ADMIN", #UserName, Password + "C:\\eStream\\SQLAccounting\\Share\\Default.DCF", #DCF file + "ACC-0024.FDB") #Database Name + + +def CheckLogin2(): + ComServer = None + ComServer = win32com.client.Dispatch("SQLAcc.BizApp") + B = ComServer.IsLogin + if B == True: + ComServer.Logout() + ComServer.Login("FAUNG", "ADMIN", #UserName, Password + "C:\\eStream\\SQLAccounting\\Share\\Default.DCF", #DCF file + "ACC-0015.FDB") #Database Name + +def GetData(): + lSQL = "SELECT COUNT(*) Nos FROM AR_CUSTOMER A WHERE A.CODE LIKE '%300%' " + + try: + lDataSet1 = ComServer.DBManager.NewDataSet(lSQL) + Seq = 0 + if lDataSet1.RecordCount > 0: + lDataSet1.First() + Seq = lDataSet1.FindField("Nos").Value + print(Seq) + else : + print ("Record Not Found") + + finally: + lDataSet1 = None + + +try: + print ("Login 1st DB") + CheckLogin1() + GetData() + print ("Done 1st DB") + print ("Login 2nd DB") + CheckLogin2() + GetData() + print ("Done 2nd DB") +finally: + ComServer.Logout() + ComServer = None + print ("Done...") +``` + +
+
+
+#### Maintain Asset Item
+
+Get Stock Qty Balance Script - click to expand
+ +```python +#Updated 18 Jan 2024 +import Common + +def GetData(): + lSQL = "SELECT ItemCode, Location, Batch, Sum(Qty) Qty FROM ST_TR " + lSQL = lSQL + "WHERE PostDate<='31 Dec 2019' " + lSQL = lSQL + "AND ITEMCODE ='ANT' " + lSQL = lSQL + "GROUP BY ItemCode, Location, Batch " + + lDataSet = ComServer.DBManager.NewDataSet(lSQL) + + if lDataSet.RecordCount > 0: + while not lDataSet.eof: + print(lDataSet.FindField('ItemCode').AsString) + print(lDataSet.FindField('Location').AsString) + print(lDataSet.FindField('Batch').AsString) + print(lDataSet.FindField('Qty').AsString) + print("===") + lDataSet.Next() + else: + print ("Record Not Found") + +try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + GetData() +finally: + ComServer = None + Common.KillApp() +``` + +
+
+
+#### Customer Payment
+
+Maintain Asset Item Script - click to expand
+ +```python +#Updated 03 Oct 2023 +import Common +import datetime + +def GetListData(): + lSQL = "SELECT A.DOCNOEX, A.ACQUIREDATE, A.CODE, A.DESCRIPTION, A.ASSETGROUP, " + lSQL = lSQL + "A.AGENT, A.AREA, A.COST, A.USEFULLIFE, A.DEPRRATE, A.RESIDUAL, " + lSQL = lSQL + "B.POSTDATE, B.DESCRIPTION HISTORYDESC " + lSQL = lSQL + "FROM FA_ITEM A " + lSQL = lSQL + "INNER JOIN FA_ITEM_HISTORY B ON (A.Code=B.Code) " + lSQL = lSQL + "WHERE A.STATUS=1 " #1 = Active 2 = InActive + + lDataSet = ComServer.DBManager.NewDataSet(lSQL) + + Common.ShowResult(lDataSet) + +def GetAutoKey(ACode): + lSQL = "SELECT AUTOKEY FROM FA_ITEM " + lSQL = lSQL + "WHERE Code= ' + Common.QuotedStr(ACode) + + lDataSet = ComServer.DBManager.NewDataSet(lSQL) + return lDataSet.FindField("AutoKey").AsFloat + +def PostData(): + BizObject = ComServer.BizObjects.Find("FA.Item.OPF") + lMain = BizObject.DataSets.Find("Main") #lMain contains master data + lProj = BizObject.DataSets.Find("Project") #lProj contains Project data + lDepr = BizObject.DataSets.Find("DeprSche") #lDepr contains Depreciation Scheduler data + lHist = BizObject.DataSets.Find("History") #lHist contains History data + + lDate = datetime.datetime(2023, 2, 22, 13, 0) + lDate.strftime('%m/%d/%Y') + + lDocKey = GetAutoKey("--FA Test--") + + if lDocKey == 0: + BizObject.New() + lMain.FindField("Code").AsString = "--FA Test--" + lMain.FindField("Description").AsString = "5ft Banquet Table" + lMain.FindField("AcquireDate").value = lDate + lMain.FindField("AssetGroup").AsString = "Default" + lMain.FindField("Cost").AsFloat = 6190.50 + lMain.FindField("UsefulLife").AsFloat = 3 + lMain.FindField("Residual").AsFloat = 1 + lMain.FindField("DocNoEx").AsString = "IV-321578" + lMain.FindField("Qty").AsFloat = 100 + + #Insert Data - Depreciation Schedule + lDate = datetime.datetime(2024, 9, 3, 13, 0) + lDate.strftime('%m/%d/%Y') + + lDepr.Append() + lDepr.FindField("SCHEDATE").value = lDate + lDepr.FindField("Description").AsString = "Depreciation 1/3" + lDepr.FindField("AMOUNT").AsFloat = 2063.17 + lDepr.Post() + + lDate = datetime.datetime(2025, 9, 3, 13, 0) + lDate.strftime('%m/%d/%Y') + + lDepr.Append() + lDepr.FindField("SCHEDATE").value = lDate + lDepr.FindField("Description").AsString = "Depreciation 2/3" + lDepr.FindField("AMOUNT").AsFloat = 2063.17 + lDepr.Post() + + lDate = datetime.datetime(2026, 9, 3, 13, 0) + lDate.strftime('%m/%d/%Y') + + lDepr.Append() + lDepr.FindField("SCHEDATE").value = lDate + lDepr.FindField("Description").AsString = "Depreciation 3/3" + lDepr.FindField("AMOUNT").AsFloat = 2063.16 + lDepr.Post() + + #Insert Data - Hisory + lDate = datetime.datetime(2023, 1, 20, 13, 0) + lDate.strftime('%m/%d/%Y') + + lHist.Append() + lHist.FindField("PostDate").value = lDate + lHist.FindField("Description").AsString = "Supplier ABC 4 Units" + lHist.Post() + + lDate = datetime.datetime(2023, 2, 22, 13, 0) + lDate.strftime('%m/%d/%Y') + + lHist.Append() + lHist.FindField("PostDate").value = lDate + lHist.FindField("Description").AsString = "Supplier XYZ Sdn Bhd 6 Units" + lHist.Post() + + #Insert Data - Project + lProj.Edit() + lProj.FindField("Project").AsString = "KL" + lProj.FindField("Rate").AsFloat = 40.00 + lProj.Post() + + lProj.Append() + lProj.FindField("Project").AsString = "JB" + lProj.FindField("Rate").AsFloat = 60.00 + lProj.Post() + else: + BizObject.Params.Find("Autokey").AsString = lDocKey + BizObject.Open() + BizObject.Edit() + lMain.Edit() + lMain.FindField("Description").AsString = "Edited 5ft Banquet Tables" + + #Delete all Project + while lProj.RecordCount != 0: + lProj.First() + lProj.Delete() + + lProj.Append() + lProj.FindField("Project").AsString = "----" + lProj.FindField("Rate").AsFloat = 10.00 + lProj.Post() + + lProj.Append() + lProj.FindField("Project").AsString = "KL" + lProj.FindField("Rate").AsFloat = 40.00 + lProj.Post() + + lProj.Append() + lProj.FindField("Project").AsString = "JB" + lProj.FindField("Rate").AsFloat = 50.00 + lProj.Post() + + #Insert Data - Hisory + lDate = datetime.datetime(2023, 2, 10, 13, 0) + lDate.strftime('%m/%d/%Y') + + lHist.Append() + lHist.FindField("PostDate").value = lDate + lHist.FindField("Description").AsString = "1 of table leg broken" + lHist.Post() + try: + BizObject.Save() + except Exception as e: + print("Oops!", e) + BizObject.Close() + print ("Posting/Update Done") + +def DelData(): + BizObject = ComServer.BizObjects.Find("FA.Item.OPF") + + lDocKey = GetAutoKey("--FA Test--") + + if lDocKey == 0: + print ("Record Not Found") + else: + BizObject.Params.Find("Autokey").AsString = lDocKey + BizObject.Open() + BizObject.Delete() + print ("Deleting Done") + +try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + GetListData() + PostData() + + answer = input("Continue To delete?") + if answer.lower() in ["y","yes"]: + DelData() + elif answer.lower() in ["n","no"]: + print ("Deleting Aborted") + else: + print ("Invalid Input") + + ComServer.Logout() +finally: + ComServer = None + Common.KillApp() +``` + +
+
+
+#### Customer Due Listing
+
+Customer Payment Script - click to expand
+ +```python +#Updated 04 Dec 2023 +import Common +import datetime + +def GetListData(): + lSQL = "SELECT A.DOCNO, A.DOCDATE, A.CODE, B.COMPANYNAME, A.DESCRIPTION, A.DOCAMT, " + lSQL = lSQL + "A.AGENT, A.AREA, A.PAYMENTMETHOD " + lSQL = lSQL + "FROM AR_PM A " + lSQL = lSQL + "INNER JOIN AR_CUSTOMER B ON (A.CODE=B.CODE) " + lSQL = lSQL + "WHERE A.CODE='300-A0002' " + lSQL = lSQL + "AND A.CANCELLED='F' " + + lDataSet = ComServer.DBManager.NewDataSet(lSQL) + + Common.ShowResult(lDataSet) + +def PostData(): + BizObject = ComServer.BizObjects.Find("AR_PM") + lMain = BizObject.DataSets.Find("MainDataSet") #lMain contains master data + lDetail = BizObject.DataSets.Find("cdsKnockOff") #lDetail contains detail data + + lDate = datetime.datetime(2023, 2, 22, 13, 0) + lDate.strftime('%m/%d/%Y') + + lDocKey = BizObject.FindKeyByRef("DocNo", "--PM Test--") + + if lDocKey is None: + BizObject.New() + lMain.FindField("DocNo").AsString = "--PM Test--" + lMain.FindField("DocDate").value = lDate + lMain.FindField("PostDate").value = lDate + lMain.FindField("Code").AsString = "300-C0001" #Customer Account + lMain.FindField("Description").AsString = "Payment for A/c" + lMain.FindField("PaymentMethod").AsString = "325-000" #Bank or Cash Account + lMain.FindField("ChequeNumber").AsString = "" + lMain.FindField("BankCharge").AsFloat = 0 + lMain.FindField("DocAmt").AsFloat = 10000.00 + lMain.FindField("Cancelled").AsString = "F" + + #Knock Off IV + V = ["IV", "--IV Test--"] #DocType, DocNo + if (lDetail.Locate("DocType;DocNo", V, False, False)) : + lDetail.Edit() + lDetail.FindField("KOAmt").AsFloat = 147.09 #Partial Knock off + lDetail.FindField("KnockOff").AsString = "T" + lDetail.Post() + else: + BizObject.Params.Find("Dockey").Value = lDocKey + BizObject.Open() + BizObject.Edit() + lMain.Edit() + lMain.FindField("Description").AsString = "Edited Payment for A/c 的第一 🐱" + + #Knock Off IV + V = ["IV", "--IV Test--"] #DocType, DocNo + if (lDetail.Locate("DocType;DocNo", V, False, False)) : + lDetail.Edit() + lDetail.FindField("KOAmt").AsFloat = 200.09 #Partial Knock off + lDetail.FindField("KnockOff").AsString = "T" + lDetail.Post() + + try: + BizObject.Save() + except Exception as e: + print("Oops!", e) + BizObject.Close() + print ("Posting/Update Done") + +def DelData(): + #Deleting only work if the record never not knock off by Refund + BizObject = ComServer.BizObjects.Find("AR_PM") + + lDocKey = BizObject.FindKeyByRef("DocNo", "--PM Test--") + + if lDocKey is None: + print ("Record Not Found") + else: + BizObject.Params.Find("Dockey").Value = lDocKey + BizObject.Open() + BizObject.Delete() + print ("Deleting Done") + +try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + GetListData() + PostData() + + answer = input("Continue To delete?") + if answer.lower() in ["y","yes"]: + DelData() + elif answer.lower() in ["n","no"]: + print ("Deleting Aborted") + else: + print ("Invalid Input") + + ComServer.Logout() +finally: + ComServer = None + Common.KillApp() +``` + +
+
+
+#### Stock Assembly
+
+Customer Due Listing Script - click to expand
+ +```python +#Updated 08 Oct 2024 +import Common +import datetime + +def GetData(): + RptObject = ComServer.RptObjects.Find('Customer.DueDocument.RO') + + #RptObject.Params.Find("AgentData").Value = 'Not use if AllAgent is true + RptObject.Params.Find("AllAgent").Value = True + RptObject.Params.Find("AllArea").Value = True + RptObject.Params.Find("AllCompany").Value = False + RptObject.Params.Find("AllCompanyCategory").Value = True + RptObject.Params.Find("AllCurrency").Value = True + RptObject.Params.Find("AllDocProject").Value = True + RptObject.Params.Find("AllItemProject").Value = True + #RptObject.Params.Find("AreaData").Value = 'Not use if AllArea is true + #RptObject.Params.Find("CompanyCategoryData").Value = 'Not use if AllCompanyCategory is true + RptObject.Params.Find("CompanyData").Value = "300-C0001" + #RptObject.Params.Find("CurrencyData").Value = 'Not use if AllCurrency is true + #RptObject.Params.Find("DocProjectData").Value = 'Not use if AllDocProject is true + #RptObject.Params.Find("GroupBy").Value = # + #RptObject.Params.Find("ItemProjectData").Value = # + RptObject.Params.Find("PrintContra").Value = True + RptObject.Params.Find("PrintCreditNote").Value = True + RptObject.Params.Find("PrintDebitNote").Value = True + RptObject.Params.Find("PrintInvoice").Value = True + RptObject.Params.Find("PrintOverDue").Value = True + RptObject.Params.Find("PrintUnDue").Value = False + RptObject.Params.Find("ShowForeignCurrency").Value = True + RptObject.Params.Find("ShowLocalCurrency").Value = True + RptObject.Params.Find("SortBy").Value = "DocDate;DueDate;DocNo" + + lDateTo = datetime.datetime(2024, 9, 30, 13, 0) + lDateTo.strftime('%m/%d/%Y') + + RptObject.Params.Find("DateTo").Value = lDateTo + RptObject.Params.Find("IncludePDCheque").Value = True + + RptObject.CalculateReport() + + lDataSet = RptObject.DataSets.Find("cdsMain") + print("Record count : ", lDataSet.RecordCount) + if lDataSet.RecordCount > 0: + while not lDataSet.eof: + print(lDataSet.FindField('CODE').AsString) + print(lDataSet.FindField('DOCTYPE').AsString) + print(lDataSet.FindField('DOCDATE').AsString) + print(lDataSet.FindField('DOCNO').AsString) + print(lDataSet.FindField('DUEDATE').AsString) + print(lDataSet.FindField('DOCAMT').AsString) + print(lDataSet.FindField('OUTSTANDING').AsString) + print(lDataSet.FindField('AGE').AsString) + print("===") + lDataSet.Next() + else: + print ("Record Not Found") + +try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + GetData() + ComServer.Logout() +finally: + ComServer = None + Common.KillApp() +``` + +
+
+
+#### Stock Batch
+
+Stock Assembly Script - click to expand
+ +```python +#Updated 07 Aug 2025 +import Common +import datetime + +def GetListData(): + lSQL = "SELECT A.DOCNO, A.DOCDATE, A.ITEMCODE BOM, A.DESCRIPTION, A.LOCATION LOCATION_HDR, " + lSQL = lSQL + "A.BATCH BATCH_HDR, A.PROJECT PROJECT_HDR, A.QTY BOMQTY, A.UOM BOMUOM, A.ASMCOST, A.DOCAMT, " + lSQL = lSQL + "B.ITEMCODE, B.DESCRIPTION ITEMDESC, B.QTY, B.UOM, B.UNITCOST, B.OVERHEADCOST, B.AMOUNT " + lSQL = lSQL + "FROM ST_AS A " + lSQL = lSQL + "INNER JOIN ST_ASDTL B ON (A.DOCKEY=B.DOCKEY) " + lSQL = lSQL + "WHERE A.DOCNO='AS-00001' " + lSQL = lSQL + "AND A.CANCELLED IS FALSE " + + lDataSet = ComServer.DBManager.NewDataSet(lSQL) + + Common.ShowResult(lDataSet) + +def PostData(): + BizObject = ComServer.BizObjects.Find("ST_AS") + lMain = BizObject.DataSets.Find("MainDataSet") #lMain contains master data + lDetail = BizObject.DataSets.Find("cdsDocDetail") #lDetail contains detail data + + lDate = datetime.datetime(2025, 8, 22, 13, 0) + lDate.strftime('%m/%d/%Y') + + lDocKey = BizObject.FindKeyByRef("DocNo", "--AS Test--") + + if lDocKey is None: + BizObject.New() + lMain.FindField("DocNo").AsString = "--AS Test--" + lMain.FindField("DocDate").value = lDate + lMain.FindField("PostDate").value = lDate + lMain.FindField("ItemCode").AsString = "BOM" #BOM Item Code + lMain.FindField("Description").AsString = "BOM Description 123" + lMain.FindField("Location").AsString = "KL" + lMain.FindField("Qty").AsFloat = 2 + lMain.FindField("UOM").AsString = "UNIT" + + #Delete all Detail + while lDetail.RecordCount != 0: + lDetail.Last() + lDetail.Delete() + + #Insert Data - Detail + lDetail.Append() + lDetail.FindField("Seq").value = 1 + lDetail.FindField("ItemCode").AsString = "ANT" + lDetail.FindField("Description").AsString = "Item B" + lDetail.FindField("Qty").AsFloat = 2 + lDetail.FindField("UOM").AsString = "UNIT" + lDetail.Post() + + lDetail.Append() + lDetail.FindField("Seq").value = 2 + lDetail.FindField("ItemCode").AsString = "COVER" + lDetail.FindField("Description").AsString = "HANDS FREE KITS" + lDetail.FindField("Qty").AsFloat = 3 + lDetail.FindField("UOM").AsString = "UNIT" + lDetail.Post() + + else: + BizObject.Params.Find("Dockey").Value = lDocKey + BizObject.Open() + BizObject.Edit() + lMain.Edit() + lMain.FindField("Description").AsString = "Edited Description 123 的第一 🐱" + + V = ["ANT", "UNIT"] #ItemCode, UOM + if (lDetail.Locate("ItemCode;UOM", V, False, False)) : + lDetail.Edit() + lDetail.FindField("Description").AsString = "Item A 的第一" + lDetail.FindField("Description3").AsString = ComServer.Utility.PlainTextToRichText("More description 的第一 🐱") + lDetail.FindField("Qty").AsFloat = 5 + lDetail.FindField("UOM").AsString = "UNIT" + lDetail.Post() + + try: + BizObject.Save() + except Exception as e: + print("Oops!", e) + BizObject.Close() + print ("Posting/Update Done") + +def DelData(): + BizObject = ComServer.BizObjects.Find("ST_AS") + + lDocKey = BizObject.FindKeyByRef("DocNo", "--AS Test--") + + if lDocKey is None: + print ("Record Not Found") + else: + BizObject.Params.Find("Dockey").Value = lDocKey + BizObject.Open() + BizObject.Delete() + print ("Deleting Done") + +try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + GetListData() + PostData() + + answer = input("Continue To delete?") + if answer.lower() in ["y","yes"]: + DelData() + elif answer.lower() in ["n","no"]: + print ("Deleting Aborted") + else: + print ("Invalid Input") + + ComServer.Logout() +finally: + ComServer = None + Common.KillApp() +``` + +
+
+
+### PHP
+
+ - Tested PHP Version : 7.4.3/8.1.10
+ - Add this in ..\xampp\php\php.ini
+ ```pascal
+ [PHP_COM_DOTNET]
+ extension=php_com_dotnet.dll
+ ```
+
+#### Grid.css file for example code
+
+Stock Batch Script - click to expand
+ +```python +#Updated 08 Aug 2025 +import Common +import datetime + +def GetListData(): + lSQL = "SELECT A.CODE, A.DESCRIPTION, A.EXPDATE, A.MFGDATE, B.ITEMCODE FROM ST_BATCH A " + lSQL = lSQL + "LEFT JOIN ST_ITEM_BATCH B ON (A.AUTOKEY=B.PARENTKEY) " + lSQL = lSQL + "WHERE A.ISACTIVE IS TRUE " + lSQL = lSQL + "ORDER BY A.CODE " + + lDataSet = ComServer.DBManager.NewDataSet(lSQL) + + Common.ShowResult(lDataSet) + +def PostData(): + BizObject = ComServer.BizObjects.Find("ST.BATCH.OPF") + lMain = BizObject.DataSets.Find("Main") #lMain contains master data + lDetail = BizObject.DataSets.Find("BatchItem") #lDetail contains detail data + + lDate = datetime.datetime(2030, 8, 22, 13, 0) + lDate.strftime('%m/%d/%Y') + + BizObject.Params.Find("Code").Value = "--BT Test--" + BizObject.Open() + lCode = lMain.FindField("Code").value + print(f"Code = {lCode}") + + if lCode is None: + BizObject.New() + lMain.FindField("Code").AsString = "--BT Test--" + lMain.FindField("EXPDate").value = lDate + lMain.FindField("Description").AsString = "Batch Description 123" + + #Insert Data - Detail + lDetail.Append() + lDetail.FindField("ItemCode").AsString = "ANT" + lDetail.Post() + + lDetail.Append() + lDetail.FindField("ItemCode").AsString = "COVER" + lDetail.Post() + + else: + print(f"Code edit = {lCode}") + BizObject.Edit() + lMain.FindField("Description").AsString = "Edited Description 123 的第一 🐱" + lMain.Post() + + if (lDetail.Locate("ItemCode", "COVER", False, False)) : + lDetail.Delete() + + try: + BizObject.Save() + except Exception as e: + print("Oops!", e) + BizObject.Close() + print ("Posting/Update Done") + +def DelData(): + BizObject = ComServer.BizObjects.Find("ST.BATCH.OPF") + lMain = BizObject.DataSets.Find("Main") + + BizObject.Params.Find("Code").Value = "--BT Test--" + BizObject.Open() + lCode = lMain.FindField("Code").value + print(f"Code = {lCode}") + + BizObject.Delete() + print ("Deleting Done") + +try: + Common.CheckLogin() + global ComServer + ComServer = Common.ComServer + answer = input("Get the list?") + if answer.lower() in ["y","yes"]: + GetListData() + + answer = input("Continue To post data?") + if answer.lower() in ["y","yes"]: + PostData() + + answer = input("Continue To delete?") + if answer.lower() in ["y","yes"]: + DelData() + elif answer.lower() in ["n","no"]: + print ("Deleting Aborted") + else: + print ("Invalid Input") + + ComServer.Logout() +finally: + ComServer = None + Common.KillApp() +``` + +
+
+
+#### Get Agent
+
+Grid.css file - click to expand
+ +```python +body +{ + margin: 10; +} +table { + font-family: arial, sans-serif; + border: 1px solid black; + border-collapse: collapse; + table-layout: auto; +} + +td, th { + border: 1px solid black; + text-align: left; + padding: 8px; + white-space: nowrap; +} + +tr:nth-child(even) { + background-color: #dddddd; +} +``` + +
+
"; + } + else + { + echo "Record Not Found"; + } + $lDataSet = null; +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo date("d M Y h:i:s A") . " - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### Add & Edit Agent
+
+Get Agent - click to expand
+ +```php + + + + +SQL Acc SDK in PHP page
+ +"; + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\\eStream\\SQLAccounting\\Share\\Default.DCF", #DCF file + "ACC-0082.FDB"); #Database Name + +} + +function GetData() +{ + global $ComServer; + + $lSQL = "SELECT * FROM AGENT + WHERE CODE='HALIM'"; + + $lDataSet = $ComServer->DBManager->NewDataSet($lSQL); + + if ($lDataSet->RecordCount > 0) + { + echo "Result : "; + echo $lDataSet->FindField('Description')->AsString() . ""; + } + else + { + echo "Record Not Found"; + } + $lDataSet = null; +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo date("d M Y h:i:s A") . " - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
"; + }catch (Exception $e) { + echo 'Caught exception: ', $e->getMessage(), "\n"; +} + +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + PostData(); + echo date("d M Y h:i:s A") . " - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### Delete Agent
+
+Add & Edit Agent Script - click to expand
+ +```php + + + + +SQL Acc SDK in PHP page
+ +"; + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\\eStream\\SQLAccounting\\Share\\Default.DCF", #DCF file + "ACC-0082.FDB"); #Database Name + +} + +function PostData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("Agent"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); + + $lDocKey = $BizObject->FindKeyByRef("CODE", "FAIRY"); + + if ($lDocKey == null){ + $BizObject->New(); + $lMain->FindField("CODE")->value = "FAIRY"; + $lMain->FindField("DESCRIPTION")->value = "FAIRY TAIL"; + } else{ + $BizObject->Params->Find("CODE")->Value = $lDocKey; + $BizObject->Open(); + $BizObject->Edit(); + $lMain->FindField("DESCRIPTION")->value = "FAIRY TAIL WIZARD"; + } + try{ + $BizObject->Save(); + echo "Posting Done"; + }catch (Exception $e) { + echo 'Caught exception: ', $e->getMessage(), "\n"; +} + +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + PostData(); + echo date("d M Y h:i:s A") . " - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + PostData(); + echo date("d M Y h:i:s A") . " - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### Complete Post
+
+Delete Agent Script - click to expand
+ +```php + + + + +SQL Acc SDK in PHP page
+ +"; + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\\eStream\\SQLAccounting\\Share\\Default.DCF", #DCF file + "ACC-0082.FDB"); #Database Name + +} + +function PostData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("Agent"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); + + $lDocKey = $BizObject->FindKeyByRef("CODE", "FAIRY"); + + if ($lDocKey == null){ + echo "Record Not Found"; + } else{ + $BizObject->Params->Find("CODE")->Value = $lDocKey; + $BizObject->Open(); + $BizObject->Delete(); + echo "Delete Done"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + PostData(); + echo date("d M Y h:i:s A") . " - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+ FindField("Description3")->AsString = $txt;
+ $lDetail->FindField("Qty")->AsFloat = 1;
+ $lDetail->FindField("Tax")->AsString = "SV";
+ $lDetail->FindField("TaxRate")->AsString = "6%";
+ $lDetail->FindField("TaxInclusive")->AsBoolean = False;
+ $lDetail->FindField("UnitPrice")->AsFloat = 435;
+ $lDetail->FindField("Amount")->AsFloat = 410.37; #Exclding GST Amt
+ $lDetail->FindField("TaxAmt")->AsFloat = 24.63;
+
+ $lDetail->DisableControls();
+ $lDetail->FindField("TaxInclusive")->AsBoolean = True;
+ $lDetail->EnableControls();
+ $lDetail->Post();
+
+ #For Tax Inclusive = False with override Tax Amount
+ $lDetail->Append();
+ $lDetail->FindField("Seq")->value = 2;
+ $lDetail->FindField("Account")->AsString = "500-000";
+ $lDetail->FindField("Description")->AsString = "Sales Item B";
+ $lDetail->FindField("Qty")->AsFloat = 1;
+ $lDetail->FindField("Tax")->AsString = "SV";
+ $lDetail->FindField("TaxRate")->AsString = "6%";
+ $lDetail->FindField("TaxInclusive")->AsBoolean = False;
+ $lDetail->FindField("UnitPrice")->AsFloat = 94.43;
+ $lDetail->FindField("Amount")->AsFloat = 94.43;
+ $lDetail->FindField("TaxAmt")->AsFloat = 5.66;
+ $lDetail->Post();
+
+ #For With Item Code
+ $lDetail->Append();
+ $lDetail->FindField("Seq")->value = 3;
+ $lDetail->FindField("ItemCode")->AsString = "ANT";
+ $lDetail->FindField("Description")->AsString = "Sales Item B";
+ #$lDetail->FindField("Account")->AsString = "500-000"; #If you wanted override the Sales Account Code
+ $lDetail->FindField("Qty")->AsFloat = 2;
+ $lDetail->FindField("UOM")->AsString = "UNIT";
+ #$lDetail->FindField("DISC")->AsString = "5%+3"; #Optional(eg 5% plus 3 Discount)
+ $lDetail->FindField("Tax")->AsString = "SV";
+ $lDetail->FindField("TaxRate")->AsString = "6%";
+ $lDetail->FindField("TaxInclusive")->AsBoolean = False;
+ $lDetail->FindField("UnitPrice")->AsFloat = 100;
+ $lDetail->FindField("Amount")->AsFloat = 200;
+ $lDetail->FindField("TaxAmt")->AsFloat = 12;
+ $lDetail->Post();
+
+ #For Item Code with Serial Number
+ $lDetail->Append;
+ $lDetail->FindField("SEQ")->Value = 4;
+ $lDetail->FindField("ItemCode")->AsString = "SN1";
+ $lDetail->FindField("DESCRIPTION")->AsString = "Sales Serial Number Item";
+
+ $lSN->Append();
+ $lSN->FindField("SERIALNUMBER")->AsString = "SN520606|23.74";
+ $lSN->Post();
+
+ $lSN->Append();
+ $lSN->FindField("SERIALNUMBER")->AsString = "SN520607|22.84";
+ $lSN->Post();
+
+ $lDetail->FindField("UOM")->AsString = "UNIT";
+ $lDetail->FindField("QTY")->AsFloat = 2;
+ $lDetail->FindField("TAX")->AsString = "SV";
+ $lDetail->FindField("TaxRate")->AsString = "6%";
+ $lDetail->FindField("TAXINCLUSIVE")->AsBoolean = False;
+ $lDetail->FindField("UNITPRICE")->AsFloat = 94.43;
+ $lDetail->FindField("TAXAMT")->AsFloat = 11.33;
+ $lDetail->Post();
+
+ $BizObject->Save();
+ $BizObject->Close();
+}
+
+function PostDataPM(){
+ global $ComServer;
+
+ $BizObject = $ComServer->BizObjects->Find("AR_PM");
+ $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
+ $lDetail = $BizObject->DataSets->Find("cdsKnockOff"); #lDetail contains detail data
+
+ $BizObject->New();
+ $lMain->FindField("DocNo")->AsString = "--PM Test--";
+ $lMain->FindField("CODE")->AsString = "300-C0001"; #Customer Account
+ $lMain->FindField("DocDate")->Value = date("d-m-Y", strtotime("2025-03-24")); #YYYY-MM-DD
+ $lMain->FindField("PostDate")->Value = date("d-m-Y", strtotime("2025-03-24")); #YYYY-MM-DD
+ $lMain->FindField("Description")->AsString = "Payment for A/c";
+ $lMain->FindField("PaymentMethod")->AsString = "320-000"; #Bank or Cash Account
+ $lMain->FindField("ChequeNumber")->AsString = "";
+ $lMain->FindField("BankCharge")->AsFloat = 0;
+ $lMain->FindField("DocAmt")->AsFloat = 200.00;
+ $lMain->FindField("Cancelled")->AsBoolean = False;
+
+ #Knock Off IV
+ $V = array("IV", "--CS Test--"); #DocType, DocNo
+
+ if ($lDetail->Locate("DocType;DocNo", $V, False, False)) {
+ $lDetail->Edit();
+ $lDetail->FindField("KOAmt")->AsFloat = 147.09; #Partial Knock off
+ $lDetail->FindField("KnockOff")->AsBoolean = True;
+ $lDetail->Post();
+ }
+ $BizObject->Save();
+ $BizObject->Close();
+}
+
+function PostDataCN(){
+ global $ComServer;
+
+ $BizObject = $ComServer->BizObjects->Find("SL_CN");
+ $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
+ $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data
+
+ $BizObject->New();
+ $lMain->FindField("DocNo")->AsString = "--CN Test--";
+ $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2025-03-24")); #YYYY-MM-DD
+ $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2025-03-24")); #YYYY-MM-DD
+ $lMain->FindField("Code")->AsString = "300-C0001";
+ $lMain->FindField("CompanyName")->AsString = "Cash Sales";
+ $lMain->FindField("Address1")->AsString = "";
+ $lMain->FindField("Address2")->AsString = "";
+ $lMain->FindField("Address3")->AsString = "";
+ $lMain->FindField("Address4")->AsString = "";
+ $lMain->FindField("Phone1")->AsString = "";
+ $lMain->FindField("Description")->AsString = "Sales Returned";
+
+ #For With Item Code
+ $lDetail->Append();
+ $lDetail->FindField("ItemCode")->AsString = "ANT";
+ $lDetail->FindField("Description")->AsString = "Sales Item B";
+ $lDetail->FindField("Description2")->AsString = "Product Spoil"; #Reason
+ $lDetail->FindField("Remark1")->AsString = "--CS Test--"; #Invoice No
+ $lDetail->FindField("Remark2")->AsString = "20 Apr 2020"; #Invoice Date
+ $lDetail->FindField("Qty")->AsFloat = 1;
+ $lDetail->FindField("Tax")->AsString = "SV";
+ $lDetail->FindField("TaxRate")->AsString = "6%";
+ $lDetail->FindField("TaxInclusive")->AsBoolean = False;
+ $lDetail->FindField("UnitPrice")->AsFloat = 100;
+ $lDetail->FindField("Amount")->AsFloat = 100;
+ $lDetail->FindField("TaxAmt")->AsFloat = 6;
+ $lDetail->Post();
+
+ $BizObject->Save();
+ $BizObject->Close();
+}
+
+function PostKnockIVCN(){
+ global $ComServer;
+
+ $BizObject = $ComServer->BizObjects->Find("AR_CN");
+ $lMain = $BizObject->DataSets->Find("MainDataSet");
+ $lDetail = $BizObject->DataSets->Find("cdsKnockOff");
+
+ #Find CN Number
+ $lDocNo = "--CN Test--";
+ $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo);
+ $BizObject->Params->Find("DocKey")->AsString = $lDocKey;
+
+ if ($lDocKey != null){
+ $BizObject->Open();
+ $BizObject->Edit();
+ $lMain->Edit();
+
+ #Knock Off IV
+ $V = array("IV", "--CS Test--"); #DocType, DocNo
+
+ if ($lDetail->Locate("DocType;DocNo", $V, False, False)){
+ $lDetail->Edit();
+ $lDetail->FindField("KOAmt")->AsFloat = 100; #Partial Knock off
+ $lDetail->FindField("KnockOff")->AsBoolean = True;
+ $lDetail->Post();
+ }
+ $BizObject->Save();
+ $BizObject->Close();
+ }
+}
+
+function PostDataCF(){
+ global $ComServer;
+
+ $BizObject = $ComServer->BizObjects->Find("AR_CF");
+ $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
+ $lDetail = $BizObject->DataSets->Find("cdsKnockOff"); #lDetail contains detail data
+
+ $BizObject->New();
+ $lMain->FindField("DocNo")->AsString = "--CF Test--";
+ $lMain->FindField("CODE")->AsString = "300-C0001"; #Customer Account
+ $lMain->FindField("DocDate")->Value = date("d-m-Y", strtotime("2025-03-24")); #YYYY-MM-DD
+ $lMain->FindField("PostDate")->Value = date("d-m-Y", strtotime("2025-03-24")); #YYYY-MM-DD
+ $lMain->FindField("Description")->AsString = "Payment for A/c";
+ $lMain->FindField("PaymentMethod")->AsString = "320-000"; #Bank or Cash Account
+ $lMain->FindField("ChequeNumber")->AsString = "";
+ $lMain->FindField("BankCharge")->AsFloat = 0;
+ $lMain->FindField("DocAmt")->AsFloat = 6;
+
+ #Knock Off CN
+ $V = array("CN", "--CN Test--"); #DocType, DocNo
+
+ if ($lDetail->Locate("DocType;DocNo", $V, False, False)) {
+ $lDetail->Edit();
+ $lDetail->FindField("KOAmt")->AsFloat = 4; #Partial Knock off
+ $lDetail->FindField("KnockOff")->AsBoolean = True;
+ $lDetail->Post();
+ }
+ $BizObject->Save();
+ $BizObject->Close();
+}
+
+if (isset($_POST['BtnData']))
+{
+ try
+ {
+ CheckLogin();
+ echo date("d M Y h:i:s A")." - Posting Cash Sales
"; + PostDataCS(); + echo date("d M Y h:i:s A")." - Posting Customer Payment
"; + PostDataPM(); + echo date("d M Y h:i:s A")." - Posting Sales Credit Note
"; + PostDataCN(); + echo date("d M Y h:i:s A")." - Posting Knock Off Sales Credit Note
"; + PostKnockIVCN(); + echo date("d M Y h:i:s A")." - Posting Customer Refund
"; + PostDataCF(); + echo date("d M Y h:i:s A")." - Posting Done"; + } + finally + { +# $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### Get Invoice Next Number
+
+Complete Post Script - click to expand
+ +```php + + + + +SQL Acc SDK in PHP page
+ +"; +#This will doing following posting +#01. Cash Sales +#02. Sales Credit Note +#03. Customer Payment With Knock off +#04. Edit Credit Note Posted in Step 02 & Knock Off +#05. Customer Refund to Knock off Credit Note + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp", null, CP_UTF8) or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + # $ComServer->Logout(); + } else + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "D:\Happy\DB\Default.DCF", #"C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0082.FDB"); #Database Name + +} + +function PostDataCS(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("SL_CS"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data + $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data + $lSN = $BizObject->DataSets->Find("cdsSerialNumber"); #lSN contains Serial Number data + + $BizObject->New(); + $lMain->FindField("DocNo")->AsString = "--CS Test--"; + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2025-03-24")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2025-03-24")); #YYYY-MM-DD + $lMain->FindField("Code")->AsString = "300-C0001"; #Customer Account + $lMain->FindField("CompanyName")->AsString = "Cash Sales"; + $lMain->FindField("Address1")->AsString = ""; #Optional + $lMain->FindField("Address2")->AsString = ""; #Optional + $lMain->FindField("Address3")->AsString = ""; #Optional + $lMain->FindField("Address4")->AsString = ""; #Optional + $lMain->FindField("Phone1")->AsString = ""; #Optional + $lMain->FindField("Description")->AsString = "Sales"; + + #Insert Data - Detail + #For Tax Inclusive = True with override Tax Amount + $lDetail->Append(); + $lDetail->FindField("Seq")->value = 1; + $lDetail->FindField("Account")->AsString = "500-000"; #Sales Account + $lDetail->FindField("Description")->AsString = "Sales Item A"; + + $txt = <<"; + PostDataCS(); + echo date("d M Y h:i:s A")." - Posting Customer Payment
"; + PostDataPM(); + echo date("d M Y h:i:s A")." - Posting Sales Credit Note
"; + PostDataCN(); + echo date("d M Y h:i:s A")." - Posting Knock Off Sales Credit Note
"; + PostKnockIVCN(); + echo date("d M Y h:i:s A")." - Posting Customer Refund
"; + PostDataCF(); + echo date("d M Y h:i:s A")." - Posting Done"; + } + finally + { +# $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
"; + $fmt= str_ireplace(".","'0", $fmt); + echo date("d M Y h:i:s A")." Format in PHP : " . str_ireplace("d","s", $fmt)."
"; + echo date("d M Y h:i:s A")." Output in PHP : " .sprintf($fmt,$NextNo)."
"; + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### Add & Edit AR_Customer
+
+Get Invoice Next Number Script - click to expand
+ +```php + + + + +SQL Acc SDK in PHP page
+ +"; +#This action to Get Next Number for Customer Invoice + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\\eStream\\SQLAccounting\\Share\\Default.DCF", #DCF file + "ACC-0082.FDB"); #Database Name + +} + +function GetData(){ + global $ComServer; + + $lSQL = "SELECT A.*, B.NEXTNUMBER FROM SY_DOCNO A + INNER JOIN SY_DOCNO_DTL B ON (A.DOCKEY=B.PARENTKEY) + WHERE A.DOCTYPE='IV' + AND A.DESCRIPTION='Customer Invoice' + AND A.STATESET=1 + "; + + $lDataSet = $ComServer->DBManager->NewDataSet($lSQL); + + if ($lDataSet->RecordCount > 0) { + $lDataSet->First(); + $fmt = $lDataSet->FindField('Format')->AsString(); + $NextNo = $lDataSet->FindField('NEXTNUMBER')->AsFloat(); + + echo date("d M Y h:i:s A")." Format in SQLAcc : " . str_ireplace("d","s", $fmt).""; + $fmt= str_ireplace(".","'0", $fmt); + echo date("d M Y h:i:s A")." Format in PHP : " . str_ireplace("d","s", $fmt)."
"; + echo date("d M Y h:i:s A")." Output in PHP : " .sprintf($fmt,$NextNo)."
"; + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+ >'; for auto assign code
+ $lMain->FindField("CompanyName")->value = "FAIRY TAIL";
+
+ $lDtl->Edit(); #For 1St Branch
+ $lDtl->FindField("BranchName")->AsString = "BILLING";
+ $lDtl->FindField("Address1")->AsString = "Address1";
+ $lDtl->FindField("Address2")->AsString = "Address2";
+ $lDtl->FindField("Address3")->AsString = "Address3";
+ $lDtl->FindField("Address4")->AsString = "Address4";
+ $lDtl->FindField("Attention")->AsString = "Attention";
+ $lDtl->FindField("Phone1")->AsString = "Phone1";
+ $lDtl->FindField("Fax1")->AsString = "Fax1";
+ $lDtl->FindField("Email")->AsString = "EmailAddress";
+ $lDtl->Post();
+
+ $lDtl->Append(); #For 2nd Branch
+ $lDtl->FindField("BranchName")->AsString = "Branch 1";
+ $lDtl->FindField("Address1")->AsString = "DAddress1";
+ $lDtl->FindField("Address2")->AsString = "DAddress2";
+ $lDtl->FindField("Address3")->AsString = "DAddress3";
+ $lDtl->FindField("Address4")->AsString = "DAddress4";
+ $lDtl->FindField("Attention")->AsString = "DAttention";
+ $lDtl->FindField("Phone1")->AsString = "DPhone1";
+ $lDtl->FindField("Fax1")->AsString = "DFax1";
+ $lDtl->FindField("Email")->AsString = "DEmailAddress";
+ $lDtl->Post();
+ } else{
+ $BizObject->Params->Find("CODE")->Value = $lDocKey;
+ $BizObject->Open();
+ $BizObject->Edit();
+ $lMain->FindField("CompanyName")->value = "FAIRY TAIL WIZARD";
+
+ if ($lDtl->Locate("BranchName", "BILLING", False, False)) {
+ $lDtl->Edit(); #For 1St Branch
+ $lDtl->FindField("BRANCHTYPE")->AsString = "B";
+ $lDtl->FindField("BranchName")->AsString = "BILLING"; #Make sure this always same as b4 delete data
+ $lDtl->FindField("Address1")->AsString = "Edited New Address1";
+ $lDtl->FindField("Address2")->AsString = "Edited New Address2";
+ $lDtl->FindField("Address3")->AsString = "Edited New Address3";
+ $lDtl->FindField("Address4")->AsString = "Edited New Address4";
+ $lDtl->FindField("Attention")->AsString = "Edited New Attention";
+ $lDtl->FindField("Phone1")->AsString = "Edited New Phone1";
+ $lDtl->FindField("Fax1")->AsString = "Edited New Fax1";
+ $lDtl->Post();
+ }
+ if ($lDtl->Locate("BranchName", "Branch1", False, False)) {
+ $lDtl->Edit(); #For 2nd Branch
+ $lDtl->FindField("BRANCHTYPE")->AsString = "D";
+ $lDtl->FindField("BranchName")->AsString = "Branch 1"; #Make sure this always same as b4 delete data
+ $lDtl->FindField("Address1")->AsString = "Edited New DAddress1";
+ $lDtl->FindField("Address2")->AsString = "Edited New DAddress2";
+ $lDtl->FindField("Address3")->AsString = "Edited New DAddress3";
+ $lDtl->FindField("Address4")->AsString = "Edited New DAddress4";
+ $lDtl->FindField("Attention")->AsString = "Edited New DAttention";
+ $lDtl->FindField("Phone1")->AsString = "Edited New DPhone1";
+ $lDtl->FindField("Fax1")->AsString = "Edited New DFax1";
+ $lDtl->FindField("Email")->AsString = "Edited New DEmailAddress";
+ $lDtl->Post();
+ }
+ $lDtl->Append(); #For 3rd Branch
+ $lDtl->FindField("BRANCHTYPE")->AsString = "D";
+ $lDtl->FindField("BranchName")->AsString = "Branch 2";
+ $lDtl->FindField("Address1")->AsString = "New DAddress1";
+ $lDtl->FindField("Address2")->AsString = "New DAddress2";
+ $lDtl->FindField("Address3")->AsString = "New DAddress3";
+ $lDtl->FindField("Address4")->AsString = "New DAddress4";
+ $lDtl->FindField("Attention")->AsString = "New DAttention";
+ $lDtl->FindField("Phone1")->AsString = "New DPhone1";
+ $lDtl->FindField("Fax1")->AsString = "New DFax1";
+ $lDtl->FindField("Email")->AsString = "New DEmailAddress";
+ $lDtl->Post();
+ }
+ try{
+ $BizObject->Save();
+ echo $lMain->FindField("CODE")->AsString. "
"; + echo "Posting Done
"; + }catch (Exception $e) { + echo 'Caught exception: ', $e->getMessage(), "\n"; + } + +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + PostData(); + echo date("d M Y h:i:s A") . " - Done"; + } + finally + { + $ComServer->Logout(); + free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### Get Stock List
+
+Add & Edit AR_Customer Script - click to expand
+ +```python + + + + +SQL Acc SDK in PHP page
+ +"; + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp", null, CP_UTF8) or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\\eStream\\SQLAccounting\\Share\\Default.DCF", #DCF File + "ACC-0001.FDB"); #Database Name + +} + +function PostData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("AR_Customer"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); + $lDtl = $BizObject->DataSets->Find("cdsBranch"); + + $lDocKey = $BizObject->FindKeyByRef("CODE", "FAIRY"); + + if ($lDocKey == null){ + $BizObject->New(); + $lMain->FindField("CODE")->value = "FAIRY"; #Can use '<"; + echo "Posting Done
"; + }catch (Exception $e) { + echo 'Caught exception: ', $e->getMessage(), "\n"; + } + +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + PostData(); + echo date("d M Y h:i:s A") . " - Done"; + } + finally + { + $ComServer->Logout(); + free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+ ";
+ echo "
"."
"; + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### AR_IV (Customer invoice)
+
+Get Stock List Script - click to expand
+ +```php + + + + + + + +SQL Acc SDK in PHP page
+ +"; +#This action to Get Stock Item List + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0024.FDB"); #Database Name + +} + +function GetData(){ + global $ComServer; + + $lSQL = "SELECT A.*, B.UOM, B.RATE, B.REFCOST, B.REFPRICE, B.ISBASE FROM ST_ITEM A + INNER JOIN ST_ITEM_UOM B ON (A.CODE=B.CODE) + WHERE A.ISACTIVE='T' + "; + + $lDataSet = $ComServer->DBManager->NewDataSet($lSQL); + + if ($lDataSet->RecordCount > 0) { + $lDataSet->First(); + $fc = $lDataSet->Fields->Count-1; + echo "| ".$lDataSet->Fields->Items($x)->FieldName()." | "; + } + echo "
| ".$lDataSet->FindField($lFN)->AsString()." | "; + } + echo "
"; + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+
+#### Get Outstanding Invoice List
+
+AR_IV Script - click to expand
+ +```php + + + + + + + +SQL Acc SDK in PHP page
+ +"; +#This action to Post Customer Invoice + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0070.FDB"); #Database Name + +} + +function PostData(){ +global $ComServer; + +$BizObject = $ComServer->BizObjects->Find("AR_IV"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data + $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data + + $BizObject->New(); + $lMain->FindField("DocNo")->AsString = "--IV Test--"; + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2020-04-20")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2020-04-20")); #YYYY-MM-DD + $lMain->FindField("Code")->AsString = "300-C0001"; #Customer Account + $lMain->FindField("Description")->AsString = "Sales"; + + #Insert Data - Detail + #For Tax Inclusive = True with override Tax Amount + $lDetail->Append(); + $lDetail->FindField("Seq")->value = 1; + $lDetail->FindField("Account")->AsString = "500-000"; #Sales Account + $lDetail->FindField("Description")->AsString = "Sales Item A"; + $lDetail->FindField("Tax")->AsString = "SV"; + $lDetail->FindField("TaxRate")->AsString = "6%"; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("Amount")->AsFloat = 410.37; #Exclding GST Amt + $lDetail->FindField("TaxAmt")->AsFloat = 24.63; + + $lDetail->DisableControls(); + $lDetail->FindField("TaxInclusive")->value = 1; + $lDetail->EnableControls(); + $lDetail->Post(); + + #For Tax Inclusive = False with override Tax Amount + $lDetail->Append(); + $lDetail->FindField("Seq")->value = 2; + $lDetail->FindField("Account")->AsString = "500-000"; + $lDetail->FindField("Description")->AsString = "Sales Item B"; + $lDetail->FindField("Tax")->AsString = "SV"; + $lDetail->FindField("TaxRate")->AsString = "6%"; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("Amount")->AsFloat = 94.43; + $lDetail->FindField("TaxAmt")->AsFloat = 5.66; + $lDetail->Post(); + + $BizObject->Save(); + $BizObject->Close(); +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + PostData(); + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+ ";
+ echo "
"."
"; + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### Stock Month End - Weighted Average
+
+Get Outstanding Invoice List Script - click to expand
+ +```php + + + + + + + +SQL Acc SDK in PHP page
+ +"; +#This action to Get Outstanding Invoice List + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0024.FDB"); #Database Name + +} + +function GetData(){ + global $ComServer; + + $lSQL = "SELECT A.*, B.COMPANYNAME, (A.DOCAMT-A.PAYMENTAMT) OUTSTANDING FROM AR_IV A + INNER JOIN AR_CUSTOMER B ON (A.CODE=B.CODE) + WHERE (A.DOCAMT-A.PAYMENTAMT)<>0 + AND CANCELLED='F' + "; + + $lDataSet = $ComServer->DBManager->NewDataSet($lSQL); + + if ($lDataSet->RecordCount > 0) { + $lDataSet->First(); + $fc = $lDataSet->Fields->Count-1; + echo "| ".$lDataSet->Fields->Items($x)->FieldName()." | "; + } + echo "
| ".$lDataSet->FindField($lFN)->AsString()." | "; + } + echo "
"; + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+ ";
+ echo "
"."
"; + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### Stock Month End - FIFO
+
+Stock Month End - Weighted Average Script - click to expand
+ +```php + + + + + + + +SQL Acc SDK in PHP page
+ +"; + + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0024.FDB"); #Database Name + +} + +function GetData(){ + #Accuracy : 90% - Due to the figure is base on last run Costing in SQL Accounting + global $ComServer; + + $lSQL = "SELECT A.ItemCode, A.Location, A.Batch, MAX(B.Seq) AS Seq, 2 AS CostingMethod + FROM ST_TR A INNER JOIN ST_TR_WMA B ON (A.TRANSNO=B.TRANSNO) + WHERE A.PostDate<='31 Jul 2020' + AND A.ITEMCODE='Adj_Voucher' + GROUP BY A.ItemCode, A.Location, A.Batch + "; + + $lDataSet1 = $ComServer->DBManager->NewDataSet($lSQL); + + $Seq = ""; + $lDataSet1->First(); + while (! $lDataSet1->Eof()){ + $Seq = $Seq.$lDataSet1->FindField("SEQ")->AsString .","; + $lDataSet1->Next(); + } + + $lSQL = "SELECT A.TRANSNO, A.ItemCode, A.Location, A.Batch, B.UTDQty, B.UTDCost FROM ST_TR A + INNER JOIN ST_TR_WMA B ON (A.TRANSNO=B.TRANSNO) + WHERE A.PostDate<='31 Jul 2020' + AND A.ITEMCODE='Adj_Voucher' + AND B.SEQ IN (".substr_replace($Seq ,"",-1).") + AND B.UTDQty<>0 + ORDER BY A.ItemCode, A.Location, A.Batch + "; + + $lDataSet2 = $ComServer->DBManager->NewDataSet($lSQL); + + if ($lDataSet2->RecordCount > 0) { + $lDataSet2->First(); + $fc = $lDataSet2->Fields->Count-1; + echo "| ".$lDataSet2->Fields->Items($x)->FieldName()." | "; + } + echo "
| ".$lDataSet2->FindField($lFN)->AsString()." | "; + } + echo "
"; + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+ ";
+ echo "
"."
"; + }else { + echo "Record Not Found"; + } + + #FIFO Detail Key to link with $lDataSet2 & $lDataSet3 is TRANSNO + $Seq = ""; + $lDataSet2->First(); + while (! $lDataSet2->Eof()){ + $Seq = $Seq.$lDataSet2->FindField("TRANSNO")->AsString .","; + $lDataSet2->Next(); + } + + $lSQL = "SELECT TransNo, Cost, SUM(Qty) AS Qty, MIN(CostSeq) AS Seq FROM ST_TR_FIFO + WHERE CostType='B' + AND TRANSNO IN (".substr_replace($Seq ,"",-1).") + GROUP BY TransNo, Cost + "; + + $lDataSet3 = $ComServer->DBManager->NewDataSet($lSQL); + + if ($lDataSet3->RecordCount > 0) { + $lDataSet3->First(); + $fc = $lDataSet3->Fields->Count-1; + echo "";
+ echo "
"."
"; + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + #$ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### Add & Edit Stock Item
+
+Stock Month End - FIFO Script - click to expand
+ +```php + + + + + + + +SQL Acc SDK in PHP page
+ +"; +#This action to Get Outstanding Invoice List + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0024.FDB"); #Database Name + +} + +function GetData(){ + #Accuracy : 90% - Due to the figure is base on last run Costing in SQL Accounting + global $ComServer; + + $lSQL = "SELECT A.ItemCode, A.Location, A.Batch, MAX(B.Seq) AS Seq, 1 AS CostingMethod + FROM ST_TR A INNER JOIN ST_TR_FIFO B ON (A.TRANSNO=B.TRANSNO) + WHERE A.PostDate<='31 Jul 2020' + AND A.ItemCode IN ('ANT', 'COVER', 'BOM') + GROUP BY A.ItemCode, A.Location, A.Batch + "; + + $lDataSet1 = $ComServer->DBManager->NewDataSet($lSQL); + + $Seq = ""; + $lDataSet1->First(); + while (! $lDataSet1->Eof()){ + $Seq = $Seq.$lDataSet1->FindField("SEQ")->AsString .","; + $lDataSet1->Next(); + } + + $lSQL = "SELECT A.TRANSNO, A.ItemCode, A.Location, A.Batch, B.QTY, B.COST FROM ST_TR A + INNER JOIN ST_TR_FIFO B ON (A.TRANSNO=B.TRANSNO) + WHERE B.COSTTYPE='U' + AND A.PostDate<='31 Jul 2020' + AND B.SEQ IN (".substr_replace($Seq ,"",-1).") + AND A.ItemCode IN ('ANT1.0', 'COVER', 'BOM') + AND B.Qty<>0 + ORDER BY A.ItemCode, A.Location, A.Batch + "; + + $lDataSet2 = $ComServer->DBManager->NewDataSet($lSQL); + + if ($lDataSet2->RecordCount > 0) { + $lDataSet2->First(); + $fc = $lDataSet2->Fields->Count-1; + echo "| ".$lDataSet2->Fields->Items($x)->FieldName()." | "; + } + echo "
| ".$lDataSet2->FindField($lFN)->AsString()." | "; + } + echo "
"; + }else { + echo "Record Not Found"; + } + + #FIFO Detail Key to link with $lDataSet2 & $lDataSet3 is TRANSNO + $Seq = ""; + $lDataSet2->First(); + while (! $lDataSet2->Eof()){ + $Seq = $Seq.$lDataSet2->FindField("TRANSNO")->AsString .","; + $lDataSet2->Next(); + } + + $lSQL = "SELECT TransNo, Cost, SUM(Qty) AS Qty, MIN(CostSeq) AS Seq FROM ST_TR_FIFO + WHERE CostType='B' + AND TRANSNO IN (".substr_replace($Seq ,"",-1).") + GROUP BY TransNo, Cost + "; + + $lDataSet3 = $ComServer->DBManager->NewDataSet($lSQL); + + if ($lDataSet3->RecordCount > 0) { + $lDataSet3->First(); + $fc = $lDataSet3->Fields->Count-1; + echo "
| ".$lDataSet3->Fields->Items($x)->FieldName()." | "; + } + echo "
| ".$lDataSet3->FindField($lFN)->AsString()." | "; + } + echo "
"; + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + #$ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
"; + PostData(); + echo date("d M Y h:i:s A")." - Done
"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### Add Stock Issue
+
+Add & Edit Stock Item Script - click to expand
+ +```php + + + + +SQL Acc SDK in PHP page
+ +"; +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0024.FDB"); #Database Name + +} + +function PostData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("ST_ITEM"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); + $lUOM = $BizObject->DataSets->Find("cdsUOM"); + $lBarcode = $BizObject->DataSets->Find("cdsBarcode"); + + $lDocKey = $BizObject->FindKeyByRef("CODE", "FAIRY-PHP"); + + if ($lDocKey == null){ + $BizObject->New(); + $lMain->FindField("CODE")->AsString = "FAIRY-PHP"; + $lMain->FindField("DESCRIPTION")->AsString = "FAIRY TAIL"; + $lMain->FindField("STOCKGROUP")->AsString = "DEFAULT"; + $lMain->FindField("STOCKCONTROL")->AsString = "T"; + $lMain->FindField("ISACTIVE")->AsString = "T"; + + $lUOM->Edit(); #For 1St UOM + $lUOM->FindField("UOM")->AsString = "PCS"; + $lUOM->FindField("Rate")->AsFloat = 1; + $lUOM->FindField("RefCost")->AsFloat = 10.2; + $lUOM->FindField("RefPrice")->AsFloat = 25; + $lUOM->Post(); + + $lUOM->Append(); #For 2nd UOM + $lUOM->FindField("UOM")->AsString = "CTN"; + $lUOM->FindField("Rate")->AsFloat = 12; + $lUOM->FindField("RefCost")->AsFloat = 102; + $lUOM->FindField("RefPrice")->AsFloat = 240; + $lUOM->Post(); + + $lBarcode->Append(); #For 1st UOM Barcode + $lBarcode->FindField("BARCODE")->AsString = "123456789"; + $lBarcode->FindField("UOM")->AsString = "PCS"; + $lBarcode->Post(); + + $lBarcode->Append(); #For 2nd UOM Barcode + $lBarcode->FindField("BARCODE")->AsString = "987654321"; + $lBarcode->FindField("UOM")->AsString = "CTN"; + $lBarcode->Post(); + } else{ + $BizObject->Params->Find("Dockey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Edit(); + $lMain->FindField("DESCRIPTION")->AsString = "FAIRY TAIL WIZARD"; + + $r = $lUOM->RecordCount(); + $x = 1; + while ($x <= $r ){ + $lUOM->First(); + $lUOM->Delete(); + $x++; + } + + $r = $lBarcode->RecordCount(); + $x = 1; + while ($x <= $r ){ + $lBarcode->First(); + $lBarcode->Delete(); + $x++; + } + + $lUOM->Append(); #For 1St UOM + $lUOM->FindField("UOM")->AsString = "PCS"; #Make sure this always same as b4 delete data + $lUOM->FindField("Rate")->AsFloat = 1; #Make sure this always same as b4 delete data + $lUOM->FindField("RefCost")->AsFloat = 22.3; + $lUOM->FindField("RefPrice")->AsFloat = 52; + $lUOM->Post(); + + $lUOM->Append(); #For 2nd UOM + $lUOM->FindField("UOM")->AsString = "CTN"; #Make sure this always same as b4 delete data + $lUOM->FindField("Rate")->AsFloat = 12; #Make sure this always same as b4 delete data + $lUOM->FindField("RefCost")->AsFloat = 102.5; + $lUOM->FindField("RefPrice")->AsFloat = 260.45; + $lUOM->Post(); + + $lBarcode->Append(); #For 1st UOM Barcode + $lBarcode->FindField("BARCODE")->AsString = "456321789"; + $lBarcode->FindField("UOM")->AsString = "PCS"; + $lBarcode->Post(); + + $lBarcode->Append(); #For 2nd UOM Barcode + $lBarcode->FindField("BARCODE")->AsString = "321456987"; + $lBarcode->FindField("UOM")->AsString = "CTN"; + $lBarcode->Post(); + } + + try{ + $BizObject->Save(); + $BizObject->Close(); + }catch (Exception $e) { + echo 'Caught exception: ', $e->getMessage(), "\n"; + } +} + + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Posting Stock Item"; + PostData(); + echo date("d M Y h:i:s A")." - Done
"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
"; + PostData(); + echo date("d M Y h:i:s A")." - Done
"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### Add Points
+
+Add Stock Issue Script - click to expand
+ +```php + + + + +SQL Acc SDK in PHP page
+ +"; +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "D:\Happy\DB\Default.DCF", #"C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0024.FDB"); #Database Name + +} + +function CheckLogin1() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + +} + +function PostData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("ST_IS"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); + $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); + + $BizObject->New(); + $lMain->FindField("DocKey")->value = -1; + $lMain->FindField("DocNo")->AsString = "--IS Test--"; + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2020-04-20")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2020-04-20")); #YYYY-MM-DD + $lMain->FindField("Description")->AsString = "Stock Issue"; + + #Insert Data - Detail + $lDetail->Append(); + $lDetail->FindField("Seq")->value = 1; + $lDetail->FindField("ItemCode")->AsString = "ANT"; + $lDetail->FindField("Description")->AsString = "Sales Item B"; + $lDetail->FindField("Qty")->AsFloat = 2; + $lDetail->FindField("UOM")->AsString = "BOX"; + $lDetail->Post(); + + $lDetail->Append(); + $lDetail->FindField("Seq")->value = 2; + $lDetail->FindField("ItemCode")->AsString = "N-CHARGER"; + $lDetail->FindField("Description")->AsString = "NOKIA CHARGER"; + $lDetail->FindField("Qty")->AsFloat = 5; + $lDetail->FindField("UOM")->AsString = "UNIT"; + $lDetail->Post(); + + $BizObject->Save(); + $BizObject->Close(); + + try{ + $BizObject->Save(); + $BizObject->Close(); + }catch (Exception $e) { + echo 'Caught exception: ', $e->getMessage(), "\n"; + } +} + + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin1(); + echo date("d M Y h:i:s A")." - Begin Posting"; + PostData(); + echo date("d M Y h:i:s A")." - Done
"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
"; + PostData(); + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### AR_CN (customer credit note)
+
+Add Points Script - click to expand
+ +```php + + + + +SQL Acc SDK in PHP page
+ +"; +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0024.FDB"); #Database Name + +} + +function PostData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("Sales.Points.OPF"); + $lMain = $BizObject->DataSets->Find("Main"); #lMain contains master data + + $BizObject->New(); + $lMain->FindField("DocNo")->AsString = "--Point Test--"; + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2020-04-20")); #YYYY-MM-DD + $lMain->FindField("Code")->AsString = "300-C0001"; #Customer Account + $lMain->FindField("CompanyName")->AsString = "Cash Sales"; + $lMain->FindField("DESCRIPTION")->AsString = "Points Earn"; + $lMain->FindField("FromDocType")->AsString = "CS"; + $lMain->FindField("FromDocNo")->AsString = "CS-01234"; + $lMain->FindField("FROMDOCAMT")->AsFloat = 100.10; + $lMain->FindField("Points")->AsFloat = 10; + + try{ + $BizObject->Save(); + }catch (Exception $e) { + echo 'Caught exception: ', $e->getMessage(), "\n"; + } +} + + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Posting Point"; + PostData(); + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+
+#### SO to DO (sales order to delivery order)
+
+AR_CN Script - click to expand
+ +```php + + + + + + + +SQL Acc SDK in PHP page
+ +"; +#This action to Post Customer Credit Note + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0040.FDB"); #Database Name + +} + +function PostData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("AR_CN"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data + $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data + $lKO = $BizObject->DataSets->Find("cdsKnockOff"); + + $BizObject->New(); + $lMain->FindField("DocKey")->value = -1; + $lMain->FindField("DocNo")->AsString = "--CN Test1--"; + $lMain->FindField("DocDate")->value = "04/20/2020"; #MM/DD/YYYY + $lMain->FindField("PostDate")->value = "04/20/2020"; #MM/DD/YYYY + $lMain->FindField("Code")->AsString = "300-C0001"; #Customer Account + $lMain->FindField("Description")->AsString = "Sales"; + + #Insert Data - Detail + #For Tax Inclusive = True with override Tax Amount + $lDetail->Append(); + $lDetail->FindField("DtlKey")->value = -1; + $lDetail->FindField("DocKey")->value = -1; + $lDetail->FindField("Seq")->value = 1; + $lDetail->FindField("Account")->AsString = "510-000"; #Sales Return Account + $lDetail->FindField("Description")->AsString = "Return Item A"; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("Amount")->AsFloat = 410.37; #Exclding GST Amt + $lDetail->FindField("TaxAmt")->AsFloat = 0; + $lDetail->Post(); + + $V = array("IV", "IV-00003"); #DocType, DocNo + + if ($lKO->Locate("DocType;DocNo", $V, False, False)){ + $lKO->Edit(); + $lKO->FindField("KOAmt")->AsFloat = 100; #Partial Knock off + $lKO->FindField("KnockOff")->AsString = "T"; + $lKO->Post(); + } + $BizObject->Save(); + $BizObject->Close(); +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + PostData(); + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+
+#### ST_AJ (stock adjustment)
+
+SO to DO Script - click to expand
+ +```php + + + + + + + +SQL Acc SDK in PHP page
+ +"; +#This action to +#01. Get Oustanding SO +#02. Post To DO + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0024.FDB"); #Database Name + +} + +function PostData(){ + global $ComServer; + + $lSQL = "SELECT Dockey, DocNo,Code, CompanyName, Seq, DtlKey, ItemCode, Qty, UOM, UnitPrice, Disc, Amount, + COALESCE(Sum(XFQty),0) XFQty, COALESCE((Qty-Sum(XFQty)), Qty) OSQty FROM ( + SELECT A.Dockey, A.DocNo, A.Code, A.CompanyName, + B.DtlKey, B.Seq, B.ItemCode, B.Qty, B.UOM, B.UnitPrice, B.Disc, B.Amount, + C.Qty XFQty FROM SL_SO A + INNER JOIN SL_SODTL B ON (A.DOCKEY=B.DOCKEY) + LEFT JOIN ST_XTRANS C ON (A.DOCKEY=C.FROMDOCKEY AND B.DTLKEY=C.FROMDTLKEY + AND C.FROMDOCTYPE='SO') + WHERE A.DOCNO='SO-00140') + GROUP BY Dockey, DocNo, Code, CompanyName, Seq, Dtlkey, ItemCode, Qty, UOM, UnitPrice, Disc, Amount + HAVING COALESCE((Qty-Sum(XFQty)), Qty) >0 + "; + + $lDataSet = $ComServer->DBManager->NewDataSet($lSQL); #Get Oustanding SO Qty + + if ($lDataSet->RecordCount > 0) { + $BizObject = $ComServer->BizObjects->Find("SL_DO"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data + $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data + + $lDataSet->First(); + $BizObject->New(); + $lMain->FindField("DocNo")->AsString = "--DO Test--"; + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2021-01-20")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2021-01-20")); #YYYY-MM-DD + $lMain->FindField("Code")->AsString = $lDataSet->FindField("Code")->AsString; + $lMain->FindField("CompanyName")->AsString = $lDataSet->FindField("CompanyName")->AsString; + $lMain->FindField("Description")->AsString = "Delivery Order"; + + while (! $lDataSet->Eof()){ + $lDetail->Append(); + $lDetail->FindField("ItemCode")->AsString = $lDataSet->FindField("ItemCode")->AsString; + $lDetail->FindField("UOM")->AsString = $lDataSet->FindField("UOM")->AsString; + $lDetail->FindField("Qty")->AsFloat = $lDataSet->FindField("OSQty")->AsFloat; + $lDetail->FindField("DISC")->value = $lDataSet->FindField("DISC")->value; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("UnitPrice")->AsFloat = $lDataSet->FindField("UnitPrice")->AsFloat; + $lDetail->FindField("Amount")->AsFloat = $lDataSet->FindField("Amount")->AsFloat; + $lDetail->FindField("TaxAmt")->AsFloat = 0; + $lDetail->FindField("FromDocType")->AsString = "SO"; + $lDetail->FindField("FromDockey")->AsFloat = $lDataSet->FindField("Dockey")->AsFloat; + $lDetail->FindField("FromDtlkey")->AsFloat = $lDataSet->FindField("DtlKey")->AsFloat; + $lDetail->Post(); + $lDataSet->Next(); + + } + $BizObject->Save(); + $BizObject->Close(); + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + PostData(); + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+
+#### Get Stock Serial Number balance
+
+ST_AJ Script - click to expand
+ +```php + + + + + + + +SQL Acc SDK in PHP page
+ +"; + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0100.FDB"); #Database Name + +} + +function PostData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("ST_AJ"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); + $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); + + $BizObject->New(); + $lMain->FindField("DocNo")->AsString = "--AJ Test--"; + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2020-04-20")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2020-04-20")); #YYYY-MM-DD + $lMain->FindField("Description")->AsString = "Stock Adjustment"; + + #Insert Data - Detail - Increase Stock Qty + $lDetail->Append(); + $lDetail->FindField("Seq")->value = 1; + $lDetail->FindField("ItemCode")->AsString = "ANT"; + $lDetail->FindField("Description")->AsString = "ANTENA"; + $lDetail->FindField("Qty")->AsFloat = 2; + $lDetail->FindField("UOM")->AsString = "BOX"; + $lDetail->Post(); + + #Insert Data - Detail - Reduce Stock Qty + $lDetail->Append(); + $lDetail->FindField("Seq")->value = 2; + $lDetail->FindField("ItemCode")->AsString = "N-CHARGER"; + $lDetail->FindField("Description")->AsString = "NOKIA CHARGER"; + $lDetail->FindField("Qty")->AsFloat = -5; + $lDetail->FindField("UOM")->AsString = "UNIT"; + $lDetail->Post(); + + $BizObject->Save(); + $BizObject->Close(); + + try{ + $BizObject->Save(); + $BizObject->Close(); + }catch (Exception $e) { + echo 'Caught exception: ', $e->getMessage(), "\n"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + PostData(); + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+ ";
+ echo "
"."
"; + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### SL_IV-Add, Edit & Delete (sales invoice)
+
+Get Stock Serial Number balance Script - click to expand
+ +```php + + + + + + + +SQL Acc SDK in PHP page
+ +"; + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "D:\Happy\DB\Default.DCF", #"C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0024.FDB"); #Database Name + +} + +function GetData(){ + global $ComServer; + + $lSQL = "SELECT ItemCode, Location, Batch, SerialNumber, SUM(Qty) Qty FROM ST_TR_SN + GROUP BY ItemCode, Location, Batch, SerialNumber + HAVING SUM(Qty) > 0 + "; + + $lDataSet = $ComServer->DBManager->NewDataSet($lSQL); + + if ($lDataSet->RecordCount > 0) { + $lDataSet->First(); + $fc = $lDataSet->Fields->Count-1; + echo "| ".$lDataSet->Fields->Items($x)->FieldName()." | "; + } + echo "
| ".$lDataSet->FindField($lFN)->AsString()." | "; + } + echo "
"; + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
"; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Edit(); + $lMain->Edit(); + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2024-04-24")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2024-04-24")); #YYYY-MM-DD + $lMain->FindField("CompanyName")->AsString = "Cash Sales-Edited"; + $lMain->FindField("Address1")->AsString = ""; #Optional + $lMain->FindField("Address2")->AsString = ""; #Optional + $lMain->FindField("Address3")->AsString = ""; #Optional + $lMain->FindField("Address4")->AsString = ""; #Optional + $lMain->FindField("Phone1")->AsString = ""; #Optional + $lMain->FindField("Description")->AsString = "Sales - Edited"; + + $V = array("ANT", "UNIT"); #ItemCode, UOM + + if ($lDetail->Locate("ItemCode;UOM", $V, False, False)){ + $lDetail->Edit(); + $lDetail->FindField("Qty")->AsFloat = 2; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("UnitPrice")->AsFloat = 6.00; + $lDetail->FindField("Amount")->AsFloat = 12.00; + $lDetail->FindField("TaxAmt")->AsFloat = 0; + $lDetail->Post(); + } + } else { + echo "New Invoice
"; + $BizObject->New(); + $lMain->FindField("DocKey")->value = -1; + $lMain->FindField("DocNo")->AsString = #$lDocNo; + $lMain->FindField("Code")->AsString = "300-C0001"; #Customer Account + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2024-04-03")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2024-04-03")); #YYYY-MM-DD + $lMain->FindField("CompanyName")->AsString = "Cash Sales"; + $lMain->FindField("Address1")->AsString = ""; #Optional + $lMain->FindField("Address2")->AsString = ""; #Optional + $lMain->FindField("Address3")->AsString = ""; #Optional + $lMain->FindField("Address4")->AsString = ""; #Optional + $lMain->FindField("Phone1")->AsString = ""; #Optional + $lMain->FindField("Description")->AsString = "Sales"; + #$lMain->FindField('DocAmt')->value = $Amt; + + + $lDetail->Append(); + $lDetail->FindField("ItemCode")->AsString = "BOM"; + $lDetail->FindField("Description")->AsString = "Sales Item BOM"; + $lDetail->FindField("UOM")->AsString = "UNIT"; + $lDetail->FindField("Qty")->AsFloat = 2; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("UnitPrice")->AsFloat = 150; + $lDetail->FindField("Amount")->AsFloat = 300; + $lDetail->FindField("TaxAmt")->AsFloat = 0; + $lDetail->Post(); + + $lDetail->Append(); + $lDetail->FindField("ItemCode")->AsString = "ANT"; + $lDetail->FindField("Description")->AsString = "Sales Item ANT"; + $lDetail->FindField("UOM")->AsString = "UNIT"; + $lDetail->FindField("Qty")->AsFloat = 1; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("UnitPrice")->AsFloat = 100; + $lDetail->FindField("Amount")->AsFloat = 100; + $lDetail->FindField("TaxAmt")->AsFloat = 0; + $lDetail->Post(); + + #For Serial Number + $lDetail->Append(); + $lDetail->FindField("ItemCode")->AsString = "SN"; + $lDetail->FindField("Description")->AsString = "Sales Serial Number Item"; + $lDetail->FindField("UOM")->AsString = "UNIT"; + + $lSN->Append; + $lSN->FindField("SERIALNUMBER")->AsString = 'SN-136476'; + $lSN->Post; + + $lSN->Append; + $lSN->FindField("SERIALNUMBER")->AsString = 'SN-136477'; + $lSN->Post; + + $lDetail->FindField("Qty")->AsFloat = 2; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("UnitPrice")->AsFloat = 100; + $lDetail->FindField("Amount")->AsFloat = 100; + $lDetail->FindField("TaxAmt")->AsFloat = 0; + $lDetail->Post(); + } + $BizObject->Save(); + echo "Save with DocNo ".$lMain->FindField("DocNo")->AsString."
"; + echo date("d M Y h:i:s A")." - Posting Done
"; + $BizObject->Close(); +} + +function PostDelIV(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("SL_IV"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data + + #Find IV Number + $lDocNo = "--IV Test--"; + $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo); + + if ($lDocKey != null){ + echo "Dockey = ".$lDocKey."
"; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Delete(); + echo date("d M Y h:i:s A")." - Record deleted
"; + } else { + echo date("d M Y h:i:s A")." - Document Not Found
"; + } +} +if (isset($_POST['BtnPost'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Posting
"; + PostDataIV(); + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +if (isset($_POST['BtnDel'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Delete
"; + PostDelIV(); + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### GL_PV-Add, Edit & Delete (payment voucher)
+
+SL_IV-Add, Edit & Delete Script - click to expand
+ +```php + + + + +SQL Acc SDK in PHP page
+ +"; +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "D:\Happy\DB\Default.DCF", #"C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0015.FDB"); #Database Name + +} + +function PostDataIV(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("SL_IV"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data + $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data + $lSN = $BizObject->DataSets->Find("cdsSerialNumber"); #lDetail contains detail data + + #Find IV Number + $lDocNo = "--IV Test--"; + $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo); + + if ($lDocKey != null){ + echo "Dockey = ".$lDocKey.""; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Edit(); + $lMain->Edit(); + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2024-04-24")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2024-04-24")); #YYYY-MM-DD + $lMain->FindField("CompanyName")->AsString = "Cash Sales-Edited"; + $lMain->FindField("Address1")->AsString = ""; #Optional + $lMain->FindField("Address2")->AsString = ""; #Optional + $lMain->FindField("Address3")->AsString = ""; #Optional + $lMain->FindField("Address4")->AsString = ""; #Optional + $lMain->FindField("Phone1")->AsString = ""; #Optional + $lMain->FindField("Description")->AsString = "Sales - Edited"; + + $V = array("ANT", "UNIT"); #ItemCode, UOM + + if ($lDetail->Locate("ItemCode;UOM", $V, False, False)){ + $lDetail->Edit(); + $lDetail->FindField("Qty")->AsFloat = 2; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("UnitPrice")->AsFloat = 6.00; + $lDetail->FindField("Amount")->AsFloat = 12.00; + $lDetail->FindField("TaxAmt")->AsFloat = 0; + $lDetail->Post(); + } + } else { + echo "New Invoice
"; + $BizObject->New(); + $lMain->FindField("DocKey")->value = -1; + $lMain->FindField("DocNo")->AsString = #$lDocNo; + $lMain->FindField("Code")->AsString = "300-C0001"; #Customer Account + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2024-04-03")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2024-04-03")); #YYYY-MM-DD + $lMain->FindField("CompanyName")->AsString = "Cash Sales"; + $lMain->FindField("Address1")->AsString = ""; #Optional + $lMain->FindField("Address2")->AsString = ""; #Optional + $lMain->FindField("Address3")->AsString = ""; #Optional + $lMain->FindField("Address4")->AsString = ""; #Optional + $lMain->FindField("Phone1")->AsString = ""; #Optional + $lMain->FindField("Description")->AsString = "Sales"; + #$lMain->FindField('DocAmt')->value = $Amt; + + + $lDetail->Append(); + $lDetail->FindField("ItemCode")->AsString = "BOM"; + $lDetail->FindField("Description")->AsString = "Sales Item BOM"; + $lDetail->FindField("UOM")->AsString = "UNIT"; + $lDetail->FindField("Qty")->AsFloat = 2; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("UnitPrice")->AsFloat = 150; + $lDetail->FindField("Amount")->AsFloat = 300; + $lDetail->FindField("TaxAmt")->AsFloat = 0; + $lDetail->Post(); + + $lDetail->Append(); + $lDetail->FindField("ItemCode")->AsString = "ANT"; + $lDetail->FindField("Description")->AsString = "Sales Item ANT"; + $lDetail->FindField("UOM")->AsString = "UNIT"; + $lDetail->FindField("Qty")->AsFloat = 1; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("UnitPrice")->AsFloat = 100; + $lDetail->FindField("Amount")->AsFloat = 100; + $lDetail->FindField("TaxAmt")->AsFloat = 0; + $lDetail->Post(); + + #For Serial Number + $lDetail->Append(); + $lDetail->FindField("ItemCode")->AsString = "SN"; + $lDetail->FindField("Description")->AsString = "Sales Serial Number Item"; + $lDetail->FindField("UOM")->AsString = "UNIT"; + + $lSN->Append; + $lSN->FindField("SERIALNUMBER")->AsString = 'SN-136476'; + $lSN->Post; + + $lSN->Append; + $lSN->FindField("SERIALNUMBER")->AsString = 'SN-136477'; + $lSN->Post; + + $lDetail->FindField("Qty")->AsFloat = 2; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("UnitPrice")->AsFloat = 100; + $lDetail->FindField("Amount")->AsFloat = 100; + $lDetail->FindField("TaxAmt")->AsFloat = 0; + $lDetail->Post(); + } + $BizObject->Save(); + echo "Save with DocNo ".$lMain->FindField("DocNo")->AsString."
"; + echo date("d M Y h:i:s A")." - Posting Done
"; + $BizObject->Close(); +} + +function PostDelIV(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("SL_IV"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data + + #Find IV Number + $lDocNo = "--IV Test--"; + $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo); + + if ($lDocKey != null){ + echo "Dockey = ".$lDocKey."
"; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Delete(); + echo date("d M Y h:i:s A")." - Record deleted
"; + } else { + echo date("d M Y h:i:s A")." - Document Not Found
"; + } +} +if (isset($_POST['BtnPost'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Posting
"; + PostDataIV(); + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +if (isset($_POST['BtnDel'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Delete
"; + PostDelIV(); + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
"; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Edit(); + $lMain->Edit(); + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2022-02-20")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2022-02-20")); #YYYY-MM-DD + $lMain->FindField("Description")->AsString = "Tenaga Malaysia - Edited"; + $lMain->FindField("PaymentMethod")->AsString = "310-001"; #GL Bank/Cash account code + $lMain->FindField("CHEQUENUMBER")->AsString = "MBB 123456"; #Optional + $lMain->FindField("Cancelled")->AsString = "F"; + + $r = $lDetail->RecordCount(); + $x = 1; + while ($x <= $r ){ + $lDetail->First(); + $lDetail->Delete(); + $x++; + } + $lDetail->Append(); + $lDetail->FindField("Code")->AsString = "907-000"; + $lDetail->FindField("Description")->AsString = "TNB Bill for Feb 2022 - Edited"; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("Amount")->AsFloat = 168.80; + $lDetail->FindField("TaxAmt")->AsFloat = 0; + $lDetail->Post(); + } else { + echo "New PV
"; + $BizObject->New(); + $lMain->FindField("DocNo")->AsString = $lDocNo; + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2022-02-18")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2022-02-18")); #YYYY-MM-DD + $lMain->FindField("Description")->AsString = "Tenaga Malaysia"; + $lMain->FindField("PaymentMethod")->AsString = "310-001"; #GL Bank/Cash account code + $lMain->FindField("CHEQUENUMBER")->AsString = "MBB 123456"; #Optional + $lMain->FindField("Cancelled")->AsString = "F"; + + $lDetail->Append(); + $lDetail->FindField("Code")->AsString = "907-000"; #GL Account + $lDetail->FindField("Description")->AsString = "TNB Bill for Jan 2022"; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("Amount")->AsFloat = 100.80; + $lDetail->FindField("TaxAmt")->AsFloat = 0; + $lDetail->Post(); + + $lDetail->Append(); + $lDetail->FindField("Code")->AsString = "907-000"; + $lDetail->FindField("Description")->AsString = "TNB Bill for Feb 2022"; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("Amount")->AsFloat = 68.00; + $lDetail->FindField("TaxAmt")->AsFloat = 0; + $lDetail->Post(); + } + $BizObject->Save(); + + echo date("d M Y h:i:s A")." - Posting Done
"; + $BizObject->Close(); +} + +function DelData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("GL_PV"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data + + #Find PV Number + $lDocNo = "--PV Test--"; + $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo); + + if ($lDocKey != null){ + echo "Dockey = ".$lDocKey."
"; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Delete(); + echo date("d M Y h:i:s A")." - Record deleted
"; + } else { + echo date("d M Y h:i:s A")." - Document Not Found
"; + } +} +if (isset($_POST['BtnPost'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Posting
"; + PostData(); + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +if (isset($_POST['BtnDel'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Delete
"; + DelData(); + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### GL_JE-Add, Edit & Delete (journal entry)
+
+Insert, Edit & Delete Invoice Script - click to expand
+ +```php + + + + +SQL Acc SDK in PHP page
+ +"; +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "D:\Happy\DB\Default.DCF", #"C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0015.FDB"); #Database Name + +} + +function PostData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("GL_PV"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data + $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data + + #Find PV Number + $lDocNo = "--PV Test--"; + $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo); + + if ($lDocKey != null){ + echo "Dockey = ".$lDocKey.""; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Edit(); + $lMain->Edit(); + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2022-02-20")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2022-02-20")); #YYYY-MM-DD + $lMain->FindField("Description")->AsString = "Tenaga Malaysia - Edited"; + $lMain->FindField("PaymentMethod")->AsString = "310-001"; #GL Bank/Cash account code + $lMain->FindField("CHEQUENUMBER")->AsString = "MBB 123456"; #Optional + $lMain->FindField("Cancelled")->AsString = "F"; + + $r = $lDetail->RecordCount(); + $x = 1; + while ($x <= $r ){ + $lDetail->First(); + $lDetail->Delete(); + $x++; + } + $lDetail->Append(); + $lDetail->FindField("Code")->AsString = "907-000"; + $lDetail->FindField("Description")->AsString = "TNB Bill for Feb 2022 - Edited"; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("Amount")->AsFloat = 168.80; + $lDetail->FindField("TaxAmt")->AsFloat = 0; + $lDetail->Post(); + } else { + echo "New PV
"; + $BizObject->New(); + $lMain->FindField("DocNo")->AsString = $lDocNo; + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2022-02-18")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2022-02-18")); #YYYY-MM-DD + $lMain->FindField("Description")->AsString = "Tenaga Malaysia"; + $lMain->FindField("PaymentMethod")->AsString = "310-001"; #GL Bank/Cash account code + $lMain->FindField("CHEQUENUMBER")->AsString = "MBB 123456"; #Optional + $lMain->FindField("Cancelled")->AsString = "F"; + + $lDetail->Append(); + $lDetail->FindField("Code")->AsString = "907-000"; #GL Account + $lDetail->FindField("Description")->AsString = "TNB Bill for Jan 2022"; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("Amount")->AsFloat = 100.80; + $lDetail->FindField("TaxAmt")->AsFloat = 0; + $lDetail->Post(); + + $lDetail->Append(); + $lDetail->FindField("Code")->AsString = "907-000"; + $lDetail->FindField("Description")->AsString = "TNB Bill for Feb 2022"; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("Amount")->AsFloat = 68.00; + $lDetail->FindField("TaxAmt")->AsFloat = 0; + $lDetail->Post(); + } + $BizObject->Save(); + + echo date("d M Y h:i:s A")." - Posting Done
"; + $BizObject->Close(); +} + +function DelData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("GL_PV"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data + + #Find PV Number + $lDocNo = "--PV Test--"; + $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo); + + if ($lDocKey != null){ + echo "Dockey = ".$lDocKey."
"; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Delete(); + echo date("d M Y h:i:s A")." - Record deleted
"; + } else { + echo date("d M Y h:i:s A")." - Document Not Found
"; + } +} +if (isset($_POST['BtnPost'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Posting
"; + PostData(); + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +if (isset($_POST['BtnDel'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Delete
"; + DelData(); + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
"; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Edit(); + $lMain->Edit(); + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2022-02-20")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2022-02-20")); #YYYY-MM-DD + $lMain->FindField("Description")->AsString = "Credit Card Charges - Edited"; + $lMain->FindField("Cancelled")->AsString = "F"; + + $r = $lDetail->RecordCount(); + $x = 1; + while ($x <= $r ){ + $lDetail->First(); + $lDetail->Delete(); + $x++; + } + $lDetail->Append(); + $lDetail->FindField("Code")->AsString = "902-000"; + $lDetail->FindField("Description")->AsString = "MBB Credit Card Charges - Edited"; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("LocalDR")->AsFloat = 78.88; + $lDetail->FindField("DR")->AsFloat = 78.88; #If Wanted DR <> LocalDR + $lDetail->FindField("LocalTaxAmt")->AsFloat = 0; + $lDetail->Post(); + + $lDetail->Append(); + $lDetail->FindField("Code")->AsString = "310-001"; + $lDetail->FindField("Description")->AsString = "MBB Credit Card Charges - Edited"; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("LocalCR")->AsFloat = 78.88; + $lDetail->FindField("CR")->AsFloat = 78.88; #If Wanted CR <> LocalCR + $lDetail->FindField("LocalTaxAmt")->AsFloat = 0; + $lDetail->Post(); + } else { + echo "New JE
"; + $BizObject->New(); + $lMain->FindField("DocNo")->AsString = $lDocNo; + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2022-02-18")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2022-02-18")); #YYYY-MM-DD + $lMain->FindField("Description")->AsString = "Credit Card Charges"; + $lMain->FindField("Cancelled")->AsString = "F"; + + $lDetail->Append(); + $lDetail->FindField("Code")->AsString = "902-000"; + $lDetail->FindField("Description")->AsString = "MBB Credit Card Charges"; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("LocalDR")->AsFloat = 88.88; + $lDetail->FindField("DR")->AsFloat = 88.88; #If Wanted DR <> LocalDR + $lDetail->FindField("LocalTaxAmt")->AsFloat = 0; + $lDetail->Post(); + + $lDetail->Append(); + $lDetail->FindField("Code")->AsString = "310-001"; + $lDetail->FindField("Description")->AsString = "MBB Credit Card Charges"; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("LocalCR")->AsFloat = 88.88; + $lDetail->FindField("CR")->AsFloat = 88.88; #If Wanted CR <> LocalCR + $lDetail->FindField("LocalTaxAmt")->AsFloat = 0; + $lDetail->Post(); + } + $BizObject->Save(); + + echo date("d M Y h:i:s A")." - Posting Done
"; + $BizObject->Close(); +} + +function DelData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("GL_JE"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data + + #Find JE Number + $lDocNo = "--JE Test--"; + $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo); + + if ($lDocKey != null){ + echo "Dockey = ".$lDocKey."
"; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Delete(); + echo date("d M Y h:i:s A")." - Record deleted
"; + } else { + echo date("d M Y h:i:s A")." - Document Not Found
"; + } +} +if (isset($_POST['BtnPost'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Posting
"; + PostData(); + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +if (isset($_POST['BtnDel'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Delete
"; + DelData(); + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### Get Outstanding SO List
+
+Insert, Edit & Delete Journal Script Script - click to expand
+ +```php + + + + +SQL Acc SDK in PHP page
+ +"; +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0015.FDB"); #Database Name + +} + +function PostData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("GL_JE"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data + $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data + + #Find JE Number + $lDocNo = "--JE Test--"; + $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo); + + if ($lDocKey != null){ + echo "Dockey = ".$lDocKey.""; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Edit(); + $lMain->Edit(); + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2022-02-20")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2022-02-20")); #YYYY-MM-DD + $lMain->FindField("Description")->AsString = "Credit Card Charges - Edited"; + $lMain->FindField("Cancelled")->AsString = "F"; + + $r = $lDetail->RecordCount(); + $x = 1; + while ($x <= $r ){ + $lDetail->First(); + $lDetail->Delete(); + $x++; + } + $lDetail->Append(); + $lDetail->FindField("Code")->AsString = "902-000"; + $lDetail->FindField("Description")->AsString = "MBB Credit Card Charges - Edited"; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("LocalDR")->AsFloat = 78.88; + $lDetail->FindField("DR")->AsFloat = 78.88; #If Wanted DR <> LocalDR + $lDetail->FindField("LocalTaxAmt")->AsFloat = 0; + $lDetail->Post(); + + $lDetail->Append(); + $lDetail->FindField("Code")->AsString = "310-001"; + $lDetail->FindField("Description")->AsString = "MBB Credit Card Charges - Edited"; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("LocalCR")->AsFloat = 78.88; + $lDetail->FindField("CR")->AsFloat = 78.88; #If Wanted CR <> LocalCR + $lDetail->FindField("LocalTaxAmt")->AsFloat = 0; + $lDetail->Post(); + } else { + echo "New JE
"; + $BizObject->New(); + $lMain->FindField("DocNo")->AsString = $lDocNo; + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2022-02-18")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2022-02-18")); #YYYY-MM-DD + $lMain->FindField("Description")->AsString = "Credit Card Charges"; + $lMain->FindField("Cancelled")->AsString = "F"; + + $lDetail->Append(); + $lDetail->FindField("Code")->AsString = "902-000"; + $lDetail->FindField("Description")->AsString = "MBB Credit Card Charges"; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("LocalDR")->AsFloat = 88.88; + $lDetail->FindField("DR")->AsFloat = 88.88; #If Wanted DR <> LocalDR + $lDetail->FindField("LocalTaxAmt")->AsFloat = 0; + $lDetail->Post(); + + $lDetail->Append(); + $lDetail->FindField("Code")->AsString = "310-001"; + $lDetail->FindField("Description")->AsString = "MBB Credit Card Charges"; + $lDetail->FindField("Tax")->AsString = ""; + $lDetail->FindField("TaxRate")->AsString = ""; + $lDetail->FindField("TaxInclusive")->value = 0; + $lDetail->FindField("LocalCR")->AsFloat = 88.88; + $lDetail->FindField("CR")->AsFloat = 88.88; #If Wanted CR <> LocalCR + $lDetail->FindField("LocalTaxAmt")->AsFloat = 0; + $lDetail->Post(); + } + $BizObject->Save(); + + echo date("d M Y h:i:s A")." - Posting Done
"; + $BizObject->Close(); +} + +function DelData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("GL_JE"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data + + #Find JE Number + $lDocNo = "--JE Test--"; + $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo); + + if ($lDocKey != null){ + echo "Dockey = ".$lDocKey."
"; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Delete(); + echo date("d M Y h:i:s A")." - Record deleted
"; + } else { + echo date("d M Y h:i:s A")." - Document Not Found
"; + } +} +if (isset($_POST['BtnPost'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Posting
"; + PostData(); + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +if (isset($_POST['BtnDel'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Delete
"; + DelData(); + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+ ";
+ echo "
"."
"; + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Get Data
"; + GetData(); + echo date("d M Y h:i:s A")." - Done
"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### Get Stock Item Picture
+
+Get Outstanding SO List Script - click to expand
+ +```php + + + + +SQL Acc SDK in PHP page
+ +"; +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0015.FDB"); #Database Name + +} + +function GetData(){ + global $ComServer; + + $lSQL = "SELECT Dockey, DocNo,Code, CompanyName, Seq, DtlKey, ItemCode, Qty, UOM, UnitPrice, Disc, Amount, + COALESCE(Sum(XFQty),0) XFQty, COALESCE((Qty-Sum(XFQty)), Qty) OSQty FROM ( + SELECT A.Dockey, A.DocNo, A.Code, A.CompanyName, + B.DtlKey, B.Seq, B.ItemCode, B.Qty, B.UOM, B.UnitPrice, B.Disc, B.Amount, + C.Qty XFQty FROM SL_SO A + INNER JOIN SL_SODTL B ON (A.DOCKEY=B.DOCKEY) + LEFT JOIN ST_XTRANS C ON (A.DOCKEY=C.FROMDOCKEY AND B.DTLKEY=C.FROMDTLKEY + AND C.FROMDOCTYPE='SO') + WHERE A.Cancelled='F') + GROUP BY Dockey, DocNo, Code, CompanyName, Seq, Dtlkey, ItemCode, Qty, UOM, UnitPrice, Disc, Amount + HAVING COALESCE((Qty-Sum(XFQty)), Qty) >0 + "; + + $lDataSet = $ComServer->DBManager->NewDataSet($lSQL); + + if ($lDataSet->RecordCount > 0) { + $lDataSet->First(); + $fc = $lDataSet->Fields->Count-1; + echo "| ".$lDataSet->Fields->Items($x)->FieldName()." | "; + } + echo "
| ".$lDataSet->FindField($lFN)->AsString()." | "; + } + echo "
"; + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Get Data
"; + GetData(); + echo date("d M Y h:i:s A")." - Done
"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+ ).')
';
+
+ }else {
+ echo "Record Not Found";
+ }
+}
+
+if (isset($_POST['BtnData']))
+{
+ try
+ {
+ CheckLogin();
+ GetData();
+ echo "
"; + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+####
+
+Get Stock Item Picture Script - click to expand
+ +```php + + + + +SQL Acc SDK in PHP page
+ +"; + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp", null, CP_UTF8) or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0082.FDB"); #Database Name + +} + +function GetData(){ + global $ComServer; + + $lSQL = "SELECT Picture FROM ST_ITEM + WHERE Code='ANT' "; + + $lDataSet = $ComServer->DBManager->NewDataSet($lSQL); + + if ($lDataSet->RecordCount > 0) { + $lDataSet->First(); + + $raw = $lDataSet->FindField('Picture')->Value(); + + $b = []; + foreach($raw as $p) { + array_push($b, chr($p)); + } + + echo '"; + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+
+#### Customer.Aging.RO
+
+Script - click to expand
+ +```php + +``` + +
+ ";
+ echo "
"."
"; +} + +function GetData(){ + global $ComServer; + + $lSQL = '
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+
"; + SetGrid($lDataSetHdr); + + echo "Main Data"."
"; + SetGrid($lDataSet); + + echo "Detail Invoice"."
"; + SetGrid($lDataSet2); + + echo "Company Information"."
"; + SetGrid($lDataSetCO); + + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo "
"; + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + #$ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### Get Description3
+
+Customer.Aging.RO Script - click to expand
+ +```php + + + + + + + +SQL Acc SDK in PHP page
+ +"; + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp", null, CP_UTF8) or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + #$ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0082.FDB"); #Database Name + +} + +function SetGrid($DataSet){ + echo "| ".$DataSet->Fields->Items($x)->FieldName()." | "; + } + echo "
| ".$DataSet->FindField($lFN)->AsString()." | "; + } + echo "
"; +} + +function GetData(){ + global $ComServer; + + $lSQL = '
"; + SetGrid($lDataSetHdr); + + echo "Main Data"."
"; + SetGrid($lDataSet); + + echo "Detail Invoice"."
"; + SetGrid($lDataSet2); + + echo "Company Information"."
"; + SetGrid($lDataSetCO); + + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo "
"; + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + #$ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
==
"; + echo "
Result after RTF:
"; + $txt = $ComServer->Utility->RichTextToPlainText($rtf); + echo ""; + echo "
==
"; + echo "的第一 🐱"; + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo date("d M Y h:i:s A") . " - Done"; + } + finally + { + #$ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### AR_PM-Add, Edit & Delete (customer payment)
+
+Get Description3 Script - click to expand
+ +```php + + + + +SQL Acc SDK in PHP page
+ +"; +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp", null, CP_UTF8) or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + # $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0024.FDB"); #Database Name + +} + +function GetData(){ + global $ComServer; + + $lSQL = "SELECT Description3, Picture FROM ST_ITEM + WHERE Code='ANT' "; + + $lDataSet = $ComServer->DBManager->NewDataSet($lSQL); + + if ($lDataSet->RecordCount > 0) { + $lDataSet->First(); + + $rtf = $lDataSet->FindField('Description3')->AsString(); + + echo $rtf; + echo "==
"; + echo "
Result after RTF:
"; + $txt = $ComServer->Utility->RichTextToPlainText($rtf); + echo ""; + echo "
==
"; + echo "的第一 🐱"; + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo date("d M Y h:i:s A") . " - Done"; + } + finally + { + #$ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
"; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Edit(); + $lMain->Edit(); + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2024-09-23")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2024-09-23")); #YYYY-MM-DD + $lMain->FindField("Description")->AsString = "Payment for A/c - Edited"; + $lMain->FindField("DocAmt")->AsFloat = 550.00; + + #Knock Off IV + $V = array("IV", "--CS Test--"); #DocType, DocNo + + if ($lDetail->Locate("DocType;DocNo", $V, False, False)) { + $lDetail->Edit(); + $lDetail->FindField("KOAmt")->AsFloat = 550; + $lDetail->FindField("KnockOff")->AsString = "T"; + $lDetail->Post(); + } + } else { + echo "New Payment
"; + $BizObject->New(); + $lMain->FindField("DocKey")->value = -1; + $lMain->FindField("DocNo")->AsString = $lDocNo; + $lMain->FindField("Code")->AsString = "300-C0001"; #Customer Account + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2024-09-23")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2024-09-23")); #YYYY-MM-DD + $lMain->FindField("Description")->AsString = "Payment for A/c"; + $lMain->FindField("PaymentMethod")->AsString = "320-000"; #Bank or Cash Account + $lMain->FindField("ChequeNumber")->AsString = ""; + $lMain->FindField("BankCharge")->AsFloat = 0; + $lMain->FindField("DocAmt")->AsFloat = 200.00; + $lMain->FindField("Cancelled")->AsString = "F"; + + + #Knock Off IV + $V = array("IV", "--CS Test--"); #DocType, DocNo + + if ($lDetail->Locate("DocType;DocNo", $V, False, False)) { + $lDetail->Edit(); + $lDetail->FindField("KOAmt")->AsFloat = 200.0; + $lDetail->FindField("KnockOff")->AsString = "T"; + $lDetail->Post(); + } + + } + $BizObject->Save(); + echo "Save with DocNo ".$lMain->FindField("DocNo")->AsString."
"; + echo date("d M Y h:i:s A")." - Posting Done
"; + $BizObject->Close(); +} + +function DelData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("AR_PM"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data + + #Find PV Number + $lDocNo = "--OR Test--"; + $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo); + + if ($lDocKey != null){ + echo "Dockey = ".$lDocKey."
"; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Delete(); + echo date("d M Y h:i:s A")." - Record deleted
"; + } else { + echo date("d M Y h:i:s A")." - Document Not Found
"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Posting
"; + PostData(); + echo date("d M Y h:i:s A")." - Done
"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +if (isset($_POST['BtnDel'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Delete
"; + DelData(); + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### Customer.Statement.RO
+
+AR_PM-Add, Edit & Delete Script - click to expand
+ +```php + + + + +SQL Acc SDK in PHP page
+ +"; +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp", null, CP_UTF8) or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0024.FDB"); #Database Name + +} + +function PostData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("AR_PM"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data + $lDetail = $BizObject->DataSets->Find("cdsKnockOff"); #lDetail contains detail data + + #Find OR Number + $lDocNo = "--OR Test--"; + $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo); + + if ($lDocKey != null){ + echo "Dockey = ".$lDocKey.""; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Edit(); + $lMain->Edit(); + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2024-09-23")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2024-09-23")); #YYYY-MM-DD + $lMain->FindField("Description")->AsString = "Payment for A/c - Edited"; + $lMain->FindField("DocAmt")->AsFloat = 550.00; + + #Knock Off IV + $V = array("IV", "--CS Test--"); #DocType, DocNo + + if ($lDetail->Locate("DocType;DocNo", $V, False, False)) { + $lDetail->Edit(); + $lDetail->FindField("KOAmt")->AsFloat = 550; + $lDetail->FindField("KnockOff")->AsString = "T"; + $lDetail->Post(); + } + } else { + echo "New Payment
"; + $BizObject->New(); + $lMain->FindField("DocKey")->value = -1; + $lMain->FindField("DocNo")->AsString = $lDocNo; + $lMain->FindField("Code")->AsString = "300-C0001"; #Customer Account + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2024-09-23")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2024-09-23")); #YYYY-MM-DD + $lMain->FindField("Description")->AsString = "Payment for A/c"; + $lMain->FindField("PaymentMethod")->AsString = "320-000"; #Bank or Cash Account + $lMain->FindField("ChequeNumber")->AsString = ""; + $lMain->FindField("BankCharge")->AsFloat = 0; + $lMain->FindField("DocAmt")->AsFloat = 200.00; + $lMain->FindField("Cancelled")->AsString = "F"; + + + #Knock Off IV + $V = array("IV", "--CS Test--"); #DocType, DocNo + + if ($lDetail->Locate("DocType;DocNo", $V, False, False)) { + $lDetail->Edit(); + $lDetail->FindField("KOAmt")->AsFloat = 200.0; + $lDetail->FindField("KnockOff")->AsString = "T"; + $lDetail->Post(); + } + + } + $BizObject->Save(); + echo "Save with DocNo ".$lMain->FindField("DocNo")->AsString."
"; + echo date("d M Y h:i:s A")." - Posting Done
"; + $BizObject->Close(); +} + +function DelData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("AR_PM"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data + + #Find PV Number + $lDocNo = "--OR Test--"; + $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo); + + if ($lDocKey != null){ + echo "Dockey = ".$lDocKey."
"; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Delete(); + echo date("d M Y h:i:s A")." - Record deleted
"; + } else { + echo date("d M Y h:i:s A")." - Document Not Found
"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Posting
"; + PostData(); + echo date("d M Y h:i:s A")." - Done
"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +if (isset($_POST['BtnDel'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Delete
"; + DelData(); + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+ ";
+ echo "
"."
"; +} + +function GetData(){ + global $ComServer; + + $lSQL = '
+ |
+ |
+ |
+ |
+ |
+ |
+ |
+
"; + SetGrid($lDataSet); + + echo "Detail Invoice"."
"; + SetGrid($lDataSet2); + + echo "Company Information"."
"; + SetGrid($lDataSetCO); + + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo "
"; + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### AP_SP-Add, Edit & Delete (sales payment)
+
+Customer.Statement.RO Script - click to expand
+ +```php + + + + + + + +SQL Acc SDK in PHP page
+ +"; + + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp", null, CP_UTF8) or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\\eStream\\SQLAccounting\\Share\\Default.DCF", #DCF file + "ACC-0082.FDB"); #Database Name + +} + +function SetGrid($DataSet){ + echo "| ".$DataSet->Fields->Items($x)->FieldName()." | "; + } + echo "
| ".$DataSet->FindField($lFN)->AsString()." | "; + } + echo "
"; +} + +function GetData(){ + global $ComServer; + + $lSQL = '
"; + SetGrid($lDataSet); + + echo "Detail Invoice"."
"; + SetGrid($lDataSet2); + + echo "Company Information"."
"; + SetGrid($lDataSetCO); + + }else { + echo "Record Not Found"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + GetData(); + echo "
"; + echo date("d M Y h:i:s A")." - Done"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
"; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Edit(); + $lMain->Edit(); + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2024-09-23")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2024-09-23")); #YYYY-MM-DD + $lMain->FindField("Description")->AsString = "Payment for A/c - Edited"; + $lMain->FindField("DocAmt")->AsFloat = 550.00; + + #Knock Off IV + $V = array("PI", "--PI Test--"); #DocType, DocNo + + if ($lDetail->Locate("DocType;DocNo", $V, False, False)) { + $lDetail->Edit(); + $lDetail->FindField("KOAmt")->AsFloat = 550; + $lDetail->FindField("KnockOff")->AsString = "T"; + $lDetail->Post(); + } + } else { + echo "New Payment
"; + $BizObject->New(); + $lMain->FindField("DocKey")->value = -1; + $lMain->FindField("DocNo")->AsString = $lDocNo; + $lMain->FindField("Code")->AsString = $lCode; #Supplier Account + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2024-09-23")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2024-09-23")); #YYYY-MM-DD + $lMain->FindField("Description")->AsString = "Payment for A/c"; + $lMain->FindField("PaymentMethod")->AsString = "320-000"; #Bank or Cash Account + $lMain->FindField("ChequeNumber")->AsString = ""; + $lMain->FindField("BankCharge")->AsFloat = 0; + $lMain->FindField("DocAmt")->AsFloat = 200.00; + $lMain->FindField("Cancelled")->AsString = "F"; + + + #Knock Off IV + $V = array("PI", "--PI Test--"); #DocType, DocNo + + if ($lDetail->Locate("DocType;DocNo", $V, False, False)) { + $lDetail->Edit(); + $lDetail->FindField("KOAmt")->AsFloat = 200.0; + $lDetail->FindField("KnockOff")->AsString = "T"; + $lDetail->Post(); + } + + } + $BizObject->Save(); + echo "Save with DocNo ".$lMain->FindField("DocNo")->AsString."
"; + echo date("d M Y h:i:s A")." - Posting Done
"; + $BizObject->Close(); +} + +function DelData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("AP_SP"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data + + #Find PV Number + $lDocNo = "--PV Test--"; + $lCode = "400-C0001"; + $V = array($lDocNo, $lCode); #DocNo, Supplier Code + $lDocKey = $BizObject->FindKeyByRef("DocNo;Code", $V); + + if ($lDocKey != null){ + echo "Dockey = ".$lDocKey."
"; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Delete(); + echo date("d M Y h:i:s A")." - Record deleted
"; + } else { + echo date("d M Y h:i:s A")." - Document Not Found
"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Posting
"; + PostData(); + echo date("d M Y h:i:s A")." - Done
"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +if (isset($_POST['BtnDel'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Delete
"; + DelData(); + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+#### ST_XF-Add, Edit & Delete (stock transfer)
+
+AP_SP-Add, Edit & Delete Script - click to expand
+ +```php + + + + +SQL Acc SDK in PHP page
+ +"; +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp", null, CP_UTF8) or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\\eStream\\SQLAccounting\\Share\\Default.DCF", #DCF file + "ACC-0024.FDB"); #Database Name + +} + +function PostData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("AP_SP"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data + $lDetail = $BizObject->DataSets->Find("cdsKnockOff"); #lDetail contains detail data + + #Find PV Number + $lDocNo = "--PV Test--"; + $lCode = "400-C0001"; + $V = array($lDocNo, $lCode); #DocNo, Supplier Code + $lDocKey = $BizObject->FindKeyByRef("DocNo;Code", $V); + + if ($lDocKey != null){ + echo "Dockey = ".$lDocKey.""; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Edit(); + $lMain->Edit(); + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2024-09-23")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2024-09-23")); #YYYY-MM-DD + $lMain->FindField("Description")->AsString = "Payment for A/c - Edited"; + $lMain->FindField("DocAmt")->AsFloat = 550.00; + + #Knock Off IV + $V = array("PI", "--PI Test--"); #DocType, DocNo + + if ($lDetail->Locate("DocType;DocNo", $V, False, False)) { + $lDetail->Edit(); + $lDetail->FindField("KOAmt")->AsFloat = 550; + $lDetail->FindField("KnockOff")->AsString = "T"; + $lDetail->Post(); + } + } else { + echo "New Payment
"; + $BizObject->New(); + $lMain->FindField("DocKey")->value = -1; + $lMain->FindField("DocNo")->AsString = $lDocNo; + $lMain->FindField("Code")->AsString = $lCode; #Supplier Account + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2024-09-23")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2024-09-23")); #YYYY-MM-DD + $lMain->FindField("Description")->AsString = "Payment for A/c"; + $lMain->FindField("PaymentMethod")->AsString = "320-000"; #Bank or Cash Account + $lMain->FindField("ChequeNumber")->AsString = ""; + $lMain->FindField("BankCharge")->AsFloat = 0; + $lMain->FindField("DocAmt")->AsFloat = 200.00; + $lMain->FindField("Cancelled")->AsString = "F"; + + + #Knock Off IV + $V = array("PI", "--PI Test--"); #DocType, DocNo + + if ($lDetail->Locate("DocType;DocNo", $V, False, False)) { + $lDetail->Edit(); + $lDetail->FindField("KOAmt")->AsFloat = 200.0; + $lDetail->FindField("KnockOff")->AsString = "T"; + $lDetail->Post(); + } + + } + $BizObject->Save(); + echo "Save with DocNo ".$lMain->FindField("DocNo")->AsString."
"; + echo date("d M Y h:i:s A")." - Posting Done
"; + $BizObject->Close(); +} + +function DelData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("AP_SP"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data + + #Find PV Number + $lDocNo = "--PV Test--"; + $lCode = "400-C0001"; + $V = array($lDocNo, $lCode); #DocNo, Supplier Code + $lDocKey = $BizObject->FindKeyByRef("DocNo;Code", $V); + + if ($lDocKey != null){ + echo "Dockey = ".$lDocKey."
"; + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Delete(); + echo date("d M Y h:i:s A")." - Record deleted
"; + } else { + echo date("d M Y h:i:s A")." - Document Not Found
"; + } +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Posting
"; + PostData(); + echo date("d M Y h:i:s A")." - Done
"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +if (isset($_POST['BtnDel'])) +{ + try + { + CheckLogin(); + echo date("d M Y h:i:s A")." - Begin Delete
"; + DelData(); + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
"; + echo "Posting Done
"; + }catch (Exception $e) { + echo 'Caught exception: ', $e->getMessage(), "\n"; + } + +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + PostData(); + echo date("d M Y h:i:s A") . " - Done"; + } + finally + { + #$ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+### Node JS
+ Module Require in Node JS
+ - Winax (Mandatory) -> npm install winax
+
+#### Common
+ - Common.js file for example code
+
+ST_XF-Add, Edit & Delete Script - click to expand
+ +```php + + + + +SQL Acc SDK in PHP page
+ +"; + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp", null, CP_UTF8) or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + $ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\\eStream\\SQLAccounting\\Share\\Default.DCF", #DCF File + "ACC-0035.FDB"); #Database Name + +} + +function PostData(){ + global $ComServer; + + $BizObject = $ComServer->BizObjects->Find("ST_XF"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); + $lDtl = $BizObject->DataSets->Find("cdsDocDetail"); + + #Find ST Transfer Number + $lDocNo = "--XF Test--"; + $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo); + + if ($lDocKey == null){ + $BizObject->New(); + $lMain->FindField("DocNo")->AsString = $lDocNo; + $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2025-03-24")); #YYYY-MM-DD + $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2025-03-24")); #YYYY-MM-DD + $lMain->FindField("Code")->AsString = "300-C0001"; #Customer Account - Optional + $lMain->FindField("CompanyName")->AsString = "Cash Sales"; #Customer Name - Optional + $lMain->FindField("Description")->AsString = "Stock Transfer"; + + #For With Item Code + $lDtl->Append(); + $lDtl->FindField("Seq")->value = 1; + $lDtl->FindField("ItemCode")->AsString = "ANT"; + $lDtl->FindField("Description")->AsString = "Transfer Item A"; + $lDtl->FindField("Qty")->AsFloat = 2; + $lDtl->FindField("UOM")->AsString = "CTN"; + $lDtl->FindField("FromLocation")->AsString = "----"; + $lDtl->FindField("ToLocation")->AsString = "BALAKONG"; + $lDtl->Post(); + + $lDtl->Append(); + $lDtl->FindField("Seq")->value = 2; + $lDtl->FindField("ItemCode")->AsString = "HFK"; + $lDtl->FindField("Description")->AsString = "Transfer Item B"; + $lDtl->FindField("Qty")->AsFloat = 3; + $lDtl->FindField("UOM")->AsString = "UNIT"; + $lDtl->FindField("FromLocation")->AsString = "KL"; + $lDtl->FindField("ToLocation")->AsString = "BC"; + $lDtl->Post(); + + $lDtl->Append(); + $lDtl->FindField("Seq")->value = 3; + $lDtl->FindField("ItemCode")->AsString = "HFK"; + $lDtl->FindField("Description")->AsString = "Transfer Item C"; + $lDtl->FindField("Qty")->AsFloat = 4; + $lDtl->FindField("UOM")->AsString = "UNIT"; + $lDtl->FindField("FromLocation")->AsString = "----"; + $lDtl->FindField("ToLocation")->AsString = "BC"; + $lDtl->Post(); + } else{ + $BizObject->Params->Find("DocKey")->AsString = $lDocKey; + $BizObject->Open(); + $BizObject->Edit(); + $lMain->FindField("CompanyName")->value = "FAIRY TAIL WIZARD"; + $lMain->FindField("Description")->AsString = "Stock Transfer - Edited"; + + $V = array("HFK", "UNIT", "KL"); #ItemCode, UOM, FromLocation + if ($lDtl->Locate("ItemCode;UOM;FromLocation", $V, False, False)){ + $lDtl->Edit(); + $lDtl->FindField("Seq")->value = 2; + $lDtl->FindField("ItemCode")->AsString = "HFK"; + $lDtl->FindField("Description")->AsString = "Transfer Item B"; + $lDtl->FindField("Qty")->AsFloat = 5; + $lDtl->FindField("UOM")->AsString = "UNIT"; + $lDtl->FindField("FromLocation")->AsString = "KL"; + $lDtl->FindField("ToLocation")->AsString = "BALAKONG"; + $lDtl->Post(); + } + } + try{ + $BizObject->Save(); + echo $lMain->FindField("DocNo")->AsString. ""; + echo "Posting Done
"; + }catch (Exception $e) { + echo 'Caught exception: ', $e->getMessage(), "\n"; + } + +} + +if (isset($_POST['BtnData'])) +{ + try + { + CheckLogin(); + PostData(); + echo date("d M Y h:i:s A") . " - Done"; + } + finally + { + #$ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +
+
+
+#### Get Company Profile
+
+Common Function Script - click to expand
+ +```python +/* Updated 31 Jul 2023 */ +var winax = require('C:\\node_js\\node_modules\\winax'); /* Path where you install winax */ +var cp = require('child_process'); + +exports.KillApp = function KillApp(){ + cp.exec('start cmd.exe /C "taskkill /IM "SQLACC.exe" /F"'); +} + +exports.CreateSQLAccServer = function CreateSQLAccServer() { + var ComServer; + ComServer = new winax.Object('SQLAcc.BizApp'); + if (!ComServer.IsLogin) { /* check whether user has logon */ + ComServer.Login('ADMIN', 'ADMIN', /* UserName, Password */ + 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', /* DCF File */ + 'ACC-0024.FDB'); /* FDB Name */ + } + return ComServer; +} + +exports.ShowResult = function ShowResult(ADataset){ + var fc, fn, fv, lresult; + ADataset.First; + while (!ADataset.Eof){ + fc = ADataset.Fields.Count; + for (let i = 0; i < fc; i++) { + fn = ADataset.Fields.Items(i).FieldName; + fv = ADataset.FindField(fn).AsString; + lresult = "Index : "+ i + " FieldName : " + fn + " Value : " + fv; + console.log(lresult); + } + console.log("===="); + ADataset.Next(); + } +} + +exports.ShowMsg = function ShowMsgShowMsg(AMsg){ + try { + var WSH = new winax.Object('WScript.Shell'); + WSH.popup(AMsg); + } catch (e) { + console.log(e); + } +} +``` + +
+
+
+#### Complete Post
+
+Get Company Profile Script - click to expand
+ +```php +/* Updated 22 Jul 2023 */ +var Common = require('./Common'); +var ComServer, lDataSet; + +function GetData() { + var lSQL; + lSQL = "SELECT COMPANYNAME, REMARK, BRN, BRN2, GSTNO, "; + lSQL = lSQL + "SALESTAXNO, SERVICETAXNO, "; + lSQL = lSQL + "ADDRESS1,ADDRESS2,ADDRESS3,ADDRESS4 FROM SY_PROFILE "; + lDataSet = ComServer.DBManager.NewDataSet(lSQL); + + Common.ShowResult(lDataSet); +} + +try{ + ComServer = Common.CreateSQLAccServer(); + GetData(); + ComServer.Logout(); +} catch(e){ + console.error(e.message) +} finally { + Common.KillApp(); +} +``` + +
+
+
+#### Get Picture & Description3(Rich Text)
+
+Complete Post Script - click to expand
+ +```php +/* Updated 22 Jul 2023 +This will doing following posting +01. Cash Sales +02. Sales Credit Note +03. Customer Payment With Knock off +04. Edit Credit Note Posted in Step 02 & Knock Off +05. Customer Refund to Knock off Credit Note +*/ +var Common = require('./Common'); +var ComServer; + +function PostDataCS() { + var BizObject, lMain, lDetail; + BizObject = ComServer.BizObjects.Find('SL_CS') ; + + lMain = BizObject.DataSets.Find('MainDataSet'); /*lMain contains master data*/ + lDetail = BizObject.DataSets.Find('cdsDocDetail'); /*lDetail contains detail data */ + + /*Begin Looping yr data*/ + /*Insert Data - Master*/ + BizObject.New(); + lMain.FindField('DocNo').AsString = "--CS Test--"; + lMain.FindField('DocDate').value = "20/12/2022"; + lMain.FindField('PostDate').value = "20/12/2022"; + lMain.FindField('Code').AsString = "300-C0001"; /*Customer Account*/ + lMain.FindField('CompanyName').AsString = "Cash Sales" + lMain.FindField('Address1').AsString = ""; /*Optional*/ + lMain.FindField('Address2').AsString = ""; /*Optional*/ + lMain.FindField('Address3').AsString = ""; /*Optional*/ + lMain.FindField('Address4').AsString = ""; /*Optional*/ + lMain.FindField('Phone1').AsString = ""; /*Optional*/ + lMain.FindField('Description').AsString = "Sales"; + + /*Insert Data - Detail*/ + /*For Tax Inclusive = True with override Tax Amount*/ + lDetail.Append(); + lDetail.FindField('Seq').value = 1; + lDetail.FindField('Account').AsString = "500-000"; /*Sales Account*/ + lDetail.FindField('Description').AsString = "Sales Item A"; + lDetail.FindField('Qty').AsFloat = 1; + lDetail.FindField('Tax').AsString = "SV"; + lDetail.FindField('TaxRate').AsString = "6%"; + lDetail.FindField('TaxInclusive').value = 0; + lDetail.FindField('UnitPrice').AsFloat = 435; + lDetail.FindField('Amount').AsFloat = 410.37; /*Exclding Tax Amt*/ + lDetail.FindField('TaxAmt').AsFloat = 24.63; + + lDetail.DisableControls(); + lDetail.FindField('TaxInclusive').value = 1; + lDetail.EnableControls(); + + lDetail.Post(); + + /*For Tax Inclusive = False with override Tax Amount*/ + lDetail.Append(); + lDetail.FindField('Seq').value = 2; + lDetail.FindField('Account').AsString = "500-000"; + lDetail.FindField('Description').AsString = "Sales Item B"; + lDetail.FindField('Qty').AsFloat = 1; + lDetail.FindField('Tax').AsString = "SV"; + lDetail.FindField('TaxRate').AsString = "6%"; + lDetail.FindField('TaxInclusive').value = 0; + lDetail.FindField('UnitPrice').AsFloat = 94.43; + lDetail.FindField('Amount').AsFloat = 94.43; + lDetail.FindField('TaxAmt').AsFloat = 5.66; + lDetail.Post(); + + /*For With Item Code*/ + lDetail.Append(); + lDetail.FindField('Seq').value = 3; + lDetail.FindField('ItemCode').AsString = "ANT"; + lDetail.FindField('Description').AsString = "Sales Item B"; + /*lDetail.FindField('Account').AsString = "500-000"; If you wanted override the Sales Account Code*/ + lDetail.FindField('Qty').AsFloat = 2; + lDetail.FindField('UOM').AsString = "UNIT"; + /*lDetail.FindField('DISC').AsString = "5%+3"; Optional (eg 5% plus 3 Discount)*/ + lDetail.FindField('Tax').AsString = "SV"; + lDetail.FindField('TaxRate').AsString = "6%"; + lDetail.FindField('TaxInclusive').value = 0; + lDetail.FindField('UnitPrice').AsFloat = 100; + lDetail.FindField('Amount').AsFloat = 200; + lDetail.FindField('TaxAmt').AsFloat = 12; + lDetail.Post(); + + /*Save Document*/ + BizObject.Save(); + BizObject.Close(); +} + +function PostDataPM() { + var BizObject, lMain, lDetail, v; + + BizObject = ComServer.BizObjects.Find('AR_PM') ; + + lMain = BizObject.DataSets.Find('MainDataSet'); /*lMain contains master data*/ + lDetail = BizObject.DataSets.Find('cdsKnockOff'); /*lDetail contains detail data */ + + BizObject.New(); + + lMain.FindField('DocNo').AsString = "--PM Test--"; + lMain.FindField('Code').AsString = "300-C0001"; + lMain.FindField('DocDate').value = "20/12/2022"; + lMain.FindField('PostDate').value = "20/12/2022"; + lMain.FindField('Description').AsString = "Payment for A/"; + lMain.FindField('PaymentMethod').AsString = "320-000"; /*Bank or Cash Account*/ + lMain.FindField('ChequeNumber').AsString = ""; + lMain.FindField('BankCharge').AsFloat = 0; + lMain.FindField('DocAmt').AsFloat = 200.00; + lMain.FindField('Cancelled').AsString = "F"; + + v = ComServer.CreateOleVariantArray(2); + v.SetItem(0, 'IV'); /*Knock Off DocType IV or DN*/ + v.SetItem(1, '--CS Test--'); /*Knock Off DocNo*/ + + if (lDetail.Locate('DocType;DocNo', v.AsOleVariant(), false, false)){ + lDetail.Edit(); + lDetail.FindField('KOAmt').AsFloat = "147.09"; /*Partial Knock Off*/ + lDetail.FindField('KnockOff').AsString = 'T'; + lDetail.Post(); + } + /* Save document */ + BizObject.Save(); + BizObject.Close(); +} + +function PostDataCN() { + var BizObject, lMain, lDetail; + BizObject = ComServer.BizObjects.Find('SL_CN') ; + + lMain = BizObject.DataSets.Find('MainDataSet'); /*lMain contains master data*/ + lDetail = BizObject.DataSets.Find('cdsDocDetail'); /*lDetail contains detail data */ + + /*Begin Looping yr data*/ + /*Insert Data - Master*/ + BizObject.New(); + lMain.FindField('DocNo').AsString = "--CN Test--"; + lMain.FindField('DocDate').value = "21/12/2022"; + lMain.FindField('PostDate').value = "21/12/2022"; + lMain.FindField('Code').AsString = "300-C0001"; /*Customer Account*/ + lMain.FindField('CompanyName').AsString = "Cash Sales" + lMain.FindField('Address1').AsString = ""; /*Optional*/ + lMain.FindField('Address2').AsString = ""; /*Optional*/ + lMain.FindField('Address3').AsString = ""; /*Optional*/ + lMain.FindField('Address4').AsString = ""; /*Optional*/ + lMain.FindField('Phone1').AsString = ""; /*Optional*/ + lMain.FindField('Description').AsString = "Sales Returned"; + + /*Insert Data - Detail*/ + /*For With Item Code*/ + lDetail.Append(); + lDetail.FindField('Seq').value = 1; + lDetail.FindField('ItemCode').AsString = "ANT"; + lDetail.FindField('Description').AsString = "Sales Item B"; + lDetail.FindField('Description2').AsString = "Product Spoil"; /*Reason*/ + lDetail.FindField('Remark1').AsString = "--IV Test--"; /*Invoice No*/ + lDetail.FindField('Remark2').AsString = "20 Dec 2022"; /*Invoide Date*/ + lDetail.FindField('Qty').AsFloat = 1; + lDetail.FindField('UOM').AsString = "UNIT"; + lDetail.FindField('Tax').AsString = "SV"; + lDetail.FindField('TaxRate').AsString = "6%"; + lDetail.FindField('TaxInclusive').value = 0; + lDetail.FindField('UnitPrice').AsFloat = 100; + lDetail.FindField('Amount').AsFloat = 100; + lDetail.FindField('TaxAmt').AsFloat = 6; + lDetail.Post(); + + /*Save Document*/ + BizObject.Save(); + BizObject.Close(); +} + +function PostKnockIVCN() { + var BizObject, lMain, lDetail, v, lDocNo, lDocKey; + + BizObject = ComServer.BizObjects.Find('AR_CN') ; + + lMain = BizObject.DataSets.Find('MainDataSet'); /*lMain contains master data*/ + lDetail = BizObject.DataSets.Find('cdsKnockOff'); /*lDetail contains detail data */ + + /* Find CN Number */ + lDocNo = "--CN Test--" + lDocKey = BizObject.FindKeyByRef('DocNo', lDocNo); + BizObject.Params.Find('DocKey').Value = lDocKey; + + if (lDocKey != null) { + BizObject.Open(); + BizObject.Edit(); + lMain.Edit(); + + v = ComServer.CreateOleVariantArray(2); + v.SetItem(0, 'IV'); /*Knock Off DocType IV or DN*/ + v.SetItem(1, '--CS Test--'); /*Knock Off DocNo*/ + + if (lDetail.Locate('DocType;DocNo', v.AsOleVariant(), false, false)){ + lDetail.Edit(); + lDetail.FindField('KOAmt').AsFloat = "100"; /*Partial Knock Off*/ + lDetail.FindField('KnockOff').AsString = 'T'; + lDetail.Post(); + } + /* Save document */ + BizObject.Save(); + BizObject.Close(); + } +} + +function PostDataCF() { + var BizObject, lMain, lDetail, v; + + BizObject = ComServer.BizObjects.Find('AR_CF') ; + + lMain = BizObject.DataSets.Find('MainDataSet'); /*lMain contains master data*/ + lDetail = BizObject.DataSets.Find('cdsKnockOff'); /*lDetail contains detail data */ + + BizObject.New(); + + lMain.FindField('DocNo').AsString = "--CF Test--"; + lMain.FindField('Code').AsString = "300-C0001"; + lMain.FindField('DocDate').value = "24/12/2022"; + lMain.FindField('PostDate').value = "24/12/2022"; + lMain.FindField('Description').AsString = "Payment for A/"; + lMain.FindField('PaymentMethod').AsString = "320-000"; /*Bank or Cash Account*/ + lMain.FindField('ChequeNumber').AsString = ""; + lMain.FindField('BankCharge').AsFloat = 0; + lMain.FindField('DocAmt').AsFloat = 6.00; + lMain.FindField('Cancelled').AsString = "F"; + + v = ComServer.CreateOleVariantArray(2); + v.SetItem(0, 'CN'); /*Knock Off DocType*/ + v.SetItem(1, '--CN Test--'); /*Knock Off DocNo*/ + + if (lDetail.Locate('DocType;DocNo', v.AsOleVariant(), false, false)){ + lDetail.Edit(); + lDetail.FindField('KOAmt').AsFloat = "4"; /*Partial Knock Off*/ + lDetail.FindField('KnockOff').AsString = 'T'; + lDetail.Post(); + } + /* Save document */ + BizObject.Save(); + BizObject.Close(); +} + +try{ + ComServer = Common.CreateSQLAccServer(); + console.log("Posting Cash Sales"); + PostDataCS(); + console.log("Posting Payment"); + PostDataPM(); + console.log("Posting Sales CN"); + PostDataCN(); + console.log("Posting Knock Off CN"); + PostKnockIVCN(); + console.log("Posting Customer Refund"); + PostDataCF(); + console.log("Done"); + ComServer.Logout(); +} catch(e){ + console.error(e.message) +} finally { + Common.KillApp(); +} +``` + +
+
+
+#### Get Stock Qty Balance
+
+Get Picture & Description3(Rich Text) Script - click to expand
+ +```php +/* Updated 31 Jul 2023 */ +var Common = require('./Common'); +var ComServer, lDataSet; +const fs = require('fs'); + +function saveImage(filename, data){ + var myBuffer = new Buffer.alloc(data.length); + for (var i = 0; i < data.length; i++) { + myBuffer[i] = data[i]; + } + fs.writeFile(filename, myBuffer, function(err) { + if(err) { + console.log(err); + } else { + console.log("The Image file was saved!"); + } + }); +} + +function ExpFile(AFName, AData){ + const FN = new console.Console(fs.createWriteStream(AFName)); + FN.log(AData); +} + +function GetData() { + var lSQL, txt, rtf; + lSQL = "SELECT Description3, Picture FROM ST_ITEM "; + lSQL = lSQL + "WHERE Code='ANT' "; + lDataSet = ComServer.DBManager.NewDataSet(lSQL); + + lDataSet.First; + rtf = lDataSet.FindField('Description3').AsString; + console.log(rtf); + + ExpFile('./output.rtf', rtf); + + txt = ComServer.Utility.RichTextToPlainText(rtf); + Common.ShowMsg(txt); + /* console.log(txt); <= Not support Unicode */ + + ExpFile('./output.txt', txt); + console.log('Done Export'); + + saveImage("./Pic.jpg", lDataSet.FindField('Picture').Value); +} + +try{ + ComServer = Common.CreateSQLAccServer(); + GetData(); + ComServer.Logout(); +} catch(e){ + console.error(e.message) +} finally { + Common.KillApp(); +} +``` + +
+
+
+#### SO to DO
+
+Get Stock Qty Balance Script - click to expand
+ +```php +/* Updated 18 Jan 2024 */ +var Common = require('./Common'); +var ComServer; + +function GetListData() { + var lSQL, lDataSet; + lSQL = "SELECT ItemCode, Location, Batch, Sum(Qty) Qty FROM ST_TR "; + lSQL = lSQL + "WHERE PostDate<='31 Dec 2019' "; + lSQL = lSQL + "AND ITEMCODE ='ANT' "; + lSQL = lSQL + "GROUP BY ItemCode, Location, Batch "; + + lDataSet = ComServer.DBManager.NewDataSet(lSQL); + + Common.ShowResult(lDataSet); +} + +try{ + ComServer = Common.CreateSQLAccServer(); + GetListData(); + ComServer.Logout(); +} catch(e){ + console.error(e.message) +} finally { + Common.KillApp(); +} +``` + +
+ >";
+ lMain.FindField('DocDate').value = "26/04/2024";
+ lMain.FindField('PostDate').value = "26/04/2024";
+ lMain.FindField('Code').AsString = lDataSet.FindField('Code').AsString; /*Customer Account*/
+ lMain.FindField('Description').AsString = "Post from 3rd Party";
+
+ lDataSet.First;
+ while (!lDataSet.Eof){
+ lDetail.Append();
+ lDetail.FindField('Seq').value = lDataSet.FindField('Seq').Value;
+ lDetail.FindField('ItemCode').AsString = lDataSet.FindField('ItemCode').AsString;
+ lDetail.FindField('Description').AsString = lDataSet.FindField('Description').AsString;
+ lDetail.FindField('Qty').AsFloat = lDataSet.FindField('OSQty').AsFloat;/*Transfer all balance Qty*/
+ lDetail.FindField('UOM').AsString = lDataSet.FindField('UOM').AsString;
+ lDetail.FindField('DISC').value = lDataSet.FindField('DISC').AsString;
+ lDetail.FindField('Tax').value = lDataSet.FindField('Tax').AsString;
+ lDetail.FindField('TaxRate').value = lDataSet.FindField('TaxRate').AsString;
+ lDetail.FindField('TaxInclusive').value = lDataSet.FindField('TaxInclusive').value;
+ lDetail.FindField('UnitPrice').AsFloat = lDataSet.FindField('UnitPrice').AsFloat ;
+ lDetail.FindField('Amount').AsFloat = lDataSet.FindField('Amount').AsFloat;
+ lDetail.FindField('TaxAmt').AsFloat = lDataSet.FindField('TaxAmt').AsFloat;
+ lDetail.FindField('FromDocType').AsString = "SO"; /*From Document Type*/
+ lDetail.FindField('FromDockey').AsFloat = lDataSet.FindField('Dockey').AsFloat;
+ lDetail.FindField('FromDtlkey').AsFloat = lDataSet.FindField('DtlKey').AsFloat;
+ lDetail.Post();
+ lDataSet.Next();
+ }
+ /*Save Document*/
+ BizObject.Save();
+ BizObject.Close();
+ } else
+ console.log("Record Not Found");
+}
+
+
+
+try{
+ ComServer = Common.CreateSQLAccServer();
+ console.log("Posting SO to DO");
+ PostData();
+ console.log("Done");
+ ComServer.Logout();
+} catch(e){
+ console.error(e.message)
+} finally {
+ Common.KillApp();
+}
+```
+
+
+
+#### Get Build No
+
+SO to DO Script - click to expand
+ +```php +/*Updated 26 Apr 2024*/ +var Common = require('./Common'); +var ComServer; + +function PostData() { + var BizObject, lMain, lDetail, lSQL, lDataSet; + + lSQL = "SELECT Dockey, DocNo,Code, CompanyName, DocProject, Seq, DtlKey, ItemCode, Description, Qty, UOM, UnitPrice, Disc, Amount, DtlProject, "; + lSQL = lSQL + "Tax, TaxRate, TaxInclusive, TaxAmt, COALESCE(Sum(XFQty),0) XFQty, COALESCE((Qty-Sum(XFQty)), Qty) OSQty FROM ( "; + lSQL = lSQL + "SELECT A.Dockey, A.DocNo, A.Code, A.CompanyName, A.Project DocProject, "; + lSQL = lSQL + "B.DtlKey, B.Seq, B.ItemCode, B.Description, B.Qty, B.UOM, B.UnitPrice, B.Disc, B.Amount, "; + lSQL = lSQL + "B.Tax, B.TaxRate, B.TaxInclusive, B.TaxAmt, B.Project DtlProject, C.Qty XFQty FROM SL_SO A "; + lSQL = lSQL + "INNER JOIN SL_SODTL B ON (A.DOCKEY=B.DOCKEY) "; + lSQL = lSQL + "LEFT JOIN ST_XTRANS C ON (A.DOCKEY=C.FROMDOCKEY AND B.DTLKEY=C.FROMDTLKEY "; + lSQL = lSQL + " AND C.FROMDOCTYPE='SO') "; + lSQL = lSQL + "WHERE A.DOCNO='SO-00041') "; + lSQL = lSQL + "GROUP BY Dockey, DocNo, Code, CompanyName, DocProject, Seq, Dtlkey, ItemCode, Description, Qty, UOM, UnitPrice, Disc, "; + lSQL = lSQL +" Amount, DtlProject, Tax, TaxRate, TaxInclusive, TaxAmt "; + lSQL = lSQL + "HAVING COALESCE((Qty-Sum(XFQty)), Qty) >0 "; + + lDataSet = ComServer.DBManager.NewDataSet(lSQL); + + if (lDataSet.RecordCount > 0) { + BizObject = ComServer.BizObjects.Find('SL_DO') ; + lMain = BizObject.DataSets.Find('MainDataSet'); /*lMain contains master data*/ + lDetail = BizObject.DataSets.Find('cdsDocDetail'); /*lDetail contains detail data */ + + BizObject.New(); + lMain.FindField('DocNo').AsString = "<
+
+
+#### Delete SL_IV (sales invoice)
+
+Get Build No Script - click to expand
+ +```php +/* Updated 22 Jan 2025 */ +var Common = require('./Common'); +var ComServer, lBuildNo; + +function GetData() { + lBuildNo = ComServer.BuildNo; + console.error(lBuildNo); +} + +try{ + ComServer = Common.CreateSQLAccServer(); + GetData(); + ComServer.Logout(); +} catch(e){ + console.error(e.message) +} finally { + Common.KillApp(); +} +``` + +
+
+
+### Java
+
+ Module/Library Require in Java
+ - Jacob (Mandatory)
+Example [Java-20250331](https://download.sql.com.my/customer/Fairy/Java.zip)
+
+### VB Script
+
+#### Get Company Profile
+
+Delete SL_IV Script - click to expand
+ +```php +/* Updated 26 Jun 2025 */ +var Common = require('./Common'); +var ComServer; + +function PostData() { + var BizObject, lMain, lDockey; + BizObject = ComServer.BizObjects.Find('SL_IV') ; + + lMain = BizObject.DataSets.Find('MainDataSet'); /*lMain contains master data*/ + + lDocKey = BizObject.FindKeyByRef('DocNo', "--IV Test--"); + BizObject.Params.Find("Dockey").Value = lDocKey; + + if (lDocKey != null) { + BizObject.Open(); + BizObject.Delete(); + } else + console.log("Record Not Found"); + BizObject.Close(); +} + + + +try{ + ComServer = Common.CreateSQLAccServer(); + console.log("Delete Sales Invoice"); + PostData(); + console.log("Done"); + ComServer.Logout(); +} catch(e){ + console.error(e.message) +} finally { + Common.KillApp(); +} +``` + +
+
+
+#### Complete Post
+
+Get Company Profile Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg Common.Agent.RO.vbs +Call GetCoInfo + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function GetCoInfo +Dim ComServer, RptObject, lDataSet + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB" + END IF + + 'Step 2: Find and Create the Report Objects + Set RptObject = ComServer.RptObjects.Find("Common.Agent.RO") + + + 'Step 3: Perform Report calculation + RptObject.CalculateReport() + Set lDataSet = RptObject.DataSets.Find("cdsProfile") + + MsgBox "Count " & lDataSet.RecordCount + + 'Step 5 Retrieve the output + lDataSet.First + While (not lDataSet.eof) + MsgBox "Company Name : " & lDataSet.FindField("CompanyName").AsString + + MsgBox "Remark : " & lDataSet.FindField("Remark").AsString + + MsgBox "ROC No : " & lDataSet.FindField("RegisterNo").AsString + + MsgBox "GST No : " & lDataSet.FindField("GSTNo").AsString + + MsgBox "Address 1 : " & lDataSet.FindField("Address1").AsString + + MsgBox "Address 2 : " & lDataSet.FindField("Address2").AsString + + MsgBox "Address 3 : " & lDataSet.FindField("Address3").AsString + + MsgBox "Address 4 : " & lDataSet.FindField("Address4").AsString + + MsgBox "Attention : " & lDataSet.FindField("Attention").AsString + + MsgBox "Phone : " & lDataSet.FindField("Phone1").AsString + + MsgBox "Fax : " & lDataSet.FindField("Fax1").AsString + + MsgBox "E-Mail : " & lDataSet.FindField("EMail").AsString + lDataSet.Next + Wend + + 'Step 6 : Logout after done + ComServer.Logout +End Function +``` + +
+
+
+#### AR_IV (customer invoice)
+
+SL_CS, AR_PM, SL_CN & AR_CN Script - click to expand
+ +```vb +'Updated 13 Sep 2018 +'Copy below script & paste to notepad & name it as eg SL_CS.vbs +'This will doing following posting +'01. Cash Sales +'02. Sales Credit Note +'03. Customer Payment With Knock off +'04. Edit Credit Note Posted in Step 02 & Knock Off +Call CheckLogin +Call InsertData + +Dim ComServer + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +function CheckLogin + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + 'UserName, Password, DCF full path, Database filename + END IF +End Function + +Function InsertData +Dim BizObject, lMain, lDetail, lDate + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("SL_CS") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data + + 'Begin Looping yr data + 'Step 4 : Insert Data - Master + lDate = CDate("January 1, 2017") + BizObject.New + lMain.FindField("DocKey").value = -1 + lMain.FindField("DocNo").AsString = "--IV Test--" + lMain.FindField("DocDate").value = lDate + lMain.FindField("PostDate").value = lDate + lMain.FindField("Code").AsString = "300-C0001" 'Customer Account + lMain.FindField("CompanyName").AsString = "Cash Sales" + lMain.FindField("Address1").AsString = "" 'Optional + lMain.FindField("Address2").AsString = "" 'Optional + lMain.FindField("Address3").AsString = "" 'Optional + lMain.FindField("Address4").AsString = "" 'Optional + lMain.FindField("Phone1").AsString = "" 'Optional + lMain.FindField("Description").AsString = "Sales" + + 'Step 5: Insert Data - Detail + 'For Tax Inclusive = True with override Tax Amount + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("DocKey").value = -1 + lDetail.FindField("Seq").value = 1 + lDetail.FindField("Account").AsString = "500-000" 'Sales Account + lDetail.FindField("Description").AsString = "Sales Item A" + lDetail.FindField("Qty").AsFloat = 1 + lDetail.FindField("Tax").AsString = "SR" + lDetail.FindField("TaxRate").AsString = "6%" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("UnitPrice").AsFloat = 435 + lDetail.FindField("Amount").AsFloat = 410.37 'Exclding GST Amt + lDetail.FindField("TaxAmt").AsFloat = 24.63 + + lDetail.DisableControls + lDetail.FindField("TaxInclusive").value = 1 + lDetail.EnableControls + + lDetail.Post + + 'For Tax Inclusive = False with override Tax Amount + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("DocKey").value = -1 + lDetail.FindField("Seq").value = 2 + lDetail.FindField("Account").AsString = "500-000" + lDetail.FindField("Description").AsString = "Sales Item B" + lDetail.FindField("Qty").AsFloat = 1 + lDetail.FindField("Tax").AsString = "SR" + lDetail.FindField("TaxRate").AsString = "6%" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("UnitPrice").AsFloat = 94.43 + lDetail.FindField("Amount").AsFloat = 94.43 + lDetail.FindField("TaxAmt").AsFloat = 5.66 + lDetail.Post + + 'For With Item Code + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("DocKey").value = -1 + lDetail.FindField("Seq").value = 3 + lDetail.FindField("ItemCode").AsString = "ANT" + lDetail.FindField("Description").AsString = "Sales Item B" + 'lDetail.FindField("Account").AsString = "500-000" 'If you wanted override the Sales Account Code + lDetail.FindField("Qty").AsFloat = 2 + lDetail.FindField("UOM").AsString = "UNIT" + 'lDetail.FindField("DISC").AsString = "5%+3" 'Optional (eg 5% plus 3 Discount) + lDetail.FindField("Tax").AsString = "SR" + lDetail.FindField("TaxRate").AsString = "6%" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("UnitPrice").AsFloat = 100 + lDetail.FindField("Amount").AsFloat = 200 + lDetail.FindField("TaxAmt").AsFloat = 12 + lDetail.Post + + 'Step 6: Save Document + BizObject.Save + BizObject.Close + + 'Step 7: Payment + Call InsertARPM + + 'Step 8: Credit Note + Call InsertSLCN + 'End Looping yr data + + 'Step 9 : Logout after done + 'ComServer.Logout + + MsgBox "Done" +End Function + +Function InsertARPM +Dim BizObject, lMain, lDetail, lDate, v(1) + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("AR_PM") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsKnockOff") 'lDetail contains detail data + + 'Step 4 : Posting + lDate = CDate("January 23, 2017") + BizObject.New + lMain.FindField("DOCKEY").Value = -1 + lMain.FindField("DocNo").AsString = "--PM Test--" + lMain.FindField("CODE").AsString = "300-C0001" 'Customer Account + lMain.FindField("DocDate").Value = lDate + lMain.FindField("PostDate").Value = lDate + lMain.FindField("Description").AsString = "Payment for A/c" + lMain.FindField("PaymentMethod").AsString = "320-000" 'Bank or Cash Account + lMain.FindField("ChequeNumber").AsString = "" + lMain.FindField("BankCharge").AsFloat = 0 + lMain.FindField("DocAmt").AsFloat = 200.00 + lMain.FindField("Cancelled").AsString = "F" + 'Step 5: Knock Off IV + lIVNO = "--IV Test--" + v(0) = "IV" + v(1) = lIVNO + + if (lDetail.Locate("DocType;DocNo", v, false, false)) then + lDetail.Edit + lDetail.FindField("KOAmt").AsFloat = 147.09 'Partial Knock off + lDetail.FindField("KnockOff").AsString = "T" + lDetail.Post + End IF + 'Step 6: Save Document + BizObject.Save + BizObject.Close +End Function + +Function InsertSLCN +Dim BizObject, lMain, lDetail, lDate + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("SL_CN") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data + + 'Step 4 : Insert Data - Master + lDate = CDate("January 24, 2017") + BizObject.New + lMain.FindField("DocKey").value = -1 + lMain.FindField("DocNo").AsString = "--CN Test--" + lMain.FindField("DocDate").value = lDate + lMain.FindField("PostDate").value = lDate + lMain.FindField("Code").AsString = "300-C0001" + lMain.FindField("CompanyName").AsString = "Cash Sales" + lMain.FindField("Address1").AsString = "" + lMain.FindField("Address2").AsString = "" + lMain.FindField("Address3").AsString = "" + lMain.FindField("Address4").AsString = "" + lMain.FindField("Phone1").AsString = "" + lMain.FindField("Description").AsString = "Sales Returned" + + 'For With Item Code + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("DocKey").value = -1 + lDetail.FindField("ItemCode").AsString = "ANT" + lDetail.FindField("Description").AsString = "Sales Item B" + lDetail.FindField("Description2").AsString = "Product Spoil" 'Reason + lDetail.FindField("Remark1").AsString = "--IV Test--" 'Invoice No + lDetail.FindField("Remark2").AsString = "01 Jan 2017" 'Invoice Date + lDetail.FindField("Qty").AsFloat = 1 + lDetail.FindField("Tax").AsString = "SR" + lDetail.FindField("TaxRate").AsString = "6%" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("UnitPrice").AsFloat = 100 + lDetail.FindField("Amount").AsFloat = 100 + lDetail.FindField("TaxAmt").AsFloat = 6 + lDetail.Post + + 'Step 6: Save Document + BizObject.Save + BizObject.Close + + 'Step 7: Knock Off Invoice + Call KnockIV +End Function + +Function KnockIV +Dim BizObject, lMain, lDetail, lDate, v(1) + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("AR_CN") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsKnockOff") 'lDetail contains Knock off data + + 'Step 4 : Find CN Number + lDocNo = "--CN Test--" + lDocKey = BizObject.FindKeyByRef("DocNo", lDocNo) + BizObject.Params.Find("DocKey").Value = lDocKey + + If not IsNull(lDocKey) Then + BizObject.Open + BizObject.Edit + lMain.Edit + 'Step 5: Knock Off IV + lIVNO = "--IV Test--" + v(0) = "IV" + v(1) = lIVNO + + if (lDetail.Locate("DocType;DocNo", v, false, false)) then + lDetail.Edit + lDetail.FindField("KOAmt").AsFloat = 106 'Fully Knock off + lDetail.FindField("KnockOff").AsString = "T" + lDetail.Post + End IF + 'Step 6: Save Document + BizObject.Save + BizObject.Close + END IF +End Function +``` + +
+
+
+#### AR_IV-Edit
+
+AR_IV Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg AR_IV.vbs +Call InsertARIV + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function InsertARIV +Dim ComServer, BizObject, lDataSet, lDataSet2, lDate + + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + END IF + + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("AR_IV") + + 'Step 3: Set Dataset + Set lMainDataSet = BizObject.DataSets.Find("MainDataSet") 'lMainDataSet contains master data + Set lDetailDataSet = BizObject.DataSets.Find("cdsDocDetail") 'lDetailDataSet contains detail data + + 'Step 4 : Insert Data - Master + lDate = CDate("January 1, 2016") + BizObject.New + lMainDataSet.FindField("DocKey").value = -1 + lMainDataSet.FindField("DocNo").value = "--IV Test--" + lMainDataSet.FindField("DocDate").value = lDate + lMainDataSet.FindField("PostDate").value = lDate + lMainDataSet.FindField("Code").value = "300-A0003" + lMainDataSet.FindField("Description").value = "Sales" + + 'Step 5: Insert Data - Detail + 'For Tax Inclusive = True with override Tax Amount + lDetailDataSet.Append + lDetailDataSet.FindField("DtlKey").value = -1 + lDetailDataSet.FindField("DocKey").value = -1 + lDetailDataSet.FindField("Account").value = "500-000" + lDetailDataSet.FindField("Description").value = "Sales Item A" + lDetailDataSet.FindField("Tax").value = "SR" + lDetailDataSet.FindField("TaxInclusive").value = 0 + lDetailDataSet.FindField("Amount").value = 410.37 + lDetailDataSet.FindField("TaxAmt").value = 24.63 + + lDetailDataSet.DisableControls + lDetailDataSet.FindField("TaxInclusive").value = 1 + lDetailDataSet.EnableControls + + lDetailDataSet.FindField("Changed").value = "F" + lDetailDataSet.Post + + 'For Tax Inclusive = False with override Tax Amount + lDetailDataSet.Append + lDetailDataSet.FindField("DtlKey").value = -1 + lDetailDataSet.FindField("DocKey").value = -1 + lDetailDataSet.FindField("Account").value = "500-000" + lDetailDataSet.FindField("Description").value = "Sales Item B" + lDetailDataSet.FindField("Tax").value = "SR" + lDetailDataSet.FindField("TaxInclusive").value = 0 + lDetailDataSet.FindField("Amount").value = 94.43 + lDetailDataSet.FindField("TaxAmt").value = 5.66 + lDetailDataSet.FindField("Changed").value = "F" + lDetailDataSet.Post + + 'Step 6: Save Document + BizObject.Save + BizObject.Close + MsgBox "Done" +End Function +``` + +
+
+
+#### AR_PM (customer payment)
+
+AR_IV-Edit Script - click to expand
+ +```vb +'Available in Version 5.2018.833.759 & above +'Copy below script & paste to notepad & name it as eg AR_IV.vbs +Call CheckLogin +Call GetData +Call PostData + +Dim ComServer, lDataSet + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +function CheckLogin + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + 'UserName, Password, DCF full path, Database filename + END IF +End Function + +Function GetData +Dim lSQL + lSQL = "SELECT Dockey FROM AR_IV " + lSQL = lSQL & "WHERE DocNo='IV-00002' " + Set lDataSet = ComServer.DBManager.NewDataSet(lSQL) +End Function + +Function PostData +Dim BizObject, lMain, lDetail + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("AR_IV") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data + + 'Step 4 : Find Doc Number + If lDataSet.RecordCount > 0 Then + lDataSet.First + BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString + + + BizObject.Open + BizObject.Edit + lMain.Edit + lMain.FindField("Description").AsString = "Sales - Edited" + + 'Step 5: Delete all Detail + While lDetail.RecordCount <> 0 + lDetail.First + lDetail.Delete + Wend + 'Step 6: Append Detail + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("Account").value = "500-000" + lDetail.FindField("Description").value = "Sales Item A - Edited" + lDetail.FindField("Tax").value = "SR" + lDetail.FindField("TaxRate").value = "6%" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("Amount").value = 100 + lDetail.FindField("TaxAmt").value = 6 + + lDetail.DisableControls + lDetail.FindField("TaxInclusive").value = 1 + lDetail.EnableControls + + lDetail.FindField("Changed").value = "F" + lDetail.Post + + 'Step 7: Save Document + BizObject.Save + BizObject.Close + + 'Step 8 : Logout after done + 'ComServer.Logout + MsgBox "Done" + Else + MsgBox "Record Not Found" + END IF +End Function +``` + +
+
+
+#### AR_PM-Edit
+
+AR_PM Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg AR_PM.vbs +Call PostData + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function PostData +Dim ComServer, BizObject, lIVNo, v(1), lDate + + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + END IF + + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("AR_PM") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMainDataSet contains master data + Set lDetailDataSet = BizObject.DataSets.Find("cdsKnockOff") 'lDetailDataSet contains detail data + + 'Step 4 : Posting + lDate = CDate("January 23, 2017") + BizObject.New + lMain.FindField("DOCKEY").Value = -1 + lMain.FindField("DocNo").AsString = "--PM Test--" + lMain.FindField("CODE").AsString = "300-C0001" + lMain.FindField("DocDate").Value = lDate + lMain.FindField("PostDate").Value = lDate + lMain.FindField("Description").AsString = "Payment for A/c" + lMain.FindField("PaymentMethod").AsString = "310-000" + lMain.FindField("DocAmt").AsFloat = 65.57 + lMain.FindField("Cancelled").AsString = "F" + 'Step 5: Knock Off IV + lIVNO = "--IV Test--" + v(0) = "IV" + v(1) = lIVNO + + if (lDetailDataSet.Locate("DocType;DocNo", v, false, false)) then + lDetailDataSet.Edit + lDetailDataSet.FindField("KOAmt").value = 65.57 + lDetailDataSet.FindField("KnockOff").AsString = "T" + lDetailDataSet.Post + End IF + 'Step 6: Save Document + BizObject.Save + BizObject.Close + MsgBox "Done" + 'END IF +End Function +``` + +
+
+
+#### Customer.RO
+
+AR_PM-Edit Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg AR_IV.vbs +Call EditARPM + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function EditARPM +Dim ComServer, BizObject, lDataSet, lDataSet2, lDocKey, lDocNo, lIVNo, v(1) + + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + END IF + + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("AR_PM") + + 'Step 3: Set Dataset + Set lMainDataSet = BizObject.DataSets.Find("MainDataSet") 'lMainDataSet contains master data + Set lDetailDataSet = BizObject.DataSets.Find("cdsKnockOff") 'lDetailDataSet contains detail data + + 'Step 4 : Find OR Number + lDocNo = "OR-00022" + lDocKey = BizObject.FindKeyByRef("DocNo", lDocNo) + BizObject.Params.Find("DocKey").Value = lDocKey + + If not IsNull(lDocKey) Then + BizObject.Open + BizObject.Edit + lMainDataSet.Edit + lMainDataSet.FindField("Description").AsString = "testing" + 'Step 5: Knock Off IV + lIVNO = "IV-00006" + v(0) = "IV" + v(1) = lIVNO + + if (lDetailDataSet.Locate("DocType;DocNo", v, false, false)) then + lDetailDataSet.Edit + lDetailDataSet.FindField("KOAmt").value = 50.12 + lDetailDataSet.FindField("KnockOff").AsString = "T" + lDetailDataSet.Post + MsgBox "yes" + End IF + 'Step 6: Save Document + BizObject.Save + BizObject.Close + MsgBox "Done" + END IF +End Function +``` + +
+
+
+#### Customer.Statement.RO
+
+Customer.RO Report Object Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg customer_ro.vbs +Call GetCustomerData + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function GetCustomerData +Dim ComServer, RptObject, lDataSet, lDataSet2, lDateFrom, lDateTo + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB" + END IF + + 'Step 2: Find and Create the Report Objects + Set RptObject = ComServer.RptObjects.Find("Customer.RO") + + 'Step 3: Spool parameters + RptObject.Params.Find("AllAgent").Value = true + RptObject.Params.Find("AllArea").Value = true + RptObject.Params.Find("AllCompany").Value = false + RptObject.Params.Find("AllCompanyCategory").Value = true + RptObject.Params.Find("AllCurrency").Value = true + RptObject.Params.Find("AllTerms").Value = true + RptObject.Params.Find("SelectDate").Value = true + RptObject.Params.Find("PrintActive").Value = true + RptObject.Params.Find("PrintInactive").Value = false + RptObject.Params.Find("PrintPending").Value = false + RptObject.Params.Find("PrintProspect").Value = false + RptObject.Params.Find("PrintSuspend").Value = false + lDateFrom = CDate("January 1, 2000") + lDateTo = CDate("December 31, 2014") + + RptObject.Params.Find("DateFrom").Value = lDateFrom + RptObject.Params.Find("DateTo").Value = lDateTo + RptObject.Params.Find("CompanyData").Value = "300-A0003" + + 'Step 4: Perform Report calculation + RptObject.CalculateReport() + Set lDataSet = RptObject.DataSets.Find("cdsMain") + Set lDataSet2 = RptObject.DataSets.Find("cdsBranch") + MsgBox "Count " & lDataSet.RecordCount + + 'Step 5 Retrieve the output + lDataSet.First + While (not lDataSet.eof) + MsgBox lDataSet.FindField("Code").AsString & " " & lDataSet.FindField("CompanyName").AsString + lDataSet2.First + While (not lDataSet2.eof) + MsgBox lDataSet2.FindField("Address1").AsString + lDataSet2.Next + Wend + lDataSet.Next + Wend +End Function +``` + +
+ " &_
+ " |
" &_
+ "|
" &_
+ "|
" &_
+ "|
" &_
+ "|
" &_
+ "|
" &_
+ "|
" &_
+ "
+
+#### GL.CB.RO
+
+Customer.Statement.RO Report Object Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg customer_statement_ro.vbs +Call GetCustStatementData + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function GetCustStatementData +Const Quote = """" +Dim ComServer, RptObject, lDataSet, lDataSet2, lDateFrom, lDateTo, lAgeData + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB" + END IF + + 'Step 2: Find and Create the Report Objects + Set RptObject = ComServer.RptObjects.Find("Customer.Statement.RO") + + 'Step 3: Spool parameters + lAgeData = "
+
+
+#### AR_Customer
+
+GL.CB.RO Object Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg GL.CB.RO.vbs +Call GetCLCBData + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function GetCLCBData +Dim ComServer, RptObject, lDataSet, lDataSet2, lDataSet3, lDateFrom, lDateTo + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB" + END IF + + 'Step 2: Find and Create the Report Objects + Set RptObject = ComServer.RptObjects.Find("GL.CB.RO") + + 'Step 3: Spool parameters + RptObject.Params.Find("AllCurrency").Value = true + RptObject.Params.Find("AllDocProject").Value = true + RptObject.Params.Find("AllDocument").Value = true + RptObject.Params.Find("AllItemProject").Value = true + RptObject.Params.Find("AllItemArea").Value = true + RptObject.Params.Find("AllItemAgent").Value = true + RptObject.Params.Find("AllDocAgent").Value = true + RptObject.Params.Find("AllDocArea").Value = true + RptObject.Params.Find("AllPaymentMethod").Value = false + 'RptObject.Params.Find("CurrencyData").Value = 'Not use if AllCurrency is true + + lDateFrom = CDate("January 01, 2017") + lDateTo = CDate("December 31, 2017") + + 'For Post Date From & Date To' + RptObject.Params.Find("DateFrom").Value = lDateFrom + RptObject.Params.Find("DateTo").Value = lDateTo + + 'RptObject.Params.Find("DocProjectData").Value = 'Not use if AllDocProject is true + 'RptObject.Params.Find("DocAreaData").Value = 'Not use if AllDocArea is true + 'RptObject.Params.Find("DocAgentData").Value = 'Not use if AllDocAgent is true + 'RptObject.Params.Find("ItemAgentData").Value = 'Not use if AllItemAgent is true + RptObject.Params.Find("DocType").Value = "PV" 'PV for Payment Voucher & OR for Official Receipt + 'RptObject.Params.Find("DocumentData").Value = 'Not use if AllDocument is true + 'RptObject.Params.Find("GroupBy").Value = 'If you wanted to grouping the data + RptObject.Params.Find("IncludeCancelled").Value = false + 'RptObject.Params.Find("ItemAreaData").Value = 'Not use if AllItemArea is true + 'RptObject.Params.Find("ItemProjectData").Value = 'Not use if AllItemProject is true + RptObject.Params.Find("PaymentMethodData").Value = "310-001" + RptObject.Params.Find("PrintDocumentStyle").Value = false + RptObject.Params.Find("SelectDate").Value = true 'For Post Date + 'RptObject.Params.Find("SelectDocDate").Value = 'For Doc Date + RptObject.Params.Find("SortBy").Value = "PostDate;DocNo" + + 'Step 4: Perform Report calculation + RptObject.CalculateReport() + Set lDataSet = RptObject.DataSets.Find("cdsMain") + Set lDataSet2 = RptObject.DataSets.Find("cdsDetail") + Set lDataSet3 = RptObject.DataSets.Find("cdsTax") + MsgBox "Count " & lDataSet.RecordCount + + 'Step 5 Retrieve the output + lDataSet.First + While (not lDataSet.eof) + MsgBox lDataSet.FindField("DocNo").AsString & " " & lDataSet.FindField("Description").AsString + lDataSet2.First + While (not lDataSet2.eof) + MsgBox lDataSet2.FindField("Code").AsString & " " & lDataSet2.FindField("Description").AsString + lDataSet2.Next + Wend + lDataSet.Next + Wend + 'For GST List + MsgBox "GST Code Count " & lDataSet3.RecordCount + lDataSet3.First + While (not lDataSet3.eof) + MsgBox lDataSet3.FindField("Code").AsString + lDataSet3.Next + Wend +End Function +``` + +
+
+
+#### AR_Customer-Edit
+
+AR_Customer Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg AR_Customer.vbs +Call CheckLogin +Call InsertData + +Dim ComServer + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +function CheckLogin + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + 'UserName, Password, DCF full path, Database filename + END IF +End Function + +Function InsertData +Dim BizObject, lMain, lDetail + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("AR_Customer") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsBranch") 'lDetail contains detail data + + 'Begin Looping yr data + 'Step 4 : Insert Data - Master + BizObject.New + lMain.FindField("Code").AsString = "300-Test" + lMain.FindField("CompanyName").AsString = "Cash Sales" + + 'Step 5: Insert Data - Detail + 'For 1st Branch + lDetail.Edit + lDetail.FindField("BranchName").AsString = "BILLING" + lDetail.FindField("Address1").AsString = "Address1" + lDetail.FindField("Address2").AsString = "Address2" + lDetail.FindField("Address3").AsString = "Address3" + lDetail.FindField("Address4").AsString = "Address4" + lDetail.FindField("Attention").AsString = "Attention" + lDetail.FindField("Phone1").AsString = "Phone1" + lDetail.FindField("Fax1").AsString = "Fax1" + lDetail.FindField("Email").AsString = "EmailAddress" + lDetail.Post + + 'For 2nd Branch + lDetail.Append + lDetail.FindField("BranchName").AsString = "Branch1" + lDetail.FindField("Address1").AsString = "DAddress1" + lDetail.FindField("Address2").AsString = "DAddress2" + lDetail.FindField("Address3").AsString = "DAddress3" + lDetail.FindField("Address4").AsString = "DAddress4" + lDetail.FindField("Attention").AsString = "DAttention" + lDetail.FindField("Phone1").AsString = "DPhone1" + lDetail.FindField("Fax1").AsString = "DFax1" + lDetail.FindField("Email").AsString = "DEmailAddress" + lDetail.Post + + 'Step 6: Save Document + BizObject.Save + BizObject.Close + + 'End Looping yr data + + 'Step 7 : Logout after done + 'ComServer.Logout + + MsgBox "Done" +End Function +``` + +
+
+
+#### GL.TrialBalance.RO
+
+AR_Customer-Edit Script - click to expand
+ +```vb +Copy below script & paste to notepad & name it as eg AR_Customer.vbs +Call EditARCustomer + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function EditARCustomer +Dim ComServer, BizObject, lDataSet, lDataSet2 + + 'Step 1 Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + END IF + + 'Step 2 Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("AR_Customer") + + 'Step 3 Set Dataset + Set lMainDataSet = BizObject.DataSets.Find("MainDataSet") 'lMainDataSet contains master data + Set lDetailDataSet = BizObject.DataSets.Find("cdsBranch") 'lDetailDataSet contains detail data + + 'Step 4 Find Customer Code + BizObject.Params.Find("Code").Value = "300-Test" + + BizObject.Open + BizObject.Edit + lMainDataSet.Edit + lMainDataSet.FindField("CompanyName").value = "Testing 123-Changed" + + 'Step 5 For 1st Branch + v = "BILLING" + + if (lDetailDataSet.Locate("BranchName", v, false, false)) then + lDetailDataSet.Edit + lDetailDataSet.FindField("Address1").AsString = "Address1-Changed" + lDetailDataSet.FindField("Address2").AsString = "Address2-Changed" + lDetailDataSet.FindField("Address3").AsString = "Address3-Changed" + lDetailDataSet.FindField("Address4").AsString = "Address4-Changed" + lDetailDataSet.FindField("Attention").AsString = "Attention-Changed" + lDetailDataSet.FindField("Phone1").AsString = "Phone1-Changed" + lDetailDataSet.FindField("Fax1").AsString = "Fax1-Changed" + lDetailDataSet.FindField("Email").AsString = "EmailAddress-Changed" + lDetailDataSet.Post + end if + 'Step 5 For 2nd Branch + v = "Branch1" + + if (lDetailDataSet.Locate("BranchName", v, false, false)) then + lDetailDataSet.Edit + lDetailDataSet.FindField("Address1").AsString = "DAddress1-Changed" + lDetailDataSet.FindField("Address2").AsString = "DAddress2-Changed" + lDetailDataSet.FindField("Address3").AsString = "DAddress3-Changed" + lDetailDataSet.FindField("Address4").AsString = "DAddress4-Changed" + lDetailDataSet.FindField("Attention").AsString = "DAttention-Changed" + lDetailDataSet.FindField("Phone1").AsString = "DPhone1-Changed" + lDetailDataSet.FindField("Fax1").AsString = "DFax1-Changed" + lDetailDataSet.FindField("Email").AsString = "DEmailAddress-Changed" + lDetailDataSet.Post + end IF + 'Step 6 Save Customer + BizObject.Save + BizObject.Close + MsgBox "Done" +End Function +``` + +
+
+
+#### Customer.Aging.RO
+
+GL.TrialBalance.RO Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg GL.TrialBalance.RO.vbs +Call GetGLTBData + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function GetGLTBData +Dim ComServer, RptObject, lDataSet, lDataSet2, lDateFrom, lDateTo + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB" + END IF + + 'Step 2: Find and Create the Report Objects + Set RptObject = ComServer.RptObjects.Find("GL.TrialBalance.RO") + + 'Step 3: Spool parameters + RptObject.Params.Find("AllProject").Value = true + RptObject.Params.Find("AllAgent").Value = true + RptObject.Params.Find("AllArea").Value = true + RptObject.Params.Find("LedgerType").Value = "G" 'G = Legder, S = Debtor, P = Supplier + 'RptObject.Params.Find("ProjectData").Value = 'Not use if AllArea is true + RptObject.Params.Find("ShowZeroBalance").Value = false + RptObject.Params.Find("SortBy").Value = "PostDate;DocNo" + RptObject.Params.Find("UseDescription2").Value = false + + lDateFrom = CDate("October 27, 2016") + lDateTo = CDate("December 31, 2016") + + 'For Post Date From & Date To' + RptObject.Params.Find("DateFrom").Value = lDateFrom + RptObject.Params.Find("DateTo").Value = lDateTo + + 'RptObject.Params.Find("AgentData").Value = 'Not use if AllAgent is true + 'RptObject.Params.Find("AreaData").Value = 'Not use if AllArea is true + + RptObject.Params.Find("SortBy").Value = "Code;Description" + + 'Step 4: Perform Report calculation + RptObject.CalculateReport() + Set lDataSet = RptObject.DataSets.Find("cdsMain") + Set lDataSet2 = RptObject.DataSets.Find("cdsGLAccount") + + MsgBox "Count " & lDataSet.RecordCount + + 'Step 5 Retrieve the output + lDataSet.First + While (not lDataSet.eof) + MsgBox "Month To Date" + MsgBox lDataSet.FindField("Code").AsString & " DR=>" & lDataSet.FindField("MTDDR").AsString & " CR=>" & lDataSet.FindField("MTDCR").AsString + + MsgBox "Year To Date" + MsgBox lDataSet.FindField("Code").AsString & " DR=>" & lDataSet.FindField("YTDDR").AsString & " CR=>" & lDataSet.FindField("YTDCR").AsString + lDataSet.Next + Wend + + 'For Account List + lDataSet2.First + While (not lDataSet2.eof) + MsgBox lDataSet2.FindField("Code").AsString & " " & lDataSet2.FindField("Description").AsString + lDataSet2.Next + Wend + +End Function +``` + +
+ " &_
+ " |
" &_
+ "|
" &_
+ "|
" &_
+ "|
" &_
+ "|
" &_
+ "|
" &_
+ "|
" &_
+ "
+
+#### GL.JE.RO
+
+Customer.Aging.RO Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg customer_aging_ro.vbs +Call GetCustStatementData + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function GetCustStatementData +Const Quote = """" +Dim ComServer, RptObject, lDataSet, lDataSet2, lDateFrom, lDateTo, lAgeData + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB" + END IF + + 'Step 2: Find and Create the Report Objects + Set RptObject = ComServer.RptObjects.Find("Customer.Aging.RO") + + 'Step 3: Spool parameters + lAgeData = "
+
+
+#### SL_CS (sales credit note / credit sales)
+
+GL Journal Voucher Report Object Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg GLJE_ro.vbs +Call GetCustomerData + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function GetCustomerData +Dim ComServer, RptObject, lDataSet, lDataSet2, lDateFrom, lDateTo + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB" + END IF + + 'Step 2: Find and Create the Report Objects + Set RptObject = ComServer.RptObjects.Find("GL.JE.RO") + + 'Step 3: Spool parameters + RptObject.Params.Find("AllCurrency").Value = true + RptObject.Params.Find("AllDocProject").Value = true + RptObject.Params.Find("AllDocument").Value = true + RptObject.Params.Find("AllItemProject").Value = true + RptObject.Params.Find("AllItemArea").Value = true + RptObject.Params.Find("AllItemAgent").Value = true + RptObject.Params.Find("AllDocAgent").Value = true + RptObject.Params.Find("AllDocArea").Value = true + RptObject.Params.Find("AllPaymentMethod").Value = true + + lDateFrom = CDate("December 1, 2017") + lDateTo = CDate("December 31, 2017") + + RptObject.Params.Find("DateFrom").Value = lDateFrom + RptObject.Params.Find("DocDateFrom").Value = lDateFrom + RptObject.Params.Find("DateTo").Value = lDateTo + RptObject.Params.Find("DocDateTo").Value = lDateTo + RptObject.Params.Find("IncludeCancelled").Value = false + RptObject.Params.Find("PrintDocumentStyle").Value = false + RptObject.Params.Find("SelectDate").Value = true 'Post Date + RptObject.Params.Find("SelectDocDate").Value = false 'Doc Date + + 'Step 4: Perform Report calculation + RptObject.CalculateReport() + Set lDataSet = RptObject.DataSets.Find("cdsMain") + Set lDataSet2 = RptObject.DataSets.Find("cdsDetail") + MsgBox "Count " & lDataSet.RecordCount + + 'Step 5 Retrieve the output + lDataSet.First + While (not lDataSet.eof) + MsgBox lDataSet.FindField("DocNo").AsString & " " & lDataSet.FindField("Description").AsString + lDataSet2.First + While (not lDataSet2.eof) + MsgBox lDataSet2.FindField("Code").AsString & " " & lDataSet2.FindField("Description").AsString + lDataSet2.Next + Wend + lDataSet.Next + Wend +End Function +``` + +
+
+
+#### Customer.PM.RO
+
+SL_CS Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg SL_CS.vbs +Call InsertData + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function InsertData +Dim ComServer, BizObject, lDate + + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + END IF + + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("SL_CS") + + 'Step 3: Set Dataset + Set lMainDataSet = BizObject.DataSets.Find("MainDataSet") 'lMainDataSet contains master data + Set lDetailDataSet = BizObject.DataSets.Find("cdsDocDetail") 'lDetailDataSet contains detail data + + 'Step 4 : Insert Data - Master + lDate = CDate("January 1, 2016") + BizObject.New + lMainDataSet.FindField("DocKey").value = -1 + lMainDataSet.FindField("DocNo").value = "--IV Test--" + lMainDataSet.FindField("DocDate").value = lDate + lMainDataSet.FindField("PostDate").value = lDate + lMainDataSet.FindField("Code").value = "300-C0001" 'Customer Code + lMainDataSet.FindField("Description").value = "Sales" + + 'Step 5: Insert Data - Detail + 'For Tax Inclusive = True with override Tax Amount + lDetailDataSet.Append + lDetailDataSet.FindField("DtlKey").value = -1 + lDetailDataSet.FindField("DocKey").value = -1 + lDetailDataSet.FindField("Account").value = "500-000" 'Sales Account Code & can ignore if had itemcode + lDetailDataSet.FindField("Description").value = "Sales Item A" + lDetailDataSet.FindField("Qty").value = 1 + lDetailDataSet.FindField("Tax").value = "SR" + lDetailDataSet.FindField("TaxInclusive").value = 0 + lDetailDataSet.FindField("UnitPrice").value = 410.37 + lDetailDataSet.FindField("Amount").value = 410.37 + lDetailDataSet.FindField("TaxAmt").value = 24.63 + + lDetailDataSet.DisableControls + lDetailDataSet.FindField("TaxInclusive").value = 1 + lDetailDataSet.EnableControls + + lDetailDataSet.Post + + 'For Tax Inclusive = False with override Tax Amount + lDetailDataSet.Append + lDetailDataSet.FindField("DtlKey").value = -1 + lDetailDataSet.FindField("DocKey").value = -1 + lDetailDataSet.FindField("Account").value = "500-000" + lDetailDataSet.FindField("Description").value = "Sales Item B" + lDetailDataSet.FindField("Qty").value = 1 + lDetailDataSet.FindField("Tax").value = "SR" + lDetailDataSet.FindField("TaxInclusive").value = 0 + lDetailDataSet.FindField("UnitPrice").value = 94.43 + lDetailDataSet.FindField("Amount").value = 94.43 + lDetailDataSet.FindField("TaxAmt").value = 5.66 + lDetailDataSet.Post + + 'For With Item Code + lDetailDataSet.Append + lDetailDataSet.FindField("DtlKey").value = -1 + lDetailDataSet.FindField("DocKey").value = -1 + lDetailDataSet.FindField("ItemCode").value = "ANT" + lDetailDataSet.FindField("Description").value = "Sales Item B" + lDetailDataSet.FindField("Qty").value = 2 + lDetailDataSet.FindField("Tax").value = "SR" + lDetailDataSet.FindField("TaxInclusive").value = 0 + lDetailDataSet.FindField("UnitPrice").value = 100 + lDetailDataSet.FindField("Amount").value = 200 + lDetailDataSet.FindField("TaxAmt").value = 12 + lDetailDataSet.Post + + 'Step 6: Save Document + BizObject.Save + BizObject.Close + ComServer.Logout + MsgBox "Done" +End Function +``` + +
+
+
+#### Sales.IV.RO
+
+Customer Payment Report Object Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg Customer.PM.RO.vbs +Call GetARPMData + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function GetARPMData +Dim ComServer, RptObject, lDataSet, lDataSet2, lDataSet3, lDateFrom, lDateTo + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB" + END IF + + 'Step 2: Find and Create the Report Objects + Set RptObject = ComServer.RptObjects.Find("Customer.PM.RO") + + 'Step 3: Spool parameters + 'RptObject.Params.Find("AgentData").Value = 'Not use if AllAgent is true + 'RptObject.Params.Find("CompanyCategoryData").Value = 'Not use if AllCompanyCategory is true + RptObject.Params.Find("AllAgent").Value = true + RptObject.Params.Find("AllCompanyCategory").Value = true + RptObject.Params.Find("AllArea").Value = true + RptObject.Params.Find("AllCompany").Value = true + RptObject.Params.Find("AllCurrency").Value = true + RptObject.Params.Find("AllDocument").Value = false + RptObject.Params.Find("AllPaymentMethod").Value = true + 'RptObject.Params.Find("AreaData").Value = 'Not use if AllArea is true + 'RptObject.Params.Find("CompanyData").Value = 'Not use if AllCompany is true + 'RptObject.Params.Find("CurrencyData").Value = 'Not use if AllCurrency is true + + lDateFrom = CDate("January 01, 2017") + lDateTo = CDate("December 31, 2017") + + RptObject.Params.Find("DateFrom").Value = lDateFrom + RptObject.Params.Find("DateTo").Value = lDateTo + RptObject.Params.Find("DocumentData").Value = "VCOR-00049" + 'RptObject.Params.Find("GroupBy").Value = 'If you wanted to grouping the data + RptObject.Params.Find("IncludeCancelled").Value = false + 'RptObject.Params.Find("PaymentMethodData").Value = 'Not use if AllPaymentMethod is true + RptObject.Params.Find("PrintDocumentStyle").Value = false + RptObject.Params.Find("SelectDate").Value = true + RptObject.Params.Find("ShowUnappliedAmountOnly").Value = false + RptObject.Params.Find("SortBy").Value = "PostDate;DocNo;Code" + RptObject.Params.Find("AllDocProject").Value = true + RptObject.Params.Find("AllItemProject").Value = true + 'RptObject.Params.Find("DocProjectData").Value = 'Not use if AllDocProject is true + 'RptObject.Params.Find("ItemProjectData").Value = 'Not use if AllItemProject is true + + 'Step 4: Perform Report calculation + RptObject.CalculateReport() + Set lDataSet = RptObject.DataSets.Find("cdsMain") + Set lDataSet2 = RptObject.DataSets.Find("cdsKnockOff") + Set lDataSet3 = RptObject.DataSets.Find("cdsKnockOffDetail") + MsgBox "Count " & lDataSet.RecordCount + + 'Step 5 Retrieve the output + lDataSet.First + While (not lDataSet.eof) + MsgBox lDataSet.FindField("DocKey").AsString & " " & lDataSet.FindField("DocNo").AsString & " " & lDataSet.FindField("Code").AsString + MsgBox "cdsKnockOff Count " & lDataSet2.RecordCount + lDataSet2.First + While (not lDataSet2.eof) + MsgBox lDataSet2.FindField("FromDocKey").AsString & " " & lDataSet2.FindField("DocNo").AsString & " " & lDataSet2.FindField("KOAmt").AsString + lDataSet2.Next + Wend + MsgBox "cdsKnockOffDetail Count " & lDataSet3.RecordCount + lDataSet3.First + While (not lDataSet3.eof) + MsgBox lDataSet3.FindField("FromDocKey").AsString & " " & lDataSet3.FindField("DocNo").AsString & " " & lDataSet3.FindField("KOAmt").AsString + lDataSet3.Next + Wend + lDataSet.Next + Wend +End Function +``` + +
+
+
+#### Customer.DueDocument.RO
+
+Sales Invoice Report Object Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg Sales.IV.RO.vbs +Call GetSalesIVData + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function GetSalesIVData +Dim ComServer, RptObject, lDataSet, lDataSet2, lDataSet3, lDateFrom, lDateTo + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB" + END IF + + 'Step 2: Find and Create the Report Objects + Set RptObject = ComServer.RptObjects.Find("Sales.IV.RO") + + 'Step 3: Spool parameters + 'RptObject.Params.Find("AgentData").Value = 'Not use if AllAgent is true + RptObject.Params.Find("AllAgent").Value = true + RptObject.Params.Find("AllArea").Value = true + RptObject.Params.Find("AllCompany").Value = false + RptObject.Params.Find("AllCurrency").Value = true + RptObject.Params.Find("AllDocProject").Value = true + RptObject.Params.Find("AllDocument").Value = true + RptObject.Params.Find("AllItem").Value = true + RptObject.Params.Find("AllItemProject").Value = true + RptObject.Params.Find("AllLocation").Value = true + RptObject.Params.Find("AllStockGroup").Value = true + RptObject.Params.Find("AllCompanyCategory").Value = true + RptObject.Params.Find("AllBatch").Value = true + RptObject.Params.Find("AllTariff").Value = true 'For Version 776 & above + 'RptObject.Params.Find("TariffData").Value = 'Not use if TariffData is true - For Version 776 & above + 'RptObject.Params.Find("AreaData").Value = 'Not use if AllArea is true + 'RptObject.Params.Find("CompanyCategoryData").Value = 'Not use if AllCompanyCategory is true + RptObject.Params.Find("CompanyData").Value = "300-C0001" + 'RptObject.Params.Find("CurrencyData").Value = 'Not use if AllCurrency is true + + lDateFrom = CDate("January 01, 2017") + lDateTo = CDate("December 31, 2017") + + RptObject.Params.Find("DateFrom").Value = lDateFrom + RptObject.Params.Find("DateTo").Value = lDateTo + 'RptObject.Params.Find("DocProjectData").Value = 'Not use if AllDocProject is true + 'RptObject.Params.Find("DocumentData").Value = 'Not use if AllDocument is true + 'RptObject.Params.Find("GroupBy").Value = 'If you wanted to grouping the data + 'RptObject.Params.Find("CategoryData").Value = 'Not use if HasCategory is false + 'RptObject.Params.Find("CategoryTpl").Value = 'For Internal use only + RptObject.Params.Find("IncludeCancelled").Value = false + RptObject.Params.Find("HasCategory").Value = false + 'RptObject.Params.Find("ItemData").Value = 'Not use if AllItem is true + 'RptObject.Params.Find("ItemProjectData").Value = 'Not use if AllItemProject is true + 'RptObject.Params.Find("LocationData").Value = 'Not use if AllLocation is true + 'RptObject.Params.Find("ItemCategoryData").Value = 'For Internal use only + 'RptObject.Params.Find("BatchData").Value = 'Not use if AllBatch is true + RptObject.Params.Find("PrintDocumentStyle").Value = false + RptObject.Params.Find("SelectDate").Value = true + RptObject.Params.Find("SortBy").Value = "PostDate;DocNo;Code" + 'RptObject.Params.Find("StockGroupData").Value = 'Not use if AllStockGroup is true + + + 'Step 4: Perform Report calculation + RptObject.CalculateReport() + Set lDataSet = RptObject.DataSets.Find("cdsMain") + Set lDataSet2 = RptObject.DataSets.Find("cdsDocDetail") + MsgBox "Count " & lDataSet.RecordCount + + 'Step 5 Retrieve the output + lDataSet.First + While (not lDataSet.eof) + MsgBox lDataSet.FindField("DocKey").AsString & " " & lDataSet.FindField("DocNo").AsString & " " & lDataSet.FindField("Code").AsString + MsgBox "cdsDocDetail Count " & lDataSet2.RecordCount + lDataSet2.First + While (not lDataSet2.eof) + MsgBox lDataSet2.FindField("DocKey").AsString & " " & lDataSet2.FindField("ItemCode").AsString & " " & lDataSet2.FindField("Amount").AsString + lDataSet2.Next + Wend + lDataSet.Next + Wend +End Function +``` + +
+
+
+#### Customer.IV.RO
+
+Customer.DueDocument.RO Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg Customer.DueDocument.RO.vbs +Call GetData + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function GetData +Dim ComServer, RptObject, lDataSet, lDateTo + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB" + END IF + + 'Step 2: Find and Create the Report Objects + Set RptObject = ComServer.RptObjects.Find("Customer.DueDocument.RO") + + 'Step 3: Spool parameters + 'RptObject.Params.Find("AgentData").Value = 'Not use if AllAgent is true + RptObject.Params.Find("AllAgent").Value = true + RptObject.Params.Find("AllArea").Value = true + RptObject.Params.Find("AllCompany").Value = false + RptObject.Params.Find("AllCompanyCategory").Value = true + RptObject.Params.Find("AllCurrency").Value = true + RptObject.Params.Find("AllDocProject").Value = true + RptObject.Params.Find("AllItemProject").Value = true + 'RptObject.Params.Find("AreaData").Value = 'Not use if AllArea is true + 'RptObject.Params.Find("CompanyCategoryData").Value = 'Not use if AllCompanyCategory is true + RptObject.Params.Find("CompanyData").Value = "300-A0003" + 'RptObject.Params.Find("CurrencyData").Value = 'Not use if AllCurrency is true + 'RptObject.Params.Find("DocProjectData").Value = 'Not use if AllDocProject is true + 'RptObject.Params.Find("GroupBy").Value = 'If you wanted to grouping the data + 'RptObject.Params.Find("ItemProjectData").Value = 'Not use if AllItemProject is true + RptObject.Params.Find("PrintContra").Value = true + RptObject.Params.Find("PrintCreditNote").Value = true + RptObject.Params.Find("PrintDebitNote").Value = true + RptObject.Params.Find("PrintInvoice").Value = true + RptObject.Params.Find("PrintOverDue").Value = true + RptObject.Params.Find("PrintUnDue").Value = true + RptObject.Params.Find("ShowForeignCurrency").Value = true + RptObject.Params.Find("ShowLocalCurrency").Value = true + RptObject.Params.Find("SortBy").Value = "PostDate;DocNo;Code" + + lDateTo = CDate("April 12, 2018") + + RptObject.Params.Find("DateTo").Value = lDateTo + RptObject.Params.Find("IncludePDCheque").Value = true + + 'Step 4: Perform Report calculation + RptObject.CalculateReport() + Set lDataSet = RptObject.DataSets.Find("cdsMain") + MsgBox "Count " & lDataSet.RecordCount + + 'Step 5 Retrieve the output + lDataSet.First + While (not lDataSet.eof) + MsgBox "Dockey " & lDataSet.FindField("DocKey").AsString + MsgBox "DocNo " & lDataSet.FindField("DocNo").AsString + MsgBox "DocAmt " & lDataSet.FindField("DocAmt").AsString + MsgBox "Outstanding " & lDataSet.FindField("Outstanding").AsString + MsgBox "Code " & lDataSet.FindField("Code").AsString + lDataSet.Next + Wend +End Function +``` + +
+
+
+#### Sales.OutstandingSO.RO
+
+Customer.IV.RO Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg Customer.IV.RO.vbs +Call GetData + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function GetData +Dim ComServer, RptObject, lDataSet, lDataSet2, lDataSet3, lDateFrom, lDateTo + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB" + END IF + + 'Step 2: Find and Create the Report Objects + Set RptObject = ComServer.RptObjects.Find("Customer.IV.RO") + + 'Step 3: Spool parameters + 'RptObject.Params.Find("AgentData").Value = 'Not use if AllAgent is true + 'RptObject.Params.Find("CompanyCategoryData").Value = 'Not use if AllCompanyCategory is true + RptObject.Params.Find("AllAgent").Value = true + RptObject.Params.Find("AllCompanyCategory").Value = true + RptObject.Params.Find("AllArea").Value = true + RptObject.Params.Find("AllCompany").Value = true + RptObject.Params.Find("AllCurrency").Value = true + RptObject.Params.Find("AllDocument").Value = false + RptObject.Params.Find("AllPaymentMethod").Value = true + 'RptObject.Params.Find("AreaData").Value = 'Not use if AllArea is true + 'RptObject.Params.Find("CompanyData").Value = 'Not use if AllCompany is true + 'RptObject.Params.Find("CurrencyData").Value = 'Not use if AllCurrency is true + + lDateFrom = CDate("January 01, 2017") + lDateTo = CDate("December 31, 2017") + + RptObject.Params.Find("DateFrom").Value = lDateFrom + RptObject.Params.Find("DateTo").Value = lDateTo + RptObject.Params.Find("DocumentData").Value = "IV-00012" + 'RptObject.Params.Find("GroupBy").Value = 'If you wanted to grouping the data + RptObject.Params.Find("IncludeCancelled").Value = true + 'RptObject.Params.Find("PaymentMethodData").Value = 'Not use if AllPaymentMethod is true + RptObject.Params.Find("PrintDocumentStyle").Value = false + RptObject.Params.Find("SelectDate").Value = true + RptObject.Params.Find("ShowUnappliedAmountOnly").Value = true + RptObject.Params.Find("SortBy").Value = "DocDate;DocNo;Code" + RptObject.Params.Find("AllDocProject").Value = true + RptObject.Params.Find("AllItemProject").Value = true + 'RptObject.Params.Find("DocProjectData").Value = 'Not use if AllDocProject is true + 'RptObject.Params.Find("ItemProjectData ").Value = 'Not use if AllItemProject is true + + 'Step 4: Perform Report calculation + RptObject.CalculateReport() + Set lDataSet = RptObject.DataSets.Find("cdsMain") + Set lDataSet2 = RptObject.DataSets.Find("cdsDocDetail") + MsgBox "Count " & lDataSet.RecordCount + + 'Step 5 Retrieve the output + lDataSet.First + While (not lDataSet.eof) + MsgBox "DocNo " & lDataSet.FindField("DocNo").AsString + MsgBox "DocAmt " & lDataSet.FindField("DocAmt").AsString + MsgBox "PaymentAmt " & lDataSet.FindField("PaymentAmt").AsString + + MsgBox "cdsDocDetail Count " & lDataSet2.RecordCount + lDataSet2.First + While (not lDataSet2.eof) + MsgBox "Account " & lDataSet2.FindField("Account").AsString + MsgBox "Description " & lDataSet2.FindField("Description").AsString + MsgBox "Amount " & lDataSet2.FindField("Amount").AsString + lDataSet2.Next + Wend + lDataSet.Next + Wend +End Function +``` + +
+
+
+#### Common.PaymentMethod.RO
+
+Sales.OutstandingSO.RO Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg Sales.OutstandingSO.RO.vbs +Call GetData + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function GetData +Dim ComServer, RptObject, lDataSet, lDataSet2, lDataSet3, lDateFrom, lDateTo + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB" + END IF + + 'Step 2: Find and Create the Report Objects + Set RptObject = ComServer.RptObjects.Find("Sales.OutstandingSO.RO") + + 'Step 3: Spool parameters + 'RptObject.Params.Find("AgentData").Value = 'Not use if AllAgent is true + 'RptObject.Params.Find("CompanyCategoryData").Value = 'Not use if AllCompanyCategory is true + 'RptObject.Params.Find("LocationData").Value = 'Not use if AllLocation is true + 'RptObject.Params.Find("StockGroupData").Value = 'Not use if AllStockGroup is true + RptObject.Params.Find("AllAgent").Value = true + RptObject.Params.Find("AllArea").Value = true + RptObject.Params.Find("AllCompany").Value = true + RptObject.Params.Find("AllDocument").Value = false + RptObject.Params.Find("AllItem").Value = true + RptObject.Params.Find("AllItemProject").Value = true + 'RptObject.Params.Find("AreaData").Value = 'Not use if AllArea is true + 'RptObject.Params.Find("CompanyData").Value = 'Not use if AllCompany is true + RptObject.Params.Find("AllTariff").Value = true 'For Version 776 & above + 'RptObject.Params.Find("TariffData").Value = 'Not use if TariffData is true - For Version 776 & above + + + lDateFrom = CDate("January 01, 2017") + lDateTo = CDate("December 31, 2017") + + 'RptObject.Params.Find("DateFrom").Value = lDateFrom + 'RptObject.Params.Find("DateTo").Value = lDateTo + 'RptObject.Params.Find("DeliveryDateFrom").Value = lDateFrom + 'RptObject.Params.Find("DeliveryDateTo").Value = lDateTo + RptObject.Params.Find("DocumentData").Value = "SO-00007"& vbCRLF & "SO-00009" + 'RptObject.Params.Find("GroupBy").Value = 'If you wanted to grouping the data + RptObject.Params.Find("IncludeCancelled").Value = false + 'RptObject.Params.Find("ItemData").Value = 'Not use if AllItem is true + RptObject.Params.Find("PrintFulfilledItem").Value = true 'Print transfered info + RptObject.Params.Find("PrintOutstandingItem").Value = true 'Print untransfer info + 'RptObject.Params.Find("ItemProjectData").Value = 'Not use if AllItemProject is true + RptObject.Params.Find("SelectDate").Value = false + RptObject.Params.Find("SelectDeliveryDate").Value = false + RptObject.Params.Find("SortBy").Value = "DocDate;DocNo;Code" + RptObject.Params.Find("AllDocProject").Value = true + RptObject.Params.Find("AllLocation").Value = true + RptObject.Params.Find("AllCompanyCategory").Value = true + RptObject.Params.Find("AllBatch").Value = true + RptObject.Params.Find("HasCategory").Value = false + RptObject.Params.Find("AllStockGroup").Value = true + 'RptObject.Params.Find("CategoryData").Value = 'For Internal use only + 'RptObject.Params.Find("CategoryTpl").Value = 'For Internal use only + 'RptObject.Params.Find("ItemCategoryData").Value = 'For Internal use only + 'RptObject.Params.Find("DocProjectData").Value = 'Not use if AllDocProject is true + 'RptObject.Params.Find("BatchData").Value = 'Not use if AllBatch is true + RptObject.Params.Find("TranferDocFilterDate").Value = false + + + 'Step 4: Perform Report calculation + RptObject.CalculateReport() + Set lDataSet = RptObject.DataSets.Find("cdsMain") + Set lDataSet2 = RptObject.DataSets.Find("cdsTransfer") + MsgBox "Count " & lDataSet.RecordCount + + 'Step 5 Retrieve the output + lDataSet.First + While (not lDataSet.eof) + MsgBox "DocKey " & lDataSet.FindField("DocKey").AsString + MsgBox "DtlKey " & lDataSet.FindField("Dtlkey").AsString + MsgBox "DocNo " & lDataSet.FindField("DocNo").AsString + MsgBox "Item Code " & lDataSet.FindField("ItemCode").AsString + MsgBox "Org Qty " & lDataSet.FindField("SQty").AsString + MsgBox "Outstanding Qty " & lDataSet.FindField("OutstandingQty").AsString + + MsgBox "cdsDocDetail Count " & lDataSet2.RecordCount + lDataSet2.First + While (not lDataSet2.eof) + MsgBox "FromDocKey " & lDataSet2.FindField("FromDocKey").AsString + MsgBox "FromDtlKey " & lDataSet2.FindField("FromDtlkey").AsString + MsgBox "DocType " & lDataSet2.FindField("DocType").AsString + MsgBox "DocNo " & lDataSet2.FindField("DocNo").AsString + MsgBox "DocDate " & lDataSet2.FindField("DocDate").AsString + MsgBox "Transfer Qty " & lDataSet2.FindField("TransferQty").AsString + lDataSet2.Next + Wend + lDataSet.Next + Wend +End Function +``` + +
+
+
+#### Common.Agent.RO
+
+Common.PaymentMethod.RO Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg Common.PaymentMethod.RO.vbs +Call GetInfo + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function GetInfo +Dim ComServer, RptObject, lDataSet1, lDataSet2 + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB" + END IF + + 'Step 2: Find and Create the Report Objects + Set RptObject = ComServer.RptObjects.Find("Common.PaymentMethod.RO") + + + 'Step 3: Perform Report calculation + RptObject.CalculateReport() + Set lDataSet1 = RptObject.DataSets.Find("cdsMain") + Set lDataSet2 = RptObject.DataSets.Find("cdsPaymentAccount") 'You can link with lDataSet1 using Code to get the description + + MsgBox "Count " & lDataSet1.RecordCount + + 'Step 5 Retrieve the output + lDataSet1.First + While (not lDataSet1.eof) + MsgBox "Code : " & lDataSet1.FindField("Code").AsString + lDataSet1.Next + Wend + + MsgBox "Count " & lDataSet2.RecordCount + + lDataSet2.First + While (not lDataSet2.eof) + MsgBox "Code : " & lDataSet2.FindField("Code").AsString + MsgBox "Description : " & lDataSet2.FindField("Description").AsString + lDataSet2.Next + Wend +End Function +``` + +
+
+
+#### Stock.Item.RO
+
+Common.Agent.RO Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg Common.Agent.RO.vbs +Call GetInfo + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function GetInfo +Dim ComServer, RptObject, lDataSet1 + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB" + END IF + + 'Step 2: Find and Create the Report Objects + Set RptObject = ComServer.RptObjects.Find("Common.Agent.RO") + + + 'Step 3: Perform Report calculation + RptObject.CalculateReport() + Set lDataSet1 = RptObject.DataSets.Find("cdsMain") + + MsgBox "Count " & lDataSet1.RecordCount + + 'Step 5 Retrieve the output + lDataSet1.First + While (not lDataSet1.eof) + MsgBox "Code : " & lDataSet1.FindField("Code").AsString + MsgBox "Description : " & lDataSet1.FindField("Description").AsString + lDataSet1.Next + Wend +End Function +``` + +
+
+
+#### Stock Item Balance
+
+Stock.Item.RO Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg Stock.Item.RO.vbs +Call GetInfo + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function GetInfo +Dim ComServer, RptObject, lDataSet1, lDataSet2, lDateFrom, lDateTo + 'Step 1 Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C\DB\SQLAcc.DCF", "ACC-0002.FDB" + END IF + + 'Step 2 Find and Create the Report Objects + Set RptObject = ComServer.RptObjects.Find("Stock.Item.RO") + + 'Step 3 Spool parameters + RptObject.Params.Find("AllItem").AsBoolean = true + RptObject.Params.Find("AllStockGroup").AsBoolean = true + RptObject.Params.Find("AllCustomerPriceTag").AsBoolean = true + RptObject.Params.Find("AllSupplierPriceTag").AsBoolean = true + 'RptObject.Params.Find("CategoryData").AsBlob = 'Not use + 'RptObject.Params.Find("CategoryTpl").AsBlob = 'Not use + 'RptObject.Params.Find("CustomerPriceTagData").AsBlob = 'Not use if AllCustomerPriceTag is True + 'RptObject.Params.Find("SupplierPriceTagData").AsBlob = 'Not use if AllSupplierPriceTag is True + + lDateFrom = CDate("January 01, 2017") + lDateTo = CDate("December 31, 2017") + + 'RptObject.Params.Find("DateFrom").AsDate = lDateFrom 'Not use if SelectDate is False + 'RptObject.Params.Find("DateTo").AsDate = lDateTo + RptObject.Params.Find("HasAltStockItem").AsBoolean = false + RptObject.Params.Find("HasBarcode").AsBoolean = false + RptObject.Params.Find("HasBOM").AsBoolean = false + RptObject.Params.Find("HasCategory").AsBoolean = false + RptObject.Params.Find("HasCustomerItem").AsBoolean = false + RptObject.Params.Find("HasOpeningBalance").AsBoolean = false + RptObject.Params.Find("HasPurchasePrice").AsBoolean = false + RptObject.Params.Find("HasSellingPrice").AsBoolean = false + RptObject.Params.Find("HasSupplierItem").AsBoolean = false + 'RptObject.Params.Find("ItemData").AsBlob = 'Not use if AllItem is True + 'RptObject.Params.Find("ItemCategoryData").AsBlob = 'Not use if SelectCategory is False + RptObject.Params.Find("PrintActive").AsBoolean = true + RptObject.Params.Find("PrintInActive").AsBoolean = true + RptObject.Params.Find("PrintNonStockControl").AsBoolean = true + RptObject.Params.Find("PrintStockControl").AsBoolean = true + RptObject.Params.Find("SelectCategory").AsBoolean = false + RptObject.Params.Find("SelectDate").AsBoolean = false + RptObject.Params.Find("SortBy").AsString = "Code" + 'RptObject.Params.Find("StockGroupData").AsBlob = 'Not use if AllStockGroup is True + + 'Step 4 Perform Report calculation + RptObject.CalculateReport() + Set lDataSet1 = RptObject.DataSets.Find("cdsMain") + Set lDataSet2 = RptObject.DataSets.Find("cdsUOM") ' To link Master Data use Code + MsgBox "Count " & lDataSet1.RecordCount + + 'Step 5 Retrieve the output + lDataSet1.First + While (not lDataSet1.eof) + MsgBox "Code " & lDataSet1.FindField("Code").AsString + MsgBox "Description " & lDataSet1.FindField("Description").AsString + MsgBox "Balance Qty " & lDataSet1.FindField("BalSQty").AsString + lDataSet1.Next + Wend + + MsgBox "Count " & lDataSet2.RecordCount + lDataSet2.First + While (not lDataSet2.eof) + MsgBox "Code " & lDataSet2.FindField("Code").AsString + MsgBox "UOM " & lDataSet2.FindField("UOM").AsString + MsgBox "Rate " & lDataSet2.FindField("Rate").AsString + MsgBox "RefPrice " & lDataSet2.FindField("RefPrice").AsString + lDataSet2.Next + Wend +End Function +``` + +
+
+
+#### ST_IS (stock issue)
+
+Get Stock Item Balance Script - click to expand
+ +```vb +'Available in Version 5.2018.833.759 & above +'Copy below script & paste to notepad & name it as eg ItemBalance.vbs +Call CheckLogin +Call GetData + +Dim ComServer + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +function CheckLogin + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + 'UserName, Password, DCF full path, Database filename + END IF +End Function + +Function GetData +Dim lDataSet, lSQL + lSQL = "SELECT A.Location, A.Batch, A.ItemCode, B.Description, Sum(A.Qty) Qty FROM ST_TR A " + lSQL = lSQL & "INNER JOIN ST_ITEM B ON (A.ITEMCODE=B.CODE) " + lSQL = lSQL & "WHERE B.IsActive='T' " + lSQL = lSQL & "AND A.PostDate <= '31 Dec 2017' " + lSQL = lSQL & "AND A.ItemCode= 'ANT' " + lSQL = lSQL & "GROUP by A.Location, A.Batch, A.ItemCode, B.Description" + Set lDataSet = ComServer.DBManager.NewDataSet(lSQL) + + lDataSet.First + While (not lDataSet.eof) + MsgBox "Location : " & lDataSet.FindField("Location").AsString + MsgBox "Batch : " & lDataSet.FindField("Batch").AsString + MsgBox "Item Code : " & lDataSet.FindField("ItemCode").AsString + MsgBox "Item Description : " & lDataSet.FindField("Description").AsString + MsgBox "Balance Qty : " & lDataSet.FindField("Qty").AsString + lDataSet.Next + Wend +End Function +``` + +
+
+
+#### ST_RC (stock received)
+
+ST_IS Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg StockIssue.vbs +Call CheckLogin +Call InsertData + +Dim ComServer + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +function CheckLogin + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + 'UserName, Password, DCF full path, Database filename + END IF +End Function + +Function InsertData +Dim BizObject, lMain, lDetail, lDate + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("ST_IS") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data + + 'Step 4 : Insert Data - Master + lDate = CDate("January 1, 2017") + BizObject.New + lMain.FindField("DocKey").value = -1 + lMain.FindField("DocNo").AsString = "--IS Test--" + lMain.FindField("DocDate").value = lDate + lMain.FindField("PostDate").value = lDate + lMain.FindField("Description").AsString = "Stock Issue" + + 'Step 5: Insert Data - Detail + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("DocKey").value = -1 + lDetail.FindField("ItemCode").AsString = "ANT" + lDetail.FindField("Description").AsString = "Issue out Item A" + lDetail.FindField("Qty").AsFloat = 2 + lDetail.Post + + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("DocKey").value = -1 + lDetail.FindField("ItemCode").AsString = "E-BAT" + lDetail.FindField("Description").AsString = "Issue out Item A" + lDetail.FindField("Qty").AsFloat = 4 + lDetail.Post + 'Step 6: Save Document + BizObject.Save + BizObject.Close + + ComServer.Logout 'Logout after done + MsgBox "Done" +End Function +``` + +
+
+
+#### ST_AJ (stock adjustment)
+
+ST_RC Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg StockReceived.vbs +Call CheckLogin +Call InsertData + +Dim ComServer + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +function CheckLogin + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + 'UserName, Password, DCF full path, Database filename + END IF +End Function + +Function InsertData +Dim BizObject, lMain, lDetail, lDate + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("ST_RC") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data + + 'Step 4 : Insert Data - Master + lDate = CDate("January 1, 2017") + BizObject.New + lMain.FindField("DocKey").value = -1 + lMain.FindField("DocNo").AsString = "--RC Test--" + lMain.FindField("DocDate").value = lDate + lMain.FindField("PostDate").value = lDate + lMain.FindField("Description").AsString = "Stock Received" + + 'Step 5: Insert Data - Detail + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("DocKey").value = -1 + lDetail.FindField("ItemCode").AsString = "ANT" + lDetail.FindField("Description").AsString = "Received Item A" + lDetail.FindField("Qty").AsFloat = 2 + lDetail.FindField("UnitCost").AsFloat = 25.15 + lDetail.Post + + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("DocKey").value = -1 + lDetail.FindField("ItemCode").AsString = "E-BAT" + lDetail.FindField("Description").AsString = "Received Item A" + lDetail.FindField("Qty").AsFloat = 4 + lDetail.FindField("UnitCost").AsFloat = 54 + lDetail.Post + 'Step 6: Save Document + BizObject.Save + BizObject.Close + + ComServer.Logout 'Logout after done + MsgBox "Done" +End Function +``` + +
+
+
+#### ST_XF (stock transfer)
+
+ST_AJ Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg StockAdjustment.vbs +Call CheckLogin +Call InsertData + +Dim ComServer + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +function CheckLogin + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + 'UserName, Password, DCF full path, Database filename + END IF +End Function + +Function InsertData +Dim BizObject, lMain, lDetail, lDate + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("ST_AJ") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data + + 'Step 4 : Insert Data - Master + lDate = CDate("January 1, 2017") + BizObject.New + lMain.FindField("DocKey").value = -1 + lMain.FindField("DocNo").AsString = "--AJ Test--" + lMain.FindField("DocDate").value = lDate + lMain.FindField("PostDate").value = lDate + lMain.FindField("Description").AsString = "Stock Adjustment" + + 'Step 5: Insert Data - Detail + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("DocKey").value = -1 + lDetail.FindField("ItemCode").AsString = "ANT" + lDetail.FindField("Description").AsString = "Adjust IN Item A" + lDetail.FindField("Qty").AsFloat = 2 + lDetail.FindField("UnitCost").AsFloat = 25.15 'Only IN need UnitCost + lDetail.Post + + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("DocKey").value = -1 + lDetail.FindField("ItemCode").AsString = "E-BAT" + lDetail.FindField("Description").AsString = "Adjust OUT Item A" + lDetail.FindField("Qty").AsFloat = -4 + lDetail.Post + 'Step 6: Save Document + BizObject.Save + BizObject.Close + + ComServer.Logout 'Logout after done + MsgBox "Done" +End Function +``` + +
+
+
+#### AP_PI-Edit (purchase invoice)
+
+ST_XF Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg ST_XF.vbs +Call CheckLogin +Call InsertData + +Dim ComServer + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +function CheckLogin + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + 'UserName, Password, DCF full path, Database filename + END IF +End Function + +Function InsertData +Dim BizObject, lMain, lDetail, lDate + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("ST_XF") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data + + 'Begin Looping yr data + 'Step 4 : Insert Data - Master + lDate = CDate("January 1, 2017") + BizObject.New + lMain.FindField("DocKey").value = -1 + lMain.FindField("DocNo").AsString = "--XF Test--" + lMain.FindField("DocDate").value = lDate + lMain.FindField("PostDate").value = lDate + lMain.FindField("Code").AsString = "300-C0001" 'Customer Account - Optional + lMain.FindField("CompanyName").AsString = "Cash Sales" 'Optional + lMain.FindField("Description").AsString = "Stock Transfer" + + 'Step 5: Insert Data - Detail + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("DocKey").value = -1 + lDetail.FindField("ItemCode").AsString = "ANT" + lDetail.FindField("Description").AsString = "Transfer Item A" + lDetail.FindField("Qty").AsFloat = 10 + lDetail.FindField("UOM").AsString = "UNIT" + lDetail.FindField("FromLocation").AsString = "----" + lDetail.FindField("ToLocation").AsString = "BALAKONG" + lDetail.Post + + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("DocKey").value = -1 + lDetail.FindField("ItemCode").AsString = "HFK" + lDetail.FindField("Description").AsString = "Transfer Item B" + lDetail.FindField("Qty").AsFloat = 5 + lDetail.FindField("UOM").AsString = "UNIT" + lDetail.FindField("FromLocation").AsString = "----" + lDetail.FindField("ToLocation").AsString = "BALAKONG" + lDetail.Post + + 'Step 6: Save Document + BizObject.Save + BizObject.Close + + 'Step 7 : Logout after done + 'ComServer.Logout + + MsgBox "Done" +End Function +``` + +
+
+
+#### SL_DO to SL_IV
+
+AP_PI-Edit Script - click to expand
+ +```vb +'Available in Version 5.2018.833.759 & above +'Copy below script & paste to notepad & name it as eg AP_PI.vbs +Call CheckLogin +Call GetData +Call PostData + +Dim ComServer, lDataSet + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +function CheckLogin + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + 'UserName, Password, DCF full path, Database filename + END IF +End Function + +Function GetData +Dim lSQL + lSQL = "SELECT Dockey FROM AP_PI " + lSQL = lSQL & "WHERE DocNo='PI-00001' " + lSQL = lSQL & "AND Code='400-D0001' " + Set lDataSet = ComServer.DBManager.NewDataSet(lSQL) +End Function + +Function PostData +Dim BizObject, lMain, lDetail + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("AP_PI") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data + + 'Step 4 : Find Doc Number + If lDataSet.RecordCount > 0 Then + lDataSet.First + BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString + + + BizObject.Open + BizObject.Edit + lMain.Edit + lMain.FindField("Description").AsString = "testing" + + 'Step 5: Delete all Detail + While lDetail.RecordCount <> 0 + lDetail.First + lDetail.Delete + Wend + 'Step 6: Append Detail + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("Account").value = "610-2000" + lDetail.FindField("Description").value = "Purchase Item A" + lDetail.FindField("Tax").value = "" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("Amount").value = 410.37 + lDetail.FindField("TaxAmt").value = 0 + lDetail.Post + + 'Step 7: Save Document + BizObject.Save + BizObject.Close + + 'Step 8 : Logout after done + 'ComServer.Logout + MsgBox "Done" + Else + MsgBox "Record Not Found" + END IF + +End Function +``` + +
+
+
+#### SL_IV-Edit
+
+SL_DO to SL_IV Script - click to expand
+ +```vb +'Updated 26 Oct 2018 +'Copy below script & paste to notepad & name it as eg SL_IV.vbs +Call CheckLogin +Call InsertData1 +Call InsertData2 + +Dim ComServer + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +function CheckLogin + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + 'UserName, Password, DCF full path, Database filename + END IF +End Function + +Function InsertData1 +Dim BizObject, lMain, lDetail, lDate + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("SL_DO") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data + + 'Begin Looping yr data + 'Step 4 : Insert Data - Master + lDate = CDate("January 1, 2017") + BizObject.New + lMain.FindField("DocKey").value = -1 + lMain.FindField("DocNo").AsString = "--DO Test--" + lMain.FindField("DocDate").value = lDate + lMain.FindField("PostDate").value = lDate + lMain.FindField("Code").AsString = "300-C0001" 'Customer Account + lMain.FindField("CompanyName").AsString = "Cash Sales" + 'lMain.FindField("Address1").AsString = "" 'Optional + 'lMain.FindField("Address2").AsString = "" 'Optional + 'lMain.FindField("Address3").AsString = "" 'Optional + 'lMain.FindField("Address4").AsString = "" 'Optional + 'lMain.FindField("Phone1").AsString = "" 'Optional + lMain.FindField("Description").AsString = "Delivery Order" + + 'Step 5: Insert Data - Detail + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("DocKey").value = -1 + lDetail.FindField("Seq").value = 1 + lDetail.FindField("ItemCode").AsString = "ANT" + lDetail.FindField("Description").AsString = "Sales Item A" + lDetail.FindField("UOM").AsString = "BOX" + lDetail.FindField("Qty").AsFloat = 2 + 'lDetail.FindField("DISC").AsString = "5%+3" 'Optional (eg 5% plus 3 Discount) + lDetail.FindField("Tax").AsString = "SR" + lDetail.FindField("TaxRate").AsString = "6%" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("UnitPrice").AsFloat = 100 + lDetail.FindField("Amount").AsFloat = 200 + lDetail.FindField("TaxAmt").AsFloat = 12 + lDetail.Post + + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("DocKey").value = -1 + lDetail.FindField("Seq").value = 2 + lDetail.FindField("ItemCode").AsString = "COVER" + lDetail.FindField("Description").AsString = "Sales Item B" + lDetail.FindField("UOM").AsString = "UNIT" + lDetail.FindField("Qty").AsFloat = 3 + lDetail.FindField("Tax").AsString = "SR" + lDetail.FindField("TaxRate").AsString = "6%" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("UnitPrice").AsFloat = 10 + lDetail.FindField("Amount").AsFloat = 30 + lDetail.FindField("TaxAmt").AsFloat = 1.80 + lDetail.Post + 'Step 6: Save Document + BizObject.Save + BizObject.Close + MsgBox "DO Posting Done" +End Function + +Function InsertData2 +Dim BizObject, lMain, lDetail, lDate, lDODtl, lxFer, lSQL, v(2) + 'Step 1: Check Is transtered or not + lSQL = "SELECT DocKey FROM SL_IVDTL " + lSQL = lSQL & "WHERE FromDockey=(SELECT DocKey FROM SL_DO " + lSQL = lSQL & "WHERE DocNo='--DO Test--') " + Set lxFer = ComServer.DBManager.NewDataSet(lSQL) + + if lxFer.RecordCount = 0 then + 'Step 2: Get DO Information + lSQL = "SELECT * FROM SL_DODTL " + lSQL = lSQL & "WHERE Dockey=(SELECT DocKey FROM SL_DO " + lSQL = lSQL & "WHERE DocNo='--DO Test--') " + Set lDODtl = ComServer.DBManager.NewDataSet(lSQL) + + 'Step 3: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("SL_IV") + + 'Step 4: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data + + 'Step 5 : Insert Data - Master + lDate = CDate("January 1, 2017") + BizObject.New + lMain.FindField("DocKey").value = -1 + lMain.FindField("DocNo").AsString = "--IV Test--" + lMain.FindField("DocDate").value = lDate + lMain.FindField("PostDate").value = lDate + lMain.FindField("Code").AsString = "300-C0001" 'Customer Account + lMain.FindField("CompanyName").AsString = "Cash Sales" + 'lMain.FindField("Address1").AsString = "" 'Optional + 'lMain.FindField("Address2").AsString = "" 'Optional + 'lMain.FindField("Address3").AsString = "" 'Optional + 'lMain.FindField("Address4").AsString = "" 'Optional + 'lMain.FindField("Phone1").AsString = "" 'Optional + lMain.FindField("Description").AsString = "Sales" + + 'Step 6: Insert Data - Detail + v(0) = "COVER" + v(1) = "UNIT" + + if (lDODtl.Locate("ItemCode;UOM", v, false, false)) then + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("DocKey").value = -1 + lDetail.FindField("Seq").value = 1 + lDetail.FindField("ItemCode").AsString = lDODtl.FindField("ItemCode").AsString + lDetail.FindField("Description").AsString = lDODtl.FindField("Description").AsString + 'lDetail.FindField("Account").AsString = "500-000" 'If you wanted override the Sales Account Code + lDetail.FindField("UOM").AsString = lDODtl.FindField("UOM").AsString + lDetail.FindField("Qty").AsFloat = lDODtl.FindField("Qty").AsFloat + lDetail.FindField("DISC").AsString = lDODtl.FindField("Disc").AsString + lDetail.FindField("Tax").AsString = lDODtl.FindField("Tax").AsString + lDetail.FindField("TaxRate").AsString = lDODtl.FindField("TaxRate").AsString + lDetail.FindField("TaxInclusive").value = lDODtl.FindField("TaxInclusive").Value + lDetail.FindField("UnitPrice").AsFloat = lDODtl.FindField("UnitPrice").AsFloat + lDetail.FindField("Amount").AsFloat = lDODtl.FindField("Amount").AsFloat + lDetail.FindField("TaxAmt").AsFloat = lDODtl.FindField("TaxAmt").AsFloat + lDetail.FindField("FromDocType").AsString = "DO" + lDetail.FindField("FromDockey").AsFloat = lDODtl.FindField("DocKey").AsFloat + lDetail.FindField("FromDtlkey").AsFloat = lDODtl.FindField("DtlKey").AsFloat + lDetail.Post + End IF + v(0) = "ANT" + v(1) = "BOX" + + if (lDODtl.Locate("ItemCode;UOM", v, false, false)) then + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("DocKey").value = -1 + lDetail.FindField("Seq").value = 2 + lDetail.FindField("ItemCode").AsString = lDODtl.FindField("ItemCode").AsString + lDetail.FindField("Description").AsString = lDODtl.FindField("Description").AsString + 'lDetail.FindField("Account").AsString = "500-000" 'If you wanted override the Sales Account Code + lDetail.FindField("UOM").AsString = lDODtl.FindField("UOM").AsString + lDetail.FindField("Qty").AsFloat = lDODtl.FindField("Qty").AsFloat + lDetail.FindField("DISC").AsString = lDODtl.FindField("Disc").AsString + lDetail.FindField("Tax").AsString = lDODtl.FindField("Tax").AsString + lDetail.FindField("TaxRate").AsString = lDODtl.FindField("TaxRate").AsString + lDetail.FindField("TaxInclusive").value = lDODtl.FindField("TaxInclusive").Value + lDetail.FindField("UnitPrice").AsFloat = lDODtl.FindField("UnitPrice").AsFloat + lDetail.FindField("Amount").AsFloat = lDODtl.FindField("Amount").AsFloat + lDetail.FindField("TaxAmt").AsFloat = lDODtl.FindField("TaxAmt").AsFloat + lDetail.FindField("FromDocType").AsString = "DO" + lDetail.FindField("FromDockey").AsFloat = lDODtl.FindField("DocKey").AsFloat + lDetail.FindField("FromDtlkey").AsFloat = lDODtl.FindField("DtlKey").AsFloat + lDetail.Post + End IF + 'Step 7: Save Document + BizObject.Save + BizObject.Close + + 'Step 8 : Logout after done + 'ComServer.Logout + + MsgBox "Posting IV Done" + else MsgBox "--DO Test-- had been transfered. Posting IV aborted" + End IF +End Function +``` + +
+
+
+#### GL_JE
+
+SL_IV-Edit Script - click to expand
+ +```vb +'Available in Version 5.2018.833.759 & above +'Copy below script & paste to notepad & name it as eg SL_IV.vbs +Call CheckLogin +Call GetData +Call PostData + +Dim ComServer, lDataSet + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +function CheckLogin + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + 'UserName, Password, DCF full path, Database filename + END IF +End Function + +Function GetData +Dim lSQL + lSQL = "SELECT Dockey FROM SL_IV " + lSQL = lSQL & "WHERE DocNo='IV-00010' " + Set lDataSet = ComServer.DBManager.NewDataSet(lSQL) +End Function + +Function PostData +Dim BizObject, lMain, lDetail + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("SL_IV") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data + + 'Step 4 : Find Doc Number + If lDataSet.RecordCount > 0 Then + lDataSet.First + BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString + + + BizObject.Open + BizObject.Edit + lMain.Edit + lMain.FindField("Description").AsString = "Sales - Edited" + + 'Step 5: Delete all Detail + While lDetail.RecordCount <> 0 + lDetail.First + lDetail.Delete + Wend + 'Step 6: Append Detail + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("Account").value = "500-000" + lDetail.FindField("Description").value = "Edited Item A" + lDetail.FindField("Tax").value = "" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("Amount").value = 410.37 + lDetail.FindField("TaxAmt").value = 0 + lDetail.Post + + 'Step 7: Save Document + BizObject.Save + BizObject.Close + + 'Step 8 : Logout after done + 'ComServer.Logout + MsgBox "Done" + Else + MsgBox "Record Not Found" + END IF +End Function +``` + +
+
+
+#### GL_JE-Edit
+
+GL_JE Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg GL_JE.vbs +Call InsertGLJE + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function InsertGLJE +Dim ComServer, BizObject, lDataSet, lDataSet2, lDate + + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + END IF + + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("GL_JE") + + 'Step 3: Set Dataset + Set lMainDataSet = BizObject.DataSets.Find("MainDataSet") 'lMainDataSet contains master data + Set lDetailDataSet = BizObject.DataSets.Find("cdsDocDetail") 'lDetailDataSet contains detail data + + 'Step 4 : Insert Data - Master + lDate = CDate("January 23, 2017") + BizObject.New + lMainDataSet.FindField("DocKey").value = -1 + lMainDataSet.FindField("DocNo").value = "--JV Test--" + lMainDataSet.FindField("DocDate").value = lDate + lMainDataSet.FindField("PostDate").value = lDate + lMainDataSet.FindField("Description").value = "testing desc header" + lMainDataSet.Post + + 'Step 5: Insert Data - Detail + 'For Tax Inclusive + lDetailDataSet.Append + lDetailDataSet.FindField("DtlKey").value = -1 + lDetailDataSet.FindField("DocKey").value = -1 + lDetailDataSet.FindField("SEQ").value = 1 + lDetailDataSet.FindField("Code").value = "610-1000" + lDetailDataSet.FindField("Project").value = "----" + lDetailDataSet.FindField("Description").value = "testing desc1" + lDetailDataSet.FindField("Tax").value = "TX" + 'lDetailDataSet.FindField("LOCALTAXAMT").value = 17.32 //For JE you can't override (i.e. system auto calc) + lDetailDataSet.FindField("TaxInclusive").Value = 1 + lDetailDataSet.FindField("LocalDR").value = 306 '//Including GST if TAXINCLUSIVE = 1 + lDetailDataSet.FindField("DR").value = 306 '//If wanted DR <> LocalDR + + 'For Tax Exclusive + lDetailDataSet.Append + lDetailDataSet.FindField("DtlKey").value = -1 + lDetailDataSet.FindField("DocKey").value = -1 + lDetailDataSet.FindField("SEQ").value = 2 + lDetailDataSet.FindField("Code").value = "605-200" + lDetailDataSet.FindField("Project").value = "----" + lDetailDataSet.FindField("Description").value = "testing desc2" + lDetailDataSet.FindField("Tax").value = "TX" + lDetailDataSet.FindField("TaxInclusive").value = 0 + lDetailDataSet.FindField("LocalCR").value = 100 + lDetailDataSet.Post + + 'For No GST + lDetailDataSet.Append + lDetailDataSet.FindField("DtlKey").value = -1 + lDetailDataSet.FindField("DocKey").value = -1 + lDetailDataSet.FindField("SEQ").value = 3 + lDetailDataSet.FindField("Code").value = "610-002" + lDetailDataSet.FindField("Project").value = "----" + lDetailDataSet.FindField("Description").value = "testing desc3" + lDetailDataSet.FindField("Tax").value = "" + lDetailDataSet.FindField("TaxInclusive").value = 0 + lDetailDataSet.FindField("LocalCR").value = 200 + lDetailDataSet.Post + 'Step 6: Save Document + BizObject.Save + BizObject.Close + MsgBox "Done" +End Function +``` + +
+
+
+#### GL_JE-Delete
+
+GL_JE-Edit Script - click to expand
+ +```vb +'Available in Version 5.2018.833.759 & above +'Copy below script & paste to notepad & name it as eg GL_JE.vbs +Call CheckLogin +Call GetData +Call PostData + +Dim ComServer, lDataSet + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +function CheckLogin + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + 'UserName, Password, DCF full path, Database filename + END IF +End Function + +Function GetData +Dim lSQL + lSQL = "SELECT Dockey FROM GL_JE " + lSQL = lSQL & "WHERE DocNo='JV-00002' " + Set lDataSet = ComServer.DBManager.NewDataSet(lSQL) +End Function + +Function PostData +Dim BizObject, lMain, lDetail + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("GL_JE") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data + + 'Step 4 : Find Doc Number + If lDataSet.RecordCount > 0 Then + lDataSet.First + BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString + + + BizObject.Open + BizObject.Edit + lMain.Edit + lMain.FindField("Description").AsString = "Journal - Edited" + + 'Step 5: Delete all Detail + While lDetail.RecordCount <> 0 + lDetail.First + lDetail.Delete + Wend + 'Step 6: Append Detail + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("Code").value = "610-000" + lDetail.FindField("Description").value = "testing desc1" + lDetail.FindField("Project").value = "P12W1" + lDetail.FindField("Tax").value = "" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("LocalDR").value = 200 + lDetail.FindField("DR").value = 200 + lDetail.Post + + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("Code").value = "531-000" + lDetail.FindField("Description").value = "testing desc2" + lDetail.FindField("Project").value = "P13W1" + lDetail.FindField("Tax").value = "" + lDetail.FindField("TaxInclusive").value = 0 + lDetail.FindField("LocalCR").value = 200 + lDetail.FindField("CR").value = 200 + lDetail.Post + + 'Step 7: Save Document + BizObject.Save + BizObject.Close + + 'Step 8 : Logout after done + 'ComServer.Logout + MsgBox "Done" + Else + MsgBox "Record Not Found" + END IF +End Function +``` + +
+
+
+#### Get Invoice Next Number
+
+GL_JE-Delete Script - click to expand
+ +```vb +'Available in Version 5.2018.833.759 & above +'Copy below script & paste to notepad & name it as eg GL_JE.vbs +Call CheckLogin +Call GetData +Call DelData + +Dim ComServer, lDataSet + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +function CheckLogin + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + 'UserName, Password, DCF full path, Database filename + END IF +End Function + +Function GetData +Dim lSQL + lSQL = "SELECT Dockey FROM GL_JE " + lSQL = lSQL & "WHERE DocNo='JV-00002' " + Set lDataSet = ComServer.DBManager.NewDataSet(lSQL) +End Function + +Function DelData +Dim BizObject + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("GL_JE") + 'Step 3 : Find Doc Number + If lDataSet.RecordCount > 0 Then + lDataSet.First + BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString + BizObject.Open + BizObject.Delete + BizObject.Close + + 'Step 4 : Logout after done + 'ComServer.Logout + MsgBox "Done" + Else + MsgBox "Record Not Found" + END IF +End Function +``` + +
+
+
+#### Auto Run Doc. Number
+
+Get Invoice Next Number Script - click to expand
+ +```vb +'Available in Version 5.2018.833.759 & above +'Copy below script & paste to notepad & name it as eg GetNextNo.vbs +Call CheckLogin +Call GetData +Call ShowNextNo + +Dim ComServer, lDataSet + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +function CheckLogin + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + 'UserName, Password, DCF full path, Database filename + END IF +End Function + +Function GetData +Dim lSQL + lSQL = "SELECT A.*, B.NEXTNUMBER FROM SY_DOCNO A " + lSQL = lSQL & "INNER JOIN SY_DOCNO_DTL B ON (A.DOCKEY=B.PARENTKEY) " + lSQL = lSQL & "WHERE A.DOCTYPE='IV' " + lSQL = lSQL & "AND A.DESCRIPTION='Customer Invoice' " + lSQL = lSQL & "AND A.STATESET=1 " + Set lDataSet = ComServer.DBManager.NewDataSet(lSQL) +End Function + +Function ShowNextNo +Dim Desc, Fmt, NextNo, lResult, sb + set sb = CreateObject("System.Text.StringBuilder") + 'Step 2 : Find Doc Number + If lDataSet.RecordCount > 0 Then + lDataSet.First + Desc = lDataSet.FindField("Description").AsString + Fmt = lDataSet.FindField("Format").AsString + NextNo = lDataSet.FindField("NEXTNUMBER").Value + + 'Convert from IV-%.5d to IV-{0:d5} + sb.Append_3 Fmt + sb.Replace "d", "" + sb.Replace "%.","{0:d" + Fmt = sb.ToString & "}" + + sb.Length = 0 'clear sb list + sb.AppendFormat Fmt, NextNo + + lResult = sb.ToString + MsgBox Desc + MsgBox Fmt + MsgBox NextNo + MsgBox lResult + Else + MsgBox "Record Not Found" + END IF +End Function +``` + +
+ >"
+ lMain.FindField("DocDate").value = lDate
+ lMain.FindField("PostDate").value = lDate
+ lMain.FindField("Code").AsString = "300-C0001" 'Customer Account
+ lMain.FindField("CompanyName").AsString = "Cash Sales"
+ lMain.FindField("Address1").AsString = "" 'Optional
+ lMain.FindField("Address2").AsString = "" 'Optional
+ lMain.FindField("Address3").AsString = "" 'Optional
+ lMain.FindField("Address4").AsString = "" 'Optional
+ lMain.FindField("Phone1").AsString = "" 'Optional
+ lMain.FindField("Description").AsString = "Sales Order"
+ lMain.FindField("DocNoSetKey").value = lDataSet.FindField("DocKey").value
+
+ 'Step 5: Insert Data - Detail
+ 'For With Item Code
+ lDetail.Append
+ lDetail.FindField("DtlKey").value = -1
+ lDetail.FindField("DocKey").value = -1
+ lDetail.FindField("Seq").value = 3
+ lDetail.FindField("ItemCode").AsString = "ANT"
+ lDetail.FindField("Description").AsString = "Sales Item B"
+ lDetail.FindField("Qty").AsFloat = 2
+ lDetail.FindField("UOM").AsString = "UNIT"
+ 'lDetail.FindField("DISC").AsString = "5%+3" 'Optional (eg 5% plus 3 Discount)
+ lDetail.FindField("Tax").AsString = ""
+ lDetail.FindField("TaxRate").AsString = ""
+ lDetail.FindField("TaxInclusive").value = 0
+ lDetail.FindField("UnitPrice").AsFloat = 100
+ lDetail.FindField("Amount").AsFloat = 200
+ lDetail.FindField("TaxAmt").AsFloat = 0
+ lDetail.Post
+
+ 'Step 6: Save Document
+ BizObject.Save
+ BizObject.Close
+
+ 'Step 7 : Logout after done
+ 'ComServer.Logout
+
+ MsgBox "Done"
+End Function
+```
+
+
+
+#### GL_PV
+
+Sales Order Auto Run Doc Number Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg SL_SO.vbs +'If had prompt Set Default - Just click Yes to avoid keep prompt +Call CheckLogin +Call GetData +Call InsertData + +Dim ComServer, lDataSet + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +function CheckLogin + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + 'UserName, Password, DCF full path, Database filename + END IF +End Function + +Function GetData +Dim lSQL + lSQL = "SELECT * FROM SY_DOCNO " + lSQL = lSQL & "WHERE DESCRIPTION='Customer Sales Order 2' " + Set lDataSet = ComServer.DBManager.NewDataSet(lSQL) +End Function + + +Function InsertData +Dim BizObject, lMain, lDetail, lDate + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("SL_SO") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data + + 'Begin Looping yr data + 'Step 4 : Insert Data - Master + lDate = CDate("January 1, 2019") + BizObject.New + lMain.FindField("DocKey").value = -1 + lMain.FindField("DocNo").AsString = "<
+
+
+#### ST_Item with Opening
+
+Cash Book PV Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg AR_PM.vbs +Call PostData + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function PostData +Dim ComServer, BizObject, lIVNo, lDate + + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + END IF + + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("GL_PV") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMainDataSet contains master data + Set lDetailDataSet = BizObject.DataSets.Find("cdsDocDetail") 'lDetailDataSet contains detail data + + 'Step 4 : Posting + lDate = CDate("January 23, 2020") + BizObject.New + lMain.FindField("DOCKEY").Value = -1 + lMain.FindField("DocNo").AsString = "--CB PV Test--" + lMain.FindField("DocDate").Value = lDate + lMain.FindField("PostDate").Value = lDate + lMain.FindField("Description").AsString = "Compacc System" + lMain.FindField("PaymentMethod").AsString = "310-001" + lMain.FindField("CHEQUENUMBER").AsString = "MBB 213245" + lMain.FindField("DocAmt").AsFloat = 2019.57 + lMain.FindField("Cancelled").AsString = "F" + lMain.Post + + lDetailDataSet.Append + lDetailDataSet.FindField("DTLKEY").value = -1 + lDetailDataSet.FindField("DOCKEY").value = -1 + lDetailDataSet.FindField("Code").AsString = "200-300" + lDetailDataSet.FindField("DESCRIPTION").AsString = "Maybank - Asus A555LD-xx313H" + lDetailDataSet.FindField("TAX").AsString = "" + lDetailDataSet.FindField("TAXAMT").AsFloat = 0 + lDetailDataSet.FindField("TAXINCLUSIVE").AsFloat = 0 + lDetailDataSet.FindField("AMOUNT").AsFloat = 2019.57 + lDetailDataSet.Post + + 'Step 5: Save Document + BizObject.Save + BizObject.Close + MsgBox "Done" +End Function +``` + +
+
+
+#### GL Stock Value-Insert,Edit & Delete
+
+ST_Item with Opening Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg ST_XF.vbs +Call CheckLogin +Call InsertData + +Dim ComServer + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +function CheckLogin + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + 'UserName, Password, DCF full path, Database filename + END IF +End Function + +Function InsertData +Dim BizObject, lMain, lDtl, lOpn + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("ST_ITEM") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDtl = BizObject.DataSets.Find("cdsUOM") 'lDetail contains detail data + Set lOpn = BizObject.DataSets.Find("cdsOpeningBalance") 'lDetail contains detail data + + 'Begin Looping yr data + 'Step 4 : Insert Data - Master + BizObject.New + lMain.FindField("CODE").value = "==Test New Item Code==" + lMain.FindField("DESCRIPTION").value = "Item Description 123" + lMain.FindField("STOCKGROUP").value = "DEFAULT" + lMain.FindField("STOCKCONTROL").value = "T" + lMain.FindField("ISACTIVE").value = "T" + + 'Step 5: Insert Data - Detail + lDtl.Edit 'For 1St UOM + lDtl.FindField("UOM").AsString = "PCS" + lDtl.FindField("Rate").AsFloat = 1 + lDtl.FindField("RefCost").AsFloat = 10.2 + lDtl.FindField("RefPrice").AsFloat = 25 + lDtl.Post + + lDtl.Append 'For 2nd UOM + lDtl.FindField("UOM").AsString = "CTN" + lDtl.FindField("Rate").AsFloat = 12 + lDtl.FindField("RefCost").AsFloat = 102 + lDtl.FindField("RefPrice").AsFloat = 240 + lDtl.Post + + 'Step 6: Insert Data - Opening + lOpn.Append + lOpn.FindField("LOCATION").AsString = "----" + lOpn.FindField("Qty").AsFloat = 10 'in smallest UOM' + lOpn.FindField("COST").AsFloat = 10.2 + lOpn.Post + + 'Step 7: Save Document + BizObject.Save + BizObject.Close + + 'Step 8 : Logout after done + 'ComServer.Logout + + MsgBox "Done" +End Function +``` + +
+
+
+#### Stock Item Template to SL_IV
+
+GL Stock Value-Insert,Edit & Delete Script - click to expand
+ +```vb +'Available in Version 5.2018.833.759 & above +'Copy below script & paste to notepad & name it as eg GLStockValue.vbs +Call CheckLogin +Call GetData +'Call InsertValue +'Call UpdateValue +Call DeleteValue + +Dim ComServer, lDataSet + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +function CheckLogin + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + 'UserName, Password, DCF full path, Database filename + END IF +End Function + +Function GetData +Dim lSQL + lSQL = "SELECT Dockey FROM GL_STOCK " + lSQL = lSQL & "WHERE BalanceStock='330-000' " + Set lDataSet = ComServer.DBManager.NewDataSet(lSQL) +End Function + +Function InsertValue +Dim BizObject, lMain, lDetail + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("GL_STOCK") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data + + 'Step 4 : Find Dockey Record + If lDataSet.RecordCount > 0 Then + lDataSet.First + BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString + + BizObject.Open + BizObject.Edit + + lDetail.Append + lDetail.FindField("Project").value = "----" + lDetail.FindField("SYear").value = 2021 + lDetail.FindField("SMonth").value = 4 + lDetail.FindField("Amount").value = 423.00 + lDetail.Post + + 'Step 6: Save Document + BizObject.Save + BizObject.Close + MsgBox "Done" + END IF +End Function + +Function UpdateValue +Dim BizObject, lMain, lDetail, v(2) + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("GL_STOCK") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data + + 'Step 4 : Find Dockey Record + If lDataSet.RecordCount > 0 Then + lDataSet.First + BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString + + BizObject.Open + BizObject.Edit + + v(0) = "----" 'Project Code + v(1) = "2021" 'Year + v(2) = "3" 'Month to update + + if (lDetail.Locate("Project;SYear;SMonth", v, false, false)) then + lDetail.Edit + lDetail.FindField("Amount").value = 333.12 + lDetail.Post + End IF + 'Step 6: Save Document + BizObject.Save + BizObject.Close + MsgBox "Done" + END IF +End Function + +Function DeleteValue +Dim BizObject, lMain, lDetail, v(2) + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("GL_STOCK") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data + + 'Step 4 : Find Dockey Record + If lDataSet.RecordCount > 0 Then + lDataSet.First + BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString + + BizObject.Open + BizObject.Edit + + v(0) = "----" 'Project Code + v(1) = "2021" 'Year + v(2) = "4" 'Month to update + + if (lDetail.Locate("Project;SYear;SMonth", v, false, false)) then + lDetail.Delete + End IF + 'Step 6: Save Document + BizObject.Save + BizObject.Close + MsgBox "Done" + END IF +End Function +``` + +
+
+
+#### AR_CN
+
+Stock Item Template to SL_IV Script - click to expand
+ +```vb +'Updated 03 Sep 2021 +'Copy below script & paste to notepad & name it as eg SL_IV.vbs +Call CheckLogin +Call InsertData1 +Call InsertData2 + +Dim ComServer + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +function CheckLogin + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + 'UserName, Password, DCF full path, Database filename + END IF +End Function + +Function InsertData1 +Dim BizObject, lMain, lDetail, lDate + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("ST_ITEM_TPL") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsItemTplDtl") 'lDetail contains detail data + + 'Begin Looping yr data + 'Step 4 : Insert Data - Master + BizObject.New + lMain.FindField("Code").AsString = "--TPL Test--" + lMain.FindField("Description").AsString = "Template formt 1" + lMain.FindField("RefPrice").AsFloat = 299.15 + + 'Step 5: Insert Data - Detail + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("Code").AsString = "--TPL Test--" + lDetail.FindField("Seq").value = 1 + lDetail.FindField("ItemCode").AsString = "ANT" + lDetail.FindField("Description").AsString = "Sales Item A" + lDetail.FindField("UOM").AsString = "BOX" + lDetail.FindField("Qty").AsFloat = 2 + 'lDetail.FindField("DISC").AsString = "5%+3" 'Optional (eg 5% plus 3 Discount) + lDetail.FindField("UNITAMOUNT").AsFloat = 100 + lDetail.FindField("Amount").AsFloat = 200 + lDetail.FindField("PRINTABLE").AsString = "T" + lDetail.Post + + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("Code").AsString = "--TPL Test--" + lDetail.FindField("Seq").value = 2 + lDetail.FindField("ItemCode").AsString = "COVER" + lDetail.FindField("Description").AsString = "Sales Item B" + lDetail.FindField("UOM").AsString = "UNIT" + lDetail.FindField("Qty").AsFloat = 3 + 'lDetail.FindField("DISC").AsString = "5%+3" 'Optional (eg 5% plus 3 Discount) + lDetail.FindField("UNITAMOUNT").AsFloat = 10 + lDetail.FindField("Amount").AsFloat = 30 + lDetail.FindField("PRINTABLE").AsString = "T" + lDetail.Post + 'Step 6: Save Document + BizObject.Save + BizObject.Close + MsgBox "Template Posting Done" +End Function + +Function InsertData2 +Dim BizObject, lMain, lDetail, lDate, lDODtl, lSQL, v(2) + 'Step 1: Get Template Information + lSQL = "SELECT * FROM ST_ITEM_TPLDTL " + lSQL = lSQL & "WHERE Code='--TPL Test--' " + Set lDODtl = ComServer.DBManager.NewDataSet(lSQL) + + if lDODtl.RecordCount > 0 then + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("SL_IV") + + 'Step 3: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data + Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data + + 'Step 4 : Insert Data - Master + lDate = CDate("January 1, 2021") + BizObject.New + lMain.FindField("DocKey").value = -1 + lMain.FindField("DocNo").AsString = "--IV Test--" + lMain.FindField("DocDate").value = lDate + lMain.FindField("PostDate").value = lDate + lMain.FindField("Code").AsString = "300-C0001" 'Customer Account + lMain.FindField("CompanyName").AsString = "Cash Sales" + 'lMain.FindField("Address1").AsString = "" 'Optional + 'lMain.FindField("Address2").AsString = "" 'Optional + 'lMain.FindField("Address3").AsString = "" 'Optional + 'lMain.FindField("Address4").AsString = "" 'Optional + 'lMain.FindField("Phone1").AsString = "" 'Optional + lMain.FindField("Description").AsString = "Sales" + + 'Step 6: Insert Data - Detail + lDODtl.First + While not lDODtl.Eof + lDetail.Append + lDetail.FindField("DtlKey").value = -1 + lDetail.FindField("DocKey").value = -1 + lDetail.FindField("Seq").value = 1 + lDetail.FindField("ItemCode").AsString = lDODtl.FindField("ItemCode").AsString + lDetail.FindField("Description").AsString = lDODtl.FindField("Description").AsString + lDetail.FindField("UOM").AsString = lDODtl.FindField("UOM").AsString + lDetail.FindField("Qty").AsFloat = lDODtl.FindField("Qty").AsFloat + lDetail.FindField("DISC").AsString = lDODtl.FindField("Disc").AsString + lDetail.FindField("UnitPrice").AsFloat = lDODtl.FindField("UnitAmount").AsFloat + lDetail.FindField("Amount").AsFloat = lDODtl.FindField("Amount").AsFloat + lDetail.FindField("PRINTABLE").AsString = lDODtl.FindField("PRINTABLE").AsString + lDetail.Post + lDODtl.Next + Wend + 'Step 7: Save Document + BizObject.Save + BizObject.Close + + 'Step 8 : Logout after done + 'ComServer.Logout + + MsgBox "Posting IV Done" + else MsgBox "--No Template found. Posting IV aborted" + End IF +End Function +``` + +
+
+
+### JScript/JavaScript
+ - This Script only can run using Internet Explorer (till IE 11)
+
+#### AR_IV
+
+AR_CN Script - click to expand
+ +```vb +'Updated 24 Feb 2023 +'Copy below script & paste to notepad & name it as eg AR_CN.vbs +Call InsertData + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function InsertData +Dim ComServer, BizObject, lDate, lIVNO, v(1) + + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + If not ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB" + END IF + + 'Step 2: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("AR_CN") + + 'Step 3: Set Dataset + Set lMainDataSet = BizObject.DataSets.Find("MainDataSet") 'lMainDataSet contains master data + Set lDetailDataSet = BizObject.DataSets.Find("cdsDocDetail") 'lDetailDataSet contains detail data + Set lKO = BizObject.DataSets.Find("cdsKnockOff") 'Contains IV/DN to knock off data + + 'Step 4 : Insert Data - Master + lDate = CDate("January 1, 2023") + BizObject.New + lMainDataSet.FindField("DocKey").value = -1 + lMainDataSet.FindField("DocNo").value = "--CN Test--" + lMainDataSet.FindField("DocDate").value = lDate + lMainDataSet.FindField("PostDate").value = lDate + lMainDataSet.FindField("Code").value = "300-A0001" + lMainDataSet.FindField("Description").value = "Credit Note" + + 'Step 5: Insert Data - Detail + 'For Tax Inclusive = True with override Tax Amount + lDetailDataSet.Append + lDetailDataSet.FindField("DtlKey").value = -1 + lDetailDataSet.FindField("DocKey").value = -1 + lDetailDataSet.FindField("Account").value = "510-2000" + lDetailDataSet.FindField("Description").value = "Sales Item A" + lDetailDataSet.FindField("Tax").value = "SV" + lDetailDataSet.FindField("TaxInclusive").value = 0 + lDetailDataSet.FindField("Amount").value = 410.37 + lDetailDataSet.FindField("TaxAmt").value = 24.63 + + lDetailDataSet.DisableControls + lDetailDataSet.FindField("TaxInclusive").value = 1 + lDetailDataSet.EnableControls + + lDetailDataSet.FindField("Changed").value = "F" + lDetailDataSet.Post + + 'For Tax Inclusive = False with override Tax Amount + lDetailDataSet.Append + lDetailDataSet.FindField("DtlKey").value = -1 + lDetailDataSet.FindField("DocKey").value = -1 + lDetailDataSet.FindField("Account").value = "510-2000" + lDetailDataSet.FindField("Description").value = "Sales Item B" + lDetailDataSet.FindField("Tax").value = "SV" + lDetailDataSet.FindField("TaxInclusive").value = 0 + lDetailDataSet.FindField("Amount").value = 94.43 + lDetailDataSet.FindField("TaxAmt").value = 5.66 + lDetailDataSet.FindField("Changed").value = "F" + lDetailDataSet.Post + + 'Step 7: Knock Off IV + lIVNO = "--IV Test--" + v(0) = "IV" + v(1) = lIVNO + + if (lKO.Locate("DocType;DocNo", v, false, false)) then + lKO.Edit + lKO.FindField("KOAmt").value = 65.57 + lKO.FindField("KnockOff").AsString = "T" + lKO.Post + End IF + + 'Step 7: Save Document + BizObject.Save + BizObject.Close + MsgBox "Done" +End Function +``` + +
+ Add Customer Invoice
+
+
+
+
+
+
+```
+
+
+
+#### SL_CS
+
+AR_IV Script - click to expand
+ +```javascript + + +
+ Add Cash Sales
+
+
+
+
+
+
+```
+
+
+
+#### AR_PM
+
+SL_CS Script - click to expand
+ +```javascript + + +
+ Customer Payment
+
+
+
+
+
+
+
+
+```
+
+
+
+#### Customer.IV.RO
+
+AR_PM Script - click to expand
+ +```javascript + + +
+ Customer.IV.RO
+
+
+
+
+
+
+
+```
+
+
+
+#### Customer.RO
+
+Customer.IV.RO Script - click to expand
+ +```javascript + + +
+ Add Customer Invoice
+
+
+
+
+
+
+
+
+
+
+```
+
+
+
+#### Get Next IV Number
+
+Customer.RO Script - click to expand
+ +```javascript + + +| Main Table | +Branch Branch | +
|---|---|
| + + | ++ + | +
| + + | +
+ Add Cash Sales
+
+
+
+
+
+
+```
+
+
+
+#### Customer & Supplier Contra
+
+Get Next IV Number Script - click to expand
+ +```javascript + + +
+ Add Customer Invoice
+
+
+
+
+
+
+
+```
+
+
+
+#### Add Stock Item
+
+Customer & Supplier Contra Script - click to expand
+ +```javascript + + +
+ Add Stock Item
+
+
+
+
+
+
+```
+
+
+
+#### Get Company Profile
+
+Add Stock Item Script - click to expand
+ +```javascript + + +
+ Add Cash Sales
+
+
+
+
+
+
+```
+
+
+
+### Delphi
+ - The below example is assuming after you had check the login status.
+
+#### GL_JE
+
+Get Company Profile Script - click to expand
+ +```javascript + + +
+
+
+#### GL_PV
+
+GL_JE Script - click to expand
+ +```delphi +procedure TfmMain.dxbb_GL_JEClick(Sender: TObject); +var BizApp, lMain, lDtl, lBizObj, lDocKey : Variant; + i : integer; +begin + BizApp := CreateOleObject('SQLAcc.BizApp'); + try + lBizObj := BizApp.BizObjects.Find('GL_JE'); + lMain := lBizObj.DataSets.Find('MainDataSet'); + lDtl := lBizObj.DataSets.Find('cdsDocDetail'); + lBizObj.New; + lMain.FindField('DOCKEY').Value := -1; + lMain.FindField('DocNo').Value := '--JE Test--'; + lMain.FindField('DocDate').Value := '28 Aug 2017'; + lMain.FindField('PostDate').Value := '28 Aug 2017'; + lMain.FindField('TAXDATE').Value := '28 Aug 2017'; + lMain.FindField('Description').Value := 'Postage'; + lMain.FindField('Cancelled').Value := 'F'; + lMain.FindField('DOCNOSETKEY').Value := 0; + lMain.Post; + + //For Tax Inclusive + lDtl.Append; + lDtl.FindField('DTLKEY').Value := -1; + lDtl.FindField('DOCKEY').Value := -1; + lDtl.FindField('SEQ').Value := 1; + lDtl.FindField('CODE').Value := '610-1000'; + lDtl.FindField('DESCRIPTION').Value := 'Item Desc 1'; + lDtl.FindField('TAX').Value := 'TX'; +// lDtl.FindField('LOCALTAXAMT').AsFloat := 17.32;//For JE you can't override (i.e. system auto calc) + lDtl.FindField('TAXINCLUSIVE').Value := 1; + lDtl.FindField('LocalDR').AsFloat := 306;//Including GST if TAXINCLUSIVE = 1 + lDtl.FindField('DR').AsFloat := 306;//if wanted DR <> LocalDR + lDtl.FindField('CHANGED').Value := 'F'; + lDtl.Post; + + //For Tax Exclusive + lDtl.Append; + lDtl.FindField('DTLKEY').Value := -1; + lDtl.FindField('DOCKEY').Value := -1; + lDtl.FindField('SEQ').Value := 2; + lDtl.FindField('CODE').Value := '605-200'; + lDtl.FindField('DESCRIPTION').Value := 'Item Desc 2'; + lDtl.FindField('TAX').Value := 'TX'; + lDtl.FindField('TAXINCLUSIVE').Value := 0; + lDtl.FindField('LocalCR').AsFloat := 100; + lDtl.FindField('CHANGED').Value := 'F'; + lDtl.Post; + + //For No GST + lDtl.Append; + lDtl.FindField('DTLKEY').Value := -1; + lDtl.FindField('DOCKEY').Value := -1; + lDtl.FindField('SEQ').Value := 3; + lDtl.FindField('CODE').Value := '610-002'; + lDtl.FindField('DESCRIPTION').Value := 'Item Desc 3'; + lDtl.FindField('TAX').Value := ''; + lDtl.FindField('TAXINCLUSIVE').Value := 0; + lDtl.FindField('LocalCR').AsFloat := 200; + lDtl.FindField('CHANGED').Value := 'F'; + lDtl.Post; + + lBizObj.Save; + MessageDlg('GL_JE-DocNo : ''--JE Test--'' Posted...', mtInformation, [mbOK],0); + finally + lBizObj.Close; + end; +end; +``` + +
+
+
+#### AR_Customer
+
+GL_PV Script - click to expand
+ +```delphi +procedure TfmMain.dxbb_GLPVClick(Sender: TObject); +var lMain, lDtl, lBizObj, BizApp : Variant; + lTime : TDateTime; +begin + lTime := Now; + BizApp := CreateOleObject('SQLAcc.BizApp'); + try + lBizObj := BizApp.BizObjects.Find('GL_PV'); + lMain := lBizObj.DataSets.Find('MainDataSet'); + lDtl := lBizObj.DataSets.Find('cdsDocDetail'); + lBizObj.New; + lMain.FindField('DOCKEY').Value := -1; + lMain.FindField('DocNo').AsString := '--CB PV Test1--'; + lMain.FindField('DocDate').Value := '18 Aug 2015'; + lMain.FindField('PostDate').Value := '18 Aug 2015'; + lMain.FindField('TAXDATE').Value := '18 Aug 2015'; + lMain.FindField('Description').AsString := 'Compacc System'; + lMain.FindField('PAYMENTMETHOD').AsString := '310-001'; + lMain.FindField('CHEQUENUMBER').AsString := 'MBB 213245'; + lMain.FindField('DocAmt').AsFloat := 2019; + lMain.FindField('Cancelled').AsString := 'F'; + lMain.FindField('CHANGED').AsString := 'F'; + lMain.Post; + + lDtl.Append; + lDtl.FindField('DTLKEY').Value := -1; + lDtl.FindField('DOCKEY').Value := -1; + lDtl.FindField('Code').AsString := '200-300'; + lDtl.FindField('DESCRIPTION').AsString := 'Maybank - Asus A555LD-xx313H'; + lDtl.FindField('TAX').AsString := 'TX'; + lDtl.FindField('TAXAMT').AsFloat := 114.28; + lDtl.FindField('TAXINCLUSIVE').Value := 1; + lDtl.FindField('AMOUNT').AsFloat := 2019; + lDtl.FindField('CHANGED').AsString := 'F'; + lDtl.Post; + lBizObj.Save; + lTime := Now - lTime; + MessageDlg(Format('[Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]), + mtInformation, [mbOk], 0); + finally + lBizObj.Close; + end; +end; +``` + +
+
+
+#### AR_PM
+
+AR_Customer Script - click to expand
+ +```delphi +procedure TfmMain.dxbb_CustomerClick(Sender: TObject); +var lMain, lDtl, lBizObj, lBizApp, lDockey : Variant; + lTime : TDateTime; +begin + lTime := Now; + lBizApp := CreateOleObject('SQLAcc.BizApp'); + + lBizObj := lBizApp.BizObjects.Find('AR_Customer'); + lMain := lBizObj.DataSets.Find('MainDataSet'); + lDtl := lBizObj.DataSets.Find('cdsBranch'); + + lDocKey := lBizObj.FindKeyByRef('CODE', 'FAIRY'); + try + if VarIsNull(lDocKey) then begin + lBizObj.New; + lMain.FindField('Code').value := 'FAIRY'; + lMain.FindField('CompanyName').value := 'FAIRY TAIL'; + + lDtl.Edit; //For 1st Branch + lDtl.FindField('BranchName').AsString := 'BILLING'; + lDtl.FindField('Address1').AsString := 'Address1'; + lDtl.FindField('Address2').AsString := 'Address2'; + lDtl.FindField('Address3').AsString := 'Address3'; + lDtl.FindField('Address4').AsString := 'Address4'; + lDtl.FindField('Attention').AsString := 'Attention'; + lDtl.FindField('Phone1').AsString := 'Phone1'; + lDtl.FindField('Fax1').AsString := 'Fax1'; + lDtl.FindField('Email').AsString := 'EmailAddress'; + lDtl.Post; + + lDtl.Append; //For 2nd Branch + lDtl.FindField('BranchName').AsString := 'Branch1'; + lDtl.FindField('Address1').AsString := 'DAddress1'; + lDtl.FindField('Address2').AsString := 'DAddress2'; + lDtl.FindField('Address3').AsString := 'DAddress3'; + lDtl.FindField('Address4').AsString := 'DAddress4'; + lDtl.FindField('Attention').AsString := 'DAttention'; + lDtl.FindField('Phone1').AsString := 'DPhone1'; + lDtl.FindField('Fax1').AsString := 'DFax1'; + lDtl.FindField('Email').AsString := 'DEmailAddress'; + lDtl.Post; + end else begin + lBizObj.Params.Find('Code').AsString := 'FAIRY'; + lBizObj.Open; + lBizObj.Edit; + lMain.FindField('CompanyName').AsString := 'FAIRY TAIL WIZARD'; + + while lDtl.RecordCount > 0 do begin + lDtl.First; + lDtl.Delete; + end; + + lDtl.Append; //For 1st Branch + lDtl.FindField('BranchType').AsString := 'B'; + lDtl.FindField('BranchName').AsString := 'BILLING'; + lDtl.FindField('Address1').AsString := 'New Address1'; + lDtl.FindField('Address2').AsString := 'New Address2'; + lDtl.FindField('Address3').AsString := 'New Address3'; + lDtl.FindField('Address4').AsString := 'New Address4'; + lDtl.FindField('Attention').AsString := 'New Attention'; + lDtl.FindField('Phone1').AsString := 'New Phone1'; + lDtl.FindField('Fax1').AsString := 'New Fax1'; + lDtl.FindField('Email').AsString := 'New EmailAddress'; + lDtl.Post; + + lDtl.Append; //For 2nd Branch + lDtl.FindField('BranchType').AsString := 'D'; + lDtl.FindField('BranchName').AsString := 'New Branch1'; + lDtl.FindField('Address1').AsString := 'New DAddress1'; + lDtl.FindField('Address2').AsString := 'New DAddress2'; + lDtl.FindField('Address3').AsString := 'New DAddress3'; + lDtl.FindField('Address4').AsString := 'New DAddress4'; + lDtl.FindField('Attention').AsString := 'New DAttention'; + lDtl.FindField('Phone1').AsString := 'New DPhone1'; + lDtl.FindField('Fax1').AsString := 'New DFax1'; + lDtl.FindField('Email').AsString := 'New DEmailAddress'; + lDtl.Post; + + end; + lBizObj.Save; + + lTime := Now - lTime; + MessageDlg(Format('[Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]), + mtInformation, [mbOk], 0); + finally + lBizObj.Close; + lBizApp := null; + end; +end; +``` + +
+
+
+#### AR_PM-Edit
+
+AR_PM Script - click to expand
+ +```delphi +procedure TfmMain.dxbb_ARPMClick(Sender: TObject); +var lMain, lKO, lBizApp, lBizObj, V : Variant; +begin + lBizApp := CreateOleObject('SQLAcc.BizApp'); + try + lBizObj := lBizApp.BizObjects.Find('AR_PM'); + lMain := lBizObj.DataSets.Find('MainDataSet'); + lKO := lBizObj.DataSets.Find('cdsKnockOff'); + + lBizObj.New; + lMain.FindField('DOCKEY').Value := -1; + lMain.FindField('DocNo').AsString := '--PM Test--'; //Payment Document Number + lMain.FindField('CODE').AsString := '300-A0001'; + lMain.FindField('DocDate').Value := '28 Aug 2016'; + lMain.FindField('PostDate').Value := '28 Aug 2016'; + lMain.FindField('Description').AsString := 'Payment for A/c'; + lMain.FindField('PaymentMethod').AsString := '320-000'; + lMain.FindField('DocAmt').AsFloat := 1060; + lMain.FindField('Cancelled').AsString := 'F'; + + V := lBizApp.CreateOleVariantArray(2); + V.SetItem(0, 'IV'); //Document Type is either is IV or DN for Sales & PI or SD for Purchase + V.SetItem(1, '--IV Test--'); //Invoice Document Number + + if lKO.Locate('DocType;DocNo', V.AsOleVariant, False, False) then + begin + lKO.Edit; + lKO.FindField('KOAmt').ASFloat := 500; + lKO.FindField('KnockOff').AsString := 'T'; + lKO.Post; + end; + + lBizObj.Save; + MessageDlg('AR_PM-DocNo : ''--PM Test--'' Posted...', mtInformation, [mbOK],0); + finally + lBizObj.Close; + end; +end; +``` + +
+
+
+#### ST_Item
+
+AR_PM-Edit Script - click to expand
+ +```delphi +procedure TfmMain.dxbb_ARPMClick(Sender: TObject); +var lMain, lKO, lBizApp, lBizObj, V : Variant; +begin + lBizApp := CreateOleObject('SQLAcc.BizApp'); + try + lBizObj := lBizApp.BizObjects.Find('AR_PM'); + lMain := lBizObj.DataSets.Find('MainDataSet'); + lKO := lBizObj.DataSets.Find('cdsKnockOff'); + + lDocKey := lBizObj.FindKeyByRef('DocNo', '--PM Test--'); + lBizObj.Params.Find('DocKey').Value := VarToStr(lDocKey); + + If not VarIsNull(lDocKey) Then begin + lBizObj.Open; + lBizObj.Edit; + lMain.FindField('DOCKEY').Value := -1; + lMain.FindField('DocDate').Value := '28 Aug 2016'; + lMain.FindField('PostDate').Value := '28 Aug 2016'; + lMain.FindField('Description').AsString := 'Payment for A/c'; + lMain.FindField('PaymentMethod').AsString := '310-000'; + lMain.FindField('DocAmt').AsFloat := 800.28; + lMain.FindField('UnappliedAmt').AsFloat := 100.28; + lMain.FindField('Cancelled').AsString := 'F'; + lMain.FindField('CHANGED').AsString := 'F'; + + V := lBizApp.CreateOleVariantArray(2); + V.SetItem(0, 'IV'); //Document Type is either is IV or DN for Sales & PI or SD for Purchase + V.SetItem(1, '--IV Test--'); //Document Number + + if lKO.Locate('DocType;DocNo', V.AsOleVariant, False, False) then + begin + lKO.Edit; + lKO.FindField('KOAmt').AsFloat := 700.28; // IV Knock Off/Offset Amount + lKO.FindField('KnockOff').AsString := 'T'; + lKO.Post; + end; + + lBizObj.Save; + MessageDlg('AR_PM-DocNo : ''--PM Test--'' Updated...', mtInformation, [mbOK],0); + end; + finally + lBizObj.Close; + end; +end; +``` + +
+
+
+#### ST_Item-Edit
+
+ST_Item Script - click to expand
+ +```delphi +procedure TfmMain.dxbb_ST_ItemClick(Sender: TObject); +var lMain, lDtl, lBar, lBizObj, lDockey: Variant; + lTime : TDateTime; +begin + lTime := Now; + lBizApp := CreateOleObject('SQLAcc.BizApp'); + lBizObj := lBizApp.BizObjects.Find('ST_ITEM'); + lMain := lBizObj.DataSets.Find('MainDataSet'); + lDtl := lBizObj.DataSets.Find('cdsUOM'); + lBar := lBizObj.DataSets.Find('cdsBarcode'); + + lDocKey := lBizObj.FindKeyByRef('Code', 'FAIRY'); + try + if VarIsNull(lDocKey) then begin + lBizObj.New; + lMain.FindField('CODE').value := 'FAIRY'; + lMain.FindField('DESCRIPTION').value := 'FAIRY TAIL'; + lMain.FindField('STOCKGROUP').value := 'DEFAULT'; + lMain.FindField('STOCKCONTROL').value := 'T'; + lMain.FindField('ISACTIVE').value := 'T'; + + lDtl.Edit; //For 1St UOM + lDtl.FindField('UOM').AsString := 'PCS'; + lDtl.FindField('Rate').AsFloat := 1; + lDtl.FindField('RefCost').AsFloat := 10.2; + lDtl.FindField('RefPrice').AsFloat := 25; + lDtl.Post; + + lDtl.Append; //For 2nd UOM + lDtl.FindField('UOM').AsString := 'CTN'; + lDtl.FindField('Rate').AsFloat := 12; + lDtl.FindField('RefCost').AsFloat := 102; + lDtl.FindField('RefPrice').AsFloat := 240; + lDtl.Post; + + lBar.Append; //For 1St UOM Barcode + lBar.FindField('Barcode').AsString := '123456'; + lBar.FindField('UOM').AsString := 'PCS'; + lBar.Post; + + lBar.Append; //For 2nd UOM Barcode + lBar.FindField('Barcode').AsString := '7890123'; + lBar.FindField('UOM').AsString := 'CTN'; + lBar.Post; + end else begin + lBizObj.Params.Find('Dockey').Value := lDocKey; + lBizObj.Open; + lBizObj.Edit; + lMain.FindField('DESCRIPTION').value := 'FAIRY TAIL WIZARD'; + + while lDtl.RecordCount > 0 do begin + lDtl.First; + lDtl.Delete; + end; + //Insert back with new Price + lDtl.Append; //For 1St UOM + lDtl.FindField('UOM').AsString := 'PCS'; //Make sure this always same as b4 delete data + lDtl.FindField('Rate').AsFloat := 1; //Make sure this always same as b4 delete data + lDtl.FindField('RefCost').AsFloat := 22.3; + lDtl.FindField('RefPrice').AsFloat := 52; + lDtl.FindField('ISBASE').AsFloat := 1; + lDtl.Post;; + + lDtl.Append; //For 2nd UOM + lDtl.FindField('UOM').AsString := 'CTN'; //Make sure this always same as b4 delete data + lDtl.FindField('Rate').AsFloat := 12; //Make sure this always same as b4 delete data + lDtl.FindField('RefCost').AsFloat := 102.5; + lDtl.FindField('RefPrice').AsFloat := 260.45; + lDtl.FindField('ISBASE').AsFloat := 0; + lDtl.Post; + + while lBar.RecordCount > 0 do begin + lBar.First; + lBar.Delete; + end; + + lBar.Append; //For 1St UOM Barcode + lBar.FindField('Barcode').AsString := '888888'; + lBar.FindField('UOM').AsString := 'PCS'; + lBar.Post; + + lBar.Append; //For 2nd UOM Barcode + lBar.FindField('Barcode').AsString := '999999'; + lBar.FindField('UOM').AsString := 'CTN'; + lBar.Post; + end; + lBizObj.Save; + + lTime := Now - lTime; + MessageDlg(Format('[Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]), + mtInformation, [mbOk], 0); + finally + lBizObj.Close; + lMain := null; + lDtl := null; + lBar := null; + lBizObj := null; + lBizApp := null; + end; +end; +``` + +
+
+
+#### SL_IV
+
+ST_Item-Edit Script - click to expand
+ +```delphi +procedure TfmMain.dxbb_ST_ItemClick(Sender: TObject); +var lMain, lDtl, lBizObj, lBizApp, lDocKey, V : Variant; +begin + lBizApp := CreateOleObject('SQLAcc.BizApp'); + lBizObj := lBizApp.BizObjects.Find('ST_ITEM'); + lMain := lBizObj.DataSets.Find('MainDataSet'); + lDtl := lBizObj.DataSets.Find('cdsUOM'); + + lDocKey := lBizObj.FindKeyByRef('Code', '--Stock Item Test--'); + lBizObj.Params.Find('DocKey').Value := VarToStr(lDocKey); + try + + If not VarIsNull(lDocKey) Then begin + lBizObj.Open; + lBizObj.Edit; + lMain.FindField('Description').value := 'Testing - Description'; + + V := lBizApp.CreateOleVariantArray(2); + V.SetItem(0, 'CTN'); //UOM + V.SetItem(1, '12'); //Rate + + if lDtl.Locate('UOM;Rate', V.AsOleVariant, False, False) then + begin + lDtl.Edit; + lDtl.FindField('RefCost').AsFloat := 10.20; + lDtl.FindField('RefPrice').AsFloat := 25.00; + lDtl.Post; + end; + lBizObj.Save; + + MessageDlg('ST_Item-ItemCode : ''--Stock Item Test--'' Updated...', mtInformation, [mbOK],0); + end; + finally + lBizObj.Close; + end; +end; +``` + +
+
+
+#### Customer.IV.RO
+
+SL_IV Script - click to expand
+ +```delphi +procedure TfmMain.dxbb_SL_IVClick(Sender: TObject); +var lMain, lDtl, lSN, lBizObj, lBizApp, lDockey, V: Variant; + lTime : TDateTime; +begin + lTime := Now; + lBizApp := CreateOleObject('SQLAcc.BizApp'); + lBizObj := lBizApp.BizObjects.Find('SL_IV'); + lMain := lBizObj.DataSets.Find('MainDataSet'); + lDtl := lBizObj.DataSets.Find('cdsDocDetail'); + lSN := lBizObj.DataSets.Find('cdsSerialNumber'); + + V := lBizApp.CreateOleVariantArray(1); + V.SetItem(0, '--IV Test--'); //DocNo + V.SetItem(1, '300-A0001'); //CompanyCode + lDocKey := lBizObj.FindKeyByRef('DocNo;Code', V.AsOleVariant); + + try + if VarIsNull(lDocKey) then begin + lBizObj.New; + lMain.FindField('DocNo').AsString := '--IV Test--'; + lMain.FindField('CODE').AsString := '300-A0001'; + lMain.FindField('DocDate').Value := '28 Aug 2024'; + lMain.FindField('PostDate').Value := '28 Aug 2024'; + lMain.FindField('TAXDATE').Value := '28 Aug 2024'; + lMain.FindField('Description').AsString := 'Sales'; //Information to shown in Statement + lMain.FindField('Cancelled').AsString := 'F'; + lMain.Post; + + lDtl.Append; // For Tax Inclusive = True with override Tax Amount + lDtl.FindField('SEQ').Value := 1; + lDtl.FindField('ItemCode').AsString := 'ANT'; + //lDtl.FindField('ACCOUNT').AsString := '500-000'; //GL Sales Account if wanted override + lDtl.FindField('DESCRIPTION').AsString := 'ANTENA'; + lDtl.FindField('QTY').AsFloat := 1; + lDtl.FindField('UOM').AsString := 'UNIT'; + lDtl.FindField('Disc').AsString := ''; //'5%+3; //Optional(eg 5% plus 3 Discount) + lDtl.FindField('TAX').AsString := 'SV6'; + lDtl.FindField('TAXINCLUSIVE').Value := 1; + lDtl.FindField('UNITPRICE').AsFloat := 435; //Including GST UnitPrice + lDtl.FindField('AMOUNT').AsFloat := 410.37; //Must Excluding GST (Qty * UnitPrice) // Less 0.01 + lDtl.FindField('TAXAMT').AsFloat := 24.63; //Extra 0.01 + + lDtl.DisableControls; //For Tax Inclusive Only where TaxAmt is not as Calc + try + lDtl.FindField('TAXINCLUSIVE').Value := 1; + finally + lDtl.EnableControls; + end; + lDtl.Post; + + lDtl.Append; // For Tax Inclusive = False with override Tax Amount + lDtl.FindField('SEQ').Value := 2; + lDtl.FindField('ItemCode').AsString := 'ANT'; + //lDtl.FindField('ACCOUNT').AsString := '500-000'; //GL Sales Account if wanted override + lDtl.FindField('DESCRIPTION').AsString := 'ANTENA B'; + lDtl.FindField('QTY').AsFloat := 1; + lDtl.FindField('TAX').AsString := 'SV6'; + lDtl.FindField('UOM').AsString := 'UNIT'; + lDtl.FindField('TAXINCLUSIVE').Value := 0; + lDtl.FindField('UNITPRICE').AsFloat := 94.43; + lDtl.FindField('AMOUNT').AsFloat := 94.43; + lDtl.FindField('TAXAMT').AsFloat := 5.66; //Less 0.01 + lDtl.Post; + + lDtl.Append; // For Serial Number + lDtl.FindField('SEQ').Value := 3; + lDtl.FindField('ItemCode').AsString := 'SN1'; + lDtl.FindField('ACCOUNT').AsString := '500-000'; + lDtl.FindField('DESCRIPTION').AsString := 'Sales Serial Number Item'; + + lSN.Append; + lSN.FindField('SERIALNUMBER').AsString := 'SN-00001'; + lSN.Post; + + lSN.Append; + lSN.FindField('SERIALNUMBER').AsString := 'SN-00002'; + lSN.Post; + + lDtl.FindField('QTY').AsFloat := 2; + lDtl.FindField('UOM').AsString := 'UNIT'; + lDtl.FindField('TAX').AsString := 'SV6'; + lDtl.FindField('TAXINCLUSIVE').Value := 0; + lDtl.FindField('UNITPRICE').AsFloat := 94.43; + lDtl.FindField('TAXAMT').AsFloat := 11.33; + lDtl.Post; + end else begin + lBizObj.Params.Find('Dockey').Value := lDockey; + lBizObj.Open; + lBizObj.Edit; + lMain.FindField('Description').AsString := 'Edited Sales'; + + while lDtl.RecordCount > 0 do begin + lDtl.First; + lDtl.Delete; + end; + + lDtl.Append; + lDtl.FindField('SEQ').Value := 1; + lDtl.FindField('ItemCode').AsString := 'ANT'; + //lDtl.FindField('ACCOUNT').AsString := '500-000'; //GL Sales Account if wanted override + lDtl.FindField('DESCRIPTION').AsString := 'ANTENA'; + lDtl.FindField('QTY').AsFloat := 1; + lDtl.FindField('UOM').AsString := 'CTN'; + lDtl.FindField('TAX').AsString := 'SV6'; + lDtl.FindField('TAXINCLUSIVE').Value := 0; + lDtl.FindField('UNITPRICE').AsFloat := 200; + lDtl.FindField('AMOUNT').AsFloat := 200; + lDtl.FindField('TAXAMT').AsFloat := 12; //Less 0.01 + lDtl.Post; + end; + lBizObj.Save; + + lTime := Now - lTime; + MessageDlg(Format('[Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]), + mtInformation, [mbOk], 0); + finally + lBizObj.Close; + lMain := null; + lDtl := null; + lSN := null; + lBizObj := null; + lBizApp := null; + end; +end; +``` + +
+
+
+#### Stock.Item.RO
+
+Customer.IV.RO Script - click to expand
+ +```delphi +procedure TfmMain.dxbb_RptObjClick(Sender: TObject); +var lBizApp, lRptVar : Variant; + lTime : TDateTime; + cdsMain, cdsDtl : TClientDataset; +begin + lTime := Now; + cdsMain := TClientDataset.Create(nil); + cdsDtl := TClientDataset.Create(nil); + lBizApp := CreateOleObject('SQLAcc.BizApp'); + try + lRptVar := null; + lRptVar := lBizApp.RptObjects.Find('Customer.IV.RO'); + lRptVar.Params.Find('SelectDate').AsBoolean := True; + lRptVar.Params.Find('DateFrom').AsDate := '01/01/2015'; + lRptVar.Params.Find('DateTo').AsDate := '31/12/2015'; + lRptVar.Params.Find('AllAgent').AsBoolean := False; + lRptVar.Params.Find('AgentData').AsBlob := '----'#13#10'HALIM'; //Filter by Agent code ---- & HALIM + lRptVar.Params.Find('AllArea').AsBoolean := True; +// lRptVar.Params.Find('AreaData').AsBlob := ; //Not use if AllArea is True + lRptVar.Params.Find('AllCompany').AsBoolean := True; +// lRptVar.Params.Find('CompanyData').AsBlob := ; //Not use if AllCompany is True + lRptVar.Params.Find('AllCurrency').AsBoolean := True; +// lRptVar.Params.Find('CurrencyData').AsBlob := ; //Not use if AllCurrenty is True + lRptVar.Params.Find('AllDocProject').AsBoolean := True; +// lRptVar.Params.Find('DocProjectData').AsBlob := ; //Not use if AllDocProject is True + lRptVar.Params.Find('AllCompanyCategory').AsBoolean := True; +// lRptVar.Params.Find('CompanyCategoryData').AsBlob := ; //Not use if AllCompanyCategory is True + lRptVar.Params.Find('AllDocument').AsBoolean := True; +// lRptVar.Params.Find('DocumentData').AsBlob := ; //Not use if AllDocument is True + lRptVar.Params.Find('IncludeCancelled').AsBoolean := True; + lRptVar.Params.Find('PrintDocumentStyle').AsBoolean := False; + lRptVar.Params.Find('AllItemProject').AsBoolean := True; + lRptVar.Params.Find('AllPaymentMethod').AsBoolean := True; + lRptVar.CalculateReport; + + cdsMain.XMLData := lRptVar.DataSets.Find('cdsMain').XMLData; //Master Data + cdsDtl.XMLData := lRptVar.DataSets.Find('cdsDocDetail').XMLData; //Detail Data - To link Master Data use Dockey field + + cdsMain.SaveToFile('C:\Temp\_ListM.xml'); //Export To XML file + cdsDtl.SaveToFile('C:\Temp\_ListD.xml'); //Export To XML file + + lTime := Now - lTime; + MessageDlg(Format('[Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]), + mtInformation, [mbOk], 0); + finally + lRptVar := null; + cdsMain.Free; + cdsDtl.Free; + end; +end; +``` + +
+
+
+Stock.Item.RO Script - click to expand
+ +```delphi + +``` + +
+
+
+
+#### Customer.Statement.RO
+
+Script - click to expand
+ +```delphi +procedure TfmMain.dxbb_ST_ITEM_ROClick(Sender: TObject); +var lBizApp, lRptVar : Variant; + lTime : TDateTime; + cdsMain, cdsDtl, cdsCat : TClientDataset; + lSQL : string; +begin + lTime := Now; + cdsMain := TClientDataset.Create(nil); + cdsDtl := TClientDataset.Create(nil); + cdsCat := TClientDataset.Create(nil); + + lBizApp := CreateOleObject('SQLAcc.BizApp'); + + lSQL := 'SELECT * FROM ST_ITEM_CATEGORY ' + + 'WHERE Category IN (''B-MOTOLORA'',''B-MAXIS'')'; + cdsCat.Data := lBizApp.DBManager.Execute(lSQL); //For filtering Category only + + try + lRptVar := null; + lRptVar := lBizApp.RptObjects.Find('Stock.Item.RO'); + lRptVar.Params.Find('AllItem').AsBoolean := True; + lRptVar.Params.Find('AllStockGroup').AsBoolean := True; + lRptVar.Params.Find('AllCustomerPriceTag').AsBoolean := True; + lRptVar.Params.Find('AllSupplierPriceTag').AsBoolean := True; +// lRptVar.Params.Find('CategoryData').AsBlob := ; //Not use +// lRptVar.Params.Find('CategoryTpl').AsBlob := ; //Not use +// lRptVar.Params.Find('CustomerPriceTagData').AsBlob := ; //Not use if AllCustomerPriceTag is True +// lRptVar.Params.Find('SupplierPriceTagData').AsBlob := ; //Not use if AllSupplierPriceTag is True +// lRptVar.Params.Find('DateFrom').AsDate := '01/01/2015'; //Not use if SelectDate is False +// lRptVar.Params.Find('DateTo').AsDate := '31/12/2015'; + lRptVar.Params.Find('HasAltStockItem').AsBoolean := False; + lRptVar.Params.Find('HasBarcode').AsBoolean := False; + lRptVar.Params.Find('HasBOM').AsBoolean := False; + lRptVar.Params.Find('HasCategory').AsBoolean := False; + lRptVar.Params.Find('HasCustomerItem').AsBoolean := False; + lRptVar.Params.Find('HasOpeningBalance').AsBoolean := False; + lRptVar.Params.Find('HasPurchasePrice').AsBoolean := False; + lRptVar.Params.Find('HasSellingPrice').AsBoolean := False; + lRptVar.Params.Find('HasSupplierItem').AsBoolean := False; +// lRptVar.Params.Find('ItemData').AsBlob := 'ANT 1.0'#13#10'COVER'; //Filter by Item code ANT 1.0 & COVER +// lRptVar.Params.Find('ItemCategoryData').AsBlob := cdsCat.XMLData; //Not use if SelectCategory is False + lRptVar.Params.Find('PrintActive').AsBoolean := True; + lRptVar.Params.Find('PrintInActive').AsBoolean := True; + lRptVar.Params.Find('PrintNonStockControl').AsBoolean := True; + lRptVar.Params.Find('PrintStockControl').AsBoolean := True; + lRptVar.Params.Find('SelectCategory').AsBoolean := False; + lRptVar.Params.Find('SelectDate').AsBoolean := False; + lRptVar.Params.Find('SortBy').AsString := 'Code'; +// lRptVar.Params.Find('StockGroupData').AsBlob := ; //Not use if AllStockGroup is True + lRptVar.CalculateReport; + + cdsMain.XMLData := lRptVar.DataSets.Find('cdsMain').XMLData; //Master Data + cdsDtl.XMLData := lRptVar.DataSets.Find('cdsUOM').XMLData; //Detail Data - To link Master Data use Code field + + cdsMain.SaveToFile('C:\Temp\_ListM.xml'); //Export To XML file + cdsDtl.SaveToFile('C:\Temp\_ListD.xml'); //Export To XML file + + lTime := Now - lTime; + MessageDlg(Format('[Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]), + mtInformation, [mbOk], 0); + finally + lRptVar := null; + cdsMain.Free; + cdsDtl.Free; + cdsCat.Free; + end; +end; +``` + +
+ '+
+ ' |
'+
+ '|
'+
+ '|
'+
+ '|
'+
+ '|
'+
+ '|
'+
+ '|
'+
+ '
+
+#### GL Account List For Sales & Purchase 1
+
+Customer.Statement.RO Script - click to expand
+ +```delphi +procedure TfmMain.dxbb_StatementClick(Sender: TObject); +var lBizApp, lRptVar : Variant; + lTime : TDateTime; + cdsMain, cdsDtl : TClientDataset; + s : string; +begin + lTime := Now; + cdsMain := TClientDataset.Create(nil); + cdsDtl := TClientDataset.Create(nil); + lBizApp := CreateOleObject('SQLAcc.BizApp'); + s := '
+
+
+#### GL Account List For Sales & Purchase 2
+
+GL_Acc Object Script 1 - click to expand
+ +```delphi +procedure TfmMain.dxbb_GLAccClick(Sender: TObject); +var BizApp : Variant; + lDataSet : TClientDataSet; + ASQL : String; +begin + //For Debtor List => SpecialAccType = DR + //For Creditor List => SpecialAccType = CR + BizApp := CreateOleObject('SQLAcc.BizApp'); + lDataSet := TClientDataSet.Create(Self); + try + ASQL := 'SELECT A.Code, A.Description FROM GL_ACC A '+ + 'LEFT OUTER JOIN GL_ACC B ON (A.Dockey=B.Parent) '+ + 'WHERE A.Parent<>-1 ' + + 'AND B.Dockey IS NULL ' + + 'AND A.SpecialAccType = '''' '+ + 'ORDER BY A.CODE '; + lDataSet.Data := BizApp.DBManager.Execute(ASQL); + lDataset.SaveToFile('C:\Temp\_List.xml', dfXML); //Export To XML file + finally + lDataSet.Free; + end; +end; +``` + +
+
+
+#### Customer.Aging.RO
+
+GL_Acc Object Script 2 - click to expand
+ +```delphi + +``` + +
+ '+
+ ' |
'+
+ '|
'+
+ '|
'+
+ '|
'+
+ '|
'+
+ '|
'+
+ '|
'+
+ '
+
+#### GL.CB.RO
+
+Customer Aging Report Object Script - click to expand
+ +```delphi +procedure TfmMain.dxbb_AgingClick(Sender: TObject); +var lBizApp, lRptVar : Variant; + lTime : TDateTime; + cdsMain, cdsDtl : TClientDataset; + s : string; +begin + lTime := Now; + cdsMain := TClientDataset.Create(nil); + cdsDtl := TClientDataset.Create(nil); + lBizApp := CreateOleObject('SQLAcc.BizApp'); + + s := '
+
+
+
+#### AR_DP
+
+GL Cash Book Report Object Script - click to expand
+ +```delphi +procedure TfmMain.dxBB_CBClick(Sender: TObject); +var lBizApp, lRptVar : Variant; + lTime : TDateTime; + cdsMain, cdsDtl, cdsTax : TClientDataset; +begin + lTime := Now; + cdsMain := TClientDataset.Create(nil); + cdsDtl := TClientDataset.Create(nil); + cdsTax := TClientDataset.Create(nil); + lBizApp := CreateOleObject('SQLAcc.BizApp'); + try + lRptVar := null; + lRptVar := lBizApp.RptObjects.Find('GL.CB.RO'); + lRptVar.Params.Find('AllCurrency').AsBoolean := True; + lRptVar.Params.Find('AllDocProject').AsBoolean := True; + lRptVar.Params.Find('AllDocument').AsBoolean := True; + lRptVar.Params.Find('AllItemProject').AsBoolean := True; + lRptVar.Params.Find('AllItemArea').AsBoolean := True; + lRptVar.Params.Find('AllItemAgent').AsBoolean := True; + lRptVar.Params.Find('AllDocAgent').AsBoolean := True; + lRptVar.Params.Find('AllDocArea').AsBoolean := True; + lRptVar.Params.Find('AllPaymentMethod').AsBoolean := False; +// lRptVar.Params.Find('CurrencyData').AsBlob := 'Not use if AllCurrency is true + +// For Post Date From & Date To' + lRptVar.Params.Find('DateFrom').AsDate := '01/01/2017'; + lRptVar.Params.Find('DateTo').AsDate := '31/12/2017'; + +// lRptVar.Params.Find('DocProjectData').AsBlob := //'Not use if AllDocProject is true +// lRptVar.Params.Find('DocAreaData').AsBlob := //Not use if AllDocArea is true +// lRptVar.Params.Find('DocAgentData').AsBlob := //Not use if AllDocAgent is true +// lRptVar.Params.Find('ItemAgentData').AsBlob := //Not use if AllItemAgent is true + lRptVar.Params.Find('DocType').AsString := 'PV'; //'PV for Payment Voucher & OR for Official Receipt +// lRptVar.Params.Find('DocumentData').AsBlob := //Not use if AllDocument is true +// lRptVar.Params.Find('GroupBy').AsBlob := //If you wanted to grouping the data + lRptVar.Params.Find('IncludeCancelled').AsBoolean := False; +// lRptVar.Params.Find('ItemAreaData').AsBlob := //Not use if AllItemArea is true +// lRptVar.Params.Find('ItemProjectData').AsBlob := //Not use if AllItemProject is true + lRptVar.Params.Find('PaymentMethodData').AsBlob := '310-001'; + lRptVar.Params.Find('PrintDocumentStyle').AsBoolean := True; + lRptVar.Params.Find('SelectDate').AsBoolean := True; //For Post Date +// lRptVar.Params.Find('SelectDocDate').AsBoolean := True; 'For Doc Date + lRptVar.Params.Find('SortBy').AsString := 'PostDate;DocNo'; + + lRptVar.CalculateReport; + + cdsMain.XMLData := lRptVar.DataSets.Find('cdsMain').XMLData; //Master Data + cdsDtl.XMLData := lRptVar.DataSets.Find('cdsDetail').XMLData; //Detail Data - To link Master Data use Dockey field + cdsTax.XMLData := lRptVar.DataSets.Find('cdsTax').XMLData; //Tax List + + cdsMain.SaveToFile('C:\Temp\_ListM.xml'); //Export To XML file + cdsDtl.SaveToFile('C:\Temp\_ListD.xml'); //Export To XML file + cdsTax.SaveToFile('C:\Temp\_ListT.xml'); //Export To XML file + + lTime := Now - lTime; + MessageDlg(Format('[Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]), + mtInformation, [mbOk], 0); + finally + lRptVar := null; + cdsMain.Free; + cdsDtl.Free; + end; +end; +``` + +
+
+
+#### Customer Deposit to Customer Payment
+
+Customer Deposit Script - click to expand
+ +```delphi +procedure TForm1.Button1Click(Sender: TObject); +var lMain, lBizObj, lBizApp : Variant; +begin + lBizApp := CreateOleObject('SQLAcc.BizApp'); + lBizApp.Login('ADMIN', 'ADMIN', 'D:\Happy\DB\Default.DCF', 'ACC-0110.FDB'); + + lBizObj := lBizApp.BizObjects.Find('AR_DP'); + lMain := lBizObj.DataSets.Find('MainDataSet'); + + try + lBizObj.New; + lMain.FindField('DOCKEY').Value := -1; + lMain.FindField('DocNo').AsString := '--DP Test--'; + lMain.FindField('CODE').AsString := '300-C0001'; + lMain.FindField('DocDate').Value := '28 Oct 2019'; + lMain.FindField('PostDate').Value := '28 Oct 2019'; + lMain.FindField('TAXDATE').Value := '28 Oct 2019'; + lMain.FindField('DEPOSITACCOUNT').AsString := 'PREPAYMENT'; + lMain.FindField('PaymentMethod').AsString := '320-000'; //Bank or Cash account + lMain.FindField('Description').AsString := 'Deposit For Account'; + lMain.FindField('ChequeNumber').AsString := ''; + lMain.FindField('BankCharge').AsFloat := 0; + lMain.FindField('DocAmt').AsFloat := 1000.00; + lMain.FindField('Cancelled').AsString := 'F'; + + try + lBizObj.Save; + except + on E: Exception do + Memo1.Lines.Append(E.Message); + end; + lBizObj.Close; + Memo1.Lines.Append('Done'); +// MessageDlg('Done', mtInformation, [mbOk], 0); + finally + lMain := Null; + lBizObj := Null; + lBizApp.Logout; + lBizApp := Null; + end; +end; +``` + +
+
+
+#### AR_DPDTL_REFUND
+
+Customer Deposit to Customer Payment Script - click to expand
+ +```delphi +procedure TForm1.Button2Click(Sender: TObject); +var lMain, lKO, lBizApp, lBizObj, V : Variant; + cdsTmp : TClientDataset; + lSQL : String; +begin + cdsTmp := TClientDataset.Create(nil); + lBizApp := CreateOleObject('SQLAcc.BizApp'); + lBizApp.Login('ADMIN', 'ADMIN', 'D:\Happy\DB\Default.DCF', 'ACC-0110.FDB'); + + try + lSQL := 'SELECT DOCKEY FROM AR_DP ' + + 'WHERE DOCNO=''--DP Test--'' '; + cdsTmp.Data := lBizApp.DBManager.Execute(lSQL); + + if cdsTmp.RecordCount > 0 then begin + lBizObj := lBizApp.BizObjects.Find('AR_PM'); + lMain := lBizObj.DataSets.Find('MainDataSet'); + lKO := lBizObj.DataSets.Find('cdsKnockOff'); + + lBizObj.New; + lMain.FindField('DOCKEY').Value := -1; + lMain.FindField('DocNo').AsString := '--PM Test--'; //Payment Document Number + lMain.FindField('CODE').AsString := '300-C0001'; + lMain.FindField('DocDate').Value := '29 Oct 2019'; + lMain.FindField('PostDate').Value := '29 Oct 2019'; + lMain.FindField('Description').AsString := 'Payment for A/c'; + lMain.FindField('PaymentMethod').AsString := 'PREPAYMENT'; + lMain.FindField('DocAmt').AsFloat := 200; + lMain.FindField('FROMDOCTYPE').AsString := 'DP'; //Transfer from Deposit + lMain.FindField('FROMDOCKEY').Value := cdsTmp.FindField('Dockey').AsFloat; //Transfer from Deposit + lMain.FindField('Cancelled').AsString := 'F'; + lMain.FindField('CHANGED').AsString := 'F'; + + V := lBizApp.CreateOleVariantArray(2); + V.SetItem(0, 'IV'); //Document Type is either is IV or DN for Sales & PI or SD for Purchase + V.SetItem(1, 'IV-00003'); //Invoice Document Number + + if lKO.Locate('DocType;DocNo', V.AsOleVariant, False, False) then + begin + lKO.Edit; + lKO.FindField('KOAmt').ASFloat := 200; + lKO.FindField('KnockOff').AsString := 'T'; + lKO.Post; + end; + + try + lBizObj.Save; + except + on E: Exception do + Memo1.Lines.Append(E.Message); + end; + lBizObj.Close; + Memo1.Lines.Append('Done'); + //MessageDlg('AR_PM-DocNo : ''--PM Test--'' Posted...', mtInformation, [mbOK],0); + end else + Memo1.Lines.Append('Deposit No. Not found'); + finally + cdsTmp.Free; + lBizApp.Logout; + lMain := Null; + lBizObj := Null; + lBizApp := Null; + end; +end; +``` + +
+
\ No newline at end of file
diff --git a/docs/integration/sdk-live/faq.md b/docs/integration/sdk-live/faq.md
new file mode 100644
index 00000000..22839168
--- /dev/null
+++ b/docs/integration/sdk-live/faq.md
@@ -0,0 +1,787 @@
+---
+title: SDK FAQ
+description: Frequently Ask Questions on External Program Linking for SQL Account
+slug: /integration/sdk-live/faq
+tags: ["SQL Account", "Integration"]
+---
+
+## Having Problem with Opening CHM Help files?
+
+1. Right click the chm file & select Properties
+2. At General tab Click Unblock button.
+3. Click Apply | Ok.
+
+### Still can't open CHM file?
+
+1. Login SQL Accounting
+2. Click Tools | Options | General
+3. Click Register & follow wizard
+4. Exit SQL Accounting
+5. Login SQL Accounting
+6. Run CHM File
+
+## Why when I compile my program with stated unknown method or unknown identifier?
+
+ - If you compiler had error may try add the **esfw10.dll** file under the SQL Accounting\bin folder
+
+## How to make sure I login to correct database?
+
+- Can use the Common.Agent.RO Report Objects to get the Profile info.
+- Then use the cdsProfile Dataset
+ - CompanyName Field
+ - Remark Field
+- Refer to [Get Company Profile](/integration/sdk-live/basic-guide#get-company-profile)
+
+## Why after post to SQL Accounting the Description3 (More Description)/Notes field it show like this "M y D e s c r i p t i o n" instead of "My Description"?
+
+ Make sure you use **.AsString** in your code
+ (see example below)
+
+- Description3 Field Script/Code :
+
+```sql
+
+lDtl.FindField('DESCRIPTION3').AsString := 'Sales Item A More Description'+ #13 + 'I in 2nd line';
+
+```
+
+## Can I Ignore Doc No Field & let SQL Accounting to Auto Assign?
+
+Yes but we **not recommended** as you will **lost track** when user wants to know which Doc No in SQL Acc is posted.
+To Set Auto Assign set it as below :
+
+DocNo Field Script/Code :
+
+```sql
+lMain.FindField('DocNo').AsString := '<Customer Deposit Forfeit Script - click to expand
+ +```delphi +procedure TForm1.Button4Click(Sender: TObject); +var lMain, lBizApp, lBizObj : Variant; + cdsTmp : TClientDataset; + lSQL : String; +begin + cdsTmp := TClientDataset.Create(nil); + lBizApp := CreateOleObject('SQLAcc.BizApp'); + lBizApp.Login('ADMIN', 'ADMIN', 'D:\Happy\DB\Default.DCF', 'ACC-0110.FDB'); + + try + lSQL := 'SELECT DOCKEY FROM AR_DP ' + + 'WHERE DOCNO=''--DP Test--'' '; + cdsTmp.Data := lBizApp.DBManager.Execute(lSQL); + + if cdsTmp.RecordCount > 0 then begin + lBizObj := lBizApp.BizObjects.Find('AR_DPDTL_FORFEIT'); + lMain := lBizObj.DataSets.Find('MainDataSet'); + + lBizObj.New; + lMain.FindField('DOCKEY').Value := cdsTmp.FindField('Dockey').AsFloat; + lMain.FindField('Account').AsString := '532-000'; //Forfeit account + lMain.FindField('DocDate').Value := '28 Oct 2019'; + lMain.FindField('PostDate').Value := '28 Oct 2019'; + lMain.FindField('Description').AsString := 'Deposit Forfeit'; + lMain.FindField('Amount').AsFloat := 150.00; + + try + lBizObj.Save; + except + on E: Exception do + Memo1.Lines.Append(E.Message); + end; + lBizObj.Close; + Memo1.Lines.Append('Done'); + // MessageDlg('Done', mtInformation, [mbOk], 0); + end else + Memo1.Lines.Append('Deposit No. Not Found'); + finally + cdsTmp.Free; + lMain := Null; + lBizObj := Null; + lBizApp.Logout; + lBizApp := Null; + end; +end; +``` + +
+
+
+### Delphi
+
+C Sharp - click to expand
+ +```csharp +Int32 lBuildNo; +dynamic ComServer; +public void CheckLogin() +{ + lBizType = Type.GetTypeFromProgID("SQLAcc.BizApp"); + ComServer = Activator.CreateInstance(lBizType); + + if (!ComServer.IsLogin) + { + try + { + ComServer.Login(edUN.Text, edPW.Text, edDCF.Text, edDB.Text); + ComServer.Minimize(); + } + catch(Exception ex) + { + MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation); + FreeBiz(ComServer); + } + } + if (ComServer.IsLogin) + { + lBuildNo = ComServer.BuildNo; + } +} + +public void FreeBiz(object AbizObj) +{ + System.Runtime.InteropServices.Marshal.ReleaseComObject(AbizObj); +} + +private void btnExport_Click(object sender, EventArgs e) +{ + dynamic BizObject, lMain, lDocKey; + + CheckLogin(); + //'Step 2: Find and Create the Biz Objects + BizObject = ComServer.BizObjects.Find("Agent"); + + //Step 3: Set Dataset + lMain = BizObject.DataSets.Find("MainDataSet"); //lMain contains master data + + //Step 4: Search + lDocKey = BizObject.FindKeyByRef("CODE", edCode.Text); + try + { + try + { + //Step 5 : Insert or Update + if (Convert.IsDBNull(lDocKey)) + { + BizObject.New(); + lMain.FindField("CODE").value = edCode.Text; + lMain.FindField("DESCRIPTION").value = edDesc.Text; + } + else + {//Edit Data if found + BizObject.Params.Find("CODE").Value = lDocKey; + BizObject.Open(); + BizObject.Edit(); + lMain.FindField("DESCRIPTION").value = edDesc.Text; + } + //Step 6: Save & Close + BizObject.Save(); + MessageBox.Show("Done", "Status", MessageBoxButtons.OK, MessageBoxIcon.Information); + } + catch (Exception ex) + { + MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation); + } + } + finally + { + BizObject.Close(); + + //Step 7 : Logout after done + FreeBiz(BizObject); + ComServer.Logout(); + FreeBiz(ComServer); + } +} +``` + +
+
+
+### VB Script
+
+Delphi - click to expand
+ +```vb +.... + public + { Public declarations } + lBizApp : variant; + end; +.... + +procedure TForm1.CheckLogin; +begin + lBizApp := null; + lBizApp := CreateOleObject('SQLAcc.BizApp'); + + if not lBizApp.IsLogin then begin + lBizApp.Login(edUN.Text, edPW.Text, edDCF.Text, edDB.Text); //Login with preset setting + lBizApp.Minimize; //Mininise the SQLAccounting + end; +end; + +procedure TForm1.Button2Click(Sender: TObject); +var BizObject, lMain : Variant; +begin + try + //Begin Loop your data + try + CheckLogin; + BizObject := lBizApp.BizObjects.Find('Agent'); + lMain := BizObject.DataSets.Find('MainDataSet'); + BizObject.New; + lMain.FindField('CODE').AsString := 'HALIM'; + lMain.FindField('Description').AsString := 'HALIM 123'; + BizObject.save; + except + on E: Exception do + MmLog.Lines.Append(E.Message); + end; + // + finally + BizObject.close; + BizObject := null; + lBizApp.Logout; + lBizApp := null; + end; +end; +``` + +
+
+
+## Why when Post System Prompt Operation aborted Error ?
+
+ - This happen when the Login User ID don't had the to **Override Sales Min/Max Price** &
+ - Use **Last Price XXX** (In Tools | Options | Unit Price) &
+ 1 of record is below Min Price.
+
+### Solution
+
+ - Can try change the Posting Seq like below (UOM then Qty)
+
+### Sequence Field Script/Code :
+
+```vb
+lDetail.Append();
+ lDetail.FindField("Seq").value = 3;
+ lDetail.FindField("ItemCode").AsString = "ANT";
+ lDetail.FindField("Description").AsString = "Sales Item B";
+ //lDetail.FindField("Account").AsString = "500-000"; To override the Sales Account Code
+ lDetail.FindField("UOM").AsString = "UNIT";
+ lDetail.FindField("Qty").AsFloat = 2;
+ //lDetail.FindField("DISC").AsString = "5%+3"; //Optional(eg 5% plus 3 Discount)
+ lDetail.FindField("Tax").AsString = "SV";
+ lDetail.FindField("TaxRate").AsString = "6%";
+ lDetail.FindField("TaxInclusive").value = False;
+ lDetail.FindField("UnitPrice").AsFloat = 100;
+ lDetail.FindField("Amount").AsFloat = 200;
+ lDetail.FindField("TaxAmt").AsFloat = 12;
+ lDetail.Post();
+```
+
+## How do my system know there is a changes or update in SQLAccounting?
+
+### Data Entry
+
+In all Document it had a field call UPDATECOUNT.
+Default is null & each changes will +1.
+So if you see 2 meaning it had being update 2 times
+
+Only available in
+
+ - Version 1001.858 & above
+
+In Each table it had a field call LASTMODIFIED.
+The value is **Epoch Time** or **Unix Time**
+
+### Master Data
+
+ Only available in
+
+ Version 842.765 & above
+ AP_SUPPLIER (Maintain Supplier)
+ AR_CUSTOMER (Maintain Customer)
+ ST_GROUP (Maintain Stock Group)
+ ST_ITEM (Maintain Stock Item)
+ ST_ITEM_TPL (Maintain Item Template)
+ ST_PRICETAG (Maintain Price Tag)
+ TAX (Maintain Tax)
+ In Each table it had a field call LASTMODIFIED.
+ The value is Epoch Time or Unix Time
+
+- You can use below function to get the field
+
+ - VB Script :
+
+```vb
+Function GetData
+Dim lDataSet, lSQL
+ lSQL = "SELECT DOCNO, UPDATECOUNT FROM SL_CS "
+ lSQL = lSQL & "WHERE UPDATECOUNT IS NOT NULL "
+ lSQL = lSQL & "ORDER BY DOCNO "
+ Set lDataSet = ComServer.DBManager.NewDataSet(lSQL)
+
+ lDataSet.First
+ While (not lDataSet.eof)
+ MsgBox "DocNo : " & lDataSet.FindField("DocNo").AsString
+ MsgBox "UpdateCount : " & lDataSet.FindField("UPDATECOUNT").AsString
+ lDataSet.Next
+ Wend
+End Function
+```
+
+ - Delphi :
+
+```csharp
+procedure TfmMain.dxbb_GetFieldClick(Sender: TObject);
+var BizApp : Variant;
+ lDataSet : TClientDataSet;
+ ASQL : String;
+begin
+ BizApp := CreateOleObject('SQLAcc.BizApp');
+ lDataSet := TClientDataSet.Create(Self);
+ try
+ ASQL := 'SELECT DOCNO, UPDATECOUNT FROM SL_CS ' +
+ 'WHERE UPDATECOUNT IS NOT NULL ' +
+ 'ORDER BY DOCNO ';
+ lDataSet.Data := BizApp.DBManager.Execute(ASQL);
+ lDataset.SaveToFile('C:\Temp\_List.xml', dfXML); //Export To XML file
+ finally
+ lDataSet.Free;
+ end;
+end;
+```
+
+## Can I control my Stock when I link with other Application?
+
+Yes. We suggest to use Stock Transfer to (eg Location call MOBILE) transfer stock as Reserve to avoid stock over deduct in SQL Accounting
+When other Application post to SQL Accounting they just need set the Location to the Reserve Location (eg MOBILE)
+
+Below is example posting with location :
+
+Post Location Field Script/Code
+
+```c
+ lDtl.FindField('UOM').AsString := 'CTN';
+ lDtl.FindField('QTY').AsFloat := 6;
+ lDtl.FindField('Location').AsString := 'MOBILE';
+```
+
+## Where to Check the SQL Accounting DCF Path, FileName & FDB FileName?
+
+In Login Screen Click 3 Dot Button then you can see the information
+For SQL Accounting Version 5.2023.957.831 and below
+
+
+
+For SQL Accounting Version 5.2023.958.832 and above
+
+
+
+
+
+## How to check what is the value for Advance Credit Control in Maintain Customer ?
+
+ - You can use ComServer.DBManager.NewDataSet(lSQL) function to Query the information
+ lSQL = SELECT * FROM AR_CUSTOMERCRCTRL
+ You may refer to ControlType column
+
+| **ControlType** | **Exceed Credit Limit** | **Exceed OverDue Limit** |
+|------------------|--------------------------|---------------------------|
+| 0 | UnBlock | UnBlock |
+| 1 | UnBlock | Block |
+| 2 | UnBlock | Override |
+| 3 | Block | UnBlock |
+| 4 | Block | Block |
+| 5 | Block | Override |
+| 6 | Override | UnBlock |
+| 7 | Override | Block |
+| 8 | Override | Override |
+| 9 | Suspended | — |
+
+## How to get Error/Exception Message Return from SQL Accounting?
+
+### In C Sharp
+
+```csharp
+
+try
+{
+ BizObject.New();
+....
+ BizObject.Save();
+}
+catch (Exception ex)
+{
+ MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
+}
+```
+
+### In Python
+
+```python
+try:
+ BizObject.Save()
+ except Exception as e:
+ print("Oops!", e)
+```
+
+### In VB.Net
+
+```vb
+Try
+ BizObject.[New]
+...
+ BizObject.Save
+Catch ex As Exception
+ MsgBox(ex.Message, MsgBoxStyle.Exclamation)
+End Try
+```
+
+### In Delphi
+
+```sql
+try
+ lBizObj.New;
+....
+ lBizObj.Save;
+except
+ on E: Exception do
+ Memo1.Lines.Text := E.Message;
+end;
+```
+
+## Why sometimes when Post to SQL Accounting will prompt Catastrophic failure Error?
+
+### Possible Problem 1
+
+- Make sure you code don't cross over Call action during posting
+- Eg Posing SL_SO Header partly then suddenly call other object example Check Customer Code Validity
+Summary action (Correct Steps)
+
+ 1. Do Verify 1st (eg Check Customer Code Validity & etc)
+ 2. Post Transactions
+
+### Possible Problem 2
+
+- Keep Login & Logout till windows not enough time to response
+- Summary action (Correct Steps)
+
+ 1. Pull Data from Your application/web
+ 2. Login SQL Accounting 1 time (Auto Login)
+ 3. Do all your requirement actions (eg. verify, query & posting)
+
+ ```sql
+ eg Posting Cash Sales & Customer Payment
+ begin looping
+ BizObject = ComServer.BizObjects.Find("SL_CS")
+ ....
+ BizObject.Save
+ BizObject.Close
+ FreeBiz(BizObject)
+
+ BizObject = ComServer.BizObjects.Find("AR_PM")
+ ....
+ BizObject.Save
+ BizObject.Close
+ FreeBiz(BizObject)
+
+ Next Record
+ End looping
+ ```
+
+ 4. Logout SQL Accounting 1 time (Auto Logout)
+ 5. Push Data to Your application/web (if any)
+
+### Possible Problem 3
+
+Company Profile Logo format had problem.
+Solution
+
+1. Click File | Company Profile
+2. Export out the Logo by right Click the Company Logo
+3. Open the Exported Logo with Photo Editor
+4. Just Click File | Save again as jpg.
+5. Load Back the Save Logo by right Click the Company Logo
+6. Click Save
+
+## How to Get the GL Account List for Sales & Purchase?
+
+ You can use the function ComServer.DBManager.NewDataSet(lSQL) with the following SQL
+
+```sql
+SELECT Code, Description, Description2 FROM GL_ACC A
+WHERE (A.Parent<>-1
+AND NOT (EXISTS (SELECT Parent FROM GL_ACC B
+ WHERE A.DocKey=B.Parent))
+AND (A.SpecialAccType IS NULL OR A.SpecialAccType IN ('', 'AD')))
+ORDER BY Code
+```
+
+## Can I setup a testing/Staging environment for SQL Accounting?
+
+Yes can, you can self setup or we can help you to setup.
+There are 4 types of Testing/Staging
+
+1. Install the Testing SQL Accounting version & Testing Database in the developer PC
+
+2. Install the Live SQL Accounting version & User Backup Database in the developer PC
+
+ - Require User Permission for Backup
+
+3. Setup at User PC/Server & using User Backup Database
+
+ - Require User Permission for Backup & PC/Server setup
+
+4. Setup at User PC/Server & using Testing Database
+
+ - Require User Permission for PC/Server setup
+
+## How to Loop & post SQL Accounting?
+
+Below summary how to loop
+
+1. Call ComServer
+2. Check Login
+3. Call BizObject (eg SL_CS)
+4. Begin Loop you data
+5. Call Close BizObject (eg BizObject.Close)
+6. Continue Call other BizObject (eg AR_PM)
+7. Repeat Steps 4 & 5
+8. Call Logout
+9. Free ComServer
+
+## How to post Description3 with Unicode?
+
+### C Sharp
+
+```csharp
+private static string FormatAsRTF(string DirtyText)
+{
+ System.Windows.Forms.RichTextBox rtf = new System.Windows.Forms.RichTextBox();
+ rtf.Text = DirtyText;
+ return rtf.Rtf;
+}
+
+....
+ lDtl.FindField("DESCRIPTION3").AsString = FormatAsRTF("ANTENNA ???");
+...
+```
+
+### VB.Net
+
+```vb
+Private Shared Function FormatAsRTF(ByVal DirtyText As String) As String
+ Dim rtf As System.Windows.Forms.RichTextBox = New System.Windows.Forms.RichTextBox()
+ rtf.Text = DirtyText
+ Return rtf.Rtf
+End Function
+
+....
+ lDtl.FindField("DESCRIPTION3").AsString = FormatAsRTF("ANTENNA ???")
+...
+```
+
+### Delphi
+
+```sql
+function TfmMain.PlainTxtToRTF(const AValue:String):String;
+var R:TRichEdit;
+ M : TStringStream;
+begin
+ R := TRichEdit.CreateParented(HWND_MESSAGE);
+ M := TStringStream.Create('');
+ try
+ R.WordWrap := False;
+ R.Lines.Add(AValue);
+ R.Lines.SaveToStream(M);
+ Result := M.DataString;
+ finally
+ R.Free;
+ M.Free;
+ end;
+end;
+
+....
+ lDtl.FindField('DESCRIPTION3').AsString := PlainTxtToRTF('ANTENNA ???');
+...
+```
+or Can use our built in Utility function (only available from **5.2022.941.822** & above)
+
+### PHP
+
+```php
+
+
+
+
+VB Script - click to expand
+ +```vb +'Copy below script & paste to notepad & name it as eg Agent.vbs +Call PostData + +Function CreateSQLAccServer + Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp") +End Function + +Function PostData +Dim ComServer, BizObject + + 'Step 1: Create Com Server object + Set ComServer = CreateSQLAccServer 'Create Com Server + + Set WScr = CreateObject("WScript.Shell") + WScript.Sleep 1000 '//Wait 1 second for system loading before proceed + + 'Step 2: Force Logout to make sure login correct database + If ComServer.IsLogin Then 'if user hasn't logon to SQL application + ComServer.Logout + END IF + 'Step 3: Login + ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0015.FDB" + + 'Step 4: Find and Create the Biz Objects + Set BizObject = ComServer.BizObjects.Find("Agent") + + 'Step 5: Set Dataset + Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMainDataSet contains master data + + + 'Step 6 : Posting + BizObject.New + lMain.FindField("CODE").AsString = "_Test_" + lMain.FindField("Description").AsString = "Testing 123" + + 'Step 7: Save Document + BizObject.Save + BizObject.Close + + 'Step 8: Logout + ComServer.Logout + MsgBox "Done" +End Function +``` + +SQL Acc SDK in PHP page
+ +"; +#This action to show & post Description3 with unicode + +$ComServer = null; + +function CheckLogin() +{ + global $ComServer; + $ComServer = new COM("SQLAcc.BizApp", null, CP_UTF8) or die("Could not initialise SQLAcc.BizApp object."); + $status = $ComServer->IsLogin(); + + if ($status == true) + { + #$ComServer->Logout(); + } + $ComServer->Login("ADMIN", "ADMIN", #UserName, Password + "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file + "ACC-0082.FDB"); #Database Name + +} + +function GetData(){ + global $ComServer; + + $lSQL = "SELECT Description3 FROM ST_ITEM + WHERE Code='ANT' "; + + $lDataSet = $ComServer->DBManager->NewDataSet($lSQL); + + if ($lDataSet->RecordCount > 0) { +$lDataSet->First(); + +$rtf = $lDataSet->FindField('Description3')->AsString(); + + echo $rtf; +echo "==
"; +echo "
Result after RTF:
"; +$txt = $ComServer->Utility->RichTextToPlainText($rtf); +echo ""; +echo "
==
"; +echo "??? ??"; +}else { + echo "Record Not Found"; + } +} + +function PostData(){ +global $ComServer; + +$BizObject = $ComServer->BizObjects->Find("ST_AJ"); + $lMain = $BizObject->DataSets->Find("MainDataSet"); + $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); + + $BizObject->New(); + $lMain->FindField("DocKey")->value = -1; + $lMain->FindField("DocNo")->AsString = "<
"; + echo date("d M Y h:i:s A")." - Done"; +PostData(); +echo "
"; + echo date("d M Y h:i:s A")." - Done ST_AJ"; + } + finally + { + $ComServer->Logout(); + #free the object + $ComServer = null; + } +} + +?> + + + +``` + +## Why the TAXEXEMPTIONREASON field become empty even I have pass the value in? + + Make sure the TAXRATE field is set to empty + +```sql +.... + lDtl.FindField('Tax').AsString := 'SVE'; + lDtl.FindField('TaxRate').AsString := ''; + lDtl.FindField('TaxExemptionReason').AsString := 'my tax exemption reason'; +... +``` + +Why is Posting Amount not correct when SQL Acc Default Tax for Tax Inclusive is True ? + + - This Only happen if 3rd party also is Tax Inclusive is True + - Can try below posting seq + +```sql +.... + lDetail.FindField("Qty").AsFloat = 1 + lDetail.FindField("UOM").AsString = "UNIT" + lDetail.FindField("Tax").AsString = "ST" + lDetail.FindField("TaxRate").AsString = "10%" + lDetail.FindField("TaxInclusive").value = False + lDetail.FindField("UnitPrice").AsFloat = 264 + lDetail.FindField("Amount").AsFloat = 240 + lDetail.FindField("TaxAmt").AsFloat = 24 + + lDetail.DisableControls() + lDetail.FindField("TaxInclusive").value = True + lDetail.EnableControls() +... +``` diff --git a/docs/integration/sql-account-api/api-on-premise-setup.md b/docs/integration/sql-account-api/api-on-premise-setup.md index 25b0f393..d992dde4 100644 --- a/docs/integration/sql-account-api/api-on-premise-setup.md +++ b/docs/integration/sql-account-api/api-on-premise-setup.md @@ -9,11 +9,29 @@ tags: ["SQL Account", "SQL Account API", "On-Premise Setup"] ## Prerequisites +- Microsoft Windows 11 and above (recommended with 64 bits windows) +- Intel i5, i7 and above computer. +- 8 GB of RAM (Recommended 12 GB and above). - `SQL Account` **version 5.2025.1038.875** or above +- Firebird (Recommended Version 3.0.9 & above) - Fix server IP address (either DHCP Reservation or Static) - [Public IP Address](#public-ip-address) - [Port Forwarding](#step-3---port-forwarding) +## Postman Collection + +- Updated 04 Aug 2025 +- [Postman Collection](https://download.sql.com.my/customer/Fairy/APICollection.zip) +- [Authenticating Requests: Using Query Parameters (AWS Signature Version 4)](https://docs.aws.amazon.com/AmazonS3/latest/API/sigv4-query-string-auth.html) + +## Steps Import Collection + +- Click [here](https://download.sql.com.my/customer/Fairy/SQLAcc-API-001.gif) to see the guide + +### Update Access & Secret Key + + + ## Public IP Address Make sure to have a **dedicated public IP Address**. @@ -36,21 +54,21 @@ If the provider requests a reason, you can explain that you intend to host a ser 1. On `Logon Screen` > **Click** `⚙️` -  +  2. **Right-Click** on company database > **Select** `Configure API Service...` -  +  3. **Click** on `Install` to install API service -  +  ### Step 2 - Start Service After the installation, start the service. Once successful, `Service is running` status will show on screen. - + ### Step 3 - Port Forwarding @@ -59,7 +77,7 @@ Next, we will need to do `Port Forwarding`. :::info[Port Forwarding Information] You can **Click** on `Show Tips` to find all the information for port forwarding configuration. - + ::: 1. **Access Router Setting**: Login to the router's administration interface on web browser. @@ -70,7 +88,7 @@ You can **Click** on `Show Tips` to find all the information for port forwarding If you are using a firewall or serving the router's web administration interface via a different IP address, this might not work. ::: -  +  2. **Navigate to Port Forwarding Section**: Find `Port Forwarding`, `Virtual Service` or similar section in the router's setting. @@ -85,8 +103,8 @@ You can **Click** on `Show Tips` to find all the information for port forwarding 5. **Verify**: **Click** on `Test Connection` to test `SQL Account API Service` status. When `✅ OK` status is shown, it means the service is setup successfully. -  +  ### Examples of Port Forward -Can refer to [Sample of port forward setup](../sql-mobile-connect/on-premise-setup#examples-of-port-forward) on different router \ No newline at end of file +Can refer to [Sample of port forward setup](../sql-mobile-connect/on-premise-setup#examples-of-port-forward) on different router diff --git a/docs/integration/sql-account-api/faq.md b/docs/integration/sql-account-api/faq.md new file mode 100644 index 00000000..d4f6d145 --- /dev/null +++ b/docs/integration/sql-account-api/faq.md @@ -0,0 +1,74 @@ +--- +sidebar_position: 4 +id: sql-account-api-faq +title: Generate API Secret Key +description: Frequently Asked Questions (FAQ) in SQL Accounting API +slug: /sql-account-api/faq +tags: ["SQL Account", "SQL Account API", "Generate API Secret Key"] +--- + +## Why when I try to update (PUT) for Data Entry (eg Sales Invoice) it prompt error "Record has been changed by other users." + +- Make sure at you update the field **updatecount** by +1 after you get the original **updatecount** from sqlacc +- Below example original is 2 + +```vb +"updatecount": 3, + "sdsdocdetail": [ + { + "dtlkey": 99, +``` + +## How to update(PUT) detail information for Data Entry (eg Sales Invoice)? + +- Make sure at sdsdocdetail + +- For Update => Insert field dtlkey with the original dtlkey from sqlacc +- For Insert New record => Remove the dtlkey field or Set it as -1 + +```vb + "sdsdocdetail": [ + { + "dtlkey": 99, + "seq": 1, + "itemcode": "ISCT", + "description": "Industrial Style Round Coffee Table - Edited", + + }, + { + "seq": 2, + "itemcode": "MISC", + "description": "MISC - New Insert", + + }, + { + "dtlkey": -1, + "seq": 3, + "itemcode": "RM-04", + "description": "Arm Rest - New Insert", + +``` + +:::warning +If provided dtlkey is invalid system will treat is as Insert New Record +::: + +## What is the max limit for GET? + +- Currently max is 50 records per request + +## How many ways for GET Method available? + +- Now it supported 3 ways on GET method. + +| **Example GET Method** | **Description** | +|--------------------------|----------------| +| `/purchaseinvoice/?docno=PI-00001` | Return list (master data only). Can filter by all master table fields. | +| `/purchaseinvoice/*?docno=PI-00001&code=400-A0001` | Return single record (master + detail data). Can filter by indexed table fields. Field available: `code`, `docdate`, `docno`, `postdate`, `eiv_utc`. | +| `/purchaseinvoice/{dockey}` | Return single record (master + detail data), by path parameter `dockey` only. | + +## How to get full JSON structure for the specific document? + +- Below is example to get Purchase Order JSON file + + diff --git a/docs/integration/sql-account-api/generate-api-secret-key.md b/docs/integration/sql-account-api/generate-api-secret-key.md index 84ec7c57..3832bfdf 100644 --- a/docs/integration/sql-account-api/generate-api-secret-key.md +++ b/docs/integration/sql-account-api/generate-api-secret-key.md @@ -13,29 +13,29 @@ This guide will walk through generating `API Secret Key`, which allow the user t 1. **Navigate to User Detail:** - Go to `Tools` > `Maintain User...` > `Detail` + Go to `Tools` > `Maintain User...` > `Detail` 2. **Select API Secret Key Option:** **Click** on `More` > `API Secret Key` -  +  3. **Generate Secret Key:** - + **Click** on `Generate API Secret Key` -  +  :::warning[Important Note] Once an `API Secret Key` is generated for a user, that user will no longer be able to login on SQL Account directly. The user only be able to access `SQL Account API Service` with the secret key generated. ::: 4. **Copy and Save Secret Key** - + The API `Access Key` and `Secret Key` will displayed. Make sure to copy and save it immediately in a secure location. -  +  :::info[Tip] **API Secret Key** can only be retrieved at the time of generated. If you lose it, you can `revoke` and `generate` a new API Secret Key. @@ -45,7 +45,7 @@ This guide will walk through generating `API Secret Key`, which allow the user t `SQL Account API Service` uses [AWS Signature Version 4](https://docs.aws.amazon.com/AmazonS3/latest/API/sigv4-auth-using-authorization-header.html) for authenticating requests. You can **click** on `Test Connection` to test on the request with AWSv4 authorization header. - + :::info[Hints] For a sample cURL request with AWSv4 authorization header, **click** on `Copy`. @@ -57,22 +57,87 @@ For a sample cURL request with AWSv4 authorization header, **click** on `Copy`. **Click** on `Download Postman Collection` to save `postman_collection.json` file. -  +  2. **Import the API specification into your Postman application:** **Click** on `Import`, then select `postman_collection.json` file you downloaded to import. -  +  3. **Update Access Key and Secret Key:** After postman collection imported, **navigate** to `Variables` tab. Then, **replace** the `your_access_key` and `your_secret Key` with the Access Key and Secret Key generated earlier. -  +  4. **Test on API Endpoint** **Select** on `Agent` endpoint. Then, **click** on `Send` to try retrieve agent data from `SQL Account API Service` and the `Agent` json data list will show on response body. -  +  + +## FAQ + +### When I try to update(PUT) for Data Entry (eg Sales Invoice) it prompt error "Record has been changed by other users." + +- Make sure at you update the field updatecount by +1 after you get the original updatecount from sqlacc +- Below example original is 2 + +```pascal +..... + "updatecount": 3, + "sdsdocdetail": [ + { + "dtlkey": 99, +..... +``` + +### How to update(PUT) detail information for Data Entry (eg Sales Invoice)? + +- Make sure at sdsdocdetail + For Update => Insert field dtlkey with the original dtlkey from sqlacc + For Insert New record => Remove the dtlkey field or Set it as -1 +- Below example is to Update Detail Row 1 & Insert 2 new row + +```pascal +..... + "sdsdocdetail": [ + { + "dtlkey": 99, + "seq": 1, + "itemcode": "ISCT", + "description": "Industrial Style Round Coffee Table - Edited", +..... + }, + { + "seq": 2, + "itemcode": "MISC", + "description": "MISC - New Insert", +..... + }, + { + "dtlkey": -1, + "seq": 3, + "itemcode": "RM-04", + "description": "Arm Rest - New Insert", +.... +``` + +:::caution +If provided dtlkey is invalid system will treat is as Insert New Record +::: + +### What is the max limit for GET? + +- Currently max is 50 records per request + +### How many ways for GET Method available? + +- Now it supported 3 ways on GET method. + +| **Example Get Method** | **Description** | +|--------------------------|-----------------| +| `/purchaseinvoice/?docno=PI-00001` | Return list (master data only), can filter by all master table fields. | +| `/purchaseinvoice/*?docno=PI-00001&code=400-A0001` | Return single record (master + detail data), can filter by indexed table fields.
**Fields available:** `code`, `docdate`, `docno`, `postdate`, `eiv_utc` | +| `/purchaseinvoice/{dockey}` | Return single record (master + detail data), by path parameter `dockey` only. | diff --git a/docs/integration/sql-account-api/integration-methods.md b/docs/integration/sql-account-api/integration-methods.md new file mode 100644 index 00000000..dd50ee6f --- /dev/null +++ b/docs/integration/sql-account-api/integration-methods.md @@ -0,0 +1,6424 @@ +--- +sidebar_position: 3 +id: integration-methods +title: Alternative Integration Methods +description: A guide to integrate SQL API with different languages +slug: /sql-account-api/integration-methods +tags: ["SQL Account", "SQL Account API", "Generate API Secret Key"] +--- + +## Demo Account + +- Updated 18 July 2025 +- URL: [https://api.sql.my](https://api.sql.my/) +- AWSv4 AccessKey: may email to support@sql.com.my to get the info +- AWSv4 SecretKey: may email to support@sql.com.my to get the info +- [Sample Json File for Below sample coding](https://download.sql.com.my/customer/Fairy/APISampleJson.zip) - Updated 18 Oct 2025 + +## Available Programming Languages + +- Python +- Node JS + +### Python + +Module Require in Python + +- boto3 -> pip install boto3 +- requests -> pip install requests + +### Python Common + +
+
+
+### Agent
+
+APICommon.py file for example code - click to expand
+ +```python +#Updated 07 Aug 2025 +import os +import boto3 +from botocore.auth import SigV4Auth +from botocore.awsrequest import AWSRequest +import requests +import json + +access_key = 'The Access Key' +secret_key = 'The Secret Key' +service = 'execute-api' +host = 'api.sql.my' +region = 'ap-southeast-1' + +def QuotedStr(ACode): + return "'" + ACode.replace("'", "''") + "'" + +def update_updatecount(file_path, updatecount): + """ + Loads a JSON file, increments the 'updatecount' field by 1, + and saves the changes back to the file. + + Args: + file_path (str): The path to the JSON file. + """ + try: + with open(file_path, 'r') as file: + data = json.load(file) + + # Check if 'updatecount' key exists and is an integer + if 'updatecount' in data and isinstance(data['updatecount'], int): + if updatecount is None: + updatecount = 0 + data['updatecount'] = updatecount + 1 + print(f"Updated 'updatecount' to: {data['updatecount']}") + else: + print("The key 'updatecount' does not exist or is not an integer.") + return + + # Save the updated data back to the same file + with open(file_path, 'w') as file: + json.dump(data, file, indent=3) + print("File updated successfully.") + + except FileNotFoundError: + print(f"Error: The file at {file_path} was not found.") + except json.JSONDecodeError: + print(f"Error: Failed to decode JSON from the file at {file_path}.") + except Exception as e: + print(f"An unexpected error occurred: {e}") + +def ShowAuth(request): + authorization_header = request.headers.get('Authorization') + if authorization_header: + print(f"GET Request Authorization Header (Signature): {authorization_header}") + else: + print("Authorization header not found for GET request.") + +def get_payload_data(file_path: str): + try: + with open(file_path, 'r') as f: + payload_data = json.load(f) # Load JSON data directly into a dictionary + print(json.dumps(payload_data)) + return json.dumps(payload_data) # Convert dict back to JSON string for sending + + except FileNotFoundError: + print(f"Error: The file '{file_path}' was not found.") + except json.JSONDecodeError: + print(f"Error: Could not decode JSON from file '{file_path}'. Please ensure it's valid JSON.") + except Exception as e: + print(f'An unexpected error occurred: {e}') + +def get_field_value(response_data, fieldname : str): + def find_field_value(data, target_fieldname): + if isinstance(data, dict): + for key, value in data.items(): + if key == target_fieldname: + return value + # If the value is a dictionary or list, recurse + result = find_field_value(value, target_fieldname) + if result is not None: + return result + elif isinstance(data, list): + for item in data: + result = find_field_value(item, target_fieldname) + if result is not None: + return result + return None # Field not found in this branch + + value = find_field_value(response_data, fieldname) + + if value is not None: + #print(f"Successfully retrieved value for field '{fieldname}': {value}") + return value + else: + #print(f"Field '{fieldname}' not found in the API response.") + return None + +def auto_parse_json(response_data, limit=100, indent_level=0): + """ + Automatically parses JSON data, displaying all fields and values. + + Args: + response_data: The JSON data (usually from response.json()). + limit (int): The maximum number of records to display if 'data' is a list. + indent_level (int): Used for pretty printing nested structures. + """ + indent = " " * indent_level + + if isinstance(response_data, dict): + if indent_level == 0: # Only print for the top-level object + print(f"\n{indent}--- Parsed Record Data ---") + + for key, value in response_data.items(): + if isinstance(value, dict): + print(f"{indent}{key}:") + auto_parse_json(value, limit, indent_level + 1) + elif isinstance(value, list): + print(f"{indent}{key}: [") + if key == 'data' and indent_level == 0: # Special handling for a top-level 'data' list + print(f"\nTotal Record found: {len(value)}") + print(f"--- Displaying first {min(len(value), limit)} records ---") + for i, item in enumerate(value[:limit]): + print(f"\n {indent} Record {i+1} of {len(value)}:") + print(f"{indent} "+ "-"*50) + auto_parse_json(item, limit, indent_level + 2) + if len(value) > limit: + print(f"{indent} ...and {len(value) - limit} more records.") + else: + for i, item in enumerate(value): + print(f"{indent} [{i+1} of {len(value)}]:") + auto_parse_json(item, limit, indent_level + 2) + print(f"{indent}]") + else: + print(f"{indent}{key}: {value}") + elif isinstance(response_data, list): + if indent_level == 0: # This case is if the top-level JSON is a list + print(f"\nTotal Record found: {len(response_data)}") + print(f"--- Displaying first {min(len(response_data), limit)} records ---") + for i, item in enumerate(response_data[:limit]): + print(f"{indent} Item {i+1}:") + auto_parse_json(item, limit, indent_level + 2) + if len(response_data) > limit: + print(f"{indent} ...and {len(response_data) - limit} more items.") + else: + # For simple values like strings, numbers, booleans at the top level + if indent_level == 0: + print(f"\n--- Parsed Value ---") + print(f"{indent}{response_data}") + +class BaseApiClient: + """ + A base client for interacting with AWS API Gateway endpoints using SigV4 authentication. + Encapsulates common setup like session, headers, and request signing. + """ + def __init__(self, service: str, host: str, region: str, access_key: str, secret_key: str, session_token: str = None): + self.service = service + self.host = host + self.region = region + self.session_token = session_token + + self.session = boto3.Session( + aws_access_key_id=access_key, + aws_secret_access_key=secret_key, + aws_session_token=session_token, + region_name=region + ) + self.headers = { + 'Host': host, + 'Content-Type': 'application/json' + } + + def _send_request(self, method: str, full_url: str, payload: str = None, custom_headers: dict = None) -> requests.Response | None: + """ + Sends an authenticated request to the specified URL. + + Args: + method (str): HTTP method (e.g., "GET", "POST", "PUT", "DELETE"). + full_url (str): The complete URL for the API endpoint. + payload (str, optional): JSON payload as a string for POST/PUT requests. Defaults to None. + custom_headers (dict, optional): Dictionary of additional or overriding headers. Defaults to None. + + Returns: + requests.Response or None: The response object if successful, None otherwise. + """ + request_data = payload.encode('utf-8') if payload else b'' + + # Merge custom headers with default headers + request_headers = self.headers.copy() + if custom_headers: + request_headers.update(custom_headers) + + request = AWSRequest( + method, + full_url, + headers=request_headers, + data=request_data + ) + + SigV4Auth(self.session.get_credentials(), self.service, self.region).add_auth(request) + #ShowAuth(request) # For debugging, shows the Authorization header + + try: + response = requests.request(method, request.url, headers=dict(request.headers), data=request_data, timeout=30) + print(f'Response Status: {response.status_code}') + + # Print body only if it's not a PDF or other binary content + if 'application/json' in response.headers.get('Content-Type', ''): + print(f'Response Body: {response.content.decode("utf-8")}') + else: + print(f'Response Body: (Binary Content - Type: {response.headers.get("Content-Type")})') + + response.raise_for_status() # Raise an exception for HTTP errors (4xx or 5xx) + return response + except requests.exceptions.RequestException as e: + print(f'Error making request: {e}') + return None + except Exception as e: + print(f'An unexpected error occurred: {e}') + return None + +``` + +
+
+
+### Sales Invoice
+
+Agent - Get List, Add, Update & Delete Function - click to expand
+ +```python +#Updated 20 Aug 2025 +import os +import requests +import json +import APICommon + +# Centralized API configuration from APICommon.py +session_token = os.environ.get('AWS_SESSION_TOKEN') +access_key = APICommon.access_key +secret_key = APICommon.secret_key +service = APICommon.service +host = APICommon.host +region = APICommon.region + +# Base URL for the Agent API +url = f'https://{host}/agent' + +class AgentApiClient(APICommon.BaseApiClient): + """ + Client for the Agent API, inheriting common functionality from BaseApiClient. + """ + def __init__(self, base_url: str): + super().__init__( + service=service, + host=host, + region=region, + access_key=access_key, + secret_key=secret_key, + session_token=session_token + ) + self.base_url = base_url + + def get_agent_data(self, offset: int = 0, limit: int = 10): + """ + Retrieves agent data with pagination. + + Args: + offset (int): The number of records to skip. Defaults to 0. + limit (int): The maximum number of records to shown. Defaults to 10. + """ + query_params = f'offset={offset}' + full_url = f'{self.base_url}?{query_params}' + + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + APICommon.auto_parse_json(data, limit=limit) # Automatically parse and display JSON + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + + def create_agent_data(self, code: str, description: str, is_active: bool): + """ + Creates a new agent record. + + Args: + code (str): The unique code for the agent. + description (str): The description of the agent. + is_active (bool): Whether the agent is active. + """ + payload_data = { + "code": code, + "description": description, + "isactive": is_active + } + payload_str = json.dumps(payload_data) # Convert dict to JSON string + + self._send_request("POST", self.base_url, payload=payload_str) + + def update_agent_data(self, code: str, description: str, is_active: bool): + """ + Updates an existing agent record. + + Args: + code (str): The code of the agent to update. + description (str): The new description of the agent. + is_active (bool): The new active status of the agent. + """ + payload_data = { + "code": code, + "description": description, + "isactive": is_active + } + payload_str = json.dumps(payload_data) # Convert dict to JSON string + full_url = f'{self.base_url}/{code}' + + self._send_request("PUT", full_url, payload=payload_str) + + def delete_agent_data(self, code: str): + """ + Deletes an agent record by code. + + Args: + code (str): The code of the agent to delete. + """ + full_url = f'{self.base_url}/{code}' + + self._send_request("DELETE", full_url) + +if __name__ == "__main__": + agent_api = AgentApiClient(base_url=url) # Initialize with the base URL defined earlier + + # Example: Fetch existing agents + print("--- Fetching Agents (Offset 0, Limit 10) ---") + agent_api.get_agent_data(offset=0) + + print("\n" + "="*50 + "\n") + + print("--- Fetching Agents (Offset 10, Limit 10) ---") + agent_api.get_agent_data(offset=10) # Start from Record 11 (i.e. skip 1st 10 records) + + print("\n" + "="*50 + "\n") + + # Example: Create a new agent + answer = input("Continue New Record? (y/n): ") + if answer.lower() in ["y","yes"]: + print("\n--- Creating Agent 'Fairy5' ---") + agent_api.create_agent_data(code="Fairy5", description="Fairy Desc 4", is_active=True) + + print("\n" + "="*50 + "\n") + + print("--- Re-fetching Agents after Creation ---") + agent_api.get_agent_data(offset=0) + + print("\n" + "="*50 + "\n") + + # Example: Update an agent + answer = input("Continue Update Record? (y/n): ") + if answer.lower() in ["y","yes"]: + print("\n--- Updating Agent 'Fairy5' ---") + agent_api.update_agent_data(code="Fairy5", description="Fairy Desc 5 edited", is_active=True) + + print("\n" + "="*50 + "\n") + print("--- Re-fetching Agents after Update ---") + agent_api.get_agent_data(offset=0) + + print("\n" + "="*50 + "\n") + + # Example: Delete agent + answer = input("Continue Delete Record? (y/n): ") + if answer.lower() in ["y","yes"]: + print("\n--- Deleting Agent 'Fairy5' ---") + agent_api.delete_agent_data(code="Fairy5") + + print("\n" + "="*50 + "\n") + print("--- Re-fetching Agents after Deletion ---") + agent_api.get_agent_data(offset=0) + + print("\n" + "="*50 + "\n") + +``` + +
+
+
+### Purchase Invoice
+
+Sales Invoice - Get List, PDF, Add, Update & Delete Function - click to expand
+ +```python +#Updated 18 Oct 2025 +import os +import requests +import json +import APICommon + +# Centralized API configuration from APICommon.py +session_token = os.environ.get('AWS_SESSION_TOKEN') +access_key = APICommon.access_key +secret_key = APICommon.secret_key +service = APICommon.service +host = APICommon.host +region = APICommon.region + +# Base URL for the Sales Invoice API +url = f'https://{host}/salesinvoice' +json_path_new = '..\\API\\SL_IV-New' +json_path_edit = '..\\API\\SL_IV-Edit' +sDocNo = '--IV-Test--' +sRptName = 'Sales Invoice 8 (SST 1)' + +class SLIVApiClient(APICommon.BaseApiClient): + """ + Client for the Sales Invoice (SLIV) API, inheriting common functionality from BaseApiClient. + """ + def __init__(self, base_url: str): + super().__init__( + service=service, + host=host, + region=region, + access_key=access_key, + secret_key=secret_key, + session_token=session_token + ) + self.base_url = base_url + + def get_SLIV_data(self, offset: int = 0, limit: int = 10): + """ + Retrieves sales invoice data with pagination. + + Args: + offset (int): The number of records to skip. Defaults to 0. + limit (int): The maximum number of records to shown. Defaults to 10. + """ + query_params = f'offset={offset}' + full_url = f'{self.base_url}?{query_params}' + + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + APICommon.auto_parse_json(data, limit=limit) # Automatically parse and display JSON + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + + def get_SLIV_Single(self, ADocNo: str, ShowResult: bool = True, AFld: str =''): + """ + Retrieves a single sales invoice record by document number. + + Args: + ADocNo (str): The document number of the sales invoice. + ShowResult (bool): If True, automatically parses and prints the result. + If False, returns the JSON response. Defaults to True. + AFld (str): Search field + + Returns: + dict or None: The parsed JSON data if ShowResult is False and successful, None otherwise. + """ + + """ + There got 3 type of GET: + 01. Get Detail => /salesinvoice/*? + - Return Result with Detail Records + - only got this fields => code=&docdate=&docno=&postdate=&eiv_utc= + 02. Normal Get => /salesinvoice? + - Return Result only Header Records + - eg lastmodified=1757557610 + 03. Get by Dockey /{Dockey} + + https://wiki.sql.com.my/wiki/Restful_API#How_many_ways_for_GET_Method_available%3F + """ + + vFld = AFld + if vFld == '': + vFld = 'DocNo' + vData = ADocNo + + aKey = '?' + if vFld.lower() in ["code", "docdate", "docno", "postdate", "eiv_utc"]: + aKey = '*?' + else: + if vFld.lower() == "dockey": + aKey = '' + + if vFld.lower() == "dockey": + full_url = f'{self.base_url}/{vData}' + else: + full_url = f'{self.base_url}/{aKey}{vFld}={vData}' + print(f"URL = {full_url}") + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + + # Base case for recursion: if we are already searching by dockey, we should not recurse again. + if vFld.lower() == "dockey": + if ShowResult: + APICommon.auto_parse_json(data) + return data + + # Recursive step: if not a dockey search, find the dockey and recurse. + if vFld.lower() in ["code", "docdate", "docno", "postdate", "eiv_utc"]: + if ShowResult: + APICommon.auto_parse_json(data) # Automatically parse and display JSON + else: + return data + else: + # This is the "normal get" which returns a header. We get the dockey from it. + vdockey = APICommon.get_field_value(data, "dockey") + if vdockey: + # Corrected recursive call: + return self.get_SLIV_Single(vdockey, AFld="Dockey") + else: + print("Error: 'dockey' not found in response.") + + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + return None + + def get_SLIV_PDF(self, ADocNo: str, report_name: str, save_path: str): + """ + Downloads a sales invoice as a PDF. + + Args: + ADocNo (str): The document number of the sales invoice. + report_name (str): The template name for the PDF report (e.g., 'Sales Invoice 8 (SST 1)'). + save_path (str): The directory where the PDF should be saved. + """ + data = self.get_SLIV_Single(ADocNo, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + full_url = f'{self.base_url}/{dockey}' + print(f"URL = {full_url}") + + custom_headers = { + 'Content-Type': f'application/pdf;template={report_name}' + } + + print(f"Attempting to download PDF document for DocNo: {ADocNo} using template: {report_name}") + print(f"\nRemember to check the '{save_path}' folder for the downloaded PDF.") + response = self._send_request("GET", full_url, custom_headers=custom_headers) + if response: + try: + output_filename = f"{report_name}_{ADocNo}.pdf" + full_save_path = os.path.join(save_path, output_filename) + + # Ensure the directory exists + os.makedirs(os.path.dirname(full_save_path), exist_ok=True) + + # Write the content to a file in binary mode + with open(full_save_path, 'wb') as pdf_file: + for chunk in response.iter_content(chunk_size=8192): + if chunk: # Filter out keep-alive chunks + pdf_file.write(chunk) + + print(f"PDF for DocNo '{ADocNo}' with template '{report_name}' successfully downloaded to: {save_path}") + except IOError as e: + print(f"Error saving PDF to file: {e}") + except Exception as e: + print(f"An unexpected error occurred during PDF saving: {e}") + + def create_SLIV(self, file_path: str): + """ + Creates a new sales invoice from a JSON payload file. + + Args: + file_path (str): The path to the JSON file containing the invoice data. + """ + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + self._send_request("POST", self.base_url, payload=payload_str) + + def update_SLIV(self, docno: str, code: str, file_path: str): + """ + Updates an existing sales document record. + + Args: + docno (str): The document number to update. + code (str): The code associated with the document (used for verification). + file_path (str): The path to the JSON file containing the updated document data. + """ + # Retrieve necessary fields from the existing record + data = self.get_SLIV_Single(docno, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + cocode = APICommon.get_field_value(data, "code") + updatecount = APICommon.get_field_value(data, "updatecount") + print(f"Retrieved updatecount: {updatecount}") + + if dockey is not None and str(cocode) == code: # Ensure code matches for the right document + APICommon.update_updatecount(file_path, updatecount) + + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + full_url = f'{self.base_url}/{dockey}' + print(f"Attempting to update document at: {full_url}") + self._send_request("PUT", full_url, payload=payload_str) + else: + print(f"Error: No record found for DocNo '{docno}' with code '{code}' or dockey is missing.") + else: + print(f"Error: Could not retrieve existing document data for DocNo '{docno}'. Cannot update.") + + def delete_SLIV1(self, dockey: str): + """ + Deletes a sales invoice by its dockey (document key). + + Args: + dockey (str): The document key of the invoice to delete. + """ + full_url = f'{self.base_url}/{dockey}' + self._send_request("DELETE", full_url) + + def delete_SLIV(self, docno: str, code: str): + """ + Deletes a sales invoice by its document number and code. + First retrieves the dockey using docno and code for verification. + + Args: + docno (str): The document number of the invoice to delete. + code (str): The code associated with the invoice. + """ + data = self.get_SLIV_Single(docno, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + cocode = APICommon.get_field_value(data, "code") + + if dockey is not None and str(cocode) == code: # Ensure code matches for the right document + full_url = f'{self.base_url}/{dockey}' + print(f"Attempting to delete document at: {full_url}") + self._send_request("DELETE", full_url) + else: + print(f"Error: No record found for DocNo '{docno}' with code '{code}' or dockey is missing. Cannot delete.") + else: + print(f"Error: Could not retrieve existing document data for DocNo '{docno}'. Cannot delete.") + +if __name__ == "__main__": + sliv_api = SLIVApiClient(base_url=url) # Initialize with the base URL defined earlier + + # Example: Fetch List data + answer = input("Continue Get document List? (y/n): ") + if answer.lower() in ["y","yes"]: + print("--- Fetching Sales documents (Offset 0, Limit 10) ---") + sliv_api.get_SLIV_data(offset=0) + + print("\n" + "="*50 + "\n") + + answer = input("Continue Get document next list? (y/n): ") + if answer.lower() in ["y","yes"]: + print("--- Fetching Sales Invoices (Offset 10, Limit 10) ---") + sliv_api.get_SLIV_data(offset=10) # Start from Record 11 (i.e. skip 1st 10 records) + + print("\n" + "="*50 + "\n") + + # Example: Get Single DocNo + answer = input("Continue Get Single DocNo? (y/n): ") + if answer.lower() in ["y","yes"]: + vdata = input("Enter Search Value : ") + afld = 'DocNo' + afld = input(f"Enter Search Field : {afld} ") + print(f"--- Getting Single Doc : {vdata} & Search field {afld}---") + sliv_api.get_SLIV_Single(vdata, AFld=afld) + + print("\n" + "="*50 + "\n") + + # Example: Get PDF + answer = input("Continue Downloading PDF? (y/n): ") + if answer.lower() in ["y","yes"]: + desktop_path = os.path.expanduser("~\Desktop") # Cross-platform way to get Desktop path + vDocNo = input("Enter Search Value : ") + print(f"\n--- Downloading PDF for '{vDocNo}' to {desktop_path} ---") + sliv_api.get_SLIV_PDF(vDocNo, sRptName, desktop_path) + + print("\n" + "="*50 + "\n") + + # Example: Create document + answer = input("Continue Creating New document? (y/n): ") + if answer.lower() in ["y","yes"]: + print(f"\n--- Creating document from '{json_path_new}.json' ---") + sliv_api.create_SLIV(f'{json_path_new}.json') # Ensure this path is correct for your setup + + print("\n" + "="*50 + "\n") + print(f"--- Getting Newly Created document '{sDocNo}' ---") + sliv_api.get_SLIV_Single(sDocNo) + + print("\n" + "="*50 + "\n") + + # Example: Edit document + answer = input("Continue Updating document? (y/n): ") + if answer.lower() in ["y","yes"]: + print(f"\n--- Updating document '{sDocNo}' with '{json_path_edit}.json' ---") + sliv_api.update_SLIV(sDocNo,'300-G0002', f'{json_path_edit}.json') # Ensure paths are correct + + print("\n" + "="*50 + "\n") + print(f"--- Getting Updated document '{sDocNo}' ---") + sliv_api.get_SLIV_Single(sDocNo) + + print("\n" + "="*50 + "\n") + + # Example: Delete document + answer = input("Continue Deleting document? (y/n): ") + if answer.lower() in ["y","yes"]: + print(f"\n--- Deleting document '{sDocNo}' (code '300-G0002') ---") + sliv_api.delete_SLIV(sDocNo,'300-G0002') + + print("\n--- End of Script ---") + +``` + +
+
+
+### Sales Order to Sales Invoice
+
+Purchase Invoice - Get List, PDF, Add, Update & Delete Function - click to expand
+ +```python +#Updated 20 Aug 2025 +import os +import requests +import json +import APICommon + +# Centralized API configuration from APICommon.py +session_token = os.environ.get('AWS_SESSION_TOKEN') +access_key = APICommon.access_key +secret_key = APICommon.secret_key +service = APICommon.service +host = APICommon.host +region = APICommon.region + +# Base URL for the Purchase Invoice API +url = f'https://{host}/purchaseinvoice' +json_path = '..\\API\\' + +class PHPIApiClient(APICommon.BaseApiClient): + """ + Client for the Purchase Invoice (PHPI) API, inheriting common functionality from BaseApiClient. + """ + def __init__(self, base_url: str): + super().__init__( + service=service, + host=host, + region=region, + access_key=access_key, + secret_key=secret_key, + session_token=session_token + ) + self.base_url = base_url + + def get_PHPI_data(self, offset: int = 0, limit: int = 10): + """ + Retrieves Purchase invoice data with pagination. + + Args: + offset (int): The number of records to skip. Defaults to 0. + limit (int): The maximum number of records to shown. Defaults to 10. + """ + query_params = f'offset={offset}' + full_url = f'{self.base_url}?{query_params}' + + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + APICommon.auto_parse_json(data, limit=limit) # Automatically parse and display JSON + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + + def get_PHPI_Single(self, ADocNo, ACode: str, ShowResult: bool = True): + """ + Retrieves a single Purchase invoice record by document number. + + Args: + ADocNo (str): The document number of the Purchase invoice. + ShowResult (bool): If True, automatically parses and prints the result. + If False, returns the JSON response. Defaults to True. + + Returns: + dict or None: The parsed JSON data if ShowResult is False and successful, None otherwise. + """ + full_url = f'{self.base_url}/*?docno={ADocNo}&code={ACode}' #*?docno=PI-00001&code=400-A0001 + #full_url = f'{self.base_url}/35' #Find by Dockey + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + if ShowResult: + APICommon.auto_parse_json(data) # Automatically parse and display JSON + else: + return data + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + return None + + def get_PHPI_PDF(self, ADocNo, ACode: str, report_name: str, save_path: str): + """ + Downloads a Purchase invoice as a PDF. + + Args: + ADocNo (str): The document number of the Purchase invoice. + report_name (str): The template name for the PDF report (e.g., 'Purchase Invoice 8 (SST 1)'). + save_path (str): The directory where the PDF should be saved. + """ + data = self.get_PHPI_Single(ADocNo, ACode, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + full_url = f'{self.base_url}/{dockey}' + print(f"URL : {full_url}") + + custom_headers = { + 'Content-Type': f'application/pdf;template={report_name}' + } + + print(f"Attempting to download PDF invoice for DocNo: {ADocNo} using template: {report_name}") + print(f"\nRemember to check the '{save_path}' folder for the downloaded PDF.") + + response = self._send_request("GET", full_url, custom_headers=custom_headers) + if response: + try: + output_filename = f"Purchase_invoice_{ADocNo}.pdf" + full_save_path = os.path.join(save_path, output_filename) + + # Ensure the directory exists + os.makedirs(os.path.dirname(full_save_path), exist_ok=True) + + # Write the content to a file in binary mode + with open(full_save_path, 'wb') as pdf_file: + for chunk in response.iter_content(chunk_size=8192): + if chunk: # Filter out keep-alive chunks + pdf_file.write(chunk) + + print(f"PDF for DocNo '{ADocNo}' with template '{report_name}' successfully downloaded to: {save_path}") + except IOError as e: + print(f"Error saving PDF to file: {e}") + except Exception as e: + print(f"An unexpected error occurred during PDF saving: {e}") + + def create_PHPI(self, file_path: str): + """ + Creates a new Purchase invoice from a JSON payload file. + + Args: + file_path (str): The path to the JSON file containing the invoice data. + """ + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + self._send_request("POST", self.base_url, payload=payload_str) + + def update_PHPI(self, docno: str, code: str, file_path: str): + """ + Updates an existing Purchase invoice record. + + Args: + docno (str): The document number of the invoice to update. + code (str): The code associated with the invoice (used for verification). + file_path (str): The path to the JSON file containing the updated invoice data. + """ + # Retrieve necessary fields from the existing record + data = self.get_PHPI_Single(docno, code, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + cocode = APICommon.get_field_value(data, "code") + updatecount = APICommon.get_field_value(data, "updatecount") + print(f"Retrieved updatecount: {updatecount}") + + if dockey is not None and str(cocode) == code: # Ensure code matches for the right document + APICommon.update_updatecount(file_path, updatecount) + + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + full_url = f'{self.base_url}/{dockey}' + print(f"Attempting to update invoice at: {full_url}") + self._send_request("PUT", full_url, payload=payload_str) + else: + print(f"Error: No record found for DocNo '{docno}' with code '{code}' or dockey is missing.") + else: + print(f"Error: Could not retrieve existing invoice data for DocNo '{docno}'. Cannot update.") + + def delete_PHPI1(self, dockey: str): + """ + Deletes a Purchase invoice by its dockey (document key). + + Args: + dockey (str): The document key of the invoice to delete. + """ + full_url = f'{self.base_url}/{dockey}' + self._send_request("DELETE", full_url) + + def delete_PHPI(self, docno: str, code: str): + """ + Deletes a Purchase invoice by its document number and code. + First retrieves the dockey using docno and code for verification. + + Args: + docno (str): The document number of the invoice to delete. + code (str): The code associated with the invoice. + """ + data = self.get_PHPI_Single(docno, code, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + cocode = APICommon.get_field_value(data, "code") + + if dockey is not None and str(cocode) == code: # Ensure code matches for the right document + full_url = f'{self.base_url}/{dockey}' + print(f"Attempting to delete invoice at: {full_url}") + self._send_request("DELETE", full_url) + else: + print(f"Error: No record found for DocNo '{docno}' with code '{code}' or dockey is missing. Cannot delete.") + else: + print(f"Error: Could not retrieve existing invoice data for DocNo '{docno}'. Cannot delete.") + +if __name__ == "__main__": + PHPI_api = PHPIApiClient(base_url=url) # Initialize with the base URL defined earlier + + # Example: Fetch List data + answer = input("Continue Get Invoice List? (y/n): ") + if answer.lower() in ["y","yes"]: + print("--- Fetching Purchase Invoices (Offset 0, Limit 10) ---") + PHPI_api.get_PHPI_data(offset=0) + + print("\n" + "="*50 + "\n") + + answer = input("Continue Get Invoice next list? (y/n): ") + if answer.lower() in ["y","yes"]: + print("--- Fetching Purchase Invoices (Offset 10, Limit 10) ---") + PHPI_api.get_PHPI_data(offset=10) # Start from Record 11 (i.e. skip 1st 10 records) + + print("\n" + "="*50 + "\n") + + # Example: Get Single DocNo + answer = input("Continue Get Single DocNo? (y/n): ") + if answer.lower() in ["y","yes"]: + print("--- Getting Single Purchase Invoice 'PI-00002' ---") + PHPI_api.get_PHPI_Single('PI-00002','400-E0001') + + print("\n" + "="*50 + "\n") + + # Example: Get PDF + answer = input("Continue Downloading PDF? (y/n): ") + if answer.lower() in ["y","yes"]: + desktop_path = os.path.expanduser("~\Desktop") # Cross-platform way to get Desktop path + print(f"\n--- Downloading PDF for 'PI-00002' to {desktop_path} ---") + PHPI_api.get_PHPI_PDF('PI-00002', '400-N0001', 'Purchase Invoice 8 (SST 1)', desktop_path) + + print("\n" + "="*50 + "\n") + + # Example: Create Invoice + answer = input("Continue Creating New Invoice? (y/n): ") + if answer.lower() in ["y","yes"]: + print(f"\n--- Creating Invoice from '{json_path}PH_PI-New.json' ---") + PHPI_api.create_PHPI(f'{json_path}PH_PI-New.json') # Ensure this path is correct for your setup + + print("\n" + "="*50 + "\n") + print("--- Getting Newly Created Invoice '--PI-Test1--' ---") + PHPI_api.get_PHPI_Single('--PI-Test1--','400-E0001') + + print("\n" + "="*50 + "\n") + + # Example: Edit Invoice + answer = input("Continue Updating Invoice? (y/n): ") + if answer.lower() in ["y","yes"]: + print(f"\n--- Updating Invoice 'IV-Test1' with '{json_path}PH_PI-Edit.json' ---") + PHPI_api.update_PHPI('--PI-Test1--','400-E0001', f'{json_path}PH_PI-Edit.json') # Ensure paths are correct + + print("\n" + "="*50 + "\n") + print("--- Getting Updated Invoice '--PI-Test1--' ---") + PHPI_api.get_PHPI_Single('--PI-Test1--','400-E0001') + + print("\n" + "="*50 + "\n") + + # Example: Delete Invoice + answer = input("Continue Deleting Invoice? (y/n): ") + if answer.lower() in ["y","yes"]: + print("\n--- Deleting Invoice '--PI-Test1--' (code '400-E0001') ---") + PHPI_api.delete_PHPI('--PI-Test1--','400-E0001') + + print("\n--- End of Script ---") + +``` + +
+
+
+### Customer Payment
+
+Transfer from Sales Order to Sales Invoice - click to expand
+ +```python +#Updated 20 Aug 2025 +import os +import requests +import json +import APICommon + +# Centralized API configuration from APICommon.py +session_token = os.environ.get('AWS_SESSION_TOKEN') +access_key = APICommon.access_key +secret_key = APICommon.secret_key +service = APICommon.service +host = APICommon.host +region = APICommon.region + +# Base URL for the Sales Invoice API +url = f'https://{host}/salesinvoice' +json_path = '..\\API\\' + +class SLIVApiClient(APICommon.BaseApiClient): + """ + Client for the Sales Invoice (SLIV) API, inheriting common functionality from BaseApiClient. + """ + def __init__(self, base_url: str): + super().__init__( + service=service, + host=host, + region=region, + access_key=access_key, + secret_key=secret_key, + session_token=session_token + ) + self.base_url = base_url + + def get_SLIV_data(self, offset: int = 0, limit: int = 10): + """ + Retrieves sales invoice data with pagination. + + Args: + offset (int): The number of records to skip. Defaults to 0. + limit (int): The maximum number of records to shown. Defaults to 10. + """ + query_params = f'offset={offset}' + full_url = f'{self.base_url}?{query_params}' + + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + APICommon.auto_parse_json(data, limit=limit) # Automatically parse and display JSON + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + + def get_SLIV_Single(self, ADocNo: str, ShowResult: bool = True): + """ + Retrieves a single sales invoice record by document number. + + Args: + ADocNo (str): The document number of the sales invoice. + ShowResult (bool): If True, automatically parses and prints the result. + If False, returns the JSON response. Defaults to True. + + Returns: + dict or None: The parsed JSON data if ShowResult is False and successful, None otherwise. + """ + full_url = f'{self.base_url}/*?docno={ADocNo}' + #full_url = f'{self.base_url}/35' #Find by Dockey + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + if ShowResult: + APICommon.auto_parse_json(data) # Automatically parse and display JSON + else: + return data + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + return None + + def get_SLIV_PDF(self, ADocNo: str, report_name: str, save_path: str): + """ + Downloads a sales invoice as a PDF. + + Args: + ADocNo (str): The document number of the sales invoice. + report_name (str): The template name for the PDF report (e.g., 'Sales Invoice 8 (SST 1)'). + save_path (str): The directory where the PDF should be saved. + """ + data = self.get_SLIV_Single(ADocNo, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + full_url = f'{self.base_url}/{dockey}' + + custom_headers = { + 'Content-Type': f'application/pdf;template={report_name}' + } + + print(f"Attempting to download PDF invoice for DocNo: {ADocNo} using template: {report_name}") + print(f"\nRemember to check the '{save_path}' folder for the downloaded PDF.") + + response = self._send_request("GET", full_url, custom_headers=custom_headers) + if response: + try: + output_filename = f"sales_invoice_{ADocNo}.pdf" + full_save_path = os.path.join(save_path, output_filename) + + # Ensure the directory exists + os.makedirs(os.path.dirname(full_save_path), exist_ok=True) + + # Write the content to a file in binary mode + with open(full_save_path, 'wb') as pdf_file: + for chunk in response.iter_content(chunk_size=8192): + if chunk: # Filter out keep-alive chunks + pdf_file.write(chunk) + + print(f"PDF for DocNo '{ADocNo}' with template '{report_name}' successfully downloaded to: {save_path}") + except IOError as e: + print(f"Error saving PDF to file: {e}") + except Exception as e: + print(f"An unexpected error occurred during PDF saving: {e}") + + def create_SLIV(self, file_path: str): + """ + Creates a new sales invoice from a JSON payload file. + + Args: + file_path (str): The path to the JSON file containing the invoice data. + """ + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + self._send_request("POST", self.base_url, payload=payload_str) + + def update_SLIV(self, docno: str, code: str, file_path: str): + """ + Updates an existing sales invoice record. + + Args: + docno (str): The document number of the invoice to update. + code (str): The code associated with the invoice (used for verification). + file_path (str): The path to the JSON file containing the updated invoice data. + """ + # Retrieve necessary fields from the existing record + data = self.get_SLIV_Single(docno, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + cocode = APICommon.get_field_value(data, "code") + updatecount = APICommon.get_field_value(data, "updatecount") + print(f"Retrieved updatecount: {updatecount}") + + if dockey is not None and str(cocode) == code: # Ensure code matches for the right document + APICommon.update_updatecount(file_path, updatecount) + + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + full_url = f'{self.base_url}/{dockey}' + print(f"Attempting to update invoice at: {full_url}") + self._send_request("PUT", full_url, payload=payload_str) + else: + print(f"Error: No record found for DocNo '{docno}' with code '{code}' or dockey is missing.") + else: + print(f"Error: Could not retrieve existing invoice data for DocNo '{docno}'. Cannot update.") + + def delete_SLIV1(self, dockey: str): + """ + Deletes a sales invoice by its dockey (document key). + + Args: + dockey (str): The document key of the invoice to delete. + """ + full_url = f'{self.base_url}/{dockey}' + self._send_request("DELETE", full_url) + + def delete_SLIV(self, docno: str, code: str): + """ + Deletes a sales invoice by its document number and code. + First retrieves the dockey using docno and code for verification. + + Args: + docno (str): The document number of the invoice to delete. + code (str): The code associated with the invoice. + """ + data = self.get_SLIV_Single(docno, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + cocode = APICommon.get_field_value(data, "code") + + if dockey is not None and str(cocode) == code: # Ensure code matches for the right document + full_url = f'{self.base_url}/{dockey}' + print(f"Attempting to delete invoice at: {full_url}") + self._send_request("DELETE", full_url) + else: + print(f"Error: No record found for DocNo '{docno}' with code '{code}' or dockey is missing. Cannot delete.") + else: + print(f"Error: Could not retrieve existing invoice data for DocNo '{docno}'. Cannot delete.") + +if __name__ == "__main__": + sliv_api = SLIVApiClient(base_url=url) # Initialize with the base URL defined earlier + + # Example: Create Invoice + answer = input("Continue Creating New Invoice? (y/n): ") + if answer.lower() in ["y","yes"]: + print(f"\n--- Creating Invoice from '{json_path}SL_SO2SL_IV.json' ---") + sliv_api.create_SLIV(f'{json_path}SL_SO2SL_IV.json') # Ensure this path is correct for your setup + + print("\n" + "="*50 + "\n") + print("--- Getting Newly Created Invoice '--IV-Test1--' ---") + sliv_api.get_SLIV_Single('--IV-Test1--') + + print("\n" + "="*50 + "\n") + + # Example: Get PDF + answer = input("Continue Downloading PDF? (y/n): ") + if answer.lower() in ["y","yes"]: + desktop_path = os.path.expanduser("~\Desktop") # Cross-platform way to get Desktop path + print(f"\n--- Downloading PDF for '--IV-Test1--' to {desktop_path} ---") + sliv_api.get_SLIV_PDF('--IV-Test1--', 'Sales Invoice 8 (SST 1)', desktop_path) + + print("\n" + "="*50 + "\n") + + # Example: Delete Invoice + answer = input("Continue Deleting Invoice? (y/n): ") + if answer.lower() in ["y","yes"]: + print("\n--- Deleting Invoice '--IV-Test1--' (code '300-W0002') ---") + sliv_api.delete_SLIV('--IV-Test1--','300-W0002') + + print("\n--- End of Script ---") + +``` + +
+
+
+### Stock Item
+
+Customer Payment - Get List, PDF, Add, Update & Delete Function - click to expand
+ +```python +#Updated 18 Oct 2025 +import os +import requests +import json +import APICommon +import urllib.parse + +# Centralized API configuration from APICommon.py +session_token = os.environ.get('AWS_SESSION_TOKEN') +access_key = APICommon.access_key +secret_key = APICommon.secret_key +service = APICommon.service +host = APICommon.host +region = APICommon.region + +# Base URL for the Customer Payment API +url = f'https://{host}/customerpayment' +json_path_new = '..\\API\\AR_PM-New' +json_path_edit = '..\\API\\AR_PM-Edit' +sDocNo = '--PM-Test--' +sRptName = 'GL Official Receipt - Detail - Full (with other CNnOR info)' + +class ARPMApiClient(APICommon.BaseApiClient): + """ + Client for the Customer Payment (ARPM) API, inheriting common functionality from BaseApiClient. + """ + def __init__(self, base_url: str): + super().__init__( + service=service, + host=host, + region=region, + access_key=access_key, + secret_key=secret_key, + session_token=session_token + ) + self.base_url = base_url + + def get_ARPM_data(self, offset: int = 0, limit: int = 10): + """ + Retrieves Customer Payment data with pagination. + + Args: + offset (int): The number of records to skip. Defaults to 0. + limit (int): The maximum number of records to shown. Defaults to 10. + """ + query_params = f'offset={offset}' + full_url = f'{self.base_url}?{query_params}' + + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + APICommon.auto_parse_json(data, limit=limit) # Automatically parse and display JSON + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + + def get_ARPM_Single(self, ADocNo: str, ShowResult: bool = True): + """ + Retrieves a single Customer Payment record by document number. + + Args: + ADocNo (str): The document number of the Customer Payment. + ShowResult (bool): If True, automatically parses and prints the result. + If False, returns the JSON response. Defaults to True. + + Returns: + dict or None: The parsed JSON data if ShowResult is False and successful, None otherwise. + """ + lDocNo = urllib.parse.quote(ADocNo) # To avoid problem when string have space + full_url = f'{self.base_url}/*?docno={lDocNo}' + #full_url = f'{self.base_url}/35' #Find by Dockey + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + if ShowResult: + APICommon.auto_parse_json(data) # Automatically parse and display JSON + else: + return data + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + return None + + def get_ARPM_PDF(self, ADocNo: str, report_name: str, save_path: str): + """ + Downloads a Customer Payment as a PDF. + + Args: + ADocNo (str): The document number of the Customer Payment. + report_name (str): The template name for the PDF report (e.g., 'Customer Payment 8 (SST 1)'). + save_path (str): The directory where the PDF should be saved. + """ + data = self.get_ARPM_Single(ADocNo, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + full_url = f'{self.base_url}/{dockey}' + + custom_headers = { + 'Content-Type': f'application/pdf;template={report_name}' + } + + print(f"Attempting to download PDF Payment for DocNo: {ADocNo} using template: {report_name}") + print(f"\nRemember to check the '{save_path}' folder for the downloaded PDF.") + + response = self._send_request("GET", full_url, custom_headers=custom_headers) + if response: + try: + output_filename = f"{sRptName}_{ADocNo}.pdf" + full_save_path = os.path.join(save_path, output_filename) + + # Ensure the directory exists + os.makedirs(os.path.dirname(full_save_path), exist_ok=True) + + # Write the content to a file in binary mode + with open(full_save_path, 'wb') as pdf_file: + for chunk in response.iter_content(chunk_size=8192): + if chunk: # Filter out keep-alive chunks + pdf_file.write(chunk) + + print(f"PDF for DocNo '{ADocNo}' with template '{report_name}' successfully downloaded to: {save_path}") + except IOError as e: + print(f"Error saving PDF to file: {e}") + except Exception as e: + print(f"An unexpected error occurred during PDF saving: {e}") + + def create_ARPM(self, file_path: str): + """ + Creates a new Customer Payment from a JSON payload file. + + Args: + file_path (str): The path to the JSON file containing the Payment data. + """ + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + self._send_request("POST", self.base_url, payload=payload_str) + + def update_ARPM(self, docno: str, file_path: str): + """ + Updates an existing Customer Payment record. + + Args: + docno (str): The document number of the Payment to update. + file_path (str): The path to the JSON file containing the updated Payment data. + """ + # Retrieve necessary fields from the existing record + data = self.get_ARPM_Single(docno, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + updatecount = APICommon.get_field_value(data, "updatecount") + print(f"Retrieved updatecount: {updatecount}") + + if dockey is not None: + APICommon.update_updatecount(file_path, updatecount) + + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + full_url = f'{self.base_url}/{dockey}' + print(f"Attempting to update Payment at: {full_url}") + self._send_request("PUT", full_url, payload=payload_str) + else: + print(f"Error: No record found for DocNo '{docno}' or dockey is missing.") + else: + print(f"Error: Could not retrieve existing Payment data for DocNo '{docno}'. Cannot update.") + + def delete_ARPM1(self, dockey: str): + """ + Deletes a Customer Payment by its dockey (document key). + + Args: + dockey (str): The document key of the Payment to delete. + """ + full_url = f'{self.base_url}/{dockey}' + self._send_request("DELETE", full_url) + + def delete_ARPM(self, docno: str, code: str): + """ + Deletes a Customer Payment by its document number and code. + First retrieves the dockey using docno and code for verification. + + Args: + docno (str): The document number of the Payment to delete. + code (str): The code associated with the Payment. + """ + data = self.get_ARPM_Single(docno, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + cocode = APICommon.get_field_value(data, "code") + + if dockey is not None and str(cocode) == code: # Ensure code matches for the right document + full_url = f'{self.base_url}/{dockey}' + print(f"Attempting to delete Payment at: {full_url}") + self._send_request("DELETE", full_url) + else: + print(f"Error: No record found for DocNo '{docno}' with code '{code}' or dockey is missing. Cannot delete.") + else: + print(f"Error: Could not retrieve existing Payment data for DocNo '{docno}'. Cannot delete.") + +if __name__ == "__main__": + ARPM_api = ARPMApiClient(base_url=url) # Initialize with the base URL defined earlier + + # Example: Fetch List data + answer = input("Continue Get Payment List? (y/n): ") + if answer.lower() in ["y","yes"]: + print("--- Fetching Customer Payments (Offset 0, Limit 10) ---") + ARPM_api.get_ARPM_data(offset=0) + + print("\n" + "="*50 + "\n") + + answer = input("Continue Get Payment next list? (y/n): ") + if answer.lower() in ["y","yes"]: + print("--- Fetching Customer Payments (Offset 10, Limit 10) ---") + ARPM_api.get_ARPM_data(offset=10) # Start from Record 11 (i.e. skip 1st 10 records) + + print("\n" + "="*50 + "\n") + + # Example: Get Single DocNo + answer = input("Continue Get Single DocNo? (y/n): ") + if answer.lower() in ["y","yes"]: + print("--- Getting Single Customer Payment 'OR-00008' ---") + ARPM_api.get_ARPM_Single('OR-00008') + + print("\n" + "="*50 + "\n") + + # Example: Get PDF + answer = input("Continue Downloading PDF? (y/n): ") + if answer.lower() in ["y","yes"]: + desktop_path = os.path.expanduser("~\Desktop") # Cross-platform way to get Desktop path + print(f"\n--- Downloading PDF for 'OR-00008' to {desktop_path} ---") + ARPM_api.get_ARPM_PDF('OR-00008', sRptName, desktop_path) + + print("\n" + "="*50 + "\n") + + # Example: Create Payment + answer = input("Continue Creating New Payment? (y/n): ") + if answer.lower() in ["y","yes"]: + print(f"\n--- Creating Payment from '{json_path_new}.json' ---") + ARPM_api.create_ARPM(f'{json_path_new}.json') # Ensure this path is correct for your setup + + print("\n" + "="*50 + "\n") + print(f"--- Getting Newly Created Payment '{sDocNo}' ---") + ARPM_api.get_ARPM_Single(sDocNo) + + print("\n" + "="*50 + "\n") + + # Example: Edit Payment + answer = input("Continue Updating Payment? (y/n): ") + if answer.lower() in ["y","yes"]: + print(f"\n--- Updating Payment '{sDocNo}' with '{json_path_edit}.json' ---") + ARPM_api.update_ARPM(sDocNo, f'{json_path_edit}.json') # Ensure paths are correct + + print("\n" + "="*50 + "\n") + print(f"--- Getting Updated Payment '{sDocNo}' ---") + ARPM_api.get_ARPM_Single(sDocNo) + + print("\n" + "="*50 + "\n") + + # Example: Delete Payment + answer = input("Continue Deleting Payment? (y/n): ") + if answer.lower() in ["y","yes"]: + print(f"\n--- Deleting Payment '{sDocNo}' (code '300-G0002') ---") + ARPM_api.delete_ARPM(sDocNo,'300-G0002') + + print("\n--- End of Script ---") + +``` + +
+
+
+### Maintain Customer
+
+Stock Item - Get List, Add, Update & Delete Function - click to expand
+ +```python +#Updated 18 Oct 2025 +import os +import requests +import json +import APICommon +from urllib.parse import quote + +# Centralized API configuration from APICommon.py +session_token = os.environ.get('AWS_SESSION_TOKEN') +access_key = APICommon.access_key +secret_key = APICommon.secret_key +service = APICommon.service +host = APICommon.host +region = APICommon.region + +# Base URL for the Stock Item API +url = f'https://{host}/stockitem' +json_path_new = '..\\API\\ST_Item-New' # Path to your payload files +json_path_edit = '..\\API\\ST_Item-Edit' +sCode = 'OISHI250' + +class StockItemApiClient(APICommon.BaseApiClient): + """ + Client for the Stock Item API, inheriting common functionality from BaseApiClient. + """ + def __init__(self, base_url: str): + super().__init__( + service=service, + host=host, + region=region, + access_key=access_key, + secret_key=secret_key, + session_token=session_token + ) + self.base_url = base_url + + def get_stock_items(self, offset: int = 0, limit: int = 10): + """ + Retrieves stock items with pagination. + + Args: + offset (int): The number of records to skip. Defaults to 0. + limit (int): The maximum number of records to shown. Defaults to 10. + """ + query_params = f'offset={offset}' + full_url = f'{self.base_url}?{query_params}' + print(full_url) + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + APICommon.auto_parse_json(data, limit=limit) + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + + def get_stock_item_single(self, code: str, ShowResult: bool = True): + """ + Retrieves a single stock item by code. + + Args: + code (str): The code of the stock group item. + ShowResult (bool): If True, automatically parses and prints the result. + If False, returns the JSON response. Defaults to True. + + Returns: + dict or None: The parsed JSON data if ShowResult is False and successful, None otherwise. + """ + aCode = quote(code, safe='') #Avoid invalid char for URL + full_url = f'{self.base_url}/*?code={aCode}' + print(full_url) + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + if ShowResult: + APICommon.auto_parse_json(data) # Automatically parse and display JSON + else: + return data + + dockey = data["data"][0]["dockey"] + + # Fetch the item by dockey + full_url = f"{self.base_url}/{dockey}" + response = self._send_request("GET", full_url) + if response: + data = response.json() + if ShowResult: + APICommon.auto_parse_json(data) + else: + return data + + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + return None + + def create_stock_item(self, file_path: str): + """ + Creates a new stock item from a JSON payload file. + + Args: + file_path (str): The path to the JSON file containing the stock item data. + """ + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + self._send_request("POST", self.base_url, payload=payload_str) + + def update_stock_item(self, code: str, file_path: str): + """ + Updates an existing stock item record. + + Args: + code (str): The code of the stock item to update. + file_path (str): The path to the JSON file containing the updated stock item data. + """ + # Retrieve necessary fields from the existing record + data = self.get_stock_item_single(code, ShowResult=False) + if data: + dockey = APICommon.get_field_value(data, "dockey") + cocode = APICommon.get_field_value(data, "code") + + if dockey is not None and str(cocode) == code: # Ensure code matches + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + full_url = f'{self.base_url}/{dockey}' + print(f"Attempting to update stock item at: {full_url}") + self._send_request("PUT", full_url, payload=payload_str) + else: + print(f"Error: Could not find updatecount for stock item '{code}'") + else: + print(f"Error: Could not retrieve stock item data for code '{code}'.") + + def delete_stock_item(self, code: str): + """ + Deletes a stock item by code. + + Args: + code (str): The code associated with the stock item. + """ + data = self.get_stock_item_single(code, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + cocode = APICommon.get_field_value(data, "code") + + if dockey is not None and str(cocode) == code: # Ensure code matches for the right document + full_url = f'{self.base_url}/{dockey}' + print(f"Attempting to delete stock item at: {full_url}") + self._send_request("DELETE", full_url) + + else: + print(f"Error: No record found for Code '{code}' or Dockey is missing. Cannot delete.") + else: + print(f"Error: Could not retrieve existing Stock Item data for Code '{code}'. Cannot delete.") + + +if __name__ == "__main__": + stock_api = StockItemApiClient(base_url=url) + + # Example: Fetch stock item list + answer = input("Get Stock Item List? (y/n): ") + if answer.lower() in ["y", "yes"]: + print("--- Fetching Stock Items (Offset 0, Limit 10) ---") + stock_api.get_stock_items(offset=0) + + print("\n" + "=" * 50 + "\n") + + # Example: Fetch next stock item list + answer = input("Continue Get Stock Item next list? (y/n): ") + if answer.lower() in ["y", "yes"]: + print("--- Fetching Stock Items (Offset 50, Limit 10) ---") + stock_api.get_stock_items(offset=50) + + print("\n" + "=" * 50 + "\n") + + # Example: Fetch Single Stock Item + answer = input("Continue Get Single Stock Item? (y/n): ") + if answer.lower() in ["y", "yes"]: + code = input("Enter Stock Item Code: ") + stock_api.get_stock_item_single(code) + + print("\n" + "=" * 50 + "\n") + + # Example: Create Stock Item + answer = input("Continue Creating New Stock Item? (y/n): ") + if answer.lower() in ["y", "yes"]: + print(f"\n--- Creating Stock Item from '{json_path_new}.json' ---") + stock_api.create_stock_item(f'{json_path_new}.json') # Ensure this path is correct for your setup + + print("\n" + "=" * 50 + "\n") + print(f"--- Getting Newly Created Stock Item '{sCode}' ---") + stock_api.get_stock_item_single(sCode) + + print("\n" + "="*50 + "\n") + + # Example: Update Stock Item + answer = input("Continue Updating Stock Item? (y/n): ") + if answer.lower() in ["y", "yes"]: + print(f"\n--- Updating Stock Item '{sCode}' with '{json_path_edit}.json' ---") + stock_api.update_stock_item(sCode, f'{json_path_edit}.json') # Ensure paths is correct + + print("\n" + "=" * 50 + "\n") + print(f"--- Getting Updated Stock Item '{sCode}' ---") + stock_api.get_stock_item_single(sCode) + + print("\n" + "=" * 50 + "\n") + + # Example: Delete Stock Item + answer = input("Continue Deleting Stock Item? (y/n): ") + if answer.lower() in ["y", "yes"]: + code = input("Enter Stock Item Code to delete: ") + print(f"--- Deleting Stock Item '{code}' ---") + stock_api.delete_stock_item(code) + + print("\n--- End of Script ---") + +``` + +
+
+
+Maintain Customer - Get List, Add, Update & Delete Function - click to expand
+ +```python +#Updated 25 Aug 2025 +import os +import requests +import json +import APICommon +import urllib.parse + +# Centralized API configuration from APICommon.py +session_token = os.environ.get('AWS_SESSION_TOKEN') +access_key = APICommon.access_key +secret_key = APICommon.secret_key +service = APICommon.service +host = APICommon.host +region = APICommon.region + +# Base URL for the AR Customer API +url = f'https://{host}/customer' +json_path = '..\\API\\' # Path to your payload files + +class ARCustApiClient(APICommon.BaseApiClient): + """ + Client for the AR Customer API, inheriting common functionality from BaseApiClient. + """ + def __init__(self, base_url: str): + super().__init__( + service=service, + host=host, + region=region, + access_key=access_key, + secret_key=secret_key, + session_token=session_token + ) + self.base_url = base_url + + def get_ar_cust(self, offset: int = 0, limit: int = 10): + """ + Retrieves AR Customers with pagination. + + Args: + offset (int): The number of records to skip. Defaults to 0. + limit (int): The maximum number of records to shown. Defaults to 10. + """ + query_params = f'offset={offset}' + full_url = f'{self.base_url}?{query_params}' + + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + APICommon.auto_parse_json(data, limit=limit) + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + + def get_ar_cust_single(self, code: str, ShowResult: bool = True): + """ + Retrieves a single AR Customer by code. + + Args: + code (str): The code of the stock group item. + ShowResult (bool): If True, automatically parses and prints the result. + If False, returns the JSON response. Defaults to True. + + Returns: + dict or None: The parsed JSON data if ShowResult is False and successful, None otherwise. + """ + + try: + ACode = urllib.parse.quote(code) # To avoid problem when string have space + full_url = f'{self.base_url}/*?code={ACode}' + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + if ShowResult: + APICommon.auto_parse_json(data) # Automatically parse and display JSON + else: + return data + + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + + except Exception as e: + print(f"Error processing response JSON: {e}") + + def create_ar_cust(self, file_path: str): + """ + Creates a new AR Customer from a JSON payload file. + + Args: + file_path (str): The path to the JSON file containing the AR Customer data. + """ + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + self._send_request("POST", self.base_url, payload=payload_str) + + def update_ar_cust(self, code: str, file_path: str): + """ + Updates an existing AR Customer record. + + Args: + code (str): The code of the AR Customer to update. + file_path (str): The path to the JSON file containing the updated AR Customer data. + """ + # Retrieve necessary fields from the existing record + data = self.get_ar_cust_single(code, False) + if data: + cocode = APICommon.get_field_value(data, "code") + + if str(cocode) == code: # Ensure code matches + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + full_url = f'{self.base_url}/{cocode}' + print(f"Attempting to update AR Customer at: {full_url}") + self._send_request("PUT", full_url, payload=payload_str) + else: + print(f"Error: Could not find updatecount for AR Customer '{code}'") + else: + print(f"Error: Could not retrieve AR Customer data for code '{code}'.") + + def delete_ar_cust(self, code: str): + """ + Deletes a AR Customer by code. + + Args: + code (str): The code associated with the AR Customer. + """ + data = self.get_ar_cust_single(code, ShowResult=False) + + if data: + cocode = APICommon.get_field_value(data, "code") + + if str(cocode) == code: # Ensure code matches + full_url = f'{self.base_url}/{code}' + print(f"Attempting to delete AR Customer at: {full_url}") + self._send_request("DELETE", full_url) + + else: + print(f"Error: No record found for Code '{code}'") + else: + print(f"Error: Could not retrieve existing AR Customer data for Code '{code}'. Cannot delete.") + + +if __name__ == "__main__": + stock_api = ARCustApiClient(base_url=url) + + # Example: Fetch AR Customer list + answer = input("Get AR Customer List? (y/n): ") + if answer.lower() in ["y", "yes"]: + print("--- Fetching AR Customers (Offset 0, Limit 10) ---") + stock_api.get_ar_cust(offset=0) + + print("\n" + "=" * 50 + "\n") + + # Example: Fetch next AR Customer list + answer = input("Continue Get AR Customer next list? (y/n): ") + if answer.lower() in ["y", "yes"]: + print("--- Fetching AR Customers (Offset 50, Limit 10) ---") + stock_api.get_ar_cust(offset=50) + + print("\n" + "=" * 50 + "\n") + + # Example: Fetch Single AR Customer + answer = input("Continue Get Single AR Customer? (y/n): ") + if answer.lower() in ["y", "yes"]: + code = input("Enter AR Customer Code: ") + stock_api.get_ar_cust_single(code) + + print("\n" + "=" * 50 + "\n") + + # Example: Create AR Customer + answer = input("Continue Creating New AR Customer? (y/n): ") + if answer.lower() in ["y", "yes"]: + print(f"\n--- Creating AR Customer from '{json_path}AR_Customer-New.json' ---") + stock_api.create_ar_cust(f'{json_path}AR_Customer-New.json') # Ensure this path is correct for your setup + + print("\n" + "=" * 50 + "\n") + print("--- Getting Newly Created AR Customer '0Test-Cust' ---") + stock_api.get_ar_cust_single('0Test-Cust') + + print("\n" + "="*50 + "\n") + + # Example: Update AR Customer + answer = input("Continue Updating AR Customer? (y/n): ") + if answer.lower() in ["y", "yes"]: + print(f"\n--- Updating AR Customer '0Test-Cust' with '{json_path}AR_Customer-Edit.json' ---") + stock_api.update_ar_cust('0Test-Cust', f'{json_path}AR_Customer-Edit.json') # Ensure paths is correct + + print("\n" + "=" * 50 + "\n") + print("--- Getting Updated AR Customer '0Test-Cust' ---") + stock_api.get_ar_cust_single('0Test-Cust') + + print("\n" + "=" * 50 + "\n") + + # Example: Delete AR Customer + answer = input("Continue Deleting AR Customer? (y/n): ") + if answer.lower() in ["y", "yes"]: + code = input("Enter AR Customer Code to delete: ") + print(f"--- Deleting AR Customer '{code}' ---") + stock_api.delete_ar_cust(code) + + print("\n--- End of Script ---") + +``` + +### Journal Entry + +
+
+
+### Stock Received
+
+Journal Entry - Get List, Add, Update & Delete Function - click to expand
+ +```python +#Updated 25 Sep 2025 - PDF not ready yet... +import os +import requests +import json +import APICommon + +# Centralized API configuration from APICommon.py +session_token = os.environ.get('AWS_SESSION_TOKEN') +access_key = APICommon.access_key +secret_key = APICommon.secret_key +service = APICommon.service +host = APICommon.host +region = APICommon.region + +# Base URL for the Journal Entry API +url = f'https://{host}/journalentry' +json_path = '..\\API\\GL_JE-' +sDocNo = '--JE-Test--' +sRptName = 'GL Journal Voucher - Half (SST)' + +class GLJEApiClient(APICommon.BaseApiClient): + """ + Client for the Journal Entry (GLJE) API, inheriting common functionality from BaseApiClient. + """ + def __init__(self, base_url: str): + super().__init__( + service=service, + host=host, + region=region, + access_key=access_key, + secret_key=secret_key, + session_token=session_token + ) + self.base_url = base_url + + def get_GLJE_data(self, offset: int = 0, limit: int = 10): + """ + Retrieves Journal Entry data with pagination. + + Args: + offset (int): The number of records to skip. Defaults to 0. + limit (int): The maximum number of records to shown. Defaults to 10. + """ + query_params = f'offset={offset}' + full_url = f'{self.base_url}?{query_params}' + + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + APICommon.auto_parse_json(data, limit=limit) # Automatically parse and display JSON + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + + def get_GLJE_Single(self, ADocNo: str, ShowResult: bool = True, AFld: str =''): + """ + Retrieves a single Journal Entry record by document number. + + Args: + ADocNo (str): The document number of the Journal Entry. + ShowResult (bool): If True, automatically parses and prints the result. + If False, returns the JSON response. Defaults to True. + AFld (str): Search field + + Returns: + dict or None: The parsed JSON data if ShowResult is False and successful, None otherwise. + """ + + """ + There got 3 type of GET: + 01. Get Detail => /salesJournal/*? + - Return Result with Detail Records + - only got this fields => code=&docdate=&docno=&postdate=&eiv_utc= + 02. Normal Get => /salesJournal? + - Return Result only Header Records + - eg lastmodified=1757557610 + 03. Get by Dockey /{Dockey} + + https://wiki.sql.com.my/wiki/Restful_API#How_many_ways_for_GET_Method_available%3F + """ + + vFld = AFld + if vFld == '': + vFld = 'DocNo' + vData = ADocNo + + aKey = '?' + if vFld.lower() in ["code", "docdate", "docno", "postdate", "eiv_utc"]: + aKey = '*?' + else: + if vFld.lower() == "dockey": + aKey = '' + + if vFld.lower() == "dockey": + full_url = f'{self.base_url}/{vData}' + else: + full_url = f'{self.base_url}/{aKey}{vFld}={vData}' + print(f"URL = {full_url}") + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + + # Base case for recursion: if we are already searching by dockey, we should not recurse again. + if vFld.lower() == "dockey": + if ShowResult: + APICommon.auto_parse_json(data) + return data + + # Recursive step: if not a dockey search, find the dockey and recurse. + if vFld.lower() in ["code", "docdate", "docno", "postdate", "eiv_utc"]: + if ShowResult: + APICommon.auto_parse_json(data) # Automatically parse and display JSON + else: + return data + else: + # This is the "normal get" which returns a header. We get the dockey from it. + vdockey = APICommon.get_field_value(data, "dockey") + if vdockey: + # Corrected recursive call: + return self.get_GLJE_Single(vdockey, AFld="Dockey") + else: + print("Error: 'dockey' not found in response.") + + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + return None + + def get_GLJE_PDF(self, ADocNo: str, report_name: str, save_path: str): + """ + Downloads a Journal Entry as a PDF. + + Args: + ADocNo (str): The document number of the Journal Entry. + report_name (str): The template name for the PDF report (e.g., 'GL Journal Voucher - Half (SST)'). + save_path (str): The directory where the PDF should be saved. + """ + data = self.get_GLJE_Single(ADocNo, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + full_url = f'{self.base_url}/{dockey}' + + custom_headers = { + 'Content-Type': f'application/pdf;template={report_name}' + } + + print(f"Attempting to download PDF Journal for DocNo: {ADocNo} using template: {report_name}") + print(f"\nRemember to check the '{save_path}' folder for the downloaded PDF.") + + response = self._send_request("GET", full_url, custom_headers=custom_headers) + if response: + try: + output_filename = f"GL_Journal_{ADocNo}.pdf" + full_save_path = os.path.join(save_path, output_filename) + + # Ensure the directory exists + os.makedirs(os.path.dirname(full_save_path), exist_ok=True) + + # Write the content to a file in binary mode + with open(full_save_path, 'wb') as pdf_file: + for chunk in response.iter_content(chunk_size=8192): + if chunk: # Filter out keep-alive chunks + pdf_file.write(chunk) + + print(f"PDF for DocNo '{ADocNo}' with template '{report_name}' successfully downloaded to: {save_path}") + except IOError as e: + print(f"Error saving PDF to file: {e}") + except Exception as e: + print(f"An unexpected error occurred during PDF saving: {e}") + + def create_GLJE(self, file_path: str): + """ + Creates a new Journal Entry from a JSON payload file. + + Args: + file_path (str): The path to the JSON file containing the Journal data. + """ + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + self._send_request("POST", self.base_url, payload=payload_str) + + def update_GLJE(self, docno: str, file_path: str): + """ + Updates an existing Journal Entry record. + + Args: + docno (str): The document number of the Journal to update. + file_path (str): The path to the JSON file containing the updated Journal data. + """ + # Retrieve necessary fields from the existing record + data = self.get_GLJE_Single(docno, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + updatecount = APICommon.get_field_value(data, "updatecount") + print(f"Retrieved updatecount: {updatecount}") + + if dockey is not None: + APICommon.update_updatecount(file_path, updatecount) + + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + full_url = f'{self.base_url}/{dockey}' + print(f"Attempting to update Journal at: {full_url}") + self._send_request("PUT", full_url, payload=payload_str) + else: + print(f"Error: No record found for DocNo '{docno}' or dockey is missing.") + else: + print(f"Error: Could not retrieve existing Journal data for DocNo '{docno}'. Cannot update.") + + def delete_GLJE1(self, dockey: str): + """ + Deletes a Journal Entry by its dockey (document key). + + Args: + dockey (str): The document key of the Journal to delete. + """ + full_url = f'{self.base_url}/{dockey}' + self._send_request("DELETE", full_url) + + def delete_GLJE(self, docno: str): + """ + Deletes a Journal Entry by its document number and code. + First retrieves the dockey using docno and code for verification. + + Args: + docno (str): The document number of the Journal to delete. + """ + data = self.get_GLJE_Single(docno, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + + if dockey is not None: # Ensure code matches for the right document + full_url = f'{self.base_url}/{dockey}' + print(f"Attempting to delete Journal at: {full_url}") + self._send_request("DELETE", full_url) + else: + print(f"Error: No record found for DocNo '{docno}' or dockey is missing. Cannot delete.") + else: + print(f"Error: Could not retrieve existing Journal data for DocNo '{docno}'. Cannot delete.") + +if __name__ == "__main__": + GLJE_api = GLJEApiClient(base_url=url) # Initialize with the base URL defined earlier + + # Example: Fetch List data + answer = input("Continue Get Journal List? (y/n): ") + if answer.lower() in ["y","yes"]: + print("--- Fetching Journal Entrys (Offset 0, Limit 10) ---") + GLJE_api.get_GLJE_data(offset=0) + + print("\n" + "="*50 + "\n") + + answer = input("Continue Get Journal next list? (y/n): ") + if answer.lower() in ["y","yes"]: + print("--- Fetching Journal Entrys (Offset 10, Limit 10) ---") + GLJE_api.get_GLJE_data(offset=10) # Start from Record 11 (i.e. skip 1st 10 records) + + print("\n" + "="*50 + "\n") + + # Example: Get Single DocNo + answer = input("Continue Get Single DocNo? (y/n): ") + if answer.lower() in ["y","yes"]: + vdata = input("Enter Search Value : ") + afld = 'DocNo' + afld = input(f"Enter Search Field : {afld} ") + print(f"--- Getting Single Doc : {vdata} & Search field {afld}---") + GLJE_api.get_GLJE_Single(vdata, AFld=afld) + + print("\n" + "="*50 + "\n") + + # Example: Get PDF +# answer = input("Continue Downloading PDF? (y/n): ") +# if answer.lower() in ["y","yes"]: +# desktop_path = os.path.expanduser("~\Desktop") # Cross-platform way to get Desktop path +# vDocNo = input("Enter Search Value : ") +# print(f"\n--- Downloading PDF for '{vDocNo}' to {desktop_path} ---") +# GLJE_api.get_GLJE_PDF(vDocNo, sRptName, desktop_path) +# +# print("\n" + "="*50 + "\n") + + # Example: Create New Record + answer = input("Continue Creating New Record? (y/n): ") + if answer.lower() in ["y","yes"]: + print(f"\n--- Creating New Record from '{json_path}New.json' ---") + GLJE_api.create_GLJE(f'{json_path}New.json') # Ensure this path is correct for your setup + + print("\n" + "="*50 + "\n") + print(f"--- Getting Newly Created '{sDocNo}' ---") + GLJE_api.get_GLJE_Single(sDocNo) + + print("\n" + "="*50 + "\n") + + # Example: Edit Record + answer = input("Continue Updating Record? (y/n): ") + if answer.lower() in ["y","yes"]: + print(f"\n--- Updating Record with '{json_path}Edit.json' ---") + GLJE_api.update_GLJE(sDocNo, f'{json_path}Edit.json') # Ensure paths are correct + + print("\n" + "="*50 + "\n") + print(f"--- Getting Updated Journal '{sDocNo}' ---") + GLJE_api.get_GLJE_Single(sDocNo) + + print("\n" + "="*50 + "\n") + + # Example: Delete Record + answer = input("Continue Deleting? (y/n): ") + if answer.lower() in ["y","yes"]: + vdata = input("Enter Search Value : ") + print(f"--- Delete Record : {vdata}---") + GLJE_api.delete_GLJE(vdata) + + print("\n--- End of Script ---") + +``` + +
+
+
+### GL Payment Voucher
+
+Stock Received - Get List, Add, Update & Delete Function - click to expand
+ +```python +#Updated 18 Oct 2025 - PDF not ready yet... +import os +import requests +import json +import APICommon + +# Centralized API configuration from APICommon.py +session_token = os.environ.get('AWS_SESSION_TOKEN') +access_key = APICommon.access_key +secret_key = APICommon.secret_key +service = APICommon.service +host = APICommon.host +region = APICommon.region + +# Base URL for the Stock Receive API +url = f'https://{host}/stockadjustment' +json_path_new = '..\\API\\ST_RC-New' +json_path_edit = '..\\API\\ST_RC-Edit' +sDocNo = '--RC-Test--' +sRptName = 'Stock Received - Location' + +class STRCApiClient(APICommon.BaseApiClient): + """ + Client for the Stock Receive (STRC) API, inheriting common functionality from BaseApiClient. + """ + def __init__(self, base_url: str): + super().__init__( + service=service, + host=host, + region=region, + access_key=access_key, + secret_key=secret_key, + session_token=session_token + ) + self.base_url = base_url + + def get_STRC_data(self, offset: int = 0, limit: int = 10): + """ + Retrieves Stock Receive data with pagination. + + Args: + offset (int): The number of records to skip. Defaults to 0. + limit (int): The maximum number of records to shown. Defaults to 10. + """ + query_params = f'offset={offset}' + full_url = f'{self.base_url}?{query_params}' + + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + APICommon.auto_parse_json(data, limit=limit) # Automatically parse and display JSON + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + + def get_STRC_Single(self, ADocNo: str, ShowResult: bool = True, AFld: str =''): + """ + Retrieves a single Stock Receive record by document number. + + Args: + ADocNo (str): The document number of the Stock Receive. + ShowResult (bool): If True, automatically parses and prints the result. + If False, returns the JSON response. Defaults to True. + AFld (str): Search field + + Returns: + dict or None: The parsed JSON data if ShowResult is False and successful, None otherwise. + """ + + """ + There got 3 type of GET: + 01. Get Detail => /salesJournal/*? + - Return Result with Detail Records + - only got this fields => code=&docdate=&docno=&postdate=&eiv_utc= + 02. Normal Get => /salesJournal? + - Return Result only Header Records + - eg lastmodified=1757557610 + 03. Get by Dockey /{Dockey} + + https://wiki.sql.com.my/wiki/Restful_API#How_many_ways_for_GET_Method_available%3F + """ + + vFld = AFld + if vFld == '': + vFld = 'DocNo' + vData = ADocNo + + aKey = '?' + if vFld.lower() in ["code", "docdate", "docno", "postdate", "eiv_utc"]: + aKey = '*?' + else: + if vFld.lower() == "dockey": + aKey = '' + + if vFld.lower() == "dockey": + full_url = f'{self.base_url}/{vData}' + else: + full_url = f'{self.base_url}/{aKey}{vFld}={vData}' + print(f"URL = {full_url}") + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + + # Base case for recursion: if we are already searching by dockey, we should not recurse again. + if vFld.lower() == "dockey": + if ShowResult: + APICommon.auto_parse_json(data) + return data + + # Recursive step: if not a dockey search, find the dockey and recurse. + if vFld.lower() in ["code", "docdate", "docno", "postdate", "eiv_utc"]: + if ShowResult: + APICommon.auto_parse_json(data) # Automatically parse and display JSON + else: + return data + else: + # This is the "normal get" which returns a header. We get the dockey from it. + vdockey = APICommon.get_field_value(data, "dockey") + if vdockey: + # Corrected recursive call: + return self.get_STRC_Single(vdockey, AFld="Dockey") + else: + print("Error: 'dockey' not found in response.") + + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + return None + + def get_STRC_PDF(self, ADocNo: str, report_name: str, save_path: str): + """ + Downloads a Stock Receive as a PDF. + + Args: + ADocNo (str): The document number of the Stock Receive. + report_name (str): The template name for the PDF report (e.g., 'GL Journal Voucher - Half (SST)'). + save_path (str): The directory where the PDF should be saved. + """ + data = self.get_STRC_Single(ADocNo, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + full_url = f'{self.base_url}/{dockey}' + + custom_headers = { + 'Content-Type': f'application/pdf;template={report_name}' + } + + print(f"Attempting to download PDF Journal for DocNo: {ADocNo} using template: {report_name}") + print(f"\nRemember to check the '{save_path}' folder for the downloaded PDF.") + + response = self._send_request("GET", full_url, custom_headers=custom_headers) + if response: + try: + output_filename = f"GL_Journal_{ADocNo}.pdf" + full_save_path = os.path.join(save_path, output_filename) + + # Ensure the directory exists + os.makedirs(os.path.dirname(full_save_path), exist_ok=True) + + # Write the content to a file in binary mode + with open(full_save_path, 'wb') as pdf_file: + for chunk in response.iter_content(chunk_size=8192): + if chunk: # Filter out keep-alive chunks + pdf_file.write(chunk) + + print(f"PDF for DocNo '{ADocNo}' with template '{report_name}' successfully downloaded to: {save_path}") + except IOError as e: + print(f"Error saving PDF to file: {e}") + except Exception as e: + print(f"An unexpected error occurred during PDF saving: {e}") + + def create_STRC(self, file_path: str): + """ + Creates a new Stock Receive from a JSON payload file. + + Args: + file_path (str): The path to the JSON file containing the Journal data. + """ + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + self._send_request("POST", self.base_url, payload=payload_str) + + def update_STRC(self, docno: str, file_path: str): + """ + Updates an existing Stock Receive record. + + Args: + docno (str): The document number of the Journal to update. + file_path (str): The path to the JSON file containing the updated Journal data. + """ + # Retrieve necessary fields from the existing record + data = self.get_STRC_Single(docno, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + updatecount = APICommon.get_field_value(data, "updatecount") + print(f"Retrieved updatecount: {updatecount}") + + if dockey is not None: + APICommon.update_updatecount(file_path, updatecount) + + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + full_url = f'{self.base_url}/{dockey}' + print(f"Attempting to update Journal at: {full_url}") + self._send_request("PUT", full_url, payload=payload_str) + else: + print(f"Error: No record found for DocNo '{docno}' or dockey is missing.") + else: + print(f"Error: Could not retrieve existing Journal data for DocNo '{docno}'. Cannot update.") + + def delete_STRC1(self, dockey: str): + """ + Deletes a Stock Receive by its dockey (document key). + + Args: + dockey (str): The document key of the Journal to delete. + """ + full_url = f'{self.base_url}/{dockey}' + self._send_request("DELETE", full_url) + + def delete_STRC(self, docno: str): + """ + Deletes a Stock Receive by its document number and code. + First retrieves the dockey using docno and code for verification. + + Args: + docno (str): The document number of the Journal to delete. + """ + data = self.get_STRC_Single(docno, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + + if dockey is not None: # Ensure code matches for the right document + full_url = f'{self.base_url}/{dockey}' + print(f"Attempting to delete Journal at: {full_url}") + self._send_request("DELETE", full_url) + else: + print(f"Error: No record found for DocNo '{docno}' or dockey is missing. Cannot delete.") + else: + print(f"Error: Could not retrieve existing Journal data for DocNo '{docno}'. Cannot delete.") + +if __name__ == "__main__": + STRC_api = STRCApiClient(base_url=url) # Initialize with the base URL defined earlier + + # Example: Fetch List data + answer = input("Continue Get List? (y/n): ") + if answer.lower() in ["y","yes"]: + print("--- Fetching Stock Received (Offset 0, Limit 10) ---") + STRC_api.get_STRC_data(offset=0) + + print("\n" + "="*50 + "\n") + + answer = input("Continue Get next list? (y/n): ") + if answer.lower() in ["y","yes"]: + print("--- Fetching Stock Received (Offset 10, Limit 10) ---") + STRC_api.get_STRC_data(offset=10) # Start from Record 11 (i.e. skip 1st 10 records) + + print("\n" + "="*50 + "\n") + + # Example: Get Single DocNo + answer = input("Continue Get Single DocNo? (y/n): ") + if answer.lower() in ["y","yes"]: + vdata = input("Enter Search Value : ") + afld = 'DocNo' + afld = input(f"Enter Search Field : {afld} ") + print(f"--- Getting Single Doc : {vdata} & Search field {afld}---") + STRC_api.get_STRC_Single(vdata, AFld=afld) + + print("\n" + "="*50 + "\n") + + # Example: Get PDF +# answer = input("Continue Downloading PDF? (y/n): ") +# if answer.lower() in ["y","yes"]: +# desktop_path = os.path.expanduser("~\Desktop") # Cross-platform way to get Desktop path +# vDocNo = input("Enter Search Value : ") +# print(f"\n--- Downloading PDF for '{vDocNo}' to {desktop_path} ---") +# STRC_api.get_STRC_PDF(vDocNo, sRptName, desktop_path) +# +# print("\n" + "="*50 + "\n") + + # Example: Create New Record + answer = input("Continue Creating New Record? (y/n): ") + if answer.lower() in ["y","yes"]: + print(f"\n--- Creating Journal from '{json_path_new}.json' ---") + STRC_api.create_STRC(f'{json_path_new}.json') # Ensure this path is correct for your setup + + print("\n" + "="*50 + "\n") + print(f"--- Getting Newly Created Record '{sDocNo}' ---") + STRC_api.get_STRC_Single(sDocNo) + + print("\n" + "="*50 + "\n") + + # Example: Edit Record + answer = input("Continue Updating Record? (y/n): ") + if answer.lower() in ["y","yes"]: + print(f"\n--- Updating Record with '{json_path_edit}.json' ---") + STRC_api.update_STRC(sDocNo, f'{json_path_edit}.json') # Ensure paths are correct + + print("\n" + "="*50 + "\n") + print(f"--- Getting Updated Record '{sDocNo}' ---") + STRC_api.get_STRC_Single(sDocNo) + + print("\n" + "="*50 + "\n") + + # Example: Delete Record + answer = input("Continue Deleting? (y/n): ") + if answer.lower() in ["y","yes"]: + vdata = input("Enter Search Value : ") + print(f"--- Delete Record : {vdata}---") + STRC_api.delete_STRC(vdata) + + print("\n--- End of Script ---") + +``` + +
+
+
+### Stock Transfer
+
+GL Payment Voucher - Get List, Add, Update & Delete Function - click to expand
+ +```python +#Updated 25 Sep 2025 - PDF not ready yet... +import os +import requests +import json +import APICommon + +# Centralized API configuration from APICommon.py +session_token = os.environ.get('AWS_SESSION_TOKEN') +access_key = APICommon.access_key +secret_key = APICommon.secret_key +service = APICommon.service +host = APICommon.host +region = APICommon.region + +# Base URL for the GL Payment Voucher API +url = f'https://{host}/paymentvoucher' +json_path = '..\\API\\GL_PV-' +sDocNo = '--PV-Test--' +sRptName = 'GL Payment Voucher - Detail - Half (SST)' + +class GLPVApiClient(APICommon.BaseApiClient): + """ + Client for the GL Payment Voucher (GLPV) API, inheriting common functionality from BaseApiClient. + """ + def __init__(self, base_url: str): + super().__init__( + service=service, + host=host, + region=region, + access_key=access_key, + secret_key=secret_key, + session_token=session_token + ) + self.base_url = base_url + + def get_GLPV_data(self, offset: int = 0, limit: int = 10): + """ + Retrieves GL Payment Voucher data with pagination. + + Args: + offset (int): The number of records to skip. Defaults to 0. + limit (int): The maximum number of records to shown. Defaults to 10. + """ + query_params = f'offset={offset}' + full_url = f'{self.base_url}?{query_params}' + + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + APICommon.auto_parse_json(data, limit=limit) # Automatically parse and display JSON + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + + def get_GLPV_Single(self, ADocNo: str, ShowResult: bool = True, AFld: str =''): + """ + Retrieves a single GL Payment Voucher record by document number. + + Args: + ADocNo (str): The document number of the GL Payment Voucher. + ShowResult (bool): If True, automatically parses and prints the result. + If False, returns the JSON response. Defaults to True. + AFld (str): Search field + + Returns: + dict or None: The parsed JSON data if ShowResult is False and successful, None otherwise. + """ + + """ + There got 3 type of GET: + 01. Get Detail => /salesJournal/*? + - Return Result with Detail Records + - only got this fields => code=&docdate=&docno=&postdate=&eiv_utc= + 02. Normal Get => /salesJournal? + - Return Result only Header Records + - eg lastmodified=1757557610 + 03. Get by Dockey /{Dockey} + + https://wiki.sql.com.my/wiki/Restful_API#How_many_ways_for_GET_Method_available%3F + """ + + vFld = AFld + if vFld == '': + vFld = 'DocNo' + vData = ADocNo + + aKey = '?' + if vFld.lower() in ["code", "docdate", "docno", "postdate", "eiv_utc"]: + aKey = '*?' + else: + if vFld.lower() == "dockey": + aKey = '' + + if vFld.lower() == "dockey": + full_url = f'{self.base_url}/{vData}' + else: + full_url = f'{self.base_url}/{aKey}{vFld}={vData}' + print(f"URL = {full_url}") + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + + # Base case for recursion: if we are already searching by dockey, we should not recurse again. + if vFld.lower() == "dockey": + if ShowResult: + APICommon.auto_parse_json(data) + return data + + # Recursive step: if not a dockey search, find the dockey and recurse. + if vFld.lower() in ["code", "docdate", "docno", "postdate", "eiv_utc"]: + if ShowResult: + APICommon.auto_parse_json(data) # Automatically parse and display JSON + else: + return data + else: + # This is the "normal get" which returns a header. We get the dockey from it. + vdockey = APICommon.get_field_value(data, "dockey") + if vdockey: + # Corrected recursive call: + return self.get_GLPV_Single(vdockey, AFld="Dockey") + else: + print("Error: 'dockey' not found in response.") + + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + return None + + def get_GLPV_PDF(self, ADocNo: str, report_name: str, save_path: str): + """ + Downloads a GL Payment Voucher as a PDF. + + Args: + ADocNo (str): The document number of the GL Payment Voucher. + report_name (str): The template name for the PDF report (e.g., 'GL Journal Voucher - Half (SST)'). + save_path (str): The directory where the PDF should be saved. + """ + data = self.get_GLPV_Single(ADocNo, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + full_url = f'{self.base_url}/{dockey}' + + custom_headers = { + 'Content-Type': f'application/pdf;template={report_name}' + } + + print(f"Attempting to download PDF Journal for DocNo: {ADocNo} using template: {report_name}") + print(f"\nRemember to check the '{save_path}' folder for the downloaded PDF.") + + response = self._send_request("GET", full_url, custom_headers=custom_headers) + if response: + try: + output_filename = f"GL_Journal_{ADocNo}.pdf" + full_save_path = os.path.join(save_path, output_filename) + + # Ensure the directory exists + os.makedirs(os.path.dirname(full_save_path), exist_ok=True) + + # Write the content to a file in binary mode + with open(full_save_path, 'wb') as pdf_file: + for chunk in response.iter_content(chunk_size=8192): + if chunk: # Filter out keep-alive chunks + pdf_file.write(chunk) + + print(f"PDF for DocNo '{ADocNo}' with template '{report_name}' successfully downloaded to: {save_path}") + except IOError as e: + print(f"Error saving PDF to file: {e}") + except Exception as e: + print(f"An unexpected error occurred during PDF saving: {e}") + + def create_GLPV(self, file_path: str): + """ + Creates a new GL Payment Voucher from a JSON payload file. + + Args: + file_path (str): The path to the JSON file containing the Journal data. + """ + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + self._send_request("POST", self.base_url, payload=payload_str) + + def update_GLPV(self, docno: str, file_path: str): + """ + Updates an existing GL Payment Voucher record. + + Args: + docno (str): The document number of the Journal to update. + file_path (str): The path to the JSON file containing the updated Journal data. + """ + # Retrieve necessary fields from the existing record + data = self.get_GLPV_Single(docno, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + updatecount = APICommon.get_field_value(data, "updatecount") + print(f"Retrieved updatecount: {updatecount}") + + if dockey is not None: + APICommon.update_updatecount(file_path, updatecount) + + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + full_url = f'{self.base_url}/{dockey}' + print(f"Attempting to update Journal at: {full_url}") + self._send_request("PUT", full_url, payload=payload_str) + else: + print(f"Error: No record found for DocNo '{docno}' or dockey is missing.") + else: + print(f"Error: Could not retrieve existing Journal data for DocNo '{docno}'. Cannot update.") + + def delete_GLPV1(self, dockey: str): + """ + Deletes a GL Payment Voucher by its dockey (document key). + + Args: + dockey (str): The document key of the Journal to delete. + """ + full_url = f'{self.base_url}/{dockey}' + self._send_request("DELETE", full_url) + + def delete_GLPV(self, docno: str): + """ + Deletes a GL Payment Voucher by its document number and code. + First retrieves the dockey using docno and code for verification. + + Args: + docno (str): The document number of the Journal to delete. + """ + data = self.get_GLPV_Single(docno, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + + if dockey is not None: # Ensure code matches for the right document + full_url = f'{self.base_url}/{dockey}' + print(f"Attempting to delete Journal at: {full_url}") + self._send_request("DELETE", full_url) + else: + print(f"Error: No record found for DocNo '{docno}' or dockey is missing. Cannot delete.") + else: + print(f"Error: Could not retrieve existing Journal data for DocNo '{docno}'. Cannot delete.") + +if __name__ == "__main__": + GLPV_api = GLPVApiClient(base_url=url) # Initialize with the base URL defined earlier + + # Example: Fetch List data + answer = input("Continue Get List? (y/n): ") + if answer.lower() in ["y","yes"]: + print("--- Fetching GL Payment Voucher (Offset 0, Limit 10) ---") + GLPV_api.get_GLPV_data(offset=0) + + print("\n" + "="*50 + "\n") + + answer = input("Continue Get next list? (y/n): ") + if answer.lower() in ["y","yes"]: + print("--- Fetching GL Payment Voucher (Offset 10, Limit 10) ---") + GLPV_api.get_GLPV_data(offset=10) # Start from Record 11 (i.e. skip 1st 10 records) + + print("\n" + "="*50 + "\n") + + # Example: Get Single DocNo + answer = input("Continue Get Single DocNo? (y/n): ") + if answer.lower() in ["y","yes"]: + vdata = input("Enter Search Value : ") + afld = 'DocNo' + afld = input(f"Enter Search Field : {afld} ") + print(f"--- Getting Single Doc : {vdata} & Search field {afld}---") + GLPV_api.get_GLPV_Single(vdata, AFld=afld) + + print("\n" + "="*50 + "\n") + + # Example: Get PDF +# answer = input("Continue Downloading PDF? (y/n): ") +# if answer.lower() in ["y","yes"]: +# desktop_path = os.path.expanduser("~\Desktop") # Cross-platform way to get Desktop path +# vDocNo = input("Enter Search Value : ") +# print(f"\n--- Downloading PDF for '{vDocNo}' to {desktop_path} ---") +# GLPV_api.get_GLPV_PDF(vDocNo, sRptName, desktop_path) +# +# print("\n" + "="*50 + "\n") + + # Example: Create New Record + answer = input("Continue Creating New Record? (y/n): ") + if answer.lower() in ["y","yes"]: + print(f"\n--- Creating New Record from '{json_path}New.json' ---") + GLPV_api.create_GLPV(f'{json_path}New.json') # Ensure this path is correct for your setup + + print("\n" + "="*50 + "\n") + print(f"--- Getting Newly Created Record '{sDocNo}' ---") + GLPV_api.get_GLPV_Single(sDocNo) + + print("\n" + "="*50 + "\n") + + # Example: Edit Record + answer = input("Continue Updating Record? (y/n): ") + if answer.lower() in ["y","yes"]: + print(f"\n--- Updating Record with '{json_path}Edit.json' ---") + GLPV_api.update_GLPV(sDocNo, f'{json_path}Edit.json') # Ensure paths are correct + + print("\n" + "="*50 + "\n") + print(f"--- Getting Updated Record '{sDocNo}' ---") + GLPV_api.get_GLPV_Single(sDocNo) + + print("\n" + "="*50 + "\n") + + # Example: Delete Record + answer = input("Continue Deleting? (y/n): ") + if answer.lower() in ["y","yes"]: + vdata = input("Enter Search Value : ") + print(f"--- Delete Record : {vdata}---") + GLPV_api.delete_GLPV(vdata) + + print("\n--- End of Script ---") + +``` + +
+
+
+### Node JS
+
+Module Require in Node JS
+
+- express -> npm install express
+- axios -> npm install axios
+- dotenv -> npm install dotenv
+- aws -> npm install aws4
+
+### Node JS Common
+
+Stock Transfer - Get List, Add, Update & Delete Function - click to expand
+ +```python +#Updated 16 Oct 2025 - PDF not ready yet... +import os +import requests +import json +import APICommon + +# Centralized API configuration from APICommon.py +session_token = os.environ.get('AWS_SESSION_TOKEN') +access_key = APICommon.access_key +secret_key = APICommon.secret_key +service = APICommon.service +host = APICommon.host +region = APICommon.region + +# Base URL for the Stock Transfer API +url = f'https://{host}/stocktransfer' +sDocNo = '--XF-Test--' +json_path = '..\\API\\ST_XF-' +sRptName = 'Stock Transfer' + +class STXFApiClient(APICommon.BaseApiClient): + """ + Client for the Stock Transfer (STXF) API, inheriting common functionality from BaseApiClient. + """ + def __init__(self, base_url: str): + super().__init__( + service=service, + host=host, + region=region, + access_key=access_key, + secret_key=secret_key, + session_token=session_token + ) + self.base_url = base_url + + def get_STXF_data(self, offset: int = 0, limit: int = 10): + """ + Retrieves Stock Transfer data with pagination. + + Args: + offset (int): The number of records to skip. Defaults to 0. + limit (int): The maximum number of records to shown. Defaults to 10. + """ + query_params = f'offset={offset}' + full_url = f'{self.base_url}?{query_params}' + + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + APICommon.auto_parse_json(data, limit=limit) # Automatically parse and display JSON + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + + def get_STXF_Single(self, ADocNo: str, ShowResult: bool = True, AFld: str =''): + """ + Retrieves a single Stock Transfer record by document number. + + Args: + ADocNo (str): The document number of the Stock Transfer. + ShowResult (bool): If True, automatically parses and prints the result. + If False, returns the JSON response. Defaults to True. + AFld (str): Search field + + Returns: + dict or None: The parsed JSON data if ShowResult is False and successful, None otherwise. + """ + + """ + There got 3 type of GET: + 01. Get Detail => /salesinvoice/*? + - Return Result with Detail Records + - only got this fields => code=&docdate=&docno=&postdate=&eiv_utc= + 02. Normal Get => /salesinvoice? + - Return Result only Header Records + - eg lastmodified=1757557610 + 03. Get by Dockey /{Dockey} + + https://wiki.sql.com.my/wiki/Restful_API#How_many_ways_for_GET_Method_available%3F + """ + + vFld = AFld + if vFld == '': + vFld = 'DocNo' + vData = ADocNo + + aKey = '?' + if vFld.lower() in ["code", "docdate", "docno", "postdate", "eiv_utc"]: + aKey = '*?' + else: + if vFld.lower() == "dockey": + aKey = '' + + if vFld.lower() == "dockey": + full_url = f'{self.base_url}/{vData}' + else: + full_url = f'{self.base_url}/{aKey}{vFld}={vData}' + print(f"URL = {full_url}") + response = self._send_request("GET", full_url) + if response: + try: + data = response.json() + + # Base case for recursion: if we are already searching by dockey, we should not recurse again. + if vFld.lower() == "dockey": + if ShowResult: + APICommon.auto_parse_json(data) + return data + + # Recursive step: if not a dockey search, find the dockey and recurse. + if vFld.lower() in ["code", "docdate", "docno", "postdate", "eiv_utc"]: + if ShowResult: + APICommon.auto_parse_json(data) # Automatically parse and display JSON + else: + return data + else: + # This is the "normal get" which returns a header. We get the dockey from it. + vdockey = APICommon.get_field_value(data, "dockey") + if vdockey: + # Corrected recursive call: + return self.get_STXF_Single(vdockey, AFld="Dockey") + else: + print("Error: 'dockey' not found in response.") + + except json.JSONDecodeError: + print("Error: Could not decode JSON from response.") + except Exception as e: + print(f"Error processing response JSON: {e}") + return None + + def get_STXF_PDF(self, ADocNo: str, report_name: str, save_path: str): + """ + Downloads a Stock Transfer as a PDF. + + Args: + ADocNo (str): The document number of the Stock Transfer. + report_name (str): The template name for the PDF report (e.g., 'Stock Transfer 8 (SST 1)'). + save_path (str): The directory where the PDF should be saved. + """ + data = self.get_STXF_Single(ADocNo, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + full_url = f'{self.base_url}/{dockey}' + print(f"URL = {full_url}") + + custom_headers = { + 'Content-Type': f'application/pdf;template={report_name}' + } + + print(f"Attempting to download PDF Document for DocNo: {ADocNo} using template: {report_name}") + print(f"\nRemember to check the '{save_path}' folder for the downloaded PDF.") + + response = self._send_request("GET", full_url, custom_headers=custom_headers) + if response: + try: + output_filename = f"{report_name}_{ADocNo}.pdf" + full_save_path = os.path.join(save_path, output_filename) + + # Ensure the directory exists + os.makedirs(os.path.dirname(full_save_path), exist_ok=True) + + # Write the content to a file in binary mode + with open(full_save_path, 'wb') as pdf_file: + for chunk in response.iter_content(chunk_size=8192): + if chunk: # Filter out keep-alive chunks + pdf_file.write(chunk) + + print(f"PDF for DocNo '{ADocNo}' with template '{report_name}' successfully downloaded to: {save_path}") + except IOError as e: + print(f"Error saving PDF to file: {e}") + except Exception as e: + print(f"An unexpected error occurred during PDF saving: {e}") + + def create_STXF(self, file_path: str): + """ + Creates a new Stock Transfer from a JSON payload file. + + Args: + file_path (str): The path to the JSON file containing the Document data. + """ + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + self._send_request("POST", self.base_url, payload=payload_str) + + def update_STXF(self, docno: str, code: str, file_path: str): + """ + Updates an existing Stock Transfer record. + + Args: + docno (str): The document number to update. + code (str): The code associated with the document. + file_path (str): The path to the JSON file containing the updated data. + """ + # Retrieve necessary fields from the existing record + data = self.get_STXF_Single(docno, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + updatecount = APICommon.get_field_value(data, "updatecount") + print(f"Retrieved updatecount: {updatecount}") + + if dockey is not None: + APICommon.update_updatecount(file_path, updatecount) + + payload_str = APICommon.get_payload_data(file_path) + if payload_str: + full_url = f'{self.base_url}/{dockey}' + print(f"Attempting to update data at: {full_url}") + self._send_request("PUT", full_url, payload=payload_str) + else: + print(f"Error: No record found for DocNo '{docno}' or dockey is missing.") + else: + print(f"Error: Could not retrieve existing data for DocNo '{docno}'. Cannot update.") + + def delete_STXF1(self, dockey: str): + """ + Deletes a Stock Transfer by its dockey (document key). + + Args: + dockey (str): The document key of the document to delete. + """ + full_url = f'{self.base_url}/{dockey}' + self._send_request("DELETE", full_url) + + def delete_STXF(self, docno: str): + """ + Deletes a Stock Transfer by its document number and code. + First retrieves the dockey using docno and code for verification. + + Args: + docno (str): The document number to delete. + code (str): The code associated with the document. + """ + data = self.get_STXF_Single(docno, ShowResult=False) + + if data: + dockey = APICommon.get_field_value(data, "dockey") + + if dockey is not None: # Ensure code matches for the right document + full_url = f'{self.base_url}/{dockey}' + print(f"Attempting to delete document at: {full_url}") + self._send_request("DELETE", full_url) + else: + print(f"Error: No record found for DocNo '{docno}' or dockey is missing. Cannot delete.") + else: + print(f"Error: Could not retrieve existing document data for DocNo '{docno}'. Cannot delete.") + +if __name__ == "__main__": + STXF_api = STXFApiClient(base_url=url) # Initialize with the base URL defined earlier + + # Example: Fetch List data + answer = input("Continue Get Document List? (y/n): ") + if answer.lower() in ["y","yes"]: + print("--- Fetching Stock Transfers (Offset 0, Limit 10) ---") + STXF_api.get_STXF_data(offset=0) + + print("\n" + "="*50 + "\n") + + answer = input("Continue Get Document next list? (y/n): ") + if answer.lower() in ["y","yes"]: + print("--- Fetching Stock Transfers (Offset 10, Limit 10) ---") + STXF_api.get_STXF_data(offset=10) # Start from Record 11 (i.e. skip 1st 10 records) + + print("\n" + "="*50 + "\n") + + # Example: Get Single DocNo + answer = input("Continue Get Single DocNo? (y/n): ") + if answer.lower() in ["y","yes"]: + vdata = input("Enter Search Value : ") + afld = 'DocNo' + afld = input(f"Enter Search Field : {afld} ") + print(f"--- Getting Single Doc : {vdata} & Search field {afld}---") + STXF_api.get_STXF_Single(vdata, AFld=afld) + + print("\n" + "="*50 + "\n") + + # Example: Get PDF +# answer = input("Continue Downloading PDF? (y/n): ") +# if answer.lower() in ["y","yes"]: +# desktop_path = os.path.expanduser("~\Desktop") # Cross-platform way to get Desktop path +# vDocNo = input("Enter Search Value : ") +# print(f"\n--- Downloading PDF for '{vDocNo}' to {desktop_path} ---") +# STXF_api.get_STXF_PDF(vDocNo, 'Stock Transfer 8 (SST 1)', desktop_path) +# +# print("\n" + "="*50 + "\n") + + # Example: Create Document + answer = input("Continue Creating New Dcoument? (y/n): ") + if answer.lower() in ["y","yes"]: + print(f"\n--- Creating Document from '{json_path}New.json' ---") + STXF_api.create_STXF(f'{json_path}New.json') # Ensure this path is correct for your setup + + print("\n" + "="*50 + "\n") + print(f"--- Getting Newly Created Document '{sDocNo}' ---") + STXF_api.get_STXF_Single(sDocNo) + + print("\n" + "="*50 + "\n") + + # Example: Edit Document + answer = input("Continue Updating Document? (y/n): ") + if answer.lower() in ["y","yes"]: + print(f"\n--- Updating Document '{sDocNo}' with '{json_path}Edit.json' ---") + STXF_api.update_STXF(sDocNo,'300-G0002', f'{json_path}Edit.json') # Ensure paths are correct + + print("\n" + "="*50 + "\n") + print(f"--- Getting Updated Document '{sDocNo}' ---") + STXF_api.get_STXF_Single(sDocNo) + + print("\n" + "="*50 + "\n") + + # Example: Delete Document + answer = input("Continue Deleting Document? (y/n): ") + if answer.lower() in ["y","yes"]: + print(f"\n--- Deleting Document '{sDocNo}' (code '') ---") + STXF_api.delete_STXF(sDocNo) + + print("\n--- End of Script ---") + +``` + +
+
+
+### Node JS Agent
+
+APICommon.js file for example code - click to expand
+ +```js +//Updated on 22 Aug 2025 +import axios from "axios"; +import crypto from "crypto"; + +const accessKey = "The Access Key"; +const secretKey = "The Secret Key"; +const service = "execute-api"; +const host = "api.sql.my"; +const region = "ap-southeast-1"; + +/** + * HMAC helper + */ +function sign(key, msg) { + return crypto.createHmac("sha256", key).update(msg).digest(); +} + +/** + * Create AWS SigV4 signed headers + */ +function signRequest(method, urlObj, body = "") { + const now = new Date(); + const amzDate = now.toISOString().replace(/[:-]|\.\d{3}/g, ""); // e.g. 20250818T030159Z + const dateStamp = amzDate.substring(0, 8); + + // Canonical URI adjustment + let canonicalUri = urlObj.pathname; + if (canonicalUri.endsWith("/*")) { + canonicalUri = canonicalUri.replace("/*", "/"); // Sign as /salesinvoice/ + } + + // Canonical query string (AWS requires sorted by key) + let canonicalQuerystring = ""; + if (urlObj.search) { + const params = urlObj.search.substring(1).split("&"); + const kvPairs = params.map(p => p.split("=")); + const sorted = kvPairs.sort(([a], [b]) => a.localeCompare(b)); + canonicalQuerystring = sorted + .map(([k, v]) => `${encodeURIComponent(k)}=${encodeURIComponent(v || "")}`) + .join("&"); + } + + const canonicalHeaders = `host:${host}\n` + `x-amz-date:${amzDate}\n`; + const signedHeaders = "host;x-amz-date"; + const payloadHash = crypto.createHash("sha256").update(body).digest("hex"); + + const canonicalRequest = [ + method, + canonicalUri, + canonicalQuerystring, + canonicalHeaders, + signedHeaders, + payloadHash, + ].join("\n"); + + const algorithm = "AWS4-HMAC-SHA256"; + const credentialScope = `${dateStamp}/${region}/${service}/aws4_request`; + const stringToSign = [ + algorithm, + amzDate, + credentialScope, + crypto.createHash("sha256").update(canonicalRequest).digest("hex"), + ].join("\n"); + + // Derive signing key + const kDate = sign("AWS4" + secretKey, dateStamp); + const kRegion = sign(kDate, region); + const kService = sign(kRegion, service); + const kSigning = sign(kService, "aws4_request"); + const signature = crypto + .createHmac("sha256", kSigning) + .update(stringToSign) + .digest("hex"); + + const authorizationHeader = `${algorithm} Credential=${accessKey}/${credentialScope}, SignedHeaders=${signedHeaders}, Signature=${signature}`; + + // Debug output for checking purpose + //console.log("\n=== DEBUG SigV4 ==="); + //console.log("CanonicalRequest:\n", canonicalRequest); + //console.log("StringToSign:\n", stringToSign); + + + // Create line + let symbolString = ''; + for (let i = 0; i < 50; i++) { + symbolString += '='; + } + + console.log(symbolString, '\n'); + + return { + "x-amz-date": amzDate, + "x-amz-content-sha256": payloadHash, + Authorization: authorizationHeader, + "Content-Type": "application/json", + }; +} + +/** + * Base client to send signed requests + */ +export async function sendRequest(method, path, body = null, query = "", opts = {}) { + try { + // Build request URL + const requestUrl = `https://${host}${path}${query ? "?" + query : ""}`; + const urlObj = new URL(requestUrl); + + // For signing, strip the trailing "/*" + let canonicalPath = urlObj.pathname; + if (canonicalPath.endsWith("/*")) { + canonicalPath = canonicalPath.slice(0, -2) + "/"; // sign as /salesinvoice/ + } + urlObj.pathname = canonicalPath; + + // Prepare request body + const bodyString = body ? JSON.stringify(body) : ""; + const headers = signRequest(method, urlObj, bodyString); + + if (opts.headers) { + Object.assign(headers, opts.headers); + } + + // Perform request + const response = await axios({ + method, + url: requestUrl, // still send request to original URL + headers, + data: body || undefined, + responseType: opts.responseType || "json", // "json" or "arraybuffer" + }); + + return opts.raw ? response.data : response.data; + } catch (err) { + if (err.response) { + console.error("Error Response:", err.response.status, err.response.data); + } else { + console.error("Error:", err.message); + } + throw err; + } +} + +``` + +
+
+ */
+function ask(q) {
+ return new Promise(resolve => rl.question(q, resolve));
+}
+async function confirm(msg) {
+ const ans = (await ask(`${msg} (y/n): `)).toLowerCase();
+ return ans === "y" || ans === "yes";
+}
+
+// Helper to load JSON file
+function loadJson(filename) {
+ try {
+ return JSON.parse(fs.readFileSync(filename, "utf8"));
+ } catch {
+ return null;
+ }
+}
+
+async function Agent() {
+ try {
+ // Example: Get agent list
+ console.log("\n================= Agent List =================");
+ if (await confirm("Fetch agent list?")) {
+ const list = await agentApi.get_list(0, 5);
+ console.table(JSON.stringify(list, null, 2));
+ }
+
+ // Example: Get single agent
+ console.log("\n================= Single Agent =================");
+ if (await confirm("Fetch a single agent?")) {
+ const code = await ask("Enter agent code: ");
+ const list = await agentApi.get_single(code.trim());
+ console.table(JSON.stringify(list, null, 2));
+ }
+
+ // Example: Create new agent
+ console.log("\n================= Create Agent =================");
+ if (await confirm("Create new agent?")) {
+ const payload = loadJson(JSON_FOLDER + "Agent-New.json"); // Make sure file name is correct
+ if (payload) {
+ await agentApi.create(payload);
+ } else {
+ console.log("Skipped create agent (no valid JSON)")
+ }
+ }
+
+ // Example: Edit existing agent
+ console.log("\n================= Edit Agent =================");
+ if (await confirm("Update an agent?")) {
+ const payload = loadJson(JSON_FOLDER + "Agent-Edit.json"); // Make sure file name is correct
+ if (payload && payload.code) {
+ await agentApi.update(payload.code, payload);
+ }
+ }
+
+ // Example: Delete existing agent
+ console.log("\n================= Delete Agent =================");
+ if (await confirm("Do you want to Delete an agent?")) {
+ const code = await ask("Enter agent code to delete: ");
+ await agentApi.delete(code.trim());
+ }
+ } catch (err) {
+ console.error("Error:", err.message);
+ } finally {
+ console.log("--- End of the Script ---");
+ rl.close();
+ }
+}
+
+Agent();
+
+```
+
+
+### Node JS Sales Invoice
+
+Agent - Get List, Add, Update & Delete Function - click to expand
+ +```js +//Updated on 01 Oct 2025 +import { sendRequest } from "./api/APICommon.js"; // base client +import readline from "readline"; +import fs from "fs"; + +/** + * Pretty-print JSON responses for debugging + */ +function debugPrintJson(data) { + if (!data) { + console.log("No data returned."); + return; + } + + if (Array.isArray(data.items)) { + console.log(`Found ${data.items.length} agents:`); + data.items.forEach((item, idx) => { + console.log(`[${idx + 1}] code= ${item.code}, name= ${item.description}`); + }); + } else if (Array.isArray(data.data)) { + console.log(`Found ${data.data.length} record(s):`); + data.data.forEach((item, idx) => { + console.log(`[${idx + 1}] code= ${item.code}, name= ${item.description}`); + }); + } else if (typeof data === "object") { + console.log("Single agent record:"); + Object.entries(data).forEach(([k, v]) => { + console.log(` ${k}: ${JSON.stringify(v)}`); + }); + } else { + console.log("Raw:", data); + } +} + +export class AgentApi { + constructor() { + this.basePath = "/agent"; // base path + } + + /** + * Get agent list with pagination (default: offset=0, limit=5) + */ + async get_list(offset = 0, limit = 5) { + const path = this.basePath; + const query = `offset=${offset}&limit=${limit}`; + console.log("\n--- Fetching agent list ---"); + try { + const data = await sendRequest("GET", path, null, query); + + // Force limit client-side if API ignore + if(data && Array.isArray(data.data)) { + data.data = data.data.slice(offset, offset + limit); + } + + debugPrintJson(data); + return data; + } catch (err){ + console.error("Failed to fetch agent list:", err.response?.data || err.message); + throw err; + } + } + + /** + * Get a single agent by code + */ + async get_single(code) { + const path = this.basePath; + const query = `code=${encodeURIComponent(code)}`; + console.log(`\n--- Fetching single agent '${code}' ---`); + try { + const data = await sendRequest("GET", path, null, query); + debugPrintJson(data); + return data; + } catch (err) { + console.error(`Failed to fetch agent '${code}':`, err.response?.data || err.message); + throw err; + } + } + + /** + * Create a new agent + */ + async create(payload) { + console.log("\n--- Creating new agent ---"); + try { + const data = await sendRequest("POST", this.basePath, payload); + debugPrintJson(data); + return data; + } catch (err) { + console.error("Failed to create agent:", err.response?.data || err.message); + throw err; + } + } + + /** + * Edit an existing agent + */ + async update(code, payload) { + const path = `${this.basePath}/${encodeURIComponent(code)}`; + console.log(`\n--- Updating agent '${code}' ---`); + try { + const data = await sendRequest("PUT", path, payload); + debugPrintJson(data); + return data; + } catch (err) { + console.error(`Failed to update agent '${code}':`, err.response?.data || err.message); + throw err; + } + } + + /** + * Delete an existing agent by code + */ + async delete(code) { + const path = `${this.basePath}/${encodeURIComponent(code)}`; + console.log(`\n--- Deleting agent '${code}' ---`); + try { + const data = await sendRequest("DELETE", path); + debugPrintJson(data); + return data; + } catch (err) { + console.error(`Failed to delete agent '${code}':`, err.response?.data || err.message); + throw err; + } + } +} + +const agentApi = new AgentApi(); +const JSON_FOLDER = "./JSON/"; // your json folder file path, if same path as node.js, leave it blank + +// Readline interface +const rl = readline.createInterface({ + input: process.stdin, + output: process.stdout, +}); + +/** + * Helper to ask question and return Promise
+
+ */
+function ask(question) {
+ return new Promise(resolve => rl.question(question, resolve));
+}
+
+async function confirm(message) {
+ const ans = (await ask(`${message} (y/n): `)).toLowerCase();
+ return ans === "y" || ans === "yes";
+}
+
+// Helper to load JSON file
+function loadJson(filename) {
+ try {
+ const file = fs.readFileSync(filename, "utf8");
+ return JSON.parse(file);
+ } catch (err) {
+ console.error(`Failed to read ${filename}:`, err.message);
+ return null;
+ }
+}
+
+async function SL_IV() {
+ try {
+ // Example: Get invoice list
+ console.log("\n================= Invoice List =================");
+ if (await confirm("Proceed to fetch sales invoice list?")) {
+ const list = await ivApi.get_list();
+ console.table(JSON.stringify(list, null, 2));
+ }
+
+ // Example: Get single invoice
+ console.log("\n================= Single Invoice =================");
+ if (await confirm("Do you want to fetch a single invoice?")) {
+ const docno = await ask("Enter docno: ");
+ const list = await ivApi.get_single(docno.trim());
+ console.table(JSON.stringify(list, null, 2));
+ }
+
+ // Example: Print invoice PDF
+ console.log("\n================= Print Invoice =================");
+ if(await confirm("Do you want to print an invoice to PDF?")) {
+ const docno = await ask("Enter docno to print: ");
+ await ivApi.print(docno.trim());
+ }
+
+ // Example: Create new sales invoice
+ console.log("\n================= Create New Invoice =================");
+ if (await confirm("Do you want to create new invoice?")) {
+ const payload = loadJson(JSON_FOLDER + "SL_IV-New.json"); // Make sure file name is correct
+ if (payload) {
+ await ivApi.create(payload);
+ } else {
+ console.log("Skipped create invoice (no valid JSON)");
+ }
+ }
+
+ // Example: Edit existing sales invoice
+ console.log("\n================= Edit Invoice =================");
+ if (await confirm("Do you want to edit an invoice?")) {
+ const payload = loadJson(JSON_FOLDER + "SL_IV-Edit.json"); // Make sure the file name is correct
+ if (!payload || !payload.docno) {
+ console.log("The file must contain Docno.");
+ } else {
+ const docno = payload.docno.trim();
+ console.log(`\n--- Looking for invoice docno '${docno}' ---`);
+
+ // Fetching record by docno
+ const existing = await ivApi.get_single(docno);
+ if (
+ !existing ||
+ !Array.isArray(existing.data) ||
+ existing.data.length === 0
+ ) {
+ console.log(`Invoice docno '${docno}' not found.`);
+ } else {
+ const record = existing.data[0];
+ const dockey = record.dockey;
+ const updatecount = record.updatecount;
+
+ console.log(`Found dockey '${dockey}', updatecount '${updatecount}'`);
+
+ //Merge fields into payload
+ const finalPayload = {
+ ...payload,
+ dockey,
+ updatecount,
+ };
+
+ // Write back updated JSON (so user can see updatecount added)
+ fs.writeFileSync(
+ JSON_FOLDER + "SL_IV-Edit.json", // Make sure file name is correct
+ JSON.stringify(finalPayload, null, 2)
+ );
+
+ await ivApi.update(dockey, finalPayload);
+ }
+ }
+ }
+
+ // Example: Delete existing sales invoice
+ console.log("\n================= Delete Invoice =================");
+ if (await confirm("Do you want to delete an invoice?")) {
+ const docno = await ask("Enter docno to delete: ");
+ if (!docno) {
+ console.log(`Invalid docno, please provide a valid docno.`);
+ } else {
+ const existing = await ivApi.get_single(docno);
+ if (
+ !existing ||
+ !Array.isArray(existing.data) ||
+ existing.data.length === 0
+ ) {
+ console.log(`Invoice with docno '${docno}' not found.`);
+ } else {
+ const record = existing.data[0];
+ const dockey = record.dockey;
+
+ console.log(`--- Deleting invoice '${docno}' ---`);
+ await ivApi.delete(dockey);
+ }
+ }
+ }
+ } catch (err) {
+ console.error("\nError:", err.message);
+ } finally {
+ console.log(`--- End of the Script ---`);
+ rl.close();
+ }
+}
+
+import { fileURLToPath } from "url";
+import path from "path";
+
+const currentFile = fileURLToPath(import.meta.url);
+const entryFile = path.resolve(process.argv[1]);
+
+if (currentFile === entryFile) {
+ SL_IV();
+}
+
+```
+
+
+### Node JS Purchase Invoice
+
+Sales Invoice - Get List, PDF, Add, Update & Delete Function - click to expand
+ +```js +//Updated on 01 Oct 2025 +import { sendRequest } from "./api/APICommon.js"; // base client +import fs from "fs"; +import readline from "readline"; + +/** + * Pretty-print JSON responses for debugging + */ +function debugPrintJson(data) { + if (!data) { + console.log("No data returned."); + return; + } + + if (Array.isArray(data.items)) { + console.log(`Found ${data.items.length} records:`); + data.items.forEach((item, idx) => { + console.log( + `[${idx + 1}] docno= ${item.docno}, dockey= ${item.dockey}, amount= ${item.docamt}` + ); + }); + } else if (Array.isArray(data.data)) { + console.log(`Found ${data.data.length} record(s):`); + data.data.forEach((item, idx) => { + console.log( + `[${idx + 1}] docno= ${item.docno}, dockey= ${item.dockey}, amount= ${item.docamt}` + ); + }); + } else if (typeof data === "object") { + console.log("Single record:"); + Object.entries(data).forEach(([k, v]) => { + console.log(` ${k}: ${JSON.stringify(v)}`); + }); + } else { + console.log("Raw:", data); + } +} + +export class SalesInvoiceApi { + constructor() { + this.basePath = "/salesinvoice"; // base path + } + + /** + * Get sales invoice list with pagination (default: offset=0, limit=5) + */ + async get_list(offset = 0, limit = 5) { + const path = this.basePath; + const query = `offset=${offset}&limit=${limit}`; + console.log("\n--- Fetching sales invoice list (offset = 0, limit = 5) ---"); + const data = await sendRequest("GET", path, null, query); + + // Force limit client-side if API ignore + if(data && Array.isArray(data.data)) { + data.data = data.data.slice(offset, offset + limit); + } + + debugPrintJson(data); + return data; + } + + /** + * Get a single sales invoice by docno + */ + async get_single(docno) { + const path = this.basePath; + const query = `docno=${encodeURIComponent(docno)}`; + console.log(`\n--- Fetching single sales invoice '${docno}' ---`); + + try { + const data = await sendRequest("GET", path, null, query); + debugPrintJson(data); + return data; + } catch (err) { + console.error(`Failed to fetch invoice '${docno}':`, err.message); + throw err; + } + } + + /** + * Print a sales invoice as PDF + * + * Args: + * docno: document number of the sales invoice + * reportName: name of the report want to be print (E.g. Sales Invoice 8 (SST 1)) + * savePath: output folder (E.g. ./PDF) + */ + async print(docno, reportName = "Sales Invoice 8 (SST 1)", savePath = "./PDF") { + console.log(`\n--- Printing sales invoice '${docno}' to PDF ---`); + + // Step 1: Find dockey for the given docno + const existing = await this.get_single(docno); + if(!existing || !Array.isArray(existing.data) || existing.data.length === 0) { + throw new Error(`Invoice '${docno}' not found`); + } + + const record = existing.data[0]; + const dockey = record.dockey; + const path = `${this.basePath}/${dockey}`; + + const pdfData = await sendRequest("GET", path, null, "", { + headers: { "Content-Type": `application/pdf;template=${reportName}`}, + responseType: "arraybuffer", + raw: true, + }); + + const fs = await import("fs"); + const fullSavePath = `${savePath}/Sales_Invoice_${docno}.pdf`; + fs.mkdirSync(savePath, { recursive: true }); + fs.writeFileSync(fullSavePath, pdfData); + console.log(`PDF saved: ${fullSavePath}`); + } + + /** + * Create a new sales invoice + */ + async create(payload) { + console.log("\n--- Creating sales invoice ---"); + try { + const data = await sendRequest("POST", this.basePath, payload); + debugPrintJson(data); + return data; + } catch (err) { + console.error("Failed to create invoice:", err.message); + throw err; + } + } + + /** + * Edit an existing sales invoice + */ + async update(dockey, payload) { + console.log(`\n--- Editing sales invoice dockey: ${dockey} ---`); + + try { + // Step 1: Fetch existing record to get updatecount + const query = `dockey=${encodeURIComponent(dockey)}`; + const existing = await sendRequest("GET", this.basePath, null, query); + + console.log("Existing record:", JSON.stringify(existing, null, 2)); + + const record = + (existing.data && existing.data[0]) || + (existing.items && existing.items[0]) || + existing; + + if (!record || typeof record.updatecount === "undefined") { + throw new Error("Updatecount missing. Try fetching via list API with dockey filter."); + } + + // Step 2: Merge updatecount into payload + const finalPayload = { + ...payload, + updatecount: record.updatecount, + }; + + // Step 3: Send PUT request with updatecount + const path = `${this.basePath}/${dockey}`; + const data = await sendRequest("PUT", path, finalPayload); + debugPrintJson(data); + console.log("Invoice updated successfully."); + return data; + } catch (err) { + console.error(`Failed to edit invoice ${dockey}:`, err.message); + throw err; + } + } + + /** + * Delete a sales invoice by docno + */ + async delete(dockey) { + const path = `${this.basePath}/${dockey}`; + console.log(`\n--- Deleting sales invoice dockey: ${dockey} ---`); + try { + const data = await sendRequest("DELETE", path); + debugPrintJson(data); + return data; + } catch (err) { + console.error(`Failed to delete invoice ${dockey}:`, err.message); + throw err; + } + } +} + +const ivApi = new SalesInvoiceApi(); +const JSON_FOLDER = "./JSON/"; // your json folder file path, if same path as node.js, leave it blank + +// Readline interface +const rl = readline.createInterface({ + input: process.stdin, + output: process.stdout, +}); + +/** + * Helper to ask question and return Promise
+
+ */
+function ask(question) {
+ return new Promise(resolve => rl.question(question, resolve));
+}
+
+async function confirm(message) {
+ const ans = (await ask(`${message} (y/n): `)).toLowerCase();
+ return ans === "y" || ans === "yes";
+}
+
+// Helper to load JSON file
+function loadJson(filename) {
+ try {
+ const file = fs.readFileSync(filename, "utf8");
+ return JSON.parse(file);
+ } catch (err) {
+ console.error(`Failed to read ${filename}:`, err.message);
+ return null;
+ }
+}
+
+async function PH_PI() {
+ try {
+ // Example: Get purchase invoice list
+ console.log("\n================= Purchase Invoice List =================");
+ if (await confirm("Proceed to fetch purchase invoice list?")) {
+ const list = await piApi.get_list();
+ console.table(JSON.stringify(list, null, 2));
+ }
+
+ // Example: Get single purchase invoice
+ console.log("\n================= Single Purchase Invoice =================");
+ if (await confirm("Do you want to fetch a single purchase invoice?")) {
+ const docno = await ask("Enter docno: ");
+ const list = await piApi.get_single(docno.trim());
+ console.table(JSON.stringify(list, null, 2));
+ }
+
+ // Example: Print invoice PDF
+ console.log("\n================= Print Purchase Invoice =================");
+ if(await confirm("Do you want to print an invoice to PDF?")) {
+ const docno = await ask("Enter docno to print: ");
+ await piApi.print(docno.trim());
+ }
+
+ // Example: Create new purchase invoice
+ console.log("\n================= Create New Purchase Invoice =================");
+ if (await confirm("Do you want to create a new purchase invoice?")) {
+ const payload = loadJson(JSON_FOLDER + "PH_PI-New.json"); // Make sure file name is correct
+ if (payload) {
+ await piApi.create(payload);
+ } else {
+ console.log("Skipped create purchase invoice (no valid JSON).");
+ }
+ }
+
+ // Example: Edit existing purchase invoice
+ console.log("\n================= Edit Purchase Invoice =================");
+ if (await confirm("Do you want to edit a purchase invoice?")) {
+ const payload = loadJson(JSON_FOLDER + "PH_PI-Edit.json"); // Make sure file path is correct
+ if (!payload || !payload.docno) {
+ console.log("The file must contain Docno.");
+ } else {
+ const docno = payload.docno.trim();
+ console.log(`\n--- Looking for purchase invoice docno '${docno}' ---`);
+
+ // Fetch existing by docno
+ const existing = await piApi.get_single(docno);
+ if (
+ !existing ||
+ !Array.isArray(existing.data) ||
+ existing.data.length === 0
+ ) {
+ console.log(`Purchase invoice docno '${docno}' not found.`);
+ } else {
+ const record = existing.data[0];
+ const dockey = record.dockey;
+ const updatecount = record.updatecount;
+
+ console.log(`Found dockey '${dockey}', updatecount '${updatecount}'`);
+
+ // Merge with payload
+ const finalPayload = {
+ ...payload,
+ dockey,
+ updatecount
+ };
+
+ // Save updated JSON (so user can see updatecount added)
+ fs.writeFileSync(
+ JSON_FOLDER + "PH_PI-Edit.json", // Make sure file path is correct
+ JSON.stringify(finalPayload, null, 2));
+
+ await piApi.update(dockey, finalPayload);
+ }
+ }
+ }
+
+ // Example: Delete existing purchase invoice
+ console.log("\n================= Delete Purchase Invoice =================");
+ if (await confirm("Do you want to delete a purchase invoice?")) {
+ const docno = await ask("Enter docno to delete: ");
+ if (!docno) {
+ console.log("Invalid docno, please provide a valid docno.");
+ } else {
+ const existing = await piApi.get_single(docno.trim());
+ if (
+ !existing ||
+ !Array.isArray(existing.data) ||
+ existing.data.length === 0
+ ) {
+ console.log(`Purchase invoice with docno '${docno}' not found.`);
+ } else {
+ const record = existing.data[0];
+ const dockey = record.dockey;
+
+ console.log(`--- Deleting purchase invoice '${docno}' ---`);
+ await piApi.delete(dockey);
+ }
+ }
+ }
+ } catch (err) {
+ console.error("\nError in tests:", err.message);
+ } finally {
+ console.log(`--- End of the Script ---`);
+ rl.close();
+ }
+}
+
+import { fileURLToPath } from "url";
+import path from "path";
+
+const currentFile = fileURLToPath(import.meta.url);
+const entryFile = path.resolve(process.argv[1]);
+
+if (currentFile === entryFile) {
+ PH_PI();
+}
+
+```
+
+
+### NOde JS Sales Order to Sales Invoice
+
+Purchase Invoice - Get List, PDF, Add, Update & Delete Function - click to expand
+ +```js +//Updated on 01 Oct 2025 +import { sendRequest } from "./api/APICommon.js"; // base client +import fs from "fs"; +import readline from "readline"; + +/** + * Pretty-print JSON responses for debugging + */ +function debugPrintJson(data) { + if (!data) { + console.log("No data returned."); + return; + } + + if (Array.isArray(data.items)) { + console.log(`Found ${data.items.length} records:`); + data.items.forEach((item, idx) => { + console.log( + `[${idx + 1}] docno= ${item.docno}, dockey= ${item.dockey}, amount= ${item.docamt}` + ); + }); + } else if (Array.isArray(data.data)) { + console.log(`Found ${data.data.length} record(s):`); + data.data.forEach((item, idx) => { + console.log( + `[${idx + 1}] docno= ${item.docno}, dockey= ${item.dockey}, amount= ${item.docamt}` + ); + }); + }else if (typeof data === "object") { + console.log("Single record:"); + Object.entries(data).forEach(([k, v]) => { + console.log(` ${k}: ${JSON.stringify(v)}`); + }); + } else { + console.log("Raw:", data); + } +} + +export class PurchaseInvoiceApi { + constructor() { + this.basePath = "/purchaseinvoice"; // base path + } + + /** + * Get purchase invoice list with pagination (default: offset=0, limit=5) + */ + async get_list(offset = 0, limit = 5) { + const path = this.basePath; + const query = `offset=${offset}&limit=${limit}`; + console.log("\n--- Fetching purchase invoice list ---"); + const data = await sendRequest("GET", path, null, query); + + // Force limit client-side if API ignore + if (data && Array.isArray(data.data)) { + data.data = data.data.slice(offset, offset + limit); + } + + debugPrintJson(data); + return data; + } + + /** + * Get a single purchase invoice by docno + */ + async get_single(docno) { + const path = this.basePath; + const query = `docno=${encodeURIComponent(docno)}`; + console.log(`\n--- Fetching single purchase invoice '${docno}' ---`); + try { + const data = await sendRequest("GET", path, null, query); + debugPrintJson(data); + return data; + } catch (err) { + console.error( + `Failed to fetch purchase invoice '${docno}':`, + err.response?.data || err.message + ); + throw err; + } + } + + /** + * Print a purchase invoice as PDF + * + * Args: + * docno: document number of the purchase invoice + * reportName: name of the report want to be print (E.g. Sales Invoice 8 (SST 1)) + * savePath: output folder (E.g. ./PDF) + */ + async print(docno, reportName = "Purchase Invoice 8 (SST 1)", savePath = "./PDF") { + console.log(`\n--- Printing purchase invoice '${docno}' to PDF ---`); + + // Step 1: Find dockey for the given docno + const existing = await this.get_single(docno); + if(!existing || !Array.isArray(existing.data) || existing.data.length === 0) { + throw new Error(`Purchase invoice '${docno}' not found`); + } + + const record = existing.data[0]; + const dockey = record.dockey; + const path = `${this.basePath}/${dockey}`; + + const pdfData = await sendRequest("GET", path, null, "", { + headers: { "Content-Type": `application/pdf;template=${reportName}`}, + responseType: "arraybuffer", + raw: true, + }); + + const fs = await import("fs"); + const fullSavePath = `${savePath}/Purchase_Invoice_${docno}.pdf`; + fs.mkdirSync(savePath, { recursive: true }); + fs.writeFileSync(fullSavePath, pdfData); + console.log(`PDF saved: ${fullSavePath}`); + } + + /** + * Create a new purchase invoice + */ + async create(payload) { + console.log("\n--- Creating purchase invoice ---"); + try { + const data = await sendRequest("POST", this.basePath, payload); + debugPrintJson(data); + return data; + } catch (err) { + console.error( + "Failed to create purchase invoice:", + err.response?.data || err.message + ); + throw err; + } + } + + /** + * Update an existing purchase invoice + */ + async update(dockey, payload) { + const path = `${this.basePath}/${dockey}`; + console.log(`\n--- Updating purchase invoice dockey=${dockey} ---`); + + try { + // Step 1: Fetch existing record to get updatecount + const query = `dockey=${encodeURIComponent(dockey)}`; + const existing = await sendRequest("GET", this.basePath, null, query); + + console.log("Existing record:", JSON.stringify(existing, null, 2)); + + const record = + (existing.data && existing.data[0]) || + (existing.items && existing.items[0]) || + existing; + + if (!record || typeof record.updatecount === "undefined") { + throw new Error( + "Updatecount missing. Try fetching via list API with dockey filter." + ); + } + + //Step 2: Merge updatecount into payload + const finalPayload = { + ...payload, + updatecount: record.updatecount, + }; + + // Step 3: send PUT request with updatecount + const path = `${this.basePath}/${dockey}`; + const data = await sendRequest("PUT", path, finalPayload); + debugPrintJson(data); + console.log("Purchase invoice updated successfully."); + return data; + } catch (err) { + console.error(`Failed to edit purchase invoice ${dockey}:`, err.message); + throw err; + } + } + + /** + * Delete a purchase invoice by docno + */ + async delete(dockey) { + const path = `${this.basePath}/${dockey}`; + console.log(`\n--- Deleting purchase invoice dockey=${dockey} ---`); + try { + const data = await sendRequest("DELETE", path); + debugPrintJson(data); + return data; + } catch (err) { + console.error(`Failed to delete purchase invoice '${dockey}':`,err.response?.data || err.message); + throw err; + } + } +} + +const piApi = new PurchaseInvoiceApi(); +const JSON_FOLDER = "./JSON/"; // your json folder file path, if same path as node.js, leave it blank + +// Readline interface +const rl = readline.createInterface({ + input: process.stdin, + output: process.stdout, +}); + +/** + * Helper to ask question and return Promise
+
+ */
+function ask(question) {
+ return new Promise(resolve => rl.question(question, resolve));
+}
+
+async function confirm(message) {
+ const ans = (await ask(`${message} (y/n): `)).toLowerCase();
+ return ans === "y" || ans === "yes";
+}
+
+// Helper to load JSON file
+function loadJson(filename) {
+ try {
+ const file = fs.readFileSync(filename, "utf8");
+ return JSON.parse(file);
+ } catch (err) {
+ console.error(`Failed to read ${filename}:`, err.message);
+ return null;
+ }
+}
+
+async function SL_IV() {
+ try {
+
+ // Example: Create new sales invoice
+ console.log("\n================= Create New Invoice =================");
+ if (await confirm("Do you want to create new invoice?")) {
+ const payload = loadJson(JSON_FOLDER + "SO2IV-New.json"); //make sure file name is correct
+ if (payload) {
+ await ivApi.create(payload);
+ } else {
+ console.log("Skipped create invoice (no valid JSON)");
+ }
+ }
+
+ // Example: Delete existing sales invoice
+ console.log("\n================= Delete Invoice =================");
+ if (await confirm("Do you want to delete an invoice?")) {
+ const docno = await ask("Enter docno to delete: ");
+ if (!docno) {
+ console.log(`Invalid docno, please provide a valid docno.`);
+ } else {
+ const existing = await ivApi.get_single(docno);
+ if (
+ !existing ||
+ !Array.isArray(existing.data) ||
+ existing.data.length === 0
+ ) {
+ console.log(`Invoice with docno '${docno}' not found.`);
+ } else {
+ const record = existing.data[0];
+ const dockey = record.dockey;
+
+ console.log(`--- Deleting invoice '${docno}' ---`);
+ await ivApi.delete(dockey);
+ }
+ }
+ }
+ } catch (err) {
+ console.error("\nError in tests:", err.message);
+ } finally {
+ console.log(`--- End of the Script ---`);
+ rl.close();
+ }
+}
+
+SL_IV();
+
+```
+
+
+### Maintain Customer
+
+Transfer from Sales Order to Sales Invoice - click to expand
+ +```js +// Updated on 01 Oct 2025 +import { sendRequest } from "./api/APICommon.js"; // base client +import fs from "fs"; +import readline from "readline"; + +/** + * Pretty-print JSON responses for debugging + */ +function debugPrintJson(data) { + if (!data) { + console.log("No data returned."); + return; + } + + if (Array.isArray(data.items)) { + console.log(`Found ${data.items.length} records:`); + data.items.forEach((item, idx) => { + console.log( + `[${idx + 1}] docno=${item.docno}, dockey=${item.dockey}, amount=${item.docamt}` + ); + }); + } else if (Array.isArray(data.data)) { + console.log(`Found ${data.data.length} record(s):`); + data.data.forEach((item, idx) => { + console.log(`[${idx + 1}] docno= ${item.docno}, dockey= ${item.dockey}, amount= ${item.docamt}`); + }); + } else if (typeof data === "object") { + console.log("Single record:"); + Object.entries(data).forEach(([k, v]) => { + console.log(` ${k}: ${JSON.stringify(v)}`); + }); + } else { + console.log("Raw:", data); + } +} + +export class SalesInvoiceApi { + constructor() { + this.basePath = "/salesinvoice"; // base path + } + + /** + * Get sales invoice list with pagination + */ + async get_list(offset = 0, limit = 5) { + const path = this.basePath; + const query = `offset=${offset}&limit=${limit}`; + console.log("\n--- Fetching sales invoice list (offset = 0, limit = 5) ---"); + const data = await sendRequest("GET", path, null, query); + + // Force limit cliend-side if API ignore + if(data && Array.isArray(data.data)) { + data.data = data.data.slice(offset, offset + limit); + } + + debugPrintJson(data); + return data; + } + + /** + * Get a single sales invoice by docno + */ + async get_single(docno) { + const path = this.basePath; + const query = `docno=${encodeURIComponent(docno)}`; + console.log(`\n--- Fetching single sales invoice '${docno}' ---`); + + try { + const data = await sendRequest("GET", path, null, query); + debugPrintJson(data); + return data; + } catch (err) { + console.error(`Failed to fetch invoice '${docno}':`, err.message); + throw err; + } + } + + /** + * Create a new sales invoice + */ + async create(payload) { + console.log("\n--- Creating sales invoice ---"); + try { + const data = await sendRequest("POST", this.basePath, payload); + debugPrintJson(data); + return data; + } catch (err) { + console.error("Failed to create invoice:", err.message); + throw err; + } + } + + /** + * Edit an existing sales invoice + */ + async update(dockey, payload) { + console.log(`\n--- Editing sales invoice dockey: ${dockey} ---`); + + try { + // Step 1: Fetch existing record to get updatecount + const query = `dockey=${encodeURIComponent(dockey)}`; + const existing = await sendRequest("GET", this.basePath, null, query); + + console.log("Existing record:", JSON.stringify(existing, null, 2)); + + const record = + (existing.data && existing.data[0]) || + (existing.items && existing.items[0]) || + existing; + + if (!record || typeof record.updatecount === "undefined") { + throw new Error("Updatecount missing. Try fetching via list API with dockey filter."); + } + + // Step 2: Merge updatecount into payload + const finalPayload = { + ...payload, + updatecount: record.updatecount, + }; + + // Step 3: Send PUT request with updatecount + const path = `${this.basePath}/${dockey}`; + const data = await sendRequest("PUT", path, finalPayload); + debugPrintJson(data); + console.log("Invoice updated successfully."); + return data; + } catch (err) { + console.error(`Failed to edit invoice ${dockey}:`, err.message); + throw err; + } + } + + /** + * Delete a sales invoice by dockey + */ + async delete(dockey) { + const path = `${this.basePath}/${dockey}`; + console.log(`\n--- Deleting sales invoice dockey: ${dockey} ---`); + try { + const data = await sendRequest("DELETE", path); + debugPrintJson(data); + return data; + } catch (err) { + console.error(`Failed to delete invoice ${dockey}:`, err.message); + throw err; + } + } +} + +const ivApi = new SalesInvoiceApi(); +const JSON_FOLDER = "./JSON/"; // your json folder file path, if same path as node.js, leave it blank + +// Readline interface +const rl = readline.createInterface({ + input: process.stdin, + output: process.stdout, +}); + +/** + * Helper to ask question and return Promise
+
+ */
+function ask(question) {
+ return new Promise((resolve) => rl.question(question, resolve));
+}
+
+async function confirm(message) {
+ const ans = (await ask(`${message} (y/n): `)).toLowerCase();
+ return ans === "y" || ans === "yes";
+}
+
+// Helper to load JSON file
+function loadJson(filename) {
+ try {
+ const file = fs.readFileSync(filename, "utf8");
+ return JSON.parse(file);
+ } catch (err) {
+ console.error(`Failed to read ${filename}:`, err.message);
+ return null;
+ }
+}
+
+async function AR_Customer() {
+ try {
+ // Customer list
+ console.log("\n================= Customer List =================");
+ if (await confirm("Proceed to fetch customer list?")) {
+ const list = await custApi.get_list();
+ console.table(JSON.stringify(list, null, 2));
+ }
+
+ // Single customer
+ console.log("\n================= Fetch Single Customer =================");
+ if (await confirm("Do you want to fetch a single customer?")) {
+ const code = await ask("Enter customer code: ");
+ const cust = await custApi.get_single(code.trim());
+ console.log(`\n--- Fetching customer code'${code}' ---`);
+ console.table(JSON.stringify(cust, null, 2));
+ }
+
+ // Create new customer
+ console.log("\n================= Create New Customer =================");
+ if (await confirm("Do you want to create a new customer?")) {
+ const payload = loadJson(JSON_FOLDER + "AR_Customer-New.json"); // Make sure file name is correct
+ if (payload) {
+ await custApi.create(payload);
+ } else {
+ console.log("Skipped create customer (no valid JSON).");
+ }
+ }
+
+ // Edit existing customer
+ console.log("\n================= Edit Customer =================");
+ if (await confirm("Do you want to edit a customer?")) {
+ const payload = loadJson(JSON_FOLDER + "AR_Customer-Edit.json"); // Make sure the file name is correct
+ if (!payload?.code) {
+ console.log("The file must contain customer code.");
+ } else {
+ const code = payload.code.trim();
+ console.log(`\n--- Looking for customer code '${code}' ---`);
+
+ // Fetch existing record by code
+ const existing = await custApi.get_single(code);
+
+ // normalize record extraction
+ const record =
+ (existing && existing.data && existing.data[0]) ||
+ (existing && existing.items && existing.items[0]) ||
+ existing;
+
+ if (!record) {
+ console.log(`Customer Code '${code}' not found.`);
+ } else {
+ const finalPayload = { ...record, ...payload, code };
+
+ fs.writeFileSync(
+ JSON_FOLDER + "AR_Customer-Edit.json",
+ JSON.stringify(finalPayload, null, 2)
+ );
+
+ await custApi.update(code, finalPayload);
+ }
+ }
+ }
+
+ // Delete existing customer
+ console.log("\n================= Delete Customer =================");
+ if (await confirm("Do you want to delete a customer?")) {
+ const code = await ask("Enter customer code to delete: ");
+ if (code) {
+ console.log(`--- Deleting customer '${code}' ---`);
+ await custApi.delete(code.trim());
+ }
+ }
+ } catch (err) {
+ console.error("Error:", err.message);
+ } finally {
+ console.log(`--- End of the Script ---`);
+ rl.close();
+ }
+}
+
+import { fileURLToPath } from "url";
+import path from "path";
+
+const currentFile = fileURLToPath(import.meta.url);
+const entryFile = path.resolve(process.argv[1]);
+
+if (currentFile === entryFile) {
+ AR_Customer();
+}
+
+```
+
+
+### Stock Transfer
+
+Maintain Customer - Get List, Add, Update & Delete Function - click to expand
+ +```js +// Updated on 01 Oct 2025 +import { sendRequest } from "./api/APICommon.js"; // base client +import fs from "fs"; +import readline from "readline"; + +/** + * Pretty-print JSON responses for debugging + */ +function debugPrintJson(data) { + if (!data) { + console.log("No data returned."); + return; + } + + if (Array.isArray(data.items)) { + console.log(`Found ${data.items.length} records:`); + data.items.forEach((item, idx) => { + console.log(`[${idx + 1}] code= ${item.code}, name= ${item.companyname}`); + }); + } else if (Array.isArray(data.data)) { + console.log(`Found ${data.data.length} record(s):`); + data.data.forEach((item, idx) => { + console.log(`[${idx + 1}] code= ${item.code}, name= ${item.companyname}`); + }); + } else if (typeof data === "object") { + console.log("Single record:"); + Object.entries(data).forEach(([k, v]) => { + console.log(` ${k}: ${JSON.stringify(v)}`); + }); + } else { + console.log("Raw:", data); + } +} + +export class CustomerApi { + constructor() { + this.basePath = "/customer"; // base path + } + + /** + * Get customer list with pagination (default: offset=0, limit=5) + */ + async get_list(offset = 0, limit = 5) { + const query = `offset=${offset}&limit=${limit}`; + console.log("\n--- Fetching customer list (offset = 0, limit = 5)---"); + const data = await sendRequest("GET", this.basePath, null, query); + + // Force limit client-side if API ignore + if (data && Array.isArray(data.data)) { + data.data = data.data.slice(offset, offset + limit); + } + + debugPrintJson(data); + return data; + } + + /** + * Get a single customer by code + */ + async get_single(code) { + const query = `code=${encodeURIComponent(code)}`; + try { + const data = await sendRequest("GET", this.basePath, null, query); + debugPrintJson(data); + return data; + } catch (err) { + console.error(`Failed to fetch customer '${code}':`, err.message); + throw err; + } + } + + /** + * Create new customer + */ + async create(payload) { + console.log("\n--- Creating new customer ---"); + try { + const data = await sendRequest("POST", this.basePath, payload); + debugPrintJson(data); + console.log("Customer created successfully."); + return data; + } catch (err) { + console.error( + "Failed to create customer:", + err.response?.data || err.message + ); + throw err; + } + } + + /** + * Update existing customer + */ + async update(code, payload) { + if (!code) throw new Error("Code required for update"); + console.log(`\n--- Updating customer code: ${code} ---`); + + // Ensure code is included in payload + const finalPayload = { ...payload, code }; + + const path = `${this.basePath}/${encodeURIComponent(code)}`; + const data = await sendRequest("PUT", path, finalPayload); + debugPrintJson(data); + console.log("Customer updated successfully."); + return data; + } + + /** + * Delete customer by code + */ + async delete(dockey) { + const path = `${this.basePath}/${dockey}`; + console.log(`\n--- Deleting customer dockey: ${dockey} ---`); + try { + const data = await sendRequest("DELETE", path); + debugPrintJson(data); + console.log("Customer deleted successfully."); + return data; + } catch (err) { + console.error( + `Failed to delete customer '${dockey}':`, + err.response?.data || err.message + ); + throw err; + } + } +} + +// ========== Runner ========== + +const custApi = new CustomerApi(); +const JSON_FOLDER = "./JSON/"; // your json folder file path, is same path as node.js, leave it blank + +// Readline interface +const rl = readline.createInterface({ + input: process.stdin, + output: process.stdout, +}); + +/** + * + * Helper to ask question and return Promise
+
+ */
+function ask(question) {
+ return new Promise(resolve => rl.question(question, resolve));
+}
+
+async function confirm(msg) {
+ const ans = (await ask(`${msg} (y/n): `)).toLowerCase();
+ return ans === "y" || ans === "yes";
+}
+
+// Helper to load JSON file
+function loadJson(filename) {
+ try {
+ const file = fs.readFileSync(filename, "utf8");
+ return JSON.parse(file);
+ } catch (err) {
+ console.error(`Failed to read ${filename}:`, err.message);
+ return null;
+ }
+}
+
+async function ST_XF() {
+ try {
+ // Example: Get stock transfer list
+ console.log("\n================= Stock Transfer List =================");
+ if (await confirm("Proceed to fetch stock transfer list?")) {
+ const list = await xfApi.get_list();
+ console.table(JSON.stringify(list, null, 2));
+ }
+
+ // Example: Get single stock transfer
+ console.log("\n================= Single Stock Transfer =================");
+ if (await confirm("Do you want to fetch a single stock transfer?")) {
+ const docno = await ask("Enter docno: ");
+ const data = await xfApi.get_single(docno.trim());
+ console.table(JSON.stringify(data, null, 2));
+ }
+
+ /**
+ // Example: Print stock transfer PDF
+ console.log("\n================= Print Stock Transfer =================");
+ if(await confirm("Do you want to printa stock transfer to PDF?")) {
+ const docno = await ask("Enter docno to print:");
+ await xfApi.print(docno.trim());
+ }
+ */
+
+ // Example: Create new stock transfer
+ console.log("\n================= Create Stock Transfer =================");
+ if (await confirm("Do you want to create new stock transfer?")) {
+ const payload = loadJson(JSON_FOLDER + "ST_XF-New.json"); // make sure your file name is correct
+ if (payload) await xfApi.create(payload);
+ else console.log("Skipped create stock transfer (no valid JSON).");
+ }
+
+ // Example: Edit existing stock transfer
+ console.log("\n================= Edit Stock Transfer =================");
+ if (await confirm("Do you want to edit a stock transfer?")) {
+ const payload = loadJson(JSON_FOLDER + "ST_XF-Edit.json"); // make sure your file name is correct
+ if (payload?.docno) {
+ const existing = await xfApi.get_single(payload.docno.trim());
+ if (existing?.data?.length > 0) {
+ const record = existing.data[0];
+ const dockey = record.dockey;
+
+ console.log(`Found dockey '${dockey}', updatecount '${record.updatecount}'`);
+
+ const finalPayload = { ...payload, dockey, updatecount: record.updatecount };
+ fs.writeFileSync(JSON_FOLDER + "ST_XF-Edit.json", JSON.stringify(finalPayload, null, 2)); // make sure your file name is correct
+
+ await xfApi.update(dockey, finalPayload);
+ } else {
+ console.log(`Stock transfer docno '${payload.docno}' not found.`);
+ }
+ } else {
+ console.log("The file must contain docno.");
+ }
+ }
+
+ // Example: Delete existing stock transfer
+ console.log("\n================= Delete Stock Transfer =================");
+ if (await confirm("Do you want to delete a stock transfer?")) {
+ const docno = await ask("Enter docno to delete: ");
+ const existing = await xfApi.get_single(docno.trim());
+ if (existing?.data?.length > 0) {
+ const dockey = existing.data[0].dockey;
+ console.log(`--- Deleting stock transfer '${docno}' (dockey=${dockey}) ---`);
+ await xfApi.delete(dockey);
+ } else {
+ console.log(`Stock transfer '${docno}' not found.`);
+ }
+ }
+ } catch (err) {
+ console.error("Error:", err.message);
+ } finally {
+ console.log("--- End of the Script ---");
+ rl.close();
+ }
+}
+
+import { fileURLToPath } from "url";
+import path from "path";
+const currentFile = fileURLToPath(import.meta.url);
+const entryFile = path.resolve(process.argv[1]);
+
+if (currentFile === entryFile) {
+ ST_XF();
+}
+
+```
+
+
+### GL Payment Voucher
+
+Stock Transfer - Get List, Add, Update & Delete Function - click to expand
+ +```js +// Updated on 11 Oct 2025 Print PDF not ready yet +import { sendRequest } from "./api/APICommon.js"; // base client +import fs from "fs"; +import readline from "readline"; + +/** + * Pretty-print JSON responses for debugging + */ +function debugPrintJson(data) { + if (!data) { + console.log("No data returned."); + return; + } + + if (Array.isArray(data.items)) { + console.log(`Found ${data.items.length} record(s):`); + data.items.forEach((item, idx) => { + console.log(`[${idx + 1}] docno= ${item.docno}, desc= ${item.description}, date= ${item.docdate}`); + }); + } else if (Array.isArray(data.data)) { + console.log(`Found ${data.data.length} record(s):`); + data.data.forEach((item, idx) => { + console.log(`[${idx + 1}] docno= ${item.docno}, descr= ${item.description}, date= ${item.docdate}`); + }); + } else if (typeof data === "object") { + console.log("Single record:"); + Object.entries(data).forEach(([k, v]) => { + console.log(` ${k}: ${JSON.stringify(v)}`); + }); + } else { + console.log("Raw:", data); + } +} + +export class StockTransferApi { + constructor() { + this.basePath = "/stocktransfer"; // base path + } + + /** + * Get stock transfer list with pagination (default offset=0, limit=5) + */ + async get_list(offset = 0, limit = 5) { + const query = `offset=${offset}&limit=${limit}`; + console.log("\n--- Fetching stock transfer list (offset = 0, limit = 5)---"); + const data = await sendRequest("GET", this.basePath, null, query); + + // Force limit client-side if API ignore + if (data && Array.isArray(data.data)) { + data.data = data.data.slice(offset, offset + limit); + } + + debugPrintJson(data); + return data; + } + + /** + * Get a single stock transfer by docno + */ + async get_single(docno) { + const query = `docno=${encodeURIComponent(docno)}`; + console.log(`\n--- Fetching stock transfer '${docno}' ---`); + + try { + const data = await sendRequest("GET", this.basePath, null, query); + debugPrintJson(data); + return data; + } catch (err) { + console.error(`Failed to fetch stock transfer '${docno}':`, err.response?.data || err.message); + throw err; + } + } + + /** + * Print a stock transfer as PDF + * + * Args: + * docno: document number of the stock transfer + * reportName: name of the report want to be print (E.g. Stock Transfer (With Cost)) + * savePath: output folder (E.g. ./PDF) + */ + async print(docno, reportName = "Stock Transfer (With Cost)", savePath = "./PDF") { + console.log(`\n--- Printing stock transfer '${docno}' to PDF ---`); + + // Step 1: Find dockey for the given docno + const existing = await this.get_single(docno); + if(!existing || !Array.isArray(existing.data) || existing.data.length === 0) { + throw new Error(`Stock Transfer '${docno}' not found`); + } + + const record = existing.data[0]; + const dockey = record.dockey; + const path = `${this.basePath}/${dockey}`; + + const pdfData = await sendRequest("GET", path, null, "", { + headers: { "Content-Type": `application/pdf;template=${reportName}`}, + responseType: "arraybuffer", + raw: true, + }); + + const fs = await import("fs"); + const fullSavePath = `${savePath}/Stock_Transfer_${docno}.pdf`; + fs.mkdirSync(savePath, { recursive: true }); + fs.writeFileSync(fullSavePath, pdfData); + console.log(`PDF saved: ${fullSavePath}`); + } + + /** + * Create new stock transfer + */ + async create(payload) { + console.log("\n--- Creating new stock transfer ---"); + try { + const data = await sendRequest("POST", this.basePath, payload); + debugPrintJson(data); + console.log("Stock transfer created successfully."); + return data; + } catch (err) { + console.error("Failed to create stock transfer:", err.response?.data || err.message); + throw err; + } + } + + /** + * Update existing stock transfer by dockey + */ + async update(dockey, payload) { + console.log(`\n--- Updating stock transfer dockey=${dockey} ---`); + + try { + // Step 1: fetch existing to get updatecount + const query = `dockey=${encodeURIComponent(dockey)}`; + const existing = await sendRequest("GET", this.basePath, null, query); + + const record = + (existing.data && existing.data[0]) || + (existing.items && existing.items[0]) || + existing; + + if (!record || typeof record.updatecount === "undefined") { + throw new Error("Updatecount missing. Try fetching via list API with dockey filter."); + } + + // Step 2: merge updatecount + const finalPayload = { ...payload, updatecount: record.updatecount }; + + // Step 3: PUT to update + const path = `${this.basePath}/${dockey}`; + const data = await sendRequest("PUT", path, finalPayload); + debugPrintJson(data); + console.log("Stock transfer updated successfully."); + return data; + } catch (err) { + console.error(`Failed to update stock transfer ${dockey}:`, err.response?.data || err.message); + throw err; + } + } + + /** + * Delete stock transfer by docno + */ + async delete(docno) { + const path = `${this.basePath}/${docno}`; + try { + const data = await sendRequest("DELETE", path); + debugPrintJson(data); + console.log("Stock transfer deleted successfully."); + return data; + } catch (err) { + console.error(`Failed to delete stock transfer '${docno}':`, err.response?.data || err.message); + throw err; + } + } +} + +// ======== Runner ======== + +const xfApi = new StockTransferApi(); +const JSON_FOLDER = "./JSON/"; // your json folder file path, if same path as node.js, leave it blank + +const rl = readline.createInterface({ + input: process.stdin, + output: process.stdout, +}); + +/** + * + * Helper to ask question and return Promise
+
+ */
+function ask(question) {
+ return new Promise((resolve) => rl.question(question, resolve));
+}
+
+async function confirm(message) {
+ const ans = (await ask(`${message} (y/n): `)).toLowerCase();
+ return ans === "y" || ans === "yes";
+}
+
+// Helper to load JSON file
+function loadJson(filename) {
+ try {
+ const file = fs.readFileSync(filename, "utf8");
+ return JSON.parse(file);
+ } catch (err) {
+ console.error(`Failed to read ${filename}:`, err.message);
+ return null;
+ }
+}
+
+async function GL_PV() {
+ try {
+ // Example: Get payment voucher list
+ console.log("\n================= Payment Voucher List =================");
+ if (await confirm("Proceed to fetch payment voucher list?")) {
+ const list = await pvApi.get_list();
+ console.table(JSON.stringify(list, null, 2));
+ }
+
+ // Example: Get single payment voucher
+ console.log("\n================= Single Payment Voucher =================");
+ if (await confirm("Do you want to fetch a single payment voucher?")) {
+ const docno = await ask("Enter docno: ");
+ const data = await pvApi.get_single(docno.trim());
+ console.table(JSON.stringify(data, null, 2));
+ }
+
+ /**
+ // Example: Print payment voucher PDF
+ console.log("\n================= Print Payment Voucher =================");
+ if(await confirm("Do you want to print an payment voucher to PDF?")) {
+ const docno = await ask("Enter docno to print: ");
+ await pvApi.print(docno.trim());
+ }
+ */
+
+ // Example: Create new payment voucher
+ console.log("\n================= Create Payment Voucher =================");
+ if (await confirm("Do you want to create a new payment voucher?")) {
+ const payload = loadJson(JSON_FOLDER + "GL_PV-New.json"); // make sure your file name is correct
+ if (payload) await pvApi.create(payload);
+ else console.log("Skipped create payment voucher (no valid JSON).");
+ }
+
+ // Example: Edit existing payment voucher
+ console.log("\n================= Edit Payment Voucher =================");
+ if (await confirm("Do you want to edit a payment voucher?")) {
+ const payload = loadJson(JSON_FOLDER + "GL_PV-Edit.json"); // make sure your file name is correct
+ if (payload?.docno) {
+ const existing = await pvApi.get_single(payload.docno.trim());
+ if (existing?.data?.length > 0) {
+ const record = existing.data[0];
+ const dockey = record.dockey;
+ console.log(
+ `Found dockey '${dockey}', updatecount '${record.updatecount}'`
+ );
+
+ const finalPayload = { ...payload, dockey, updatecount: record.updatecount };
+ fs.writeFileSync(
+ JSON_FOLDER + "GL_PV-Edit.json", // make sure your file name is correct
+ JSON.stringify(finalPayload, null, 2)
+ );
+
+ await pvApi.update(dockey, finalPayload);
+ } else {
+ console.log(`Payment voucher docno '${payload.docno}' not found.`);
+ }
+ } else {
+ console.log("The file must contain docno.");
+ }
+ }
+
+ // Example: Delete existing payment voucher
+ console.log("\n================= Delete Payment Voucher =================");
+ if (await confirm("Do you want to delete a payment voucher?")) {
+ const docno = await ask("Enter docno to delete: ");
+ const existing = await pvApi.get_single(docno.trim());
+ if (existing?.data?.length > 0) {
+ const dockey = existing.data[0].dockey;
+ console.log(`--- Deleting payment voucher '${docno}' ---`);
+ await pvApi.delete(dockey);
+ } else {
+ console.log(`Payment voucher '${docno}' not found.`);
+ }
+ }
+ } catch (err) {
+ console.error("Error:", err.message);
+ } finally {
+ console.log("--- End of the Script ---");
+ rl.close();
+ }
+}
+
+// Run directly
+import { fileURLToPath } from "url";
+import path from "path";
+const currentFile = fileURLToPath(import.meta.url);
+const entryFile = path.resolve(process.argv[1]);
+
+if (currentFile === entryFile) {
+ GL_PV();
+}
+
+```
+
+
+### Journal Entry
+
+GL Payment Voucher - Get List, Add, Update & Delete Function - click to expand
+ +```js +// Updated on 15 Oct 2025 Print PDF not ready yet +import { sendRequest } from "./api/APICommon.js"; // base client +import fs from "fs"; +import readline from "readline"; + +/** + * Pretty-print JSON for debugging for debugging + */ +function debugPrintJson(data) { + if (!data) { + console.log("No data returned."); + return; + } + + if (Array.isArray(data.items)) { + console.log(`Found ${data.items.length} record(s):`); + data.items.forEach((item, idx) => { + console.log(`[${idx + 1}] docno= ${item.docno}, desc= ${item.description}`); + }); + } else if (Array.isArray(data.data)) { + console.log(`Found ${data.data.length} record(s):`); + data.data.forEach((item, idx) => { + console.log(`[${idx + 1}] docno= ${item.docno}, desc= ${item.description}`); + }); + } else if (typeof data === "object") { + console.log("Single record:"); + Object.entries(data).forEach(([k, v]) => { + console.log(` ${k}: ${JSON.stringify(v)}`); + }); + } else { + console.log("Raw:", data); + } +} + +export class PaymentVoucherApi { + constructor() { + this.basePath = "/paymentvoucher"; // base path + } + + /** + * Get list of payment vouchers with pagination (default: offset=0, limit=5) + */ + async get_list(offset = 0, limit = 5) { + const query = `offset=${offset}&limit=${limit}`; + console.log("\n--- Fetching payment voucher list (offset = 0, limit = 5)---"); + const data = await sendRequest("GET", this.basePath, null, query); + + // Force limit client-side if API ignore + if (data && Array.isArray(data.data)) { + data.data = data.data.slice(offset, offset + limit); + } + + debugPrintJson(data); + return data; + } + + /** + * Get single payment voucher by docno + */ + async get_single(docno) { + const query = `docno=${encodeURIComponent(docno)}`; + console.log(`\n--- Fetching single payment voucher '${docno}' ---`); + try { + const data = await sendRequest("GET", this.basePath, null, query); + debugPrintJson(data); + return data; + } catch (err) { + console.error( + `Failed to fetch payment voucher '${docno}':`, + err.response?.data || err.message + ); + throw err; + } + } + + /** + * Print a payment voucher as PDF + * + * Args: + * docno: document number of the payment voucher + * reportName: name of the report want to be print (E.g. GL Payment Voucher - Detail - Full) + * savePath: output folder (E.g. ./PDF) + */ + async print(docno, reportName = "GL Payment Voucher - Detail - Full", savePath = "./PDF") { + console.log(`\n--- Printing Payment Voucher '${docno}' to PDF ---`); + + // Step 1: Find dockey for the given docno + const existing = await this.get_single(docno); + if(!existing || !Array.isArray(existing.data) || existing.data.length === 0) { + throw new Error(`Payment Voucher '${docno}' not found`); + } + + const record = existing.data[0]; + const dockey = record.dockey; + const path = `${this.basePath}/${dockey}`; + + const pdfData = await sendRequest("GET", path, null, "", { + headers: { "Content-Type": `application/pdf;template=${reportName}`}, + responseType: "arraybuffer", + raw: true, + }); + + const fs = await import("fs"); + const fullSavePath = `${savePath}/Payment_Voucher_${docno}.pdf`; + fs.mkdirSync(savePath, { recursive: true }); + fs.writeFileSync(fullSavePath, pdfData); + console.log(`PDF saved: ${fullSavePath}`); + } + + /** + * Create new payment voucher + */ + async create(payload) { + console.log("\n--- Creating new payment voucher ---"); + try { + const data = await sendRequest("POST", this.basePath, payload); + debugPrintJson(data); + console.log("Payment voucher created successfully."); + return data; + } catch (err) { + console.error( + "Failed to create payment voucher:", + err.response?.data || err.message + ); + throw err; + } + } + + /** + * Update existing payment voucher + */ + async update(dockey, payload) { + console.log(`\n--- Updating payment voucher dockey=${dockey} ---`); + try { + // Step 1: Fetch existing record for updatecount + const query = `dockey=${encodeURIComponent(dockey)}`; + const existing = await sendRequest("GET", this.basePath, null, query); + + const record = + (existing.data && existing.data[0]) || + (existing.items && existing.items[0]) || + existing; + + if (!record || typeof record.updatecount === "undefined") { + throw new Error( + "Updatecount missing. Try fetching via list API with dockey filter." + ); + } + + // Step 2: Merge updatecount into payload + const finalPayload = { ...payload, updatecount: record.updatecount }; + const path = `${this.basePath}/${dockey}`; + + // Step 3: Send PUT request with updatecount + const data = await sendRequest("PUT", path, finalPayload); + debugPrintJson(data); + console.log("Payment voucher updated successfully."); + return data; + } catch (err) { + console.error( + `Failed to update payment voucher ${dockey}:`, + err.response?.data || err.message + ); + throw err; + } + } + + /** + * Delete payment voucher by dockey + */ + async delete(dockey) { + const path = `${this.basePath}/${dockey}`; + try { + const data = await sendRequest("DELETE", path); + debugPrintJson(data); + console.log("Payment voucher deleted successfully."); + return data; + } catch (err) { + console.error( + `Failed to delete payment voucher '${dockey}':`, + err.response?.data || err.message + ); + throw err; + } + } +} + +// ===== Runner ===== + +const pvApi = new PaymentVoucherApi(); +const JSON_FOLDER = "./JSON/"; // your json folder file path, if same path as node.js, leave it blank + +// Readline interface +const rl = readline.createInterface({ + input: process.stdin, + output: process.stdout, +}); + +/** + * + * Helper to ask question and return Promise
+
+ */
+function ask(question) {
+ return new Promise((resolve) => rl.question(question, resolve));
+}
+
+async function confirm(message) {
+ const ans = (await ask(`${message} (y/n): `)).toLowerCase();
+ return ans === "y" || ans === "yes";
+}
+
+// Helper to load JSON file
+function loadJson(filename) {
+ try {
+ const file = fs.readFileSync(filename, "utf8");
+ return JSON.parse(file);
+ } catch (err) {
+ console.error(`Failed to read ${filename}:`, err.message);
+ return null;
+ }
+}
+
+async function GL_Journal() {
+ try {
+ // Example: Get journal entry list
+ console.log("\n================= Journal Entry List =================");
+ if (await confirm("Proceed to fetch journal entry list?")) {
+ const list = await jeApi.get_list();
+ console.table(JSON.stringify(list, null, 2));
+ }
+
+ // Example: Get single journal entry
+ console.log("\n================= Single Journal Entry =================");
+ if (await confirm("Do you want to fetch a single journal entry?")) {
+ const docno = await ask("Enter docno: ");
+ const data = await jeApi.get_single(docno.trim());
+ console.table(JSON.stringify(data, null, 2));
+ }
+
+ /**
+ // Example: Print journal entry PDF
+ console.log("\n================= Print Journal Entry =================");
+ if(await confirm("Do you want to print a journal entry to PDF?")) {
+ const docno = await ask("Enter docno to print: ");
+ await jeApi.print(docno.trim());
+ }
+ */
+
+ // Example: Create new journal entry
+ console.log("\n================= Create Journal Entry =================");
+ if (await confirm("Do you want to create a new journal entry?")) {
+ const payload = loadJson(JSON_FOLDER + "GL_JE-New.json"); // make sure your file name is correct
+ if (payload) await jeApi.create(payload);
+ else console.log("Skipped create journal entry (no valid JSON).");
+ }
+
+ // Example: Edit existing journal entry
+ console.log("\n================= Edit Journal Entry =================");
+ if (await confirm("Do you want to edit a journal entry?")) {
+ const payload = loadJson(JSON_FOLDER + "GL_JE-Edit.json"); // make sure your file name is correct
+ if (payload?.docno) {
+ const existing = await jeApi.get_single(payload.docno.trim());
+ if (existing?.data?.length > 0) {
+ const record = existing.data[0];
+ const dockey = record.dockey;
+ console.log(`Found dockey '${dockey}', updatecount '${record.updatecount}'`);
+
+ const finalPayload = { ...payload, dockey, updatecount: record.updatecount };
+ fs.writeFileSync(JSON_FOLDER + "GL_JE-Edit.json", JSON.stringify(finalPayload, null, 2)); // make sure your file name is correct
+
+ await jeApi.update(dockey, finalPayload);
+ } else {
+ console.log(`Journal entry docno '${payload.docno}' not found.`);
+ }
+ } else {
+ console.log("The file must contain docno.");
+ }
+ }
+
+ // Example: Delete existing journal entry
+ console.log("\n================= Delete Journal Entry =================");
+ if (await confirm("Do you want to delete a journal entry?")) {
+ const docno = await ask("Enter docno to delete: ");
+ const existing = await jeApi.get_single(docno.trim());
+ if (existing?.data?.length > 0) {
+ const dockey = existing.data[0].dockey;
+ console.log(`--- Deleting journal entry '${docno}' ---`);
+ await jeApi.delete(dockey);
+ } else {
+ console.log(`Journal entry '${docno}' not found.`);
+ }
+ }
+ } catch (err) {
+ console.error("Error:", err.message);
+ } finally {
+ console.log("--- End of the Script ---");
+ rl.close();
+ }
+}
+
+// Run script only if executed directly
+import { fileURLToPath } from "url";
+import path from "path";
+const currentFile = fileURLToPath(import.meta.url);
+const entryFile = path.resolve(process.argv[1]);
+
+if (currentFile === entryFile) {
+ GL_Journal();
+}
+
+```
+
+
+### Stock Item
+
+Journal Entry - Get List, Add, Update & Delete Function - click to expand
+ +```js +// Updated on 15 Oct 2025 print PDF not ready yet +import { sendRequest } from "./api/APICommon.js"; // base client +import fs from "fs"; +import readline from "readline"; + +/** + * Pretty-print JSON responses for debugging + */ +function debugPrintJson(data) { + if (!data) { + console.log("No data returned."); + return; + } + + if (Array.isArray(data.items)) { + console.log(`Found ${data.items.length} record(s):`); + data.items.forEach((item, idx) => { + console.log(`[${idx + 1}] docno= ${item.docno}, desc= ${item.description}`); + }); + } else if (Array.isArray(data.data)) { + console.log(`Found ${data.data.length} record(s):`); + data.data.forEach((item, idx) => { + console.log(`[${idx + 1}] docno= ${item.docno}, desc= ${item.description}`); + }); + } else if (typeof data === "object") { + console.log("Single record:"); + Object.entries(data).forEach(([k, v]) => { + console.log(` ${k}: ${JSON.stringify(v)}`); + }); + } else { + console.log("Raw:", data); + } +} + +export class JournalEntryApi { + constructor() { + this.basePath = "/journalentry"; // base bath + } + + /** + * Get journal entry list with pagination (default: offset=0, limit=5) + */ + async get_list(offset = 0, limit = 5) { + const query = `offset=${offset}&limit=${limit}`; + console.log("\n--- Fetching journal entry list (offset = 0, limit = 5)---"); + const data = await sendRequest("GET", this.basePath, null, query); + + // Force limit client-side if API ignore + if (data && Array.isArray(data.data)) { + data.data = data.data.slice(offset, offset + limit); + } + + debugPrintJson(data); + return data; + } + + /** + * Get a single journal entry by docno + */ + async get_single(docno) { + const query = `docno=${encodeURIComponent(docno)}`; + console.log(`\n--- Fetching single journal entry '${docno}' ---`); + try { + const data = await sendRequest("GET", this.basePath, null, query); + debugPrintJson(data); + return data; + } catch (err) { + console.error( + `Failed to fetch journal entry '${docno}':`, + err.response?.data || err.message + ); + throw err; + } + } + + /** + * Print a journal entry as PDF + * + * Args: + * docno: document number of the journal entry + * reportName: name of the report want to be print (E.g. GL Journal Voucher - Full) + * savePath: output folder (E.g. ./PDF) + */ + async print(docno, reportName = "GL Journal Voucher - Full", savePath = "./PDF") { + console.log(`\n--- Printing journal entry '${docno}' to PDF ---`); + + // Step 1: Find dockey for the given docno + const existing = await this.get_single(docno); + if(!existing || !Array.isArray(existing.data) || existing.data.length === 0) { + throw new Error(`Journal Entry '${docno}' not found`); + } + + const record = existing.data[0]; + const dockey = record.dockey; + const path = `${this.basePath}/${dockey}`; + + const pdfData = await sendRequest("GET", path, null, "", { + headers: { "Content-Type": `application/pdf;template=${reportName}`}, + responseType: "arraybuffer", + raw: true, + }); + + const fs = await import("fs"); + const fullSavePath = `${savePath}/Journal_Entry_${docno}.pdf`; + fs.mkdirSync(savePath, { recursive: true }); + fs.writeFileSync(fullSavePath, pdfData); + console.log(`PDF saved: ${fullSavePath}`); + } + + /** + * Create new journal entry + */ + async create(payload) { + console.log("\n--- Creating new journal entry ---"); + try { + const data = await sendRequest("POST", this.basePath, payload); + debugPrintJson(data); + console.log("Journal entry created successfully."); + return data; + } catch (err) { + console.error( + "Failed to create journal entry:", + err.response?.data || err.message + ); + throw err; + } + } + + /** + * Update existing journal entry + */ + async update(dockey, payload) { + console.log(`\n--- Updating journal entry dockey=${dockey} ---`); + try { + // Step 1: Fetch record for updatecount + const query = `dockey=${encodeURIComponent(dockey)}`; + const existing = await sendRequest("GET", this.basePath, null, query); + + const record = + (existing.data && existing.data[0]) || + (existing.items && existing.items[0]) || + existing; + + if (!record || typeof record.updatecount === "undefined") { + throw new Error("Updatecount missing. Try fetching via list API with dockey filter."); + } + + // Step 2: Merge updatecount into payload + const finalPayload = { ...payload, updatecount: record.updatecount }; + + // Step 3: Send PUT request with updatecount + const path = `${this.basePath}/${dockey}`; + const data = await sendRequest("PUT", path, finalPayload); + debugPrintJson(data); + console.log("Journal entry updated successfully."); + return data; + } catch (err) { + console.error( + `Failed to update journal entry ${dockey}:`, + err.response?.data || err.message + ); + throw err; + } + } + + /** + * Delete journal entry by dockey + */ + async delete(dockey) { + const path = `${this.basePath}/${dockey}`; + try { + const data = await sendRequest("DELETE", path); + debugPrintJson(data); + console.log("Journal entry deleted successfully."); + return data; + } catch (err) { + console.error( + `Failed to delete journal entry '${dockey}':`, + err.response?.data || err.message + ); + throw err; + } + } +} + +// ===== Runner ===== + +const jeApi = new JournalEntryApi(); +const JSON_FOLDER = "./JSON/"; // your json folder file path, if same path as node.js, leave it blank + +// Readline interface +const rl = readline.createInterface({ + input: process.stdin, + output: process.stdout, +}); + +/** + * + * Helper to ask question and return Promise
+
+ */
+function ask(question) {
+ return new Promise(resolve => rl.question(question, resolve));
+}
+
+async function confirm(message) {
+ const ans = (await ask(`${message} (y/n): `)).toLowerCase();
+ return ans === "y" || ans === "yes";
+}
+
+// Helper to load JSON file
+function loadJson(filename) {
+ try {
+ const file = fs.readFileSync(filename, "utf8");
+ return JSON.parse(file);
+ } catch (err) {
+ console.error(`Failed to read ${filename}:`, err.message);
+ return null;
+ }
+}
+
+async function ST_Item() {
+ try {
+ // List stock items
+ console.log("\n================= Stock Item List =================");
+ if (await confirm("Proceed to fetch stock item list?")) {
+ const list = await itemApi.get_list();
+ console.table(JSON.stringify(list, null, 2));
+ }
+
+ // Single stock item
+ console.log("\n================= Single Stock Item =================");
+ if (await confirm("Do you want to fetch a single stock item?")) {
+ const code = await ask("Enter stock item code: ");
+ const item = await itemApi.get_single(code.trim());
+ console.log(`\n--- Fetching stock item code '${code}' ---`);
+ console.table(JSON.stringify(item, null, 2));
+ }
+
+ // Create stock item
+ console.log("\n================= Create New Stock Item =================");
+ if (await confirm("Do you want to create a new stock item?")) {
+ const payload = loadJson(JSON_FOLDER + "ST_Item-New.json"); // Make sure your file name is correct
+ if (payload) {
+ await itemApi.create(payload);
+ } else {
+ console.log("Skipped create stock item (no valid JSON).");
+ }
+ }
+
+ // Edit stock item
+ console.log("\n================= Edit Stock Item =================");
+ if (await confirm("Do you want to edit a stock item?")) {
+ const payload = loadJson(JSON_FOLDER + "ST_Item-Edit.json");
+ if (!payload?.code) {
+ console.log("The file must contain stock item code.");
+ } else {
+ const code = payload.code.trim();
+ console.log(`\n--- Looking for stock item code '${code}' ---`);
+
+ // Fetch existing record by code
+ const existing = await itemApi.get_single(code);
+
+ // Normalize record extraction
+ const record =
+ (existing && existing.data && existing.data[0]) ||
+ (existing && existing.items && existing.items[0]) ||
+ existing;
+
+ if (!record) {
+ console.log(`Stock Item Code '${code}' not found.`);
+ } else {
+ const dockey = record.dockey;
+
+ const finalPayload = { ...record, ...payload, dockey};
+
+ fs.writeFileSync(
+ JSON_FOLDER + "ST_Item-Edit.json",
+ JSON.stringify(finalPayload, null, 2)
+ );
+
+ await itemApi.update(dockey, finalPayload);
+ }
+ }
+ }
+
+ // Delete stock item
+ console.log("\n================= Delete Stock Item =================");
+ if (await confirm("Do you want to delete a stock item?")) {
+ const code = await ask("Enter stock item code to delete: ");
+ if (code) {
+ console.log(`--- Deleting stock item '${code}' ---`);
+ const existing = await itemApi.get_single(code.trim());
+
+ const record =
+ (existing && existing.data && existing.data[0]) ||
+ (existing && existing.items && existing.items[0]) ||
+ existing;
+
+ if (!record) {
+ console.log(`Stock Item Code '${code}' not found.`);
+ } else {
+ const dockey = record.dockey;
+ await itemApi.delete(dockey);
+ }
+ }
+ }
+ } catch (err) {
+ console.error("Error:", err.message);
+ } finally {
+ console.log("--- End of the Script ---");
+ rl.close();
+ }
+}
+
+import { fileURLToPath } from "url";
+import path from "path";
+
+const currentFile = fileURLToPath(import.meta.url);
+const entryFile = path.resolve(process.argv[1]);
+
+if (currentFile === entryFile) {
+ ST_Item();
+}
+
+```
+
+
+### Stock Received
+
+Stock Item - Get List, Add, Update & Delete Function - click to expand
+ +```js +// Updated on 04 Oct 2025 +import { sendRequest } from "./api/APICommon.js"; // base client +import fs from "fs"; +import readline from "readline"; + +/** + * Pretty-print JSON responses for debugging + */ +function debugPrintJson(data) { + if (!data) { + console.log("No data returned."); + return; + } + + if (Array.isArray(data.items)) { + console.log(`Found ${data.items.length} records:`); + data.items.forEach((item, idx) => { + console.log(`[${idx + 1}] code= ${item.code}, dockey= ${item.dockey}, desc= ${item.description}, stockgroup= ${item.stockgroup}`); + }); + } else if (Array.isArray(data.data)) { + console.log(`Found ${data.data.length} record(s):`); + data.data.forEach((item, idx) => { + console.log(`[${idx + 1}] code= ${item.code}, dockey= ${item.dockey}, desc= ${item.description}, stockgroup= ${item.stockgroup}`); + }); + } else if (typeof data === "object") { + console.log("Single record:"); + Object.entries(data).forEach(([k, v]) => { + console.log(` ${k}: ${JSON.stringify(v)}`); + }); + } else { + console.log("Raw:", data); + } +} + +export class StockItemApi { + constructor() { + this.basePath = "/stockitem"; // base path + } + + /** + * Get stock item list + */ + async get_list(offset = 0, limit = 10) { + const query = `offset=${offset}&limit=${limit}`; + console.log("\n--- Fetching stock item list ---"); + const data = await sendRequest("GET", this.basePath, null, query); + + if (data && Array.isArray(data.data)) { + data.data = data.data.slice(offset, offset + limit); + } + + debugPrintJson(data); + return data; + } + + /** + * Get a single stock item by code + */ + async get_single(code) { + const query = `code=${encodeURIComponent(code)}`; + console.log(`\n--- Fetching single stock item '${code}' ---`); + try { + const data = await sendRequest("GET", this.basePath, null, query); + debugPrintJson(data); + return data; + } catch (err) { + console.error(`Failed to fetch stock item '${code}':`, err.message); + throw err; + } + } + + /** + * Create new stock item + */ + async create(payload) { + console.log("\n--- Creating new stock item ---"); + try { + const data = await sendRequest("POST", this.basePath, payload); + debugPrintJson(data); + console.log("Stock item created successfully."); + return data; + } catch (err) { + console.error("Failed to create stock item:", err.response?.data || err.message); + throw err; + } + } + + /** + * Update existing stock item + */ + async update(dockey, payload) { + if (!dockey) throw new Error("Dockey required for update"); + console.log(`\n--- Updating stock item dockey: ${dockey} ---`); + + const finalPayload = { ...payload, dockey }; + const path = `${this.basePath}/${encodeURIComponent(dockey)}`; + + try { + const data = await sendRequest("PUT", path, finalPayload); + debugPrintJson(data); + console.log("Stock item updated successfully."); + return data; + } catch (err) { + console.error(`Failed to update stock item '${dockey}':`, err.response?.data || err.message); + throw err; + } + } + + /** + * Delete stock item by code + */ + async delete(dockey) { + const path = `${this.basePath}/${encodeURIComponent(dockey)}`; + try { + const data = await sendRequest("DELETE", path); + debugPrintJson(data); + console.log("Stock item deleted successfully."); + return data; + } catch (err) { + console.error(`Failed to delete stock item '${dockey}':`, err.response?.data || err.message); + throw err; + } + } +} + +// ========== Runner ========== + +const itemApi = new StockItemApi(); +const JSON_FOLDER = "./JSON/"; // your json folder file path, if same path as node.js, leave it blank + +// Readline interface +const rl = readline.createInterface({ + input: process.stdin, + output: process.stdout, +}); + +/** + * + * Helper to ask question and return Promise
+
+ */
+function ask(question) {
+ return new Promise(resolve => rl.question(question, resolve));
+}
+
+async function confirm(message) {
+ const ans = (await ask(`${message} (y/n): `)).toLowerCase();
+ return ans === "y" || ans === "yes";
+}
+
+// Helper to load JSON file
+function loadJson(filename) {
+ try {
+ const file = fs.readFileSync(filename, "utf8");
+ return JSON.parse(file);
+ } catch (err) {
+ console.error(`Failed to read ${filename}:`, err.message);
+ return null;
+ }
+}
+
+async function ST_Received() {
+ try {
+ // Example: Get stock recieved list
+ console.log("\n================= Stock Received List =================");
+ if (await confirm("Proceed to fetch stock received list?")) {
+ const list = await srApi.get_list();
+ console.table(JSON.stringify(list, null, 2));
+ }
+
+ // Example: Get single stock received
+ console.log("\n================= Single Stock Received =================");
+ if (await confirm("Do you want to fetch a single stock received?")) {
+ const docno = await ask("Enter docno: ");
+ const list = await srApi.get_single(docno.trim());
+ console.table(JSON.stringify(list, null, 2));
+ }
+
+ /**
+ * Example: Print stock received PDF
+ console.log("\n================= Print Stock Received =================");
+ if(await confirm("Do you want to print a stock received to PDF?")) {
+ const docno = await ask("Enter docno to print: ");
+ await srApi.print(docno.trim());
+ }
+ */
+
+ // Example: Create new stock received
+ console.log("\n================= Create Stock Received =================");
+ if (await confirm("Do you want to create new stock received?")) {
+ const payload = loadJson(JSON_FOLDER + "ST_RC-New.json"); // make sure your file name is correct
+ if (payload) await srApi.create(payload);
+ }
+
+ // Example: Edit existing stock received
+ console.log("\n================= Edit Stock Received =================");
+ if (await confirm("Do you want to edit a stock received?")) {
+ const payload = loadJson(JSON_FOLDER + "ST_RC-Edit.json"); // make sure your file name is correct
+ if (payload?.docno) {
+ const existing = await srApi.get_single(payload.docno.trim());
+ if (existing?.data?.length > 0) {
+ const record = existing.data[0];
+ const dockey = record.dockey;
+
+ console.log(`Found dockey '${dockey}', updatecount '${record.updatecount}'`);
+
+ const finalPayload = { ...payload, dockey, updatecount: record.updatecount };
+ fs.writeFileSync(JSON_FOLDER + "ST_RC-Edit.json", JSON.stringify(finalPayload, null, 2)); // make sure your file name is correct
+
+ await srApi.update(dockey, finalPayload);
+ } else {
+ console.log(`Stock received docno '${payload.docno}' not found.`);
+ }
+ }
+ }
+
+ // Example: Delete existing stock received
+ console.log("\n================= Delete Stock Received =================");
+ if (await confirm("Do you want to delete a stock received?")) {
+ const docno = await ask("Enter docno to delete: ");
+ if (docno) {
+ const existing = await srApi.get_single(docno.trim());
+ if (existing?.data?.length > 0) {
+ const dockey = existing.data[0].dockey;
+ console.log(`Deleting stock received with dockey=${dockey}`);
+ await srApi.delete(dockey);
+ } else {
+ console.log(`Stock received docno '${docno}' not found.`);
+ }
+ }
+ }
+ } catch (err) {
+ console.error("Error:", err.message);
+ } finally {
+ console.log("--- End of the Script ---");
+ rl.close();
+ }
+}
+
+import { fileURLToPath } from "url";
+import path from "path";
+
+const currentFile = fileURLToPath(import.meta.url);
+const entryFile = path.resolve(process.argv[1]);
+
+if (currentFile === entryFile) {
+ ST_Received();
+}
+
+```
+
+
diff --git a/docs/integration/sql-mobile-connect/on-premise-setup.md b/docs/integration/sql-mobile-connect/on-premise-setup.md
index 10150766..6e14e8fd 100644
--- a/docs/integration/sql-mobile-connect/on-premise-setup.md
+++ b/docs/integration/sql-mobile-connect/on-premise-setup.md
@@ -36,11 +36,11 @@ If the provider requests a reason, you can explain that you intend to host a ser
1. On `Logon Screen` > **Click** `⚙️`
- 
+ 
2. **Right-Click** on company database > **Select** `Configure Mobile Connect...`
- 
+ 
3. **Click** on `Install` to install mobile connect service
@@ -48,13 +48,13 @@ If the provider requests a reason, you can explain that you intend to host a ser
A default host name will be filled in. However, if you would like to use a custom host name, you may edit the default. Note that changing hostname is only available during the initial setup. (Host name should have **at least 8 characters**)
:::
- 
+ 
### Step 2 - Start Service
After the installation, start the service. Once successful, `Service is running` status will show on screen.
-
+
### Step 3 - Port Forwarding
@@ -63,7 +63,7 @@ Next, we will need to do `Port Forwarding`.
:::info[Port Forwarding Information]
You can **Click** on `Show Tips` to find all the information for port forwarding configuration.
-
+
:::
1. **Access Router Setting**: Login to the router's administration interface on web browser.
@@ -74,7 +74,7 @@ You can **Click** on `Show Tips` to find all the information for port forwarding
If you are using a firewall or serving the router's web administration interface via a different IP address, this might not work.
:::
- 
+ 
2. **Navigate to Port Forwarding Section**: Find `Port Forwarding`, `Virtual Service` or similar section in the router's setting.
@@ -89,7 +89,7 @@ You can **Click** on `Show Tips` to find all the information for port forwarding
5. **Verify**: **Click** on `Test Connection` to test `SQL Mobile Connect` access status. When `✅ OK` status is shown, it means the service is setup successfully.
- 
+ 
#### Examples of Port Forward
@@ -97,7 +97,7 @@ You can **Click** on `Show Tips` to find all the information for port forwarding
1. Navigate to `Advanced` > `NAT Forwarding` > `Virtual Servers`, click `Add` to create a new entry.
- 
+ 
2. Fill in the details following the [Port Forwarding Information](#step-3---port-forwarding):
@@ -109,7 +109,7 @@ You can **Click** on `Show Tips` to find all the information for port forwarding
|Internal Port|Internal Port|
|Protocol|Protocol|
- 
+ 
3. Click `OK`.
@@ -117,7 +117,7 @@ You can **Click** on `Show Tips` to find all the information for port forwarding
1. Navigate to `Advanced` > `NAT Forwarding` > `Port Forwarding`, click `Add` to create a new entry.
- 
+ 
2. Fill in the details following the [Port Forwarding Information](#step-3---port-forwarding):
@@ -129,7 +129,7 @@ You can **Click** on `Show Tips` to find all the information for port forwarding
|Internal Port|Internal Port|
|Protocol|Protocol|
- 
+ 
3. Click `Save`.
@@ -137,7 +137,7 @@ You can **Click** on `Show Tips` to find all the information for port forwarding
1. Navigate to `⚙️` > `Forward Rules` > `IPv4 Port Mapping`, click `New` to create a new entry.
- 
+ 
2. Fill in the details following the [Port Forwarding Information](#step-3---port-forwarding):
@@ -149,7 +149,7 @@ You can **Click** on `Show Tips` to find all the information for port forwarding
|Internal port number|Internal Port|
|Protocol|Protocol|
- 
+ 
3. Click `Apply`.
@@ -157,7 +157,7 @@ You can **Click** on `Show Tips` to find all the information for port forwarding
1. Navigate to `Basic Setup` > `NAT` > `Port Forwarding`, click `Add Port Forwarding` to create a new entry.
- 
+ 
2. Fill in the details following the [Port Forwarding Information](#step-3---port-forwarding):
@@ -168,7 +168,7 @@ You can **Click** on `Show Tips` to find all the information for port forwarding
|Local Port Range|Internal Port|
|Remote Port Range|External Port|
- 
+ 
3. Click `Confirm`.
@@ -176,7 +176,7 @@ You can **Click** on `Show Tips` to find all the information for port forwarding
1. Navigate to `Basic Setup` > `NAT` > `Port Forwarding`, click `Add` to create a new entry.
- 
+ 
2. Fill in the details following the [Port Forwarding Information](#step-3---port-forwarding):
@@ -188,7 +188,7 @@ You can **Click** on `Show Tips` to find all the information for port forwarding
|Remote Port Range|External Port|
|Comment|Name|
- 
+ 
3. Click `Confirm`.
@@ -200,25 +200,25 @@ Before access to the service, do remember to setup your users. To learn more, fo
1. You can now access `SQL Mobile Connect` by **Clicking** on the globe `🌐`
- 
+ 
2. We offer two options for users to access the service:
- **Click** on `Copy` (top left) to retrieve the link
- **Scan** the `QR Code` with your phone
- 
+ 
3. You should see the login page.
- 
+ 
## Alternative External Port (2764)
If your router does not allow traffic on `port 443`, you can **tick** on `Use Alternative External Port (2764)` to configure mobile connect service to use `port 2764`
-
+
After `Install` and `✅ Service is running` on port 2764. Now you can configure port forwarding on your router with `external port 2764`
-
+
diff --git a/docs/integration/sql-mobile-connect/set-user-view.md b/docs/integration/sql-mobile-connect/set-user-view.md
index 4e1718c8..9415a1f5 100644
--- a/docs/integration/sql-mobile-connect/set-user-view.md
+++ b/docs/integration/sql-mobile-connect/set-user-view.md
@@ -11,7 +11,7 @@ tags: ["SQL Account", "SQL Mobile Connect", "Setup", "User View", "View Template
**Step 1**: Go to **Tools** | **DIY** | **Maintain DIY**
-
+
**Step 2**: Switch to **View Template** tab, then click on **Load From File** to select `View Template` to load
@@ -21,40 +21,40 @@ You can download this **[View Template - View by Agent (Current User)](https://c
This `View Template` will filter document by `Agent`, where `Agent` is match to current login user `Code`.
:::
-
+
**Step 3**: After select a `View Template` file to load, you can select **Load All** or **Custom**
-
+
- **Load All**: All the template will load.
- **Custom**: Can select all or some template to load.
- 
+ 
Once completed, `Loaded` message will prompt and all `View Template` loaded will show.
-
+
-
+
**Step 4**: **Right-click** on View Template and click on **User View**.
-
+
**Step 5**: A list of `User` will shown, then **tick** on `User View` column for the `User` that want to apply this View Template and click **Save**.
-
+
Based on the scenario above, `Invoice view by Agent - Current User` View Template is applied to `SALES` user. When `SALES` user login to SQL Account, the user only can view those `Invoice` with `Agent` code equal to `SALES`
- Login by **SALES**
- 
+ 
- Login by **ADMIN**
- 
+ 
## 2.0 How to Set Customer View by Agent
@@ -64,18 +64,18 @@ Go to **Tools** | **DIY** | **Maintain DIY…** | **View Template**
Under **Customer** | Open, select **AGENT** Equals **'LIM'** | Save
-
+
**Step 2**: Right-click and Select **User View**
-
+
**Step 3**: Choose **'LIM'** Under User View
-
+
Under Sales Document Listing, only the sales results for Agent **LIM** are visible.
-
+
-
\ No newline at end of file
+
diff --git a/docs/integration/sql-mobile-connect/use-in-web-view.md b/docs/integration/sql-mobile-connect/use-in-web-view.md
index c700b37d..90faa8db 100644
--- a/docs/integration/sql-mobile-connect/use-in-web-view.md
+++ b/docs/integration/sql-mobile-connect/use-in-web-view.md
@@ -9,27 +9,27 @@ tags: ["SQL Account", "SQL Mobile Connect", "Open in Desktop Browser"]
1. Go to **Tools | Maintain User…**
- 
+ 
2. Select the desired **User** under **Maintain User**.
:::info REQUIRED
Make sure the user has registered the **passkey** before proceeding to the next step
- :::
+ :::
- 
+ 
Then, select the `Passkey` and click on the global icon
- 
+ 
3. Click this icon to copy the link and paste it into your browser.
- 
+ 
4. Click `Log on with QR Code`, then scan the QR code.
- 
+ 
:::info REQUIRED
Make sure to use the device that registered the passkey for this user to scan the QR code.
@@ -37,8 +37,8 @@ tags: ["SQL Account", "SQL Mobile Connect", "Open in Desktop Browser"]
5. Proceed by opening it in the browser on your device. Next, select `Authenticate` and approve the access.
- 
+ 
-6. You can now use Mobile Connect in Web View.
+6. You can now use Mobile Connect in Web View.
- 
\ No newline at end of file
+ 
diff --git a/docs/integration/sql-mobile-connect/user-setup.md b/docs/integration/sql-mobile-connect/user-setup.md
index 5f7792ed..8baea1d7 100644
--- a/docs/integration/sql-mobile-connect/user-setup.md
+++ b/docs/integration/sql-mobile-connect/user-setup.md
@@ -26,7 +26,7 @@ The setup process consists of two main parts:
2. Click **Create New Agent**
3. Fill in the agent details and click **Save**
- 
+ 
### Step 2: Create WebApp User
@@ -34,19 +34,19 @@ The setup process consists of two main parts:
2. A dialog box will appear showing **"User is created"**
3. Click **OK** to confirm
- 
+ 
### Step 3: Generate Passkey Registration
1. Click the **+ Button** under the Passkey window
- 
+ 
2. A registration screen will appear with:
- **Copy Link** button (highlighted in red box)
- **QR Code** for mobile scanning
- 
+ 
3. Share either the link or QR code with the user for device registration
@@ -55,13 +55,13 @@ The setup process consists of two main parts:
1. Enter a descriptive **Nickname** for this passkey
2. Click **OK** to save
- 
+ 
### Step 5: Verify Setup Completion
The new passkey will now appear under your agent, confirming successful setup.
-
+
---
@@ -74,7 +74,7 @@ Users can access the registration in two ways:
- Click the provided link
- Scan the QR code with their mobile device
-
+
### Step 2: Register Passkey
@@ -86,7 +86,7 @@ Users can access the registration in two ways:
After successful passkey registration, users will see the installation screen:
-
+
#### Installation Instructions by Platform
@@ -94,7 +94,7 @@ After successful passkey registration, users will see the installation screen:
- **Windows**: Click **Install App**
- **iOS**: Click **Share** → **Add to Home Screen**
-
+
### Step 4: Access the Application
@@ -107,12 +107,12 @@ Users can also access the application by:
- Copying the provided link (red box)
- Scanning the QR code for quick access
-
+
### Step 5: Start Using SQL Mobile Connect
-
-
+
+
The setup is now complete! Users can begin exploring and using the SQL Mobile Connect application.
diff --git a/docs/integration/stock-take.md b/docs/integration/stock-take.md
deleted file mode 100644
index 35e25358..00000000
--- a/docs/integration/stock-take.md
+++ /dev/null
@@ -1,101 +0,0 @@
----
-title: Stock Take App
-description: Stock Take application guide
-slug: /stock-take-app
-tags: ["SQL Account", "Stock"]
----
-
-## Prerequisite
-
-Please make sure the user has a SQL Drive account. For new users, please contact your SQL Service Consultant to register for an account.
-
-Provide the following user details for registration purposes:
- - Customer's Google E-mail
- - Customer's Full Name
- - Company Name
-
-:::warning[INFO]
-Only one(1) SQL Drive account is needed for each company.
-
-Users who already have an SQL Drive account that was previously used for SQL Payroll E-Claim may use that account to log in for SQL Account Stock Take.
-:::
-
-## 1. Stock Take Items List Import
-
-Before following the steps in the subsections below
-
-### 1. SQL Account Configuration
-
-1. Go to "**Tools**" > "**Options...**".
-
-2. On the Options window, click on "**Barcode**" > "**Stock Take**" tab and click on the switch beside "**Stock Take**" label.
-
-3. On the SQL Drive window prompt, click "**Log in**" button.
-
-4. Click on "**Log in with Google**" button.
-
-5. Click on "**Grant access**" button.
-
-6. On "**Account connected**" display, close SQL Drive window.
-
-7. A Stock Take Share will be set, and the switch will change from Off to On
-
-### 2. Stock Take Module Initial Configuration
-
-1. Go to "**Stock**" -> "**Stock Take...**".
-
-2. On the Stock Take window, click "**New Job**" button.
-
-3. On first dialog prompt(Do you want to cancel?), choose "**No**".
-
-4. On second dialog prompt(Do you want to continue?), choose "**Yes**".
-
-### 3. Stock Take App Import
-
-1. On the Stock Take app home page, tap on "Update Items List" button(located to the left of "Update Items List" label).
-
-2. On "Import Options" page, users can change the device name by tapping on the edit box next to the label "Name:", which is optional. The device name will be displayed on SQL Account to help the user identify which device uploaded stock take result and its content
-
-3. Tap on "**Network File Transfer**" button.
-
- * For devices without a Stock Take share profile set, a QR code scanner will be shown. Proceed to scan the QR shown in SQL Account Stock Take window.
-
- * For devices with stock take share profile set, the import process will begin immediately.
-
-## 2. Sync Stock Take Result To SQL Account
-
-Sync stock take result from Stock Take app to SQL Account to perform stock adjustment on SQL Account
-
-1. Stock Take App Upload
-
- 1. On the Stock Take mode page, tap on "**More Options**" button.
-
- 2. Tap on "**Export/Upload**" button.
-
- 3. Choose option "**SQL Stock Take Import File**".
-
- 4. Tap on the "**Upload**" button.
-
-2. SQL Account Sync
-
- 1. Go to "**Stock**" -> "**Stock Take...**".
-
- 2. On Stock Take window, click on "**Refresh**" button.
-
-## 3. Reset Connection Profile
-
-User may want to reset Stock Take share profile on Stock Take app as user would want to switch to different Stock Take share profile.
-
-:::note
-Stock Take share profile refers to one(1) company only
-:::
-
-Resetting company profile will require user to scan QR code on SQL Acoount Stock Take window and update items list. To reset Stock Take share profile:
-
-1. On Stock Take app home page, tap on the "**Update Items List**" button (which is located to the left of "Update items List" label).
-
-2. On "**Import Options**" page, tap on the "**Reset Connection Profile**" button (which is located to the left of "Reset Connection Profile" label).
-
-3. When prompted to proceed with resetting the connection profile, tap on the button "**Yes**" to continue.
-
-4. Once done, tap on the "**Network File Transfer**" to add a new Stock Take share profile and update items list (Follow steps in [Stock Take App Import](#3-stock-take-app-import), specifically steps 2 and 3).
diff --git a/docs/integration/stoke-take-mobile-app/_category_.json b/docs/integration/stoke-take-mobile-app/_category_.json
new file mode 100644
index 00000000..7576e588
--- /dev/null
+++ b/docs/integration/stoke-take-mobile-app/_category_.json
@@ -0,0 +1,8 @@
+{
+ "label": "Stoke Take Mobile App",
+ "position": 9,
+ "link": {
+ "type": "generated-index",
+ "description": "A quick guide on Stoke Take App for SQL Account"
+ }
+}
\ No newline at end of file
diff --git a/docs/integration/stoke-take-mobile-app/faq.md b/docs/integration/stoke-take-mobile-app/faq.md
new file mode 100644
index 00000000..8db6975e
--- /dev/null
+++ b/docs/integration/stoke-take-mobile-app/faq.md
@@ -0,0 +1,19 @@
+---
+sidebar_position: 3
+title: FAQ
+description: Stock Take FAQ
+slug: /stock-take-mobile-app/faq
+tags: ["SQL Account", "Stock","FAQ"]
+---
+
+## Stock Take
+
+### How to Reset/Start New Batch/Job of Stock Take?
+
+In SQL Accounting
+
+ 
+
+In Stock Take App
+
+ 
diff --git a/docs/integration/stoke-take-mobile-app/stock-take.md b/docs/integration/stoke-take-mobile-app/stock-take.md
new file mode 100644
index 00000000..4bee1c6d
--- /dev/null
+++ b/docs/integration/stoke-take-mobile-app/stock-take.md
@@ -0,0 +1,196 @@
+---
+sidebar_position: 1
+id: stock-take
+title: Stock Take App
+description: Stock Take application guide
+slug: /stock-take-mobile-app/stock-take
+tags: ["SQL Account", "Stock"]
+---
+
+## Introduction
+
+This Function & Mobile App which is use for Stock Take
+
+### Pros
+
+01. Able to Stock Take/Count using Smartphone
+02. Sync to SQL Accounting Stock Adjustment wireless
+03. Able to Check Price
+
+### Cons
+
+01. Unable to Sync if no WiFi or WiFi signal is very Weak
+02. Drain Mobile Phone battery if keep On the
+
+## Requirement
+
+ - Internet Access
+ - SQL Accounting Version 781 & above
+ - Smart Phone requirement
+ :::info
+ - 4 GB RAM & above
+ - 32 GB Storage (more Item more storage required)
+ - Android 6 (Marshmallow) and above
+ - Permission - Camera & Storage
+ - IOS 11 and above
+ :::
+ - Barcode for Each Item Code
+
+## Installation
+
+- [stock take app - website](https://www.sql.com.my/sqlstocktake/)
+- [stock take - huawei app gallery](https://appgallery.huawei.com/#/app/C102639285)
+
+## Prerequisite
+
+Please make sure the user has a SQL Drive account. For new users, please contact your SQL Service Consultant to register for an account.
+
+Provide the following user details for registration purposes:
+ - Customer's Google E-mail
+ - Customer's Full Name
+ - Company Name
+
+:::warning[INFO]
+Only one(1) SQL Drive account is needed for each company.
+
+Users who already have an SQL Drive account that was previously used for SQL Payroll E-Claim may use that account to log in for SQL Account Stock Take.
+:::
+
+## Setup
+
+### SQL Accounting
+
+1. Stock | **Stock Take**
+
+ 
+
+2. Click **Allow Access** if Windows Prompt the above warning
+
+ 
+
+Leave this Screen Open as It will auto sync & update
+
+#### After Done Scanning
+
+1. Click Calculate Stock Take (System will compare with Month End As At Posted)
+
+ 
+
+2. Click **Post Stock Adjustments**
+
+| Button | Description |
+|--------------------------|-------------|
+| **New Job** | • To Start New Stock Take |
+| **Load From File** | • To Load file exported from Stock Take (in Zip) Stock Received - Get List, Add, Update & Delete Function - click to expand
+ +```js +// Updated on 04 Oct 2025 Print PDF not ready yet +import { sendRequest } from "./api/APICommon.js"; // base client +import fs from "fs"; +import readline from "readline"; + +/** + * Pretty-print JSON responses for debugging + */ +function debugPrintJson(data) { + if (!data) { + console.log("No data returned."); + return; + } + + if (Array.isArray(data.items)) { + console.log(`Found ${data.items.length} records:`); + data.items.forEach((item, idx) => { + console.log( + `[${idx + 1}] docno= ${item.docno}, dockey= ${item.dockey}, amount= ${item.docamt}` + ); + }); + } else if (Array.isArray(data.data)) { + console.log(`Found ${data.data.length} record(s):`); + data.data.forEach((item, idx) => { + console.log( + `[${idx + 1}] docno= ${item.docno}, dockey= ${item.dockey}, amount= ${item.docamt}` + ); + }); + } else if (typeof data === "object") { + console.log("Single record:"); + Object.entries(data).forEach(([k, v]) => { + console.log(` ${k}: ${JSON.stringify(v)}`); + }); + } else { + console.log("Raw:", data); + } +} + +export class StockReceivedApi { + constructor() { + this.basePath = "/stockreceived"; // base path + } + + /** + * Get stock received list with pagination (default: offset=0, limit=5) + */ + async get_list(offset = 0, limit = 5) { + const query = `offset=${offset}&limit=${limit}`; + console.log("\n--- Fetching stock received list (offset = 0, limit = 5)---"); + const data = await sendRequest("GET", this.basePath, null, query); + + // Force limit client-side if API ignore + if (data && Array.isArray(data.data)) { + data.data = data.data.slice(offset, offset + limit); + } + + debugPrintJson(data); + return data; + } + + /** + * Get a single stock received by docno + */ + async get_single(docno) { + const query = `docno=${encodeURIComponent(docno)}`; + console.log(`\n--- Fetching stock received '${docno}' ---`); + try { + const data = await sendRequest("GET", this.basePath, null, query); + debugPrintJson(data); + return data; + } catch (err) { + console.error(`Failed to fetch stock received '${docno}':`, err.response?.data || err.message); + throw err; + } + } + + /** + * Print a stock received as PDF + * + * Args: + * docno: document number of the stock received + * reportName: name of the report want to be print (E.g. Stock Received - Actual cost) + * savePath: output folder (E.g. ./PDF) + */ + async print(docno, reportName = "Stock Received - Actual cost", savePath = "./PDF") { + console.log(`\n--- Printing stock received '${docno}' to PDF ---`); + + // Step 1: Find dockey for the given docno + const existing = await this.get_single(docno); + if(!existing || !Array.isArray(existing.data) || existing.data.length === 0) { + throw new Error(`Stock Received '${docno}' not found`); + } + + const record = existing.data[0]; + const dockey = record.dockey; + const path = `${this.basePath}/${dockey}`; + + const pdfData = await sendRequest("GET", path, null, "", { + headers: { "Content-Type": `application/pdf;template=${reportName}`}, + responseType: "arraybuffer", + raw: true, + }); + + const fs = await import("fs"); + const fullSavePath = `${savePath}/Stock_Received_${docno}.pdf`; + fs.mkdirSync(savePath, { recursive: true }); + fs.writeFileSync(fullSavePath, pdfData); + console.log(`PDF saved: ${fullSavePath}`); + } + + /** + * Create stock received + */ + async create(payload) { + console.log("\n--- Creating stock received ---"); + try { + const data = await sendRequest("POST", this.basePath, payload); + debugPrintJson(data); + console.log("Stock received created successfully."); + return data; + } catch (err) { + console.error("Failed to create stock received:", err.response?.data || err.message); + throw err; + } + } + + /** + * Edit existing stock received by dockey + */ + async update(dockey, payload) { + console.log(`\n--- Updating stock received dockey=${dockey} ---`); + try { + // Fetch record to get updatecount + const query = `dockey=${encodeURIComponent(dockey)}`; + const existing = await sendRequest("GET", this.basePath, null, query); + + const record = + (existing.data && existing.data[0]) || + (existing.items && existing.items[0]) || + existing; + + if (!record || typeof record.updatecount === "undefined") { + throw new Error("Updatecount missing. Try fetching via list API with dockey filter."); + } + + const finalPayload = { + ...payload, + updatecount: record.updatecount, + }; + + const path = `${this.basePath}/${dockey}`; + const data = await sendRequest("PUT", path, finalPayload); + debugPrintJson(data); + console.log("Stock received updated successfully."); + return data; + } catch (err) { + console.error(`Failed to update stock received ${dockey}:`, err.response?.data || err.message); + throw err; + } + } + + /** + * Delete stock received + */ + async delete(dockey) { + const path = `${this.basePath}/${dockey}`; + try { + const data = await sendRequest("DELETE", path); + debugPrintJson(data); + console.log("Stock received deleted successfully."); + return data; + } catch (err) { + console.error(`Failed to delete stock received '${dockey}':`, err.response?.data || err.message); + throw err; + } + } +} + +// ========== Runner ========== + +const srApi = new StockReceivedApi(); +const JSON_FOLDER = "./JSON/"; // your json folder file path, if same as node.js, leave it blank + +const rl = readline.createInterface({ + input: process.stdin, + output: process.stdout, +}); + +/** + * + * Helper to ask question and return Promise• For Offline/No WiFi User use only
• Normally is in Zip Format | +| **Export Stock List** | • To Export the Stock List for Stock Take
• For Offline/No WiFi User use only
• Normally is in Zip Format | +| **Calculate Stock Take** | • To Calculate Stock Take | +| **Export To CSV** | • To Export Grid Result to CSV | +| **Post Stock Adjustments** | • To Post Grid Result to Stock Adjustment | + +### Stoke Take(Mobile App) + +  +  + +1. When to Sync Data + +  + +2. After Done Sycn, Click Stock Take + +  +  + +3. Click Scan to begin Scan + +  + +4. If the Item Code Had More then 1 UOM it will prompt as Above. +5. Select the UOM & Click Select to Confirm + +  + +6. Here User can Adjust the Quantity Field (Optional) +7. Click Stop to End Scanning + +  + +## Stock Take Items List Import + +Before following the steps in the subsections below + +### SQL Account Configuration + +1. Go to "**Tools**" > "**Options...**". + +2. On the Options window, click on "**Barcode**" > "**Stock Take**" tab and click on the switch beside "**Stock Take**" label. + +3. On the SQL Drive window prompt, click "**Log in**" button. + +4. Click on "**Log in with Google**" button. + +5. Click on "**Grant access**" button. + +6. On "**Account connected**" display, close SQL Drive window. + +7. A Stock Take Share will be set, and the switch will change from Off to On + +### Stock Take Module Initial Configuration + +1. Go to "**Stock**" -> "**Stock Take...**". + +2. On the Stock Take window, click "**New Job**" button. + +3. On first dialog prompt(Do you want to cancel?), choose "**No**". + +4. On second dialog prompt(Do you want to continue?), choose "**Yes**". + +### Stock Take App Import + +1. On the Stock Take app home page, tap on "Update Items List" button(located to the left of "Update Items List" label). + +2. On "Import Options" page, users can change the device name by tapping on the edit box next to the label "Name:", which is optional. The device name will be displayed on SQL Account to help the user identify which device uploaded stock take result and its content + +3. Tap on "**Network File Transfer**" button. + + - For devices without a Stock Take share profile set, a QR code scanner will be shown. Proceed to scan the QR shown in SQL Account Stock Take window. + + - For devices with stock take share profile set, the import process will begin immediately. + +## Sync Stock Take Result To SQL Account + +Sync stock take result from Stock Take app to SQL Account to perform stock adjustment on SQL Account + +1. Stock Take App Upload + + 1. On the Stock Take mode page, tap on "**More Options**" button. + + 2. Tap on "**Export/Upload**" button. + + 3. Choose option "**SQL Stock Take Import File**". + + 4. Tap on the "**Upload**" button. + +2. SQL Account Sync + + 1. Go to "**Stock**" -> "**Stock Take...**". + + 2. On Stock Take window, click on "**Refresh**" button. + +## Reset Connection Profile + +User may want to reset Stock Take share profile on Stock Take app as user would want to switch to different Stock Take share profile. + +:::note +Stock Take share profile refers to one(1) company only +::: + +Resetting company profile will require user to scan QR code on SQL Acoount Stock Take window and update items list. To reset Stock Take share profile: + +1. On Stock Take app home page, tap on the "**Update Items List**" button (which is located to the left of "Update items List" label). + +2. On "**Import Options**" page, tap on the "**Reset Connection Profile**" button (which is located to the left of "Reset Connection Profile" label). + +3. When prompted to proceed with resetting the connection profile, tap on the button "**Yes**" to continue. + +4. Once done, tap on the "**Network File Transfer**" to add a new Stock Take share profile and update items list (Follow steps in [stock take app import](#stock-take-app-import), specifically steps 2 and 3). diff --git a/docs/intro.md b/docs/intro.md index dc1b527e..5af310b1 100644 --- a/docs/intro.md +++ b/docs/intro.md @@ -11,7 +11,7 @@ slug: / SQL Account is a centralize system to assist the business (or departments) to record and process daily documents from sales, purchase, stock, and bank. It is also a tool for SST reporting. - + 1. **General Ledger**, a general ledger accounting where records all transactions posted from various journal (eg. general, sales, purchase, bank), an entry for general journal and expenses payment (eg. sales person claims, water and electricity expenses). Bank reconciliation, cash flow statement and financial reports are available in this module. diff --git a/docs/miscellaneous/acc-XLS-MDB-import.md b/docs/miscellaneous/acc-XLS-MDB-import.md new file mode 100644 index 00000000..6fae5d51 --- /dev/null +++ b/docs/miscellaneous/acc-XLS-MDB-import.md @@ -0,0 +1,1603 @@ +--- +sidebar_position: 16 +id: acc-xls-mdb-import +title: Excel Import Guide +description: A quick guide on Excel Import Program for SQL Account +slug: /miscellaneous/acc-xls-mdb-import +tags: ["SQL Account", "Excel", "Import"] +--- + +:::info[Download] +Click [here](https://download.sql.com.my/customer/Fairy/SQLAccXLSnMDBImp-setup.exe) to download the XLS n MDB import utility program. +::: + +Whether you are setting up **SQL Account** for the first time or need to migrate financial data from other systems using **Microsoft Excel (XLS)** or **CSV** files, this page provides a straightforward solution. + +Here, you'll find a detailed guide on how to effectively and effortlessly import your data into your **SQL Accounting** system. + +**You can import:** + +- Master file (e.g. Debtors, Creditors & Item List) +- Transactions +- Nestle Transactions +- Yeos Transactions +- Coca-Cola Transactions +- GSK Transactions + +**Pros** + +- Easy to generate +- About 80% of modules is covered. +- Support GST/SST/E-Invoicing +- FREE import for Master file. +- Support Schedule Auto Download from Simple FTP - Only available in Version 5.10.6.32 & above +- Support Schedule Auto Import for Excel/CSV/TXT - Only available in Version 5.10.6.32 & above +- Support import CSV/TXT(`Bar(|)`,`Comma(,)`,`Semi Comma(;)`,`Tilde(~)`) Format - Only available in Version 5.10.9 & above +- Support import Json Format - Only available in Version 5.11.10.43 & above +- No rows limit (but recommended max 500 rows per file as more records, more hard & time consumption to check if have error) + +**Cons** + +- Is Batch update. +- There is a cost for End User and Dealer for Transaction import. Only Free if each file record less then 100 rows. +- Unable to import Serial Number + +**Pros (UE Only) - (Deprecated)** + +- Easy to generate +- Able update Stock Information. +- Can do New/Insert/Edit/Update action + +**Cons (UE Only) - (Deprecated)** + +- There is a cost for End User and Dealer. Only Free if each file record less then 100. +- Only Cover Maintain Stock Item. + +## Requirement + +- Firebird Server +- SQL Accounting +- Microsoft Excel or Access + +## Example Template + +- Updated 16 Jun 2025 +- [Example Template-SQLAcc-ImportExcel](https://docs.google.com/spreadsheets/d/1TcFVqH1VCJ5SjHAt2VCHIeTTcQVUjtIBxLaZGGM0E5k/edit#gid=1780239004) +- [Sample output](https://download.sql.com.my/customer/Fairy/Example-CSV.zip) + +:::info + +**Tips for Programmer to Export Transaction** +01. Use INNER JOIN SQL to join the Master & Detail table +02. Export to Excel, txt or CSV file + +::: + +:::info + +**Tips for Yeos Transaction Import** +User might had to adjust some data in the excel file +01. Remove the 1st row(i.e 1st row must be a title of the column) +02. PRD Qty & Gross AMT column need * -1 (only for Credit Note) or can use + [My Excel for Credit Note/Payment is in Negative Value, can it be import?](Http://google.com) + +**Tips for Coca-Cola Transaction Import** +User might had to at Coca-Cola system before export +01. Group the ARTNUM +02. Net the AMTSUBJECTTOGST & GSTAMT column +It might had rounding issue after import +(i.e. excel not match with Tax Invoice Issue from coca-cola) + +**Tips for GSK Transaction Import** +01. User might had to convert the file to excel file +02. Export File by Document Type (i.e. Invoice 1 file & Credit Note 1 file) +::: + +## Things to Consider + +- Float, Currency & Integer type Must not had , (comma) or Currency Symbol & Default Value is 0 not empty +- No Formula in the cell +- No Merge cell is use +- No Hidden column +- Avoid use Unicode Character for Row 1 (Header) +- Date Format should be in dd/mm/yyyy (entry time in Excel as dd/mm/yyyy) - Updated 14 Nov 2013 + +  + +- Below is the column type can/can't import + + + +- Try just use Alphanumeric of the **Worksheet Name** + + + +- Make sure the **Key of Records** is properly Sorted + + + +- Special Character (for csv or txt output only) + +| User Input | Text Output | +|-----------------------|----------------------------------| +| SalesOrder | `SalesOrder` | +| Sales Order 5' 12" | `"Sales Order 5' 12""` | +| SalesOrder6'13" | `"SalesOrder6'13""` | +| SalesOrder6" x 13" | `"SalesOrder6"" x 13""` | +| Sales Order | `"Sales Order"` | +| Sales Order 5' 12 | `"Sales Order 5' 12"` | +| Sales Order 12" | `"Sales Order 12""` | +| Sales;Order 12 | `"Sales;Order 12"` | + +:::info +For Easy Export you can use " for all output value +Eg `AL`,`161924123243970563` +::: + +## Import Program + +- Version (5.19.19.104) - 02 Aug 2025 +- Version (4.5.4.37) - 01 Jun 2022 (UE Only) - (Deprecated) +- Evaluation Limit : 100 rows Records per file (Except Master File with not limit) +- [SQLAccXLSnMDBImp-setup.exe](https://download.sql.com.my/customer/Fairy/SQLAccXLSnMDBImp-setup.exe) +- MD5 : `A03B8F018B92822D4D3CC59680D9B812` + +## Steps + +### Master Data + +Below is example for import Stock Item... + +01. Click 1. Get File button +02. Select the File type (eg Microsoft Excel) + + +03. Select the File file wanted to import +04. Click **Open** + + +05. Click the combo box (Circle in Red) to select the Worksheet/Table in the file +06. Click **2. Get Data** button to load the file. +07. Drag the available column at the **SourceField** & drop to the **TargetField**. +08. For Detail Part (Circle in Green) (Eg Click on the UOM tab). +09. Click **New** button. +10. Drag the available column at the **SourceField** & drop to the **TargetField** at detail part. +11. Click **Save** after Done (only for Detail Part). +12. Click **Post To A/c** button if all done mapping. + +:::info +Blue Circle - Is use to let system know Start from which row till End which row to import. +Orange Circle - The Worksheet/Table records. +::: + +## Transaction Data + +Below is example for import Customer Invoice... + +01. Click 1. Get File button +02. Select the File type (eg Microsoft Excel) + +  + +03. Select the File file wanted to import +04. Click Open + +  + +05. Click the combo box (Icon 5) to select the Worksheet/Table in the file +06. Click 2. Get Data button to load the file. +07. Tick the Is Opening Transactions to import opening balance (Available for AR & AP Module Only). +08. Drag the available column at the SourceField & drop to the TargetField. +09. Click 3. Verify button. +10. Click 4. Post To A/c button if confirm all data is Ok. + +:::info +Do you realise there is an arrow near the **Verify** button? +In the arrow there is an Option **A.Load Setting...,** this to load previously mapped fields +::: + +## Transactions Data - Get File 3 + +- This Option only for Excel +- Only available in Version 4.6.3.19 & above + +01. Click arrow at the 1. Get File button +  + +02. Select Get File 3... & system will prompt 2 dialog like below +  + +03. Select the Excel Header File. +  + +04. Select the Excel Detail File. +  + +05. Click the combo box to select the Worksheet/Table for each Header & Detail file +06. Click the combo box to select the Key Field to link both Header & Detail file +07. Click **4. Get Data** button +  + +08. Enter the Merge File name. +09. Click Save button. + +## Options + +- Only available in Version 4.3.2.14 & above + +### Check Duplicate Records + +Menu: Tools | Check Duplicate Records... + +This Function is to check the duplicate records for the selected file +01. Follow from Step [1 to 6](#transaction-data) as above. +  +02. Tick the Column(s) to Group +03. Click 3. Verify... button +  + +### Split Memo to Columns + +Menu: Tools | Split Memo to Columns... + +This option is to Split the memo (Data more then 1 row in the cell) into individual Columns. +01. Follow from Step [1 to 6](#transaction-data) as above. +  +02. Set Number of Column(s) to split (Default is 4). +03. Select the Column to be Split +04. Click **5. Split** button. +  +05. Scroll to the right. Highlight in Yellow is the newly Columns Created. +06. Click 6. Export Excel(*.xls) to export out the Result. + +### Split String to Columns + +Menu: Tools | Split String to Columns... + +This option is to Split the Long String into individual Columns (Max. 60 Character each Column). + +- Only available in Version 5.10.10.42 & above + +01. Follow from Step [1 to 6](#transaction-data) as above. +  +02. Set Number of Column(s) to split (Default is 4). +03. Select the Column to be Split +04. Click 5. Split button. +  +05. Scroll to the right. Highlight in Yellow is the newly Columns Created. +06. Click 6. Export Excel(*.xls) to export out the Result. + +### Convert Rows to Columns + +Menu: Tools | Convert Rows to Columns... + +Only available in Version 4.3.2.15 & above +01. Follow from Step [1 to 6](#transaction-data) as above. +  +02. Set Number of Column(s) to split (Default is 4). +03. Select the Column to be Convert +04. Click 5. Convert button. +  +05. Scroll to the right. Highlight in Yellow is the newly Columns Created. +06. Click 6. Export Excel(*.xls) to export out the Result. + +:::info +System will use +The 1st column in excel as a Key of Grouping. +The empty row as "Reset/End of" Record. +::: + +## Auto Import + +- Only available + - in Version 4.9.6.31 & above. + - for Registered import Database. + - in **Firebird Server Setting** (Standalone can't Auto Import) + +- Excel Filename must be **BIZOBJECT.YYYYMMDDHHMMSS.xlsx** eg SL_IV.20190214101508.xlsx +- Must only 1 Sheet in Excel File. +- Must **Manually Import for 1st time** use to make sure is success mapping. - Auto Import base on last mapping import + +### Import Setting + +Menu: File | Auto Import Settings... + + +01. Select SQL Accounting DCF file +02. Select SQL Accounting Database to import & export +03. Enter the SQL Accounting User Name & Password +04. Select/Tick to Enable Download From FTP (available in Version Build 32 & above) +05. Select/Tick to Enable With Export CSV File (available in Version Build 85 & above) +06. Click Next + +  + + The following Steps if Download From FTP is Enable/Tick/Selected + +07. Enter the Host/IP Address for FTP +08. Enter the FTP Port No +09. Enter the FTP User Name & Password +10. Enter the FTP Folder to download From +11. Select the Action to Do After Download +12. Click Test Connection... +13. Click Next + + | Action | Description | + |----------------------------------------------------------|----------------------------------------------------------------------------------------------------------------------------| + | Delete the file(s) in FTP Folder | Will delete the file(s) after download | + | Move to Archive/YYYYMMDD Folder | Will Auto Create YYYYMMDD & move to this folder after done download
Make sure in the FTP folder had the folder Archive (eg download/Archive) | + | Leave it As It (I will self Manually Delete or Move it) | Do nothing after Download | + +:::info + +The file will download to the Pending Folder which is set at the Last Steps + +::: + +  + +14. Select the Biz Object Type/Document Type to Import +15. Click Next + +  + +16. Select the Pending folder where Excel files keep to import to SQL Accounting +17. Select the Done folder to move after done import the Excel file + + | Field | Description | + |------------------------|----------------------------------------------------------------------| + | Include SubFolder File(s) | This option is for User who have More than 1 system | + | Export Log File | To Auto Export out for Log file to the selected folder | + | Last Import Date | Last Import Date and Time. System will auto update | + | Keep Last Log Line | To show last how many line for Log | + +17. Click Next + +  + +18. Select Export folder +19. Select Last Date To +20. Click + to add +21. Enter Description, SQL Query & Export File Name +22. Click Check for Save + +| Parameter | Description | +|-------------------|-----------------------------------------------------------------------------------------------------------------------| +| Last Date To | Data End Date to Export From SQL Accounting.
System will use this Date + 1
Eg To Export 12 Nov 2018 just set the date as 11 Nov 2018 | +| Text Export... | To manually export selected Record Query | +| Description | Description for the Query | +| SQL Query | A Query to Export Data | +| Export File name | A CSV file name | + +:::info + +- Make sure the SQL Query Statement not so complicated as it might cause slow export. +- The Filename will auto add .YYYYMMDDHHMMSS + +::: + +**Windows Schedule** + +01. Open Windows *Control Panel | Administrative Tools | Task Scheduler* + +  + +02. Click *Action | Create Basic Task...* + +  + +03. Enter Task *Name* (eg SQL Excel Export) & Click Next + +  + +04. Select Daily & Click Next + +  + +05. Set the *Start Date & Time* to Start + +06. Set 1 for *Recur every* field & Click Next + +  + +07. Select *Start a program* & Click Next + +  + +08. Click Browse button & find the SQLAccXLSnMDBImp.exe (Default at *C:\\eStream\\Utilities\\SQLAccXLSnMDBImp*) + +09. Set the Add arguments(optional) as -Auto + +10. Set the Start in(optional) path to the Exe folder (eg. *C:\\eStream\\Utilities\\SQLAccXLSnMDBImp*) & Click Next + +  + +11. Tick the option *Open the Properties dialog for this task when I click Finish* + +12. Click Finish + +  + +13. Select the option *Run whether user is logged on or not* + +14. Click *Triggers* tab at top + +  + +15. Click Edit... button + +  + +16. Change the time to run + +17. Click OK 2 times + +  + +18. Enter the window User Name & Password + +19. Click Ok + +## Mini Data Modification Utilities + +This utilities is to help user runtime to modify the data before begin import + +Steps + +01. Follow from **Step 1 to 4** as above + +  + +  + +02. Select the column to be Modify & Right Click + +03. Select the Option you wanted to modify + +| Option/Function | Description | +| --- | --- | +| \*-1 All Data... | Change the Value from Negative to Positive Value & vise versa | +| Convert YYYYMMDD to DD/MM/YYYY... | Change the Value Date format from YYYYMMDD to DD/MM/YYYY | +| Truncate String... | Reduce the Value field size to specific field size | +| Copy Cell Value... | Copy the Selected row Cell Value | +| Remove Comma... | Remove the , | +| Remove All Positive Value Data... | Delete all Value which is More then 0 | +| Remove All Negative Value Data... | Delete all Value which is Less then 0 | +| Remove Others Characters... | Delete any characters given in the selected Column | + +## Video + +- [Import Excel - Stock](https://www.youtube.com/watch?v=i-tBbE2Kh4o) +- [Import Excel - Maintain Customer](https://www.youtube.com/watch?v=r2AXy9VJiUQ) +- [Import Excel - GL Account](https://www.youtube.com/watch?v=-kfqNlVP0o4) +- [Import Excel - Transactions](https://www.youtube.com/watch?v=UOo_ztOvavk) + +## faq + +1. [Why the system take so long to Get Data from excel where in excel just few records?](#why-the-system-take-so-long-to-get-data-from-excel-where-in-excel-just-few-records) +2. [Prompt Error external table is not in the expected format when try Get Data from Excel.](#prompt-error-external-table-is-not-in-the-expected-format-when-try-get-data-from-excel) +3. [My excel date format is in YYYYMMDD format, how I convert it to dd/MM/yyyy?](#my-excel-date-format-is-in-yyyymmdd-format-how-i-convert-it-to-ddmmyyyy) +4. [My excel date format is in dd-mmm-yyyy with time format, how I convert it to dd/MM/yyyy?](#my-excel-date-format-is-in-dd-mmm-yyyy-with-time-format-how-i-convert-it-to-ddmmyyyy) +5. [Can I import without Tax Amount (i.e. SQL Account auto Calculate the Tax Amount)?](#can-i-import-without-tax-amount-ie-sql-account-auto-calculate-the-tax-amount) +6. [Why My Excel data shown as eg 5% but once I Get File become 0.05?](#why-my-excel-data-shown-as-eg-5-but-once-i-get-file-become-005) +7. [How to add file link in the Attachments Fields?](#how-to-add-file-link-in-the-attachments-fields) +8. [My Excel for Credit Note/Payment is in Negative Value, can it be import?](#my-excel-for-credit-notepayment-is-in-negative-value-can-it-be-import) +9. [In My Excel Only had SSM or GST No. for Customer/Supplier can it be import?](#in-my-excel-only-had-ssm-or-gst-no-for-customersupplier-can-it-be-import) +10. [What is the Company Code Search Sequence?](#what-is-the-company-code-search-sequence) +11. [Can system Auto Set Tax code if my Excel don't had tax code column?](#can-system-auto-set-tax-code-if-my-excel-dont-had-tax-code-column) +12. [Prompt "Error Unexpected error from external database driver (1)" when Get file from excel](#prompt-error-unexpected-error-from-external-database-driver-1-when-get-file-from-excel) +13. [Prompt "Provider cannot be found. It may not be properly installed" when Get file from excel](#prompt-provider-cannot-be-found-it-may-not-be-properly-installed-when-get-file-from-excel) +14. [My excel String size is longer then SQL, how I can reduce it?](#my-excel-string-size-is-longer-then-sql-how-i-can-reduce-it) +15. [My excel Don't had account code if got ItemCode can it be import?](#my-excel-dont-had-account-code-if-got-itemcode-can-it-be-import) +16. [My excel only had Barcode can it be import?](#my-excel-only-had-barcode-can-it-be-import) +17. [What is the Item Code Search Sequence?](#what-is-the-item-code-search-sequence) +18. [Why it keep only load lst 100 records even I had registered?](#why-it-keep-only-load-lst-100-records-even-i-had-registered) +19. [My CSV data is 00123 but after get data become 123 (missing 00)?](#my-csv-data-is-00123-but-after-get-data-become-123-missing-00) +20. [What is the Proper Steps to Import BOM?](#what-is-the-proper-steps-to-import-bom) +21. [Can I Import Payment/Credit Note without Knock off Information?](#can-i-import-paymentcredit-note-without-knock-off-information) +22. [Why after verify all detail Status shown ok but Header Still untick?](#why-after-verify-all-detail-status-shown-ok-but-header-still-untick) +23. [Why After Import to the Note/Attachment/Description3 data is truncated to 286 characters?](#why-after-import-to-the-noteattachmentdescription3-data-is-truncated-to-286-characters) +24. [Prompt "Access violation at address xxxxxx in module...." when Get file from excel](#prompt-access-violation-at-address-xxxxxx-in-module-when-get-file-from-excel) +25. [How to prevent Import Price Tag with empty row?](#how-to-prevent-import-price-tag-with-empty-row) +26. [How to convert the cell value so I can sum using formula in excel?](#how-to-convert-the-cell-value-so-i-can-sum-using-formula-in-excel) +27. [Can I Reimport for Same Transactions?](#can-i-reimport-for-same-transactions) +28. [What is alternative for FTP?](#what-is-alternative-for-ftp) +29. [How to add Excel Import Shortcut in SQL Accounting?](#how-to-add-excel-import-shortcut-in-sql-accounting) +30. [How to enter Multi Line for More Description in Excel?](#how-to-enter-multi-line-for-more-description-in-excel) +31. [How to enter Multi Line for More Description in csv/txt?](#how-to-enter-multi-line-for-more-description-in-csvtxt) +32. [How to convert Excel to CSV file?](#how-to-convert-excel-to-csv-file) +33. [How to Load CSV file?](#how-to-load-csv-file) +34. [I have problem to export field name with ( and ) can I ignore it?](#i-have-problem-to-export-field-name-with--and--can-i-ignore-it) +35. [Why the Auto Mapping is not correctly map?](#why-the-auto-mapping-is-not-correctly-map) +36. [I have more then 1 3rd party to import, can I create folder for each party?](#i-have-more-then-1-3rd-party-to-import-can-i-create-folder-for-each-party) +37. [Can I use SQL Accounting Auto Generate DocNo?](#can-i-use-sql-accounting-auto-generate-docno) +38. [How to Convert text number to number in Excel?](#how-to-convert-text-number-to-number-in-excel) +39. [Can I import without UnitPrice (i.e. SQL Account auto Calculate the UnitPrice)?](#can-i-import-without-unitprice-ie-sql-account-auto-calculate-the-unitprice) +40. [Can System Auto Knock off for Customer Payment Import?](#can-system-auto-knock-off-for-customer-payment-import) +41. [Can I reimport Customer/Supplier by just update few fields?](#can-i-reimport-customersupplier-by-just-update-few-fields) +42. [How to load last Save Field Mapping?](#how-to-load-last-save-field-mapping) +43. [Why after load excel some column had no data but my excel had?](#why-after-load-excel-some-column-had-no-data-but-my-excel-had) +44. [How to enter multi IV number for CN FromDoc field in excel?](#how-to-enter-multi-iv-number-for-cn-fromdoc-field-in-excel) +45. [Scheduler Log show Auto Post List Had update. Please Resetup the Auto Import Settings](#scheduler-log-show-auto-post-list-had-update-please-resetup-the-auto-import-settings) + +### Why the system take so long to Get Data from excel where in excel just few records? + +This happen when there is the problem in Excel Worksheet. + +Try below steps + +1. Press *CTRL + Home* + +2. Press *CTRL + A* (To Select All) + +3. Press *CTRL + C* (To Copy Selected) + +4. Press *Shift + F11* (To inserts a New Worksheet into the active Workbook) + +5. Press *CTRL + V* (To Paste) + +6. Save the Excel & Try again on New Worksheet + +[[FAQ]](#faq) [[top]](#requirement) + +### Prompt Error external table is not in the expected format when try Get Data from Excel + +Try save the file to other name using **File | Save As** in Excel + +[[FAQ]](#faq) [[top]](#requirement) + +### My excel date format is in YYYYMMDD format, how I convert it to dd/MM/yyyy? + +Can try use this formula *\=DATE(LEFT(A2,4),MID(A2,5,2),RIGHT(A2,2))* + +\* In Version 4.5.3.18 & above had function call **Convert YYYYMMDD to DD/MM/YYYY...** can help to convert it before import. + +Steps + +01. Follow from **Step 1 to 4** as above + +  + +02. Select the column to be convert & Right Click + +  + +03. Select **Convert YYYYMMDD to DD/MM/YYYY...** + +04. Continue Step 5 to 6 for other column + +05. Done can continue norm **Step 5 to 12** + +[[FAQ]](#faq) [[top]](#requirement) + +### My excel date format is in dd-mmm-yyyy with time format, how I convert it to dd/MM/yyyy? + +Can try use this formula *\=TEXT(DATEVALUE(TEXT(A41,"dd-mmm-yyyy")),"dd/mm/yyyy")* + +[[FAQ]](#faq) [[top]](#requirement) + +### Can I import without Tax Amount (i.e. SQL Account auto Calculate the Tax Amount)? + +Yes with Version *Build 10 & above*, just + +Don't Map the fields + +- **Amount** + +- **TaxAmt** + +- **TaxInclusive** + +Just Map Fields + +- **Qty** + +- **UnitPrice** + +- **Tax** + + + +[[FAQ]](#faq) [[top]](#requirement) + +### Why My Excel data shown as eg 5% but once I Get File become 0.05? + +It because Excel will auto convert the 5% to 0.05 in data. + +Solution : + +Use either one of the excel formula below: + +- *\=CONCATENATE(E1\*100,"%")* + +OR + +- *\=TEXT(E1,"0.00%")* + +[[FAQ]](#faq) [[top]](#requirement) + +### How to add file link in the Attachments Fields? + +Just Add *File.Your Link file* + +Eg With 2 Attachments file in 1 cell + +*File.*[https://cdn.bulbagarden.net/upload/3/36/648Meloetta-Pirouette.png_](https://cdn.bulbagarden.net/upload/3/36/648Meloetta-Pirouette.png) + +*File.*[https://cdn.bulbagarden.net/upload/6/63/Pokk%C3%A9n_Pikachu_Libre.png_](https://cdn.bulbagarden.net/upload/6/63/Pokk%C3%A9n_Pikachu_Libre.png) + +[[FAQ]](#faq) [[top]](#requirement) + +### My Excel for Credit Note/Payment is in Negative Value, can it be import? + +No you can't import the document amount with Negative Value. + +- In Version 4.3.2.14 & above had function call **\*-1 All Data** can help to convert to positive before import. + +Steps + +01. Follow from **Step 1 to 4** as above + +  + +02. Select the column to be convert & Right Click + +  + +03. Select **\*-1 All Data** + +04. Continue Step 5 to 6 for other column + +05. Done can continue norm **Step 5 to 12** + +[[FAQ]](#faq) [[top]](#requirement) + +### In My Excel Only had SSM or GST No. for Customer/Supplier can it be import?** + +Yes using Build 16 & above. + +Just map your SSM or GST No to the **Code** Field. + +See below Other available Fields can map + +| Available SQL Accounting Field | Available Import Build | +| --- | --- | +| SSM/Reg No | 16 | +| GST No | 16 | +| Remark | 19 | +| Biz Natural | 30 | +| Company Name 2 | 31 | +| Note | 34 | + +### What is the Company Code Search Sequence? + +It will search as following sequence (Available in Build 34 & above) + +- Code +- CompanyName2 +- RegisterNo (Version 781 & Below) +- BRN (Version 782 & Above) +- BRN2 (Version 782 & Above) +- GSTNo +- BizNature +- Remark +- Note + +[[FAQ]](#faq) [[top]](#requirement) + +### Can system Auto Set Tax code if my Excel don't had tax code column? + +Yes using Version 16 & above + +Just make sure **Default Value** field is Empty + +[[FAQ]](#faq) [[top]](#requirement) + +### Prompt "Error Unexpected error from external database driver (1)" when Get file from excel + +This is due to Windows Security update [KB4041681](https://support.microsoft.com/en-us/help/4041681/windows-7-update-kb4041681) +Solution 1 + +Can try use **Get File 2...** under the arrow down button at **Get File...** button + +Solution 2 + +01. Save the Excel file to xlsx + +02. Install [Microsoft Access Database Engine 2010 Redistributable](https://www.microsoft.com/en-us/download/details.aspx?id=13255&751be11f-ede8-5a0c-058c-2ee190a24fa6=True) (AccessDatabaseEngine.exe) + +03. Reboot the PC. + +[[FAQ]](#faq) [[top]](#requirement) + +### Prompt "Provider cannot be found. It may not be properly installed" when Get file from excel + +Solution 1 + +Can try use **Get File 2...** under the arrow down button at **Get File...** button + +Solution 2 + +01. Install [Microsoft Access Database Engine 2010 Redistributable](https://www.microsoft.com/en-us/download/details.aspx?id=13255&751be11f-ede8-5a0c-058c-2ee190a24fa6=True) (AccessDatabaseEngine.exe - 32 bits) + +02. Reboot the PC. + +[[FAQ]](#faq) [[top]](#requirement) + +### My excel String size is longer then SQL, how I can reduce it? + +Can try use this formula *\=LEFT(A2,30)* (eg for get 1st 30 character from A2) + +- In Version 4.6.3.19 & above had function call **Truncate String...** can help to reduce it before import. + +Steps + +01. Follow from **Step 1 to 4** as above + +  + +02. Select the column to be convert & Right Click + +  + +03. Select **Truncate String...** + +  + +04. Enter the **New size** + +05. Continue Step 5 to 6 for other column + +06. Done can continue norm **Step 5 to 12** + +[[FAQ]](#faq) [[top]](#requirement) + +### My excel Don't had account code if got ItemCode can it be import? + + + +Yes just make sure Empty the Default Value for **Account** field so system can Auto Get from Maintain Stock Group + + + +[[FAQ]](#faq) [[top]](#requirement) + +### My excel only had Barcode can it be import? + +Yes using Build 26 & above + +Just map your Barcode to the **ItemCode** Field. + +| Available SQL Accounting Field | Available Import Build | +| --- | --- | +| Barcode | 26 | +| Customer/Supplier Item Code | 26 | +| Remark 1 | 30 | +| Remark 2 | 30 | +| Shelf | 30 | +| Description 2 | 31 | +| Note | 31 | + +### What is the Item Code Search Sequence? + +It will search as following sequence (Available in Build 34 & above) + +- ItemCode +- Description2 +- Remark1 +- Remark2 +- Shelf +- BarCode +- Alternative Code (Available in Build 70 & above) +- CompanyItemCode +- Note + +[[FAQ]](#faq) [[top]](#requirement) + +### Why it keep only load lst 100 records even I had registered? + + + +Make sure you set the Value before you Click **Get File** + +[[FAQ]](#faq) [[top]](#requirement) + +### My CSV data is 00123 but after get data become 123 (missing 00)? + +Make sure you Double Quoted the value eg "00123" + +### What is the Proper Steps to Import BOM? + +[[FAQ]](#faq) [[top]](#requirement) + +01. Import all Finish Goods & Raw Material Item code using Stock | Maintain Stock Item...& + + Make sure ItemType for Finish Goods is Set to B + +02. Import using Stock | Maintain Stock Item - BOM... + +[[FAQ]](#faq) [[top]](#requirement) + +### Can I Import Payment/Credit Note without Knock off Information? + + + +Yes just set the column & Default Value for **DocType**, **KODocNo** & **KOAmt** to empty + +[[FAQ]](#faq) [[top]](#requirement) + +### Why after verify all detail Status shown ok but Header Still untick? + + + +This happen when there is the problem in Excel Worksheet. + +Try below steps + +1. Press *CTRL + Home* + +2. Press *CTRL + A* (To Select All) + +3. Press *CTRL + C* (To Copy Selected) + +4. Press *Shift + F11* (To inserts a New Worksheet into the active Workbook) + +5. Press *CTRL + V* (To Paste) + +6. Save the Excel & Try again on New Worksheet + +[[FAQ]](#faq) [[top]](#requirement) + +### Why After Import to the Note/Attachment/Description3 data is truncated to 286 characters? + +Make sure In Your Excel Header name is using **Note/Description3/Attachment** + +[[FAQ]](#faq) [[top]](#requirement) + +### Prompt "Access violation at address xxxxxx in module...." when Get file from excel + +Open the excel try delete few column at the end of excel (see example below) + + + +[[FAQ]](#faq) [[top]](#requirement) + +### How to prevent Import Price Tag with empty row? + + + +Make sure your Excel consist of + +- Price Tag Qty +- Price Tag UOM (don't share same UOM for other field mapping for same Item code) + +[[FAQ]](#faq) [[top]](#requirement) + +### How to convert the cell value so I can sum using formula in excel? + +Can try use this formula *\=Value(A2)* + +[[FAQ]](#faq) [[top]](#requirement) + +### Can I Reimport for Same Transactions? + +Yes for Version 5.16.10.62 & above + + + +01. Right Click Here & Tick the option Auto Replace for Duplicate + +02. Click Get file & Select Excel Sheet + +03. Click Get Data + +04. Click Verify + +05. Click Post To A/c + +[[FAQ]](#faq) [[top]](#requirement) + +### What is alternative for FTP? + + + +You can use like + +- [Google Drive](https://www.google.com/drive/download/) +- [One Drive](https://www.microsoft.com/en-my/microsoft-365/onedrive/download) + +[[FAQ]](#faq) [[top]](#requirement) + +### How to add Excel Import Shortcut in SQL Accounting? + +You may refer [here](https://download.sql.com.my/customer/Fairy/Excel-Import-46.gif) for steps + +[[FAQ]](#faq) [[top]](#requirement) + +### How to enter Multi Line for More Description in Excel? + + + +You can enter it all in 1 cell + +[[FAQ]](#faq) [[top]](#requirement) + +### How to enter Multi Line for More Description in csv/txt? + +- In Version 5.19.19.87 & above you can just insert **#13** as return character + +eg ...|ERICSSON A10118s|Line 1#13Line 2#13Line 3|1|... + +[[FAQ]](#faq) [[top]](#requirement) + +### How to convert Excel to CSV file? + + + +[[FAQ]](#faq) [[top]](#requirement) + +### How to Load CSV file? + + + +[[FAQ]](#faq) [[top]](#requirement) + +### I have problem to export field name with ( and ) can I ignore it? + +Yes you can just ignore the ( and ) + +eg **Code(10)** can just export as Code10 + +[[FAQ]](#faq) [[top]](#requirement) + +### Why the Auto Mapping is not correctly map? + +Make sure the column position you export out is same as our template column position + +[[FAQ]](#faq) [[top]](#requirement) + +### I have more then 1 3rd party to import, can I create folder for each party? + +Yes can for Build 70 & above. Below is Example to setup 3 diff POS System + + + +In the Auto Import + +- **Pending Folder** - Select the Root folder where have more then 1 3rd party +- Tick/Select **Include SubFolder File(s)** + + + +[[FAQ]](#faq) [[top]](#requirement) + +### Can I use SQL Accounting Auto Generate DocNo? + +Yes can for Build 70 & above. Just Prefix `
**Normal:** 0.1234 → 0.12
**Round Up:** 0.1234 → 0.13
**Round Down:** 0.1274 → 0.12 | + | **Input Value** | Sample Value | + | **Output Result** | Sample Result | + | **Round Decimal** | Number of Decimal Points | + | **Output Value** | Action to be taken:
- **Increase Value:** Adds up the value based on option selected.
- **Reduce Value:** Deducts the value based on option selected.
- **Fixed Value:** Replaces based on value set at Step 4 (only amount).
- **Inclusive Rate:** e.g. Amount `106` and user enters `6%` → becomes `100`. | + +5. Select field to be update. +6. Click Change button. +7. Click Post To A/c button to update the data + +:::info +Select Record Change History option if you wanted to Keep Changes History in the +Note Fields for each itemcode +::: + +## Step -By Comapny Price + +1. Click Maintain Stock Item - By Company... +  + +2. Select data/parameter to be update in the Steps 1 section +3. Select Company Type +4. Click Get Stock Items List button +  + +5. Enter the Value to change. It can be in Value and/or Percentage (%) except for Fixed Value only Value +6. Click Change button. +7. Click Post To A/c button to update the data + +:::info + +It use Customer/Supplier Price Tag (Company Column) + +::: + +## FAQ + +### Can I self enter/change the price by item code? + +Yes, just enter 0 in Step 4 & Change the Value in the grid (Circle in Red) +  diff --git a/docs/miscellaneous/bad-debt.md b/docs/miscellaneous/bad-debt.md index 572d4058..00600b5b 100644 --- a/docs/miscellaneous/bad-debt.md +++ b/docs/miscellaneous/bad-debt.md @@ -31,7 +31,7 @@ Payment deemed to be irrecoverable whole or parts of the payment has been provid 4. May claim according to the formula below. -  +  2. Bad Debts Recovery @@ -45,4 +45,4 @@ Payment deemed to be irrecoverable whole or parts of the payment has been provid 4. Repay according to the formula below. -  +  diff --git a/docs/miscellaneous/business-nature-industries/PhotocopierGuide.md b/docs/miscellaneous/business-nature-industries/PhotocopierGuide.md new file mode 100644 index 00000000..5f0f4726 --- /dev/null +++ b/docs/miscellaneous/business-nature-industries/PhotocopierGuide.md @@ -0,0 +1,239 @@ +--- +sidebar_position: 1 +id: photocopier +title: Photocopier Guide +description: A guide to use photocopier +slug: /miscellaneous/business-nature-industries/PhotocopierGuide +tags: ["Photocopier Meter"] +--- + +This Customisation is for the company who provide service on photocopier Machine + +[Sample Database](https://download.sql.com.my/customer/Fairy/ACC%20BK-%5BPhotocopier%5D.zip) + +History New/Updates/Changes + +Fixed zitemcode sometime not deleted after save. +Add Copy Description2 & Project info from QT. +28 Aug 2025 + +Fixed Tax code not copy to Invoice +Add report format Sales Invoice 8 (SST 2)-For Package +20 Aug 2025 + +Add Itemcode zRental +Add Option for No Check Expire Agreement at Quotation +Remove Use of UDF_MthlyCharge & UDF_AddFees +Add Use itemcode zRental & zAddFees +Change use From using IV DocDate to IV DeliveryDate for Current Reading-Date +07 Apr 2025 + +Add Option At QT for Rebate Round Up/Round Down +12 Sep 2018 + +Enable support by Packages for Free & Spoil Qty/Copies +Enable support Min Charges +22 May 2018 + +Fixed Invoice Seq keep moving +29 Mar 2018 + +Fixed Unable to save Invoice if document is transfer from other Document when had GST +08 Mar 2018 + +Should allow append Current Reading same as previous Reading. +22 Feb 2018 + +Fixed Current Reading less then previous Should not append. +Enable copy Quotation Detail Fields + +- Description3 +- Remark1 +- Remark2 +- Project +- Location +- Disc +- Tax +- TaxInclusive +19 Oct 2015 + +Fixed upgrade to Version 721 error. +03 Jul 2015 + +Fixed Unable to save Invoice if document is transfer from other Document + +## Modules Required + +- DIY Script +- DIY Field + +## Settings + +### Sales Quotation + +*Menu: Sales | Quotation...* + +- 1 Quotation is for 1 Customer Profile +- Can Keep a lot of Machine (unlimited) +- Use Doc No S-XXXX as the Setting - To avoid mix with actual use of Quotation +- Can use same itemcode for Different Reading + + + +- Minimum UDF Fields Required (Header Fields) + +| **Field** | **Description** | +|---------------------|----------------------------------------------------------------| +| **UDF_RebateRoundUD** | Rebate Calc to Round Up or Round Down; Tick: Round Down; UnTick: Round Up | + +- Minimum UDF Fields Required (Item Fields) + +| **Field** | **Description** | +|---------------------|----------------------------------------------| +| **Delivery Date** | Contract Expiry Date | +| **UDF_CMR** | Current Meter Reading | +| **UDF_DOCDATE** | Current Reading Date; Norm is Invoice Date | +| **UDF_QTY** | Current Qty Charge | +| **UDF_REBATE** | Rebate Qty or % | +| **UDF_MTHLYCHARGE** | Fixed Monthly Charges | +| **UDF_FREEQTY** | Free Qty | +| **UDF_ADDFEE** | Additional Fixed Fee Charges | + +- Minimum UDF Fields Required (Header Fields) + +| **Name** | **Data Type** | **Size** | **Sub Size** | **Caption** | **Required** | **Default Value** | **Display Format** | +|------------------|---------------|----------|--------------|---------------------|--------------|-------------------|--------------------| +| **RebateRoundUD** | Boolean | | | UDF_RebateRoundUD | False | 0 | False | + +- Minimum UDF Fields Required (Items Fields) + +| **Name** | **Data Type** | **Size** | **Sub Size** | **Caption** | **Required** | **Default Value** | **Display Format** | +|----------------|---------------|----------|--------------|-----------------------------|--------------|-------------------|----------------------| +| **CMR** | Integer | | | UDF_Current Reading | False | 0 | #,0;-#,0 | +| **DocDate** | Date | | | UDF_Current Reading-Date | False | | | +| **Qty** | Integer | | | UDF_Current Qty Charge | False | 0 | #,0;-#,0 | +| **Rebate** | String | 50 | | UDF_Rebate | False | | | +| **MthlyCharge**| Currency | | | UDF_Monthly Charge | False | 0 | #,0.00;-#,0.00 | +| **FreeQty** | Integer | | | UDF_Free Qty | False | 0 | #,0;-#,0 | +| **AddFees** | Currency | | | UDF_AddFees | False | 0 | #,0.00;-#,0.00 | + +### Maintain Stock Item + +*Menu: Stock | Maintain Stock Item...* + +- Need to keep 2 itemcode for 1 same item(physically) + +- 1 for Norm Itemcode with Stock Control +- 1 for Non-Stock ItemCode for Meter Reading +- See example MACH_CANNON1(Norm Itemcode) & CANNON1(Meter Reading) + +- Below is for By Packages Only + +| **ItemCode** | **Description** | **Quotation Detail Field Used** | +|---------------|---------------------|---------------------------------------| +| **zFreeQty** | For Free Qty | UDF_FreeQty & UnitPrice | +| **zSpoil** | For Spoil Copies | UDF_Rebate & UnitPrice | +| **zMinCharge**| Minimum Charges | UnitPrice | + +### Sales Invoice + +*Menu: Sales | Invoice...* + +- Will Check Expiry Date - Auto Untick the selection if Expired +- Auto Get Previous Meter Reading & Monthly Charge +- Will update Current Meter Reading, Current Qty Charge to Sales Quotation By ItemCode + +| **Field** | **Description** | +|--------------------|---------------------------------------------------------------------------------| +| **No. of Copies** | `Current Meter Reading - Previous Meter Reading` | +| **Rebate** | `It can be in % or Qty` | +| **Qty Charges** | `No. of Copies - FOC Qty - (No. of Copies * Rebate)` | +| **Amount Charges** | `(Qty Charges * Unit Price) + Add Fees + Monthly Charge (if No. of Copies > FOC Qty); Add Fees + Monthly Charge (if No. of Copies <= FOC Qty)` | + +- Below is the field relation between Sales Quotation & Sales Invoice + +| **Invoice Field** | **Quotation Field** | +|---------------------|----------------------------------------------| +| **ItemCode** | ItemCode | +| **Description** | Description | +| **Description2** | Description2 | +| **Description3** | Description3 | +| **Remark1** | Remark1 | +| **Remark2** | Remark2 | +| **Project** | Project | +| **Location** | Location | +| **UDF_PMR** | UDF_CMR | +| **UDF_CMR** | Meter Reading enter by user | +| **UDF_Rebate** | UDF_Rebate | +| **UDF_FreeQty** | UDF_FreeQty | +| **UDF_MthlyCharge** | UDF_MthlyCharge | +| **UDF_AddFees** | UDF_AddFees | +| **UOM** | UOM | +| **UDF_UnitPrice** | UnitPrice | +| **Disc** | Disc | +| **Tax** | Tax | +| **TaxInclusive** | TaxInclusive | +| **UDF_PMRDate** | UDF_DocDate | +| **UDF_Qty** | Calculated based on formula above | +| **Amount** | Calculated based on formula above | +| **UDF_FromDocNo** | DocNo | + +- Minimum UDF Fields Required (Header Fields) + +| **Name** | **Data Type** | **Size** | **Sub Size** | **Caption** | **Required** | **Default Value** | **Display Format** | +|-----------------|---------------|----------|--------------|-------------------|--------------|-------------------|--------------------| +| **RebateRoundUD** | Boolean | | | UDF_RebateRoundUD | False | 0 | False | + +- Minimum UDF Fields Required (Items Fields) + +| **Name** | **Data Type** | **Size** | **Sub Size** | **Caption** | **Required** | **Default Value** | **Display Format** | +|----------------|---------------|----------|--------------|-----------------------------|--------------|-------------------|------------------------| +| **PMR** | Integer | | | UDF_Previous Reading | False | 0 | #,0;-#,0 | +| **CMR** | Integer | | | UDF_Current Reading | False | 0 | #,0;-#,0 | +| **FreeQty** | Integer | | | UDF_FreeQty | False | 0 | #,0;-#,0 | +| **Rebate** | String | 50 | | UDF_Rebate | False | | | +| **MthlyCharge**| Currency | | | UDF_Monthly Charge | False | 0 | #,0.00;-#,0.00 | +| **SubTotal** | Currency | | | UDF_SubTotal | False | 0 | #,0.00;-#,0.00 | +| **Qty** | Float | 10 | 4 | UDF_Current Qty Charge | False | 1 | #,0;-#,0 | +| **UnitPrice** | Float | 10 | 4 | UDF_UnitPrice | False | 0 | #,0.000;-#,0.000 | +| **AddFees** | Currency | | | UDF_AddFees | False | 0 | #,0.00;-#,0.00 | +| **FromDocKey** | Integer | | | UDF_FromDocKey | False | 0 | | +| **FromDtlKey** | Integer | | | UDF_FromDtlKey | False | 0 | | +| **PMRDate** | Date | | | UDF_PMRDate | False | | | +| **FromDocNo** | String | 20 | | UDF_FromDocNo | False | | | + +## Steps + +*Menu: Sales | Invoice...* + + + +1. Select Customer. +2. Click 1. Get Price button. +3. Enter the Current New reading for each machine +4. Click Post button after done. + +## FAQ + +### How I list out all the Expired Agreement? + +1. Click Sales | Outstanding Sales Document Listing. +2. Untick Doc Date +3. Tick Delivery Date +4. Enter the Range Date +5. Click Apply + +### How system check the Expire Date? + + It will Auto Tick if Expire Date > CurrentWorkingDate OR Expire Date is Empty + +### How system calculate the Minimum Charges? + + System will use Balancing Method to Calculate the Minimum Charges. + Eg Min. Charge RM 300 + + A. Machine Usage RM 6.86 + B. Free Copy RM 2.50 + C. Spoil Copy RM 0.14 + D. Total before Min Charges (A - B - C) RM 4.22 + E. Min. Charge (RM 300 - D) RM 295.78 diff --git a/docs/miscellaneous/business-nature-industries/RecurringGuide.md b/docs/miscellaneous/business-nature-industries/RecurringGuide.md new file mode 100644 index 00000000..f9c07c51 --- /dev/null +++ b/docs/miscellaneous/business-nature-industries/RecurringGuide.md @@ -0,0 +1,596 @@ +--- +sidebar_position: 3 +id: recurring-guide +title: Recurring Guide +description: Guide on Recurring +slug: /miscellaneous/recurring-guide +tags: ["Sample Recurring", "Company"] +--- + +This Customisation is for simple calculation for the management property which normally monthly charge Maintenance, Sinking Fund & etc. + +[Sample Database](https://download.sql.com.my/customer/Fairy/ACC%20BK-%5BRecurring%5D.zip) + +## History New/Updates/Changes + +02 Jun 2025 + +Add Option to Post as IV for Customer Due & Payment. +23 Jan 2025 + +Add Use Full Age Option for Late Charge Qty in Customer Due Listing. +Enable Save Setting for Customer Due Listing using Note Field for ItemCode OVERDUE. +Enable Recurring without Filter by Company Category +Add 0Sales Debit Note 9-Late Charges format. +Add 0Sales Invoice 8 (SST 2)-Aging-Recurring-Maintenance format. +Add 0Sales Invoice 8 (SST 2)-Aging-Recurring-Meter format. +Add 0Sales Invoice 8 (SST 2)-Aging-Recurring-Meter-PrcRange format. +Add 0Sales Invoice 8 (SST 2)-Recurring-Meter-PrcRange format. +Exclude posting if amount = 0 when generate DN. + +11 Aug 2022 + +Add Tick/UnTick All Option for Gen/B In Maintain Customer. +Fix sometime prompt error when using Price Range. +Add With 5 Cents Rounding Options for Customer Due Listing. +Add T.O/S Amt label (Total Outstanding Amount) in Sales Invoice. +Fixed Header Description for Total Amount Not Correctly Sum when using Price Range. +Add Prompt for Open Sales Invoice after done Posting. +Add With 5 Cents Rounding & With DN Options for Customer Payment. +Add Prompt for Open Sales Debit Note after done Posting. +Add UDF_LastReading & UDF_CurrReading at Sales Invoice for Price Range use. +Fixed Error due to system override when using Min Charge only for utilities. +Fixed Display Format for utilities should be in 4 decimal point +Enable Optional to use Maintain Customer Agent & Terms when using zProfile code for Agent & Terms +Fixed SQLAcc auto exit when Click Generate in Lastest SQL Acc Version. +15 Apr 2019 + +Add Option Include Zero Qty for Utilities +Fixed Unable Recurring For Document Listing after upgrade to 776 +Fixed Utilities will shown Discount 1 when PriceTag discount is empty +22 Mar 2019 + +Add Process Status on Recurring SQFT in Maintain Customer +Fixed Min. Charge not working for Lead Time 0 & 1 +28 Jan 2019 + +Move Footer Count to Company Name +Increase Form width to 1024 +Remove all Tax Code in Sample Data +Add Use Doc Tax Code option for Doc Listing +Allow Multi range price for Utility +04 Oct 2018 + +Fixed Amount not correct if Qty = Min Charge Amt Qty +15 Aug 2018 + +Reduce the Doc & Item Project Length at Customer Payment +Set to 0 if using both Rebate & Min Charge if below Min Charge amount +11 Jul 2018 + +Allow more then 1 Stock Group for SQFT in Maintain Customer +Add UDF_UseSQFT in QT Detail - True Qty = UDF_BuildUp(Maintain Customer) +Add UDF_UseARPrice in QT Detail - True UnitPrice = UDF_UPSQFT(Maintain Customer) +Add Last Payment Date, Amount & Outstanding Information in Invoice Detail Screen +Add Document & Item Project selection Posting for Customer Due +15 Feb 2018 + +Generate by SQFT by Customer +Add Cust Local - Payment Listing (GST 1) - Knock Off Doc No Set - Cross +Add Sales Customer Price History - ItemCode - Cross +Allow to change Header Description for DN Overdue +Set Default TaxRate 0% for Payment DN overdue +21 Mar 2017 + +Change Header Description for Posting DN to Late Payment Charges for +25 Jan 2017 + +Add Pre-Post DN at Customer Payment. +Add Sales Document Listing Recurring. +16 Sep 2016 + +Fixed access violation error if No Record Found prompt. +12 Jan 2016 + +Enable GAS Reading +25 Dec 2015 + +* Add 0Sales Invoice 7 (GST 2)-Recurring-Maintenance Report +* Add 0Sales Invoice 7 (GST 2)-Recurring-Meter Report +* Enable GAS Reading +* Allow Select Multi DocNo Set for Different Reading +* Fixed bug LeadTime=0 - Will being override by Rebate when is below Min Charge (i.e. will set to 0 if less then Min Charge) +* Fixed Cust Statement 06 Mths 1 Report Not shown Address 1 & take too much space at footer +26 Sep 2015 + +* Remove 5 Cent rounding Script & use build in 5 Cent rounding +* Fixed Customise Statement report not follow company profile information +* Set Customer Payment UDF_PostDN Default Value = False +12 Aug 2015 + +* Fixed Posting Overdue DN should excluding the GST amount from the calculation + +## Modules Required + +* General Ledger, Customer, Supplier +* Sales, Purchase +* DIY Field +* DIY Script +* Multiple Pricing (Price Tag) +* Multiple Document Number Set + +## Tutotial Video + +[Recurring](https://www.youtube.com/watch?v=DLShuxExZi8&t=27s) + +## Settings + +### Maintain User + +*Menu: Tools | Maintain User...* + +Untick the Access Right for Prompt Replace Unit Price Dialog under **Group : Sales** + +### Maintain Customer + +*Menu: Customer | Maintain Customer...* + +* Below fields MUST had Value (minimum is 0 not empty or Null) + +* UDF_WaterReading +* UDF_ElectricReading +* UDF_GasReading +* UDF_IWKReading +* Price Tag + +* Minimum UDF Fields Required + +| **Name** | **Data Type** | **Size** | **Sub Size** | **Caption** | **Required** | **Default Value** | **Display Format** | +|-------------------|---------------|----------|--------------|--------------------------|--------------|-------------------|---------------------------| +| WaterReading | Float | 10 | 4 | UDF_WaterReading | False | 0 | #,0;-#,0 | +| ElectricReading | Float | 10 | 4 | UDF_ElectricReading | False | 0 | #,0;-#,0 | +| GasReading | Float | 10 | 4 | UDF_GasReading | False | 0 | #,0;-#,0 | +| IWKReading | Float | 10 | 4 | UDF_IWKReading | False | 0 | #,0;-#,0 | +| UseARPrice | Boolean | | | Use Maintain Customer Price | False | False | | +| UPSQFT | Float | 10 | 4 | Unit Price/SQFT | False | 0 | #,0.00;-#,0.00 | +| BuildUp | Float | 10 | 4 | Build Up (sf) | False | 0 | #,0.00;-#,0.00 | +| WaterLastDate | Date | | | UDF_WaterLastDate | | | | +| ElectricLastDate | Date | | | UDF_ElectricLastDate | | | | +| GasLastDate | Date | | | UDF_GasLastDate | | | | +| IWKLastDate | Date | | | UDF_IWKLastDate | | | | + +:::success NOTE : +UseARPrice & UPSQFT is use for Recurring by square feet (SQFT) +UseARPrice +True = the Unit Price is by Customer +False = the Unit Price is from Maintain Item Ref Price +The Item Code List is filter by Stock Group Code LIKE MAINTENANCE% +::: + +### Quotation + +*Menu: Sales | Quotation...* + +* DocNo Format := CompanyCategoryCode;Type; + +```cs + eg + B-Shop;Main; => For Maintenance + B-Shop;Water; => For Water Billing + B-Shop;Park; => For Car Park +``` + +* For Meter Reading (eg Water, Electric & etc), Detail can be empty cause system will auto APPEND the itemcode + +:::note + +* Master Description if using + +* 1.Generate Maintenance it will use the Quotation Master Description. +* 2.Generate Meter Reading (eg Water, Electric & etc), it will shown how much the meter usage +[Master Description (MMM YYYY) - CurrentReading - PreviousReading=Usage@UnitPrice]. +* 2.Generate Meter Reading with "Include Grid Detail Info." Option tick it will use the Quotation Master Description. +* UDF_UseSQFT + +* True := Qty = UDF_BuildUp from Maintain Customer +* False := Qty = Quotation Qty +* UDF_UseARPrice + +* True := UnitPrice = UDF_UPSQFT from Maintain Customer +* False := UnitPrice = Quotation UnitPrice + +::: + +Quotation - SQFT + + + +Quotation - Utilities - Price Range + +Below Example is for Price Range Water Reading + + + +1. Tick Use Price Range +2. Select Item Code (eg WATER for Water Reading) +3. Enter the Description to be shown in Invoice for Each Range +4. Enter the Range UDF_From & UDF_To +5. Enter the Unit Price + +:::success NOTE : +For Last Range the UDF_To may enter as 999999 (6 digit of 9 (max)) +::: + +* List Field to be copy from Quotation to Invoice + +| **Master Fields** | **Detail Fields** | +|-------------------|-------------------| +| DocNoEx | Number | +| DocDate | ItemCode | +| Terms | Description | +| Agent | Description2 | +| Description | Description3 | +| DocRef1 | Remark1 | +| DocRef2 | Remark2 | +| DocRef3 | Location | +| DocRef4 | Project | +| Project | DeliveryDate | +| Validity | Qty | +| DeliveryTerm | UOM | +| CC | UnitPrice | +| | Tax | +| | Disc | + +* Minimum UDF Fields Required (Header Fields) + +| **Name** | **Data Type** | **Caption** | **Required** | **Default Value** | +|-------------|---------------|-----------------|--------------|-------------------| +| DocNoSet | Integer | UDF_DocNoSet | False | 0 | +| Type | Integer | UDF_Type | False | 0 | +| IsPrcRange | Boolean | UDF_IsPrcRange | False | False | +| IncZero | Boolean | UDF_IncZero | False | False | + +* Minimum UDF Fields Required (Item Fields) + +| **Name** | **Data Type** | **Caption** | **Required** | **Default Value** | **Display Format** | +|--------------|---------------|------------------|--------------|-------------------|--------------------| +| From | Integer | UDF_From | False | 0 | #,0;-#,0 | +| To | Integer | UDF_To | False | 0 | #,0;-#,0 | +| UseSQFT | Boolean | UDF_UseSQFT | False | False | | +| UseARPrice | Boolean | UDF_UseARPrice | False | False | | + +### Invoice + +*Menu: Sales | Invoice...* + +* Minimum UDF Fields Required (Items Fields & Headers Fields) + +| **Name** | **Data Type** | **Size** | **Sub Size** | **Caption** | **Required** | **Default Value** | **Display Format** | +|---------------|---------------|----------|--------------|--------------------|--------------|-------------------|--------------------| +| LastReading | Float | 10 | 4 | UDF_LastReading | False | 0 | #,0;-#,0 | +| CurrReading | Float | 10 | 4 | UDF_CurrReading | False | 0 | #,0;-#,0 | + +### Debit Note + +*Menu: Sales | Debit Note...* + +* Minimum UDF Fields Required (Items Fields) + +| **Name** | **Data Type** | **Size** | **Caption** | **Required** | **Default Value** | **Display Format** | +|------------|---------------|----------|---------------|--------------|-------------------|----------------------| +| IVDocNo | String | 20 | UDF_IVDocNo | False | | | +| IVDocDate | Date | | UDF_IVDocDate | | | | +| IVDueDate | Date | | UDF_IVDueDate | | | | +| IVDocAmt | Currency | | UDF_IVDocAmt | False | 0 | #,0.00;-#,0.00 | +| IVOSAmt | Currency | | UDF_IVOSAmt | False | 0 | #,0.00;-#,0.00 | + +### Stock Item + +*Menu: Stock | Maintain Stock Item...* + +* Item Code to be create + +* WATER +* ELECTRIC +* GAS +* IWK +* RTN5Cents => For Rounding Mechanism +* OVERDUE => For Overdue Charge (Just set at Ref Price & enter 0.1 for 10% pa) +* MINCHARGE => For Utilities Price Range +* REBATE => For Utilities Price Range + +* Price Tag => For Different UnitPrice for Meter Reading (eg WATER, ELECTRIC & etc) + + Use Disc column as Rebate & Min Charge => Format := Rebate+MinCharge +eg + +### Lead Time Setup + +| **Lead Time** | **Type** | **Description** | **Input Value** | +|---------------|-------------------|---------------------------------|-----------------| +| 0 | Both | Rebate 11.75 & MinCharge 5 | 11.75+5 | +| 1 | Rebate Only | Rebate 12.30 & MinCharge 0 | 12.30+0 | +| 2 | Min Charge Only | Rebate 0 & MinCharge 5 | 0+5 | + +* Lead Time => 0: Both, 1: Rebate Only, 2: Min Charge Only +* For MinCharge make sure it had Value else set at 1 + + + +:::success How System calculate Min. Qty for Min. Charge? + +* Using above example => Min. Qty := 5 / 0.3121 = 16.0205 +* if the Qty is below or equal 16.0205 then Amount will Reset to 5 +::: + +### Customer Payment + +*Menu: Customer | Customer Payment...* + +* Auto Generate Sales DN for overdue IV if UDF_PostDN (in [DIY Fields](../../usage/tools/guide#maintain-diy)) Default Value is set to True (Default is False) +* Only Knock-off to DN will not regenerate DN again if overdue +* Formula for Age + +```vb +Age := CurrentWorkingDate - Knock off Invoice Due Date +``` + +* Formula For Qty + +```vb +if Age < DayOf(CurrentWorkingDate) then + Qty := Age else + Qty := DayOf(CurrentWorkingDate); +``` + +* Formula for UnitPrice + +```vb +Unit Price := Rate/365 * Knock off amount (Excluding GST) +``` + +* Minimum UDF Fields Required (Header Fields) + +| **Name** | **Data Type** | **Size** | **Caption** | **Required** | **Default Value** | +|-----------|---------------|----------|---------------|--------------|-------------------| +| PostDN | Boolean | | UDF_PostDN | False | False | +| TaxRate | String | 10 | UDF_TaxRate | False | 0% | + +### Customer Due Listing + +*Menu: Customer | Print Customer Due Document...* + +* Auto Generate Sales Debit Note for overdue Invoice & Debit Note (can untick the option if don't wanted to be included before click Apply button) +* It will Generate 1 Customer Code 1 Sales Debit Note +* The rate is from Ref Price of OVERDUE itemcode (just enter 0.1 for 10% pa) +* Formula Qty + +```vb +if Age < DaysInAMonth(edDueDate.Date) then + Qty := Age else + Qty := DaysInAMonth(edDueDate.Date); +``` + +* Formula UnitPrice + +```vb +Unit Price := Rate/365 * Outstanding amount (Excluding GST) +``` + + + +1. Set the Date to generate Overdue +2. Tick the following option + + * Invoice + * Debit Note (if you wanted to include in calculation overdue) + * Overdue + +3. Click Apply button +4. Select & Enter the DN Information +5. Click 1. Post DN button + +:::success NOTE : +For more accurate calculation for Unit Price, try set the Unit Price to 4 Decimal points +::: + +### Sales Document Listing + +*Menu: Sales | Print Sales Document Listing...* + +* Is a batch + +* Delete Document +* Copy From 1 Document type & Paste To Same or Other Document Type + +Base on the parameter selected & result shown in the grid + + + +### Batch Delete Document + +Below is example to delete Invoice + +1. Select Invoice Listing +2. Select Range Date or any parameter you prefer +3. Click Apply button +4. Click Delete button + +:::warning +Only Select follow filter + +* Date +* Customer +* Agent +* Area +* Company Category +* Doc. Project + +::: + +### Batch Copy & Paste Document + +Below is example to Copy from Invoice to Invoice + +1. Select Invoice Listing +2. Select Range Date or any parameter you prefer +3. Click Apply button +4. In the section A (See icon A) + +5. Click Post button + +## Steps + +### Maintain Customer + +*Menu: Customer | Maintain Customer...* + +Generating Maintenance - SQFT + + + +1. Click 1. Gen/B button. + +  + +2. Untick any Customer you don't wanted to Generate +3. Select the Item Code. +4. Enter the Item Description. +5. Enter the Document Date. +6. Select Project (Optional) +7. Select Document Number Set to use +8. Click Post to generate + +:::success If system prompt "Do you want to set "xxxxxx" as your default document running number set?" +Just click Yes to avoid keep prompt again +::: + +:::warning +Make sure the Build Up (sf), Use Maintain Customer Price & Unit Price/SQFT Column +is shown at Browse Screen before Click the Gen/B button +::: + +### Quotation + +*Menu: Sales | Quotation...* + +#### Generating Maintenance + + + +1. Enter/Change the Description to be shown in Sales Invoice & Customer Statement +2. Enter/Change the Date & Terms & other Information in Detail +3. Select Recurring Type (i.e. Maintenance). +4. Select Document Number Set to use. +5. Click Save button. +6. Click 3. Generate Bill button. + + + +1. Untick any Customer you don't wanted to Generate +2. Click Ok button to generate + +:::success The above steps also applicable for **Generating Maintenance for SQFT** +::: + +#### Generating Meter Reading + + + +1. Enter/Change the Description to be shown in Sales Invoice & Customer Statement +2. Enter/Change the **Date & Terms** & other Information in Detail +3. Select Recurring Type (i.e. Water Reading). +4. Select **Document Number Set** to use. +5. Click Save button. +6. Click **3. Generate Bill** button. + + + +1. Untick any Customer you don't wanted to Generate +2. Enter the Current Reading for each Customer + +3. Tick **Include Grid Detail Info**. (optional & available if Use Price Range is UnTick) + * if you wanted combine **Generate Maintenance** + * Must use the **Generate Maintenance** Template(Quotation) + +4. Click Ok button to generate + +:::success If system prompt "Do you want to set "xxxxxx" as your default document running number set?" +Just click Yes to avoid keep prompt again +::: + +### Customer Payment + +*Menu: Customer | Customer Payment...* + + + +Below is example for **Generating Due Interest** from Customer Payment + +1. Click New button +2. Select Customer Code +3. Enter & Select the DN Information +4. Click **0. Show Due IV/DN...** button + +  + +5. May untick which don't wanted to include the Due Interest Calculation. +6. Click **Post DN** Button to Post/Generate Due Interest DN +7. Click **Close** + +:::warning +Make sure the **UDF_PostDN** Default is Set to **False** else will double posting +::: + +:::success NOTE: +The Age calculate to System Working Date. + +The UnitPrice is round to 4 Decimal Point. + +The GST Rate field is use to Pre-Calculate the Due Amount before posting Only. + +The GST rate is still base on the GST Tax code you set in Maintain Item or Tools | option or Maintain Customer. +::: + +## Recurring FAQ + +### Where to Generate the Cust Local - Payment Listing (GST 1) - Knock Off Doc No Set - Cross report? + +*Menu : Customer | Print Customer Document Listing... | Customer Payment Listing*_ + +### How the Column Description shown in Cust Local - Payment Listing (GST 1) - Knock Off Doc No Set - Cross report? + +*Menu : Tools | Maintain Document Number...* + +It use + +* Description field as Caption +* First 2 Character Format field as Grouping (eg Format RE-IV-%.5d it will group by RE) + +### Where to Generate the Sales Customer Price History - ItemCode - Cross report? + +*Menu : Sales | Print Print Sales Price History...* + +Select Customer in Group/Sort By : Option + +### My company not using Rebate & Min. Charge. What Input Value I need to set? + +Just set the Discount Value to 0+0 + +### How is the Rebate & Min.Charge is Work? + +Default System will Calculate the Min. Charge then Only Rebate + +### Can I use Maintain Customer Agent/Terms code instead use Quotation Agent/Terms code? + +Yes can just Create & set the Code as zProfile for Agent and/or Terms + +### Can I use Maintain Customer Agent/Terms code instead of using Quotation Agent/Terms code? + +Yes can just Create & set the Code as zProfile for Agent and/or Terms + + + +### Why at Maintain Customer Gen/B I can't select the Itemcode? + +Make sure you had Stock Group begin with MAINTENANCE & all itemcode is set to this Stock Group diff --git a/docs/miscellaneous/business-nature-industries/photocopier-meter.md b/docs/miscellaneous/business-nature-industries/photocopier-meter.md index f53e3e84..0c98b998 100644 --- a/docs/miscellaneous/business-nature-industries/photocopier-meter.md +++ b/docs/miscellaneous/business-nature-industries/photocopier-meter.md @@ -1,5 +1,5 @@ --- -sidebar_position: 1 +sidebar_position: 2 id: photocopier-meter title: Photocopier Meter description: A guide to get price of photocopier meter in quotation @@ -15,11 +15,11 @@ The document number must be in the format = `S-%.5d` to allow the system to get 1. Create a new quatation (QT), and enter all product info inside. -  +  2. Tools | Option | Unitprice, place Last Quotation Selling Price at first place. -  +  3. Create a new sales invoice and select a customer @@ -27,11 +27,11 @@ The document number must be in the format = `S-%.5d` to allow the system to get 2. Enter Current Reading (Meter reading). 0 reading will not append to this invoice 3. After done, Press **POST** Button -  +  Result after done: -  +  4. After saving the invoice, system will append the info to QT. @@ -45,4 +45,4 @@ The document number must be in the format = `S-%.5d` to allow the system to get - Amount = UDF_AddFees + UDF_MthlyCharges - After that system will auto update the info to QT. -  +  diff --git a/docs/miscellaneous/business-nature-industries/sample-recurring-company.md b/docs/miscellaneous/business-nature-industries/sample-recurring-company.md index 8d4ab940..bdd06790 100644 --- a/docs/miscellaneous/business-nature-industries/sample-recurring-company.md +++ b/docs/miscellaneous/business-nature-industries/sample-recurring-company.md @@ -1,5 +1,5 @@ --- -sidebar_position: 2 +sidebar_position: 4 id: sample-recurring-company title: Sample Recurring Company description: sample recurring company @@ -19,7 +19,7 @@ Use Company Category for filtering 1. Customer | Maintain Customer | Cust. Category = Filtering -  +  2. Sales | Quotation | @@ -33,11 +33,11 @@ Use Company Category for filtering - A-Tenant;Water => For Water Billing - A-Tenant;Park => For Car Park -  +  -  +  -  +  3. Sales | Invoice | Invoice auto generated. @@ -70,11 +70,11 @@ Use Company Category for filtering Refer below sample picture: -  +  When you press ok, system will prompt this message as below : -  +  1. Press **No** so that the system will capture the *Price* you have set at **Cust Price Tab**. @@ -130,7 +130,7 @@ Use Company Category for filtering - Will auto generate Overdue Debit Note if the Knock-off Invoice is overdue. - User can set **Default Value** to ***False*** (at AR_PM - Payment Field), if not used (**Default Value** is set to ***True***) -  +  Formula: Rate/365 * KOAmt diff --git a/docs/miscellaneous/clipboard-import.md b/docs/miscellaneous/clipboard-import.md index fdbce505..acad5fde 100644 --- a/docs/miscellaneous/clipboard-import.md +++ b/docs/miscellaneous/clipboard-import.md @@ -1,5 +1,6 @@ --- title: Clipboard Excel Import +id: clipboard-import description: A guide about clipboard excel import for SQL Account slug: /miscellaneous/clipboard-import tags: ["SQL Account", 'Import'] diff --git a/docs/miscellaneous/excel-import-program.md b/docs/miscellaneous/excel-import-program.md deleted file mode 100644 index 69b6cd46..00000000 --- a/docs/miscellaneous/excel-import-program.md +++ /dev/null @@ -1,10 +0,0 @@ ---- -sidebar_position: 16 -id: excel-import-program -title: Excel Import Guide -description: A quick guide on Excel Import Program for SQL Account -slug: /miscellaneous/excel-import-program -tags: ["SQL Account", "Excel", "Import"] ---- - -[Click here for latest Excel Import guide](https://wiki.sql.com.my/wiki/SQL_Acc_XLS_n_MDB_Import) diff --git a/docs/miscellaneous/gst.md b/docs/miscellaneous/gst.md deleted file mode 100644 index e7411b50..00000000 --- a/docs/miscellaneous/gst.md +++ /dev/null @@ -1,102 +0,0 @@ ---- -title: GST -description: Info about GST -slug: /miscellaneous/gst -tags: ["SQL Account","GST"] ---- - -## History of GST - -Historical changes in GST Accounting Guideline. - - - -## GST Audit File (GAF) - -1. GAF is constructed from 5 records elements. - -  - -2. GAF – Record Elements (P, S). - -  - -3. GAF – Record Elements (L). - -  - -4. GAF – Record Elements (F). - -  - -## Generate GAF - -:::info - -Watch tutorial video here: [Youtube](https://www.youtube.com/watch?v=EoyLOMs5pQg&feature=youtu.be) - -::: - -GAF = GST Audit File. - -The purpose of a GAF is for Customs to audit the accuracy of your GST Return but GAF submission is only required upon request. It is not required to be submitted with GST-03. - -1. Click on **GST** | **Open GST Return**. - -  - -2. Select the cycle for the GAF that you want to generate. Then click on the **arrow down button** and select **Generate GST Audit File(GAF)**. - -  - -3. The result is generated based on **General, Sales & Purchase Ledger** for you to check your transactions before submitting to Customs for auditing purposes. - -  - -4. You may check the report. - -5. Click on **Save as Text**. - -  - -6. Save your GAF text file to desktop. - -  - -7. After saving, the message “File generated successfully” will automatically pop-up, just click **OK**. - -  - -8. Go to desktop to select the GAF.txt file. The output will be similar to the image below: - -  - -The above is the exported file that has fulfilled all requirements by Customs, you may submit to [Customs Department](https://gst.customs.gov.my/TAP) - -:::note - -C= Company Name - -P = Purchase Transaction - -S = Sales Transaction - -L = General Ledger transaction - -You have to submit GAF File upon request by Customs. - -::: - -## GST Listing Report - -This report is to analyse the detail of GST transactions grouped by tax type. It can be used to check against GST-03. - -1. **GST** | **Print GST Listing**. - -2. Filter the date range that you want to apply or you can filter by GST Process, tax code. - -3. Click **Apply**. - -  - -  diff --git a/docs/miscellaneous/import-export-guide.md b/docs/miscellaneous/import-export-guide.md index 6fdc2171..b9cf0447 100644 --- a/docs/miscellaneous/import-export-guide.md +++ b/docs/miscellaneous/import-export-guide.md @@ -40,7 +40,7 @@ For more details & updates, please click [here](https://wiki.sql.com.my/wiki/SQL 5. Click Export > Select the location where you want to export > Enter the Export File Name > Press Save > Export the Data 6. Done -  +  ## Import @@ -131,3 +131,75 @@ If you encounter this error message: **Solution:** Check if you have any DIY Fields in the source database and ensure the destination database has the same DIY Fields configured. + +## FAQ + +### Why the SO or PH Deposit is not Imported even the XML had the information? + +It because the D_DocNo field can't set. User had to export the OR/PV from Customer Payment/Supplier Payment + +### Why AR_PM, AR_CN, AP_SP & AP_SC can't don't had the Replace Action? + +It due to + +- Gain Loss +- Refund knock off can't be replace +- GST-03 Item 12 Net Gain in Forex + +### Why after upgrade SQL Acc Version 742 & above when import GL_PV, GL_OR & GL_JE prompt Access Violation + +It due to from Version 742 & above the Detail field TAXREF is change to GSTNO; + +### I had 2 or more database/Company to import but how can I avoid import wrong zip file? + +- Using Version 5.6.0.21 you can add in the zip file with Profile.txt with content "CompanyName";"Remark"; +eg "Testing Company";"2017"; in the Profile.txt +- This function unavailable for Fast XML Import function. +- Remember to set to 1 in Tools | Options | CheckProfile +- This function is only Alert user if not match & user still can by ignore the Alert & continue import + +### In my zip file consist of xml file which filename had follow the requirement but why still empty when Get file? + +Make sure the xml file Attributes for the following setting is selected (Right Click | Properties | General | Advanced...) + +- File is ready for archiving +- Allow this file to have contents indexed in addition to file properties + +### Do the XML import Description3 support multi line? + +Yes but you need to adjust the Field SUBTYPE from Binary to Text + +Original + +```pascal +... +
`1` : Mamee Customer Code same as SQLAcc Customer Code Field **(Recommended)** | +| **MameeSalesmanCodeAsAgent** | `0` : Mamee Salesman Code will use Mamee Import Agent List
`1` : Mamee Salesman Code same as SQLAcc Agent Code **(Recommended)** | +| **FormatType** | `1` : Format 1
`2` : Format 2 | + +Menu : Tools | Maintain Agent... + + + +| Options | Description | +|---------------|-----------------------------| +| Saleman Code | Mamee Salesman Code | +| Agent | SQL Accounting Agent Code | + +01. Click the + button +02. Enter the Mamee Salesman Code +03. Select the SQL Accounting Agent Code +04. Click Tick to Save +Menu : Tools | Maintain Non-Product GL... + + + +| Options | Description | +|-----------------------|--------------------------------------------------| +| Mamee Reason Code | Mamee Reason Code | +| Reason Desc. | Mamee Reason Description | +| GL Acc. Debit Note | SQL Accounting GL Account Code for Debit Note | +| GL Acc. Credit Note | SQL Accounting GL Account Code for Credit Note | + +01. Select the record +02. Click Edit (the up arrow) +03. Select the GL Code for Debit Note +04. Select the GL Code for Credit Note +05. Click Tick to Save + +## Steps (Mamee) + +### Product Related (Mamee) + +Below steps is example to import Sales Invoice + +01. Click **Product | Invoice...** + +  + +02. Click **Get File** button & system will prompt 2 dialog like below + +  + +03. Select the Mamee Invoice **Text/CSV** Header File +04. Click **Open** + +  + +05. Select the Mamee Invoice Text/CSV Detail File +06. Click **Open** +07. Click **Verify** button to check the data with SQL Accounting Data +08. Click **Post To A/c** button if confirm all is ok to post to SQL Accounting + +:::info +Record(s) will only **Post** if the **Check Box** is Tick & **Status** is Ok +::: + +### Non-Product Related (Mamee) + +Below steps is example to import Sales Credit Note + +01. Click **Non-Product | Credit Note...** + +  + +02. Click **Get File** button & system will prompt dialog like below + +  + +03. Select the Mamee Non Product Credit Note Text/CSV File +04. Click **Open** +05. Click **Verify** button to check the data with SQL Accounting Data +06. Click **Post To A/c** button if confirm all is ok to post to SQL Accounting + +## F&N + +Is External Shareware Program which to import F&N Text file to + +- Sales Invoice +- Sales Credit Note +Export E-Invoice to F&N - Available in Build 18 & Above + +- Sales Invoice +- Sales Credit Note + +## Limitation (F&N) + +- TaxCode with DS will not import. + +## F&N Specification + +- 17 Jun 2015 - ESD soft-drink +- [FN Acct Integration Refrences-20150617](https://download.sql.com.my/customer/Fairy/FN-Acct_Integration_Reference-20150617.zip) + +- 15 Aug 2016 - ESD Online +- [FN-Acct Integration Refrences-20160815](https://download.sql.com.my/customer/Fairy/FN-Acct_Integration_Reference-20160815.zip) + +## Import Program (F&N) + +- Version (3.5.0.23) - 18 Dec 2024 +- Evaluation Limit : 50 Records per file +- [SQL Account F&N Import Setup](https://download.sql.com.my/customer/Fairy/SQLAccFNImp-setup.exe) +- MD5 : `F8114AE694FB966D93082A3FEC57D17C` + +### History New/Update/Changes (F&N) + +--Build 23-- + +- Remove Check UOM from Option. +- Add check UOM base on FnN UOM. +--Build 22-- + +- Fix partly support Version 860 & above. +- Add show Outlet Name. +--Build 21-- + +- Enable support Version 858 for Export E-IV. +- Enable support Version 860 & above. +--Build 20-- + +- Fixed Export E-IV for CN apply error. +- Fixed Export E-IV dateTimeValidated formatting not correct. +--Build 19-- + +- Enable Import E-Invoice Info from FnN. +- Fixed Export E-IV header delimiter not correct. +--Build 18-- + +- Upgrade to Version 3.6. +- Add FnN to Header Field CC as indicator Import from FnN. +- Remove L tax code from import. +- Set Default Open FnN ESD Online Files format. +- Add E-Invoicing Export function. +--Build 17-- + +- Fixed Use UOMList not working. +--Build 16-- + +- Add Import Remark to DeliveryTerm Field for CSV format. +--Build 15-- + +- Add Auto Set to Outlet_ID2 if Debtor_Code2 is empty for CSV format. +- Add Get User Guide Option. +--Build 14-- + +- Upgrade to Version 3.5. +- Enable support Running In Windows Limited User. +- Fixed Verify Detail Error not untick the Master when itemcode not found. +- Fixed Verify Not Check Item Code UOM. +- Fixed Scrollbar not visible. +--Build 13-- + +- Upgrade to Version 3.4. +- Add Project & Location Lookup for Posting. +--Build 12-- + +- Add Outlet_ID2 to shown in Grid. +--Build 11-- + +- Upgrade to D25 Compiler. +- Upgrade to Version 3.3. +- Remove Import Debtor_Name2. +--Build 10-- + +- Upgrade to XE10 Compiler. +- Upgrade to Version 3.2 +- Add Link to SQL Acc. File | Run. +- Add OutletID=Maintain Customer Code +- Add ESD Online - CSV Format +--Build 9-- + +- Fix unable to import docamt is 0 even is no DS Code. +- Fix Status no dropdown list. +- Fix Detail not Verify. +--Build 8-- + +- Fix Get File Error when record is without tax code. +--Build 7-- + +- Fix CN Get File Error. + +## Field Mapping - Header (F&N) + +- As at 17 Jun 2015 - ESD soft-drink - Fixed Length Format + +| FnN Field | Field Position | Field Size | SQL Accounting Field | +|-------------|--------------:|----------:|---------------------------------------| +| Invoice_Date| 1 | 10 | DocDate | +| Invoice_ID | 11 | 10 | DocNo | +| Gross Amount| 41 | 10 | DocAmt | +| Outlet_ID | 71 | 10 | Maintain Customer Remark or Code | + +- As at 15 Aug 2016 - ESD Online - CSV Format + +| FnN Field | Field Position | Field Size | SQL Accounting Field | +|------------------|--------------:|----------:|------------------------------------------------| +| Invoice_Date | 0 | 10 | DocDate | +| Invoice_ID | 1 | 15 | DocNo | +| Total_Gross_Amount | 4 | 10 | DocAmt | +| Debtor_Code2 | 9 | 10 | Customer Code | +| Debtor_Name2 | 10 | 150 | Customer Name
Not valid for Build 11 & above | +| Outlet_ID2 | 11 | 10 | Display Only | +| Remark | 12 | 200 | Delivery Term
Available in Build 16 & above | + +## Field Mapping - Detail + +- As at 17 Jun 2015 - ESD soft-drink - Fixed Length Format + + + +- As at 15 Aug 2016 - ESD Online - CSV Format + + + +## Setting (F&N) + +### In SQL Accounting (F&N) + +01. May refer to Point 2 at Things To Consider Before Import/Post +02. Make sure this option is Tick under Tools | Options | Customer + +- Perform Tax/Local Amount Rounding + +### In F&N Import + +| Options | Description | +|-------------------|-----------------------------------------------------------------------------------------------------------------------------------| +| UOMList | List of UOM available in F&N (Normally is CTN & PCS) | +| DocNoAsDocNo | 0 : F&N DocNo will post to SQLAcc DocNoEx Field
1 : F&N DocNo will post to SQLAcc DocNo Field (Recommended) | +| FNCodeAsItemCode | 0 : F&N ItemCode will check against SQL Accounting \| Maintain Item \| Note Field
1 : F&N Itemcode same as SQL Accounting Itemcode (Recommended) | +| FNUOMAsUOM | 0 : F&N ItemCode will check against UOMList
1 : F&N Itemcode UOM same as SQLAcc Itemcode UOM (Recommended) | +| OutletIDAsCompCode| For ESD soft-drink – Fixed Length Format Only
0 : F&N Outlet ID will check against SQL Accounting \| Maintain Customer \| Remark Field
1 : F&N Outlet ID same as SQLAcc Customer Code (Recommended) | + +## Steps (F&N) + +### Import Invoice/Credit Note (F&N) + +Below steps is example to import Sales Invoice +01. Click Sales | Invoice... +02. Click Get File button & system will prompt 2 dialog like below + +  + +03. Click Files of Type & select the FnN File Format type +04. Select the F&N Invoice Text Header File + +  + +05. Select the F&N Invoice Text Detail File + +  + +06. Click Verify button to check the data with SQL Accounting Data +07. Select Project & Location (if Required) +08. Click Post To A/c button if confirm all is ok to post to SQL Accounting + +:::caution +Remember to check the data with Has Deemed Supplies column which is Tick as system will by pass posting +::: + +### Export E Invoice/Credit Note (F&N) + +  + +01. Click Export E-Invoice Status... +02. Select Range Date (E-Invoice Submission date) +03. Select DocType (eg Invoice) +04. Click Apply +05. Click Export + +## Unilever + +Is External Shareware Program which to import Unilever CSV file to + +- Sales Order +- Sales Invoice +- Sales Credit Note + +## Unilever Specification + +- 07 Feb 2018 +- [Unilever Import Structure-20180207](http://www.estream.com.my/downloadfile/Fairy/UnileverImp-Structure-20180207.zip) +- 25 Sep 2017 +- [Unilever Import Structure-20170925](http://www.estream.com.my/downloadfile/Fairy/UnileverImp-Structure-20170925.zip) + +## Import Program (Unilever) + +- Version (1.3.0.12) - 05 Apr 2025 +- Evaluation Limit : 100 Records per file +- SQLAccUnileverImp-setup.exe +- MD5 : `44F7A21D88D3EA4F4C1D7CF0571FFD5D` + +### History New/Update/Changes (Unilever) + +--Build 12-- + +- Fixed Get SO for Old Format no data. +--Build 11-- + +- Upgrade to Version 1.3. +- Add Option to Import as Sales Order. +- Add Get User Guide option. +--Build 10-- + +- Enable Support Version 860 & above. +--Build 9-- + +- Add Copy Cell Value Function. +- Add Auto Add Rounding for DocAmt <> Total Detail Amount. +--Build 8-- + +- Fixed Find Company Code not Correct if almost same Retail Code. +- Fixed Setting loss after uninstall. +--Build 7-- + +- Upgrade to Version 1.2. +- Enable Support if Unilever using Both Cases and Pieces for 1 row by Convert to Smallest UOM for Cases. +--Build 6-- + +- Add ZRL & SR TaxCode Option +--Build 5-- + +- Fix Header DocNo not match with Detail DocNo +--Build 4-- + +- Verify DocNo not correct for Old Format import +- Amount should deduct Discount before append +--Build 3-- + +- Upgrade to Version 1.1. +- Add back Old Format Import with auto add 00 in-front of DocNo before Post to Account. +--Build 2-- + +- Fixed UnitPrice 0 when After Post to Account. +--Build 1-- + +- Update New Format. +--Build 0-- + +## Field Mapping - Header (Unilever) + +- 25 Sep 2017 + +| Unilever Field | Field Position | Field Size | SQL Accounting Field | +|------------------|--------------:|----------:|----------------------| +| **INVH_Type** | 1 | 2 | 01 – Sales Invoice
02 – Sales Credit Note | +| **INVH_No** | 3 | 10 | DocNo | +| **INVH_Retailer**| 17 | 8 | Code or Maintain Customer Remark | +| **INVH_Date** | 26 | 19 | DocDate | +| **INVH_Total** | 141 | 21 | Amount Before Discount | +| **INVH_Discount**| 162 | 21 | Discount Amount | + +- 07 Feb 2018 + +| Unilever Field | Field Position | Field Size | SQL Accounting Field | +|------------------|--------------:|----------:|----------------------| +| **INVH_Type** | 1 | 2 | 01 – Sales Invoice
02 – Sales Credit Note | +| **INVH_No** | 3 | 12 | DocNo | +| **INVH_Retailer**| 19 | 8 | Code or Maintain Customer Remark | +| **INVH_Date** | 28 | 19 | DocDate | +| **INVH_Total** | 143 | 21 | Amount Before Discount | +| **INVH_Discount**| 164 | 21 | Discount Amount | + +## Field Mapping - Detail (Unilever) + +- 25 Sep 2017 + +| Unilever Field | Field Position | Field Size | SQL Accounting Field | +|-----------------|--------------:|----------:|----------------------| +| **INVR_No** | 3 | 10 | DocNo | +| **INVR_Product**| 13 | 8 | Item Code or
Maintain Item Code Note | +| **INVR_Cases** | 26 | 22 | Qty (UOM = CA) | +| **INVR_Pieces** | 48 | 22 | Qty (UOM = PCS) | +| **INVR_Amount** | 70 | 21 | Amount | +| **INVR_Discount**| 91 | 21 | Discount | +| **INVR_TAXRate**| 133 | 22 | 0 Tax Code = ZRL
6 Tax Code = SR | +| **INVR_TAXTotal**| 155 | 21 | GST Amount | + +- 07 Feb 2018 + +| Unilever Field | Field Position | Field Size | SQL Accounting Field | +|------------------|--------------:|----------:|----------------------| +| **INVR_No** | 3 | 12 | DocNo | +| **INVR_Product** | 15 | 8 | Item Code or
Maintain Item Code Note | +| **INVR_Cases** | 28 | 22 | Qty (UOM = CA) | +| **INVR_Pieces** | 50 | 22 | Qty (UOM = PCS) | +| **INVR_Amount** | 72 | 21 | Amount | +| **INVR_Discount**| 93 | 21 | Discount | +| **INVR_TAXRate** | 135 | 22 | 0 Tax Code = ZRL
6 Tax Code = SR | +| **INVR_TAXTotal**| 157 | 21 | GST Amount | + +- Unit Price will not import & will auto Assign by SQL Accounting due to Unilever file don't had Pieces Price & UOM Rate + +## Setting (Unilever) + +### In SQL Accounting (Unilever) + +01. May refer to Point 2 at Things To Consider Before Import/Post +02. Make sure this option is Tick under Tools | Options | Customer + + - Perform Tax/Local Amount Rounding + +03. Menu: Stock | Maintain Stock Item... + +- Item Code to be create + - Rounding + +### In Unilever Import (Unilever) + +This can be see under Tools | Options + +| Options | Description | +|----------------------|------------| +| **UOM_Cases** | UOM for Cases in SQL Accounting
Default is CA | +| **UOM_Pieces** | UOM for Pieces in SQL Accounting
Default is PCS | +| **RetailAsCompCode** | 0 : Unilever Retail Code will check against SQL Accounting | Maintain Customer | Remark Field
1 : Unilever Retail Code same as SQL Accounting Customer Code (Recommended) | +| **UnileverCodeAsItemCode** | 0 : Unilever Item Code will check against SQL Accounting | Maintain Item | Note Field
1 : Unilever Item Code same as SQL Accounting Item Code (Recommended) | +| **TaxCodeZRL** | Tax code for 0% | +| **TaxCodeSR** | Tax Code other than 0% | + +## Steps (Unilever) + +Below steps is example to import Sales Invoice + +01. Click Sales | Invoice... +02. Click Get File button & system will prompt 2 dialog like below + +  + +03. Select the Unilever Invoice Text Header File + +  + +04. Select the Unilever Invoice Text Detail File + +  + +05. Click Verify button to check the data with SQL Accounting Data +06. Select Project & Location (if Required) +07. Click Post To A/c button if confirm all is ok to post to SQL Accounting + +## Dryper + +Is External Shareware Program which to import & Export Dryper excel file to + +**Import** + +- Sales Order or Sales Invoice +- Purchase Order or Purchase Invoice +**Export** +- Sales Credit Note + +## Dryper Specification + +- 15 Jan 2019 +- [Dryper Specification-20190115](https://download.sql.com.my/customer/Fairy/Dryper_Spec-20190115.zip) + +## Import Program (Dryper) + +- Version (1.1.0.3) - 29 Jan 2021 +- Evaluation Limit : 100 Records per file +- [SQLAccDryperImp-setup](https://download.sql.com.my/customer/Fairy/SQLAccDryperImp-setup.exe) +- MD5 : `5D18B0207C9C12168D0394855EA378ED` + +### History New/Update/Changes (Dryper) + +--Build 3-- + +- Enable Support Version 782 & above (New ROC). +- Fixed DocNo Not able to select. +- Fixed Unable to Batch Highlight DocNo. +- Fixed Import Prompt Date Error. +- Add Shortcut Get User Guide. +--Build 2-- + +- Add Option SL-UseDryperItemDesc & PH-UseDryperItemDesc. +- Add Option SL-UseDocNoEx & PH-UseDocNoEx. +- Fixed Setting will loss on Uninstall. +--Build 1-- + +- Upgrade to Version 1.1. +- Add Option for use CustomerCode or ExternalReferenceNo2 for SQL Accounting Customer Code. +- Add Check Box at DocNo & remove Check Box in Data Grid +- Add Import PO & PI. +- Add Checking for BizNature & CompanyName2 field for Customer/Supplier Code +- Remove Import DocNoEx for ExternalReferenceNo2 +- Add Checking for Description2 & Note field for Item Code. +- Fixed unable to register. +--Build 0-- + +## Field Mapping (Dryper) + +### Sales Order or Sales Invoice (Dryper Mapping) + +| Dryper Field – SO | Dryper Field – IV | SQL Accounting Field | +|-------------------|-------------------|----------------------| +| **SalesOrderCode** | **SalesInvoiceCode** | DocNo | +| *Either 1 below* | *Either 1 below* | | +| CustomerCode | CustomerCode | Code | +| ExternalReferenceNo2 | ExternalReferenceNo2 | RegisterNo / GSTNo / Remark / CompanyName2 | +| **OrderDate** | **InvoiceDate** | DocDate | +| **ItemCode** | **ItemCode** | *Either 1 below* | +| | | Code
Remark1
Remark2
Shelf
Barcode | +| **ItemName** | **ItemName** | Item Description | +| **Quantity** | **Quantity** | Qty | +| **UOM** | **UOM** | UOM | +| **UnitPrice** | **UnitPrice** | UnitPrice | +| DiscountRate
where LineType = 1 | DiscountRate
where LineType = 1 | Disc | +| **TotalTaxAmount** | **TotalTaxAmount** | TaxAmt | +| **NetAmount** | **NetAmount** | Amount | +| **RoundingAmount** | **RoundingAmount** | Will Append as New itemcode RTN5Cents | + +### Purchase Order or Purchase Invoice (Dryper Mapping) + +| Dryper Field – PO | Dryper Field – PI | SQL Accounting Field | +|-------------------|-------------------|----------------------| +| **PurchaseOrderNo** | **InvoiceNo** | DocNo | +| *Either 1 below* | *Either 1 below* | | +| CreditorCode | CreditorCode | Code | +| SupplierCode | SupplierCode | RegisterNo / GSTNo / Remark / CompanyName2 | +| **ItemCode** | **ItemCode** | *Either 1 below* | +| | | Code
Remark1
Remark2
Shelf
Barcode | +| **ItemName** | **ItemName** | Item Description | +| **POQuantity** | **Quantity** | Qty | +| **UOM** | **UOM** | UOM | +| **UnitCost** | **UnitPrice** | UnitPrice | +| **NetAmount** | **NetAmount** | Amount | +| **OrderDate** | **GRNDate** | DocDate | + +### Customer Credit Note - Export (Dryper Mapping) + +| Dryper Field | SQL Accounting Field | +|-------------------|-----------------------------| +| **CompanyCode** | Hard Coded as 1 | +| **DistributorCode** | Field To Enter in Export Program | +| **BranchCode** | Field To Enter in Export Program | +| **CustomerCode** | Customer Code | +| **DocumentNo** | DocNo | +| **DocumentDate** | DocDate | +| **TotalAmount** | DocAmt | +| **PaidAmount** | DocAmt | +| **Status** | Hard Coded as 1 | +| **CreatedBy** | Hard Coded as SYSTEM | +| **CreatedTimestamp** | DocDate | + +## Setting (Dryper) + +### In SQL Accounting (Dryper Setting) + +01. May refer to Point 2 at Things To Consider Before Import/Post + +### In Dryper Import (Dryper Setting) + +This can be see under Tools | Options + +| Options | Description | +|--------------------------|------------| +| **UseCustomerCode** | 0 : Import will use Dryper ExternalReferenceNo2 Field as Customer Code
1 : Import will use Dryper CustomerCode Field as Customer Code | +| **UseSupplierCode** | 0 : Import will use Dryper CreditorCode Field as Supplier Code
1 : Import will use Dryper SupplierCode Field as Supplier Code | +| **SL-UseDryperItemDesc** | 0 : Import will use SQL Accounting Item Description For Sales Import
1 : Import will use Dryper Item Description For Sales Import | +| **PH-UseDryperItemDesc** | 0 : Import will use SQL Accounting Item Description For Purchase Import
1 : Import will use Dryper Item Description For Purchase Import | +| **SL-UseDocNoEx** | 0 : Import will Map Dryper DocNo to SQL Accounting DocNo For Sales Import
1 : Import will Map Dryper DocNo to SQL Accounting DocNoEx For Sales Import | +| **PH-UseDocNoEx** | 0 : Import will Map Dryper DocNo to SQL Accounting DocNo For Purchase Import
1 : Import will Map Dryper DocNo to SQL Accounting DocNoEx For Purchase Import | + +## Sales Order or Sales Invoice (Dryper Setting) + +Below is example for import Sales Invoice... +Menu: Sales | Invoice... + +01. Click 1. Get File button + +  + +02. Select the File file wanted to import +03. Click Open + +  + +04. Select the Excel Sheet (if more then 1) +05. Set No of record to Load (only available for Registered user) +06. Click 2. Get Data button +07. Click 3. Verify button +08. Click 4. Post To A/c button + +## Customer Credit Note - Export (Dryper Setting) + +Menu: Customer | Customer Credit Note - Export... + + +01. Enter the Distributor Code (Provided by Dryper) +02. Enter the Branch Code (Provided by Dryper) +03. Select Range Date To export +04. Click Get Data... to get the Data from SQL Accounting +05. Click Export to xlsx to export out + +## FAQ (Dryper) + +### How it look like if Dryper had 3 level of discount? + +Once Import it will look like below + + + +## SLPH + +Is External Shareware Program which Convert Sales to Purchase Module or vice versa which exported from SQL Accounting +Normally is use to Export Data From SQL Accounting Database A from Document Type A (Eg Sales Invoice) & Import to SQL Accounting Database B as other Document Type (Eg Purchase Invoice) + +## Limitation (SLPH) + +- Only support 1 Company Code (i.e. 1 batch 1 Company Code) +- Both Source & Target must had Same Itemcode + +## Import Program (SLPH) + +- Version (5.2.1.10) - 20 Aug 2025 +- [Download Link](https://download.sql.com.my/customer/Fairy/SQLAccSLPHV5-setup.exe) +- MD5 : `7ECC58CCBA8B04A00E2F5582D234CE14` + +### History New/Update/Changes (SLPH) + +--Build 10-- + +- Fixed Tax Code empty after verify. +- Fixed TaxInclusive not Import. +--Build 9-- + +- Fixed Get File no records when in SQL Connect. +--Build 8-- + +- Fixed Get File Error due to SEQ field. +Add Get User Guide... Option. +--Build 7-- + +- Upgrade to Version 5.2.1. +- Enable Quick Customise Layout for Grid. +- Empty Item Code should by pass from Verify. +- Allow User Override Header Description. +- Enable Support Unicode +--Build 6-- + +- Fixed Import Sales/Purchase CN & DN Error. +--Build 5-- + +- Upgrade to Version 5.2. +- Add Option Use My Maintain Supplier/Customer Information for Sales/Purchase Import. +- Enable support Running In Windows Limited User. +--Build 4-- + +- Fixed Shown TaxCode Even Original no TaxCode. +--Build 3-- + +- Fix TaxRate Not Import +- Fixed Import Customer/Supplier prompt bad variance type. +--Build 2-- + +- Enable Support Version 5 SQL Accounting +- Add Maintain Tax +--Build 1-- + +- Fix unable to register Database + +## Setting (SLPH) + +### In SQL Accounting (SLPH) + +01. May refer to Point 2 at Things To Consider Before Import/Post +02. Make sure this option is Tick under Tools | Options | Customer + - Perform Tax/Local Amount Rounding + +### In SLPH Import + +Menu : Tools | Maintain Tax + + + +01. Click New/Edit to Insert or update +02. Select Sales Tax Code +03. Select Purchase Tax Code +04. Click Post/Save + +## Steps (SLPH) + +Menu : Purchase | Purchase Invoice... +Below steps is example to import Purchase Invoice + + + +01. Click Get File button +02. Select Supplier Code to update +03. Click Change Button +04. Click Verify button +05. Click Post to A/c Button + +| Option | Description | +|--------|------------| +| **Use Supplier Document No** | Tick : Will follow DocNo in the XML
UnTick : Auto Assign New Document Number In SQL Accounting | +| **Use My Maintain Supplier Information** | Tick : Will follow Maintain Supplier Information
UnTick : Will follow Document Supplier Information | +| **Purchase Invoice (Below Use My Maintain Supplier Information Option)** | Empty it : Will follow Document Header Description
With Value : Will follow the value entered in this field for Header Description | diff --git a/docs/miscellaneous/sst/_category_.json b/docs/miscellaneous/sst/_category_.json deleted file mode 100644 index 26d4b3d8..00000000 --- a/docs/miscellaneous/sst/_category_.json +++ /dev/null @@ -1,8 +0,0 @@ -{ - "label": "SST", - "link": { - "type": "generated-index", - "title": "Sales & Service Tax", - "description": "SST info" - } -} \ No newline at end of file diff --git a/docs/miscellaneous/sst/double-entry.md b/docs/miscellaneous/sst/double-entry.md deleted file mode 100644 index 7c18a546..00000000 --- a/docs/miscellaneous/sst/double-entry.md +++ /dev/null @@ -1,42 +0,0 @@ ---- -title: Double Entry -description: SST double entry -slug: /miscellaneous/sst/double-entry -tags: ["SQL Account","SST", "Double Entry"] ---- - -## Posting - -1. Sales Tax (Accrual Basis) - -  - -2. Service Tax (Payment Basis) - - In SST 2.0, the service tax is due and payable when payment is received for any taxable service. - -  - - 1. Issue sales invoice with service tax 6%, date 31/10/2018, Amount RM 1,000.00 & Tax Amount RM 60.00. - -  - - 2. Process SST Return from 01/09/2018 to 31/10/2018. Total Tax Payable is RM 0. Due to no payment is receive for the invoices issued. - -  - - 3. Payment is received on 05/11/2018, knocked-off on IV-00111. - -  - - 4. Process second cycle of taxable period, the tax payable will be capture as payment is received. - -  - - 5. SQL Account will auto Credit to SST- Deferred Tax account during invoice issue but no payment. Once payment is received, a Debit will be auto reversed at SST-Deferred Tax Account. - -  - - 6. the taxable amount of RM 1,000.00 and Tax Amount of RM 60.00 will also capture in SST-02 Part B2, number 11c. - -  diff --git a/docs/miscellaneous/sst/returns.md b/docs/miscellaneous/sst/returns.md index ccc09719..c1a801f7 100644 --- a/docs/miscellaneous/sst/returns.md +++ b/docs/miscellaneous/sst/returns.md @@ -75,4 +75,4 @@ Understand SST02 27 Column : [Video](https://www.facebook.com/SQLEstream/videos/ 8. Part G -  +  \ No newline at end of file diff --git a/docs/miscellaneous/sst/sales-tax.md b/docs/miscellaneous/sst/sales-tax.md deleted file mode 100644 index 22b57128..00000000 --- a/docs/miscellaneous/sst/sales-tax.md +++ /dev/null @@ -1,483 +0,0 @@ ---- -title: Sales Tax -description: Sales tax details -slug: /miscellaneous/sst/sales-tax -tags: ["SQL Account","SST", "Sales Tax"] ---- - -## Sales Tax Legislation - -### Act - - 1. Sales Tax 2018 - -### Regulations - - 1. Sales Tax Regulations 2018 - - 2. Sales Tax (Customs Ruling) Regulations 2018 - - 3. Sales Tax (Determination of Sale Value of Taxable Goods) Regulations 2018 - - 4. Sales Tax (Compounding of Offences) Regulations 2018 - -### Order - - 1. Appointment of Date of Coming into Operation - - 2. Sales Tax (Person Exempted From Payment Of Tax) Order 2018 - - 3. Sales Tax (Imposition Of Tax In Respect Of Designated Area) Order 2018 - - 4. Sales Tax (Imposition Of Tax In Respect Of Special Area) Order 2018 - - 5. Sales Tax (Exemption From Registration) Order 2018 - - 6. Sales Tax (Goods Exempted From Tax) Order 2018 - - 7. Sales Tax (Rates Of Tax) Order 2018 - - 8. Sales Tax (Total Sale Value Of Taxable Goods) Orders 2018 - -## Scope and Charge - -Sales Tax is a tax charged and levied - - -- on taxable goods manufactured in Malaysia by a taxable person and sold, used or disposed by him; - -- on taxable goods imported into Malaysia - -**Definition of:** - -◆ Goods means all kind of movable property. - -◆ Taxable goods means goods of a class or kind not exempted from sales tax; i.e goods which are not listed in Sales Tax (Goods Exempted From Sales Tax) Order 2018). - -◆ Sales includes barter, disposal of goods with a right of purchase or on terms providing that the seller retains an interest in the goods, and delivery of goods under any conditions as to future payment. - -Sales Tax is not charged on- - -- Goods listed under Sales Tax (Goods Exempted From Sales Tax) Order 2018; - -- Certain manufacturing activities are exempted by Minister of Finance through Sales Tax (Exemption from Registration) Order 2018. - -:::note -Malaysia excludes designated area (DA) and special area (SA). -::: - -## Sales Tax Mechanism - -Overview of Sales Tax flow chart:- - - - -## Meaning of Manufacture - -Manufacture defines as **a conversion of materials** by manual or mechanical means into a new product by changing the following: - -1. size - -2. shape - -3. composition - -4. nature - -5. quality - -of such materials and includes the assembly of parts into a piece of machinery or other products. - -However, manufacture does not include the installation of machinery or equipment for the purpose of construction. - -In relation to petroleum, any process of:- - -1. separation - -2. purification - -3. conversion - -4. refining - -5. Blending - -For goods other than petroleum - -1. By conversion - -  - -2. The assembly - -  - -3. For petroleum - -  - -## Meaning of Taxable Person - -Taxable person is a person who manufacturing taxable goods and is: - -1. Liable to be registered - - - Reached sales threshold - - - Manufacturer - RM 500,000.00 - - - Sub-contractor - RM 500,000.00 - -2. Registered under Sales Tax Legislation - - - Mandatorily registered - - - Voluntarily registered - -## Sales Tax Registration - -### Liability To Register - -Taxable goods manufacturers are required / liable to be registered when SALES VALUE OF TAXABLE GOODS has exceeded RM 500,000 for 12 months period. - -Manufacturers who carry out sub-contract work on taxable goods where the VALUE of work performed exceeds RM500,000 for 12 months period. - -Taxable goods belong to: - -- Registered manufacturer; - -- Non-registered manufacturer - -- Manufacturer in special area (FIZ and LMW) - -:::note -Registered Person will known as Registered Manufacturers. -::: - -### Voluntary Registration - -Conditions are: - -- Sales value of taxable goods below threshold (ie. < RM 500,000). -- Person who are exempted from registration - -### Determination of Turnover - -Manufacturers should calculate the sales value of taxable goods for a period of 12 months using the following methods: - -1. Historical Method - - The total value of taxable goods in that month and the 11 months immediately preceding the month; - -2. Future Method - - The total value of taxable goods in that month and the 11 months immediately succeeding the month. - -### Exemption from Registration - -- Manufacturer of non taxable goods. (Not eligible for voluntary registration). - -- Manufacturer below threshold (ie. < RM 500,000). - -- Sub-contractor manufacturer below threshold. - -- Manufacturing activities that have been exempted from registration. E.g : - - - Tailoring - - - Installation incorporation of goods into building - -### Transitional Registration - - Manufacturer who is liable to be registered is required to register before 1 September 2018. Registration commencement date will be on 1 September 2018. - - 1. Automatic Registration - - - Manufacturers who are GST Registered Persons which have been identified and fulfilled the required criteria will be registered automatically as Registered Manufacturer under Sales Tax. - - - Registered Manufacturer need to charge tax beginning 1 September 2018. - - 2. Person Not Registered Automatically - - - GST registered person who fulfilled the required criteria to be registered but were not registered by 1 September 2018 need to apply for registration within 30 days from the commencement date. - -## Taxable vs Exempted Goods - -### Taxable Goods - -Taxable goods means goods of a class or kind of **not exempted** from sales tax. - -In another words, goods which are not listed in **Sales Tax (Goods Exempted From Sales Tax) Order 2018.** - -Example of taxable goods are: - - - -It is chargeable with a tax rate of - -- 10% - standard sales tax rate - -- 5% - reduced sales tax rate - - - First Schedule in the Sales Tax (Rate of Tax) Order 2018 - -- Specific rate - for petroleum product (eg. RM0.30 per litre) - - - Second Schedule in the Sales Tax (Rate of Tax) Order 2018 - -How to determine the rate of sales tax for goods? - - - -### Exempted Goods - - **Exempted goods** means goods of a class or kind of exempted from sales tax which are listed in **Sales Tax (Goods Exempted From Sales Tax) Order 2018**. - - Example of exempted goods are: - -  - -## Value of Taxable Goods - -Refer to **Sales Tax (Rules of Valuation) Regulation 2018**, value of taxable goods that: - -- sold by taxable person - -- manufactured and used by the manufacturer for other purpose than as materials in manufacturing; or - -- disposed by manufacturer. - -For goods belongs to another manufacturer is known as sub-contract work. - -- Sale value of the goods = Amount of the work performed and charged by **sub-contractor**. - -The sale value of the goods shall be determined on the basis of the **transactions value of the goods** as the primary basis of valuation. - -Transaction value of the goods, - -- The **actual price** the goods are sold, without any conditions or restrictions imposed to purchaser. - -- Purchaser is not required to give parts of proceed on subsequent sale to the manufacturer. - -- Purchaser and manufacturer are not related or if related the relationship did not influence the price. - -## Responsibility of Registered Manufacturer - -  - -## Exemption and Facilities - -### Goods Exemption from Sales Tax - -**Goods** refer to Sales Tax (Goods Exempted From Sales Tax) Order 2018. - -- E.g. live animals, unprocessed food, vegetables, medicines, machinery, chemicals, etc. - -### Person Exempted from Sales Tax - -Person refer to Sales Tax (Person Exempted From Sales Tax) Order 2018. - -- Schedule A: Class of person, e.g. Ruler of States, Federal or State Government Department, Local Authority, Inland Clearance Depot, Duty Free Shop. - -- Schedule B: Manufacturer of specific non-taxable goods, e.g. any manufacturer of - - 1. Controlled goods under Control of Supplies Act 1961 - - 2. Pharmaceuticals products - - 3. Solely manufacture milk products - - 4. Solely manufacture of exempted goods for export to import/purchase raw materials, components and packaging materials. - - - Schedule C: Registered Manufacturer, exemption of tax on the acquisition of raw materials, components, packaging to be used in manufacturing of taxable goods (previously known as CJ5, CJ5A, CJ5B). - -### Field Exempted from Sales Tax - - Manufacturing activities exempted from registration regardless of turnover. - -- E.g. tailor, jeweller, optician, engraving, vanishing table top, etc. - -## Special Rules - -### Treatment in Designated Area (DA) - - - -:::note -SA = Special Area, e.g. Free Zone (FZ), Licensed Warehouse, Licensed Manufacturing Warehouse (LMW) and Joint Development Area (JDA). - -PCA = Principal Customs Area -::: - -### Treatment in Special Area (SA) - - - -## Accounting of Tax - -### Invoices - -Issuance of Invoice: - -- Mandatory for registered manufacturer who sell taxable goods. - -- Hard copy or electronically. - -- Containing prescribed particulars. - -- Bahasa Melayu or English. - - **Prescribed particulars** are: - - 1. The invoice serial number; - - 2. The date of the invoice; - - 3. The name, address and identification number of the registered manufacturer (Sales Tax Number); - - 4. The name and address of the person to whom the taxable goods is sold; - - 5. Description and quantity of the goods; - - 6. Any discount offered; - - 7. For each description, distinguish the type of goods, quantity and amount payable excluding tax; - - 8. The total amount payable excluding tax, the rate of tax and the total tax chargeable shown as a separate amount or total amount payable inclusive of total of tax chargeable; - - 9. Any amount expressed in a currency other than ringgit shall also be expressed in ringgit at the selling rate of exchange prevailing in Malaysia at the time of sale. - -## Credit Note & Debit Note - -A credit note is allowed to issue by registered manufacturer under the situation where the goods are returned by the purchaser due to : - -- Wrong quantity, poor or defective quality or uncontracted goods, provided that the goods have not been subsequently sold or disposed of by the purchaser. - -- Discount given in respect of goods sold and which are freely available to all who are willing to conduct business. - -A debit note is allowed to issue by registered manufacturer under the situation where there is an additional of sales tax to be paid for any price adjustment. - -Both credit note and debit note shall contains the following particulars: - -- The word “credit note” or “debit note” in a prominent place. - -- The serial number and date of issue. - -- The name, address and Sales Tax identification number of the supplier. - -- The name and address of the customer. - -- The **reason** for issuance. - -- Description which identifies the description of goods, the quantity and amount for which CN or DN is given. - -- The total amount excluding tax. - -- The rate and amount of tax. - -- The number and date of the original invoice. - -If changes related to amount of tax payable: - -- Adjustment in the return for the taxable period in which the credit note or debit note is issued. - -- Adjustment in the return for the last taxable for person who has ceased to be a taxable person. - -If deduction for taxable period exceeds the amount of sales tax payable, the balance is to be carried forward to the next taxable period. Refund is not allowed on balance carried forward if taxable person has ceased to carry on business. - -## Accounting Basis and Taxable Period - -### Accounting Basis - -Sales Tax is based on accrual basis and it is required to be accounted at the time when the goods are sold, disposed or first used. - -### Taxable Period - -Regular interval period where a taxable person accounts and remits sales tax to Government. Default taxable period for the registered manufacturer to be **bimonthly (2 months)** period. - -Registered manufacturer may apply for taxable period other than the default taxable period. - -In summary, - - - -## Furnishing Sales Tax (SST-02) Return & Payment of Tax - -Registered manufacturer has to declare SST return every 2 months according to the taxable period. - -- Sales tax return has to be submitted not later than the last day of the following month after the taxable period ended. - -- Sales tax return has to be submitted regardless of whether there is any tax to be paid or not. - -- Sales tax return has to be submitted electronically or by cheque, bank draft and posted to SST Processing Centre. - -Payment for tax due and payable declared in SST-02. Failure to submit return is an offence. - -## Miscellaneous (Remission, Refund of Overpaid Tax, Drawback. Penalty) - -### Remission - -Minister may remit the whole or any part of sale tax due and payable. - -Director General may remit the whole or any part of: - -- Surcharge - -- Penalty - -- Fee - -- Other money payable under the Act - -### Refund of overpaid tax - -Any person who has overpaid or erroneously paid of sales tax, penalty, surcharge, fee; or If any person who has paid sales tax and then exemption or remission of sales tax has granted by Minister. - -Claim to be made in form JKDM No. 2 within one year from the date of over payment or erroneously payment; or entitlement of refund. - -### Drawback - -Director General may allow drawback of the full amount of sales tax paid by a person in respect of taxable goods which are subsequently exported. This is not applicable to petroleum. - -Conditions: - -- Goods must be exported within six months from Sales Tax paid on import or date of invoice issued. - -- Application made within three months from the date of export in JKDM Form no. 2 - -- Other conditions with regards to documentation and declaration. - -Submission to sales tax office at applicants’ place of business. - -Illustration: - - - -### Penalty for late payment of tax - -Late payment penalty on the amount of sales tax not paid as shown in the table below. - - - -### Other penalty for offences - -Evasion of sales tax: - -- 1st offence - either or both - - - Fine - - - Minimum 10x Sales Tax Amount - - - Maximum 20x Sales Tax Amount - - - Imprisonment not exceeding 5 years - -- 2nd offence - either or both - - - Fine - - - Minimum 20x Sales Tax Amount - - - Maximum 40x Sales Tax Amount - - - Imprisonment not exceeding 7 years diff --git a/docs/miscellaneous/sst/service-tax.md b/docs/miscellaneous/sst/service-tax.md deleted file mode 100644 index eb1fd04d..00000000 --- a/docs/miscellaneous/sst/service-tax.md +++ /dev/null @@ -1,194 +0,0 @@ ---- -title: Service Tax -description: Service tax details -slug: /miscellaneous/sst/service-tax -tags: ["SQL Account","SST", "Service Tax"] ---- - -## Service Tax Legislation - -### Act - - 1. Service Tax 2018 - -### Regulations - - 1. Service Tax Regulations 2018 - - 2. Service Tax (Customs Ruling) Regulatons 2018 - - 3. Service Tax (Compounding of Offences) Regulations 2018 - -### Order - - 1. Appointment of Date of Coming into Operation - - 2. Appointment of Effective Date for Charging and Levying of Service Tax - - 3. Service Tax (Imposition Of Tax For Taxable Service in Respect of Designated Areas and Special Areas) Order 2018 - - 4. Service Tax (Rates Of Tax) Order 2018 - -## Scope and Charge - -Service tax is charged on: - -- any provision of taxable services; - -- made in the course or furtherance of any business; - -- by a taxable person; and - -- In Malaysia - -Service tax is not chargeable on: - -- Imported services - -- Exported services - -## Service Tax Mechanism - -Overview of Service Tax flow chart:- - - - -## Meaning of Taxable Person - -A service provider who is liable to be registered or registered under the Service Tax Act 2018. The service provider provides taxable services in the course or furtherance of business in Malaysia. - -## Taxable Service - -Value of taxable service provided by a service provider for a period of 12 months that exceed a threshold of RM 500,000 is liable to be registered. Except the following taxable service group: - -- Food and Beverages (exceed RM 1,500,000) - -- Credit card / charge card (no threshold) - - - - - - - - - -## Rate of Services - -All taxable services are fixed charged at a rate of 6%, except the provision of credit card/charge card services are charged at a specific rate of tax of RM25 is imposed upo issuance of principal or supplementary card and every subsequent year or part thereof. - -## Service Tax Registration - -### Types of Registration list - - - -### Determination of Taxable Turnover - -Service provider should calculate the value of taxable services provided for a period of 12 months using the following method: - -1. Historical Method - - The total value of taxable supplies in that month and the 11 months immediately preceding the month. - -2. Future Method - - The total value of taxable supplies in that month and the 11 months immediately succeeding the month. - -### Transitional Registration - - Any person who liable to register are required to register before 1 September 2018 and registration commencement date will be on 1 September 2018. - - 1. Automatic Registration - - - Service provider who is a GST Registrant which have been identified and fulfilled the required criteria will be registered automatically as a registered person. - - 2. Person Not Registered Automatically - - - Service provider who is a GST Registered person that fulfilled the required criteria to be registered but was not registered by 1 September 2018 need to apply for registration within 30 days from the commencement date. - -## Contra System Facility - -Registered person is allowed to deduct service tax in his return for any cancellation and termination of services or any other reasons such as reducing premiums or discounts. - -## Special rules for specific areas - -### Treatment in Designated Area (DA) - - - -:::note - -1. SA = Special Area, e.g. Free Zone (FZ), Licensed Warehouse, Licensed Manufacturing Warehouse (LMW) and Joint Development Area (JDA). - -2. PCA = Principal Customs Area - -::: - -### Treatment in Special Area (SA) - - - -## Accounting - -### Issuance of Invoice - -- Mandatory for registered person who provides any taxable services.. - -- Hard copy or electronically. - -- Containing prescribed particulars. - -- Bahasa Melayu or English. - - **Prescribed particulars** are: - - 1. The invoice serial number; - - 2. The date of the invoice; - - 3. The name, address and identification number of the registered person (Service Tax Number); - - 4. The name and address of the person to whom the taxable service is provided; - - 5. Description of service provided; - - 6. Any discount offered; - - 7. For each description, distinguish the type of service and amount payable excluding tax; - - 8. The total amount payable excluding tax, the rate of tax and the total tax chargeable shown as a separate amount or total amount payable inclusive of total of tax chargeable; - - 9. Any amount expressed in a currency other than ringgit shall also be expressed in ringgit at the selling rate of exchange prevailing in Malaysia at the time of sale. - -### Credit Note & Debit Note - - Both credit note and debit note are allowed to issue by registered person. It shall contained the prescribed particular and make an adjustment in his SST-02 return. - -## Accounting Basis and Taxable Period - -### Accounting Basis - -Service Tax is based on payment basis and it is required to be accounted at the time when the payment has received. On the day following period of twelve months when any whole or part of the payment is not received from the date of the invoice for the taxable service provided. - -### Taxable Period - -Regular interval period where a taxable person accounts and remits service tax to Government. Default taxable period for the registered person to be bimonthly (2 months) period. - -Registered person may apply for taxable period other than the default taxable period. - -In summary, - - - -## Furnishing Service Tax (SST-02) Return & Payment of Tax - -Registered person has to declare service tax return every 2 months according to the taxable period. - -- Service Tax return has to be submitted not later than the last day of the following month after the taxable period ended. - -- Service Tax return has to be submitted regardless of whether there is any tax to be paid or not. - -- Service Tax return has to be submitted electronically or by cheque, bank draft and posted to SST Processing Centre. - -Payment for tax due and payable declared in SST-02. Failure to submit return is an offence. diff --git a/docs/miscellaneous/sst/sst-introduction.md b/docs/miscellaneous/sst/sst-introduction.md deleted file mode 100644 index 249034a9..00000000 --- a/docs/miscellaneous/sst/sst-introduction.md +++ /dev/null @@ -1,15 +0,0 @@ ---- -sidebar_position: 1 -id: sst-introduction -title: Introduction -description: SST model & scope -tags: ["SQL Account","SST", "Introduction"] ---- - -Introduced in September 2018, SST replaced the former 6% Goods and Services Tax (GST) system. SST comprises two parts: Sales tax and Service tax. Sales tax is a single-stage tax levied on all taxable goods manufactured in and imported into Malaysia; whereas Service tax is a single-stage tax charged on any taxable services provided in Malaysia by a registered person in conducting the business. Malaysia has a few special designated areas that are exempted from service tax, namely Langkawi Island, Tioman Island and Federal Territory of Labuan. - -## Sales and Service Tax 2018 Model and Scope - -Sales and Service Tax model are structured as below: - - diff --git a/docs/miscellaneous/tax-code.md b/docs/miscellaneous/tax-code.md index 15e3c791..a2bc8fc2 100644 --- a/docs/miscellaneous/tax-code.md +++ b/docs/miscellaneous/tax-code.md @@ -8,7 +8,7 @@ tags: ["SQL Account","Tax Code"] Access list of Tax Codes in SQL Account by browsing **Tools > Maintain Tax**. - + ### Default SST Account diff --git a/docs/miscellaneous/text-import-utility.md b/docs/miscellaneous/text-import-utility.md deleted file mode 100644 index 597c48f5..00000000 --- a/docs/miscellaneous/text-import-utility.md +++ /dev/null @@ -1,68 +0,0 @@ ---- -sidebar_position: 16 -id: text-import-utility -title: Text Import Utility Guide -description: A quick guide on Text Import Utility for SQL Account -slug: /miscellaneous/text-import-utility -tags: ["SQL Account", "Text", "Import"] ---- - -## Text Import Step - - 1. Download [SQLAccXLSnMDBImp-setup.exe](https://download.sql.com.my/customer/Fairy/SQLAccXLSnMDBImp-setup.exe) in your pc. - - 2. Run and Install the setup file. - - 3. Log on to your correct database - -  - - 4. Double click the following icon - -  - - 5. Makesure the top is show the database you choose - - - Choose the transaction you want to import, eg. customer-maintain customer - -  - - 6. Open the patch file you save - -  - - 7. Invalid status... - - 1. Go into SQL to add the status which are not in the database - -  - - 2. Example : - -  - - 3. So now, you go into your SQL, add the agent code - -  - -  - - 8. Go back to the Text Import, **VERIFY** again. - - 1. If the status show invalid again, go to the SQL and add in. - - 2. After add in, get the file and verify again. - - 3. For this example, go to Tools --> Maintain Area - -  - - 4. The status will shown **“** OK **”** once you complete. - -  - - 5. Once you post to A/C, go to SQL ...... Customer -–> Maintain Customer - - 6. Log out and log in again, the new customer name will automatically shown in the customer list. - -  diff --git a/docs/miscellaneous/text-import.md b/docs/miscellaneous/text-import.md new file mode 100644 index 00000000..c95670a7 --- /dev/null +++ b/docs/miscellaneous/text-import.md @@ -0,0 +1,93 @@ +--- +sidebar_position: 16 +id: text-import-utility +title: Text Import Utility Guide +description: A quick guide on Text Import Utility for SQL Account +slug: /miscellaneous/text-import +tags: ["SQL Account", "Text", "Import"] +--- + +## Text Import Step + + 1. Download [SQLAccXLSnMDBImp-setup.exe](https://download.sql.com.my/customer/Fairy/SQLAccXLSnMDBImp-setup.exe) in your pc. + + 2. Run and Install the setup file. + + 3. Log on to your correct database + +  + + 4. Double click the following icon + +  + + 5. Makesure the top is show the database you choose + + - Choose the transaction you want to import, eg. customer-maintain customer + +  + + 6. Open the patch file you save + +  + + 7. Invalid status... + + 1. Go into SQL to add the status which are not in the database + +  + + 2. Example : + +  + + 3. So now, you go into your SQL, add the agent code + +  + +  + + 8. Go back to the Text Import, **VERIFY** again. + + 1. If the status show invalid again, go to the SQL and add in. + + 2. After add in, get the file and verify again. + + 3. For this example, go to Tools --> Maintain Area + +  + + 4. The status will shown **“** OK **”** once you complete. + +  + + 5. Once you post to A/C, go to SQL ...... Customer -–> Maintain Customer + + 6. Log out and log in again, the new customer name will automatically shown in the customer list. + +  + +## FAQ + +### Do the text import Description3 support multi line? + +Yes if you using the Version 5 & above. All you had to do is to set each line using #13 + + ```pascal + DETAIL;POS4;;;----;----;"SALES - Foods";;"Line 1#13# Line 2#13Line 3#13#13B#13C";50;UNIT;0;21.20;25/12/2016;;SR;60;1000;T;500-000;T;;;1;; + ``` + +Result + + ```pascal + Line 1 + # Line 2 + Line 3 + + B + C + ``` + +### My Data had Special Character/Symbol (eg Ø) how to handle it? + +If you had special Character/Symbol, try convert it to UTF-8 before you export out to text file \ No newline at end of file diff --git a/docs/miscellaneous/third-party-export/_category_.json b/docs/miscellaneous/third-party-export/_category_.json new file mode 100644 index 00000000..d995c02c --- /dev/null +++ b/docs/miscellaneous/third-party-export/_category_.json @@ -0,0 +1,9 @@ +{ + "label": "Third Party Export", + "position": 2, + "link": { + "type": "generated-index", + "title": "SST", + "description": "Export" + } +} \ No newline at end of file diff --git a/docs/miscellaneous/third-party-export/dksh-export.md b/docs/miscellaneous/third-party-export/dksh-export.md new file mode 100644 index 00000000..6bd8489c --- /dev/null +++ b/docs/miscellaneous/third-party-export/dksh-export.md @@ -0,0 +1,103 @@ +--- +sidebar_position: 2 +title: SQL Acc DKSH Export +description: SQL Acc DKSH Export +slug: /miscellaneous/third-party-export/dksh-export +tags: ["SQL Account","DKSH" , "Export"] +--- + +## Introduction + +Is External Shareware Program which Export Data for DKSH System. +Document Type Export + +- Maintain Customer - Cust.txt +- Maintain Item - Item.txt +- Maintain Agent - Salesman.txt +- Sales Invoice - InvDtl.txt +- Sales Credit Note - CN_Dtl.txt + +## Limitataion + +- 1 Computer only can export 1 Company Database only + +## DKSH Specification + +- 03 Jun 2016 +- [DKSH Manage Sales Integration Specification](http://www.estream.com.my/downloadfile/Fairy/DKSH_ManageSales_Integration_Spec.zip) + +## Export Program + +- Version (1.1.0.4) - 06 Jun 2017 +- Evaluation Limit : 30 Times Export +- [SQLAcc DKSHE Export Setup](http://www.estream.com.my/downloadfile/Fairy/SQLAccDKSHExport-setup.exe) +- MD5 : `1DDE4D72A1808F0DA0CAA27094B7C821` + +## Settings + +### Firebird + +During Installation of Firebird make sure the option (see Below picture) is selected + + + +### Export Program Setting + + + +01. Enter the Server Name or IP Address. +02. Click the button & select the Database to be export out. +03. Select the Output Path folder (where DKSH file to be exported to). +04. Enter the Organization prefix provide by DKSH. +05. Click Test Connection to make sure is successfully Connected. + + Below steps is to export data + +06. Select Date Range data to Export. +07. Click Export Output... button to export the data. + +## SQL Accountin + +### Maintain Customer + +Menu: Customer | Maintain Customer... + + + +01. Click Edit +02. Enter the **DKSH Outlet Type** at CompanyName2 +03. Click *Save* + +### Stock Item + +Menu: Stock | Maintain Stock Item... + + + +01. Click Edit +02. Enter the **DKSH Product Code** at *Description2* +03. Click Save + +## Program History New/Updates/Changes + +--Build 4-- + +- Upgrade to Version 1.1. +- Upgrade to XE25. +- Fixed Export still locking even is registered. + +--Build 3-- + +- Fixed Export Slow. +- Add Export Status. + +--Build 2-- + +- Fixed Register Fail. + +--Build 1-- + +- Item missing RefPrice field. +- Remove , for Currency field. + +--Build 0-- diff --git a/docs/miscellaneous/third-party-export/michelin-export.md b/docs/miscellaneous/third-party-export/michelin-export.md new file mode 100644 index 00000000..b983c4dc --- /dev/null +++ b/docs/miscellaneous/third-party-export/michelin-export.md @@ -0,0 +1,162 @@ +--- +sidebar_position: 1 +title: SQL Acc Michelin Export +description: SQL Acc Michelin Export +slug: /miscellaneous/third-party-export/michelin-export +tags: ["SQL Account","Michelin" , "Export"] +--- + +## Introduction + +Is External Shareware Program which Export Daily Sales for Michelin System. +Document Type Export (Only 1 text file) + +- Sales Invoice +- Sales Cash Sales +- Sales Debit Note +- Sales Credit Note + +## Limitataion + +- 1 Computer only can export 1 Company Database only + +## Michelin Export Specification + +- 11 May 2016 +- [Michelin Export Specification](http://www.estream.com.my/downloadfile/Fairy/MICHELIN_WEBMAX.zip) + +## Export Program + +- Version (1.2.0.8) - 13 May 2020 +- Evaluation Limit : 30 Times Export +- [SQLAccMichelinExport-setup](http://www.estream.com.my/downloadfile/Fairy/SQLAccMichelinExport-setup.exe) +- MD5 : `64541BCDE1FE677BD001E820B5ADA865` + +## Settings + +### Firebird + +During Installation of Firebird make sure the option (see Below picture) is selected + + + +### Export Program Setting + + + +01. Enter the Server Name or IP Address +02. Click the button & select the Database to be export out. +03. Select the Output Path +04. Enter the Branch Code (optional) given by Michelin (may leave it empty if unavailable) +05. Enter the Supplier Code for Michelin +06. Select the Start Date to export (ONLY for 1st time use & make sure not more then 1(min)/2(max) month(s) from now) +07. Select Number of Month to generate (min 0 & max 1). +08. Click Test Connection to make sure is successfully Connected. + +### Windows Schedule + +01. Open Windows Control Panel | Administrative Tools | Task Scheduler. + +  + +02. Click Action | Create Basic Task... + +  + +03. Enter Task Name (eg SQL Acc Michelin Export) & Click Next. + +  + +04. Select Daily & Click Next. + +  + +05. Set the Start Date & Time to Start. +06. Set 1 for Recur every field & Click Next. + +  + +07. Select Start a program & Click Next. + +  + +08. Click Browse button & find the SQLAccMichelinExportSchedule.exe (Default at C:\eStream\Utilities\SQLAccMichelinExport). +09. Set the Start in(optional) path to the Exe folder (eg. C:\eStream\Utilities\SQLAccMichelinExport) & Click Next. + +  + +10. Tick the option Open the Properties dialog for this task when I click Finish. +11. Click Finish. + +  + +12. Select the option Run whether user is logged on or not. +13. Click Triggers tab at top. + +  + +14. Click Edit... button. + +  + +15. Change the time to run. +16. Click OK 2 times. + +  + +17. Enter the window User Name & Password. +18. Click Ok. + +### SQL Accounting + +  + +01. Click Stock | Maintain Stock Item... +02. Look for the Michelin Item Code. +03. Click **Edit**. +04. Click **Supp. Item** tab. +05. Click **+** button. +06. Select the **Supplier Code** for Michelin. +07. Enter the Michelin Item Code. +08. Click **Save**. +09. Repeat **Step 2** till **Step 8** for other Michelin Item Code. + +### Program History New/Updates/Changes + +--Build 8-- + +- Fixed Prompt Access Violation on Export. + +--Build 7-- + +- Enable support Version 875.782 & above for REGISTERNO field Only. + +--Build 6-- + +- Date Not reset on 6th days. + +--Build 5-- + +- Add No. of Month Option. + +--Build 4-- + +- Fixed only export 50 due after fix bug in build 3. + +--Build 3-- + +- Fixed Unable to Export if Description too long. + +--Build 2-- + +- Upgrade Compiler. +- Upgrade to Version 1.2. +- Add Branch Code Field. + +--Build 1-- + +- Fixed Tab Sequence problem. +- Add filter by Supplier Code. +- Date Reset On 4th Months. + +--Build 0-- diff --git a/docs/miscellaneous/third-party-export/samsung-export.md b/docs/miscellaneous/third-party-export/samsung-export.md new file mode 100644 index 00000000..e81a59f0 --- /dev/null +++ b/docs/miscellaneous/third-party-export/samsung-export.md @@ -0,0 +1,201 @@ +--- +sidebar_position: 3 +title: SQL Acc Samsung Export +description: SQL Acc Samsung Export +slug: /miscellaneous/third-party-export/samsung-export +tags: ["SQL Account","Samsung" , "Export"] +--- +## Introduction + +Is External Shareware Program which Export Daily Sales for Samsung System. +Document Type Export (Total 2 Text files) + +- Sales Delivery Order +- Sales Invoice +- Sales Cash Sales +- Sales Debit Note +- Sales Credit Note +- Stock Physical Worksheet + +## Limitataion + +- 1 Computer only can export 1 Company Database only +- Build 2 & above can + +## Samsung Export Specification + +- 28 Dec 2016 +- [Samsung-20161228.zip](https://download.sql.com.my/customer/Fairy/Samsung-20161228.zip) + +## Modules Require + +- Serial Number + +## Export Program + +- Version (2.0.2.15) - 27 Feb 2025 +- Evaluation Limit : 30 Times Export +- [SQLAccSamsungExport-setup.exe](https://download.sql.com.my/customer/Fairy/SQLAccSamsungExport-setup.exe) +- MD5 : `A3F809D610D92A44662A9AE7D2D3A3B1` + +## Settings + +### Export Program Setting + + + +01. Select SQL Accounting DCF file. +02. Select SQL Accounting Database to export. +03. Click **Test Connection**. +04. Click Next. + +  + + | Field | Description | + |-----------------------|-------------| + | **Samsung Co. Code** | - Samsung Company Code given by Samsung | + | **Default (----) Location Code** | - Default Location code (----) in SQL Accounting for Samsung (Default HQ) | + | **RA MCS ID Type** | - Information for RA MCS ID Type in SQL Accounting | + | **Exclude Customer Info...** | - Tick: Will not Export CompanyName & Phone1
- Untick: Will Export with CompanyName & Phone1 | + +05. Select Information to filter If you wanted. +06. Enter the **Samsung Code** (Provided by Samsung). +07. Click Next. + +  + +08. Select Output folder. +09. Select Last Export Date. +10. Click Export Data to Export. + +### Windows Schedule + +01. Open Windows Control Panel | Administrative Tools | Task Scheduler. + +  + +02. Click Action | Create Basic Task... + +  + +03. Enter Task Name (eg SQL Acc Sumsung Export) & Click Next + +  + +04. Select Daily & Click Next. + +  + +05. Set the Start Date & Time to Start. +06. Set 1 for Recur every field & Click Next. + +  + +07. Select Start a program & Click Next. + +  + +08. Click Browse button & find the **SQLAccSumsungExportV2.exe** (Default at +C:\eStream\Utilities\SQLAccSumsungExportV2). +09. Set the Add arguments(optional) as -**Auto**. +10. Set the Start in(optional) path to the Exe folder (eg. +C:\eStream\Utilities\SQLAccSumsungExportV2) & Click Next. + +  + +11. Tick the option Open the Properties dialog for this task when I click Finish +12. Click Finish + +  + +13. Select the option *Run* whether user is logged on or not +14. Click *Triggers* tab at top + +  + +15. Click Edit... button + +  + +16. Change the time to run +17. Click OK 2 times + +  + +18. Enter the window User Name & Password +19. Click Ok + +### Program History New/Updates/Changes + +--Build 15-- + +- Fixed unable to connect to db in SQL Connect. + +--Build 14-- + +- Enable support Version 860 & above. + +--Build 13-- + +- Fixed MCS_INV_ output Default (----) Location Code not follow user setting. + +--Build 12-- + +- Fixed sometime not correct Location Code. + +--Build 11-- + +- Upgrade to Version 2.0.2 . +- Add Option Exclude Customer Info. +- Add Option Default (----) Location Code. + +--Build 10-- + +- Add Export Sales DO. + +--Build 9-- + +- Fixed MCS_SALES_xxx Default location code not set to HQ. + +--Build 8-- + +- Upgrade to Version 2.0.1. +- Add Option for MCS ID type. + +--Build 7-- + +- Fixed Show Access violation when Auto Run. + +--Build 6-- + +- Fixed Auto Run Unable to Call SQLAcc in Window 7. +- Fixed Auto Run Button Caption not correct after finish. +- Fixed Auto Run Not Force Kill SQLAcc Before & after export. + +--Build 5-- + +- Fixed MCS_INV data not group by Location & project. + +--Build 4-- + +- Upgrade to Version 2. +- Add Filtering Location & Item Project. + +--Build 3-- + +- Fixed click 2nd time Test output prompt error. +- History New/Updates/Changes. +- Fixed Schedule not running. + +--Build 2-- + +- Support Export more then 1 Serial Number Output. +- Fixed spelling error. + +--Build 1-- + +- MCS_SALES_xxx should take Agent Description. +- Filename for Stock should be MCS_INV_xxx. +- Stock Column incorrect position. + +--Build 0-- diff --git a/docs/troubleshooting/change-panasonic.md b/docs/troubleshooting/change-panasonic.md index bdeefc69..664491ad 100644 --- a/docs/troubleshooting/change-panasonic.md +++ b/docs/troubleshooting/change-panasonic.md @@ -14,17 +14,17 @@ If you're experiencing issues where the preview is fine but the printout is miss 1. Check the Port of your printer -  +  -  +  2. Press "**Add a printer**" and select "**Add a local printer.**" -  +  3. Choose the port of your printer respectively. -  +  4. Select manufacturer and printer @@ -38,22 +38,22 @@ If you're experiencing issues where the preview is fine but the printout is miss ::: -  +  5. Type in the printer name you desire. -  +  6. Press "**Next**" if you don’t want to share this printer. -  +  7. Finish the setup. -  +  Lastly, go to your **Printer Properties** | **Device Settings** | **Installable Options** | **Printable Area** | **Old OS**. You are done. Congratulations! - + diff --git a/docs/troubleshooting/db-shutdown.md b/docs/troubleshooting/db-shutdown.md index 65023ac9..5ce41f13 100644 --- a/docs/troubleshooting/db-shutdown.md +++ b/docs/troubleshooting/db-shutdown.md @@ -14,12 +14,12 @@ tags: ["SQL Account", "Troubleshooting"] ## How to solve? -1. Download [SQL DiagnosisV2](https://download.sql.com.my/customer/Fairy/SQLDiagnosisV2-setup.exe) +1. Download [sql-diagnosis-v2](https://download.sql.com.my/customer/Fairy/SQLDiagnosisV2-setup.exe) 2. Launch SQL DiagnosisV2 -  +  3. Select the DB stucked in `Shutdown` state. -  +  diff --git a/docs/troubleshooting/enlarge-ui.md b/docs/troubleshooting/enlarge-ui.md index 0d5003ae..986def06 100644 --- a/docs/troubleshooting/enlarge-ui.md +++ b/docs/troubleshooting/enlarge-ui.md @@ -13,13 +13,13 @@ tags: ["SQL Account", "Troubleshooting", "Enlarge UI Screen"] 2. Click on **Display Settings** -  +  3. Click on **Display** tab 4. Slide the indicator to the display size desired (125%/ 150%/ 200%) -  +  :::note @@ -37,7 +37,7 @@ tags: ["SQL Account", "Troubleshooting", "Enlarge UI Screen"] 4. Slide the indicator to the display size desired (125%/ 150%/ 200%) -  +  ## For Windows XP @@ -51,4 +51,4 @@ tags: ["SQL Account", "Troubleshooting", "Enlarge UI Screen"] 5. Choose the screen size desired or Click on **Custom Setting** to customize the screen size by dragging the indicator -   +   diff --git a/docs/troubleshooting/firebird-unable-complete.md b/docs/troubleshooting/firebird-unable-complete.md new file mode 100644 index 00000000..010e1789 --- /dev/null +++ b/docs/troubleshooting/firebird-unable-complete.md @@ -0,0 +1,73 @@ +--- +id: firebird-unable-complete +title: Firebird Unable to complete network request to host name +description: Solution for Firebird Unable to complete network request to host name +slug: /troubleshooting/firebird-unable-complete +tags: ["SQL Account", "Troubleshooting", "Firebird"] +--- + + + +## Common Causes + +### 1. Firebird not installed in main PC/Server + +Install the firebird in main PC/Server. Click to [Firebird](docs/getting-started/multi-user-setup.md#firebird-installation) installation guide. + +### 2. Invalid IP address of main PC/Server + +1. Run the command prompt. + +2. Type **ipconfig** and hit ENTER key. + +  + +3. Ensure the IP Address is correct in Database Group setting. + +  + +### 3. Firewall has blocked the port number (3050) + +Add the port number 3050 as exception in any anti-virus firewall. + +### 4. Windows system file has altered to other port number (eg. 3999) + +#### Check the port number has set to other than 3050 + +1. Run the command prompt. +2. Type **netstat** and hit ENTER key. +3. Local address will be ended with 3999. See screenshot below. + + + +#### Change the port number to 3050 + +1. To search the command prompt, type **CMD**. + +  + +2. **Run as Administrator** (Right click on command prompt). Must run as administrator. + +  + +3. At command line **c:\WINDOWS\system32>** , type **cd drivers\etc** + +  + +4. Hit **ENTER** key. + +5. Follow by type **notepad services**. + +  + +6. Hit ENTER key. + +7. Find (Ctrl+F) the keyword **3999/tcp**. + +  + +8. Disable the line by insert #. Example: **gds_db** to **#gds_db** + +9. Close the notepad and save the setting. + +  diff --git a/docs/troubleshooting/maintain-diff-ver.md b/docs/troubleshooting/maintain-diff-ver.md index b0807a5c..5639662e 100644 --- a/docs/troubleshooting/maintain-diff-ver.md +++ b/docs/troubleshooting/maintain-diff-ver.md @@ -12,15 +12,15 @@ For example: version 4 (728) and version 5 (743) 1. Open setup 728 -  +  2. Check the version from the last 3-digit number, and click **Next** -  +  3. Click "**I accept the agreement**" and click **Next** -  +  4. Make sure the link is as below and click **Next**: @@ -30,7 +30,7 @@ For example: version 4 (728) and version 5 (743) If for version 743, please change the number behind to 743 ::: -  +  5. Make sure the 3 directory is as shown in the picture below, and click **Next** @@ -38,33 +38,33 @@ For example: version 4 (728) and version 5 (743) If for version 743, please change the number behind to 743 ::: -  +  6. Click on **Install** -  +  7. Click on **Finish** -  +  8. Click on Custom Settings -  +  :::note If installing version 743, after Launch, it will show as shown in the picture below, please click on Back to Database Group. ::: -  +  9. Click on Create Group -  +  10. Save in Share Folder -  +  11. Make sure the folder directory is the same as shown in the picture below, and click on Test Connection. Lastly, click OK. @@ -72,7 +72,7 @@ For example: version 4 (728) and version 5 (743) If version 743, then the directory will be C:\eStream\SQLAccounting743\DB ::: -  +  12. Repeat Step 1 to Step 11 for version 743 installation @@ -82,13 +82,13 @@ For example: version 4 (728) and version 5 (743) If version 743, then rename to 743. ::: -  +  -  +  The final result will be shown like the picture below. -  +  14. In version 728, right-click on DCF (728), and click on Create Desktop Shortcut. @@ -96,8 +96,8 @@ For example: version 4 (728) and version 5 (743) If in version 743, then right-click on DCF(743), choose Create Desktop Shortcut. ::: -  +  15. After done for both versions, on the Desktop, you will see 2 icons, and please rename the icons to the number of versions for easier recognition. -  +  diff --git a/docs/troubleshooting/patch-file.md b/docs/troubleshooting/patch-file.md index 33804e6d..4ca78a13 100644 --- a/docs/troubleshooting/patch-file.md +++ b/docs/troubleshooting/patch-file.md @@ -14,47 +14,47 @@ After cloning master data, we want to delete a customer (AR) or a supplier (AP). 1. Must be done at the server PC, and all users must log out first -2. [Click Here](http://www.sql.com.my/document) and download the patch file +2. [Click me to the patch file list](http://www.sql.com.my/document) and download the patch file -  +  3. Open the downloaded patch (For example, if you want to delete a supplier) -  +  -  +  -4. [Click Here](http://www.sql.com.my/utility) and download diagnosis +4. [Click me to utility website](http://www.sql.com.my/utility) and download diagnosis -  +  -  +  After download completed, click on the setup: -  +  -  +  -  +  -  +  -  +  -  +  -  +  5. Open SQL Accounting Diagnosis -  +  -  +  -  +  -  +  --- @@ -66,8 +66,8 @@ After cloning master data, we want to delete a customer (AR) or a supplier (AP). 1. Click on `⚙️` -  +  2. You can identify the database by checking the Database ID (For example, ACC-003.FDB) -  +  diff --git a/docs/troubleshooting/perf-speed-improve.md b/docs/troubleshooting/perf-speed-improve.md index 0d1b3758..51bbb913 100644 --- a/docs/troubleshooting/perf-speed-improve.md +++ b/docs/troubleshooting/perf-speed-improve.md @@ -10,7 +10,7 @@ tags: ["SQL Account", "Troubleshooting"] 1. Right click on the primary Hard Disc (eg. C:\), click to Properties\Hardware \Properties. -  +  2. Go to ‘Policies’ tab. @@ -20,7 +20,7 @@ tags: ["SQL Account", "Troubleshooting"] 4. Press OK to EXIT. -  +  ## Solution B (Recommended) @@ -36,4 +36,4 @@ tags: ["SQL Account", "Troubleshooting"] 5. Press OK to EXIT. -  +  diff --git a/docs/troubleshooting/validate-db.md b/docs/troubleshooting/validate-db.md index 04f159fd..fb43646b 100644 --- a/docs/troubleshooting/validate-db.md +++ b/docs/troubleshooting/validate-db.md @@ -8,22 +8,22 @@ tags: ["SQL Account", "Troubleshooting"] ## Steps & Instruction :::note -Download & Install SQL Accounting Diagnosis from [**Here**](http://www.sql.com.my/utility/SQLAccDiagnosis-setup.exe) +Download & Install SQL Accounting Diagnosis from [**This Link**](http://www.sql.com.my/utility/SQLAccDiagnosis-setup.exe) User & password to access to above link = sqlutility ::: 1. Find below icon on your desktop after installing SQL Accounting Diagnosis -  +  2. Choose Firebird 2.5 and click on **Database Validate** -  +  3. Click on the yellow color folder to select your database -  +  4. Select your database @@ -33,17 +33,17 @@ User & password to access to above link = sqlutility 3. Click on Open -  +  5. Go to SQL Financial Accounting - 1. Click on the ⚙️ button in the logo screen + 1. Click on the ⚙️ button in the logon screen -  +  2. Check your ACC-XXXX.FDB -  +  3. Click on back to the database group @@ -51,15 +51,15 @@ User & password to access to above link = sqlutility 5. Go to properties -  +  6. Check on the DB Folder -  +  6. After selecting your correct ACC-XXXX.FDB, click on **Validate** and make sure you get the message “**Database Validation Complete**” as shown on the right screen. Then, click **ok**. -  +  :::info If you don’t get “Database validation complete” and get an error “bad parameter,” please contact the helpdesk to fix this database. @@ -67,31 +67,31 @@ User & password to access to above link = sqlutility 7. Click on Backup if you get “database validation complete” > select **Desktop** > Click on **OK** > Click **ok** for Backup Successful. -  +  8. Restore database 1. Restore your database as usual > Click on the ⚙️ button -  +  2. Click on Restore -  +  3. Click on the 3 dot button -  +  4. Select the backup file on the desktop > Open > Click on **OK** > Click on **OK** -  +  -  +  5. Click on **OK** -  +  9. After the restore, you will see two databases with the same name. On the left side, ACC-0160.FDB is the old (refer to step **5 ii**). And on the right side, ACC-0161.FDB is the new file you restored (refer to step **8 iv**). @@ -101,4 +101,4 @@ User & password to access to above link = sqlutility - **Delete Database**: Permanently delete, no way to call it back. -  +  diff --git a/docs/usage/Asset/_category_.json b/docs/usage/Asset/_category_.json new file mode 100644 index 00000000..00545449 --- /dev/null +++ b/docs/usage/Asset/_category_.json @@ -0,0 +1,8 @@ +{ + "label": "Asset", + "position": 11, + "link": { + "type": "generated-index", + "description": "Asset guide" + } +} \ No newline at end of file diff --git a/docs/usage/Asset/faq.md b/docs/usage/Asset/faq.md new file mode 100644 index 00000000..7eae3be3 --- /dev/null +++ b/docs/usage/Asset/faq.md @@ -0,0 +1,103 @@ +--- +sidebar_position: 2 +title: FAQ +description: FAQ related to Asset +slug: /usage/asset/faq +tags: ["SQL Account", "Asset", "FAQ"] +--- + +## How to process Asset Opening and tally with the GL Maintain Opening Balance + +### Process Opening Depreciation + +*Menu: Asset | Process Depreciation...* + + You are allowed to process Asset Opening Depreciation BEFORE System Conversion Date. + + + +:::note Tips: +A - FIRST acquire date of the asset +B - System Conversion Date -1 day +::: + +## I have posted the depreciation until December 2021. How do I record my new asset? + +### Method 1 : Use the Last Asset Net Book Value from Balance Sheet + +Maintain the Asset Item as below: + + + +1. Key in the Cost as *Net Book Value* (as at 31/12/2021). +2. Acquire Date, eg. 01/01/2022 +3. Useful life = *Balance of useful life* to be depreciate +4. Start Process Depreciation from 01/01/2022 + +### Method 2: Follow Original Cost and Acquire Date + +Maintain the Asset as below : + + + +1. Key in the Cost as *Original Cost* +2. Acquire Date set as *Original Purchase Date* +3. Useful life = *Full useful life* +4. Process Depreciation until 31/12/2021. + +5. Tick *Cancelled* to the Journal posted from Step 4 + + +## If the depreciation value differs from my previous Journal, can I edit the depreciation value calculated in Maintain Asset Item? + +Yes, you can change the depreciation value in Maintain Asset Item (Depreciation Schedule). + + + + + +## Can the amortization of Intangible Assets such as licenses, be managed in the Asset Module? + +Yes, it can. Maintain it as you would a __Tangible Asset__ (Fixed Asset). + +For __Intangible Asset__ (eg. goodwill, license), the __amortization calculation__ uses the __straight line method__ , which can be selected in the Asset Group. The calculation involves subtracting the asset's anticipated salvage or book value from its cost and dividing the result by the total number of years it will be used. + +## Can I import the asset list using Excel instead of manually key-in? + +Yes, you can. The asset import function is available in SQL Account version 5.2022.948.826 + +Refer to [Import-Asset Master List](../../usage/asset/guide#importing-asset-master-list) + +## How do I handle additional cost for the Fixed Asset? + +Create new asset code to handle additional cost, eg.: + +| __Asset Code__ | __Description__ | __Remark__ | +|----------------|-----------------------------|---------------------| +| MV-0001 | TOYOTA VIOS - BZZ 999 | Initial Purchase | +| MV-0001A | TOYOTA VIOS - BZZ 999 | Additional Cost | + +:::info + Do not mix the depreciation value of the original asset and the additional cost. +::: + +### Quick Steps + +1. Copy the existing asset code. + +  + +2. Create new asset. +3. Click on More | Paste Asset Item. + +  + +4. *Change the asset code* by inserting any characters to differentiate it + - Acquire date = Date the additional cost was incurred. + - Cost = Additional Cost + +  + +## Should the cost in Maintain Asset Item be key-in in local currency or the original currency (eg. purchase in USD)? + +The cost should be key-in as the __Local value__. The depreciation value will then be calculated and posted in the local currency. diff --git a/docs/usage/Asset/guide.md b/docs/usage/Asset/guide.md new file mode 100644 index 00000000..a19183a8 --- /dev/null +++ b/docs/usage/Asset/guide.md @@ -0,0 +1,374 @@ +--- +sidebar_position: 1 +title: Guide +description: A guide on Asset +slug: /usage/asset/guide +tags: ["SQL Account", "Usage", "Submission"] +--- + +## Asset + +:::note Fixed Asset Module +This is a **paid module**. +::: + + + +## Maintain Asset Group + +*Menu: Asset | Asset Group...* + +Group the asset items based on the following considerations. + +1. Type of assets, eg. Motor Vehicle, Furniture, etc; +2. GL Account mapping. + +  + +### Asset Group + + + +| **Field Name** | **Explanation & Properties** | +|-------------------------|-----------------------------------------------------------------------------------------------| +| **Code** | Input the new Asset Group Code. **Field type:** Alphanumerical; **Length:** 20. | +| **Description** | Input the Asset Group description, e.g., *Furniture*, *Motor Vehicle*. **Field type:** Alphanumerical; **Length:** 200. | +| **Depreciation Method** | Select an appropriate Depreciation Method to generate the depreciation value. | +| **Fixed Asset** | Select the Balance Sheet GL Account code for Fixed Asset. | +| **Accum Depreciation** | Select the Balance Sheet GL Account code for Accumulated Depreciation. | +| **Depreciation** | Select the P&L GL Account for Depreciation of Asset. | +| **Disposal Gain** | Select the P&L GL Account for Gain from Disposal of Asset. | +| **Disposal Loss** | Select the P&L GL Account for Loss from Disposal of Asset. | + +## Maintain Asset Item + +*Menu: Asset | Asset Item...* + +Add new asset items. + + + +### Asset Item + + + +| **Field Name** | **Field Type** | **Length** | **Explanation** | +|--------------------------|------------------|------------|---------------------------------------------------------------------------------| +| **Code** | Alphanumerical | 20 | Input the new Asset Item Code | +| **Description** | Alphanumerical | 200 | Input the Asset Item description, e.g., Meeting Table, Toyota Vios, Perodua MYVI | +| **Asset Group** | Selection | – | Select an appropriate Asset Group for depreciation calculation and GL Account posting | +| **Agent** | Selection | – | Select who is the Agent using this Asset Item | +| **Area** | Selection | – | Select where the asset is located | +| **Acquire Date** | Date | – | Set the acquire date for this asset | +| **Cost** | Currency | – | Set the purchase cost for this asset | +| **Useful Life (Years)** | Integer/Float | – | Set the useful life of this asset | +| **Residual Value** | Currency/Float | – | Set the residual value for this asset | +| **Status** | Selection | – | Default is Active. Can be set to Inactive with an inactive date | + +### Depreciation Schedule + +1. Select the Frequency to generate the depreciation schedule by :- + 1. Monthly + 2. Quarterly + 3. Half Yearly + 4. Yearly + +2. Click Generate button. + +  + +### Project + +Set the depreciation allocation by Project (for Departmental/Cost Center purpose). + +  + +### History + +Add the important remarks in the asset history. For instances: + 1. who has borrowed/ when has returned this asset? + 2. asset has been sent for repair or service... + 3. asset has been destroyed by flood + + + +### Photo + +Add the asset photo. + + + +### Asset Item Attachments + +Add the attachments for an asset + + + +## Process Depreciation + +*Menu: Asset | Process Depreciation...* + +### Asset Depreciation + + + +1. Select the process date range. + + :::note Tips: + + 1. Process date range allows to select more than 1 month or 1 year to process the depreciation. + 2. Allow to process BEFORE system conversion date (No update to Maintain Opening Balance). + ::: + +2. Select the Process Date. + +  + + :::note Tips: + Journal Voucher date will follow this Process Date. + ::: + +3. Description will be captured in the Journal Voucher description. +4. Click Process. +5. Preview the assets depreciation value and Net Book Value (NBV) before post to Journal Voucher. Click Save to post it. + +  + +## Open Depreciation + +*Menu: Asset | Open Depreciation...* + + Open to view the historical Depreciation Listing. + + + +## Asset Disposal + +*Menu: Asset | Asset Disposal...* + +### Asset Disposal Entry + +1. Click New. +2. Enter Date. +3. Select Asset wish to dispose. +4. Enter Description. +5. Enter Ref1, eg. invoice no. +6. Enter Ref2 if any. +7. Select Project. Default follow Asset Item. +8. Select Agent. Default follow Asset Item. +9. Select Area. Default follow Asset Item. + + + +### General Tab + +1. Cost, Accum Depreciation, and Net Book Value are retrieved from Maintain Asset Item automatically. +2. Key-in the **Disposal** value. +3. Select **Payment Method** to receive disposal value. +4. **(Gain)/Loss** worked out automatically. +5. Gain/Loss Account default follow from Maintain Asset. May change the **(Gain)/Loss Account** if necessary. + + + +### More Tab + +Enter detailed **Note**. + + +### Asset Disposal Attachments + + Add more attachment files + + +## Print Yearly Depreciation + +*Menu: Asset | Print Yearly Depreciation...* + + + +## Print Yearly Analysis + +*Menu: Asset | Print Asset Analysis...* + + + +### Reports Selection + +1. This will analyze the asset **Cost, Accumulated Depreciation, Net Book Value (NBV)** and **Disposal Value**. +2. It allows you to choose and generate the following reports format: +Monthly (12 Months) +Quarterly (4 quarters) +Half Yearly (First Half and 2nd Half) +Yearly (5 Years) + +  + +### Asset Analysis vs GL Balance Sheet Report + +1. At GL | Print Balance Sheet Statement..., choose the Balance Sheet Format : **This Year - 3 columns** +2. At Asset | Print Asset Analysis..., choose Report: **Yearly (5 columns)** + +  + +## Print Asset Disposal Listing + +*Menu: Asset | Print Asset Disposal Listing...* + + + +## Importing Asset Master List + +### Preparation for Asset Master Import Excel Template + +Download the [Asset Master Template](https://download.sql.com.my/customer/Asset/Asset_Master_Import.xlsx) + + + +### Asset Master Template (xlsx) + +| **Sheet Name** | **Refer to** | +|---------------------------|--------------------------------------------------| +| **FA.GROUP.OPF** | Maintain Asset Group | +| **FA.ITEM.OPF** | Maintain Asset Item | +| **FA.ITEM.OPF.DeprSche** | Maintain Asset Item – Depreciation Schedule tab | +| **FA.ITEM.OPF.Project** | Maintain Asset Item – Project tab | + +:::warning NOTE: +**DO NOT** rename the **sheet** name. +::: + +1. FA.GROUP.OPF (Maintain Asset Group) + + | **Column** | **Length** | **Note** | + |--------------------|-----------------|--------------------------------------------------------------------------| + | **Code** | 20 | Asset Group Code, e.g., Furniture | + | **Description** | 160 | Asset Group Description, e.g., Furniture & Fittings | + | **DeprMethod** | 1 (Integer) | Depreciation Method, e.g., 1: Straight Line Method | + | **AssetAcc** | 10 | e.g., Furniture & Fittings under Non-Current Assets (B/S) | + | **AccumDeprAcc** | 10 | e.g., Accumulated Depreciation – Furniture & Fittings under Non-Current Assets (B/S) | + | **DeprAcc** | 10 | e.g., Depreciation account under Expenses (P&L) | + | **DisposalGainAcc**| 10 | e.g., Disposal Gain account under Other Income / Expenses (P&L) | + | **DisposalLossAcc**| 10 | e.g., Disposal Loss account under Expenses (P&L) | + + - **Example :** + + | **Code** | **Description** | **DeprMethod** | **AssetAcc** | **AccumDeprAcc** | **DeprAcc** | **DisposalGainAcc** | **DisposalLossAcc** | + |------------|--------------------------|----------------|--------------|------------------|-------------|---------------------|---------------------| + | Furniture | Furniture & Fittings | 1 | 200-200 | 200-205 | 923-000 | 530-999 | 980-999 | + | MV | Motor Vehicle | 1 | 200-400 | 200-405 | 923-000 | 530-999 | 980-999 | + +2. FA.ITEM.OPF (Maintain Asset Item) + + | **Column** | **Length** | **Note** | + |-------------------|-------------|--------------------------------------------------------------------------| + | **Code** | 20 | Asset Code, e.g., FF-0001 | + | **Description** | 160 | Asset Description, e.g., Chairs, Table | + | **Asset Group** | 20 | Asset Group, e.g., Furniture | + | **Agent** | 10 | Assigned an agent if any | + | **Area** | 10 | Assigned an area if any | + | **AcquireDate** | Date | Purchase date | + | **Cost** | Currency | Purchase cost | + | **UsefulLife** | Float | Useful life in years, e.g., 5 years, 3.3 years | + | **DeprFrequency** | 1 (Integer) | Depreciation frequency options: 1 = Monthly, 2 = Quarterly, 3 = Half Yearly, 4 = Yearly | + | **Residual** | Float | Re-sellable value | + + - **Example** + + | **Code** | **Description** | **Asset Group** | **Agent** | **Area** | **AcquireDate** | **Cost** | **UsefulLife** | **DeprFrequency** | **Residual** | + |-----------|------------------------------|-----------------|-----------|----------|-----------------|------------|----------------|-------------------|--------------| + | FF-001 | Chairs | Furniture | ---- | KL | 13/10/2022 | 12,000.00 | 10 | 1 (Monthly) | 100.00 | + | FF-002 | Meeting Table | Furniture | ---- | KL | 23/01/2021 | 15,000.00 | 10 | 2 (Quarterly) | 0.01 | + | MV-001 | TOYOTA VIOS 1.5 / RED | MV | YUKI | SEL | 17/03/2020 | 88,000.00 | 5 | 4 (Yearly) | 30,000.00 | + +3. FA.ITEM.OPF.DeprSche (Maintain Asset item-Depreciation Schedule) + + | **Column** | **Length** | **Note** | + |----------------|------------|--------------------------------------------------------------------------| + | **Code** | 20 | Asset Code, e.g., FF-0001 | + | **ScheDate** | Date | Scheduled depreciation posting date | + | **Description**| 160 | Depreciation description | + | **Amount** | Currency | Depreciation amount based on the depreciation frequency | + + - **Depreciation Frequency** + + - **Monthly** + + | **Calculation** | **Formula** | **Result** | + |------------------------|-----------------------------------|-------------| + | No. of Rows | Useful life × 12 months | 5 × 12 = 60 | + | Amount per Row (RM) | (Cost – Residual) ÷ No. of Rows | (88,000 – 30,000) ÷ 60 = 966.67 | + + - **Quarterly** + + | **Calculation** | **Formula** | **Result** | + |------------------------|-----------------------------------|-------------| + | No. of Rows | Useful life × 4 quarters | 5 × 4 = 20 | + | Amount per Row (RM) | (Cost – Residual) ÷ No. of Rows | (88,000 – 30,000) ÷ 20 = 2,900 | + + - **Half-Yearly** + + | **Calculation** | **Formula** | **Result** | + |------------------------|-----------------------------------|-------------| + | No. of Rows | Useful life × 2 half-years | 5 × 2 = 10 | + | Amount per Row (RM) | (Cost – Residual) ÷ No. of Rows | (88,000 – 30,000) ÷ 10 = 5,800 | + + - **Yearly** + + | **Calculation** | **Formula** | **Result** | + |------------------------|-----------------------------------|-------------| + | No. of Rows | Useful life (years) | 5 | + | Amount per Row (RM) | (Cost – Residual) ÷ No. of Rows | (88,000 – 30,000) ÷ 5 = 11,600 | + + - **Example** + +  + + - **4.FA.ITEM.OPF.Project(Maintain Asset Item-Project)** + + | **Column** | **Length** | **Note** | + |------------|------------|------------------------------------| + | **Code** | 20 | Asset Code, e.g., FF-0001 | + | **Project**| 20 | Project Code | + | **Rate** | Float | Allocation percentage (%) | + + - **Example** + + | **Code** | **Project** | **Rate** | + |-----------|--------------|----------| + | FF-001 | Project-A | 30 | + | FF-001 | Project-B | 70 | + | MV-001 | Project-A | 100 | + +### Quick Import Asset List + +*Menu: File | Import | Excel Files...* + +1. Click Open folder button. + +  + +2. Select the Asset Template excel file... + +3. Click Execute (Direct Import). Click Verify if you wish to verify the excel data before import. + +  + + :::note NOTE: + Asset import function available in SQL Account version 5.2022.948.826 and above. + ::: + +## Generate Asset Opening vs GL Maintain Opening Balance Report + +*Menu: Asset | Maintain Asset Item...* + +1. At Maintain Asset Item, click Preview button. + +  + +2. For instance, the **Out of Balance** result get from the comparison between Asset Opening Balance and GL Maintain Opening Balance. + +  + +3. With the **Asset Opening Breakdown** in the report, it helps you to ensure the asset data inputs are correctly recorded in Maintain Asset Item. + +  diff --git a/docs/usage/Customer/Report.md b/docs/usage/Customer/Report.md new file mode 100644 index 00000000..46b56ee2 --- /dev/null +++ b/docs/usage/Customer/Report.md @@ -0,0 +1,131 @@ +--- +sidebar_position: 2 +title: Reports +description: All kind of customer reports and it's purpose +slug: /usage/customer/report +tags: ["SQL Account", "Usage", "Customer"] +--- + +## Print Customer Document Listing + +* View all customer transactions (Invoices, Payments, Credit Notes, Debit Notes, Refunds, Contras). +* Batch print or email documents. +* The payment details for each document are displayed at the bottom of the screen. + + + +* Select which Document listing you want to see. Follow the image: + + + +* Click Apply Button + + + +* Click Preview & Listing Report + + + +* Example of customer invoice listing report + + + +### Print Document Style + +* Tick relevant checkboxes + + + +| Field Name | Explanation | +|----------------------------|-------------------------------------------------------| +| Print Document Style | Tick this checkbox to print out bulk report or send batch email | +| Include Cancelled Documents| Tick this checkbox to include cancelled documents in the listing | + +* If you tick **Print Document Style** , you will see that you will be able to choose customer invoice report format. + + + + +### Group/Sort by + +* You can filter your documents based on Customer, Agent, Area, Currency, Project and Company Category + + + +* You can use the Group/Sort By table to choose how you want to group your report listing + + + +* For example, you can group the report by "Customer Code" + + + +* Select the Listing Report + + + +* Here is an example of the report + + + +## Print Customer Balance Report + +* Print Customer Balance Report allows you to **see all the customer's balance**. + + + +* Select the date period for the balance report + + + +* You can filter the report by selecting the customer, agent, area, project of the transaction + + + +* For example, filtering by customer name, we selected one company: ALPHA & BETA COMPUTER + + + +* You can click on the small + icon to expand the row and see the transactions details. + + + +* Press the Preview icon to preview and print the report + + + +## Print Customer Due Document Listing + +Customer Due Document allows you to print reminder letters for customers with outstanding amounts. + +1. **Filter by Date, Document** (Invoice, Debit Note, Credit Note, Contra) + +2. Overdue or Undue document. + +3. System can generate by group and give you a summary on each group (group/sort by) + +4. **Apply**. + +  + +5. If you want to **print a reminder letter, make sure you tick the customer code under “Group / Sort by”** and **Apply**. + +  + +6. Preview the report and you will see **Cust Overdue Letter**, choose your preferred format. + +  + +  + +7. Customer Analysis By Document + + This report is used to analyse all customer documents. You can check total Invoice, Credit Note, Debit Note, Payment and the rest of the document amount. + +8. **Customer** > **Print Customer Analysis By Document** + +9. Filter by Document Date and any others optional field to display. + +10. **Apply** + +  diff --git a/docs/usage/Customer/_category_.json b/docs/usage/Customer/_category_.json new file mode 100644 index 00000000..cb5e08f4 --- /dev/null +++ b/docs/usage/Customer/_category_.json @@ -0,0 +1,8 @@ +{ + "label": "Customer", + "position": 4, + "link": { + "type": "generated-index", + "description": "Customer workflow" + } +} \ No newline at end of file diff --git a/docs/usage/Customer/faq.md b/docs/usage/Customer/faq.md new file mode 100644 index 00000000..ba7ab160 --- /dev/null +++ b/docs/usage/Customer/faq.md @@ -0,0 +1,481 @@ +--- +sidebar_position: 3 +title: FAQ +description: Customer Frequently Ask Questions +slug: /usage/customer/customerFaq/faq +tags: ["SQL Account", "Usage", "Customer","faq"] +--- + +## Bounce Payment for different currency + +### Customer Invoice + +Invoice amount USD 100 | Rate 3.00 | Local net total = RM300 + + + +#### Situation 1: Received payment RM330, so Gain RM30 + + + +Please follow the steps below to do the bounce payment: + +1. **Issue a Customer Debit Note as the previous invoice that had issue.** + +  + +2. **Issue a payment voucher to credit out the amount that already knock off.** + +  + +#### Situation 2: Received payment RM270, so Loss RM30 + + + +Please follow the steps below to do the bounce payment: + + 1. **Issue a Customer Debit Note as the previous invoice that had issue.** + +  + + 2. **Issue a payment voucher to credit out the amount that already knock off.** + +  + +### Supplier Invoice + +Supplier Invoice amount USD100 | Rate 3.00 | Local net total = RM300 + + + +#### Situation 1: Make payment RM330, so Loss RM30 + + + +Please follow the steps below to do the bounce payment: + + 1. **Issue a Supplier Debit Note as the previous invoice that had issue.** + +  + + 2. **Issue an Official receipt to debit the amount that already knock off.** + + ***Put USD30 into loss GL account because we need to paid more USD30 to supplier,but we loss USD**. + +  + +#### Situation 2: Make payment RM270, so Gain RM30 + + + +Please follow the steps below to do the bounce payment: + + 1. **Issue a Supplier Debit Note as the previous invoice that had issue.** + +  + + 2. **Issue an Official receipt to debit the amount that already knock off.** + + **\*Put USD -30 into gain GL account because we pay less USD30 to supplier,but we gain USD30.** + +  + +## Foreign Customer Unrealised Gain Loss + +### Customer | Print Customer Aging Report + + + +1. Select Date + +2. Select Foreign Customer + +3. Select UnRealised Gain Loss report + +4. Click Apply + +  + +5. Click Preview, system will prompt a dialog to let you enter currency rate + +6. Enter **closing currency rate** | Click OK + +  + +7. System will show the report with the auto-calculated UnRealised Gain/Loss Amount + +  + +8. Click Post_DNCN_Adjustment + +  + +9. Show Posting Done... + +  + +10. Go to Customer Credit Note / Customer Debit Note to check the document posted. + +:::note + +1. Same step for supplier. + +2. For more info, may go to the [Youtube](https://www.youtube.com/watch?v=PnLYx8ophIQ) link + +::: + +## Bank Deposit + +Opening Bank Deposit can be done when you are banking in 2 or more cheques at a time in a same transaction slip. After it is done, the transaction will be displayed in grouped form at bank reconciliation for you to reconcile. + +### Steps to open bank deposit + +1. Firstly, point to **“Customer”** tab and select **“Customer Payment”**. + +  + +2. Click on **“New”** + +  + +3. Right click at the blank space, and you will see a panel displayed with *“Open Bank Deposit”* for you to select. Click on **“Open Bank Deposit”** + +  + +4. Click on **“New”** + +  + +5. You will come to this interface. Enter the transaction slip number, select the correct date and account. +  +  + +6. Click **“Search”**. System will search for customer payment within the selected date. + +  + +  + +7. Tick on the payments which are made under the same transaction. Then, click **“OK”**. + +  + +8. You will see the selected payments displayed in the panel. If you have wrongly selected the payment, you can always remove it by clicking on the “-“button. Click **“Save”**. + +  + +9. Point to **“GL”** and click into **“Bank Reconciliation”**. + +  + +10. Click on **“New”**. + +  + +11. Then, you will come to this panel. Select the bank statement date (When the bank statement is received). Make sure that you have selected the correct account. + +  + +12. Select the correct display period (including the date of the bank deposit opening made). Key in Bank Statement Bank Closing according to the bank statement you received. Click **“Apply”**. + +  + +13. You will see the cheques from **“Opening Bank Deposit”** will be displayed together in a row with the total amount added up together. Then, click **“Save”**. + +  + +### Opening Bank Deposit at Cash Book Entry + +“Opening Bank Deposit” can also be done at cash book entry. Firstly, point to **“GL”** and select **“Cash Book Entry”**. + +  + +Click on **“New”** + +  + +Then, right click at the blank space beside Payment Voucher, you will see **“Open Bank Deposit”** for you to select. + +  + +## Payment Guide + +### Customer Payment Scenario + +|#|Customer Pay| You Receive| +|---|---|---| +|1|RM|RM| +|2|USD|RM| +|3|USD|USD| +|4|USD|SGD| + +#### 1. Customer Paid in RM & Payment Received in RM + +1. First step to know the customer for currency RM by default is with “----“ sign. + + **Customer > Maintain Customer** + +  + +2. Customer order and proceed to Invoice + + **Sales > Invoice** + +  + +3. Proceed to Payment + + **Customer > Payment** + +  + +Make sure the above step for Customer in RM currency, payment in default is RM currency also. + +#### 2. Customer Paid in USD & Payment Received in RM + +:::note +Refer to Step 1 in [Scenario 1](#1-customer-paid-in-rm--payment-received-in-rm) to know if the customer using USD currency. +::: + +1. Check the local amount and net total. Is it different with the previous one? If yes, proved that the document amount is in USD currency. + + **Sales > Invoice** + +  + +2. Proceed to Payment + + **Customer > Payment** + +  + + - 2A. Currency rate for knocking off the payment (System auto calculate) + + - 2B. Payment Amount made in RM (Note: This payment amount is based on Bank payment method currency) **[check on Tools > Maintain payment method to know more!]** + + - 2C. Bank payment method, make sure you choose the correct bank. + + - 2D. This pay amount you can either put it on your desire amount and check on the 2A, you’ll notice that currency rate will change once you try to knock off the amount. + +#### 3. Customer Paid in USD & Payment Received in USD + +1. For this case where customer currency is USD and payment also in USD, there’ll be a few more step to do. + + 1. you need to maintain a USD Bank in GL Account (**GL > Maintain Account**) where this will be the bank you’ll be getting your + payment in. + + 2. After maintained the GL Account, go to **Tools > Maintain Payment Method** to assign the currency of the + payment method in the particular bank. + +  + +2. After maintained payment method, we can proceed to do transaction for cases similar (USD Currency on Invoice). + + **Sales > Invoice** + +  + +3. Proceed to Payment + + **Customer > Payment** + + :::info + The currency rate in the top-right corner can only be edited if the customer's currency matches the payment currency. + ::: + +  + + 1. Now, this rate can be changed as the currency rate change according to the currency rate + + 2. Select the correct payment method in order to allow USD payment knocking off USD Invoice + + 3. Paid amount will be the amount of USD you receive + + 4. Local amount is the amount of conversion of (paid amount x currency rate at the moment) + + 5. This IV amount will always be following the currency amount not local amount. + + After confirming all the related info is correct may save it. If your currency rate is different from the one stated in the Invoice, a message should prompt out defining your gain/loss on foreign exchange. + +  + + :::note + If your Invoice currency is stated 3.5 at the moment, and when your customer pay to you on 3.6 rate, the system will auto calculate the amount of gain/loss you actually got from this transaction and show to you the amount when you click save. Above prompt dialog will appear. + ::: + +#### 4. Customer Paid in USD & Payment Received in SGD + +For customer on USD and receiving payment on different currency you just need to main the payment method. + +:::note +How to maintain payment method? – Refer to [Scenario 3](#3-customer-paid-in-usd--payment-received-in-usd) +::: + +## Payment Listing Commission + +### Guideline: Commission Report + +1. Go to **Tools > Maintain Commission Script > New** to add in the commission + script. Fill in the Code and Description. + + :::note + Maintain Commission Script requires additional module + ::: + +  + +  + +  + + Default commission script: + + ```pascal + procedure CalculateCommission(AKODocAmt, AAge: variant; var Value: variant); + begin + if AAge < 10 then + Value := AKODocAmt * 0.05 + else if AAge < 20 then + Value := AKODocAmt * 0.03 + else if AAge < 30 then + Value := AKODocAmt * 0.02 + else + Value := AKODocAmt * 0.05005; + end; + ``` + +2. Change the value highlighted as below according to commission rate for agent and Save. + +  + + 1. Value 10, 20, 30 = Age + + 2. Value 0.05, 0.03, 0.02, 0.005 = Commission Rate + +3. Go to **Tools > Maintain Agent** and select the agent that need to load the commission script. + +  + +4. At the attachment tab, add in the commission script by selecting it as shown below and click Save after adding the script. + +  + +5. Go to **Customer > Print Customer Document Listing**, select **Document Type** as **Customer Payment Listing**, group by Agent and apply. Preview the result with **Cust Local - Payment Listing - Collection Report**. + +  + +  + +  + +## Post-dated & Bounced Cheque + +### Post-dated Cheque + +Post-dated cheque is a cheque written by the drawer (payer) for a date in the future. + +1. Firstly, go to **Customer > Customer Payment**. + +  + +2. Click on **New** to create a new customer payment. + +  + +3. As usual, create a customer payment and tick to knock off the corresponding invoice. Make sure the bank account and amount is correct. + +  + +4. To set the payment as a post-dated cheque, simply point the cursor to the blank space beside **Customer Payment** and right click. Click into **Set Posting Date**. + +  + +5. Select the actual posting date of the cheque (e.g., 16th of July 2015). Then, click **OK**. + +  + +  + +6. Now, you will see the posting date is clearly stated in the system. Click **Save**. + +  + +7. From ledger report, by selecting the posting date and corresponding account, you will see that the document date and transaction is clearly stated. + +  + +8. To view the listing of post-dated cheques. Go to **Customer Reports** and select **Print Customer Post Dated Cheque Listing**. + +  + +9. Select the date of the payment made (NOT the cheque posting date), and click **Apply**. (You can filter the search by payment method, customer, agent and etc. before clicking **Apply**) + +  + +10. Upon clicking the **Apply** button, a list of post-dated cheque will be displayed + +  + +### Bounced Cheque + +A bounced cheque is a cheque that cannot be processed because the payer has insufficient funds or written wrong / incomplete information on the cheque. + +1. Firstly, go to **Customer** and click into **Customer Payment**. + +  + +2. Select the bounced cheque customer payment. Double click into the document. + +  + +3. Click **Edit**. + +  + +4. To set the payment as a bounced cheque, simply point the cursor to the blank space beside **Customer Payment** and right click. Click into **Bounced Status**. + +  + +5. Tick in checkbox to bounce the payment. And set the bounce date. (For this case, the cheque is posted on 16th of July 2015, thus the bounce date should be later that 16th of July 2015). Click **OK**. + +  + +6. The cheque will then be labelled as bounced, and the bounce date will be clearly stated. Then click **Save**. + +  + +7. From ledger report, by selecting the bounce date and the corresponding account, you can clearly see the transaction is bounced. + +  + +## MyKad Reader + +### Read Customer Info using MyKad Reader + +1. Link your Smart Card Reader to your computer. + +2. The reader will display a red light when successfully linked to your computer. + +  + +3. Put MyKad into reader + +4. The reader will display a blue light when it successfully reads your MyKad. + +  + +5. Open your SQL Accounting New Customer Profile > ***Read MyKad*** + +  + +6. Select ***Reader Devices*** > ***Click Read Card*** + +  + +7. Click ***Read MyKad*** + +  + +8. The system will automatically fill in MyKad details ***(NAME , ADDRESS , ID Number)*** + +  diff --git a/docs/usage/Customer/guide.md b/docs/usage/Customer/guide.md new file mode 100644 index 00000000..ea98cce1 --- /dev/null +++ b/docs/usage/Customer/guide.md @@ -0,0 +1,386 @@ +--- +sidebar_position: 1 +title: Guide +description: Customer workflow +slug: /usage/customer/guide +tags: ["SQL Account", "Usage", "Customer"] +--- + +## Customer Work Flow (Account Receivable) + +Example of **Customer (AR)** process work flow aligned with SQL Account flow: + + + +**AR = Account Receivable**. + +* To maintain customer profile data such as addresses, phone numbers, fax, email, contact persons, credit limits, credit terms, etc. In other words, it is your customer contacts list. + + + +## Create New Customer + +* Click the **NEW** button. + +1. **Customer** | **Maintain Customer** | **New** + +2. Enter the customer’s name and other information accordingly. + + + +* Enter your customer's details + + + +* You may input the following fields: + +| **Field Name** | **Explanation & Properties** | +|-----------------|------------------------------| +| **Company** | • Input the customer billing company name.
• **Field type:** Alphanumerical
• **Length:** 100 | +| **Description 2** (underline below *Company*) | • An optional field where you can enter Chinese translated name, former company name, company register no, etc.
• **Field type:** Alphanumerical
• **Length:** 100 | +| **Control A/c** | • Select an appropriate Customer Control Account to be posted to GL when customer documents are created.
• **Field type:** Lookup from Maintain Accounts (Special Type: Customer Control Account)
• **Length:** 10 | +| **Code** | • AUTO/MANUAL generate the Customer Code.
• **Field type:** Alphanumerical
• **Length:** 10 | +| **Cust Category** | • Categorize your customer for reporting purpose.
• **Field type:** Lookup from Maintain Company Category
• **Length:** 15 | + +## Maintain Customer + +### General + + + +| **Field Name** | **Explanation & Properties** | +|----------------|------------------------------| +| **Branch Name** | • You may maintain multiple sets of addresses by differentiating the Branch Name.
Default Branch Name: BILLING
**Field type:** Alphanumerical
**Length:** 100 | +| **Address (4 lines)** | • Input the company addresses.
**Field type:** Alphanumerical
**Length:** 40 (each line) | +| **Attention** | • Input the contact person.
**Field type:** Alphanumerical
**Length:** 70 | +| **Phone 1 & 2** | • Input the telephone number(s).
**Field type:** Alphanumerical
**Length:** 30 | +| **Fax 1 & 2** | • Input the fax number(s).
**Field type:** Alphanumerical
**Length:** 30 | +| **Email** | • Input the email address.
**Field type:** Alphanumerical
**Length:** 60 | +| **Area** | • Select a default Area.
**Field type:** Lookup from Maintain Area
**Length:** 10 | +| **Agent** | • Select a default Agent.
**Field type:** Lookup from Maintain Agent
**Length:** 10 | +| **Currency** | • Select a default Currency.
**Field type:** Lookup from Maintain Currency
**Length:** 6 | +| **Credit Terms** | • Select a default Terms.
**Field type:** Lookup from Maintain Terms
**Length:** 10 | +| **Credit Limit** | • Set the credit limit (for non-Advance Credit Control module).
**Field type:** Numeric | +| **Statement** | • Select a default statement type: Open Item or Brought Forward.
**Brought Forward:** Summary Statement
**Open Item:** Detail Statement
**Field type:** Option
**Default:** Open Item | +| **Aging On** | • Select a default Aging type: Invoice Date or Due Date.
**Invoice Date:** based on IV Date
**Due Date:** based on after due date (terms)
**Field type:** Option
**Default:** Invoice Date | +| **Price Tag** | • Set the price tag to the items.
**Field type:** Lookup from Maintain Stock Price Tag
**Length:** 10 | + +1. You can categorize your customers into different groups such as category, agents, area. How to create a new agent/ area? Refer to the step below: + +  + +2. You can also insert more than one billing / delivery addresses (unlimited) + +3. There are different options for viewing customer aging and customer statement + +:::note + +1. Customer Statement + +* Brought Forward: Summary Statement + +* Open Item: Detail Statement + +2. Customer Aging + +* Invoice Date: based on IV Date + +* Due Date: Based on after due date (terms) + +::: + +### Note + + + +| **Field Name** | **Explanation & Properties** | +|----------------|------------------------------| +| **Account Open Date** | • Represents the creation date of the account.
**Field type:** Date | +| **Remark** | • A note that will appear in Inquiry → Account Inquiry.
**Example:** "Check payment refer to Ms Lee (012-345 67890)".
**Field type:** Alphanumerical
**Length:** 80 | +| **Reg No. (new)** | • Company’s new registration number.
**Field type:** Alphanumerical
**Length:** 80 | +| **Reg No. (old)** | • Use the magnifying icon to search for the old registration number.
**Field type:** Alphanumerical
**Length:** 80 | +| **Biz Nature** | • Customer’s business nature.
**Example:** Chemical Manufacturing, Car Service, etc.
**Field type:** Alphanumerical
**Length:** 100 | +| **Note** | • Used to record the customer knowledge base.
Supports **Date Stamp** feature for tracking.
**Field type:** Alphanumerical
**Length:** Rich Text | +| **Status** | • Indicates the operational state of the customer account:
- **Active** → Can create official documents and print Customer Statement.
- **Inactive** → Cannot create official documents and cannot print Customer Statement.
- **Suspend** → Cannot create official documents but can print Customer Statement.
- **Prospect** → Can create official documents and print Customer Statement.
- **Pending** → Can create official documents and print Customer Statement. | + +### Tax + + + +| **Field Name** | **Explanation & Properties** | +|-----------------|------------------------------| +| **Default Tax** | • Select a default tax code based on customer. | +| **Tax Area** | • Not applicable to Malaysia/Singapore. | +| **Sales Tax Area** | • Enter the company’s Sales Tax Number. | +| **Service Tax Area** | • Enter the company’s Service Tax Number. | +| **Exemption No** | • Enter the Sales Tax Exemption number received from customer.
**Field type:** Alphanumerical
**Length:** 50 | +| **Expiry Date** | • Set the expiry date for tax exemption.
• The customer will be tax exempted before the expiry date.
**Field type:** Date | + +### Tariff Code Setting + +* This setting set to customer who has supply the taxable goods under the Sales Tax (Person Exempted from Payment of Tax) Order 2018. + +| **Field Name** | **Explanation & Properties** | +|-----------------|------------------------------| +| **Tariff** | • Add tariff code of taxable goods to be sold in exemption.
• You can find your tariff code at [https://ezhs.customs.gov.my/](https://ezhs.customs.gov.my/)
**Lookup:** Maintain Tariff
**Related Topic:** [Maintain Stock Item → Main Header](../../usage/stock/stock-guide#maintain-stock-item) | +| **Tax** | • Select an appropriate tax code that falls under the Person Exempted in Schedule A, B, and C.
**Schedule A tax code:** SE
**Schedule B tax code:** SEB
**Schedule C tax codes:** SEC1, SEC2, SEC3, SEC4, SEC5
**Lookup:** Maintain Tax | + +* Press **SAVE** button once you are done + +After Saving, you should see all your customer's information on this screen. + + + +## Customer Code Format + +* Customer code are generated AUTOMATICALLY after pressing the SAVE button. + +>IMPORTANT : +> +>1. Every customer code is unique. +>2. If the system found there is a duplicate code trying to save, users will be notified with a warning message. +>See screenshot below. +> + + + +* You can set the customer code format via Tools | Options...(Customer). See screenshot below. + + + +* Explanation of the Customer Code Format: + + + +* For Example + +| Company Name | Customer Control Acc | Format | Result | +|--------------|-----------------------|---------------|--------------| +| ABCD SDN BHD | 301-000 | %.1s-%.1s%.1d | 3-A-1 | +| ABCD SDN BHD | 301-000 | %.2s-%.2s%.2d | 30-AB-01 | +| ABCD SDN BHD | 301-000 | %.3s-%.3s%.3d | 301-ABC-001 | +| ABCD SDN BHD | 301-000 | %.4s-%.4s%.4d | 301--ABCD-0001 | + +## Advance Credit Control + +> This is a **paid module**. + +* Credit Control is used to manage the customer outstanding within the specific overdue and credit limit given. See screenshot below. + + + +>IMPORTANT : +> +>1. Depends on the user access rights to the Customer Credit Control. +>2. Override credit limit can be granted in the user access control. +> + +### Credit/Overdue Limit + +* Credit limit is the limit to set based on the total outstanding. +* Overdue limit is the limit to set based on the overdue outstanding only. +* Tick "Add PD Cheque to Credit Limit" to include any post dated payment to increase the credit limit. + +### Exceed Credit/Overdue Limit + +:::note Credit Control +Can be applied to the following document types: + +1. QT - Quotation +2. SO - Sales Order +3. DO - Delivery Order +4. IV - Sales Invoice +5. CS - Cash Sales +6. DN - Debit Note +::: + +* You have to tick "Apply To" in order to set the further action (e.g. unblock, block or override) to control the exceed credit and overdue limit. See screenshot below: + + + +| Control Type | Action | ALLOW EXCEED | +|-----------------------|----------|---------------------| +| Exceed Credit Limit | Unblock | YES | +| Exceed Credit Limit | Block | NO | +| Exceed Credit Limit | Override | PASSWORD REQUIRED | +| Exceed Overdue Limit | Unblock | YES | +| Exceed Overdue Limit | Block | NO | +| Exceed Overdue Limit | Override | PASSWORD REQUIRED | + +:::note +>**Unblock** – No restrictions +> +>**Block** – Blocked for all users +> +>**Override** – Certain users which have access rights can key in their username & password to override. +> +>**Suspended** – Blocked with suspended message +> +::: + +### Suspended + +* You have to tick "Apply To" any document type in order to tick the SUSPENDED. +* At the same time, you can enter the suspended message to prompt the user when they try to save the document. See screenshot below: + + + +## Customer Invoice + +### Customer Invoice vs Sales Invoice + +The differences between a Customer Invoice and a Sales Invoice are as follows: + +|**Customer Invoice**| **Sales Invoice**| +|---|---| +|• Shows only the accounts code and does not show Qty / Unit Price.| • Linked to the stock and account modules. Hence, we advise users who need to key in stock items to use Sales Invoice. Once the information in the Sales Invoice is updated, the information in the Customer Invoice will automatically be updated by the system.| + + + +### Create a new Customer Invoice + + 1. **Customer** | **Customer Invoice** | **New** + + 2. Select **Customer Code** | insert transaction and amount. + + 3. **Save** + +  + +## Customer Payment + +### Local Bank Payment + + :::info + Watch tutorial video here: [Youtube](https://www.youtube.com/watch?v=IjHX5ys846I&feature=youtu.be) + ::: + + 1. **Customer** | **Customer Payment** | **New** + + 2. Select your **Customer** + + 3. Select the **bank for your account and cheque no** if applicable + + 4. Key in the **customer payment amount** + + 5. **Tick the corresponding invoice/debit note to be knocked off** + +  + +### Post Dated Cheque + + 1. Search for the payment that you want to edit, click on **Edit**, right click on Customer Payment, you will see **Set Posting Date** + +  + +  + +### Bounced Cheque + + 1. Search for the payment that you want to edit, click on **Edit**, right click on Customer Payment, you will see **Bounced Status** + +  + +  + + After bounced, system will auto revert the payment out, you can view your ledger. + +  + +## Customer Credit Note + +If the situation involves return stock from customer, please do Sales Credit Note and knock off it in Customer Credit Note as below step. + +1. **Customer** | **Customer Credit Note** + +2. **Edit** | Click **Yes** + +3. **Knocked off accordingly**. + +  + + If it does not involve with returned stock, e.g. discount given with + + 1. **Customer** | **Customer Credit Note** | **New CN** + + 2. **New** | Select **Customer** | Select **GL Account** | **Amount** + + 3. **Knocked off accordingly**. + +  + +## Customer Refund + +You can use this document to refund a customer. You can knock off with Customer Payment or Credit Note which have unapplied amounts. + +1. **Customer** | **Customer Refund**. + +2. Choose the **Customer** | Select your **Payment Method** | **Enter your Refund Amount** + +3. **Knock off the payment or credit note and save**. + +  + +## Customer Contra + +If you have a customer who is also a supplier, you may want to offset the outstanding customer and supplier invoices. This is known as a **contra entry**. You can offset the two invoices by using Customer Contra and Supplier Contra. This means that when you record the invoices as being paid, it will not affect your current bank account balance. + +>**Scenario:** +> +>If you have an outstanding sales invoice for RM200 and a purchase invoice for RM150 for the same customer or company, the actual amount owed to you is RM50 and the contra entry amount is RM150. + +### Make sure you have a valid `Contra Account` + +1. **Tools** | **Options** + +  + +2. **General Ledger** | Make sure you have selected a valid Contra Account + +  + +### Contra Entry + + 1. Go **Customer** | **Customer Contra** + +  + + 2. Press on **NEW** + +  + + 2a. Select your Customer Code + + 2b. Enter your Contra Amount + + 2c. Knock off your Invoice + + 2d. Press on **SAVE** Button + +  + + 3. The system will automatically generate a Contra Number, jot down the number and go to **Supplier | Supplier Contra** to edit it. + +  + + 4. Look for the Same Contra Number (refer step 2e), EDIT it. + +  + + 4a. Select your **Supplier** + + 4b. Enter Contra Amount (Must be same as Customer Contra Amount) + + 4c. Knock off your Supplier Invoice + + 4d. Press on **SAVE** Button + +  + +After you post the contra entry: + +* The outstanding amount on the sales invoice is RM50. + +* The purchase invoice is fully knock off. + +* When you receive the RM50, you can record this against the sales invoice using your normal Customer Payment entry. diff --git a/docs/usage/Tools/RTM/_category_.json b/docs/usage/Tools/RTM/_category_.json new file mode 100644 index 00000000..3f280944 --- /dev/null +++ b/docs/usage/Tools/RTM/_category_.json @@ -0,0 +1,8 @@ +{ + "label": "RTM", + "position": 2, + "link": { + "type": "generated-index", + "description": "RTM report builder" + } +} \ No newline at end of file diff --git a/docs/usage/Tools/RTM/basic-guide.md b/docs/usage/Tools/RTM/basic-guide.md new file mode 100644 index 00000000..8522cc81 --- /dev/null +++ b/docs/usage/Tools/RTM/basic-guide.md @@ -0,0 +1,594 @@ +--- +sidebar_position: 1 +title: RTM Guide +description: How to do custom reports in report builder +slug: /usage/tools/rtm/guide +tags: ["SQL Account", "Usage", "Tools"] +--- + +## Load Report Template + +1. **Tools** > **Report Designer** + +  + +2. Press on **IMPORT** + +  + +3. Follow the steps below : + + 1. Change the report type to **SQL Report(rtm)** + + 2. Select your **Report** + + 3. Press **OPEN** + +  + +## Simple Calculation + +* In Report Builder, you can also do some simple calculation using the Variable (The Calculator Icon) + + + +1. Click on SubRptNorm: Document_Detail +2. Select the Variable button (the Calculator icon) +3. Click on the place to be print/shown. +4. Click on Calc Tab + +  + +5. Right click here & Select Event & find the component just now we had placed (eg Variable2) +6. Click OnCalc +7. Click here & enter the script below: + +
+
+
+8. Click File | Save As & enter New report Name after done
+
+## Get Data Directly from DB
+
+* Sometime in the report you might wanted some extra information but you not able to select in the report design. So you had to self query to get the extra information.
+
+### Get Single Field
+
+* Example 1 - Get Shelf Field from Maintain Item
+
+ - Below is Example are doing following actions using Variable
+ - At Sales Invoice, get the Shelf field from Maintain Item
+
+
+
+1. Click on SubRptNorm: Document_Detail
+2. Select the Variable button (the Calculator icon)
+3. Click on the place to be print/shown.
+4. Click on Calc Tab
+
+ 
+
+5. Right click here & Select Event & find the component just now we had placed (eg Variable2)
+6. Click OnCalc
+7. Click here & enter the script below:
+
+ Script
+ + ```pascal + procedure Variable2OnCalc(var value: Variant); + + begin + + Variable2.DisplayFormat := Option.GetFieldValue('StockPriceDisplayFormat'); // Set Display Format + + Value := Document_Detail.GetFieldValue('Amount')/Document_Detail.GetFieldValue('Qty'); + + end; + ``` + +
+
+
+8. Click File | Save As & enter New report Name after done
+
+### Example 2 - Get Picture Field from Maintain Item
+
+Below is Example are doing following actions using Image
+
+At Sales Invoice, get the Picture field from Maintain Item
+
+* Steps
+
+ 1. Click on SubRptNorm: Document_Detail
+ 2. Select the Image button (the Mountain & sun icon)
+ 3. Click on the place to be print/shown.
+ 4. Click on Calc Tab
+ 5. Right click here & Select Event & find the component just now we had placed (eg Image1)
+ 6. Click OnPrint
+ 7. Click here & enter the below script
+
+ Script
+ + ```pascal + procedure Variable2OnCalc(var value: Variant); + + var s: string; + + begin + + s := 'SELECT Shelf FROM ST_ITEM ' + + + 'WHERE CODE=' + QuotedStr(Document_Detail.GetFieldValue('ItemCode')); + + Value := Trim(DBSQL_GetFieldValue(s)); + + end; + ``` + +
+
+
+ 8. Click File | Save As & enter New report Name after done
+
+### Example 3 - Get Document Created UserName from Audit
+
+Below is Example is to Get the who created the Document from Audit Table.
+
+* Steps
+
+1. Select the Variable button (the Calculator icon)
+2. Click on the place to be print/shown.
+3. Click on Calc Tab
+4. Right click here & Select Event & find the component just now we had placed (eg Variable2)
+5. Click OnCalc
+6. Click here & enter the below script:
+
+ Script
+ + ```pascal + + procedure Image1OnPrint; + + var s: string; + + begin + + s := 'SELECT Picture FROM ST_ITEM ' + + + 'WHERE Code='+ QuotedStr(Document_Detail.GetFieldValue('ItemCode')); + + Image1.Visible := DBSQL_GetPicture(s, Image1.Picture); + + end; + ``` + +
+
+
+7. Click File | Save As & enter New report Name after done
+
+### Example 4 - Get From Doc No. in Sales Invoice
+
+Below is Example is to Get the From Document Number at Invoice Header.
+
+* Steps
+
+1. Select the Variable button (the Calculator icon)
+2. Click on the place to be print/shown.
+3. Click on Calc Tab
+4. Right click here & Select Event & find the component just now we had placed (eg Variable2)
+5. Click OnCalc
+6. Click here & enter the below script
+
+ Script
+ + ```pascal + procedure Variable2OnCalc(var value: Variant); + + var s: string; + + begin + + s := 'SELECT UserName FROM AUDIT WHERE UPDATEKIND=''I'' ' + + + 'AND REFERENCE LIKE ' + + + QuotedStr('%'+ + + Main.GetFieldValue('DocNo')+ + + '%Code: '+ //Delete this line for JV & CB + + Main.GetFieldValue('Code')+ //Delete this line for JV & CB + + ',%'); + + Value := Trim(DBSQL_GetFieldValue(s)); + + end; + ``` + +
+
+
+7. Click File | Save As & enter New report Name after done
+
+## Get Whole Table
+
+Script
+ + ```pascal + procedure Variable2OnCalc(var value: Variant); + + var s, V : string; + + begin + + s := 'SELECT First 1 FromDocType FROM SL_IVDTL '+ + + 'WHERE Dockey=' + Main.GetFieldValue('Dockey') + + + ' AND FROMDOCTYPE IS NOT NULL'; + + V := Trim(DBSQL_GetFieldValue(s)); + + if Trim(V) \<> '' then begin + + s := 'SELECT DocNo FROM SL_' + v + + + ' WHERE DocKey=(SELECT First 1 FromDockey FROM SL_IVDTL '+ + + 'WHERE Dockey=' + Main.GetFieldValue('Dockey') + + + ' AND FROMDOCTYPE IS NOT NULL)'; + + Value := Trim(DBSQL_GetFieldValue(s)); + + end else + + Value := ''; + + end; + ``` + +
+
+
+## Get Data from Available Pipeline
+
+Sometime in the report you might wanted some extra information or further analysis from the report itself but you not able to select in the report design. So you had to self query to get the extra information or further analysis.
+
+### Example 1 - Show GST Summary at Last Page
+
+Below is Example doing following actions
+
+* Get data information (Tax, Tax rate, LocalAmount, LocalTaxAmt)
+* Group the data by Tax code
+
+
+
+1. Click on Calc Tab
+2. Right click here & Select Module
+3. Select Declarations
+4. Select Variables
+5. Add new/to existing as below variable
+
+ ```pascal
+ var
+ SQL_6: String;
+ ```
+
+ 
+
+6. Select Events
+7. Select OnCreate
+8. Copy below script & paste to here
+
+Get Whole Table - click to expand
+ +### Example 1 - Get Maintain Batch Information + +Below is Example doing following actions + +* Get data information From Stock Batch + + + +1. Click on Calc Tab +2. Right click here & Select Module +3. Select Declarations +4. Select Variables +5. Add new/to existing as below variable + + ```pascal + var + SQL_Batch: String; + ``` + +  + +6. Select Events +7. Select OnCreate +8. Copy below script & paste to here + + SQL_Batch := 'SELECT Code, Description, ExpDate, MfgDate, Remark1, Remark2 FROM ST_BATCH'; + + DBSQL_SELECT(plSQL_Batch, SQL_Batch, 'Code'); + + SetDataPipelineFieldLink(Document_Detail, plSQL_Batch, 'Batch', 'Code'); + +9. Click File | Save As... to save the file (eg Sales Invoice 1) +10. Click File | Exit to exit the report design +11. Click Design again in the report designer for the file just save on Steps 9 (eg Sales Invoice 1) + +  + +12. Click SubRptNorm:Document_Detail tab +13. Click DBText icon +14. Click the place you wanted to show/print +15. Select plSQL_Batch pipeline +16. Type ExpDate (eg to get expired Date) +17. Save the report + +### Example 2 - Row Number Query + +Below is Example Create SEQ Field base on SQL + +* Steps + +1. Click on Calc Tab +2. Right click here & Select Module +3. Select Declarations +4. Select Variables +5. Add new/to existing as below variable + + ```pascal + var + **SQL_1: String; + ``` + +6. Select Events +7. Select OnCreate +8. Copy below script & paste to here + +SQL_1 := 'SELECT DOCKEY, DTLKEY, SEQ, ROW_NUMBER() OVER (PARTITION BY DOCKEY ORDER BY SEQ) AS NSEQ '+ + + 'FROM SL_IVDTL ' + + + 'WHERE NOT (DESCRIPTION LIKE ''R-%'' ' + + + 'OR DESCRIPTION LIKE ''T-%'') '+ + + 'AND DOCKEY IN (SELECT DOCKEY FROM SL_IV '+ + + ' WHERE DOCDATE BETWEEN ' + FormatSQLDate(Parameter.GetFieldValue('DateFrom')) + + + ' AND ' + FormatSQLDate(Parameter.GetFieldValue('DateTo')) + + + ') ORDER BY DocKey, NSeq'; + + DBSQL_SELECT(plSQL_1, SQL_1, 'Dockey;NSeq'); + + SetDataPipelineFieldLink(Document_Detail, plSQL_1, 'Dockey;Seq', 'Dockey;Seq'); + +  + +9. Select Programs +10. Right Click | New Function +11. Copy Function Script + + ``` pascal + function FormatSQLDate(D: TDateTime): String; + + var AFormat: string; + + begin + + AFormat := 'dd mmm yyyy'; //'dd/mmm/yyyy' if can't + + Result := QuotedStr(FormatDateTime(AFormat, D)); + + //If yr output for TxQuery use below coding + + // AFormat :='dd/mm/yyyy'; + + // Result := '#'+FormatDateTime(AFormat, D)+'#'; + + end; + ``` + +12. Click File | Save As... to save the file (eg Sales Invoice 1) +13. Click File | Exit to exit the report design +14. Click Design again in the report designer for the file just save on Steps 12 (eg Sales Invoice 3 (SubTotal)-New) +15. Click SubRptNorm:Document_Detail tab +16. Click DBText icon +17. Click the place you wanted to show/print +18. Select plSQL_1pipeline +19. Type NSeq +20. Save the report + +:::warning +Preview/Print/Export will delay/slow a bit if compare with build in Preview/Print/Export report +::: + +
+
+
+ 
+
+9. Select Event Handlers
+10. Select procedure ReportBeforePrint
+11. Copy below script & paste to here
+
+ Script
+ + ```sql + SQL_6 := 'SELECT DocKey, Tax, TaxRate, Sum(LocalAmount) LocalAmount, Sum(LocalTaxAmt) localTaxAmt, '+ + + 'Description FROM Document_Detail ' + + + 'Where Tax \<> ''''' + + + 'GROUP BY Dockey, Tax, TaxRate'; + ``` + +
+
+
+12. Click File | Save As... to save the file (eg 0Sales Cash Sales 3 (GST 1))
+13. Click File | Exit to exit the report design
+14. Click Design again in the report designer for the file just save on Steps 12 (eg 0Sales Cash Sales 3 (GST 1))
+
+ 
+
+15. Click Subreport icon
+16. Click the place you wanted to show/print
+
+ 
+
+17. Right click the Sub report
+18. Untick the ParentWitdh & manual adjust the sub report width to the width you wanted
+19. Select the Pipeline just create (eg plSQL_6)
+20. Scroll till end
+21. Click SubReport2:plSQL_6 tab
+
+ 
+
+22. Click Report & set the following setting
+
+ * Title - Select
+ * Summary - Select
+ * Header - UnSelect
+ * Footer - UnSelect
+
+ 
+
+23. Click DBText icon
+24. Click the place you wanted to show/print (in between Title & Detail Band)
+25. Select LocalAmount field
+26. Repeat Step 23 to 25 for LocalTaxAmt field
+27. Click DBCalc icon
+28. Click the place you wanted to show/print (in between Detail & Summary Band)
+29. Select LocalAmount field (See Step 25)
+30. Repeat Step 27 to 29 for LocalTaxAmt field
+31. Click Variable icon
+32. Click the place you wanted to show/print (in between Title & Detail Band)
+33. Right Click the variable
+
+ 
+
+34. Copy below script & paste to here
+
+ Script
+ + ```sql + LocalSQL_SELECT(plSQL_6, SQL_6, 'Dockey;Tax'); //Create New pipeline + + SetDataPipelineFieldLink(Main, plSQL_6, 'DocKey', 'DocKey'); //Link with Main + ``` + +
+
+
+35. Click Ok
+36. For label can Click Label icon
+37. Save the report after done
+
+### Example 2 - Show 1st FromDocNo at Header
+
+Below is Example will get FromDocNo Field from the Detail Data
+
+1. Click on Calc Tab
+2. Right click here & Select Module
+3. Select Declarations
+4. Select Variables
+5. Add new/to existing as below variable
+
+ ```sql
+ var
+ SQL_6: String;
+ ```
+
+6. Select Events
+7. Select OnCreate
+8. Copy below script & paste to here
+
+ ```sql
+ SQL_6 := 'SELECT Dockey, Min(Seq) Seq, FromDocDate, FromDocNo FROM Document_Detail '+
+ 'WHERE FromDocType \<> '''' ';
+ ```
+
+9. Select Event Handlers
+10. Select procedure ReportBeforePrint
+11. Copy below script & paste to here
+
+ ```sql
+ LocalSQL_SELECT(plSQL_6, SQL_6, 'Dockey'); //Create New pipeline
+ SetDataPipelineFieldLink(Main, plSQL_6, 'DocKey', 'DocKey'); //Link with Main
+ ```
+
+12. Click File | Save As... to save the file (eg 0Sales Cash Sales 3 (GST 1))
+13. Click File | Exit to exit the report design
+14. Click Design again in the report designer for the file just save on Steps 12 (eg 0Sales Cash Sales 3 (GST 1))
+15. Click DBText icon
+16. Click the place you wanted to show/print at the Header
+17. Select FromDocNo field
+18. For label can Click Label icon
+19. Save the report after done
+
+### Example 3 - Show Total SVE at Footer
+
+Below Example is to Get total SVE for 6%
+
+1. Click on Calc Tab
+2. Right click here & Select Module
+3. Select Declarations
+4. Select Variables
+5. Add new/to existing as below variable
+
+ ```sql
+ var
+ SQL_6: String;
+ ```
+
+6. Select Events
+7. Select OnCreate
+8. Copy below script & paste to here
+
+ ```sql
+ SQL_6 := 'SELECT DocKey, SUM(LocalAmount)*0.06 SVE FROM Document_Detail ' +
+ 'WHERE Tax=''SVE'' ' +
+ 'GROUP BY DocKey';
+ ```
+
+9. Select Event Handlers
+10. Select procedure ReportBeforePrint
+11. Copy below script & paste to here
+
+ ```sql
+ LocalSQL_SELECT(plSQL_6, SQL_6, 'Dockey'); //Create New pipeline
+ SetDataPipelineFieldLink(Main, plSQL_6, 'DocKey', 'DocKey'); //Link with Main
+ ```
+
+12. Click File | Save As... to save the file (eg Sales Invoice 1-New)
+13. Click File | Exit to exit the report design
+14. Click Design again in the report designer for the file just save on Steps 12 (eg Sales Invoice 1-New)
+15. Click DBText icon
+16. Click the place you wanted to show/print at the Header
+
+ 
+
+17. Select plSQL_6 pipeline
+18. Select SVE field
+19. For label can Click Label icon
+20. Save the report after done
diff --git a/docs/usage/Tools/RTM/faq.md b/docs/usage/Tools/RTM/faq.md
new file mode 100644
index 00000000..b464f8fb
--- /dev/null
+++ b/docs/usage/Tools/RTM/faq.md
@@ -0,0 +1,685 @@
+---
+sidebar_position: 2
+title: RTM FAQ
+description: Frequently Asked Questions in report builder
+slug: /usage/tools/rtm/faq
+tags: ["SQL Account", "Usage", "Tools"]
+---
+
+## How to rename the component I use?
+
+
+
+1. Click the icon here (eg DBText)
+2. Click on the place to be print/shown
+3. At the Properties for XXXXXX, look for Identity | UserName & change the Name as you like (Only Alphanumeric & no spacing)
+
+## Why when Export to PDF format the Company Logo looks "ugly"?
+
+
+
+1. In the report designer set the setting
+
+ - ImageCompressionLevel to 1
+ - Untick ScaleImages
+
+2. At the Company Logo Right Click
+ - Tick DirectDraw
+ - Untick Stretch
+
+3. Resize your Jpeg Logo to smaller dimension
+4. Resize the Company Logo (Report Builder component) to the same dimension of your Jpeg Logo
+
+## Why when Export to PDF format the the file size so large?
+
+
+
+1. In the report designer set the setting look for PDFSettings
+ - CompressionLevel to clMax
+
+2. In the report designer set the setting look for PDFSettings | EmbedFontOptions
+ - efUseSubset to True (checked)
+
+## Special DisplayFormat
+
+### 1. How if data is PI-12345 but I wanted to be printed as 12345?
+
+Just Enter as Follow code:-
+
+Script
+ + ```sql + if Trim(plsql_6.getfieldvalue('TaxRate')) \<> '' then + + Value := plsql_6.getfieldvalue('Tax') + ' @ ' + plsql_6.getfieldvalue('TaxRate') else + + Value := plsql_6.getfieldvalue('Tax'); + ``` + +
+
+
+### 2. How if data is PI-12345 but I wanted to be printed as PI12345?
+
+Just Enter as Follow code:-
+
+Code
+ +```vb +Procedure DBTxtDocNoOnGetText(var Text: String); + +begin + + Delete(Text, 1, 3); + + Text := Text; + +end; +``` + +
+
+
+### 3. How if data is 17-08-2005 but I wanted to be printed as 17 hb?
+
+Just Enter as Follow code in the DisplayFormat:-
+
+**dd 'hb'** *
+
+### 4. How if data is 1234-001 but I wanted to be printed as 1234 & the value is not fixed (i.e may 12345-001, 1234-001)?
+
+ Just Enter as Follow code:-
+
+Code
+ +```pascal + Procedure DBTxtDocNoOnGetText(var Text: String); + + begin + + Delete(Text, 3, 1); + + Text := Text; + + end; +``` + +
+
+
+### 5. How if data is 1234-001 but I wanted to be printed as 001 & the value is not fixed (i.e may 12345-001, 1234-32)?
+
+ Just Enter as Follow code:-
+
+Code
+ +```pascal +Procedure DBTxtDocNoOnGetText(var Text: String); + +begin + + Text := SubStrOfDelimitedStr(Text, 0, 1, '-'); + +end; +``` + +
+
+
+### 6. How to reverse this #,0.00;-#,0.00 to this -#,0.00;#,0.00?
+
+ Just Enter as Follow code:-
+
+Code
+ +```pascal +Procedure DBTxtDocNoOnGetText(var Text: String); + +begin + + Text := SubStrOfDelimitedStr(Text, 1, 1, '-'); + +end; +``` + +
+
+
+### 7. How to set 0 when empty?
+
+Below is Example :
+
+Code
+ +```pascal +procedure DetailBeforePrint; + +var d, s : string; + +begin + + s := Option.GetFieldValue('AccountingValueDisplayFormat'); + + d := ValueOfSemiColonStr(s, 1)+';'+ ValueOfSemiColonStr(s, 0); + + DBTxtC4.DisplayFormat := d; + +end; +``` + +
+
+
+### 8. How to Combine Currency Symbol with DocAmt or DBCalc.Value using TppVariable?
+
+Code
+ +```pascal +procedure DBTxtTaxOnGetText(var Text:String); + +begin + + if Trim(plSQL_1.GetFieldValue('TaxAmt')) = '' then + + Text := '0.00' ; + +end; +``` + +
+
+
+## How to Set Current Date Time plus/minus N?
+
+Code
+ +```pascal +procedure VarSumDROnCalc(var Value : Variant); + +var V : string; + +begin + + V := FormatFloat(Option.GetFieldValue('AccountingValueDisplayFormat'), DBCalcSCR.Value); + + Value := Option.GetFieldValue('LocalCurrencySymbol') + ' ' + V; + +end; +``` + +
+
+
+## How to Maintain the QR Code Size with large Data?
+
+:::note
+It might be unable to scan if the size is too small & the data is too large
+:::
+
+
+
+## How to Add QR Code for E-Invoicing?
+
+:::note
+Only Available in Version 852 & above
+:::
+
+
+
+- The measurement is in Inch
+- This guide is designed for Laser Printer only
+- For Dot Matrix Printer make sure set to 1 for Height & Width
+
+## How to Add FromDocNo and FromDocDate Variable in Report Design ?
+
+1. Go in Report Design | Click on  then place at the grid – refer below Pic
+
+ 
+
+ 1. Right Click on Variable2 | Select Calculation |
+
+ 
+
+ After Done press OK
+
+2. If the date is not appearing in report preview
+
+ 
+
+ 1. Click on **Calc Tab**
+
+ 2. **Menu bar** | click **View** | Select **Events**
+
+ 3. Look for ***Variable***
+
+ 4. Click on **OnPrint**
+
+ 5. Click on **Document_Detail**
+
+ 6. Click on **FromDocNo**
+
+ 7. Drag from **FromDocNo** to the query box.
+
+## How to Create SUM Variable for TAX Column ?
+
+
+
+1. Click on the variable icon
+
+2. Click on where you want to create a new variable, right click on the variable created > go calculations , Insert the query in the next section accordingly
+
+3. Click on the variable created, and make sure choose it to `DOUBLE`.
+
+**Query:**
+
+1. **Formula for Sub Total**
+
+ ```pascal
+ Variable1.DisplayFormat := Option.GetFieldValue('AccountingValueDisplayFormat');
+
+ Value := GetAggregateValue(agSUM, Document_Detail, 'DocKey', 'Amount');
+ ```
+
+2. **Formula for Total Exclude GST (RM)**
+
+ ```pascal
+ Variable2.DisplayFormat := Option.GetFieldValue('AccountingValueDisplayFormat');
+
+ Value := GetAggregateValue(agSUM, Document_Detail, 'DocKey', 'LocalAmount');
+ ```
+
+3. **Formula for Total of Tax Amt (RM)**
+
+ ```pascal
+ Variable5.DisplayFormat := Option.GetFieldValue('AccountingValueDisplayFormat');
+
+ Value := GetAggregateValue(agSUM, Document_Detail, 'DocKey', 'LocalTaxAmt');
+ ```
+
+4. **Formula for Total Include GST (RM)**
+
+ ```pascal
+ Variable6.DisplayFormat := Option.GetFieldValue('AccountingValueDisplayFormat');
+
+ Value := GetAggregateValue(agSUM, Document_Detail, 'DocKey', 'LocalAmountWithTax');
+ ```
+
+## How to Disable Query for Deleted Field ?
+
+1. If you had deleted any field in report designer with Query, then u will get the below message, click **OK**
+
+ 
+
+2. Click on the blue colour report name to enter in report designer page
+
+ 
+
+3. Click on the field, the field name will be shown at the left bottom of the application as shown below. If you had deleted the field, refer to step 4.
+
+ 
+
+4. Click on **CALC**, go View > Modules
+
+ 
+
+5. Follow the steps below:
+
+ 1. Click on **Event Handlers**
+
+ 2. Go to **procedure DetailBeforePrint**
+
+ 3. An error will be shown at the bottom, double click on it, and the system will redirect to the row with the error
+
+ 
+
+6. Enter '//' as in the image below :
+
+ 
+
+7. Right click and compile , make sure no error > save > close the preview screen and try preview again.
+
+## Display Exemption Number & Expiry Date in Invoice Template
+
+### Part A : Custom | Maintain Customer
+
+
+
+### Part B : Report Format add customer exemption Number
+
+1. Go to Sales | Sales Invoice | Select any of your invoice | Preview | choose your invoice format template | click on the bottom blue color report name to go into report designer page
+
+ 
+
+2. Insert **Exemption Number** label
+
+ 1. click on the A label icon
+ 2. click on the area that you want to locate the field
+ 3. rename the label
+
+ 
+
+3. Insert **Tax Exemption Number** DBText
+
+ 1. click on the DBText field
+ 2. click on the are that you want to located the field
+ 3. select Document Company & TaxExemptNo
+
+ 
+
+4. Insert **Expiry Date** label
+
+ 1. click on the A label icon
+ 2. click on the area that you want to locate the field
+ 3. rename the label
+
+ 
+
+5. Insert **Tax Expiry Date** DBText
+
+ 1. click on the DBText field
+ 2. click on the are that you want to located the field
+ 3. select Document Company & TaxExpDate
+
+ 
+
+### Part C: Save as a new report name & preview the new format
+
+1. Once you complete, go file | save as | enter a new report name | Save
+
+ 
+
+2. Preview your new report
+
+ 
+
+3. The exemption number & expiry date added
+
+ 
+
+## How to Drag XML Report into SQL ?
+
+:::info[note]
+If this XML Report is for Customer Aging, go to Customer Aging to drag the XML Report
+
+If this XML report is Supplier Aging Report, go to Supplier Aging to drag the XML Report
+:::
+
+1. Open the XML Report & also Customer Aging, drag the XML Report into the Report Name field
+
+ 
+
+2. Double Click on the new report template in blue color.
+
+ 
+
+3. Click on the arrow down key to choose the right template
+
+ - Eg : If the report Name is Cust-Local-**L0**-06 Month
+
+ - L0 = no special grouping, the template you have to choose eg Cust 06 Month Aging
+ - L1 = Grouping by 1 level, the template you have to choose eg Cust 06 Month Aging – Level 1
+ - L2 =Grouping by 2 level, the template you have to choose eg Cust 06 Month Aging – Level 2
+
+ - Eg : If the report Name is Cust-Local-L0-**06** Month
+
+ - 04 = 04 Month
+ - 06 = 06 Month
+ - 12 = 12 Month
+
+## How to Make Official Receipt Format Set Knock Off Grid to Show Full Width ?
+
+1. Go to **subreport1 : Document_KnockOff**
+
+ 
+
+2. Go to **Report**, click on **Title**
+
+ 
+
+3. Move all field in Column Header to **Title**
+
+ 
+
+4. Go to **File** > **Page Setup...**
+
+ 
+
+5. Go to **Layout**, change the **column** to ***1***
+
+ 
+
+6. Now, it expands to full page, you can adjust all your column as your wish.
+
+ 
+
+7. Once you done adjust, go file > save as, key a new report name.
+
+8. Close the preview, and preview your new report name.
+
+## How to do Rounding of Figure in Report ?
+
+**Sample Invoice with Rounding RM0.02 :**
+
+
+
+1. Using Tax Invoice format 06-Tax-Invoice
+ 
+
+ :::info[note]
+ Click on blue color link - **06-Tax-Invoice**
+ :::
+
+2. Click on **Calc** Tab
+
+ 
+
+3. Right Click select **Module**
+
+ 
+
+4. Click on **Declarations**
+
+ 
+
+5. Declare **SQL_Rounding** under **Variable**
+
+ 
+
+6. Click on Events | On Create | Procedure GlobalOnCreate insert syntax as below :
+
+ ```pascal
+ SQL_Rounding := 'SELECT DocKey, Sum(Amount) Amount, Description '+
+ 'FROM Document_Detail ' +
+ 'WHERE ItemCode=''RTN5Cents'' '+
+ 'GROUP BY DocKey';
+ ```
+
+ **Refer Picture below :**
+
+ 
+
+ :::info[Optional]
+ Add additional syntax in plSQL_4 – Refer below, only if Total Amount beforeGST you want to exclude rounding amount.
+
+ 
+
+ ```pascal
+ SQL_4 := 'SELECT DocKey, Sum(Amount) Amount, Description '+
+ 'FROM Document_Detail ' +
+ 'WHERE ItemCode <> ''DISC'' '+
+ 'or Itemcode is null ' +
+ 'and ItemCode <> ''RTN5Cents'' ' +
+ 'GROUP BY DocKey';
+ ```
+
+ :::
+
+7. Click on Event Handlers | Click on procedure Report BeforePrint, insert syntax as below :
+
+ ```pascal
+ LocalSQL_SELECT(plSQL_Rounding, SQL_Rounding, 'DocKey');
+ SetDataPipelineFieldLink(Main, plSQL_Rounding, 'DocKey', 'DocKey');
+ ```
+
+ 
+
+8. File | Save | Exit from report design and go in to Report Design again.
+
+9. Insert DBText | and place at the place you want.
+
+ 
+
+ 1. Click on DBText
+
+ 2. Place at the Group Footer area
+
+ 3. Select plSQL_Rounding
+
+ 4. Manually type in Amount
+
+ Here is the output :
+
+ 
+
+ After adjust the position :
+
+ 
+
+ **Item Detail hide Item Code RTN5Cents to be appearing, refer step as below :**
+
+10. Click on Document_Detail Tab as below | Click on Calc | Event Handlers | Procedure RdiscOnPrint
+
+ 
+
+ - Syntax:
+
+ ```pascal
+ RDisc.Visible := (Document_Detail.getfieldvalue('Itemcode') <> 'DISC')
+ and (Document_Detail.getfieldvalue('Itemcode') <> 'RTN5Cents');
+ ```
+
+ - Output :
+
+ 
+
+ **How to do if the report never create the region before?**
+
+11. Right click tick all the Toolbars
+
+ 
+
+12. Click on Region component
+
+ 
+
+13. Place at the design grid | Click at the region | Select no Fill
+
+ 
+
+14. Select No Line
+
+ 
+
+15. Place all the DBtext/DBRichText inside the Region.
+
+ 
+
+16. Click on Region to check the object name :
+
+ 
+
+17. Click on Calc tab | Right Click select Events
+
+ 
+
+18. Look for RDisc | Select OnOnPrint | Place the syntax inside bottom box
+
+ 
+
+ Syntax :
+
+ ```pascal
+ RDisc.Visible := (Document_Detail.getfieldvalue('Itemcode') <> 'DISC')
+ and (Document_Detail.getfieldvalue('Itemcode') <> 'RTN5Cents');
+ ```
+
+ :::info[note]
+ **RDisc** is your object name, if you object name is **Region1**, then have to change as below :
+
+ ```pascal
+ Region1.Visible := (Document_Detail.getfieldvalue('Itemcode') <> 'DISC')
+ and (Document_Detail.getfieldvalue('Itemcode') <> 'RTN5Cents');
+ ```
+
+ :::
+
+## How to Update GST from 6% to 0% (show zero instead of blank) ?
+
+SQL Account system build in report format will automatic detect your Tax Rate based on your invoice issued.
+
+- if invoice issued on May it will show GST @ 6%, while invoice issued on June will display GST @ 0%.
+- D/O issued on May, transferred to Invoice and invoice date is in June, then system will automatic detect it and set the GST rate correctly.
+- However, if your format is customized previously, you can refer this guideline on how to change the script from GST @ 6% to GST 0% .
+
+1. Click on your report name to enter into report designer page.
+
+ 
+
+2. Follow the steps below:
+
+ 1. Go to **Calc**, click on **View** > select **Module**
+
+ 
+
+ 2. Go **Event Handlers**
+
+ 3. Go **Procedure lbTaxAmtOnGetText(var Text:String);**
+
+ 4. Replace to this script:
+
+ ```pascal
+ var s : string;
+ begin
+ if (plSQL_0.GetFieldValue('TaxDate') < '01 Jun >2018') or
+ VarToCurr(plSQL_1.GetFieldValue('TaxAmt')) <> 0) then
+
+ s := 'GST Amt @ 6% ' else
+ s := 'GST Amt @ 0% ';
+ if plSQL_2.GetFieldValue('Code') <> '----' >then
+ Text := s + '(RM) :' else
+ Text := s + ':';
+ end;
+ ```
+
+ 
+
+To Display Tax as 0.00 Instead of Blank:
+
+ 1. Click on your report name to enter into report designer page.
+
+ 
+
+ 2. Go to **Calc**, click on **View** and select **Events**
+
+ 
+
+ 3. Find **DBTxtTax**and select **OnGetText**, then paste the script as below:
+
+ ```pascal
+ begin
+ if Trim(plSQL_1.GetFieldValue('TaxAmt')) = '' then
+ Text := '0.00' ;
+ end;
+ ```
+
+ 
+
+ Once you completed, save the report and exit, then you may preview again your format outcome.
diff --git a/docs/usage/Tools/_category_.json b/docs/usage/Tools/_category_.json
new file mode 100644
index 00000000..b791039d
--- /dev/null
+++ b/docs/usage/Tools/_category_.json
@@ -0,0 +1,8 @@
+{
+ "label": "Tools",
+ "position": 13,
+ "link": {
+ "type": "generated-index",
+ "description": "SQL Account Tools"
+ }
+}
\ No newline at end of file
diff --git a/docs/usage/Tools/basic-guide.md b/docs/usage/Tools/basic-guide.md
new file mode 100644
index 00000000..d7e77fd2
--- /dev/null
+++ b/docs/usage/Tools/basic-guide.md
@@ -0,0 +1,2443 @@
+---
+sidebar_position: 1
+title: Tools Guide
+description: Components and Functions in Tools
+slug: /usage/tools/guide
+tags: ["SQL Account", "Usage", "Tools"]
+---
+
+## Maintain User
+
+### Create New User
+
+1. Select **Tools** > **Maintain User** > **New**
+
+2. Enter the **Code and Name** (both can be the same e.g. Code = ALI, Name = ALI)
+
+3. Click on **More** Options and look for **Change Password**
+
+ 
+
+4. Click Save. Your new user account is now created.
+
+:::info info
+ SQL User license is per concurrent basis (i.e. how many users can login to the system at the same time). This mean that if you have 5 staffs in the office who can access SQL but you only 3 license for 3 concurrent users, you can still maintain all 5 users in the system but only 3 users can login and access at the same time.
+:::
+
+### User Access Right
+
+:::info Video Guide
+Watch tutorial video here: [Youtube](https://www.youtube.com/watch?v=t_TJKdOihfw&feature=youtu.be)
+:::
+
+Not every user is going to have the same access rights as ADMIN, and ADMIN user might want to set security control settings in system.
+
+1. Select **Tools** > **Maintain User** > **Edit for the user that you want to set the access right for**.
+
+2. Click on **More** Options and look for **Access Right**.
+
+3. You need to check the transactions / functions (row), compare with the user (column) and **tick = Allowed** or **untick = Disallowed**, the action for a particular user for particular transactions. For example, base on the settings in the following images, the user is not allowed to delete Customers or to view Customer Payments.
+
+ 
+
+### Bar Navigator
+
+*Tools | Maintain User... | More | Bar Navigator*
+
+This function is to allow user to **customize** the buttons at the Main Application by user.
+
+
+
+| **Field Name** | **Properties** |
+|------------------|-----------------------------------------------------|
+| **Description** | Definition: Navigator Full Description; Field Type: Alphanumerical; Length: 160 |
+| **Reset Button** | To restore to Default Layout |
+
+1. Right Click here
+
+ 
+
+2. Select Customize...
+
+ 
+
+ | **Field Name** | **Properties** |
+ |------------------|---------------------------------------|
+ | **Toolbars** | Show list of available Toolbars |
+ | **New... button**| Create New Toolbar |
+ | **Rename...button** | Rename the highlighted Toolbar |
+ | **Delete** | Delete highlighted Toolbar |
+
+3. Select Commands tab
+
+ 
+
+ | **Field Name** | **Properties** |
+ |----------------|--------------------------------------------------|
+ | **Categories** | List of Available Buttons Category |
+ | **Commands** | List of Available Buttons on the Selected Category |
+
+ 
+
+4. Select Categories (eg Sales)
+5. Select Commands (eg Invoice...)
+6. Drag from Step 5 to here
+7. Click Close
+8. Click Save
+9. Click Browse
+10. Click More | Navigator vs User
+
+ 
+
+ | **Options** | **Properties** |
+ |-------------|-----------------------------------------------|
+ | – | No setting is set |
+ | **Default** | Set the setting |
+ | **Deny** | Not allowed to use (Not used in this function) |
+
+11. Set the User to use the Toolbar.
+12. Click Save (Blue Disc Icon button)
+
+## Maintain Document Number
+
+You can maintain document number format and next number.
+
+:::info
+Watch tutorial video here: [Youtube](https://www.youtube.com/watch?v=hFR6TfqxnRU&feature=youtu.be)
+:::
+
+1. **Tools** > **Maintain Document Number**.
+
+2. Insert **description** for the particular set of document and select a **document type** (e.g. Payment Voucher)
+
+3. The system’s defaults is the **Format** %.5d, where “%” is the formula which allows the function to auto-run for the document number while 5d stands for 5 digits.
+
+ 
+
+4. You can select the **Frequency** option as Never Reset or others.
+
+5. Set the **Next Number** for this document.
+
+ 
+
+## Maintain Acceptable Transaction Date
+
+:::info
+SQL do not need to perform year end, it will cut off automatically. Once account closed, if you wish to block the period to avoid your users changed the account figure, you may apply this setting.
+:::
+
+Maintain Acceptable Transaction Date allows you to control which documents you are allowed to maintain (New, Edit) based on their dates.
+
+- Any document which date falls **within** the allowed transaction dates **can** be edited.
+
+- Any document which date falls **outside** the allowed transaction dated **cannot** be edited/created.
+
+### New Acceptable Transaction Date
+
+1. **Tools** > **Maintain Acceptable Transaction Date**
+
+ 
+
+2. Click on **Append** (Icon with + symbol)
+
+ 
+
+3. Choose the period which you want to **allow transactions**
+
+4. **Save**.
+
+ 
+
+5. Result:
+
+ It will show the message if users try to save a document that are not in acceptable transaction period
+
+ 
+
+ If the user click "**Yes**" a dialogue box will request override permission by ID/PW with rights to override it.
+
+ :::info
+ The default setting grants users override permission. Refer to the following section for instructions on revoking this privilege from a specific user.
+ :::
+
+### Override Acceptable Transaction Date
+
+ To override i.e. save a document that falls outside the acceptable transaction dates, you will need to be logged-in as a user with the right to override acceptable transactions dates.
+
+ 1. **Tool** > **Maintain User**. Double click on the user that you want to **edit**.
+
+ 
+
+ 2. Click on **More** > **Access Control**
+
+ 
+
+ 3. Under **Group Tools**, tick or untick the option of **Override Acceptable Transaction Date** to allow or deny the user from having the overriding right to save a document out of the acceptable transaction period.
+
+ 4. **Save** the access right.
+
+ 
+
+ 5. Result:
+
+ If the user Is not permitted to override, the system will prompt the following dialog and you can choose either
+
+ - **OK = cancel saving**
+ - **Override = Enter user the ID and password of a user who can override then save the transaction.**
+
+ 
+
+ 
+
+### SQL Global Price Change
+
+SQL Global Price Change will help you **mark down price** for all items with few clicks
+
+:::info
+This is a **paid module**. Contact your SQL Service to get this standalone application.
+:::
+
+
+
+### Setup
+
+1. Select your group of item
+
+ 1. You can select on certain stock group/ category, if you want all items, then leave stock group and category blank
+ 2. You can also choose only active item
+ 3. Once your group of item selected, click on Get Stock Items List
+
+ 
+
+2. Setting on value to be adjust
+
+ :::info note
+ Scenario: You are trying to reduce price due to removal of GST (6% > 0%)
+ :::
+
+ 
+
+ - Rounding Method (Assuming Round Decimal is 2)
+ 1. Normal : Example : 0.1234 => 0.12
+ 2. Round Up : Example : 0.1234 => 0.13
+ 3. Round Down : Example : 0.1274 => 0.12
+
+ - Input Value = Sample Value
+ - Output Result = Sample Result
+ - Round decimal = No. of Decimal Point
+
+ It may looks like a **6%** reduction but it is actually **5.66%**
+
+ Example:
+
+ Item price = RM 100
+
+ With 6% GST = RM 100 * 1.06 = RM 100 + 6% = RM 106
+ Removal of 6% GST = RM 106 / 1.06 = RM 106 - 5.66% = RM 106
+
+ - Mark down = 5.66 %
+ - Why 5.66% instead of 6% ?
+ - 30 May 2018 selling price = RM 106 GST Inclusive
+ - 01 June 2018 selling Price RM 106 – 5.66% = RM 100
+ - **NOT RM 106 – 6% = RM 99.64**
+
+3. Select fields to be update
+
+ 
+
+ - Tick on which option you want to adjust / update eg : Reference Price
+ - You can also tick Record change history then system will update this changes history in your note
+ - Once you complete the setting, click on Change
+
+ 4. Check & Post
+
+
+
+
+
+## Maintain Form Mode
+
+Form Mode helps filter data based on defined criteria. It is used to restrict users to view only specific sets of data for a certain document. For example, agent **Lip Fong can view and access the sales invoices belonging to his agent code** LF ONLY.
+
+### New Form Mode
+
+:::info
+Watch tutorial video here: [Youtube](https://www.youtube.com/watch?v=bqSDZlAhM5I&feature=youtu.be)
+:::
+
+1. **Tools** > **Maintain Form Mode** > **New**.
+
+2. **Enter Code & Select the document** form that you want to filter, e.g. Invoice
+
+ 
+
+3. Click on the **Customize Filter** and then click on the **press the button to add a new condition**.
+
+ 
+
+4. Change the **“SL_IV.DOCKEY” to “SL_IV.Agent”** because right now I need to filter based on sales invoice agent field, then change **the “= equals” to “like”** after that **enter the agent code** that you want to filter and click on **OK**.
+
+ 
+
+5. Make sure the info is updated correctly then you can **Save**.
+
+ 
+
+6. Other optional setting:
+
+ 
+
+ 
+
+7. If you have set **more than 1 form mode**, once you click **Sales** > **Invoice** > you will get the prompt browse mode to choose which form mode that you want to apply.
+
+ 
+
+### Form Mode VS User
+
+ How do I apply the format mode on a specific user?
+
+ 1. **Tools** > **User Access Right Assignment…**
+
+ 2. Under the list of security, click on **form mode**
+
+ 3. Select the user, eg: user code: LF (Lip Fong)
+
+ 4. Tick to apply the **form mode**, e.g. tick **form mode: IV-LF** and click Save
+
+ 
+
+## Maintain Terms
+
+Maintain Terms allows the user to maintain their Customer and Supplier terms. In SQL there are 3 types of different terms for you to assign.
+
+1. **Tools** > **Maintain Terms** > **New**
+
+2. **Insert Code, Description and allocated Term Type.**
+ 
+
+ - **Due in number of days** – Means how many days until document is due, e.g. if you set 30 days then the document will be due on the 30th day from the document date.
+
+ 
+
+ - **Due on specific day of the month** – Means how many months and which day the document is due, e.g. if you set it as 1 Month 6 Days the document will be due on the 6th of the next month.
+
+ 
+
+ - **Due in the month end** – Means how many months until the document is due at the end of the final month, e.g. if you set it as 2 months, the document will be due at the end of 2nd month.
+
+## Maintain Currency
+
+### New Foreign Currency
+
+:::info
+Watch tutorial video here: [Youtube](https://www.youtube.com/watch?v=qfhtlAjW4As&feature=youtu.be)
+:::
+
+You can bill overseas customers & suppliers in foreign currencies e.g. USD, SGD, Euro & etc. **(Prof Package Inclusive)**
+
+1. **Tools** > **Maintain Currency** > **New**
+
+ 
+
+2. **Maintain Customer / Supplier to assign the currency**
+
+ 
+
+3. Sales document, select the customer, sample as below:
+
+ 1. Currency Rate will follow your setting from Tools > Maintain Currency, but it is still changeable in this invoice.
+
+ 2. Unit Price entered is in based on Customer’s currency eg this customer is in USD.
+
+ 3. system will auto converted into default currency RM on right bottom Local Net Total column.
+
+ 
+
+### Payment from Foreign Customer
+
+#### Scenario 1
+
+:::note
+Customer Invoice **invoice billing in USD**, but **payment paid in your local RM bank**
+:::
+
+ 1. **Customer** > **Customer Payment** > **New**
+
+ 2. Select your Customer
+
+ 3. Choose your RM Bank
+
+ 4. Enter your RM Amount
+
+ 5. Knock off the invoice and the rate will be update automatically by system. Foreign gain loss will be auto calculated and post to account accordingly. (you can call out Rate & Gain Loss column from the hidden field).
+
+ 
+
+#### Scenario 2
+
+:::info note
+Customer Invoice **billing in USD, Payment paid in your Foreign USD Bank**
+
+*([Advance Currency](../../usage/tools/faq#advanced-currency-module) modules required)*
+:::
+
+ 1. Go to Tools > Maintain Payment > edit your USD Bank
+
+ 2. **Currency**: You can assign the currency for the particular payment method, so that the payment method will be in foreign currency payment.
+
+ 3. **Bank Charge Acc**: You can pre-set bank charges account to the payment method accordingly.
+
+ 4. **OR & PV Number Set**: Set default running document number for the particular payment method (optional)
+
+ 5. **Bank Info**: able to set Giro info & make payment thru Giro (refer [Interbank Giro](docs/additional-module/interbank-giro.md) Topic for more detail)
+
+ 
+
+ Select your payment received in your **Foreign USD Bank**, enter your **paid Amount in USD, Enter your USD Rate** & Knock off the invoice, foreign gain loss will be auto calculated by system.
+
+ 
+
+#### Scenario 3
+
+:::info note
+Customer Invoice **billing in USD**, but **payment in others currency** eg SGD / RMB / EURO
+:::
+
+ 1. Select your Bank eg you received in SGD Bank, enter your SGD Amount & SGD Rate.
+
+ 2. Knock off your USD Invoice.
+
+ 3. USD rate will be auto calculated & foreign gain loss will auto calculated and posting to account accordingly
+
+ 
+
+## Maintain Project (Required Project Module)
+
+:::info note
+This is an extra module , which means have to buy , may contact customer support to purchase.
+:::
+
+This module allows the user to maintain the project accounting on a branch or departmental basis, the user can use this module for simple construction business as they get to view Profit and Loss / Balance Sheet by Project.
+
+1. Click on **Tools** > **Maintain Project**.
+
+ 
+
+2. Insert **Project Code & Description**. Project Value and Project Cost is not compulsory fields to fill in, if you have filled in then it is for remark purpose.
+
+ 
+
+3. Click on **Tools** > **Options**.
+
+ 
+
+4. Then look for **Miscellaneous** > Make sure the option **“Show Document Project”** is ticked.
+
+ 
+
+5. During **sales and purchase** transactions, make sure you can **the project column**, then **update** accordingly.
+
+ 
+
+ When keying-in a transaction, some users will ask why is there a project at item detail and another beside the Customer. Duplicate tab?
+
+ **What is the difference between More > Project >(Document Project) and Item Detail > Project (Item Project )?**
+
+ 
+
+ 
+
+ 
+
+ **The project feature is also available for GL > Cash Book Entry.**
+
+ After updating the document with project, how to view report with project and compare by project? For example: **GL > Print Profit & Loss Statement**.
+
+6. Filter by the date that you want to view for the P&L report, then if you want to perform a project-to-project comparison then choose **“Comparison – Project (6 columns)”**
+
+ 
+
+ :::info note
+
+ 6 Columns = up to 6 projects
+
+ 10 Columns = up to 10 projects
+
+ 19 Columns = up to 19 projects.
+
+ :::
+
+7. Criteria
+
+ 1. After selecting the report that you need, make sure to tick the **“Show Column Options”**, then the top of the report will show column options.
+
+ 2. You may change the period that you want to view, e.g. by default it will be **“Current Month”**.
+
+ If you want to view the whole year figures, then you have to **change to “Current Year”**.
+
+ 
+
+8. After changing the column options, you have to **tick the “Print Project Comparison”**, then the project tab will appear on the **right hand site**, you can select which project that you want to view then click on **Add**.
+
+ 
+
+9. Click on **Apply** and you will see the result. The P&L report will compare each project that you select.
+
+ 
+
+### 5 Cents Rounding
+
+We can pre-set the system to automatically round your invoice or cash sales amounts to the nearest 5 cents.
+
+:::info
+
+Watch tutorial video here: [Youtube](https://www.youtube.com/watch?v=VSnX55l_3xw&feature=youtu.be)
+
+:::
+
+1. **Tools** > **Options** > **Customer**
+
+2. **Tick 5 Cents Rounding** for Sales Invoice/ Cash Sales
+
+ 
+
+ 
+
+### Online Mobile Approval
+
+### How it works?
+
+For example : If we set Credit Limit over RM30,000 will required override
+
+1. A Dialog box will be prompted after *Save Invoice*, ***‘Do You want to override?’*** > Click ***Yes***
+
+ 
+
+2. Click on ***Online Approval***
+
+ 
+
+ 1. Tick the ID that you choose to get approval
+
+ 2. You can choose to send by **Whatsapp**, **Send by Email** or **Send by Whatsapp & Email**
+
+ 
+
+3. You will receive a message at **Whatsapp** message or **email sent by system**
+
+ - **Senario 1 : Send By Whatsapp**
+
+ You will receive a message > Click the link
+
+ 
+
+ - **Senario 2 : Send By Email**
+
+ You will receive an email > Click **'CLICK HERE FOR MORE ACTIONS'**
+
+ 
+
+4. Login **Gmail Address** that you set in maintain user **Open ID (Google)**
+
+ :::info[note]
+
+ - This step is for those send by **whatsapp** and **not use Gmail** to receive notification
+ - Those use **Gmail Address** to receive notification and approve can jump to **Step 6**
+
+ :::
+
+ 
+
+5. Enter your Gmail Password
+
+ 
+
+6. After Login Gmail you will see this window
+
+ 
+
+7. You can click on **Doc Detail** and **ScreenShot** to see the detail
+
+ 1. **Doc Detail** : To show Customer Code, the reason why need override
+
+ 2. **ScreenShot** : To see the transaction screen
+
+ 3. **Reply** : You can left a message and click Approve or Reject
+
+ 
+
+ :::info[note]
+ After Approve or Reject you can go back SQL Accounting, you will see below possible scenario
+ :::
+
+ - **Scenario 1 : Approve Override**
+
+ >a. Message : Approve Message
+ >
+ >b. The green tick will appear after approve
+ >
+ >c. Click **OK** to save that transaction
+
+ 
+
+ - **Scenario 2 : Reject Override**
+
+ >a. Message : Reject Message
+ >
+ >b. The cross will appear after reject
+ >
+ >c. **OK** button is disabled after reject, click **Cancel**
+
+ 
+
+ After Click Cancel System will Prompt back to this dialog box :
+
+ 
+
+### When to use?
+
+These **ALL** can use Online Approval for user :
+
+| Module | Action |
+|---------------|-----------------|
+| Logon Screen | - No access right to change password |
+| All Module | - All Document entry without Execute / Print / Preview / Export access rights |
+| | - Unable to Save and Manage Grid Layout |
+| | - Unable to Grid Export |
+| | - Save Document Fall Outside Acceptable Trans Date |
+| Customer Inovice| - Fast entry save Invoice |
+| SL&PH | - Prompt Stock Qty Control Dialog |
+| | - Prompt change unit price |
+| | - Save price below cost (fmSLPriceControl) |
+| | - Override Credit Control |
+| GL | - Bank Recon Entry form to Check Bank Recon Listing |
+| Stock | - Update GL stock value from other stock month end report |
+| | - Stock Report with Execute access right but without Process right |
+| Inquiry | - Hide Dashboard |
+
+### 1. Maintain User
+
+1. Tools > Maintain User
+
+ 
+
+### 2. Edit User
+
+1. Double click the user that you want to setting > Edit
+
+ 
+
+ 
+
+### 3. Set Approval Person
+
+- Setting The Detail For Approval Person (ONLY GMAIL CAN LOGIN TO APPROVE OR REJECT)
+
+ 1. Mobile number - To which whatsapp number to get notification for approval only
+
+ 2. Email - To which email address to get notification for approval only
+
+ 3. Open ID (Google) - Gmail for approve or reject
+
+ :::info[note]
+ If receive notification email and approve email is Gmail, do setting only at **3.OPEN ID (Google)** and leave **2.Email** column blank
+ :::
+
+ 
+
+ For Example :
+
+ - **Senario 1 : Use Same Gmail to Receive Notification and Give Approval**
+
+ Your Gmail address is : `XXXXXX@gmail.com`
+
+ 1. Open ID (Google) : `XXXXXX@gmail.com`
+ 2. Email : **Left as blank**
+
+ 
+
+ - **Senario 2 : Use Different email to received notification and give approval**
+
+ - To Give Approval Gmail Address is : `XXXXXX@gmail.com`
+ - To Received notification Address is : `XXXXXX@estream.com`
+
+ 1. Open ID (Google) : Put your gmail address `XXXXXX@gmail.com`
+ 2. Email : `XXXXXX@estream.com`
+
+ 
+
+### 4. Setting SMTP
+
+:::info[note]
+
+- This Setting is for user who want to **use Email to send Notification**
+- If use whatsapp to send approval can skip this step
+
+:::
+
+1. Make Sure you had create App Password
+ - If you are using Gmail , you can [CLICK HERE](https://support.google.com/accounts/answer/185833?hl=en) to follow the steps to create your App Password
+ - After getting your App Password, return to your SQL Accounting
+
+2. Click on Email Setting
+3. Your Email SMTP Host
+4. Your Email SMTP Port
+5. Your Email SMTP Connection Security
+6. Your Email Address
+7. Your Apps Password
+8. Your Email Sender Name
+9. Afte done setting click Save
+
+ 
+
+## Maintain Journal
+
+- Journal is mostly utilized to categorize document kinds while analyzing reports by journal.
+
+
+
+### Create New Journal
+
+
+
+| **Field Name** | **Explanation & Properties** |
+|----------------|------------------------------|
+| **Journal** | - Input the new Journal code
+- **Field type:** Alphanumerical
+- **Length:** 10 |
+| **Description** | - Input the Journal description
+- **Field type:** Alphanumerical
+- **Length:** 80 |
+| **Active** | - Checked = Active
+- Unchecked = Inactive | |
+
+### Journal Setting
+
+1. Lets said you have create a new Journal named "Sales-DN". See below screenshot.
+
+ 
+
+2. You have to set the Journal at Tools | Options...
+3. At the General Ledger tab, you can link the Journal to a default Journal.
+4. For example, "Sales-DN" Journal link to a default Journal "Customer Debit Note". See below screenshot.
+
+
+
+### Reporting by Journal
+
+GL | Print Journal of Transaction Listing...See below screenshot :
+
+ 
+
+
+2. You can select the Journal lookup as shown in the above screenshot.
+3. System will list out the double entry posted from the Sales/Customer Debit Note.
+
+## Maintain Style
+
+ *Menu: Tools | Maintain Style*
+
+ >To display the document details in different font type (currently not supported) and size.
+ >For example the document detail font size is 10, see the below screenshot:
+ >
+
+
+
+### Create New Style
+
+
+
+
+
+| Field Name | Explanation & Properties |
+|--------------------|----------------------------------------------------------------------------------|
+| **Style ID** | - Input the new Style ID.Code
+ +```pascal +procedure Variable1OnCalc(var Value : Variant); + +var lDT : Variant; + +begin + + //Example deduct 1.5 hrs + + lDT := CurrentDateTime-0.0625; //(1.5/24) + + Value := FormatDateTime('dd/MM/yyyy hh:mm AM/PM', lDT); + +end; +``` + +- **Field type:** Alphanumerical
- **Length:** 5 | +| **Font** | - Always tick and click on the Font button to select the font size.
- **Field type:** Checkbox | +| **Background - Color** | - Not supported | +| **Background - Image** | - Not supported | + +## Maintain Commision + +- Menu: Tools | Maintain Commission Script... + +1. To execute a simple commission script to determine the commission rate based on the payment age (Payment Date - Invoice Date). +2. Sales Commission Script module is required. + +Browse mode in Maintain Style. See the below screenshot: + + + +### Create New Commission Script + +1. Click on NEW. See the below screemshot. + + + + | Field Name | Explanation | + |--------------|------------------------------------------| + | **Code** | Input the new code. | + | **Description** | Input the commission script description. | + | **Script** | Load the commission script. | + +2. Example of the scripts: + + a. Script 1 + +
+
+
+## Maintain Agent
+
+*Menu: Tools | Maintain Agent...*
+
+1. An agent is the sales person or sales representative.
+2. It is very useful when you are trying to apply the reports by an Agent.
+3. You can create/edit the agent or sales person code here.
+
+
+
+### Create New Agent
+
+
+
+| Field Name | Explanation & Properties |
+|--------------|---------------------------|
+| **Code** | - Input the new Agent code - Field type: Alphanumerical - Length: 10 |
+| **Description** | - Input the Agent Name - Field type: Alphanumerical - Length: 80 |
+| **Active** | - Checked = Active - Unchecked = Inactive |
+
+## Maintain Area
+
+- Menu: Tools | Maintain Area...
+
+>1. Area can be the state, country or regions.
+>2. It is very useful when you are try to apply the reports by Area.
+>3. You can create/edit the area or country code here.
+>
+
+
+
+### Create New Area
+
+- Below is Area entry form
+
+
+
+## Maintain Withholding Tax
+
+*Menu : Tools | Maintain Withholding Tax...*
+
+### Create Withholding Tax Code
+
+1. Click New.
+2. Input the following data:
+
+ | Field Name | Explanation | Remark |
+ |-------------------|----------------------------------------------|------------------------------------------------------------------------|
+ | **Code** | Set a code | WTH-TAX15 |
+ | **Description** | Describe the meaning/usage of this code | Withholding Tax 15% |
+ | **Tax Rate** | Withholding Tax Rate | 15% |
+ | **Tax Account (DR)** | Set to Withholding Tax Expense account | At GL\Maintain Account, create the Withholding Tax Expense account under **Expenses** |
+ | **Tax Account (CR)** | Set to Withholding Tax Payable account | At GL\Maintain Account, create the Withholding Tax Payable account under **Current Liabilities** |
+
+ 
+
+3. Click on Save.
+
+## Maintain Company Category
+
+*Menu: Tools | Maintain Company Category...*
+
+1. Company Category usually use to categorize the customer/supplier. For example, 3rd Parties-Domestic, 3rd Parties-Export, Intercompany, etc.
+2. It is very useful when you are try to apply the reports by Company Category.
+3. You can create/edit the Company Category or sales person code here.
+
+
+
+### Create New Company Category
+
+- Screenshot below is the Company Category entry form.
+
+
+
+| Field Name | Explanation & Properties |
+|-------------|--------------------------------------------------|
+| **Code** | Input the new Company Category code *Field type:* Alphanumerical *Length:* 10 |
+| **Description** | Input the Company Category Name. *Field type:* Alphanumerical *Length:* 80 |
+| **Active** | Checked = Active Unchecked = Inactive |
+
+### Use of Company Category
+
+- You can link the Company Category to the Customer or Supplier.
+
+
+
+Reports by Company Category
+
+1. You can apply the following reports by Company Category.
+
+ Commission Script
+ +```sql +procedure CalculateCommission(AKODocAmt, AAge: variant; var Value: variant); +begin + if AAge < 10 then + Value := AKODocAmt * 0.05 + else if AAge < 20 then + Value := AKODocAmt * 0.03 + else if AAge < 30 then + Value := AKODocAmt * 0.02 + else + Value := AKODocAmt * 0.005; +end; +``` + +
+
+
+ Customer
+ + a. Print Customer Document Listing... + + b. Print Customer Balance Report... + + c. Print Customer Due Document... + + d. Print Customer Aging Report... + + e. Print Customer Statement... + + f. Print Customer Post Dated Cheque Listing... + + g. Print Customer Analysis By Document... + + h. Print Customer Sales and Collection Analysis... + +
+
+
+ Supplier
+ + a. Print Supplier Document Listing... + + b. Print Supplier Balance Report... + + c. Print Supplier Due Document... + + d. Print Supplier Aging Report... + + e. Print Supplier Statement... + + f. Print Supplier Post Dated Cheque Listing... + + g. Print Supplier Analysis By Document... + + h. Print Supplier Sales and Collection Analysis... + +
+
+
+ Sales
+ + a. Print Sales Document Listing... + + b. Print Outstanding Sales Document Listing... + + c. Print Sales Price History... + + d. Print Profit & Loss by Document... + + e. Print Sales Analysis by Document... + + f. Print Yearly Sales Analysis... + +
+
+
+2. Example of Print Customer Aging Report screenshot.
+
+
+
+## Maintain Shipper
+
+*Menu: Tools | Maintain Shipper...*
+
+1. To maintain the shipper profile such as **name**, **address**, **phone**, **account**, etc. It is easy to trace the shipper name who ship the goods or service.
+2. Sometimes, you can use as "**Global Delivery**" where you can apply to both sales / purchase documents.
+
+
+
+### Create New Shipper
+
+
+
+Purchase
+ + a. Print Purchase Document Listing... + + b. Print Outstanding Purchase Document Listing... + + c. Print Purchase Price History... + + d. Print Purchase Analysis by Document... + + e. Print Yearly Purchase Analysis... + +
+
+
+### Use of Shipper
+
+1. Both Sales / Purchase documents, you can select the shipper by clicking on the **MORE** tab (LEFT side bar)
+2. Example of Sales Delivery Order screenshot
+
+
+
+### Report by Shipper
+
+1. You can apply the Sales report by Shipper, especially the reports from **Sales | Print Sales Price History**.
+2. Example of Sales Price History report screenshot
+
+
+
+## Maintain Tariff
+
+*Menu: Tools | Maintain Tariff...*
+
+- Tariff classification is a complex yet extremely important aspect of **cross-border trading**.
+
+- **Goods imported** from or to Malaysia are classified by the Harmonized Tariff Schedule (HTS) or commonly referred to as **HS Codes**.
+
+- The codes, created by World Customs Organization (WCO), categorize up to 5,000 commodity
+HS Codes are made of **6-digit numbers** that are recognized internationally, although different countries can extend the numbers by two or four digits to define commodities at a more detailed level.
+
+[Click here to search for tariff rates on products](https://ezhs.customs.gov.my/) to search the tariff code list from Kastam system.
+
+### Create New Tariff
+
+
+
+| **Field Name** | **Explanation** | **Properties** |
+ |----------------|-----------------|----------------|
+ | Code | Input the new Tariff Code | Alphanumerical, Length: 20 |
+ | Description | Input the Tariff Description | Alphanumerical, Length: 160 |
+ | Active | Checked = Active, Unchecked = Inactive | Boolean |
+
+## Print Audit Trail
+
+*Menu: Tools | Print Audit Trail...*
+
+> All questions regarding who created, edited, or deleted the data, and when, can be answered through the Print Audit Trails.
+
+
+
+| Field Name | Explanation & Properties |
+|------------|---------------------------|
+| Date | Input the date range to be audited. |
+| User | Select the user to be audited. |
+| Event | Insert = Check who/when the data was created.Edit = Check who/when the data was modified.Delete = Check who/when the data was deleted. |
+| Where | Tick the modules to be audited. |
+| Find Text | Input the specific keyword to be audited, e.g., invoice no., customer code, etc. |
+
+### Advanced Options
+
+ > If you wish to audit the Sales/Purchase/Stock documents details, you must enable this "Post Audit Trail for Stock/Sales/Purchase Detail". See below screenshot:
+
+ 
+
+## Analyse Data Integrity
+
+ Menu: Tools | Analyse Data Integrity...
+
+:::warning
+RUN Analyse Data Integrity ONLY when you have at least **1-3 hours** for operations in company and SQL Account to be **fully stop**...
+:::
+
+ To analyse the data integrity check. It is recommended to perform this action **weekly** or **monthly**
+ > (before month end closing).
+
+Reason to run this may due to the following unpredictable matters:
+
+>1. malfunction/glitch from hardware such as network switch, computer, server, etc.
+>2. Network stability, such as wireless lost connection.
+>3. Power failure
+>4. Operating System failure
+>
+
+Shipper Fields
+ + | **Field Name** | **Explanation** | **Properties** | + |----------------|-----------------|----------------| + | Code | Input the new Shipper code | Alphanumerical, Length: 30 | + | Description | Input the Shipper name | Alphanumerical, Length: 160 | + | Address | Input the Shipper Address | Alphanumerical, Length: 60 per line | + | Phone | Input the Shipper Phone | Alphanumerical, Length: 20 per line | + | Account | Input the Shipper Account | Alphanumerical, Length: 40 | + | Remark 1 | Input any remark (free field) | Alphanumerical, Length: 200 | + | Remark 2 | Input any remark (free field) | Alphanumerical, Length: 200 | + | Description | Input the Shipper name | Alphanumerical, Length: 160 | + | Active | Checked = Active, Unchecked = Inactive | Boolean | + +
+
+
+:::info NOTE:
+
+1. Reposting might took longer time to perform repost for the documents selected.
+
+2. Recommended to run at the server side.
+:::
+
+ 
+
+### To Start Analyse
+
+1. Tick the Analyse Items required to analyse, otherwise skip this step 1.
+2. Click on Start Analyse.
+
+ 
+
+3. Prompt the message to inform you the total tasks ticked has analyse completed.
+
+ 
+
+4. You can copy the analyse log detail by click on Copy to Clipboard.
+
+ 
+
+5. Open notepad or Microsoft Words. Paste it.
+
+ 
+
+## Print Bar Code (Direct Printer)
+
+*Menu: Tools | Print Bar Code (Direct Printer)*
+
+- To print the bar code label using Special Bar Code Printer for the items created in Maintain Stock Item.
+
+
+
+### Bar Code Printer Setting
+
+*Menu: Tools | Options...(BarCode)*
+
+1. Insert the new barcode printer setting and template.
+
+ 
+
+2. Click on OK to exit.
+
+### Print the Bar Code Label
+
+1. Click on the arrow key-down beside the Print button. See the screenshot below.
+2. You can choose either Print to Printer (barcode printer) or Print To File (output as text file).
+
+
+
+## Print Bar Code (Windows Printer)
+
+*Menu: Tools | Print Bar Code (Windows Printer)*
+
+- To print the bar code label using Windows Printer for the items created in Maintain Stock Item.
+
+
+
+### Update Item Bar Code Listing
+
+1. At first, you can update the item bar code in the Maintain Stock Item.
+
+ 
+
+2. Click on + button to insert the items. See the screenshot below.
+
+ 
+
+3. Click the SAVE button to save the item bar code listing. Type a file name (eg. BarCode_Items_31122015) to save. See the screenshot below.
+
+ 
+
+4. Message prompted. Click OK.
+
+
+
+### Load the Previous Item Bar Code Listing
+
+1. Click on a Carbinet button to load from the previous file for item bar code listing (eg.BarCode_Items_31122015). Click on OPEN.
+
+ 
+
+2. Confirmation message prompted. Click on OK to load it. Click on NO' to cancel it.
+
+ 
+
+3. Message Load success prompted. Click on OK to proceed.
+
+
+
+### Preview/Print the Bar Code Level
+
+1. Click on Preview or Printer (to skip the preview).
+
+ 
+
+2. After the preview, click on Printer button to print.
+
+### How to Change the Label Size (mm) Measurement for the Bar Code Label
+
+1. Click on the Report Name. See the screenshot below.
+
+ 
+
+2. To change the paper unit measurement. Click on Report | Units, choose to Millimeters.
+
+ 
+
+3. To change the paper size. Click on **File | Page Setup...**
+
+ 
+
+4. Click on Paper Size tab, change the Width and Height to 35 and 25 respectively (mm), eg. the label paper size is 35mm x 25mm.
+
+ 
+
+5. Check the Layout tab to make sure the Columns set to value = 1.
+
+ 
+
+6. Check the Margin tab as well to make sure all (Top, Bottom, Left, Right) are set to value = 0 . Click OK to exit Page Setup.
+
+ 
+
+7. To fix label each page contains 1 barcode of an item. Right click on Detail band, select Position.
+
+ 
+
+8. Set Print Count to value = 1. Click OK to confirm.
+
+ 
+
+9. Save the report with **another name**.
+
+## Options
+
+Parts of Analyse Data Integrity - click to expand
+ +There are 3 parts of analyse data integrity : + +a. Regular Data Integrity (Default) + +- Check AP Knock Off Integrity +- Check AR Knock Off Integrity +- Update Customer Outstanding +- Check Document Integrity +- Check Document Transfer Integrity +- Check Delivery Order/Invoice/Cash Sales to Credit Note Posting Date +- Check Production Document Transfer Integrity +- Check GL Opening Balance +- Check GST DO -> IV Posting Integrity +- Repost Stock Transactions +- Calculate Stock Costing +- Compress Stock Item Pictures +- Update Stock Balance Quantity +- Update Supplier Outstanding +- Resequence Table Fields +- Regenerate Views +- Remove Temporary Table + +b. Reposting (Optional) + +- Repost AR Documents +- Repost AP Documents +- Repost GL Documents +- Repost PH Documents +- Repost SL Documents + +
+
+
+## Maintain DIY
+
+*Menu: Tools | DIY | Maintain DIY...*
+
+This Additional Module(DIY Fields & DIY Script Module)
+
+
+
+| Function | Description |
+|---------------------|-------------------------------------------------------------------|
+| Field and Quick Form | User can Self Create new User Define Field(s) & Design the Layout |
+| Script | Customise the Application |
+| Calculation | Override the build in Calculation (SQL Payroll ONLY) |
+| View Template | For Advance Form Mode |
+| Report Data | Deprecated |
+
+### Field and Quick Form
+
+Below is Example are doing following actions
+
+- Create UDF_JobTitle at Maintain User
+- Create New Form at Maintain User
+
+1. Right Click at User
+
+ 
+
+2. Select New Field
+
+ 
+
+3. Click **New** button
+
+ 
+
+4. Enter any Description (eg Calc-Field) in the **Description** field (Only Alphanumeric & no spacing)
+5. Click the + button to add the New UDF Field & Enter/Select the option as above picture
+6. Click Save (the Blue Disc icon) after done
+7. Close the windows.
+
+ - Available Data Field Type
+
+ | Field Type | Definition |
+ |-----------------|-------------------------------------------------------------------------------------------------------------|
+ | String | Text data of a fixed length (up to 8192 bytes) |
+ | Unicode String | A field representing a Unicode (16 bits per character) string. |
+ | Boolean | A Boolean value. |
+ | Integer | Whole numbers in the range of long integers (32 bits). |
+ | Currency | Currency values with the same range as the Real data type. |
+ | Bcd | Real numbers with a fixed number of digits after the decimal point. |
+ | Date | A date value. |
+ | Blob | Binary data with no size limit (BLOB stands for binary large object). The theoretical maximum limit is 2 GB. |
+ | Memo | Text of arbitrary length. |
+
+ :::warning
+
+ - Only String data can increase the field size so plan properly before add the field.
+ - User can't change from 1 data type to another once it save.
+ - Avoid create too many UDF field as it will reduce system performance & take longer time to save 1 data entry.
+
+ :::
+
+ 
+
+8. Select the Item just created (eg. Calc-Field)
+9. Click Ok button
+10. Right Click at User again
+
+ 
+
+11. Select New Quick Form
+
+ 
+
+12. Click New button
+
+ 
+
+13. Enter any Description to be shown at Maintain User(eg Info) in the **Description** field (Only Alphanumeric & no spacing)
+14. Click Customize button (Icon 1)
+15. Drag the UDF Field from the **Available Items** (Icon 2) to empty space (Icon 3)
+16. Click **Close** button to **Customize** windows
+17. Click Save (Icon 4) after done
+18. Close the windows.
+
+ 
+
+19. Select the Item just created (eg. Info)
+20. Click Ok button
+
+ 
+
+21. Done.
+
+### Script
+
+> This is Additional Module(DIY Script Module) which allow user to
+>
+> override or customise the SQL System.
+> The Language use is **Pascal**
+
+
+
+- Available forms to customise :
+
+| Form Type | Example | Description |
+|------------|-----------------------|---------------------------------------------------|
+| Browse Form |  | Script Run/Execute when in Browse window form |
+| Entry Form |  | Script Run/Execute when in Data Entry window form |
+| Param Form |  | Script Run/Execute when at in Icon 1 (Seldom use) |
+| Data Form |  | Script Run/Execute when at in Icon 2 (Frequently use) |
+
+- Available Action/Event
+
+| Action/Event | Description |
+|------------------|-----------------------------------------------------------------------------|
+| OnOpenForm | The script trigger On Open the Form (eg. On Open the Sales Invoice Form) |
+| OnApply | The script trigger After Click Apply button (for Data Form) |
+| OnBeforeOpen | The script trigger On Before the Form Open |
+| OnAfterOpen | The script trigger On After the Form Open |
+| OnNew | The script trigger after the build-in New Button action Execute |
+| OnBeforeEdit | The script trigger before the build-in Edit Button action Execute |
+| OnAfterEdit | The script trigger after the build-in Edit Button action Execute |
+| OnBeforeDelete | The script trigger before the build-in Delete Button action Execute |
+| OnAfterDelete | The script trigger after the build-in Delete Button action Execute |
+| OnBeforeCancel | The script trigger before the build-in Cancel Button action Execute |
+| OnAfterCancel | The script trigger after the build-in Cancel Button action Execute |
+| OnBeforeSave | The script trigger before the build-in Save Button action Execute |
+| OnAfterSave | The script trigger after the build-in Save Button action Execute |
+
+#### Example 1 - List Serial Number in Stock Physical Worksheet
+
+Below is Example are doing following actions
+
+ - After apply **Stock Physical Worksheet** will auto Create New Tab
+ - List all the Serial Number in the new Grid
+
+**Level : Advance**
+
+
+
+1. Right Click at Stock Physical Worksheet - Data Form
+
+ 
+
+2. Select New Script
+
+ 
+
+3. Select OnApply
+4. Click OK button
+
+ 
+
+5. Click New Button
+
+ 
+
+6. Enter any description (eg Stock_Physical_Worksheet-DataForm-OnApply) in the Description field (Only Alphanumeric & no spacing)
+7. Copy below script & paste to the Script Field
+
+ Options (Acc) - click to expand
+ +*Menu: Tools | Options...* + +Settings for the following: + +1. General +2. BarCode +3. Miscellaneous +4. Unit Price +5. General Ledger +6. Customer +7. Supplier + + + +### General + +- Automation Server Registration - Use to register/communicate to the external application via Windows platform. + +  + +### Bar Code + +- To define the cash drawer setting with a compatible device, eg. cash drawer. + + + +- To define the barcode setting with a compatible device, eg. barcode printer. + + + +### Miscellaneous + +Others setting. + + + +#### To set the display format + +- To understand the display format. See the below picture: + + + +| Numbering Type | Display Format | Example | +|-----------------------------|--------------------|---------| +| Accounting Value | #,0.00;(#,0.00) |Amount/DR/CR display format
Positive value = 1,000.00
Negative value = (1,000.00)
|
+| Currency Rate | #,0.0000 | Positive value = 1,000.00
Negative value = (1,000.00)
Exchange Rate display format, e.g. 1 USD = 4.2334 MYR
|
+| Stock Quantity | #,0.00;-#,0.00 | Qty display format
Qty In = 2.00 units
Qty Out = -2.00 units
|
+| Item Selling Price | #,0.00;-#,0.00 | Qty In = 2.00 units
Qty Out = -2.00 units
Sales Unit Price display format, e.g. unit selling price = 25.53
|
+| Item Purchase Price / Costing | #,0.00;-#,0.00 | Purchase Unit Price and Total Cost display format, e.g. unit purchase price = 15.33
|
+
+#### Merge Same Item Code
+
+1. Tick this option to merge same items quantity and amount when you print the documents, eg. sales invoice, cash sales, etc.
+2. Conditions:
+
+- a. Same item Code;
+- b. Same UOM;
+- c. Same Unit Price;
+- d. Sames Disc;
+- e. Same Tax Code.
+
+
+
+#### Prompt Negative Stock Quantity Dialog Box
+
+- Tick this option the system will prompt alert message if the stock below quantity on hand or below re-order level or below minimum quantity in the sales documents.
+
+
+
+#### Show Document Project
+
+1. Tick this option to enable to select the document project.
+2. See the example in the screenshot below.
+
+
+
+#### Runtime Stock Costing Calculation for Stock Document
+
+1. To enable to execute the costing calculation when print the stock documents reports (report name ended with Actual Cost) in the Stock Issue, Stock Adjustment and Stock Transfer (available in multiple warehouse module).
+2. See the example of stock issue as shown in the screenshot below.
+
+
+
+#### Prompt Duplicate Cheque Number
+
+- To alert a message if duplicate cheque number are try to save in Payment Voucher/Official Receipt.
+
+ 
+
+#### Use Doc Date For Acceptable Transactions Date Checking
+
+1. System will use document date instead of post date to check and allow to save the document based on the allow date set in Maintain Acceptable Transaction Date.
+2. For instance, the document date = 01/01/2016 and post date = 17/02/2016. System will not allow to save this document fall outside the acceptable transaction date (ie. 01/02/2016 - 29/02/2016). See the screenshot below.
+
+ 
+
+#### Post Audit Trail for Stock/Sales/Purchase Detail
+
+- To audit log the changes has been made in Sales and Purchase detail.
+
+
+
+#### Default UOM
+
+- Default the base UOM when create new item in Maintain Stock Item.
+
+
+
+### Unit Price
+
+- To set the unit price priority apply to the sales/purchase/stock documents when select the item code for a customer/supplier.
+
+- Sales
+
+
+
+- Purchase
+
+
+
+- Stock
+
+
+
+- Cash Sales
+
+
+
+- Cash Purchase
+
+
+
+### General Ledger (GL)
+
+- It is important to define the setting correctly in the new database created.
+
+
+
+**Financial Start Period**
+ To define the company Financial Start Date, eg. 01/01/2016 (system will be notified New Financial Start Date at 1st January every year).
+
+**System Conversation Date**
+ System conversation date from other system or new company database setup.
+
+**Default Account**
+ Default account use to auto posting by the system.
+
+| Default Account | Account | Explanation |
+|--------------------------------------|-----------|-----------------------------------------------------------------------------|
+| Foreign Exchange Rate Gain Account | 530-000 | Foreign Exchange Rate Gain auto posting from Customer and Supplier Payment. |
+| Foreign Exchange Rate Loss Account | 980-000 | Foreign Exchange Rate Loss auto posting from Customer and Supplier Payment. |
+| Bank Charge Account | 902-000 | Bank charge auto posting from GL Cash Book Entry, Customer and Supplier Payment if entered in the bank charge field. |
+| Contra Account | 450-000 | Applicable to Customer and Supplier Contra. |
+| Sales Account | 500-000 | Default sales account in Sales Invoice and Debit Note if empty item code. |
+| Cash Sales Account | 500-000 | Default cash sales account in Sales Cash Sales if empty item code. |
+| Sales Returns Account | 510-000 | Default sales returns account in Sales Credit Note if empty item code. |
+| GST-Output Tax Prepaid | GST-103 | Applicable to 21 Days Rules and Non-Refundable Deposit. |
+| GST-Sales Deferred Tax | GST-202 | Applicable to Bad Debt Relief and Bad Debt Recovered related to Customer. |
+| Purchase Account | 610-000 | Default purchase account in Purchase Invoice and Debit Note if empty item code. |
+| Cash Purchase Account | 610-000 | Default cash purchase account in Purchase Cash Purchase if empty item code. |
+| Purchase Return Account | 612-000 | Default purchase returns account in Purchase Returns if empty item code. |
+| GST-Purchase Deferred Tax | GST-102 | Applicable to Bad Debt Relief and Bad Debt Recovered related to Supplier. |
+| GST-Payable (Kastam) | GST-KASTAM| RMCD accounts. |
+| Unclaimable GST Account | GST-301 | Applicable to Mixed Supplies only. |
+
+#### Default Journal
+
+1. To classify the transactions into the Journal created in Maintain Journal. Usually leave it as default.
+2. It is very useful for applying the Journal of Transactions Listing and Summary report.
+
+ 
+
+3. Below is the default journal list:-
+
+| Default Journal | Journal |
+|----------------------------------|-----------|
+| Bank Journal | BANK |
+| Cash Journal | CASH |
+| Journal Entry | GENERAL |
+| Foreign Bank Adjustment | BANK |
+| Foreign Exchange Rate Gain/Loss | GENERAL |
+| Customer/Supplier Contra | GENERAL |
+| Customer Invoice | SALES |
+| Customer Cash Sales | SALES |
+| Customer Credit Note | SALES |
+| Customer Debit Note | SALES |
+| Supplier Invoice | PURCHASE |
+| Supplier Cash Purchase | PURCHASE |
+| Supplier Credit Note | PURCHASE |
+| Supplier Debit Note | PURCHASE |
+
+### Customer
+
+- It is important to define the Customer setting in the new database created.
+
+
+
+**Default Control Account**
+ Default control account when create new customer in Maintain Customer.
+
+
+
+**Default Credit Terms**
+ Default credit terms when create new customer in Maintain Customer.
+
+
+
+**Default Credit Limit**
+ Default credit limit value when create new customer in Maintain Customer.
+
+
+
+**Default Output Tax**
+ Default output tax code when create new customer/sales documents entry, eg. customer invoice, customer debit note, etc.
+
+
+
+#### **Customer Account Code Format**
+
+1. To Define the customer code format.
+2. Format explanation as per below.
+
+
+
+| Ref | Code Format | Explanation |
+|-----|-------------|--------------------------------------------------------------------|
+| A | %.3s- | First number of digits from Customer Control Account code. |
+| B | %.1s | First character from Customer Name. |
+| C | %.4d | Sequence running number. |
+
+**Example 1:**
+ a. Customer Control Account = 300-000
+ b. Customer Name = ALI BABA SDN BHD
+
+ | Code Format | Result |
+ |-------------|--------|
+ | %.3s- | 300- |
+ | %.1s | A |
+ | %.4d | 0001 |
+ c. Customer Code = 300-A0001
+
+**Example 2:**
+ a. Customer Control Account = 3001-0000
+ b. Customer Name = ALI BABA SDN BHD
+
+ | Code Format | Result |
+ |-------------|--------|
+ | %.4s/ | 3001/ |
+ | %.2s | AL |
+ | %.2d | 01 |
+ c. Customer Code = 3001-AL01
+
+#### **Exceptional Customer Code Format (Regular Expression)**
+
+1. Copy and paste the below regular express line into Customer Format field (see the screenshot below).
+
+ ```sql
+
+ "%.3s"-"(?i)\b(?!sykt\b|persatuan\b)(?![-.,\s]).{1,1}""%.4d"
+
+ ```
+
+
+
+**Example 1:**
+ a. Customer Name: SYKT ALI
+ b. Keyword excluded: sykt (non-case sensitive)
+ c. Customer Code= 300-A0001
+
+**Example 2:**
+ a. Customer Name: PERSATUAN KLANG
+ b. Keyword excluded: persatuan (non-case sensitive)
+ c. Customer Code= 300-K0001
+
+#### Default Customer Aging Format
+
+1. Set a default customer aging format to show the aging result at **Inquiry | Account Inquiry (Customer)**.
+
+2. Customer aging format list:
+ a. Cust-Multi-F1-06 Mths Statement-Current,1 Mth,...
+ b. Cust-Multi-F2-06 Mths Statement-Current,1 Mth,...
+ c. Cust-Multi-F1-12 Mths Statement-Current,1 Mth,...
+ d. Cust-Multi-F2-12 Mths Statement-Current,1 Mth,...
+
+
+
+**Use Cash Sales No. for Payment Received**
+ Use Cash Sales No as the official receipt no for cash sales only.
+
+
+
+#### Perform Tax / Local Amount Rounding
+
+1. Choose a method to calculate the tax amount consistently.
+2. By default, it is always **untick**.
+ A. Once Cent Different: Untick (by Default)
+
+ It is **total of tax amount from each detail amount** multiply by GST 6%.
+ **Total Tax Amount** = 20.00 + 24.62 + 0.73 + 7.39 +1.94 = 54.68
+
+ | Items | Amount | Tax | Tax Amount | Total |
+|--------|--------|-----|------------|--------|
+| Item 1 | 333.33 | SR | 20.00 | 353.33 |
+| **Item 2** | **410.37** | **SR** | **24.62** | **434.99** |
+| Item 3 | 12.13 | SR | 0.73 | 12.86 |
+| Item 4 | 123.15 | SR | 7.39 | 130.54 |
+| Item 5 | 32.26 | SR | 1.94 | 34.20 |
+| **Total** | **911.24** | | **54.68** | **965.92** |
+
+B. One Cent Different: Tick
+ It is based on **total document amount** to multiply with GST 6%.
+ **Total Tax Amount based on itemized** = 20.00 + 24.62 + 0.73 + 7.39 + 1.94 = **54.68**
+ **Total Tax Amount based on total amount** = 911.24 x 6% = 54.67
+ Differences = 54.68 - 54.67 = **0.01**
+ Therefore, the system will perform **auto rounding mechanism** to the largest value (ie. item 2 = 24.62-0.01 = **24.61**).
+
+| Items | Amount | Tax | Tax Amount | Total |
+|-----------|---------|-----|------------|---------|
+| Item 1 | 333.33 | SR | 20.00 | 353.33 |
+| **Item 2** | **410.37** | **SR** | **24.61** | **434.98** |
+| Item 3 | 12.13 | SR | 0.73 | 12.86 |
+| Item 4 | 123.15 | SR | 7.39 | 130.54 |
+| Item 5 | 32.26 | SR | 1.94 | 34.20 |
+| **Total** | **911.24** | | **54.67** | **965.91** |
+
+**5 Cents Rounding (Sales Invoice)**
+ This option will auto insert an items code **RTN5Cents** to adjust the total invoice amount if found the total amount not in simple rounding.
+
+
+
+**5 Cents Rounding (Cash Sales)**
+ This option will auto insert an items code **RTN5Cents** to adjust the total cash sales amount if found the total amount not in simple rounding.
+
+
+
+### Supplier
+
+
+
+Supplier - click to expand
+ +- It is important to define the Supplier setting in the new database created. + + + +**Default Control Account** + Default control account when create new supplier in Maintain Supplier. + + + +**Default Credit Terms** + Default credit terms when create new supplier in Maintain Supplier. + + + +**Default Credit Limit** + Default credit limit value when create new supplier in Maintain Supplier. + + + +**Default Input Tax** + Default input tax code when create new supplier/purchase documents entry, eg. supplier invoice, supplier debit note, etc. + + + +#### Supplier Account Code Format + + 1. To Define the supplier code format. + 2. Format explanation as per below. + + + +| Ref | Code Format | Explanation | +|-----|-------------|--------------------------------------------------------------| +| A | %.3s- | First number of digit from **Supplier Control Account code**. | +| B | %.1s | First number of characters from **Supplier Name**. | +| C | %.4d | Sequence running number. | + +**Example 1:** + +1. Supplier Control Account = **400-000** +2. Supplier Name = **ALI BABA SDN BHD** + + | Code Format | Result | + |-------------|--------| + | %.3s- | 400- | + | %.1s | A | + | %.4d | 0001 | + +3. Supplier Code = **400-A0001** + +**Example 2:** + +1. Supplier Control Account = **4001-0000** +2. Supplier Name = **ALI BABA SDN BHD** + + | Code Format | Result | + |-------------|--------| + | %.4s/ | 4001/ | + | %.2s | AL | + | %.2d | 01 | + +3. Supplier Code = **4001-AL01** + +#### Exceptional Supplier Code Format (Regular Expression) + + 1. Copy and paste the below regular express line into Supplier Format field (see the screenshot below). + + ```sql + "%.3s"-"(?i)\b(?!sykt\b|persatuan\b)(?![-.,\s]).{1,1}""%.4d" + ``` + + + +**Example 1:** + +1. Supplier Name: SYKT TAN & SON +2. Keyword excluded: **sykt** (non-case sensitive) +3. Supplier Code= **400-T0001** + +**Example 2:** + +1. Supplier Name: PERSATUAN BOLA SEPAK +2. Keyword excluded: persatuan (non-case sensitive) +3. Supplier Code= **400-B0001** + +#### Default Supplier Aging Format + +1. Set a default supplier aging format to show the aging result at **Inquiry | Account Inquiry (Supplier)**. +2. Supplier aging format list: + + - Supp-Multi-F1-06 Mths Statement-Current,1 Mth,... + - Supp-Multi-F2-06 Mths Statement-Current,1 Mth,... + - Supp-Multi-F1-12 Mths Statement-Current,1 Mth,... + - Supp-Multi-F2-12 Mths Statement-Current,1 Mth,... + + + +**Use Cash Purchase No. for Payment Paid** + Use Cash Purchase No as the payment voucher no for cash purchase only. + + + +
+
+
+8. Click Save (the Blue Disc Icon)
+9. Close the window.
+
+ 
+
+10. Select the Item just created (eg. Stock_Physical_Worksheet-DataForm-OnApply)
+11. Click OK button
+
+ 
+
+12. Click Stock | Print Stock Physical Worksheet | Apply
+
+### Example 2 - Set Default Filtering for Sales
+
+Below is Example are doing following actions
+
+- Filter by Agent in Sales Profit & Loss By Document
+- Disable Selection for Agent
+
+**Leve l : Basic**
+
+1. Right Click at **Sales Profit & Loss By Document - Param Form**
+2. Select **New Script**
+3. Select OnOpenForm
+4. Click OK button
+5. Click New Button
+6. Enter any description (eg SL-PnL-ParamForm-OnOpen) in the Description field (Only Alphanumeric & no spacing)
+7. Copy below script & paste to the Script Field
+
+ DataForm-OnApply Script
+ + ```sql + + uses Forms, Dialogs, DataProcessor, DBClient, cxGridDBTableView, cxGrid, cxGridLevel, + xQuery, Math, ComObj, SysUtils, DateUtils; + + var M, SN : TDataSet; + dsGrid : TDatasource; + FcxGrid : TcxGrid; + gvGrid : TcxGridDBTableView; + lTime : TDateTime; + cdsOutput : TClientDataset; + lDisplayFormat, S : String; + + procedure SetNumericDisplayFormat(AClientDataSet: TClientDataSet); + var f : TFMTBCDField; + f1 : TFloatField; + i : Integer; + DT : TFieldType; + begin + for i := 0 to AClientDataSet.FieldCount - 1 do begin + DT := AClientDataSet.FieldDefs.Items[i].DataType; + if DT = ftFMTBcd then begin + f := TFMTBCDField(AClientDataSet.Fields.Fields[i]); + if not (f = nil) then f.DisplayFormat := lDisplayFormat; + end; + if DT = ftFloat then begin + f1 := TFloatField(AClientDataSet.Fields.Fields[i]); + if not (f1 = nil) then f1.DisplayFormat := lDisplayFormat; + end; + end; + end; + + procedure PrepareNewTab; + begin + FcxGrid.RootLevelOptions.DetailTabsPosition := dtpTop; + gvGrid := FcxGrid.CreateView('TcxGridDBTableView') as TcxGridDBTableView; + with FcxGrid.Levels.Add do begin + Caption := 'Calc'; + GridView := TcxCustomGridView(gvGrid); + Active := True; + end; + + with gvGrid do begin + Name := 'Restricted_1'; + OptionsCustomize.ColumnFiltering := True; + OptionsView.ColumnAutoWidth := False; + OptionsView.Footer := True; + OptionsView.GroupByBox := False; + OptionsBehavior.IncSearch := True; + DataController.DataSource := dsGrid; + OptionsData.Editing := False; + end; + end; + + procedure TuneGrid; + var i : integer; + DT : TFieldType; + begin + SetNumericDisplayFormat(cdsOutput); + with gvGrid.DataController do begin + DataSource := dsGrid; + CreateAllItems(False); + end; + with gvGrid do begin + //Hide Columns + //GetColumnByFieldName('DtlKey').Visible := False; + //Rename Columns Caption + GetColumnByFieldName('ItemCode').Caption :='Item Code'; + end; + + with gvGrid.DataController.Summary do begin + BeginUpdate; + try + with TcxGridDBTableSummaryItem(FooterSummaryItems.Add) do begin + Column := gvGrid.Columns[0]; + Position := spFooter; + Kind := skCount; + Format := 'Count = #'; + end; + for i := 0 to cdsOutput.FieldDefs.Count-1 do begin + DT := cdsOutput.FieldDefs.Items[i].DataType; + if (DT = ftFMTBcd) or (DT = ftFloat) then begin + with TcxGridDBTableSummaryItem(FooterSummaryItems.Add) do begin + Column := gvGrid.Columns[i]; + Position := spFooter; + Kind := skSum; + Format := lDisplayFormat; + end; + end; + end; + finally + EndUpdate; + end; + end; + gvGrid.ApplyBestFit(nil, False, False); + end; + + procedure CreateXMLTable; + begin + if Assigned(cdsOutput) then + cdsOutput.Free; + cdsOutput := TClientDataSet.Create(FcxGrid); + cdsOutput.FieldDefs.Assign(SN.FieldDefs); + cdsOutput.CreateDataSet; + dsGrid.DataSet := cdsOutput; + end; + + procedure AppendData; + var i : integer; + begin + M.First; + while not M.Eof do begin + SN.DisableControls; + SN.First; + While not SN.Eof do begin + cdsOutput.Append; + for i:=0 to SN.FieldDefs.Count-1 do + cdsOutput.FindField(SN.FieldDefs.Items[i].Name).Value := SN.FindField(SN.FieldDefs.Items[i].Name).Value; + cdsOutput.Post; + SN.Next; + end; + SN.EnableControls; + M.Next; + end; + end; + + begin + M := Self_DataProcessor.GetDataSetByName('Main'); + SN := Self_DataProcessor.GetDataSetByName('SerialNumber'); + FcxGrid := TcxGrid(Self.FindComponent('cxGrid1')); + dsGrid := TDataSource.Create(M); + + lTime := now; + s := 'Stock Physical Worksheet'; + lDisplayFormat := '#,0.00;-#,0.00;-'; + + + try + Self.Caption := s + '- Prepare Tab'; + PrepareNewTab; + Self.Caption := s + '- Prepare XML'; + CreateXMLTable; + Self.Caption := s + '- Append Data'; + AppendData; + Self.Caption := s + '- Tuning Grid'; + TuneGrid; + finally + + lTime := Now - lTime; + Self.Caption := Format(s + ' - [Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]); + end; + end. + + ``` + +
+
+
+8. Click Save (the Blue Disc Icon)
+9. Close the window.
+10. Select the Item just created (eg. SL-PnL-ParamForm-OnOpen)
+11. Click OK button
+12. Click Sales | Print Profit & Loss By Document...
+
+### Example 3 - Drop Down List at Maintain User
+
+Below is Example are doing following actions
+
+- Create a drop down list of Project List at Maintain User for UDF_Project
+**Level : Advance**
+
+1. Right Click at User - Entry Form
+2. Select New Script
+3. Select OnOpenForm
+4. Click OK button
+5. Click New Button
+6. Enter any description (eg UserEntryForm-OnOpen) in the Description field (Only Alphanumeric & no spacing)
+7. Copy below script & paste to the Script Field
+
+ Param Form - OnOpenForm Script
+ + ```sql + + uses SysUtils, Dialogs, Forms; + + var C, D : TControl; + L: TStringList; + begin + C := Self.FindChildControl('edAgent_Panel') as TWinControl; + L := TStringList.Create; + try + if C <> nil then C.Enabled := False; // Disable Selection + C := TWinControl(C).FindChildControl('edAgent_Edit') as TWinControl; + L.Add('NF'); + L.Add('LF'); + (C as TControl).SetTextBuf(L.CommaText);//For Multi Records + // (C as TControl).SetTextBuf('LF');//For 1 record + finally + L.Free; + end; + end. + + ``` + +
+
+
+8. Click Save (the Blue Disc Icon)
+9. Close the window.
+10. Select the Item just created (eg. UserEntryForm-OnOpen)
+11. Click OK button
+12. Click Tools | Maintain User...
+
+## SQL Control Center
+
+*Menu: Tools | DIY | SQL Control Center...*
+
+### Create new field (DIY Fields Module)
+
+:::info DIY Fields
+This is a paid module.
+:::
+
+- This Additional Module(DIY Fields Module) where user can self Create new User Define Field(s)
+
+- Available Data Field Type
+
+| Field Type | Definition |
+|------------|------------|
+| String | Text data of a fixed length (up to 8192 bytes) |
+| Boolean | A Boolean value. |
+| Integer | Whole numbers in the range of long integers (32 bits). |
+| Currency | Currency values with the same range as the Real data type (Max 4 decimal point). |
+| Float | Real numbers with a fixed number of digits after the decimal point. |
+| Date | A date value. |
+| Picture | A Picture Value. |
+| Memo | Text of arbitrary length. |
+
+- For Explanation for Each Data Type may refer to
+[w3schools](http://www.w3schools.com/sql/sql_datatypes_general.asp)
+
+:::warning
+
+- Avoid use Picture data if can as it will cause your database size increase very fast.
+- Only String data can increase the field size so plan properly before add the field.
+- User can't change from 1 data type to another once it save.
+- Avoid create too many UDF field as it will reduce system performance & take longer time to save 1 data entry. (Recommended Max is 30 UDF Fields)
+- Avoid Create String data with too large size. (Recommended Max is 200)
+
+:::
+
+- User can create DIY Fields either at Header Fields or Item Fields
+- In each Table had the below interface
+
+
+
+| Name | Description |
+|---------------|-------------|
+| Name | Field name. Only alphanumeric, no spacing. |
+| Data Type | Type of Field. |
+| Size | The Field Size. Only applicable for Float, Integer & String Data Type. |
+| Sub Size | The Field Sub Size (normally the decimal point). Only applicable for Float Data Type. |
+| Caption | Field name to be shown at user interface. |
+| Required | The current field MUST not be empty. |
+| Default Value | Default value to insert on new record. |
+| Display Format | Set display format for Float, Currency & Integer Data Type. |
+| Load | Reload the script from the Database (only for DIY Script). |
+| Load From File | Load Script/Fields from a text file. **Be careful**: system will delete existing field before loading. |
+| Save | Save current Script/Field. Do not Delete, Rename & Insert at the same time (only for DIY Fields). |
+| Save To File | Save current Script/Fields to a text file. |
+| + Button | Add new field. |
+| - Button | Delete selected field. |
+
+#### Header Fields
+
+Below is the example for Sales Invoice
+
+**Add New Fields**
+
+ 
+
+1. At the left panel look for **Sales Invoice | Header Fields**
+2. Click the + Button on top to add New fields as above picture
+3. Click Save button
+
+#### Design Layout
+
+ They are 2 ways to creating the Layout for new fields added.
+
+ 
+
+### Advance Form Design
+
+ This mode is only for the user who known how to use the Delphi.
+
+ * **Pros**
+
+ - Freely adjust & place the component.
+
+ * **Cons**
+
+ - Not Easy to design
+ - Not support Date & Picture Data Type
+
+1. Select **New Advance Form Design**
+
+ 
+
+2. Enter the name (eg Freight Info) this will shown in the Sales Invoice Data Entry
+3. Click OK
+4. Click the **Freight Info** (name create at **Step 3** above) on the left panel
+
+ 
+
+ 
+
+ - This Standard component is just for Fixed labeling or decoration
+
+ - The detail of each button can be refer to [delphibasics](http://www.delphibasics.co.uk/Article.asp?Name=Standard)
+
+ 
+
+ - This Data Controls component is use for Variable data which can be use at Data Entry
+
+ - Below is the detail of each button (From Left)
+
+ | Component | Purpose |
+ |---------------|-------------------------------------------------------------------------|
+ | DBText | Data-aware label that can display a field from a currently active record. |
+ | DBEdit | Data-aware edit box that can display or edit a field from a currently active record. |
+ | DBMemo | Data-aware memo box that can display or edit text BLOB data from a currently active record. |
+ | DBImage | Data-aware image box that can display, cut, or paste bitmapped BLOB images to and from a currently active record. |
+ | DBListBox | Data-aware list box that can display values from a column in a table. |
+ | DBCheckBox | Data-aware check box that can display or edit a Boolean data field from a currently active record. |
+ | DBRichEdit | Data-aware Rich Text Editor that can display or edit text BLOB data from a currently active record. |
+ | cxDBSpinEdit | Data-aware edit box that can display or edit Integer or Float data from a currently active record. |
+
+ :::success Normally we only use
+ **Standard** Tab component
+
+ - Label - For Labeling each field
+ **Data Controls** Tab component
+ - DBEdit - For String Data
+ - DBRichEdit - For Memo Data
+ - cxDBSpinEdit - For Currency, Float or Integer Data
+ :::
+
+5. Click the **Standard** Tab & select Label button place on thee right panel
+6. In the **Object Inspector** look for
+
+ - Caption & set to the Caption you like (eg Container Number)
+ - Font & set the Size to 12 or any size you prefer
+
+ 
+
+7. Click the **Data Controls** Tab & select DBEdit button place on thee right panel
+8. In the **Object Inspector** look for
+
+ - **DataField** & set to the UDF field name (normally is UDF_FieldName) (eg UDF_ContainerNo)
+ - **Font** & set the **Size** to 12 or any size you prefer
+
+ 
+
+9. Continue repeat Step 6 till Step 8 for rest of the UDF field.
+10. Click Save button after done.
+
+ - **Quick Form Design (Recommended)**
+
+ - This mode is for the user who don't known how to use the Delphi.
+
+ **Pros**
+ - Easy to Design
+
+ **Cons**
+ - Unable to freely adjust & place the component.
+ - Not support Rich Text Editor.
+
+11. Select New Quick Form Design
+
+ 
+
+12. Enter the name (eg Freight Info) this will shown in the Sales Invoice Data Entry
+13. Click OK
+14. Click the **Freight Info** (name create at **Step 3** above) on the left panel
+
+ 
+
+15. Click Customise button.
+16. Drag the UDF Field from the **Available Item** dialog box & drop to Right Panel
+17. Continue repeat **Step 7** for rest of the UDF field.
+18. Click Save button after done.
+
+**Item Fields**
+ There is no layout need to be design for Item Field UDF. You can drag out all the UDF field in the Field Chooser in the data Entry
+
+- **Add New Fields**
+
+1. At the left panel look for Sales Invoice | Item Fields
+2. Click the + Button on top to add New fields as above picture
+3. Click Save button
+
+ 
+
+4. Drag the UDF field from the Customization Dialog
+5. Drop it the column you wanted to shown (eg In between Description Column & Qty Column)
+
+## DIY Authenticator
+
+*Tools | DIY | DIY Authenticator...*
+
+This function is use to **lock** the [Maintain DIY Module](#maintain-diy) so only **authorised person** allow to access.
+
+#### Requirements
+
+- Mobile Phone with Camera
+- QR Reader Application
+- Google Authenticator
+
+#### Setup
+
+1. Enter account name or use default name. This will be shown in Google Authenticator list.
+
+ 
+
+2. Enter a Access ID. This use by the system to pairing with the Google Authenticator.
+
+ 
+
+3. Select the Device you wanted to use to Scan with.
+
+ 
+
+4. Use the Google Authenticator to scan the QR barcode.
+5. Enter the Code generated by the Google Authenticator.
+6. Click Pair.
+
+ 
+
+7. System will prompt below dialog if successfully pairing.
+
+ 
+
+Each time user Click the [Maintain DIY](#maintain-diy) it will prompt below dialog for Verification Code.
+
+ 
+
+#### Remove Locking
+
+1. Click Tools | DIY | DIY Authenticator....
+2. Enter the Verification Code.
+
+ 
+
+3. System will prompt below option.
+4. Click Remove Access ID.
+
+ 
+
+ | **Option Name** | **Properties** |
+ |-----------------------|-----------------------------------------------|
+ | **Remove Access ID** | To permanently unlock the Maintain DIY |
+ | **Recover Access ID** | To retrieve the current Access ID |
+ | **Reset Access ID** | To recreate a new Access ID |
+
+5. System will prompt below dialog if successfully unlock
+
+
+
+:::warning
+Make sure you had keep few copy of QRCode as once you lost all we not able to retrieve back the Access ID
+:::
+
+> More Customisations at [SQL Control Center](/usage/customisation/sqlControlCenter)
\ No newline at end of file
diff --git a/docs/usage/Tools/faq.md b/docs/usage/Tools/faq.md
new file mode 100644
index 00000000..c28f56fd
--- /dev/null
+++ b/docs/usage/Tools/faq.md
@@ -0,0 +1,277 @@
+---
+sidebar_position: 2
+title: Tools FAQ
+description: Frequently Asked Questions in Tools
+slug: /usage/tools/faq
+tags: ["SQL Account", "Usage", "Tools","Currency","Module"]
+---
+
+## Can I set my first year financial period longer than 12 months (e.g., 18 months)?
+
+Yes. You can set your first financial period for more than 12 months (e.g., from 1st July 2014 to 31st December 2015). --> [learn more here](#set-first-year-account-more-than-12-months)
+
+## DIY Fields FAQ
+
+Entry Form - OnOpen Script
+ + ```sql + uses Forms, StdCtrls, DBCtrls, Dialogs, ComObj, DBClient; + + Var edProject : TDBLookupComboBox; + btnCPassword : Tbutton; + M, dsList : TDataSource; + lbProject : TComponent; + C : TControl; + FComServer : Variant; + cdsList : TClientDataset; + + function ComServer: Variant; + begin + if FComServer = Null then begin + FComServer := CreateOleObject('SQLAcc.BizApp'); + end; + Result := FComServer; + end; + + procedure GetList; + var lSQL : String; + begin + FComServer := null; + cdsList := TClientDataset.Create(C); + lSQL := 'SELECT Code, Description FROM Project WHERE IsActive=''T'' '; + + try + cdsList.Data := ComServer.DBManager.Execute(lSQL); + dsList.Dataset := cdsList; + finally + FComServer := null; + end; + end; + + begin + M := TDataSource(Self.FindComponent('dsMain')); + C := Self.FindChildControl('lbName'); + dsList := TDataSource.Create(C); + GetList; + if Assigned(C) then begin + edProject := TDBLookupComboBox.Create(C); + lbProject := TLabel.Create(C); + + with TLabel(lbProject) do begin + Parent := C.Parent; + Caption := '&1. Project :'; + Left := 200; + Top := 68; + FocusControl := edProject; + end; + + with edProject do begin + Parent := C.Parent; + Top := 65; + Left := 260; + Width := 120; + Name := 'edProject'; + Datasource := M; + ListSource := dsList; + DataField :='UDF_Project'; + DropDownWidth := 500; + KeyField := 'Code'; + ListFieldIndex := 1; //Search By Description + ListField := 'Code;Description'; //Show 2 Column + end; + end; + end. + + ``` + +
+
+
+## Set First Year Account more than 12 Months
+
+DIY Fields FAQ - click to expand
+ +### Can I show the detail fields in Header? + +**Yes** , but with the following condition + +* Only available in Advance Form Design +* The Data will change/run base on the last selected Record in the Detail Grid + +1. Open the Form you want to Add (eg Sales | Sales Invoice) +2. Open the [Advance form](/usage/tools/guide#advance-form-design) +3. Design as usual except you need to select **DataSource** + +  + +4. Select the XXXXX.YYYYY.dsDocDetail + +### Can I have option selection for 1 UDF? + +**Yes** , using **Advance Form Design** + +Steps : + +1. Open the Form you want to Add (eg Sales | Sales Delivery Order) +2. Open The Advance form [Advance form](/usage/tools/guide#advance-form-design) +3. Design as usual for Label +4. For the UDF you wanted to have option + + + +
+
+
+## Advanced Currency Module
+
+Set First Year Account more than 12 Months - click to expand
+ +* This guideline is to guide how to setup your first year account if it is more than 12 month , below example given is first year account in 18 months. + +* First financial period will in 18 month from 1st July 2014 to 31st December 2015. + +:::warning CAUTION +You are advised to set your financial start period and system conversion date as below. +::: + +### Setup + +1. Go Tools > Option > General Ledger + + * Set your financial start period and system conversion date as 1/1/2014, so in the following year, you do not need to run year end to set again your financial start period & System conversion date. + +  + +2. Set profit & loss statement print in 18 months + +  + + 1. Right click as pointed + + 2. Select 640 x 480 to make your SQL Screen smaller + + 3. Highlight report name “this year-2column” click and drag it to desktop +  + + 4. From desktop click the report “This Year-2Column” drag it back to SQL report section. + + 5. Click ok +  + + 6. Double click on the new report name “ This year 2 column” in blue color. + + 7. Change Period Class to Fixed Date + + * Param 1 = Date from eg 1/7/2014 + * Param 2 = Date to eg 31/12/2015 + + 8. You can insert a report name for you easy to differentiate. + +
+
+
+
+:::success Advanced Currency Module FAQ
+ **How do I record transactions in a foreign bank account?**
+
+ **Why can’t I receive payment from a foreign customer in their currency?**
+
+ **How do I handle supplier payments in USD, EUR, etc.?**
+
+ **Do I need to activate any module to use foreign currency in SQL Accounting?**
+
+ **Why does my system show error when applying exchange rate in payment?**
+
+These questions goes to one solution , which is
+[Advanced Currency Module](/usage/tools/faq#advanced-currency-module)
+:::
+
+## Can I auto-post exchange gain/loss when using foreign banks?
+
+Yes, via [Advanced Currency](#advanced-currency-module) Module and [Gain/Loss setup](../../usage/tools/guide#payment-from-foreign-customer)
+
+**What is SQL Global Price Change and when should I use it?** → [SQL Global Price Change](/usage/tools/guide#sql-global-price-change)
+
+**Can I update prices for only specific stock groups or categories?** → [SQL Global Price Change by category](/usage/tools/guide#sql-global-price-change)
+
+## How to do Customer One Cent Rounding ?
+
+One Cent (0.01$) difference Rounding(Local Currency Fields) for all AR/SL(Subsidiary Ledger) Documents
+
+### Setup
+
+1. Go to Tools > Option > Customer
+
+ 
+
+ 1. Tick One Cent Different Rounding (Local Currency Fields) for all /AR/SL Documents **(Recommend)**
+
+ 2. Press OK
+
+2. Sales Invoice > New > Refer below screen
+
+ 
+
+ :::caution
+ But once you save you will notice the first line of the Tax Amount will be different, this is because system
+ using Total Amount of IV to calculate 6%. Refer below Screen:
+ :::
+
+ 
+
+ Formula: Sum up SubTotal with Tax, Multiple with 6% **(Note : system will exclude the Subtotal if the Tax Rate is 0%)**
+
+ Tax Amount Calc = RM 15.54 * 6% = 0.93, mostly system will reverse on first line of the Item.
+
+ :::note
+ If you don’t want system to help you to do the One Cent Rounding, please refer **Step 1** to **un-tick** the option will do.
+ :::
+
+## How to do Password Policy (with 2 Steps Verification) ?
+
+### Password Policy Setup
+
+Go to menu : **Tools > Options…** click on **Password Policy**.
+
+ 
+
+ You can choose the following password requirements:
+
+ * Maximum Password Age (days): number of days to **expire** and **change** password.
+ * Minimum Password Length: password length **cannot less** than the minimum,eg. 8.
+ * Save Password History (0-5): number of password history **not allow to re-use**
+ * Password combination of
+ * At least one Upper Case letter (A-Z)
+ * At least one Lower Case letter (a-z)
+ * At least one number (0-9)
+ * At least one non-alphanumeric character \!\$\%\^\&\*\(\)_\-\+\=\@\~\#\<\,\>\.\?
+
+## How to reset password for user ?
+
+1. Go to menu : **Tools > Maintain User**.
+
+2. Click on More (arrow key down), click **Reset Password**.
+
+ 
+
+3. New password auto generated.
+
+ 
+
+4. Press **Yes** (Copy password to clipboard = Tick).
+
+5. You can press **Ctrl + V** to paste the New Password into an email and send to the new user.
+
+## 2-Steps Verifications Login
+
+1. Go to menu : **File > 2-Steps Verification**.
+
+ 
+
+2. Enter your current password, press **Ok** to proceed.
+
+3. Choose an Authenticator device.
+
+ 
+
+4. Follow the instructions to install and setup the Authenticator on your hand-phone.
+
+5. Each time login, you will be required to enter the verification code generated by the Authenticator in your mobile phone.
+
+ 
+
+## How to set Running Document Number by Date/Year Format ?
+
+:::tip Sample:
+**PV0615/001** is actually (**PVmmyy/001**)
+:::
+
+### Steps and Instructions
+
+ **Step 1**
+
+Tools > Maintain Document No
+
+ **Step 2**
+
+Create New or amend from the existing
+
+
+
+ :::caution
+make sure the format is follow the sample attached
+ :::
+
+ **Step 3**
+
+
+
+
+
+:::info
+We can also set default running no at for default payment method
+:::
+
+ **Step 4**
+
+Go to tools > Maintain Payment Method
+
+
+
+
+
+:::info note
+vice versa for Official Receipt
+:::
diff --git a/docs/usage/customer-supplier.md b/docs/usage/customer-supplier.md
deleted file mode 100644
index aeac092e..00000000
--- a/docs/usage/customer-supplier.md
+++ /dev/null
@@ -1,191 +0,0 @@
----
-sidebar_position: 5
-title: Customer & Supplier
-description: Customer & supplier work flow
-slug: /usage/customer-supplier
-tags: ["SQL Account", "Usage", "Customer", "Supplier"]
----
-
-## Customer Work Flow (AR)
-
-Example of **customer (AR)** process work flow aligned with SQL Account flow:
-
-
-
-AR = Account Receivable
-
-## Customer Invoice
-
-### Customer Invoice vs Sales Invoice
-
-The difference between Customer Invoice and Sales Invoice:
-
-|**Customer Invoice**| **Sales Invoice**|
-|---|---|
-|shows only the accounts code and does not show Qty / Unit Price.| linked to the stock and account modules. Hence, we advise users who need to key in stock items to use Sales Invoice. Once the information in the Sales Invoice is updated, the information in the Customer Invoice will automatically be updated by the system.|
-
-
-
-### Create a new Customer Invoice
-
- 1. **Customer** | **Customer Invoice** | **New**
-
- 2. Select **Customer Code** | insert transaction and amount.
-
- 3. **Save**
-
- 
-
-## Customer Payment
-
-### Local Bank Payment
-
- :::info
- Watch tutorial video here: [Youtube](https://www.youtube.com/watch?v=IjHX5ys846I&feature=youtu.be)
- :::
-
- 1. **Customer** | **Customer Payment** | **New**
-
- 2. Select your **Customer**
-
- 3. Select the **bank for your account and cheque no** if applicable
-
- 4. Key in the **customer payment amount**
-
- 5. **Tick the corresponding invoice/debit note to be knocked off**
-
- 
-
-### Post Dated Cheque
-
- 1. Search for the payment that you want to edit, click on **Edit**, right click on Customer Payment, you will see **Set Posting Date**
-
- 
-
- 
-
-### Bounced Cheque
-
- 1. Search for the payment that you want to edit, click on **Edit**, right click on Customer Payment, you will see **Bounced Status**
-
- 
-
- 
-
- After bounced, system will auto revert the payment out, you can view your ledger.
-
- 
-
-## Customer Credit Note
-
-If the situation involves return stock from customer, please do Sales Credit Note and knock off it in Customer Credit Note as below step.
-
-1. **Customer** | **Customer Credit Note**
-
-2. **Edit** | Click **Yes**
-
-3. **Knocked off accordingly**.
-
- 
-
- If it does not involve with returned stock, e.g. discount given with
-
- 1. **Customer** | **Customer Credit Note** | **New CN**
-
- 2. **New** | Select **Customer** | Select **GL Account** | **Amount**
-
- 3. **Knocked off accordingly**.
-
- 
-
-## Customer Refund
-
-You can use this document to refund a customer. You can knock off with Customer Payment or Credit Note which have unapplied amounts.
-
-1. **Customer** | **Customer Refund**.
-
-2. Choose the **Customer** | Select your **Payment Method** | **Enter your Refund Amount**
-
-3. **Knock off the payment or credit note and save**.
-
- 
-
-## Customer Contra
-
-If you have a customer who is also a supplier, you may want to offset the outstanding customer and supplier invoices. This is known as a contra entry. You can offset the two invoices by using Customer Contra and Supplier Contra. This means that when you record the invoices as being paid, it will not affect your current bank account balance.
-
-**Scenario:**
-
-**If you have an outstanding sales invoice for RM200 and a purchase invoice for RM150 for the same customer or company, the actual amount owed to you is RM50 and the contra entry amount is RM150.**
-
-### Make sure you have a valid `Contra Account`
-
-1. Tools | Options
-
- 
-
-2. General Ledger | make sure you had chosen a valid Contra Account
-
- 
-
-### Contra Entry
-
- 1. Go Customer | Customer Contra
-
- 
-
- 2. Press on NEW
-
- 
-
- 2a. Select your Customer Code
-
- 2b. Enter your Contra Amount
-
- 2c. Knock off your Invoice
-
- 2d. Press on SAVE Button
-
- 
-
- 3. System will auto generated a Contra Number, jot down the number and go **Supplier | Supplier Contra** to edit it.
-
- 
-
- 4. Look for the Same Contra Number (refer step 2e), EDIT it.
-
- 
-
- 4a. Select your Supplier
-
- 4b. Enter Contra Amount (Must be same as Customer Contra Amount)
-
- 4c. Knock off your Supplier Invoice
-
- 4d. Press on SAVE Button
-
- 
-
-After you post the contra entry:
-
-- The outstanding amount on the sales invoice is RM50.
-
-- The purchase invoice is fully knock off.
-
-- When you receive the RM50, you can record this against the sales invoice using your normal Customer Payment entry.
-
-## Supplier Work Flow (AP)
-
-Example of **supplier (AP)** process work flow aligned with SQL Account flow:
-
-
-
-AP = Account Payable
-
-**Supplier module** is the similar to **Customer Module**.
-
-You can apply the same steps from [Customer Invoice](#customer-invoice) → [Customer Contra](#customer-contra) for Supplier Module (Invoice, Payment, Credit Note, Refund, Contra).
-
-## Interbank GIRO (IBG)
-
-Refer to [Additional Module](../additional-module/interbank-giro.md)
diff --git a/docs/usage/customization/_category_.json b/docs/usage/customization/_category_.json
new file mode 100644
index 00000000..ba6d48e4
--- /dev/null
+++ b/docs/usage/customization/_category_.json
@@ -0,0 +1,8 @@
+{
+ "label": "Customisation",
+ "position": 15,
+ "link": {
+ "type": "generated-index",
+ "description": "SQL Account Customisation"
+ }
+}
\ No newline at end of file
diff --git a/docs/usage/customization/sql-control-center.md b/docs/usage/customization/sql-control-center.md
new file mode 100644
index 00000000..04a14aa5
--- /dev/null
+++ b/docs/usage/customization/sql-control-center.md
@@ -0,0 +1,797 @@
+---
+title: SQL Control Center
+description: Customisations in SQL Control Center
+slug: /usage/customisation/sqlControlCenter
+tags: ["SQL Account"]
+---
+
+## Shipping/Forwarding (S/F)
+
+This Customisation provides simple calculations for shipping/forwarding companies.
+
+[Sample Database](https://download.sql.com.my/customer/Fairy/ACC%20BK-%5bShipping%5d.zip)
+
+[YouTube video](https://www.youtube.com/watch?v=LPoz1h3hyvQ)
+
+### History New/Updates/Changes (S/F)
+
+14 May 2025
+
+* Use Maintain Currency for Currency Symbol & Currency Rate for detail UDF
+05 Feb 2016
+
+* Fixed TaxInvoice-Fowarding2 batch print: tax summary mixed together.
+* Fixed Quotation & Debit Note OnBeforeSave script sequence not correct.
+04 Jan 2016
+
+* Fixed TaxInvoice-Fowarding2 title missing the word "Tax".
+
+07 Dec 2015
+
+Fixed Sales Local - Invoice Listing - Level 1: Ent column showed empty values when 0.
+02 Nov 2015
+
+* Fixed sequence error.
+* Fixed TaxInvoice-Fowarding2 format: showed 'A' instead of the tax rate.
+
+20 Oct 2015
+
+* Fixed Transfer document TaxAmt calculation when using UDF_ExRate \<> 1.
+* Fixed partial transfer quantity TaxAmt calculation.
+
+19 Oct 2015
+
+* Fixed upgrade to Version 721 error.
+* Fixed Transfer document TaxAmt calculation.
+
+14 Oct 2015
+
+* Fixed 0Sales Local - Invoice Listing - Level 1: margin not correct.
+* Converted DocRef3 to UDF_EntCost for 0Sales Local - Invoice Listing - Level 1 Ent column.
+
+### Settings (S/F)
+
+#### Maintain User (S/F)
+
+*Menu: Tools | Maintain User...*
+
+Untick the "Access Right for Prompt Replace Unit Price Dialog" under the Group: Sales.
+
+### Steps (S/F)
+
+#### Invoice
+
+*Menu: Sales | Invoice...*
+
+
+
+1. Select Customer Code
+2. Select Item Code
+3. Enter the Cost incurred for the selected item code (for the Profit & Loss By Document report)
+4. Enter Qty
+5. Enter UnitPrice
+6. Enter Exchange Rate (if have)
+7. Click More tab to enter extra/others Information
+
+
+
+#### Profit & Loss By Document
+
+*Menu: Sales | Print Profit and Loss By Document...*
+
+
+
+1. Select Invoice Listing and date range.
+2. Tick 'Group by Customer Code'.
+3. Click Apply.
+4. Press F6 to preview.
+5. Select the report named '0Sales Local - Invoice Listing - Level 1'.
+6. Click OK.
+
+## Bonus Point System (BPS)
+
+This Customisation is to calculate/maintain the Point/Bonus
+
+* Pros
+ - Able to set Claim Rate (i.e. 1 Point = How many RM eg 1 Point = RM0.01 so enter as 0.01)
+ - Able to set Point Rate by item code (i.e. RM1 = How many point eg RM1 = 1 so enter as 1)
+ - Point Rate can be calculate by Amount and/or Qty
+ - Able to Claim like Voucher as Discount
+ - Able to Claim Item
+ - Claim Point Rate can be change runtime
+
+* Cons
+ - Unable to handle the cancel & Delete Invoice - Manually deduct the point using Update Button on Extra DO
+ - If the customer no transaction within the month it unable to Generate Statement
+ - No Auto Deduct Expiry Point - manually deduct the point using Update Button on Extra DO
+ - Able to handle 2 decimal Point only
+ - Batch Insert no checking (i.e. User may over deduct the point)
+ - User had to manually Adjust for Opening after the Year End Purging had done.
+
+[Sample Database](https://www.sql.com.my/document/ACC%20BK-%5BBonusVoucherPoint%5D.zip)
+
+### History New/Updates/Changes (BPS)
+
+25 Dec 2015
+
+* Enabled GST support.
+* Added UnClaim Voucher Listing report.
+* Added Bonus-Sales Invoice 7 (GST 2) report.
+* Fixed Bonus Statement currency symbol issue.
+* Removed auto 5-cent rounding script.
+
+### Modules required (BPS)
+
+* DIY Field
+* DIY Script
+* Invoice → DO
+* Multiple Document Number Set
+
+### Settings (BPS)
+
+#### Maintain User (BPS)
+
+*Menu: Tools | Maintain User...*
+
+Untick the "Access Right for Prompt Replace Unit Price Dialog" under the Group: Sales.
+
+#### Maintain Item
+
+*Menu: Stock | Maintain Stock Item...*
+
+
+
+1. Create an item code for the voucher (example: Voucher — used for claims, e.g. 1 point = RM0.01).
+
+ 
+
+2. For each item code enter the Voucher Rate (eg 0.5 point = RM 1)
+
+***Sales Invoice***
+
+*Menu: Sales | Invoice...*
+
+ This applicable also at Sales Debit Note, Sales Cash Sales & Sales Credit Note
+
+| **UDF Field** | **Description** |
+|---------------------|---------------------------------------------------------------------------------|
+| **UDF_VoucherNo** | Enter the Voucher Number (Extra DO DocNo). Amount will be based on the Extra DO DocAmt. Not applicable for Sales Credit Note. |
+| **UDF_VoucherRate**| From Maintain Item. The user can still adjust the rate if needed. |
+| **UDF_UseQty** | **Tick** → `UDF_Voucher = UDF_VoucherRate * Qty`. **UnTick** → `UDF_Voucher = UDF_VoucherRate * Amount`. |
+| **UDF_Voucher** | `Total current item point`. |
+
+***Extra Delivery Order***
+
+*Menu: Sales | Extra Delivery Order...*
+
+ This is the center or Ledger for all Point IN & OUT.
+
+
+
+| **Field** | **Description** |
+|------------------|---------------------------------------------------------------------------------|
+| **DocNo** | `CRP-XXXXX` → Claim/Deduct Transactions Point. `VOC-XXXXX` → In/Add Transactions Point. |
+| **DocNoEx** | Source document number from which this document is generated. |
+| **DocRef1** | Indicates which `VOC-XXXXX` is used for Claim/Deduct Point. |
+| **DocAmt** | Total point for each transaction. |
+| **UDF_CRPoint** | **Tick** → Claim/Deduct Transactions Point. **UnTick** → In/Add Transactions Point. |
+
+### Steps (BPS)
+
+***Sales Invoice***
+
+Below is an example of Sales Invoice with voucher claim.
+*Menu: Sales | Invoice...*
+
+
+
+1. Enter all Information (eg Company Code, Date, ItemCode, etc) as norm for Normal Sales (i.e. Add Point).
+2. Select itemcode Voucher.
+3. Enter the Voucher Number.
+4. Save.
+
+:::success If no Voucher is use (i.e. Just deduct/redeem either fully/partly by Point)
+
+* Just enter the UDF_VoucherRate as - (Negative Value) after enter the Negative UnitPrice
+:::
+
+***Extra Delivery Order***
+
+*Menu: Sales | Extra Delivery Order...*
+
+In here user can do adjustment for the point for each Customer.
+
+1. Click Update Button
+
+ 
+
+2. Untick this if you wanted to Add the point
+3. Enter the Point to Add/Reduce.
+4. Click Post Button
+
+#### Extra Delivery Order Listing
+
+*Menu: Sales | Print Sales Document Listing...*
+
+ Here is for user to print the Bonus Statement or UnClaim Voucher Listing report
+
+
+
+1. Select Extra Delivery Order Listing & Range Date
+2. Tick Customer Code
+3. Click Apply button
+4. Press F6 to preview
+5. Select report name Bonus Statement or UnClaim Voucher Listing
+6. Click Ok button
+
+## Branch Control
+
+Branch Control Setting is done to prevent branch user from selecting Customer, Project, Stock Item or Location info that is not relevant to them.
+
+### Restricted for
+
+* Branch user only allows to select their own customer
+* Preset default Agent, Project, Item Code, Location code for each branch user
+* Reports only shows transactions issued by the branch user
+* Filter reports only using information assigned to the branch user
+* Generate accurate P&L, Stock Balance Report for branches
+
+### Modules Required (Branch Control)
+
+* DIY Field
+* DIY Script
+
+## Branch Control Module Features
+
+### Project & Location
+
+* Authorising each branch users to have the accessibility to their respective branch, SQL will automatically assign transactions created by the user to a specific branch to prevent human mistakes. Account entries, stock warehouse will automatically be posted to the appropriate branch.
+
+
+
+### Customer List
+
+* The user can only select/access the customer information for the own branch and is not permitted to post transactions for any other branch. You can avoid information being shared to other branches at data entry staff’s level.
+
+
+
+### Agent / Area List
+
+* Automatically set the default agent/area code based on user login to ease the user's instead of requiring manual selection.
+
+
+
+### Stock Item List
+
+* The user only able to select the list of item code belong to their branch.
+
+
+
+### Payment Method
+
+* Restrict payment methods for each branch to prevent human error and posting to unnecessary accounts.
+
+
+
+### Reporting
+
+* Stay on top of your financial and operational transactions across all your branches with SQL. You can monitor all transactions happening in each branch. with this information, you can identify which branch is the most profitable and which branch that needs to monitor closely.
+
+
+
+### Profit & Loss Project
+
+* By consolidating headquarter accounts with branch accounts, SQL allows for the viewing of consolidated balance sheets, profit and loss accounts by authorised users to evaluate the company’s overall performance. Bosses are able to drill down to the transactions of each branch individually.
+
+
+
+## One Time Setting
+
+*Menu: Tools | Maintain User...*
+
+
+
+Here are the guidelines to set **Branch Control Setting**
+
+1. **MUST** Logon as **ADMIN** account
+2. Choose for the sub account, e.g. Yuki agent account
+3. Go to **Access Right for Branch Control** tab
+4. Choose the **Branch Control Settings** tab you need
+
+### Sales
+
+1. Tick Lock Customer
+2. If want filter customers by :
+
+ | **Filter By** | **Number** |
+ |----------------------|------------|
+ | Area | 1 |
+ | Agent | 2 |
+ | Company Category | 3 |
+
+ The setting can only function within the range of **1 to 3**.
+
+3. Enter the Area code for Area in Allowable List, you are allow to enter more than 1 area codes.
+4. If want search customer by
+
+| **Search By** | **Number** |
+|-------------------|------------|
+| Code | 1 |
+| Company Name | 2 |
+| Company Name 2 | 3 |
+| Currency Code | 4 |
+
+The setting can only function within the range of **1 to 4**.
+
+:::note E.g.
+Tick the **Lock Customer** Option and filtered customer list by area, enter as 1 in Filter Customers by. Enter Area code such as KL, JB, and SG in the allowable list column. User prefer to search for Customer Code, enter as 1 if would like to search Customer Column.
+:::
+
+
+
+### Purchase
+
+1. Tick Lock Supplier
+2. If want filter suppliers by
+
+ | **Filter By** | **Number** |
+ |-----------------------|------------|
+ | Area | 1 |
+ | Agent | 2 |
+ | Company Category | 3 |
+
+ The setting can only function within the range of **1 to 3**.
+
+3. Enter the Agent code for Agent in **Allowable List**, you are allow to enter more than 1 agent codes.
+4. If want search supplier by :
+
+| **Search By** | **Number** |
+|-------------------|------------|
+| Code | 1 |
+| Company Name | 2 |
+| Company Name 2 | 3 |
+| Currency Code | 4 |
+
+The setting can only function within the range of **1 to 4**.
+
+:::note E.g.
+Tick the Lock Supplier option and filter supplier list by agent, enter as 2 in Filter Suppliers by. Enter Agent code, such as YUKI, in the allowable list column, and user prefer to search for supplier code, enter as 1 in Search Supplier Column.
+:::
+
+
+
+### Item Code
+
+1. Tick Lock Item Code
+2. If want filter stock item by
+
+ | **Filter By** | **Number** |
+ |----------------|------------|
+ | Stock Group | 1 |
+ | Category | 2 |
+ | Item Code | 3 |
+
+ The setting can only function within the range of **1 to 3**.
+
+3. Enter the item code for Item Code in **Allowable Item Code**, you are allow to enter more than 1 item codes.
+4. If want search item code by
+
+| **Search By** | **Number** |
+|-----------------|------------|
+| Item Code | 1 |
+| Description | 2 |
+| Description 2 | 3 |
+
+The setting can only function within the range of **1 to 3**.
+
+:::note E.g.
+Tick the Lock Item Code option and filter by item code. Enter item codes, such as BOM-02/Red, ER/Lamp, and ISCT, in the column, and search for item descriptions by item code.
+:::
+
+
+
+### General Setting
+
+1. Tick Lock Project if you need to lock the project code
+2. Tick if want search by Project Code, unticked will search by Project Description.
+3. Enter the code for Project Code in Allowable ... columns, you are allow to enter more than 1 codes for Project Code
+4. Repeat Step 1 to Step 3 for the remaining settings.
+
+:::note E.g.
+Tick the Lock Project option. Tick IsSearchProjectCode to allow searching by project code, and enter project codes, such as P1 and P2, in the column for search.
+:::
+
+
+
+## Assignment : To Create the Unit Price Calculation
+
+* Create the DIY field such as UDF_mUnitPrice in Sales documents (eg. sales invoice)
+* Purpose: User will key-in the base unit price to convert into new unit price based on the UOM rate in Maintain Stock Item.
+
+
+
+* Calculation for Unit Price := UDF_mUnitPrice x Rate
+
+**Steps :**
+
+### Insert DIY Field (Unit Price Calculation)
+
+1. Click Tools | DIY | SQL Control Center...
+2. At the left panel look for Sales Invoice.
+3. Point to Items Fields.
+4. On the right panel, insert the DIY field as per the TABLE below.
+
+ | Name | Data Type | Size | SubSize | Caption | Required | Default Value | Display Format |
+ |-------------|-----------|------|---------|---------------|----------------|---------------|------------------|
+ | mUnitPrice | Float | 10 | 2 | UDF_mUnitPrice| FALSE (Untick) | BLANK | #,0.00;-#,0.00 |
+
+ 
+
+5. Click Save.
+6. Update operation successful message. Click OK.
+7. DONE
+
+### Insert DIY Script (Unit Price Calculation)
+
+1. Click Tools | DIY | SQL Control Center...
+2. At the left panel look for Sales Invoice .
+3. Right Click the Sales Invoice.
+
+ 
+
+4. Select New Event.
+
+ 
+
+5. Enter any name (eg Calc) in the Name field (Only Alphanumeric & no spacing).
+6. Select OnGridColumnValueChanged for Event field.
+7. Click OK.
+8. Click the Calc (name create at Step 5 above) on the left panel.
+
+ 
+
+9. Copy below script & paste to the Right Panel (Script Section).
+
+ ```vb
+ begin
+ if SameText(EditingField, 'ItemCode')or
+ SameText(EditingField, 'UDF_mUnitPrice') then begin
+ DataSet.FindField('UnitPrice').AsFloat :=
+ DataSet.FindField('Rate').AsFloat * DataSet.FindField('UDF_mUnitPrice').AsFloat;
+
+ end;
+ end.
+ ```
+
+10. Click Save button.
+
+:::warning
+Avoid update the same existing field name Unit Price. You have to create different name ie. UDF_mUnitPrice.
+:::
+
+### Result Test (Unit Price Calculation)
+
+1. Go to Stock | Maintain Stock Item...
+2. Edit the item code ANT.
+3. Insert additional UOM with different RATE, eg. 1 CARTON = 12 UNITS and 1 BOX = 60 UNITS.
+
+ 
+
+4. Create new sales invoice from Sales | Invoice...
+5. Call out the columns name UDF_mUnitPrice and Rate.
+
+ 
+
+6. Insert and select the item code ANT.
+7. Select the UOM to CARTON. Rate will be changed to 12.
+8. Input the value into UDF_mUnitPrice. U/Price will be calculated from your DIY script formula (UDF_mUnitPrice x Rate).
+
+
+
+## Assignment : How to get the data from Master Table into entry form?
+
+* Create the DIY fields such as UDF_PCS, UDF_CTN in Maintain Stock Item; and
+* UDF_Price in Sales Documents (eg. sales invoice).
+* Purpose is:
+
+ ```bash
+
+ Get UDF_PCS & UDF_CTN from Maintain Item to Sales Invoice Detail UDF_Price
+
+ If selected itemcode UOM is PCS then use UDF_PCS
+ if selected itemcode UOM is CTN then use UDF_CTN
+ if selected itemcode UOM not PCS or CTN then default is 1
+
+ ```
+
+* Calculation for Unit Price := UDF_Price * UDF_Rate
+
+**Steps :**
+
+### Insert DIY Field (Master Data)
+
+1. Click Tools | DIY | SQL Control Center...
+2. At the left panel look for Stock | Stock Item .
+3. Point to Stock Items Fields.
+4. On the right panel, insert the new field as per the table below.
+
+ | Name | Data Type | Size | SubSize | Caption | Required | Default Value | Display Format |
+ |------|-----------|------|---------|-----------|----------------|---------------|----------------------|
+ | PCS | Float | 10 | 2 | UDF_PCS | FALSE (Untick) | BLANK | #,0.00;-#,0.00 |
+ | CTN | Float | 10 | 2 | UDF_CTN | FALSE (Untick) | BLANK | #,0.00;-#,0.00 |
+
+ 
+
+5. Click Save.
+6. Update operation successful message. Click OK.
+7. Next...
+8. At the left panel look for Sales | Sales Invoice.
+9. Point to Items Fields.
+10. On the right panel, insert the new field as per the table below.
+
+ | Name | Data Type | Size | SubSize | Caption | Required | Default Value | Display Format |
+ |-------|-----------|------|---------|------------|----------------|---------------|----------------------|
+ | Price | Float | 10 | 2 | UDF_Price | FALSE (Untick) | BLANK | #,0.00;-#,0.00 |
+ | Rate | Float | 10 | 2 | UDF_Rate | FALSE (Untick) | BLANK | #,0.00;-#,0.00 |
+
+ 
+
+11. Click Save.
+12. Update operation successful message. Click OK.
+13. DONE.
+
+### Create Quick Form (Master Data)
+
+1. Click Tools | DIY | SQL Control Center...
+2. At the left panel look for Stock | Stock Item .
+3. Right click on te Stock Item.
+4. Select New Quick Form Design.
+
+ 
+
+5. Enter the new name as EXTRA. Click OK.
+
+ 
+
+6. Click on the EXTRA follow by Customize button.
+7. Drag the UDF_CTN adn UDF_PCS from right to the place marked X. See the screenshot below.
+
+ 
+
+8. Both the UDF fields will be under the Root. Click CLOSE.
+
+9. Click SAVE.
+
+ 
+
+10. DONE.
+
+### Insert DIY Script (Master Data)
+
+1. Click Tools | DIY | SQL Control Center...
+2. At the left panel look for Sales Invoice .
+3. Right Click the Sales Invoice.
+
+ 
+
+4. Select New Event.
+
+ 
+
+5. Enter any name (eg Calc) in the Name field (Only Alphanumeric & no spacing).
+6. Select OnGridColumnValueChanged for Event field.
+7. Click OK.
+8. Click the Calc (name create at Step 5 above) on the left panel.
+
+ 
+
+9. Copy below script & paste to the Right Panel (Script Section).
+
+ ```bash
+ var FComServer, lBizObj : Variant;
+ cdsData : TClientDataSet;
+
+ function ComServer: Variant;
+ begin
+ if FComServer = Null then begin
+ FComServer := CreateOleObject('SQLAcc.BizApp');
+ end;
+ Result := FComServer;
+ end;
+
+ procedure GetStockInfo;
+ var lSQL, lCode : String;
+ begin
+ FComServer := null;
+ cdsData := TClientDataSet.Create(nil); // Create & preparing Component
+ try
+ lCode := Dataset.FindField('ItemCode').AsString;
+ lSQL := Format('SELECT UDF_PCS, UDF_CTN FROM ST_ITEM WHERE Code=%s',[QuotedStr(lCode)]);
+
+ cdsData.Data := ComServer.DBManager.Execute(lSQL);
+ finally
+ lBizObj := null;
+ FComServer := null;
+ end;
+ end;
+
+ begin
+ if SameText(EditingField, 'ItemCode') or
+ SameText(EditingField, 'UOM') or
+ SameText(EditingField, 'UDF_Rate') then begin
+ try
+ GetStockInfo;
+ if Dataset.FindField('UOM').AsString = 'PCS' then
+ Dataset.FindField('UDF_Price').AsFloat := cdsData.FindField('UDF_PCS').AsFloat else
+ if Dataset.FindField('UOM').AsString = 'CTN' then
+ Dataset.FindField('UDF_Price').AsFloat := cdsData.FindField('UDF_CTN').AsFloat else
+ Dataset.FindField('UDF_Price').AsFloat := 1;
+
+ Dataset.FindField('UnitPrice').AsFloat := Dataset.FindField('UDF_Price').AsFloat *
+ Dataset.FindField('UDF_Rate').AsFloat;
+ finally
+ cdsData.Free;
+ end;
+ end;
+ end.
+ ```
+
+10. Click Save button.
+
+ :::warning
+ Avoid update the same existing field name Unit Price and "Rate". You have to create different name ie. UDF_Price and UDF_Rate.
+ :::
+
+### Result Test (Master Data)
+
+1. Go to Stock | Maintain Stock Item...
+2. Create a new item code called PEN.
+3. Update the UOM tab. See the screenshot below.
+
+ 
+
+4. Click on EXTRA tab.
+5. Input the UDF_CTN and UDF_PCS value.
+
+ 
+
+6. Create new sales invoice from Sales | Invoice...
+7. Call out the columns name UDF_Price and UDF_Rate.
+
+ 
+
+8. Insert and select the item code PEN.
+9. Select the UOM to CTN.
+10. UDF_Price will be changed to 50.00 (based on the UDF_CTN set for PEN).
+11. Input the value into UDF_Rate. U/Price will be calculated from your DIY script formula (UDF_Price x UDF_Rate).
+
+ 
+
+## Assignment : How to get Outstanding IV amount & show below the Browse button at Sales Invoice?
+
+* This assignment no need to create any DIY fields
+* Purpose is to display the total outstanding balance for the customer selected at the Invoice
+
+**Steps :**
+
+### Insert DIY Script (Outstanding Amount)
+
+1. Click Tools | DIY | SQL Control Center...
+2. At the left panel look for Sales Invoice .
+3. Right Click the Sales Invoice.
+
+ 
+
+4. Select New Event.
+
+ 
+
+5. Enter any name (eg Calc) in the Name field (Only Alphanumeric & no spacing).
+6. Select OnOpen for Event field.
+7. Click OK.
+8. Click the Calc (name create at Step 5 above) on the left panel.
+
+ 
+
+9. Copy below script & paste to the Right Panel (Script Section).
+
+ ```bash
+ var FComServer, lBizObj : Variant;
+ C : TComponent;
+ T : TTimer;
+ M : TDataSource;
+ L1, L2 : TLabel;
+ cdsTemp : TClientDataset;
+
+ function ComServer: Variant;
+ begin
+ if FComServer = Null then
+ FComServer := CreateOleObject('SQLAcc.BizApp');
+ Result := FComServer;
+ end;
+
+ procedure Setup;
+ begin
+ T := TTimer.Create(Self);
+ L1 := TLabel.Create(self);
+ L2 := TLabel.Create(self);
+ end;
+
+ procedure DocInfo;
+ var lSQL, lDocNo : String;
+ begin
+ lDocNo := M.Dataset.FindField('DocNo').AsString;
+
+ FComServer := null;
+ cdsTemp := TClientDataset.Create(nil);
+ lSQL := Format('SELECT (DocAmt - PaymentAmt) OS FROM AR_IV '+
+ 'WHERE DocNo=%s ',[QuotedStr(lDocNo)]);
+
+ try
+ cdsTemp.Data := ComServer.DBManager.Execute(lSQL);
+ finally
+ FComServer := null;
+ end;
+ end;
+
+ procedure OnTimer(Sender: TObject);
+ var AState : TDataSetState;
+ begin
+ AState := M.DataSet.State;
+ if AState = dsBrowse then begin
+ DocInfo;
+ L2.Caption := '';
+ try
+ L2.Caption := FormatCurr('#,0.00;-#,0.00', cdsTemp.FindField('OS').AsFloat);
+ finally
+ cdsTemp.Free;
+ end;
+ end;
+ end;
+
+ begin
+ M := TDataSource(Self.FindComponent('dsDocMaster'));
+ C := Self.FindComponent('frDataSetButton1');
+
+ if Assigned(C) then begin
+ T.Enabled := True;
+ T.Interval := 1000; // = 1 sec
+ T.OnTimer := @OnTimer;
+
+ with L1 do begin
+ Parent := TWinControl(C);
+ Width := 66;
+ Left := 6;
+ Top := 200;
+ Caption := 'Outstanding';
+ Font.Color := clBlue;
+ Font.Style := [fsBold];
+ end;
+ with L2 do begin
+ Parent := TWinControl(C);
+ Width := 66;
+ Left := 6;
+ Top := 215;
+ Caption := 'DocNo';
+ Font.Color := clBlue;
+ Font.Style := [fsBold];
+ end;
+ end;
+ end.
+ ```
+
+10. Click Save button.
+
+### Result Test (Outstanding Amount)
+
+1. Create a new sales invoice, eg. Invoice Amount = Rm1060.00
+
+ 
+
+2. Make a payment amount = Rm636.00 and knock-off with the invoice created in step 01.
+
+ 
+
+3. You can get the document outstanding balance (Rm1060.00 - Rm636.00 = Rm424.00) at Sales Invoice.
+
+ 
diff --git a/docs/usage/first-time-setup.md b/docs/usage/first-time-setup.md
index 3c2b682a..b118487c 100644
--- a/docs/usage/first-time-setup.md
+++ b/docs/usage/first-time-setup.md
@@ -9,25 +9,25 @@ tags: ["SQL Account", "Usage", "Setup"]
## Financial Period & System Conversion Date
:::info
-Watch tutorial video here : [Youtube](https://www.youtube.com/watch?v=yH8VfNGjEr0&feature=youtu.be)
+Watch the tutorial video here: [YouTube](https://www.youtube.com/watch?v=yH8VfNGjEr0&feature=youtu.be)
:::
1. **Tools** | **Options**
- 
+ 
- :::note
- Once you have set up your Financial Start Period & System Conversion Date, it is not possible to change it again. This configuration can only be set once during the creation of a new database.
- :::
+ :::note
+ Once you have set up your Financial Start Period and System Conversion Date, it is not possible to change them later. This configuration can only be set once when creating a new database.
+ :::
2. Select **General Ledger**
3. Select **Financial Start Period & System Conversion Date**
- 
+ 
:::note Scenario 1
- My financial period starts on 1st January every year, I start using SQL from 1/1/2015.
+ My financial period starts on 1 January every year. I started using SQL on 1/1/2015.
**Financial Start Period** = 1/1/2015
@@ -35,7 +35,7 @@ Watch tutorial video here : [Youtube](https://www.youtube.com/watch?v=yH8VfNGjEr
:::
:::note Scenario 2
- My financial period starts on 1st January every year, I start using SQL from 1/4/2015.
+ My financial period starts on 1 January every year. I started using SQL on 1/4/2015.
**Financial Start Period** = 1/1/2015
@@ -46,52 +46,52 @@ Watch tutorial video here : [Youtube](https://www.youtube.com/watch?v=yH8VfNGjEr
### Activate SST
-1. In SQL Account, click on the menu **SST/GST** -> **Start SST now...**
+1. In SQL Account, click the menu **SST/GST** → **Start SST now...**
- 
+ 
-2. For the country, select **Malaysia**, and click Next
+2. Select **Malaysia** as the country, then click **Next**.
- 
+ 
3. Fill in **SST Effective Date**
-4. Tick **I have SST registered number** if you have a valid SST registration number from the government (skip to *Step 6* if you don't have one)
+4. Tick **I have an SST registration number** if you have a valid SST registration number from the government (skip to *Step 6* if you don't).
- 
+ 
-5. Fill in your **Sales Tax No** and **Service Tax No** (These details will be auto updated in your company profile)
+5. Fill in your **Sales Tax No** and **Service Tax No**. These details will be auto-updated in your company profile.
- 
+ 
-6. In the next step, click Next to auto generate **SST GL Account**
+6. In the next step, click **Next** to auto-generate the **SST GL Account**.
- 
+ 
7. In the following screen, you can preset your tax code for billing (Sales Tax, Service Tax, Sales Tax Exempted, etc.)
- 
+ 
-8. System will prompt to re-login, and you are good to go
+8. The system will prompt you to log in again; after that, you're ready to go.
-9. After log-in, you will see a new drop down list for SST Functions, the SST setup is now completed.
+9. After logging in, you will see a new drop-down list for SST functions. The SST setup is now complete.
### Maintain Tariff
Go to **Tools** | **Maintain tariff** | **New**
-Insert your product tariff code here, you can also find out your product tariff code from Malaysia Custom [JKDM HS Explorer](https://ezhs.customs.gov.my/)
+Insert your product tariff code here. You can also look up your product tariff code using the Malaysia Customs [JKDM HS Explorer](https://ezhs.customs.gov.my/)
-
+
## Company Profile
-1. Go To **File** | **Company Profile**
+1. Go to **File** | **Company Profile**
- Fill in your company particulars and if this company is subject to both sales and service tax, fill in the Sales Tax number / Service Tax number.
+ Fill in your company particulars. If the company is subject to both sales and service tax, enter the Sales Tax and Service Tax numbers.
- 
+ 
2. Select **Report Header** & **Set Report Header**
- 
+ 
diff --git a/docs/usage/general-ledger.md b/docs/usage/general-ledger.md
deleted file mode 100644
index 357cf097..00000000
--- a/docs/usage/general-ledger.md
+++ /dev/null
@@ -1,95 +0,0 @@
----
-sidebar_position: 6
-title: General Ledger
-description: General Ledger management
-slug: /usage/general-ledger
-tags: ["SQL Account", "Usage", "General Ledger", "GL"]
----
-
-## Opening Balance
-
-:::info
-Watch tutorial video here: [Youtube](https://www.youtube.com/watch?v=43y_4awgSlA&feature=youtu.be)
-:::
-
-### General Ledger
-
- 1. **GL** > **Maintain Opening Balance**
-
- 2. Highlight the account that you wish to key in as opening balance, and click **Edit**.
-
- 3. **Insert the figure in local Dr or local Cr**. Then **Save**.
-
- 4. **Make sure the Dr and Cr figures tally**
-
- 
-
-### Customer and Supplier
-
- 1. Customer(Supplier) > **New**
-
- 2. Set the **Date** (before system conversion date)
-
- 3. Key in only the **outstanding amount**.
-
- 4. The words “Past Invoice” must appear; (they will not appear if the inserted date is after system conversion date)
-
- 5. Click **Save**.
-
- 
-
-### Stock Value
-
- 1. **GL** > **Maintain Stock Value** > **Edit**
-
- 2. Set the year
-
- 3. **Insert the Opening Balance**
-
- 
-
- 
-
-### Bank Reconciliation
-
-:::info
-For further info about bank reconciliation, refer to [Bank Recon](../faq/general-ledger/bank-recon.md) and [Auto Bank Recon](../faq/general-ledger/auto-recon.md).
-:::
-
- 1. **GL** > **Bank Reconciliation** > **New**
-
- 2. **Right click, to see Opening Bank Reconciliation**
-
- 3. **Set the Date** (before System Conversion Date)
-
- 
-
-## Journal Entry
-
-:::info
-Watch tutorial video here: [Youtube](https://www.youtube.com/watch?v=WHzNMsCmFHg&feature=youtu.be)
-:::
-
-1. **GL** > **Journal Entry**
-
-2. **Key in your double entry**
-
-3. Click on **Save** (System will blocked in Dr and Cr are not tally)
-
- 
-
-## Cash Book Entry
-
-:::info
-Watch tutorial video here: [Youtube](https://www.youtube.com/watch?v=rh0L-Kol1ts&feature=youtu.be)
-:::
-
-Cash book entry is normally used for a non-customer/ supplier payment or receipt e.g. payment for salaries, utilities etc.
-
-1. **GL** > **Cash Book Entry** > **New** (choose between Payment Voucher or Official Receipt)
-
- 
-
-2. **Insert Payable Name** > Select **GL Code > Tax > Amount**
-
- 
diff --git a/docs/usage/general-ledger/_category_.json b/docs/usage/general-ledger/_category_.json
new file mode 100644
index 00000000..1bce2ed8
--- /dev/null
+++ b/docs/usage/general-ledger/_category_.json
@@ -0,0 +1,8 @@
+{
+ "label": "General Ledger",
+ "position": 3,
+ "link": {
+ "type": "generated-index",
+ "description": "SQL Account GL Guide"
+ }
+}
\ No newline at end of file
diff --git a/docs/usage/general-ledger/faq.md b/docs/usage/general-ledger/faq.md
new file mode 100644
index 00000000..24762063
--- /dev/null
+++ b/docs/usage/general-ledger/faq.md
@@ -0,0 +1,681 @@
+---
+sidebar_position: 3
+title: FAQ
+description: General Ledger FAQ Info
+slug: /usage/general-ledger/faq
+tags: ["SQL Account", "Usage"]
+---
+
+## Trial balance not tally in YTD(Year To Date)
+
+**Issue:**
+
+Year To Date DR and CR not balanced in Trial Balance because Retained Earnings account is missing.
+
+
+
+**Solution:**
+
+1. Go to **GL** | **Maintain Account**...
+2. Restore the Retained Earning Account by drag and drop into Retained Earning group (original).
+
+ 
+
+3. Apply the Trial Balance again.
+4. Retained Earning Account has restored to Trial Balance, Year To Date DR and CR are now balanced.
+
+## How to make the foreign bank account record as USD
+
+**Issue:**
+
+I cannot key in the foreign bank transactions in USD.
+
+
+
+**Solution:**
+
+Please make sure you have the following add-on modules:
+
+- Multi-Currency (allow to add more currency code, eg. USD, SGD, etc)
+- Advance Currency (allow bank account to select foreign currency)
+
+1. Go to Tools | Maintain Payment Method...
+2. Edit the Foreign Bank Account.
+3. Change the currency to USD.
+
+ 
+
+4. The foreign bank account will now be valued in USD. See example in Supplier Payment.
+
+
+
+## Accumulated Depreciation for Fixed Asset
+
+### Record accumulated depreciation for fixed asset
+
+1. **GL > Journal Entry > New**
+
+2. Key in the double entry for recording accumulated depreciation.
+
+ :::info
+ e.g.: Record the depreciation of motor vehicle in year 2015
+ Debit Depreciation Expenses RM1000
+ Credit Accumulated Depreciation of Motor Vehicle RM1000
+ :::
+
+3. Save
+
+ 
+
+### For The Next Year
+
+1. **GL > Journal Entry**. Open the journal entry of depreciation in year 2015.
+
+2. Right click on empty space, refer picture , **Copy Journal Entry**.
+
+ 
+
+3. **New**
+
+4. Right click on empty space, refer picture, **Paste Journal Entry**.
+ 
+
+5. Edit the journal entry by changing the date, description and amount.
+
+ 
+
+6. **Save**.
+
+## Auto Maintain Stock Value with Project Setup
+
+:::caution
+
+Required SQL Account version 839 and above.
+
+:::
+
+### Step 1: Turn on Auto Post GL Stock Value Option
+
+1. Click on **Tools**.
+
+2. Click on **Option**.
+
+ 
+
+3. Click on **Miscellaneous**.
+
+4. Tick on **Auto Post GL Stock Value**.
+
+ 
+
+### Step 2: Map Balance Sheet Stock Account in Maintain Stock Group
+
+1. Click on **Stock**.
+
+2. Click on **Maintain Stock Group**.
+
+ 
+
+3. Click on **Edit**.
+
+4. **Choose** the Account Code for your Stock Value Posting.
+
+5. Click on **Save**.
+
+ 
+
+ :::note
+ Ensure that all Stock Groups are mapped to the **Balance Sheet Account Code (A)**.
+ :::
+
+ 
+
+### Step 3: Map Project Code in Maintain Location
+
+1. Click on **Stock**.
+
+2. Click on **Maintain Location**.
+
+ 
+
+3. Click on **Edit**.
+
+4. You can set your stock project for each location.
+
+5. **Save**.
+
+ 
+
+ :::info
+ Ensure that all Location are mapped to the **Project Code (A)**.
+
+ 
+
+ :::info
+ Note : May ignore this step if you have **only 1** Project.
+ :::
+
+### Step 4: Maintain Stock Month End, to show the total Stock Value for default project and P1
+
+:::info Example A
+Project Code : ----
+
+Closing Stock : 308534.22
+:::
+
+
+
+:::info Example B
+Project Code : P1
+
+Closing Stock : 3560.00
+:::
+
+
+
+### Step 5: Apply Financial Report will auto update Stock value
+
+:::note
+When you apply **Profit & Loss Statement, Balance Sheet or Trial Balance Report**,
+system will automatically retrieve the Stock value from Stock Month End
+Balance and present it in financial report. Additionally, the system will update
+closing Stock value to **Maintain Stock Value**.
+:::
+
+1. This is a sample of a Balance Sheet Statement report to show a **Closing Stock Value**.
+
+ 
+
+:::info
+Note : When Fall Outside Maintain Acceptable Trans Date range, the system will no longer retrieve the Stock
+Value from the Stock Month End Balance and will silently bypass the update.
+:::
+
+## Auto Post Stock Month End Value Setup
+
+:::warning
+Require SQL Account version 748 & above.
+:::
+
+This feature allows the system to automatically post the stock value from Maintain Month End value to GL Maintain Stock Value.
+
+### Step 1: Stock > Maintain Stock Group
+
+
+
+### Step 2: Stock > Print Stock Month End Balance Report
+
+
+
+:::info Note :
+Required to fill in the Balance Sheet Account in the Stock Group to update GL Stock Value.
+:::
+
+### Step 3: GL > Maintain Stock Value
+
+
+
+## Auto Bank Reconciliation Example
+
+### Step 1: In SQL General Ledger, go to **Bank Reconciliation** -> **Create New**
+
+1. Select the **Bank Statement Date**.
+
+2. Select the **Account**.
+
+3. Tick **“Show Current Recon Transactions”**.
+
+4. Click **Apply**.
+
+ 
+
+5. Click **Load Statement**.
+
+ 
+
+6. Select your **Bank Statement (PDF / CSV)**.
+
+ 
+
+7. System loading...
+
+ 
+
+8. System will detect the Name of your Bank and prompt message below, Click **Yes** if it is **correct**.
+
+ 
+
+9. Once you have loaded in your bank statement, bank closing amount will be automatically filled.
+
+ 
+
+ :::info
+ Criteria to Match:
+
+ 1. Cheque number + Amount
+
+ 2. Description + Amount
+ :::
+
+10. System will automatically match the transactions with the bank statement and automatically tick them. **(yellow highlighted)**.
+
+ But some transactions may not be able to auto match **[red box]**
+
+ 
+
+### Step 2: Step to match on unmatched transactions with bank statement
+
+1. Click on the untick transaction.
+
+ At the bottom, search for **SAME DR/CR AMOUNT**, you will find that is a **“Match”** button or few “Match” button…(if there are few same amount, eg. 50.00)
+
+ 
+
+2. Click on **“Match”** when this is the correct bank transactions for **[Salary for Ali]**.
+
+ 
+
+ After click “Match”, system will auto tick the transactions and show the date and bank description at Bank Statement (Match) Column
+
+## Bank Reconciliation Example
+
+:::note
+For Opening Bank Reconciliation, you may refer this [Guide](../../usage/general-ledger/guide.md#bank-reconciliation).
+:::
+
+A bank reconciliation is a process performed by a company to ensure that the company's records
+(check register, **general ledger account**, **balance sheet**, etc.) are tally with bank's records.
+
+### Reconciliation Bank Transaction
+
+ GL | Bank Reconciliation
+ 
+
+ 
+
+### Bank Reconciliation
+
+- Select the Bank Statement Date
+- Select the Bank Account, e.g. Hong Leong Bank
+- Display Period (normally the date from period will be BLANK, and date to will be same as per Bank Statement Date)
+- Check(√) Show Unticked Transaction
+- Check(√) Show Current Recon Transaction
+- Check (√) Merge Bank Charges
+- Click Apply
+- You may tick the bank transaction reconcile with the transaction show in Bank Statement and save
+
+ 
+
+ 
+
+ As attached bank statement is the sample, compare with the transaction, if exist then you may check as sample picture above.
+
+### Print Bank Reconciliation Report
+
+After reconciliation done, you can save and preview reconciliation report.
+
+
+
+:::note
+You can press F6 button for preview report.
+:::
+
+## How to Calculate P&L Percentage
+
+
+
+:::note
+Formula :
+Account Amount / Total Sales * 100
+:::
+
+### Example
+
+#### How to get A % = 62.1 ?
+
+- Using Sales / Total Sales \* 100 = 184,119.49/ 296,502.11 \* 100 = 62.1%
+
+#### How to get C % = 2.5 ?
+
+- Using Purchase / Total Sales \* 100 = 7,406.8 / 296,502.11 \* 100 = 2.5 %
+
+#### How to get D % = 95 ?
+
+- Using Gross Profit / Total Sales \* 100 = 281,662.21 / 296,502.11 \* 100 = 95%
+
+#### How to get E % = 3.4?
+
+- Using Expenses value / Total Sales \* 100= 10,000/296,502.11 \* 100 = 3.4%
+
+#### How to get F % = 91.7 ?
+
+- Using Net Profit / Total Sales \* 100 = 271,805.66 /296,502.11 \* 100 = 91.7%
+
+:::info
+
+% will round to nearest 1 Decimal Point.
+
+:::
+
+## Foreign Bank Adjustment
+
+1. Go to **GL** > **Foreign Bank Adjustment** > Create **New** > Click **Bank Revalue**.
+
+ 
+
+2. In Revalue windows > Select **Bank Account Code & Date**.
+
+ 
+
+3. Balance USD & local amount are shown as per ledger report.
+
+ 
+
+4. Enter the Revalue to currency rate, system will auto recalculate the:
+
+ - **New local balance amount**
+ - **Gain/Loss Amount**
+
+ 
+
+5. Click **OK**
+
+ 
+
+6. System will auto post the double entries
+
+ 
+
+7. Click **Save**
+
+8. Please check the ledger for the adjustment post.
+
+## Maintain Budget
+
+### Budget Setting
+
+1. Click on **General Ledger**.
+
+2. Click on **Maintain Budget**.
+
+ 
+
+3. Select the year you want to set the budget.
+
+4. Choose your project code for budgeting, or select 'Non Project' if applicable.
+
+5. Click **Edit**.
+
+6. Enter monthly budget amounts to update quarterly, half-yearly, and yearly budgets automatically.
+
+7. Enter your budget by account code.
+
+8. Click **Save**.
+
+ 
+
+### Profit & Loss Statement with Budget Report
+
+1. This Month vs Month Budget - This Year vs Year Budget.
+
+2. This Month vs Month Budget.
+
+3. This Year vs Last Year Budget.
+
+ This is a sample of a Profit & Loss Statement report comparing. **This Month vs. Monthly Budget** and **This Year vs. Yearly Budget**
+
+ A : Month to date Vs Monthly Budget
+
+ B : Year to date Vs Yearly Budget
+
+ 
+
+### Balance Sheet Statement with Budget Report
+
+1. This Month vs Month Budget - This Year vs Year Budget.
+
+2. This Month vs Month Budget.
+
+3. This Year vs Last Year Budget.
+
+ This is a sample of a Balance Sheet Statement report comparing **This Month vs. Monthly Budget** and **This Year vs. Yearly Budget**
+
+ C : Month to date Vs Monthly Budget
+
+ D : Year to date Vs Yearly Budget
+
+ 
+
+## P&L Statement more than 12 months
+
+1. **GL** > **Print Profit & Loss Statement**.
+
+ 
+
+2. Right Click on **SQL Icon** > go **800 x 600** to smaller SQL Screen.
+
+ 
+
+3. Click on the report name **This Year - 2 Column** > click and drag it to desktop.
+
+ 
+
+4. Click on the report from desktop and drag it back into SQL.
+
+ 
+
+5. After drag in will prompt dialog above > click on **OK**.
+
+ 
+
+6. Double click on the report name **This Year - 2 Column** *(in blue colour font)*.
+
+ 
+
+ 1. You can enter a report name.
+
+ 2. Change the period class to **Fixed Date**.
+
+ 3. **Param 1** : Date **From**.
+
+ **Param 2** : Date **To**.
+
+ 4. Click on **OK**.
+
+ 
+
+:::info
+Apply the report as usual, the result will captured based on Param 1 & 2 set.
+
+Repeat the same step on GL > Print Balance Sheet Statement
+:::
+
+## P&L Statement with Appropriation
+
+1. **GL** > **Maintain Account**.
+
+ 
+
+ 1. Click on Appropriation Account.
+
+ 2. Click on **New**.
+
+ 
+
+ 3. Insert **GL Code** and **GL Description** > After Done Press **OK**.
+
+2. **GL** > **Journal Entry** > Create **New**.
+
+ 
+
+ e.g: Dr Dividend 2,000 Cr Bank 2,000
+
+3. GL > Print P&L Statement.
+
+ 1. Select the **Date**.
+
+ 2. Select **P&L Report format : This Year – 2 Column**.
+
+ 3. **Apply**.
+
+ 
+
+ 4. Click on **Preview**.
+
+ 
+
+ 
+
+## General Ledger Report Ref1(DocNo) appear as (New)
+
+When you see General Ledger Report `Ref1(DocNo)` appears as `<Advanced Currency Module- click to expand
+ + :::info + This module is required if you use foreign banks. + + Related: [Payment from Foreign Customer](../../usage/tools/guide#maintain-currency) + ::: + +### Setup Foreign Currency Payment Method + +#### Steps + +1. GL > Maintain Account + +  + +2. Create your bank respectively + +  + +3. Tools > Maintain Payment Method + +  + +**Disabled:** The operating system manages data writing to disk *(Not recommended)* | +| Page Buffers (in MB) | **Default: 16 MB** - Adjust based on your server's available RAM and performance requirements | diff --git a/docs/usage/general/others/sql-diagnosis.md b/docs/usage/general/others/sql-diagnosis.md new file mode 100644 index 00000000..490dd245 --- /dev/null +++ b/docs/usage/general/others/sql-diagnosis.md @@ -0,0 +1,395 @@ +--- +sidebar_position: 11 +title: SQL Diagnosis +description: A guide about SQL Diagnosis +slug: /usage/general/others/sql-diagnosis +tags: ["SQL Account", "Others", "SQL Diagnosis"] +--- + +## Introduction + +SQL Diagnosis is an external utility for fixing and managing SQL Firebird Databases. It provides essential tools for database maintenance, repair, and optimization. + + + +## Software Download + +1. [sql-diagnosis-v2](https://download.sql.com.my/customer/Fairy/SQLDiagnosisV2-setup.exe) + +## System Requirements + +- Firebird Server (required for both networked and standalone installations) + +## Database Patch + +1. A min console use to manipulate the data including edit, delete and append data. +2. There are 2 type of patch + - Patch From Estream + - Build In Patch + +### Applying Database Patches + +1. Click **Database Patch** button (**Icon A**). +2. Click This button to **select the SQL Firebird Database.** + +  + +### Scenario 1 : Patch From Estream (Continue Database Patch Steps) + +1. Right-click in the area below Step 2 +2. Select **Load From File 1...** + +  + +3. Look for patch file (Norm begin with Patch-XXXX.sql2) +4. Click **Open** button. + +  + +5. Click **Execute...** button (In Step 3 Section). + +  + +### Scenario 2 : Build In Patch (Continue Database Patch Steps) + +1. Click the **Arrow** down button near the **Execute...** button. +2. Select the Patch from the available list. +3. Click **Execute...** button (In **Steps 3** Section). + +### Available Patch Types and Descriptions + +| Patch File Type | Description | +|------------------|-------------| +| **AR/AP Copy Paste Error** | - Updates Customer or Supplier Code based on the code provided by the user.
- Sets the invalid transaction code to the provided Customer or Supplier code.
- After patching, go to the respective document number, Maintain Customer & Maintain Supplier to delete it or use CN to contra it. | +| **Change → Cash To Bank Type** | - Changes Account Type from Cash to Bank type.
- Ensure the Account Code is changed to **CH2BA** before running this patch. | +| **Change → Agent Code** | Changes all transactions from Agent Code A to Agent Code B. | +| **Change → Area Code** | Changes all transactions from Area Code A to Area Code B. | +| **Reset Grid Layout** | Resets all grid layouts to default. | +| **YED QT & PQ Purge** | Batch deletes Sales Quotation and Purchase Request records. | +| **Add Browse/Detail Form Mode** | Adds Form Mode (like SQL Accounting Version 775 and below) for SQL Accounting 776 and above. | +| **Update → Non Stock Control to Fixed Cost** | Sets all Non-Stock Control items to Fixed Cost. | +| **Update → Generators** | Updates all generators for SQL Accounting. | +| **Update → GL Account Special A/c Type Null to Empty** | Sets “Maintain Account Special Account Type” field from **Null** to **Empty**. | +| **Update → Batch Null to Empty** | Sets all Batch fields from **Null** to **Empty**. | +| **Update → Trim Empty Space - Payroll** | Removes empty spaces from all fields due to import. | +| **Remove → Invalid Payment Method** | Deletes invalid records in Maintain Payment Method. | +| **Remove → Non-Stock Control Opening Balance** | Deletes all Non-Stock Control Opening Balance records. | +| **Remove → All Customer** | Deletes all Maintain Customer records. | +| **Remove → All Supplier** | Deletes all Maintain Supplier records. | +| **Remove → All Stock Item** | Deletes all Maintain Item records. | +| **Remove → All Other Stock Maintenance** | Deletes all other Stock Maintenance data, including:
- Stock Group
- Stock Location
- Stock Price Tag
- Stock Batch
- Stock Category | +| **Remove → Default Currency Code** | Deletes the Default Currency. | +| **Remove → Invalid Credit Note** | Removes redundant AR/AP Credit Note Detail records in GL Ledger. | +| **Remove → Duplicate GL Stock Value** | Removes duplicate (double) amounts shown in GL Maintain Stock Value. | +| **Remove → Invalid GST Transactions** | Removes "ghost" transactions in GST Listing (`GST_TR`). | +| **Remove → Inactive Users** | Removes all users where *Active* = False. | +| **Remove → Invalid Stock Category** | Removes invalid Stock Category codes set in Maintain Item (usually due to import). | + +## Database Validate + +The Database Validate function helps repair and maintain the integrity of your database. It is especially useful when you encounter database corruption or errors that prevent normal operations. By validating the database, you can identify and fix issues to ensure smooth performance and reliability. + +### Database Validate Steps + +1. **Stop** the **Firebird Service.** +2. **Copy** the database & **Paste** to Desktop or any folder you wanted. +3. **Start** the **Firebird Service.** +4. Click **Database Validate** button (Icon B). + +  + +5. Click the button to select your **copied** SQL Firebird Database +6. Click the **Validate** button + + :::info + You can Click few times **Validate** button to make sure it can maximise the database fixing + ::: + +7. Click the **Backup...** button to access these options: + + - **Backup Metadata...**: Extracts an empty database structure for use with IB Pump when creating a new database + - **SQL DB Copy Table...**: Opens the Database Pump utility for copying data to a new database + - **Direct Zip...**: Creates a compressed file for uploading to Estream support if issues persist + +### Backup MetaData + +Use this option when normal backup is fail. + +1. Click the arrow down button at **Backup...** button. +2. Select **Backup MetaData....** + +  + +3. Click **Start Copy** to begin copying. + + - **Start Copy...**: Uses a single connection to copy tables to the new database. + - **Start Multi Copy...**: + - Uses two connections simultaneously to copy tables to the new database. + - Connection 1: AUDIT, AUDITDTL, GST_TR, ST_TR + - Connection 2: All other tables + +:::warning +Using **Start Multi Copy...** may cause the following issues: + +- The application UI may become scrambled +- You may encounter out-of-memory errors +- You may see Access Violations when closing windows or exiting the application + +If this occurs, restart SQL Diagnosis. +Refer to the image below after completing a copy using **Start Multi Copy...** +::: + +  + +4. Click **OK** when you see the "Done" message. +5. Click **Close**. +6. Click the **Backup...** button. + +:::info +Want to import specific tables only? +Remove any tables you do not want to import from the list before starting. +::: + +:::warning +Be careful if you just wanted to Import Specific table Only as might cause more error. +::: + +## Adhoc Backup + +Adhoc Backup allows you to manually create a backup of your SQL Firebird database at any time. This feature is useful for safeguarding your data before performing major changes, troubleshooting, or simply as part of your regular backup routine. Backups can be saved to your preferred location for easy restoration if needed. + +### Adhoc Backup Steps + +1. Click **Adhoc Backup** button (Icon C). +2. Click the button to select the SQL Firebird database. +3. Click the **Backup** button. + +  + +4. Choose the backup folder (default: Desktop). +5. Click **OK** to start the backup. + +  + +## Database Online + +The Database Online function is designed to bring your database back online when it has been shut down due to errors or maintenance. If you encounter a **"Database Shutdown"** message, this feature helps you quickly restore access and resume normal operations without extensive troubleshooting. + +### Database Online Steps + +1. Restart the Firebird service. +2. Click the **Database Online** button (Icon D). +3. Click the button to select the SQL Firebird database. + + + +## Batch Backup + +Batch Backup allows you to back up multiple databases at once or via a scheduled task. This is useful when managing several databases that require regular backups. + +1. Click the **Batch Backup...** button (Icon E). +2. Click **New**. +3. Enter the server name or IP address. + +  + +4. Click the three-dot button for the **Target Backup Folder** field and choose a folder, then click **OK**. + +  + +5. Select the folder where you wanted to backup to & click OK +6. Click on 3 dot button for Database File field + +  + +7. Select the SQL Accounting/Payroll Database & Click Open +8. Click Save Button. +9. Repeat Step 2 to 8 for additional database + +| Field | Description | +|---------------------|---------------------------------------------------------------| +| Check Box | Tick = Backup & UnTick = Not Backup | +| Seq | System Auto run record number sequence | +| Server IP or Name | Server Name/IP Address | +| Target Backup Folder| A folder path where the database is backup to | +| Database File | SQL Accounting/Payroll Firebird Database | +| Remark | System Auto Shown the selected Database Company Name & Remark | +| Status | Last Backup Status | +| Date Time | Last Backup Date & Time | + +### Schedule Backup + +Using Windows Schedule to Automatically run Batch Backup. + +1. Open Windows **Control Panel | Administrative Tools | Task Scheduler** + +  + +2. Click Action | Create Basic Task... + +  + +3. Enter Task Name (eg SQL Backup) & Click Next + +  + +4. Select Daily & Click Next + +  + +5. Set the Start Date & Time to Start +6. Set 1 for Recur every field & Click Next + +  + +7. Select Start a program & Click Next + +  + +### For Build 32 & above (Following Steps) + +1. Click **Browse** and locate **SQLDiagnosisV2.exe** (default: `C:\eStream\Utilities\SQLDiagnosis`). +2. Set the **Add arguments (optional)** field to **-Auto**. + +### For Build till 31 (Following Steps) + +1. Click **Browse** and locate **SQLScheduleV2.exe** (e.g., `C:\eStream\Utilities\SQLDiagnosis\SQLScheduleV2.exe`). +2. Set **Start in (optional)** to the exe folder (e.g., `C:\eStream\Utilities\SQLDiagnosis`) and click **Next**. +3. Tick **Open the Properties dialog for this task when I click Finish**. +4. Click **Finish**. + +  + +5. Select **Run whether user is logged on or not**. + +  + +6. Go to the **Triggers** tab and click **Edit...** to change the trigger time. + +  + +7. Change the scheduled time as required. + +  + +8. Click **OK** twice. +9. Enter the Windows user name and password when prompted, then click **OK**. + +:::info +Commands you can use in scheduled tasks to stop and start Firebird: + +- Stop Firebird: `C:\WINDOWS\SYSTEM32\NET.EXE` stop "Firebird Server - DefaultInstance" +- Start Firebird: `C:\WINDOWS\SYSTEM32\NET.EXE` start "Firebird Server - DefaultInstance" + +::: + +## History New/Updates/Changes + +### --Build 32-- + +- Mini Console - Add Get Generator List Function. +- Fix still unable to backup FDB if no SY_Profile table. +- Mini Console - Add Get Table Records Count Function. +- Change Schedule Backup using command instead exe. +- Enable support restore without zip. +- Remove Verbose on Schedule Backup. +- Update High Resolution Icon. +- Add "Non System Document Number Set..." Patch. + +### --Build 31-- + +- Add New Application Window function. +- Add Sweep Database in Validate function. +- Add Trim Empty Space - Payroll function in DB Patch. +- Update Copy Paste Error function to allow user enter Valid Company Code. +- Fix Memo not scroll down when remove temp table. +- Add Remove InValid Stock Category... Patch +- Fix unable to backup FDB if no SY_Profile table. + +### --Build 30-- + +- Add Option Use Full name for batch backup. +- Enable support FB3.0.2. + +### --Build 29-- + +- Add Update Generator to DB Patch function. +- Add Update Non Stock Control to Fixed Cost...to DB Patch function. +- Add Remove InActive User to DB Patch function. +- Add Change Agent & Area code to DB Patch function. +- Add Update GL Account Special A/c Type Null to Empty to DB Patch function. +- Add Update Batch Null to Empty to DB Patch function. + +### --Build 28-- + +- Upgrade to Version 2.8. +- Change New Icon. +- Fix InValid GST Transactions not working. +- Add Update Generators... Patch. + +### --Build 27-- + +- Fix patch Error string literal with 19890 characters exceeds the maximum length of 16383 characters for the utf8 character set. +- Add Multi Copy function for SQL DB Copy Table... + +### --Build 26-- + +- Add YED QT && PQ Purge... +- Add InValid GST Transations. + +### --Build 25-- + +- Upgrade to Version 2.7. +- Remove -l -g -ig from Schedule & Batch Backup. +- Replace IB Pump with SQL DB Copy Table...function. + +### --Build 24-- + +- Add Remark for Batch Backup filename. +- Add Load From File 2 for DB Patch function. + +### --Build 23-- + +- Upgrade to Version 2.6. +- Fixed DB Patch will auto remove & in the script. +- Fixed Load Build-In Patch Error in some pc. +- Add Remove Duplicate GL Stock Value Patch. +- Enable Proper Installation. + +### --Build 22-- + +- Internal release. + +### --Build 21-- + +- Upgrade to Version 2.5. +- Fix unable open fdb in LocalHost. +- Add Batch Backup. +- Add Schedule Backup. +- Fix AR/AP Copy Paste Patch not working in some situation. +- Fix still unable to backup in some situation. +- Fix Backup Metadata setting not correct for FB3.0 unicode +- Add Firebird Version label for Patch, Validate & Adhoc Backup. + +### --Build 20-- + +- Fix Application Name Error. +- Add DB Online function. +- Add Remove InValid CN Patch. + +### --Build 19-- + +- Fix unable to backup. +- Add Load From File... for DB Patch... + +### --Build 18-- + +- Upgrade to Version 2.4. +- Enable Support Firebird 3.0. +- Enhance Validate to support IBPump. +- Find Tune SQL Patch for New Patch Generator. +- Add Remove Maintain Customer, Supplier, Stock Item & Other Stock Maintenance. +- Add AR/AP Copy Paste Error Patch. +- Add Change Cash To Bank Type Patch. +- Add Reset Grid Layout Patch. +- Add Delete Default Currency Patch. diff --git a/docs/usage/general/others/supercharging-firebird-sql.md b/docs/usage/general/others/supercharging-firebird-sql.md new file mode 100644 index 00000000..592435e6 --- /dev/null +++ b/docs/usage/general/others/supercharging-firebird-sql.md @@ -0,0 +1,43 @@ +--- +sidebar_position: 12 +title: Supercharging FirebirdSQL +description: A guide about Supercharging FirebirdSQL +slug: /usage/general/others/supercharging-firebird-sql +tags: ["SQL Account", "Others", "Supercharging", "FirebirdSQL"] +--- + +## Introduction + +By default, Firebird does not fully utilize the available RAM. The steps below show how to adjust Firebird's page cache settings to: + +1. Make better use of available RAM (up to ~90% depending on database size and number of attached databases) +2. Improve database performance + +## Requirement + +- 64-bit Firebird Server +- Minimum 16 GB of RAM (recommended) + +Important: Make sure the server has a reliable UPS and that you test changes in a non-production environment first. Adjusting cache settings can significantly increase memory use and may affect system stability if not tested. + +## Steps + +1. Browse to Firebird folder (Normally in `C:\Program Files\Firebird\Firebird_3_0` for Firebird 3). + +2. Look for **firebird.conf** file & copy to Desktop. + +3. Open the **firebird.conf** at Desktop. + +4. Look for **#DefaultDbCachePages = 2048**. + +5. Remove the **#** . + +6. Change the **2048** to **1000000** for 16 GB RAM. (will use 8GB RAM) + +7. Save the file. + +8. Copy the **firebird.conf** at Desktop. + +9. Paste & Replace it in the Firebird folder **firebird.conf** file. + +10. Restart the Server. diff --git a/docs/usage/general/others/upgrade721-error.md b/docs/usage/general/others/upgrade721-error.md new file mode 100644 index 00000000..609626a2 --- /dev/null +++ b/docs/usage/general/others/upgrade721-error.md @@ -0,0 +1,110 @@ +--- +sidebar_position: 2 +title: Upgrade to 721 Script Error +description: A guide about Upgrade to 721 Script Error +slug: /usage/general/others/upgrade721-error +tags: ["SQL Account", "Others", "Upgrade", "Script"] +--- + +## Introduction + +This issue occurs if you have a script that reads the **TaxRate** from Maintain Tax in either: + +- the **OnGridColumnValueChange** script, or +- the **OnBeforeSave** script + +The error is caused by changes in SQL Accounting's coding structure that affect how tax rates are provided to user-defined scripts. + +## Problem + +You will see the error shown below when selecting an item code or changing a value in your UDF that triggers the function. + + + +## Solution + +The following example shows the error occurring in **Sales Invoice**. + +1. Click **Tools | DIY | SQL Control Center...** +2. In the left panel, locate **Sales Invoice > OnGridColumnValueChange** and/or **OnBeforeSave**. + +  + +3. Find the function definition similar to: + + **function GetTaxedValue(AValue: Variant; lTaxRate: string): Variant;** +4. Replace the existing function with the updated version below. + +Use this version for the **OnGridColumnValueChange** script: + +```pascal +function GetTaxedValue(AValue: Variant; lTaxRate: string): Variant; +var lStrLst: TStringList; + TaxRate, S: string; + I: Integer; +begin + Result := Null; + lStrLst := TStringList.Create; + TaxRate := DataSet.FindField('TaxRate').AsString; + try + try + lStrLst.Delimiter := '&'; + S := Trim(StringReplace(TaxRate, '+', '&', [rfReplaceAll])); + lStrLst.DelimitedText := Trim(StringReplace(s, 'E', '', [rfReplaceAll])); + for I := 0 to lStrLst.Count - 1 do + begin + S := Trim(lStrLst.Strings[I]); + if S[Length(S)] = '%' then + begin + S := Trim(Copy(S, 1, Length(S) - 1)); + AValue := AValue * ((100 + StrToFloat(S)) / 100); + end + else + AValue := AValue + StrToFloat(S); + end; + Result := AValue; + except + RaiseException(ExceptionType, 'Tax Rate formatting error '); + end; + finally + lStrLst.Free; + end; +end; +``` + +Use this version for the **OnBeforeSave** script: + +```pascal +function GetTaxedValue(AValue: Variant; lTaxRate: string): Variant; +var lStrLst: TStringList; + TaxRate, S: string; + I: Integer; +begin + Result := Null; + lStrLst := TStringList.Create; + TaxRate := D.DataSet.FindField('TaxRate').AsString; + try + try + lStrLst.Delimiter := '&'; + S := Trim(StringReplace(TaxRate, '+', '&', [rfReplaceAll])); + lStrLst.DelimitedText := Trim(StringReplace(s, 'E', '', [rfReplaceAll])); + for I := 0 to lStrLst.Count - 1 do + begin + S := Trim(lStrLst.Strings[I]); + if S[Length(S)] = '%' then + begin + S := Trim(Copy(S, 1, Length(S) - 1)); + AValue := AValue * ((100 + StrToFloat(S)) / 100); + end + else + AValue := AValue + StrToFloat(S); + end; + Result := AValue; + except + RaiseException(ExceptionType, 'Tax Rate formatting error '); + end; + finally + lStrLst.Free; + end; +end; +``` diff --git a/docs/usage/general/others/upgrade721-tax-fr3report.md b/docs/usage/general/others/upgrade721-tax-fr3report.md new file mode 100644 index 00000000..0ec66b15 --- /dev/null +++ b/docs/usage/general/others/upgrade721-tax-fr3report.md @@ -0,0 +1,51 @@ +--- +sidebar_position: 4 +title: Upgrade to 721 TaxRate Show A - Fast Report +description: A guide about Upgrade to 721 TaxRate Show A - Fast Report +slug: /usage/general/others/upgrade721-tax-fr3report +tags: ["SQL Account", "Others", "Upgrade", "Report"] +--- + +## Introduction + +This issue occurs when a report contains a script that retrieves the **TaxRate** from Maintain Tax. + +The error is caused by changes in SQL Accounting's coding structure that affect how tax rates are provided to reports. + +## Problem + +You will see the following error when previewing the report: + + + +## Solution + +1. Click the **Code** tab. +2. Scroll down and locate `procedure SetUp;`. +3. Replace the existing code with the following: + +  + + ```pascal + SQL := 'SELECT Dockey, Tax, TaxRate, Sum(CAST(LocalTaxAmt AS REAL)) LocalTaxAmt, Sum(CAST(LocalAmount AS REAL)) LocalAmount '+ + 'FROM Document_Detail ' + + 'WHERE Tax <> '''' ' + + 'GROUP BY Dockey, Tax, TaxRate'; + AddDataSet('GSTAmt', ['Tax', 'TaxRate', 'LocalTaxAmt', 'LocalAmount']) + ``` + +4. Click the **Subreport1** tab. + +  + +5. Double-click the Tax Rate memo. +6. Replace its expression with the following: + +  + + ```pascal + [IIF(Trim(
**Mandatory** – If posting to:
- GL Payment Voucher & GL Official Receipt
- Customer Invoice, Debit Note & Credit Note
- Supplier Invoice, Debit Note & Credit Note
- All Sales & Purchase Module without Item Code
**Not Required** – If posting Sales & Purchase with Item Code | + +### How to SQL Accounting handle if had Discount/Cash Voucher? + +You can treat the Discount/Cash Voucher as Part of item row but is in Negative UnitPrice + + + +### Begin 11 Oct 2019 the Company ROC/BRN will increase to 12 digit characters. Any changes in Linking? + +Yes if user is upgrade to Version 875.782 & above. + +Table Affected + +- `SY_PROFILE` => File | Company Profile + +- `AR_CUSTOMER` => Customer | Maintain Customer + +- `AP_SUPPLIER` => Supplier | Maintain Supplier + +Field Changes + +- Original Name **REGISTERNO** change to BRN + +- New Field BRN2 + +- New Field Size for both Fields 30 + +[SSM Announcement](https://www.ssm.com.my/Lists/Announcement/AnnouncementDetails.aspx?ID=134) or [PDF](https://download.sql.com.my/customer/Fairy/Announcement-NewROC.pdf) + +### Is there any changes in Linking for the E-Invoicing? + +New Field Added +Available in Version 5.2024.983.848 & above + +#### Maintain Customer & Maintain Supplier + +| **Field Name** | **Field Type** | **Field Size** | **Remarks** | +|----------------|----------------|----------------|--------------| +| **TIN** | String | 14 | Company Tax Register Number | +| **IDTYPE** | Integer | | 0 - Empty
1 - Reg No
2 - NRIC (New)
3 - Passport
4 - ARMY
5 - NRIC (Old) | +| **IDNO** | String | 20 | This field will depend on the ID Type selected | +| **TOURISMNO** | String | 17 | This is only applicable to tourism tax registrant, which may consist of hotel operators and online travel operators | +| **SIC** | String | 10 | Malaysia Standard Industrial Classification (MSIC) Codes
[https://sdk.myinvois.hasil.gov.my/codes/#msic-codes](https://sdk.myinvois.hasil.gov.my/codes/#msic-codes)
Available in Version (TBA)
Maintain Supplier Only | +| **SUBMISSIONTYPE** | Integer | 0 | Available in Version 5.2024.992.854 & above
0 = None
17 = E-Invoice/Self Billing (for Maintain Supplier)
18 = Consolidate | +| **IRBM_CLASSIFICATION** | String | 3 | Maintain Supplier Only
Category of products or services being billed as a result of a commercial transaction. More than 1 classification code can be added for goods / services included in the e-Invoice.
[https://sdk.myinvois.hasil.gov.my/codes/classification-codes/](https://sdk.myinvois.hasil.gov.my/codes/classification-codes/)
Available in Version 5.2024.990.852 & above | +| **POSTCODE** | String | 10 | The identifier for an addressable group of properties according to the relevant postal service | +| **CITY** | String | 50 | The common name of the city, town, or village, where the Customer/Supplier address is located. | +| **STATE** | String | 50 | The state of a country.
[https://sdk.myinvois.hasil.gov.my/codes/state-codes/](https://sdk.myinvois.hasil.gov.my/codes/state-codes/) | +| **COUNTRY** | String | 2 | A code that identifies the country.
May refer to [Country List](https://docs.google.com/spreadsheets/d/1TcFVqH1VCJ5SjHAt2VCHIeTTcQVUjtIBxLaZGGM0E5k/edit?gid=1859696683#gid=1859696683) | + +#### Maintain Stock Item + +| **Field Name** | **Field Type** | **Field Size** | **Remarks** | +|----------------|----------------|----------------|--------------| +| **IRBM_CLASSIFICATION** | String | 3 | Category of products or services being billed as a result of a commercial transaction. More than 1 classification code can be added for goods / services included in the e-Invoice.
[https://sdk.myinvois.hasil.gov.my/codes/classification-codes/](https://sdk.myinvois.hasil.gov.my/codes/classification-codes/) | + +Available in Version 5.2024.990.852 & above + +#### Sales & Purchase Data Entry - Header + +| **Field Name** | **Field Type** | **Field Size** | **Remarks** | +|----------------|----------------|----------------|--------------| +| **EIVDATETIME** | DateTime | 0 | For below version 5.2024.1001.858
E-Invoicing Submitted Date time in the UTC timezone
e.g. 19/07/2024 7:17:43 AM | +| **EIV_UTC** | DateTime | 0 | For version 5.2024.1001.858 & Above
E-Invoicing Submitted Date time in the UTC timezone
e.g. 19/07/2024 7:17:43 AM | +| **IRBM_UUID** | String | 26 | E-Invoicing Submitted response UUID
e.g. FSEP22A4Y5BFGGWAX95N943811 | +| **IRBM_LONGID** | String | 50 | E-Invoicing Submitted response Long UUID
e.g. TM9AFNQ0M76T07BTX95NX43J10CzvSE31712365482 | +| **IRBM_STATUS** | Integer | 0 | E-Invoicing Submitted Status
[https://sdk.myinvois.hasil.gov.my/faq/](https://sdk.myinvois.hasil.gov.my/faq/)
e.g. 2 | +| **POSTCODE** | String | 10 | The identifier for an addressable group of properties according to the relevant postal service | +| **CITY** | String | 50 | The common name of the city, town, or village where the Customer/Supplier address is located. | +| **STATE** | String | 50 | The state of a country.
[https://sdk.myinvois.hasil.gov.my/codes/state-codes/](https://sdk.myinvois.hasil.gov.my/codes/state-codes/) | +| **COUNTRY** | String | 2 | A code that identifies the country.
May refer to Country List Here | +| **DPOSTCODE** | String | 10 | The identifier for an addressable group of properties according to the relevant postal service | +| **DCITY** | String | 50 | The common name of the city, town, or village where the Customer/Supplier address is located. | +| **DSTATE** | String | 50 | The state of a country.
[https://sdk.myinvois.hasil.gov.my/codes/state-codes/](https://sdk.myinvois.hasil.gov.my/codes/state-codes/) | +| **DCOUNTRY** | String | 2 | A code that identifies the country.
May refer to Country List Here | +| **SALESTAXNO** | String | 25 | | +| **SERVICETAXNO** | String | 25 | | +| **TIN** | String | 14 | Company Tax Register Number | +| **IDTYPE** | Integer | | 0 - Empty
1 - Reg No
2 - NRIC (New)
3 - Passport
4 - ARMY
5 - NRIC (Old) | +| **IDNO** | String | 20 | This field will depend on the ID Type selected | +| **TOURISMNO** | String | 17 | This is only applicable to tourism tax registrant, which may consist of hotel operators and online travel operators | +| **SIC** | String | 10 | Malaysia Standard Industrial Classification (MSIC) Codes
[https://sdk.myinvois.hasil.gov.my/codes/#msic-codes](https://sdk.myinvois.hasil.gov.my/codes/#msic-codes)
Maintain Supplier Only | +| **INCOTERMS** | String | 20 | A set of international trade rules that define the responsibilities of buyers and suppliers.
The input of special characters is not allowed. | +| **SUBMISSIONTYPE** | Integer | 0 | Available in Version 5.2024.992.854 & above
0 = None
17 = E-Invoice/Self Billing (for Purchase Only)
18 = Consolidate | + +#### Sales & Purchase Data Entry - Detail + +| **Field Name** | **Field Type** | **Field Size** | **Remarks** | +|----------------|----------------|----------------|--------------| +| **TAXEXEMPTIONREASON** | String | 300 | Available in Version 5.2024.992.854 & above
For Tax Exemption Code use only | +| **IRBM_CLASSIFICATION** | String | 3 | Category of products or services being billed as a result of a commercial transaction. More than 1 classification code can be added for goods / services included in the e-Invoice.
[https://sdk.myinvois.hasil.gov.my/codes/classification-codes/](https://sdk.myinvois.hasil.gov.my/codes/classification-codes/) | + +Available in Version 5.2024.990.852 & above + +#### Maintain Currency + +| **Field Name** | **Field Type** | **Field Size** | **Remarks** | +|----------------|----------------|----------------|--------------| +| **ISOCODE** | String | 3 | [https://sdk.myinvois.hasil.gov.my/codes/countries/](https://sdk.myinvois.hasil.gov.my/codes/countries/) | + +Available in Version 5.2024.995.855 & above + +#### GL Cash Book - Payment Voucher & Office Receipt - Header + +| **Field Name** | **Field Type** | **Field Size** | **Remarks** | +|----------------|----------------|----------------|--------------| +| **EIV_UTC** | DateTime | 0 | E-Invoicing Submitted Date time in the UTC timezone
e.g. 19/07/2024 7:17:43 AM | +| **COMPANYNAME** | String | 100 | | +| **ADDRESS1** | String | 60 | | +| **ADDRESS2** | String | 60 | | +| **ADDRESS3** | String | 60 | | +| **ADDRESS4** | String | 60 | | +| **POSTCODE** | String | 10 | The identifier for an addressable group of properties according to the relevant postal service | +| **CITY** | String | 50 | The common name of the city, town, or village where the Customer/Supplier address is located. | +| **STATE** | String | 50 | The state of a country.
[https://sdk.myinvois.hasil.gov.my/codes/state-codes/](https://sdk.myinvois.hasil.gov.my/codes/state-codes/) | +| **COUNTRY** | String | 2 | A code that identifies the country.
May refer to Country List Here | +| **PHONE1** | String | 200 | | +| **SALESTAXNO** | String | 25 | | +| **SERVICETAXNO** | String | 25 | | +| **TIN** | String | 14 | Company Tax Register Number | +| **IDTYPE** | Integer | | 0 - Empty
1 - Reg No
2 - NRIC (New)
3 - Passport
4 - ARMY
5 - NRIC (Old) | +| **IDNO** | String | 20 | This field will depend on the ID Type selected | +| **TOURISMNO** | String | 17 | This is only applicable to tourism tax registrant, which may consist of hotel operators and online travel operators | +| **SIC** | String | 10 | Malaysia Standard Industrial Classification (MSIC) Codes
[https://sdk.myinvois.hasil.gov.my/codes/#msic-codes](https://sdk.myinvois.hasil.gov.my/codes/#msic-codes)
Maintain Supplier Only | +| **SUBMISSIONTYPE** | Integer | 0 | 0 = None
17 = Self Billing
18 = Consolidate
19 = E-Invoice Refund | +| **IRBM_UUID** | String | 26 | E-Invoicing Submitted response UUID
e.g. FSEP22A4Y5BFGGWAX95N943811 | +| **IRBM_LONGID** | String | 50 | E-Invoicing Submitted response Long UUID
e.g. TM9AFNQ0M76T07BTX95NX43J10CzvSE31712365482 | +| **IRBM_STATUS** | Integer | 0 | E-Invoicing Submitted Status
[https://sdk.myinvois.hasil.gov.my/faq/](https://sdk.myinvois.hasil.gov.my/faq/)
e.g. 2 | + +#### GL Cash Book - Payment Voucher & Office Receipt - Detail + +| **Field Name** | **Field Type** | **Field Size** | **Remarks** | +|----------------|----------------|----------------|--------------| +| **IRBM_CLASSIFICATION** | String | 3 | Category of products or services being billed as a result of a commercial transaction. More than 1 classification code can be added for goods / services included in the e-Invoice.
[https://sdk.myinvois.hasil.gov.my/codes/classification-codes/](https://sdk.myinvois.hasil.gov.my/codes/classification-codes/) | + +### Change to Boolean Type + +Begin from SQL Acc Version 5.2024.1007.860 & above the follow field type will change to Boolean Type (True/False) + +[SQL Accounting 860](https://download.sql.com.my/customer/Fairy/sqlacc.x86.5.2024.1008.860.exe) + +| **For Version 859 & Below** | **For Version 860 & Above** | +|-----------------------------|------------------------------| +| - T
- 1 | True | +| - F
- 0 | False | + +| FieldName | True Value | False Value | +| --- | --- | --- | +| TaxInclusive | 1 | 0 | +| SerialNumber | T | F | +| Cancelled | T | F | +| Cancelled | 1 | 0 | +| AddPDCToCRLimit | T | F | +| Transferable | T | F | +| IsActive | T | F | +| IsActive | 1 | 0 | +| NonRefundable | 1 | 0 | +| AllowExceedCreditLimit | T | F | +| Printable | T | F | +| StockControl | T | F | +| IsBase | 1 | 0 | +| IsDefault | 1 | 0 | +| IsDefault | T | F | + +| Programming | Before (For Version 859 & below) | After (For Version 860 & Above) | +| --- | --- | --- | +| C# | lDetail.FindField("TaxInclusive").value = 1;
lDetail.FindField("Printable").AsString = "T"; | lDetail.FindField("TaxInclusive").value = True;
lDetail.FindField("Printable").value = True; | +| PHP | \$lDetail->FindField("TaxInclusive")->value = 0;
\$lDetail->FindField("Printable")->AsString = "T"; | \$lDetail->FindField("TaxInclusive")->value = False;
\$lDetail->FindField("Printable")->value = True; | +| Python | lDetail.FindField("TaxInclusive").value = 1
lDetail.FindField("Printable").AsString = "T" | lDetail.FindField("TaxInclusive").value = True
lDetail.FindField("Printable").value = True | +| Query SQL | SELECT CODE, DESCRIPTION FROM AGENT
WHERE ISACTIVE='T'
or
SELECT CODE, DESCRIPTION FROM SHIPPER
WHERE ISACTIVE=1 | SELECT CODE, DESCRIPTION FROM AGENT
WHERE ISACTIVE
or
SELECT CODE, DESCRIPTION FROM SHIPPER
WHERE ISACTIVE | +| Query SQL | SELECT CODE, DESCRIPTION FROM AGENT
WHERE ISACTIVE='F'
or
SELECT CODE, DESCRIPTION FROM SHIPPER
WHERE ISACTIVE=0 | SELECT CODE, DESCRIPTION FROM AGENT
WHERE NOT ISACTIVE or
SELECT CODE, DESCRIPTION FROM SHIPPER
WHERE NOT ISACTIVE | diff --git a/docs/usage/general/view.md b/docs/usage/general/view.md new file mode 100644 index 00000000..67e6ff10 --- /dev/null +++ b/docs/usage/general/view.md @@ -0,0 +1,232 @@ +--- +sidebar_position: 1 +title: View +description: A guide about View for SQL Account +slug: /usage/general/view +tags: ["SQL Account", "Usage", "View"] +--- + +## Tabbed Docking + +Similar to Internet Explorer or Google Chrome, the application supports a tabbed layout so you can view windows as tabs instead of separate windows. + + + + + +## Application Theme + +The Application Theme allows users to change the application's skin/layout to their preference. Enabling themes may consume more system resources. + + + + + +## Show Chart + +`View | Show Chart` + +This function displays sales and purchase price history data in chart form. + +1. Open Sales or Purchase Price History via `Sales | Print Sales Price History` or `Purchase | Print Purchase Price History`. + +2. Highlight the data in the grids. + +  + +3. Click on `View | Show Chart`. + +4. A dialog prompts three chart types (Bar Chart, Line Chart, Pie Chart). See the screenshot below. + +  + +Data transform into the chart depends on the data highlighted in the Sales/Purchase Price History grid. + +## Sales Price History (Shift+Ctrl+S) + +`View | Sales Price History...` + +This function provides a quick check of an item's sales price history while creating sales, purchase, or stock documents. + +`Shift + Ctrl + S` + +1. As long as you have highlighted the item code (e.g., in Maintain Stock Item or while creating sales/purchase documents). + +2. Press Shift + Ctrl + S to open the Sales Price History for the item. + +  + +3. Insert a Company Name column to compare the sales price history by company. + +  + +4. Set the latest number of records to be displayed for each sales document type (QT, SO, DO, IV, CS, CN, DN). + +  + +5. Click on Sales to exclude the sales document types. + +  + +Sales Price History is always enabled to quickly view the price history for customers. + +## Purchase Price History (Shift+Ctrl+P) + +`View | Purchase Price History...` + +This function provides a quick check of an item's purchase price history while creating sales, purchase, or stock documents. + +`Shift + Ctrl + P` + +1. As long as you have highlighted the item code (e.g., in Maintain Stock Item or while creating sales/purchase documents). + +2. Press Shift + Ctrl + P to open the Purchase Price History for the item. + +  + +3. Insert a Company Name column to compare purchase price history by company. + +  + +4. Set the latest number of records to be display for each purchase document types (PQ, PO, GR, PI, CP, SC, SD). + +  + +5. Click on Purchase to exclude the purchase document types. + +  + +Purchase Price History is always enabled to quickly view price history for suppliers. + +## Available Stock Balance (Ctrl+F11) + +`View | Available Stock Balance...` + +This function provides a quick check of stock status while creating sales, purchase, or stock documents. + +`Ctrl+F11` + +1. As long as you have highlighted the item code (e.g., in Maintain Stock Item or while creating sales/purchase documents). + +2. Press Ctrl+F11 - Available Stock Balance.... + +  + +### Stock Card Qty By Location + +1. The Stock Card Qty By Location tab shows the stock status summarized by location and batch. + +2. See the screenshot below. + +  + + | Column Name | Explanation | + | --- | --- | + | Location | Stock qty balances group by location. | + | Batch | Stock qty balances group by batch. | + | S.O.Qty | Outstanding SO Qty (Back Order). | + | P.O.Qty | Outstanding PO Qty (Back Order). | + | J.O.Qty | Outstanding JO Qty (Job Order Outstanding). | + | Qty | On hand Qty. | + | Avail.Qty | Future Qty. | + | Exp.Date | Batch expiry date. | + +### Back Order Detail + +1. To check the S.O.Qty, P.O.Qty and J.O.Qty in detail. +2. Click on Back Order Detail tab. See the screenshot below. + +  + +### Alternative Stock Item + +1. Click on the Alternative Stock Item tab to check the alternative item code. +2. See the screenshot below. + +  + +Available Stock Balance is always enabled to quickly view stock status. + +## Price Tag (Ctrl+T) + +`View | Price Tag...` + +This function quickly displays the price tag settings for an item. + +`Ctrl + T` + +1. As long you are highlight the item code, eg. at Maintain Stock Item or during the sales/purchase documents creation. +2. Press Ctrl + T to check the Price Tag... for the item. + +  + +Price Tag is always enabled to quickly view price tag information for the item. + +## Stock Item Picture + +`View | Stock Item Picture` + +This function displays the picture of the selected stock item. + +1. As long you are highlight the item code, eg. at Maintain Stock Item or during the sales/purchase documents creation. +2. Click on View | Stock Item Picture. + +  + +Stock Item Picture always turns-on to quickly view the picture of the stock item. + +## Stock Item Search (F9) + +`View | Stock Item Search` + +This function is to quickly search for the items by entering a keyword. It is easy to apply the item found into the sales/purchase/stock documents. + + + +`F9` + +1. Enter a keyword to search for items. + +  + +2. You can highlight multiple items. + +  + +3. Drag and drop the highlighted items into the invoice detail grid. + +  + +4. The items will be inserted into the invoice detail grid. See the screenshot below. + +  + +Item Search is always enabled to help find items when creating documents. + +## Advance Search (Ctrl+F) + +`Edit | Find` + +This function finds records by selected field(s) and parameters. + +`Ctrl + F` + + + +| Field Name | Properties | +| --- | --- | +| Display Fields | Fields to be displayed on the result screen. | +| Tick Button | Select all. | +| Cross Button | Unselect all. | +| Plus Button | Add Condition | +| Minus Button | Remove Selected Condition | +| Match any of the following | Is OR condition. Find ANY Match Value on the Selected Condition. | +| Match all of the following | Is an AND condition. Find ALL Match Value on the Selected Condition. | +| Fields | Available Field(s) can Search for. | +| Operator | Type of Search. | +| Check Box | Selected Conditions which need to run/execute. | +| Value 1 | Parameter 1 or What to Value to Find. | +| Value 2 | Parameter 2 or What to Value to find and only Available for Operators between and not between. | +| Search | Apply or Search the Value. | +| Clear | To Clear All Conditions(Default Action) or All Value. | +| Case Sensitive | Tick if you want to find the value is Case Sensitive. | diff --git a/docs/usage/gst-and-sst/_category_.json b/docs/usage/gst-and-sst/_category_.json new file mode 100644 index 00000000..0734dfb9 --- /dev/null +++ b/docs/usage/gst-and-sst/_category_.json @@ -0,0 +1,8 @@ +{ + "label": "GST and SST ", + "position": 10, + "link": { + "type": "generated-index", + "description": "GST and SST guide" + } +} \ No newline at end of file diff --git a/docs/usage/gst-and-sst/gst.md b/docs/usage/gst-and-sst/gst.md new file mode 100644 index 00000000..158b0435 --- /dev/null +++ b/docs/usage/gst-and-sst/gst.md @@ -0,0 +1,3174 @@ +--- +sidebar_position: 1 +title: GST +description: GST +slug: /usage/gst-and-sst/gst +tags: ["SQL Account", "Usage", "GST"] +--- + +## GST Setup and Information + +## GST Count Down Timer + +This is a countdown timer for the submission of the GST Return. It is generally displayed 7 days before the GST Return due date. + +**Example GST Count Down Timer:** + + + +### Formula + +Visible := (Return Due - Today Date - 1) < 7 + +### Example + +Frequently : Monthly + +Next Submission : Nov 2016 + +Count Down begin shown : 24 Dec 2016 + +Today date : 27 Dec 2016 + +Count Down Shown : 3 Days+++ + +## GST Return + +To process and close the GST Returns period. You can generate the GST-03 and GAF. + +### New GST Return + + + +| **Field Name** | **Field Type** | **Explanation** | +|--------------------------------|----------------|---------------------------------------------------------------------------------| +| Process From to | Date | GST Taxable Period, e.g., either monthly or quarterly. | +| Process Date | Date | Date to process the GST Return. | +| Amendment | Boolean | Ticked. In GST-03, the "Amendment" checkbox will be marked X. | +| C/F Refund for GST | Boolean | Ticked. In GST-03, Item 9 "Do you choose to carry forward refund for GST?" will be marked X in Yes checkbox. | +| Longer Period Adjustment (LPA) | Boolean | Auto ticked according to the first tax year adjustment. | +| Description | String | GST Return - Process From Date to Date (by default). | +| Ref 1 | String | Key-in any reference no. | +| Ref 2 | String | Key-in any reference no. | + +### Draft GST Return + +You can draft the GST-03 before the final GST-03 submission by processing it as a draft. + +1. Click the dropdown arrow nect to the Process button (Y). +2. Refer to the screenshot below. + +  + +3. DRAFT Status showed for the GST Returns period. + +  + +:::note + +You can still amend documents while the GST return is in **DRAFT** status. Multiple drafts can be created before FINAL process the GST Returns for the period. + +::: + +### Final GST Return + +1. Click the Process button. +2. Refer to the screenshot below. + +  + +3. The finalized GST Return will no longer display "DRAFT" in the status column. + +  + +:::note + +You cannot amend the documents anymore where the FINAL GST return has generated. + +::: + +### Extra + +#### AR & AP Bad Debt Relief + +1. Bad Debt Relief screen will appear (see the screenshot below) if the system detects outstanding Tax Invoices that have expired for 6 months. +2. Sales documents from the company without GST No. will be un-ticked. You can tick the documents if you believe the company is GST-Registered. + +  + + :::note Tips: + +  + + To avoid to tick the documents manually for GST Registered company, please go to update the GST no at Maintain Customer. + + ::: + +3. Press OK if a "confirm" message is prompted (see the screenshot below), This indicates that some companies do not have a GST No. +4. If you confirmed that the company is Non-GST Registered, press YES to proceed. +5. Otherwise, press NO and update the GST No. in Maintain Customer to confirm the company is GST-registered before processing the GST Return. + +  + +#### Capital Goods Acquired + +1. If you receive a prompt for **GST Return - Capital Goods Acquired**, it indicates that there are credit adjustment transactions for Fixed Asset Account. See below screenshot. + +  + +2. Select the transactions line to include the credit adjustment (eg. Rm15,000.00). Otherwise, the system will capture the value of Rm60,000.00 in GST-03 item 16. See the screenshot below. + +  + +3. It will capture the net capital goods acquired value in GST-03 item 16. + +  + +## Open GST Return + +1. See the screenshot below: + +  + +2. You can insert more available fields. + +  + + | **Field Name** | **Field Type** | **Explanation** | + |---------------------------------------|----------------|---------------------------------------------------------------------------------| + | Status | String | To show the GST Return status, i.e., DRAFT, DE-REGISTER. | + | Process Date | Date | To show process date. | + | Date From | Date | To show date from. | + | Date To | Date | To show date to. | + | Description | String | To show the description entered. | + | Ref 1 | String | To show the ref 1 entered. | + | Ref 2 | String | To show the ref 2 entered. | + | User | String | To display the User process the GST Return. | + | Closed | Boolean | Always ticked to close. | + | LPA for Partial Exemption | Boolean | Longer period adjustment (LPA) for partial exemption (Mixed Supplies). | + | De-register | Boolean | Ticked if the taxable period has de-register date. | + | Amendment | Boolean | To show the GST Return has ticked this option. | + | | | Refer to :[GST GUIDE ON AMENDMENT RETURN (GST-03)](https://sites.google.com/site/sqlestream/sql-financial-accounting/9-good-and-service-tax-gst---malaysia/9-22-gst-03-item-detail) | + | C/F Refund for GST | Boolean | To show the GST Return has ticked this option. | + | Process Net Realized Exchange Gain/Loss | Boolean | No longer use because system auto handles this option. | + | Tax Year | Boolean | Tax Year point. | + | De Minimis Rule | Boolean | - Ticked = Pass | + | | | - Un-ticked = Not Pass | + | Residual Input Tax Recovery Rate (%) | Float | To display the IRR %. | + | LPA Date From | Date | LPA date from. | + | LPA Date To | Float | LPA date to. | + | ∑ Output Tax | Float | To show the total output tax value. | + | ∑ Input Tax | Float | To show the total input tax value. | + | GST Amount Payable | Float | Net GST Payable or Claimable. | + | Journal No. | String | Auto post the JVGST-XXXXX to reconcile the GST Payable and GST Claimable accounts. | + | | Button | Options button: GST-03, Print GST Listing, Generate GST Audit File (GAF). | + + :::note Tips: + + You can click New GST Return in Open GST Return screen. See below the screenshot. + +  + + ::: + +## Maintain Tax + +- This to Maintain all the available tax given by Government or user can self add or modified + + + +### Create New Tax + +- Screenshot below is the Maintain Tax entry form. + + + + + +| **Field Name** | **Explanation & Properties** | +|------------------|-----------------------------------------------------------------------------------------------| +| Code | Enter the tax code to be shown in report. | +| Active | - Checked: Active & able to select from the Tax List in data entry. | +| | - UnChecked: InActive & unable to select from the Tax List in data entry. | +| Description | Enter the tax description. | +| Tax Type | Select the Tax Type for the Tax Code to be created. | +| Tax Rate | User can self-determine the rate or set Auto: | +| | - **A**: Auto Tax Rate. System will auto change to new rate if there is update in GST Rate (must update SQL Accounting). | +| | - **E**: Excluded from IRR calculation (useful for OS Tax Code & Mixed Supplies Industry). | +| | - **EA**: Combination of A & E. | +| | - **6%**: User-defined fixed rate (e.g., 6%). | +| | - **E6%**: Fixed rate excluded from IRR calculation. | +| | Default 1st row is the Default selection in data entry. | +| Tax Account | Select an appropriate GL Account from Maintain Account. | +| Tax Inclusive | - Checked: Default is Tax Inclusive. | +| | - UnChecked: Default is Tax Exclusive. | + +### Use of Tax + +- You can set the tax as default at the following + 1. GL | Maintain Account... + 2. Customer | Maintain Customer... | Tax + 3. Supplier | Maintain Supplier... | Tax + 4. Stock | Maintain Stock Item... | Output Tax/Input Tax + 5. Tools | Options | Customer | Default Output Tax + 6. Tools | Options | Supplier | Default Input Tax +- Therefore, item inserted will be automatically calculate the tax amount based on the subtotal. See below screenshot. + + + +### Default System Tax Seq + +Default System Tax Seq are as follow + +***For Sales & Purchase*** + +1) Maintain Customer/Supplier +2) Maintain Item Code +3) Tools | Options | Customer/Supplier => For Version 836.761 & below +4) Maintain Tax with IsDefault is Tick => For Version 837.762 & above + +***For AR & AP*** + +1) Maintain Customer/Supplier +2) Maintain Account +3) Tools | Options | Customer/Supplier => For Version 836.761 & below +4) Maintain Tax with IsDefault is Tick => For Version 837.762 & above + +***For GL*** + +1) Maintain Account + +## GST Effective Date + +Enable to set the GST start date (register) and end date (de-register). + +1. Below the screenshot is the Start GST wizard, you are required to set the GST Effective Date. + +  + +2. You can check the GST Effective Date under the menu GST | GST Effective Date... + +  + + | Field Name | Field Type | Explanation | + |-------------------------------|------------|---------------------------------------| + | GST Effective Date | Date | GST start date. | + | I want to de-register from GST | Boolean | To set de-register date from GST. | + +### How to set De-register + +1. At the GST effective date screen, tick on I want to de-register from GST. + +  + +2. Next', type-in the de-register date. Let's assume ABC Sdn Bhd ceased to be a registered person on 15 May 2016. + +  + +3. Click Finish to confirm the de-register date. +4. GST De-register Date : 15 May 2016 will displayed below the GST effective date. See the screenshot below. + +  + +5. Click **Finish** to exit. + +:::note Tips: + +You can found the De-Register markings in the GST Returns. See the screenshot below. + + + +::: + +### How to cancel De-Register Date? + +1. At the GST effective date screen, click on the **De-Register Date**. + +  + +2. Leave the De-Register date **blank** or become **d/M/yyyy**. See the screenshot below. + +  +  + +3. Click **Finish** to confirm remove the de-register date. + +## Gift / Deemed Supply + +This guide will teach you to enter the gift and deemed supply in SQL Financial Accounting. + +### Gift + +#### Gift Rules + +Goods worth not more than RM500 given FREE to the same person in the same year. **The word ‘year’ in paragraph 5(2) (a) of the First Schedule of GSTA 2014 refers to ‘tax year ‘(financial year)**. + +- not a supply +- not subject to GST +- input tax is claimable + +> **What it means year as Tax Year (Financial Year)?** +> For example.... +GST Effective Date: 01 Apr 2015 +Financial Start Period: 01 July 2014 +> +> +> First tax year will be: 01 Apr 2015 - 30 Jun 2016 (15 months) - Gift rule Rm500 per person per tax year +> Second tax year will be: 01 Jul 2016 - 30 Jun 2017 (12 months) - Gift rule Rm500 per person per tax year + +**Example 1:** +Company XY Sdn Bhd purchased 15 hampers worth RM200/hamper to be given to each of his employees. + +- every employee will get one hamper FOC. +- no need to account for output tax. +- input tax on 15 hampers = RM180.00 (6% x RM3,000.00) is claimable. + +**Example 2:** +Company CX Sdn Bhd has purchased a watch worth RM400.00 and gave it to one of the director’s son. + +- The gift is not subject to GST because its value is less than RM500.00 (gift rule). +- input tax incurred on the purchase is claimable. + +**Example 3:** +A Company purchased a laptop worth RM1,500.00 and gave the laptop to a director’s son as a gift. + +- GST on the laptop must be accounted for by the company as output tax. +- the value of the goods is more than RM500.00. + +**Example 4:** +A company purchased a laptop worth RM1,500.00 three years ago. Currently the company has given the laptop to one of his business partners. For the purpose of accounting GST, the company has to use open market value of the goods now where the value of the goods is RM450.00, i.e. the value of the goods has depreciated. + +- no need to account for output tax on the gift +- the value of the goods is less than RM500.00. (Gift rule applicable) + +**Example 5:** +Company C rewarded RM5,000.00 to his best employee of the year. + +- not subject to GST +- money is neither goods nor services + +#### Gift Document Entry + +1. Click on New. +2. Select Type : Gift. + +  + + :::note Note: + + You will see this note "Entitle Yearly Exempt RM500.00" at the bottom. + + ::: + +3. For Gift, you must select Code : Customer Code. +4. Select Item Code: Item Code. +5. Select a preferred Expenses GL Account. User has to create a GL Account in Maintain Account. + + For example, + + | Item Code | Description | Qty | UOM | U/Cost | Sub Total | Tax | Tax Rate | Tax Amount | SubTotal (Tax) | Expenses GL Account | + |-----------|-------------|------|------|--------|-----------|-----|----------|------------|----------------|--------------------------------| + | ANT | ANTENA | 1.00 | UNIT | 350.00 | 350.00 | DS | 6% | 0.00 | 350.00 | 999-999 GST Gift/Deemed Supply | + +  + +6. **Yearly Amount** will immediately updated together with the current Gift document amount. + + > **Yearly Amount** = Cumulative gift amount in the same year + current gift document amount + +7. Below screenshot is the 2nd gift document created for same company/person in the same year. **The word ‘year’ in paragraph 5(2) (a) of the First Schedule of GSTA 2014 refers to ‘tax year ‘(financial year)**. + +  + +8. System will auto calculate tax amount once exceed RM500.00 + + | Gift Date | Gift | Cost | Tax Amount | Calculation | + |------------|--------|--------|------------|----------------| + | 05/01/2016 | ANTENA | 200.00 | 0.00 | | + | 17/02/2016 | ANTENA | 350.00 | 33.00 | RM550 × 6% | + + :::note Note: + + The calculation of the gift is based on the Total value of the gift once exceed RM500. + + ::: + +9. Click on Tax Estimator. You can see the GST Amount to be process to the gift. + +  + +#### Process GST Return + +During process of GST-03 Return, if the system detects there are deemed supplies (DS) under gift, it will add this GST Tax under DS as output Tax. + + + +### Deemed Supply + +1. Click on **New**. +2. Select **Type** : Deemed Supply. + +  + +3. For Deemed Supply, you can leave the **Code** `<
• Field type: Alphanumerical
• Length: 20 | +| **Description** | • Input the Stock Group description
• Field type: Alphanumerical
• Length: 200 | +| **Costing Method** | • Select an appropriate Costing Method for stock valuation
• Options: FIFO, Weighted Average, Fixed Costing | +| **Sales Code** | • Select a GL Account for Sales | +| **Cash Sales Code** | • Select a GL Account for Cash Sales | +| **S.Return Code** | • Select a GL Account for Sales Returns Inward | +| **Purchase Code** | • Select a GL Account for Purchase | +| **Cash Purchase Code** | • Select a GL Account for Cash Purchase | +| **P.Return Code** | • Select a GL Account for Purchase Returns Outward | + +## Maintain Stock Item + +1. **Stock** > **Maintain Stock Item**. + +2. To set up the stock item list. + + + +### Main Header + +1. Maintain Stock Item entry form is shown in the screenshot below. + + + +| **Field Name** | **Explanation & Properties** | +|----------------|-------------------------------| +| **Code** | • Input the new Stock Code
• Field type: Alphanumerical
• Length: 30 | +| **Description** | • Input the Stock Description (This usually appears in most of the documents printouts, e.g., invoices, purchase orders, etc...)
• Field type: Alphanumerical
• Length: 200 | +| **2nd Description** | • Input the 2nd Description, eg. size, alternative product name
• Field type: Alphanumerical
• Length: 200 | +| **Serial No.** | • Tick to enable serial control items (Requires Serial Number module)
• Field type: Checkbox | +| **Stock Control** | • Tick to enable stock control. The system will check availability to ensure the stock balance does not fall below zero or the reorder level.
• Field type: Checkbox | +| **Active** | • Tick for the stock in use
• Untick for discontinued stock
• Field type: Checkbox | +| **Item Group** | • Select an appropriate Stock Group | +| **Base UOM** | • Enter a base UOM for stock valuation, eg. UNIT | +| **Ref. Cost** | • Enter a standard cost | +| **Ref. Price** | • Enter a standard selling price | +| **Shelf** | • Enter a shelf/rank no., e.g., A-01, A-02, A-03 in location A | +| **Reorder Level** | • Enter a stock reorder level to alert new order
• Refer to menu: Stock \ Print Stock Reorder Advice... | +| **Reorder Qty** | • Enter a reorder qty (MOQ) | +| **Lead Time** | • Enter a lead time to receive the goods | +| **Output Tax** | • Enter a default Output Tax | +| **Input Tax** | • Enter a default Input Tax | +| **Remark 1** | • Free field to enter extra info | +| **Remark 2** | • Free field to enter extra info | +| **Barcode** | • Enter a barcode (represents base UOM) | +| **Tariff** | • Assign a tariff code
• Lookup from Maintain Tax
• Related Topic: Maintain_Customer#Tax , Maintain_Supplier#Tax | +| **Bal Qty** | • Display the latest qty balance | + +### UOM + +1. Allow to set multiple UOM, e.g., 1 carton = 12 units. +2. Besides that, you can set the default UOM for Sales, Purchase and Stock entry form. +3. See the screenshot below. + + + +### Cust.Price + +1. Allow to set **multiple pricing/contract prices** for customer. +2. You can use **price tag** to tag the price for a customer. +3. The **Multiple Pricing** module is required. +4. See the screenshot below. + + + +### Supp.Price + +1. Allow to set **multiple pricing/contract prices** for supplier. +2. You can use **price tag** to tag the price for a supplier. +3. The **Multiple Pricing** module is required. +4. See the screenshot below. + + + +- Related Topic : [How is the Price Tag work?](https://sites.google.com/site/sqlestream/sql-financial-accounting/7-system-setting/7-20-how-is-the-price-tag-work) + +### BOM + +1. Allow to setup **recipes/ingredients** for a manufactured product. +2. The **Bill of Materials** module is required. +3. See the screenshot below. + + + +### More Desc + +1. Enter the product details or specifications. +2. See the screenshot below. + + + +> **Tips:** +> Example view from Sales Tax Invoice: + + + +### Opn Bal + +1. Used to enter the opening stock quantity and value balances. + + + +### Category + +1. Used to set multiple stock categories for reporting purposes, e.g., country origins, brands, etc. +2. See the screenshot below. + + + +### Alternative + +1. Enable to identify the alternative items for replacement. + + + +### Cust. Item + +1. To enter the **customer item code** and **description**. +2. The purpose is to search for or print the customer item code and description in a tax invoice instead of using the original item description. + + +### Supp. Item + +1. To enter the **supplier item code** and **description**. +2. The purpose is to search for or print the supplier item code and description in a purchase invoice instead of using the original item description. + + + +### Barcode + +1. To enter the barcode for different UOM. +2. See the screenshot below. + + + +### Note + +1. Others stock information. + +| **Field Name** | **Explanation & Properties** | +|----------------|-------------------------------| +| **Item Creation Date** | • Item created date.
• Field type: Date | +| **Item Matrix** | • Required Stock Matrix module.
• Field type: Lookup | +| **Min Qty** | • Enter the minimum qty.
• Field type: Float | +| **Max Qty** | • Enter the maximum qty.
• Field type: Float | +| **Picture** | • Load a product picture.
• Recommended picture size (jpg or jpeg) less than 16kb.
• Field type: Picture | +| **Note** | • Enter the product additional information for internal view.
• Field type: Rich Text | + +2. See the screenshot below. + + + +> **Note:** +> Do not load the picture size more than 16kb. This is to avoid the database size growth bigger. + +## Maintain Stock Category + +1. It can be used to further categorize stock besides the stock group. +2. It allows to set multiple stock category for an stock item code. +3. Commonly used for:- + 1. Brandings, eg. Apple, Sony, Samsung, LG, etc; + 2. Country origins; + 3. Product types, eg. raw materials, trading products, manufactured products; +4. **Stock** > **Maintain Stock Category.** + +  + +5. Maintain Stock Category form as shown the screenshot below. + +  + +| **Field Name** | **Explanation & Properties** | +|----------------|-------------------------------| +| **Code** | • Input the new **Stock Category** code.
• Field type: Alphanumerical
• Length: 15 | +| **Description** | • Input the **Stock Category** description.
• Field type: Alphanumerical
• Length: 200 | + +## Maintain Stock Category Template + +1. It is a pre-defined the conditions for Stock Category use in reports. +2. It allows to set the conditions in **AND** or **OR** for stock category. +3. **Stock** > **Maintain Stock Category Template.** + +  + +4. Maintain Stock Category Template form as shown the screenshot below. + +  + +| **Field Name** | **Explanation & Properties** | +|----------------|-------------------------------| +| **Code** | • Input the new Stock Category code.
• Field type: Alphanumerical
• Length: 15 | +| **Description** | • Input the Stock Category description.
• Field type: Alphanumerical
• Length: 200 | +| **Template** | • To set the pre-defined conditions for stock category. | + +### How To Set The Template + +- Use **OR** condition + +1. At the new **Maintain Category View**, click the + sign. +2. Drag the **stock category** selected over into the blank line. + +  + +3. You will see the stock category added in the template list as per the screenshot below.' + +  + +- Use **AND** condition + +1. At the new **Maintain Category View**, click the **+** sign. +2. Select multiple stock category (**Hold CTRL** + click on **stock category**). +3. Drag the **stock category** selected over into the **blank** line. + +  + +4. You will see the stock category added in the template list as per the screenshot below. + +  + +  + +## Maintain Item Template + +1. It is usually used for sets or package items. +2. You can create a template consisting of selected items to use in Sales, Purchase, or Stock documents. +3. **Stock** > **Maintain Item Template**. + +  + +4. Maintain Item Template form as shown the screenshot below. + +  + +| **Field Name** | **Explanation & Properties** | +|----------------|-------------------------------| +| **Code** | • Input the new Item Template code.
• Field type: Alphanumerical
• Length: 20 | +| **Description** | • Input the Item Template description.
• Field type: Alphanumerical
• Length: 200 | +| **Description 2** | • Input the Item Template description 2.
• Field type: Alphanumerical
• Length: 200 | +| **Reference Price** | • Input the Reference Selling Price.
• Field type: Float | +| **Item Template** | • Insert the items details. | +| **Matrix** | • To load the Matrix profile.
• It requires Stock Matrix module. | + +### How to Use The Template + + 1. For example at the Sales Invoice, click on Item Template (Left Side Bar). + 2. Double click on the Item Template. See the screenshot below. + +  + + 3. List of items updated into the Sales Invoice detail. See the screenshot below. + +  + +## Maintain Item Matrix Profile + +1. It is commonly used to organize coding requirements for generating item codes. It is frequently used in the following industries: +2. **Stock** > **Maintain Stock Item Matrix Profile**. + +  + +3. Example of the stock item matrix settings to generate the T-Shirt code with different sizes and colors. +4. See the requirement setting as shown in the screenshot below. + +  + +5. Matrix setting:- + +| **Matrix** | **Setting** | **Length** | **Code** | **Note** | +|-------------|-------------|-------------|-----------|-----------| +| **Prefix** | 1 - 5 | 5 | | To enter a prefix when generating the item code. | +| **Dimension 1 (Row)** | 7 - 10 | 4 | BLUE
YELL
BLCK
WHIT
RED_ | Preset code list. | +| **Dimension 2 (Column)** | 12 - 13 | 1 | _S
_M
_L
XL | Preset code list. | +| **Separator** | - | 1 | | A separator between the prefix, dimension row, and column. | + +> **Note:** +> Code length must follow as set in Matrix Settings constantly, especially the Dimension 1 (Row) and 2 (Column). + +### How Does It Works + +#### Generate Matrix Item Code + +1. Go to Maintain Stock Item. +2. Right click the area below the **Detail** button. +3. Click on **Generate Item Code**. See the screenshot below. + +  + +4. Select the **Matrix Profile**,eg. **SHIRT**. +5. Enter a **Prefix**,eg. **CROC**. +6. Select an **Item Group**,eg. **T-Shirt**. +7. Press **Ok** to start generate. + +  + +8. List of CROC item code created in Maintain Stock Item. + +  + +#### Generate Invoice Using Matrix + +1. At Sales Invoice, select one of the prefix item code, eg. **CROC**. + +  + +2. Click on **Matrix** tab. You can start enter the quantity in the dimension row and column. + +  + +3. Click back to Invoice tab. Item code will be inserted automatically. + +  + +## Maintain Location + +1. It is used for warehouses, inter-branch transfers, consignment, van sales, etc. +2. The **Multiple Location (Warehouse)** module is required. +3. **Stock** > **Maintain Location**. + +  + +4. Maintain Location form as shown the screenshot below. + +  + +| **Field Name** | **Explanation & Properties** | +|----------------|-------------------------------| +| **Code** | • Input the new Location code.
• Field type: Alphanumerical
• Length: 20 | +| **Description** | • Input the Location description.
• Field type: Alphanumerical
• Length: 200 | +| **Description 2** | • Input the Location description 2.
• Field type: Alphanumerical
• Length: 200 | +| **Address Line 1** | • Input the Location Address Line 1.
• Field type: Alphanumerical
• Length: 60 | +| **Address Line 2** | • Input the Location Address Line 2.
• Field type: Alphanumerical
• Length: 60 | +| **Address Line 3** | • Input the Location Address Line 3.
• Field type: Alphanumerical
• Length: 60 | +| **Address Line 4** | • Input the Location Address Line 4.
• Field type: Alphanumerical
• Length: 60 | +| **Attention** | • Input the contact person name.
• Field type: Alphanumerical
• Length: 70 | +| **Phone 1** | • Input the Phone 1.
• Field type: Alphanumerical
• Length: 30 | +| **Phone 2** | • Input the Phone 2.
• Field type: Alphanumerical
• Length: 30 | +| **Fax 1** | • Input the Fax 1.
• Field type: Alphanumerical
• Length: 30 | +| **Fax 2** | • Input the Fax 2.
• Field type: Alphanumerical
• Length: 30 | +| **Email** | • Input the Email.
• Field type: Alphanumerical
• Length: 200 | +| **ISACTIVE** | • To make the location Active or Inactive.
• Field type: Checkbox | +| **Note** | • Input the Additional Note to describe the location.
• Field type: Rich Text | +| **Attachments** | • To insert attachment files, such as Excel, PDF, pictures... | + +## Maintain Batch + +1. **Batch number** is very useful and widely explore for alternative usage. Commonly usage are: + - Trace the goods purchased from the suppliers; + - Trace the returns goods come from which production batch; + - Differentiate costing of the products; +2. **Stock** > **Maintain Batch**. + +  + +3. Fill-in the batch details. See the screenshot below. + +  + + | **Field Name** | **Explanation & Properties** | + |----------------|-------------------------------| + | **Code** | • Input the new **Batch** code.
• Field type: Alphanumerical
• Length: 30 | + | **Description** | • Input the **Batch** description.
• Field type: Alphanumerical
• Length: 160 | + | **Expiry Date** | • Set an **Expiry Date**.
• Field type: Date | + | **Manufacturing Date** | • Set a **Manufacturing Date**.
• Field type: Date | + | **Remark 1** | • Free field.
• Field type: Alphanumerical
• Length: 200 | + | **Remark 2** | • Free field.
• Field type: Alphanumerical
• Length: 200 | + | **ISACTIVE** | • To make the batch **Active** or **Inactive**.
• Field type: Checkbox | + +4. You can choose to lock the stock item to the batch number. Purpose is to avoid other user assign wrong batch number to an item code. + +  + +### Copy & Paste Function + +#### Append Batch Existing Number + +1. Click on **More** (arrow key down). +2. **Copy Stock Batch**. + +  + +3. Click on **New**. +4. Click on **More** (arrow key down). +5. **Paste Stock Batch**. + +  + +6. **Batch code** copied and will paste into new batch code as well. +7. Append the batch code and save it. + +  + +#### New Batch Number + +1. Click on **More** (arrow key down). +2. **Copy Stock Batch**. + +  + +3. Click on **New**. +4. Click on **More** (arrow key down). +5. **Paste Stock Batch**. + +  + +6. **Batch code** copied and will paste into new batch code as well. +7. Remove the batch number. +8. Click on Save. System will assign a new batch number automatically. + +  + +## Stock Received + +Allows user to increase stock quantity without purchasing. It is normally used when you have assembled or manufactured finished goods. Just key-in the item code, quantity IN and cost that you want. + +1. **Stock** > **Stock Received** > **New**. + +  + +## Stock Issue + +Allows user to **decrease stock quantity without selling**. It is normally used when you consume raw material during assembly or when manufacturing finished goods or even sometimes for internal usage. Just key-in the item code, quantity OUT and cost and you may also click on the Update Cost, then the system will auto-detect the actual costing base on your document date. + +1. **Stock** > **Stock Issue** > **New**. + +  + +## Stock Transfer + +**Stock Transfer** is an entry to handle the stock movement from one location to another location, **eg. location A to B**. Commonly used for: + +- Consignment stock; +- Van sales location represent van; +- Inter branch transfer; +- Goods in transit; + + + +1. Click on **New**. + +  + +2. Enter the **Description** to describe the stock transfer entry, eg. "Stock Transfer from BALAKONG TO BATU CAVE". +3. Add the items to be transferred. +4. You may enter the **reason, remark and authorised by** for future reference. + +  + +5. Click on **Save** to commit the stock movement between the locations. +6. For some circumstances, it is required to select the customer code and enter the unit price, tax code, tax amount and subtotal for consignment sales. + +  + +### Update Cost + +1. You update the unit cost by click on **Update Cost** button. +2. System will based on the update cost method to retrieve the unit cost for each items. There are: + +  + +| **No.** | **Update Cost Method** | **Explanation** | +|----------|------------------------|-----------------| +| 1 | Use Ref.Cost When Qty <= 0 (by default) | If qty balance below 0, unit cost will update with Reference Cost from Maintain Stock Item. | +| 2 | Use Strict Costing | Unit cost calculated from the Costing Method set in Maintain Stock Group. | +| 3 | Use Serial Number Costing | Unit cost will be based on the serial number. | + +## Stock Adjustment + +:::success[INFO] +Check out our new [stock take app](https://www.sql.com.my/sqlstocktake/) +::: + +Allows users to key in quantity in and quantity out from the system, just like a combination of stock received and stock issue. Normally used for stock take purposes. **(Stock > Stock Adjustment > New)** + +:::info +Watch tutorial video here: [youtube](https://www.youtube.com/watch?v=uEbCRAftQ4A&feature=youtu.be) +::: + +1. Click on **Stock** + +2. Choose **Print Stock Physical Worksheet** + +3. **Filter** by date, stock group or others **information** that you want to do for the stock take, please **make sure that you choose the correct location and batch if you have these two modules**. + +  + +4. Click on Preview & choose your report format. + +  + +5. **Print out the “Stock Take Sheet”** for stock keeper. + + The stock keeper should manually **fill in the actual quantity into the “physical qty” column**. + +  + +6. After complete updating the stock take report by your stock-keeper, do your stock adjustment in system from **Stock** > **Stock Adjustment** > **and drag out Book Qty and Physical Qty**. + +  + +  + +7. Click on the first item in **Stock Physical Worksheet**, press on **Ctrl + A** on the keyboard to select all items. + + **Then Drag & Drop into Stock Adjustment**. + +  + +8. Based on the stock keeper’s Stock Take Report, **fill in the actual physical quantity** in your warehouse into the Stock Adjustment **Physical Qty column**, the system will calculate the variance based on the Book Qty and apply a correction to the Qty column. + + :::info + + **Book Qty** = Quantity that is recorded in system. + + **Physical Qty** = Actual Quantity at your warehouse. + + **Qty** = Variance between Physical and Book Quantity, system will auto-adjust then update accordingly. (Physical Qty – Book Qty) + + ::: diff --git a/docs/usage/stock/stock-report.md b/docs/usage/stock/stock-report.md new file mode 100644 index 00000000..d8c24ba6 --- /dev/null +++ b/docs/usage/stock/stock-report.md @@ -0,0 +1,347 @@ +--- +sidebar_position: 2 +title: Reports +description: Stock Report +slug: /usage/stock/stock-report +tags: ["SQL Account", "Usage", "Inventory", "Stock","Report"] +--- + +## Print Stock Document Listing + +- Print Stock Document Listing can be used to view all the stock adjustment documents that you have issued. +- You can see Stock Received Listing, Stock Issue Listing, Stock Transfer Listing, Stock Adjustment Listing. + +### How to Print Stock Document Listing + +1. **Stock** > **Print Stock Document Listing** + +  + +2. Select which Document listing you want to see. Follow the image + +  + +3. Press the Apply Button + +  + +4. Click Preview & Listing Report +5. Example of stock document listing report + +  + +### Print Document Style + +1. Tick relevant check boxes + +  + + | **Field Name** | **Explanation** | + |----------------|----------------| + | **Print Document Style** | Tick this checkbox to print out bulk report or send batch email | + | **Include Cancelled Documents** | Tick this checkbox to include cancelled documents in the listing | + +2. If you Tick Print Document Style , you will be able to choose a purchase document report format. + +  + +### Group/Sort By + +1. You can filter your documents based on Project, location and Company Category + +  + +2. You can use the Group by/Sort by table to choose how you want to group your report listing + +  + +3. Here is an example of the report + +  + +## Print Stock Reorder Advice + +- Print Stock Reorder Advice can be used to check which items have quantities below the set reorder level (set in Maintain Stock Item) + +### How to Print Stock Reorder Advice + +1. **Stock** > **Print Stock Reorder Advice** + +  + +  + +  + +2. Press Apply Button + +3. Click Preview & Listing Report +4. Example of stock reorder report + + + +### Setting + +1. Select what quantities you wish to compare against + +  + + | **Field Name** | **Explanation** | + |----------------|----------------| + | **On Hand Qty** | Stock balance quantity | + | **On Hand + PO Qty & SO Qty** | Stock balance quantity plus Purchase Order Quantity or Sales Order Quantity | + | **On Hand + PO Qty - SO Qty** | Stock balance quantity plus Purchase Order Quantity minus Sales Order Quantity | + | **On Hand + PO Qty (+/-) JO Qty** | Stock balance quantity plus Purchase Order Quantity plus Job Order Quantity | + | **On Hand - SO Qty (+/-) JO Qty** | Stock balance quantity minus Sales Order Quantity plus Job Order Quantity | + | **On Hand + PO Qty - SO Qty (+/-) JO Qty** | Stock balance quantity plus Purchase Order Quantity minus Sales Order Quantity minus Job Order Quantity | + +2. After that, select the type of comparison. The balance quantities will be compared to the Max Value, Min Value or the Reorder Level. All set in Maintain Stock Item. + +### Group/Sort By + +1. You can filter your documents based on Item, Batch and Company Category + +  + +2. You can use the Group by/Sort by table to choose how you want to group your report listing + +  + +## Print Stock Physical Worksheet + +1. Click on **Stock** + +2. Choose **Print Stock Physical Worksheet** + +3. **Filter** by date, stock group or other **information** for the stock take, please **make sure that you choose the correct location and batch if you have these two modules**. + +  + +4. Click on Preview & choose your report format. + +  + +5. **Print out the “Stock Take Sheet”** for stock keeper. + + The stock keeper should manually **fill in the actual quantity into the “physical qty” column**. + +  + +6. After complete updating the stock take report by your stock-keeper, perform your stock adjustment in system by going to **Stock** > **Stock Adjustment** > **and dragging out Book Qty and Physical Qty**. + +  + +  + +7. Click on the first item in **Stock Physical Worksheet**, press on **Ctrl + A** on the keyboard to select all items. + + **Then Drag & Drop into Stock Adjustment**. + +  + +8. Based on the stock keeper’s Stock Take Report, **fill in the actual physical quantity** in your warehouse into the Stock Adjustment **Physical Qty column**, the system will calculate the variance based on the Book Qty and apply a correction to the Qty column. + + :::info + + **Book Qty** = The quantity recorded in the system. + + **Physical Qty** = Actual Quantity at your warehouse. + + **Qty** = The variance between Physical and Book Quantity. The system will automatically adjust and update accordingly. (Physical Qty – Book Qty) + + ::: + +## Print Stock Card & Print Stock Card Qty + +- Print Stock Card can be used to view your stock movement and stock cost during a certain period of time. +- You can see your stock movement based on location and batch. + +### How to Print Stock Card + +1. **Stock** > **Print Stock Document Listing** +print-stock-card +  + +  + +2. Press Apply Button +3. Click Preview & Listing Report +4. Example of stock card report + + + +### How to Print Stock Card Qty + +- Similar to Print Stock Card, but this report only shows the quantity. + +## Print Stock Month End Balance + +- Print Stock Month End Balance can be used to view your month end stock quantity and total cost . + +### How to Print Stock Month End Balance + +1. **Stock** > **Print Stock Month End Balance** + +  + +2. Set the date and press the Apply button. + +  + +3. You can set your filters to filter your stock month end by location, stock group and item + +  + +4. Press Preview button +5. Click Preview& Listing Report +6. Example of stock month end report + +  + +## Print Stock Aging + +- Print Stock Aging is used to view the quantity of a certain stock on hand and how much of that stock has been sold. + +print-stock-aging + +  + +### How to Print Stock Aging + +1. **Stock** > **Print Stock Aging** +2. Set your filter option and group by options + +  + +  + +3. Tick Qty and/or Cost if you want to see the aging for both or either + +  + +4. Set stock aging type + +  + +5. Months = Aging calculated for every 1 months +6. Months + 5 Years = Aging calculated for every month and also above 5 years +7. 3 months = Aging calculated every 3 months +8. Press Apply Button +9. Click Preview + + + +## Print Stock Analysis By Document + +- Print Stock Analysis By Document can be used to view your stock movement quantity for each document type like Invoice, Cash sales, Purchase Invoice, etc. + +### How to Print Stock Analysis By Document + +1. **Stock** > **Print Stock Analysis By Document** + +  + +  + +2. Press Apply Button +3. Click Preview +4. Example of stock analysis by document report + +  + +## Print Stock Batch Expiry + +- Print Stock Batch Expiry can be used to view all the items in your batches along with their manufacturing and expiry dates. + +### How to Print Stock Batch Expiry + +1. **Stock** > **Print Stock Batch Expiry** + +  + +2. Press Apply Button + +  + +3. Click Preview +4. Example of stock batch expiry report + +  + +### How to Assign Batch to Your Stock Item + +- For example, After creating your batch codes and assigning the items at "Maintain Batch", go to Sales Invoice. Select the stock item and select the batch + + + + + +## Print Stock Serial Number Conflict + +- Print Stock Serial Number Conflict an be used to view +- SN items issued out without receiving SN +- Duplicate SN received at the same location and batch + + + +### How to Print Stock Serial Number Conflict + +1. **Stock** > **Print Stock Serial Number Conflict** + +  + +2. Press Apply Button + +  + +3. Click Preview +4. Example of stock batch expiry report + +  + +### How to Assign Serial to Your Stock Item + +1. First go to Maintain Stock Item an tick the serial number check box + +  + +2. At your purchases, assign Serial number to your stock item, you can key it in, import it in from a text file, or automatically generate it . + + + +### How to Automatically Generate Serial Number for Your Stock Item + +1. Click the generator button, set your number format, and press OK. + + + +### How to Import Serial Number for Text File for Your Stock Item + +1. Click the import button, select your text file, and press OK. + +  + +2. Your serial number has been successfully imported + + + +## Print Stock Serial Number Outstanding + +- Print Stock Serial Number Outstanding can be used to check if you did not assign any serial number to you purchased stock items. +- An example of a missing serial number can be seen in this purchase invoice. +print-stock-serial-number-outstanding + + +### How to Print Stock Serial Number Outstanding + +1. **Stock** > **Print Stock Serial Number Outstanding** + +  + +2. Press Apply Button + +  + +3. Click Preview + +  diff --git a/docs/usage/supplier/_category_.json b/docs/usage/supplier/_category_.json new file mode 100644 index 00000000..fb40366c --- /dev/null +++ b/docs/usage/supplier/_category_.json @@ -0,0 +1,8 @@ +{ + "label": "Supplier", + "position": 5, + "link": { + "type": "generated-index", + "description": "Supplier and usage guide" + } +} \ No newline at end of file diff --git a/docs/usage/supplier/faq.md b/docs/usage/supplier/faq.md new file mode 100644 index 00000000..49171bdf --- /dev/null +++ b/docs/usage/supplier/faq.md @@ -0,0 +1,46 @@ +--- +sidebar_position: 3 +title: FAQ +description: Supplier Frequently Asked Questions +slug: /usage/supplier/FAQ +tags: ["SQL Account", "Supplier", "FAQ"] +--- + +## JOMPAY - How to add the Ref 2 (optional) in the bank payment file format? + +**Issue:** + +How to capture the JomPay Ref 2 (bill no) in the bank payment file format? + + + +**Solution:** + +1. Go to **Tools | DIY | SQL Control Center**... +2. Add the JomPAY Ref 2 field under **Supplier | Supplier Payment | Payment Fields**. + + | Field Name | Data Type | Size | + |-------------|-----------|------| + | JomPAY_Ref2 | String | 30 | + +  + +3. Create **Quick Form** and add the UDF_JomPay_Ref2. + +  + +4. At **Supplier Payment**, key in the bill no into UDF_JomPAY_Ref2 under JOMPAY tab. + +  + +5. JomPAY Ref 2 will be captured in the bank JomPAY payment format. + +  + +:::note NOTE: +The above solution is using SQL Account version 784 and above. Modules required: + +1. Interbank GIRO +2. DIY Field (or Professional Set). + +::: diff --git a/docs/usage/supplier/report.md b/docs/usage/supplier/report.md new file mode 100644 index 00000000..7ae2d8d2 --- /dev/null +++ b/docs/usage/supplier/report.md @@ -0,0 +1,228 @@ +--- +sidebar_position: 2 +title: Reports +description: MyInvois onboarding process +slug: /usage/supplier/Reports +tags: ["SQL Account", "Reports"] +--- + +## Print Supplier Document (InterBank GIRO) Listing + +- Print Supplier Document (InterBank GIRO) Listing can be used to see all the supplier transactions that you have entered into this system +- You can see Supplier Invoice, Supplier Payment, Supplier Credit Note, Supplier Debit Note, Supplier Refund, and Supplier Contra listings. +- You can use Document Listing to batch print and batch email your Supplier's documents. +- At the bottom of the screen, you can see the payment details for each document + +### How to Print Document Listing + + + +- Select which Document Listing you want to see. Follow the image below : + + + +- Press the Apply Button +- Click Preview & Listing Report +- Example of supplier invoice listing report + + + +### Print document Style + +- Tick the relevant check boxes + + + +| **Field Name** | **Explanation** | +|------------------------------|----------------------------------------------------------------------| +| Print Document Style | Tick this checkbox to print out bulk report or send batch email. | +| Include Cancelled Documents | Tick this checkbox to include cancelled documents in the listing. | + +- If you Tick Print Document Style , you will be able to choose supplier invoice report format. + + + +### Group/Sort By + +- You can filter your documents based on Supplier, Agent, Area, Currency, and Project + + + +- You can use the Group/Sort By table to choose how you want to group your report listing + + + +- For example, you can group the report by "Supplier Code" + + + +- Select the Listing Report +- Here is an example of the report + + + +## Print Supplier Balance Report + +- Print Supplier Balance Report allows you to **see all the supplier's balance**. + +### How to Print Supplier Balance Report + + + +- Select the date period for the balance report. + + + +- You can filter the report selecting the supplier, agent, area, project of the transaction. + + + +- For example, filtering by supplier name. + + + +- You can click on the small + icon to expand the row and see the transactions details. + + + +- Press the Preview icon to preview and print the report + + + +## Print Supplier Due Document + +- Print Supplier Due Document allows you to see all the supplier's overdue and undue balance. + +### How to Print Supplier Due Document Report + + + +- Set the date. Select if you want to see Overdue or Undue documents. + + + +- Select which documents you want to see. + + + +- You can also filter the listing based on supplier, agent, area, or currency + + + +## Print Supplier Aging Report + +- Print Supplier Aging to see unpaid invoice balances along with the duration for which the supplier has been outstanding. + +### How to Print Supplier Aging Report + + + + + +- Select the report name. Then click the Apply button. + + + +- Select the Preview icon to view and print the report + + + +### Set Aging + + + +| **Field Name** | **Explanation** | +|------------------|------------------------------------------------------------------| +| Default Aging | Follow aging that has been set at Maintain Supplier "Aging On". | +| Document Date | Aging based on invoice date. | +| Due Date | Aging based on after due date (terms). | + +## Print Supplier Statement + +A statement of account, also known as an account statement or Supplier Statement, is a document that outlines the transactions between a buyer and a seller. + +- We use Supplier Statement to : + 1. Calculate an outstanding account balance + 2. Check which Supplier accounts balance we need to settle + 3. Avoid disputes with suppliers. + + + + + +### Statement Type + +- Select the Statement Type. + + + +| **Field Name** | **Explanation** | +|------------------------------|----------------------------------------------------| +| Default Statement Type | Follow the statement type set in Maintain Supplier | +| Open Item Statement | Detail Statement | +| Brought Forward Statement | Summary Statement | + +### Sample Supplier Statement + + + +## Print Supplier Post Dated Cheque Listing + +- We use this report to see the post date cheques issued by that date + + + +- Set the date +- Select your Payment Method + + + +- Press Apply +- Preview report. +- Here is a sample of the report + + + +### How to set Post Dated Cheque + +- At your supplier payment, you can RIGHT-CLICK at the white area and select "Posting Date" + + + +- Key in your posting date and press OK. + + + +## Print Supplier Analysis By Document + +- We use this report to see the total of all your supplier's invoices, credit/debit notes and contra amounts. + + + +- Set the date +- Select how you want to group your report by ticking the checkboxes at the Group/Sort By. + + + +- Click the preview icon and view/print your report. + + + +## Print Supplier Bills and Payment Analysis + +- We use this report to see the monthly payment and purchases for your supplier. + + + +- Set the date +- Tick the checkbox to indicate if you want to see the total payment, purchases or both. + + + +- If you tick "Payment" Click the preview icon and view/print your collection report. + + + +- If you tick "Purchase" Click the preview icon and view/print your sales analysis report. + + diff --git a/docs/usage/supplier/setup.md b/docs/usage/supplier/setup.md new file mode 100644 index 00000000..9167f0e9 --- /dev/null +++ b/docs/usage/supplier/setup.md @@ -0,0 +1,846 @@ +--- +sidebar_position: 1 +title: Setup +description: Basic Supplier Setup +slug: /usage/supplier/Setup +tags: ["SQL Account", "Usage", "Supplier"] +--- + +## Maintain Supplier + +To maintain the supplier profile data such as addresses, phone numbers, fax, email, contact persons, credit limits, credit +terms, etc. In other words, it is your supplier contacts list. + + + +### New Supplier + +To create NEW supplier, CLICK on NEW button. See screenshot below. + + + +You will get a blank form to be filled in with the supplier data. + + + +You may start input the following fields: + +| **Field Name** | **Field Type** | **Length** | **Explanation** | +|-----------------------|------------------------------------------------------------------------------------------------------|------------|-------------------------------------------------------------------------------------------------------| +| Company | Alphanumerical | 100 | Input the supplier billing company name. | +| Description 2 (under Company) | Alphanumerical | 100 | An optional field where you can enter Chinese translated name, former company name, company register no, etc. | +| Control A/c | Lookup from Maintain Accounts (Special Type: Supplier Control Account) | 10 | Select an appropriate Supplier Control Account to be posted to GL when supplier documents are created. | +| Code | Alphanumerical | 10 | AUTO/MANUAL generate the Supplier Code. | +| Cust Category | Lookup from Maintain Company Category | 15 | Categorize your supplier for reporting purpose. | + +#### General + + + +| **Field Name** | **Field Type** | **Length** | **Explanation** | +|------------------|----------------------------------------------|-------------------------|---------------------------------------------------------------------------------| +| Branch Name | Alphanumerical | 100 | You may maintain multiple sets of addresses by differentiating the Branch Name
Default Branch Name: BILLING | +| Address (4 lines)| Alphanumerical | 40 (each line) | Input the company addresses. | +| Attention | Alphanumerical | 70 | Input the contact person. | +| Phone 1 & 2 | Alphanumerical | 30 | Input the telephone number. | +| Fax 1 & 2 | Alphanumerical | 30 | Input the fax number. | +| Email | Alphanumerical | 60 | Input the email. | +| Area | Lookup from Maintain Area | 10 | Select a default Area. | +| Agent | Lookup from Maintain Agent | 10 | Select a default Agent. | +| Currency | Lookup from Maintain Currency | 6 | Select a default Currency. | +| Credit Terms | Lookup from Maintain Terms | 10 | Select a default Terms. | +| Credit Limit | Numeric | — | Set the credit limit. | +| Statement | Option | — | Select a default statement type, e.g., Open Item or Brought Forward.
Default: Open Item | +| Aging On | Option | — | Select a default Aging type, e.g., Invoice Date or Due Date. Default: Invoice Date | +| Price Tag | Lookup from Maintain Stock Price Tag | 10 | Set the price tag to the items. | + +#### Note + + + +| **Field Name** | **Field Type** | **Length** | **Explanation** | +|----------------------|------------------|-------------|---------------------------------------------------------------------------------| +| Account Open Date | Date | — | Creation date. | +| Remark | Alphanumerical | 80 | This remark will show in Inquiry → Account Inquiry. | +| Biz Nature | Alphanumerical | 100 | Input supplier business nature. For example, Chemical Manufacturing, Car Service, etc. | +| Note | Alphanumerical | Rich Text | Record the supplier knowledge base. You can use the "Date Stamp". | +| Status | Option | — | See **Status Options** table below. | + +| **Status** | **Explanation** | +|------------|---------------------------------------------------------------------------------| +| Active | Allow to create official documents and select to print Supplier Statement. | +| Inactive | Not allow to create official documents, but cannot select to print Supplier Statement. | +| Suspend | Not allow to create official documents, but can select to print Supplier Statement. | +| Prospect | Allow to create official documents and select to print Supplier Statement. | +| Pending | Allow to create official documents and select to print Supplier Statement. | + +#### Tax + + + +| **Field Name** | **Explanation & Properties** | +|------------------|-----------------------------------------------------------------------------------------------| +| Default Tax | Select a default tax code based on supplier. | +| Tax Area | Not applicable to Malaysia/Singapore. | +| Exemption No | • Input the Tax Exemption number applicable to your supplier. | +| | • Field type: Alphanumerical. | +| | • Length: 50 | +| Expiry Date | Set an expiry date. | +| | • This will be tax exempted before the expiry date. | +| | • Field type: Date. | + +**Tariff Code Setting** +This setting set the supplier who has supply the taxable goods under the Sales Tax (Person Exempted from Payment of Tax) Order 2018. + +| **Field Name** | **Explanation & Properties** | +|----------------|-------------------------------| +| Tariff | • Add tariff code of taxable goods to be sold in exemption. | +| | • Lookup: [Maintain Tariff](../../usage/tools/guide#maintain-tariff) | +| | • Related Topic: [Maintain Stock Item → Main Header](../../usage/stock/stock-guide#maintain-stock-item) | +| Tax | • Select an appropriate tax code that falls under the Person Exempted in **Schedule C ONLY** (must be declared in SST-02). | +| | • Schedule C tax code: PEC1, PEC2, PEC3, PEC4, PEC5 | +| | • Lookup: [Maintain Tax](../../usage/gst-and-sst/gst#maintain-tax) | + +#### Bank Account + + + +| **Field Name** | **Explanation & Properties** | +|----------------|-------------------------------| +| Bank | Select the correct bank. | +| Account No | Key in the account number of the supplier. | +| Account Name | Insert the name. | +| ID Type | Select the ID type that you want. | +| ID | Insert the ID. | +| Active | • Tick it when active. | +| | • Untick when inactive. | + +### Edit Supplier + +You can EDIT the supplier, CLICK on EDIT button. See screenshot below. + + + +:::note + + 1. Users are able to EDIT the supplier data depends on the user access rights granted. + 2. Any EDITING the system will be audited (logged) with changes made. + +::: + +### Save Supplier + +You have to SAVE the supplier data before can be used. See screenshot below. + + + +### Delete Supplier + +You can DELETE the unwanted supplier data. See screenshot below. + + + +:::note + + 1. User able to DELETE the supplier data depends on the user access rights granted. + +::: + +### Supplier Code Format + +Supplier code can be AUTO generate or overwrite it manually. See screenshot below. + + + +:::note Important + + 1. Every supplier code is unique. + 2. If the system found there is a duplicate code trying to save, users will be notified with a warning message. + +::: + +You can set the supplier code format via Tools | Options...(Supplier). See screenshot below. + + + +Explanation of the Supplier Code Format: + + + +For example, + +| **Company Name** | **Customer Control Acc** | **Format** | **Result** | +|------------------|---------------------------|----------------|----------------| +| ABCD SDN BHD | 401-000 | %.1s-%.1s%.1d | 4-A-1 | +| ABCD SDN BHD | 401-000 | %.2s-%.2s%.2d | 40-AB-01 | +| ABCD SDN BHD | 401-000 | %.3s-%.3s%.3d | 401-ABC-001 | +| ABCD SDN BHD | 401-000 | %.4s-%.4s%.4d | 401--ABCD-0001 | + +## Supplier Invoice (SI) + +- General invoice received from suppliers likes purchase of service, insurance, stationery or any non-stock control billing. +- Besides that, you can check the invoices status such as outstanding and payment history. + + + +### Basic Entry (SI) + +1. Click on New button. +2. See the New Supplier Invoice entry form screenshot below. + +  + +3. Select the Supplier Code. You direct key in and search by either supplier code or name. +4. Input the Purchase A/c and amount to be debit. +5. Below is the example of the entry created: + +  + + | Account | DR (RM) | CR (RM) | + |---------------------------|----------|----------| + | Stationery | 500.00 | | + | Supplier Control Account | | 500.00 | + +### Project (SI) + +- There are 2 types of project you need to be take note. + 1) Document Project + 2) Detail Project +- For document project, you need to point to More section (on the left side bar). +- For detail project, you have to insert the project column out from Field Chooser. + + + +| **Label** | **Types** | **Explanation** | +|-----------|--------------------|-------------------------------------------------------------| +| A | Document Project | It represents the project for a document to be credited. | +| B | Detail Project | It represents the project for individual GL Account to be debited. | + +### Attachment (SI) + +- It is very useful to attach any supporting documents to an invoice. +- In future, you are able to retrieve and refer the attachment file easily. + + + +1) You have to point to the attachment section. +2) Click on ( + ) button to insert the filename path. +3) See the sample screenshot below. + + + +### Note (SI) + +1. Click on the Note section (on the LEFT side bar). +2. RIGHT click it, you will see the Rich Text Editor pop-up. +3. You can start key-in the note. See the example screenshot below. +4. Click on X button to save and exit the Rich Text Editor. + +  + +5. You will get prompted the Save changes? message. Click YES to save it. + +  + +### Invoice description (SI) + +1. To show the document description in Supplier Statement, e.g., Purchase-Stationery April 2015. + +  + +2. Sample of supplier statement screenshot below. + +  + +## Supplier Payment (SP) + +- To record the payment amount to Suppliers. +- To off-set against the outstanding supplier invoices. + + + +### Basic Entry (SP) + +1. Click on New button. +2. See the New Supplier Payment entry form screenshot below. + +  + +3. Select the Supplier Code. Direct key in and search by either Supplier code or name. +4. Select the Payment Method (bank or cash account) in Payment By. +5. Enter the Paid Amount (follow the bank account currency). +6. Below is the example of the entry created: + +  + + **Double Entry will be:-** + + | **Account** | **DR (RM)** | **CR (RM)** | + |--------------------------|-------------|-------------| + | Supplier Control Acc | 2,500.00 | | + | Bank Account | | 2,500.00 | + +7. Enter Bank Charges if there is a bank charges. + +  + +8. It will auto post the following double entry:- + + | **Account** | **DR (RM)** | **CR (RM)** | + |-----------------|-------------|-------------| + | Bank Charges | 2.00 | | + | Bank Account | | 2.00 | + +9. Enter the cheque number, cash or TT into Cheque No. field. + +  + +### Knock-Off (SP) + +Purpose to knock-off the invoices: + +1. To show the outstanding invoices in Supplier Aging Report. +2. To indicate the payment knock-off the invoices in Supplier Statement. +3. To remove / recover from the GST Bad Debt Relief on outstanding more than 6 months + +#### Partial Knock-Off (SP) + +1. You can enter the knock-off amount into Pay column (auto tick). +2. Unapplied Amt will be reduced by the knock-off amount entered. + +  + +#### Document Knock-Off (SP) + +1. You can tick on the outstanding documents. +2. Unapplied Amt will be reduced by the knock-off amount ticked. + +  + +#### Random Knock-Off (SP) + +1. You can click on the Pay column. It will auto tick on the outstanding documents. +2. Unapplied Amt will be reduced according to the outstanding balance. + +  + +:::note + Unapplied amount shows the Supplier payment amount not allocated/knock-off against any outstanding invoices and debit note. +::: + +### Attachment (SP) + +- It is very useful to attach any supporting documents. +- In future, you are able to retrieve and refer the attachment file easily. + + + +1. You have to point to the attachment section. +2. Click on ( + ) button to insert the filename path. +3. See the sample screenshot below. + +  + +### Note (SP) + +1. Click on the Note section (on the LEFT side bar). +2. RIGHT click it, you will see the Rich Text Editor pop-up. + +  + +3. You can start key-in the note. See the example screenshot below. +4. Click on X button to save and exit the Rich Text Editor. + +  + +5. You will get prompted the Save changes? message. Click YES to save it. + +  + +### Description (SP) + +To show the Supplier payment description in the Supplier Statement, e.g., Payment For Jan & Feb 2016. + + + +Sample of Supplier statement screenshot below. + + + +## Supplier Debit Note (SDN) + +- General debit note received from Supplier likes the adjustment for undercharged to purchase of stationery, services, insurance, or any non-stock control billing. +- Besides that, you can check the debit note status such as outstanding and payment history. + + + +### Basic Entry (SDN) + +1. Click on New button. +2. See the New Supplier Debit Note entry form screenshot below. + +  + +3. Select the Supplier Code. You direct key in and search by either supplier code or name. +4. Input the Purchase A/c and amount to be debit. +5. Below is the example of the entry created: + +  + + **Double Entry will be:-** + + | **Account** | **DR (RM)** | **CR (RM)** | + |----------------------------|-------------|-------------| + | Stationery | 500.00 | | + | Supplier Control Account | | 500.00 | + +### Project (SDN) + +- There are 2 types of project you need to be take note. + 1. Document Project + 2. Detail Project +- For document project, you need to point to More section (on the left side bar). +- For detail project, you have to insert the project column out from Field Chooser. + + + +| **Label** | **Types** | **Explanation** | +|-----------|------------------|------------------------------------------------------------------| +| A | Document Project | It represents the project for a document to be credited. | +| B | Detail Project | It represents the project for individual GL Account to be debited. | + +### Attachment (SDN) + +- It is very useful to attach any supporting documents to a debit note. +- In future, you are able to retrieve and refer the attachment file easily. + + + +1. You have to point to the attachment section. +2. Click on ( + ) button to insert the filename path. +3. See the sample screenshot below. + +  + +### Note (SDN) + +1. Click on the Note section (on the LEFT side bar). +2. RIGHT click it, you will see the Rich Text Editor pop-up. +3. You can start key-in the note. See the example screenshot below. +4. Click on X button to save and exit the Rich Text Editor. + +  + +5. You will get prompted the Save changes? message. Click YES to save it. + +  + +### D/N Description (SDN) + +1. To show the document description in Supplier Statement, e.g., Undercharged-Stationery April 2015. + +  + +2. Sample of supplier statement screenshot below. + +  + +## Supplier Credit Note (SCN) + +- Credit note is used to reduce and offset the outstanding invoices or debit note. +- For those Credit Note created from Purchase module, you are required to offset against the outstanding invoices/debit note here. +- You can check any unapplied amount for a credit note. Unapplied amount meaning the credit note amount must find the invoice / debit note to knock-off. + + + +### Basic Entry (SCN) + +1. Click on New button. +2. See the New Supplier Credit Note entry form screenshot below. + +  + +3. Select the Supplier Code. You direct key in and search by either supplier code or name. +4. Input the Purchase A/c and amount to be credit. +5. Below is the example of the entry created: + +  + + **Double Entry will be:-** + + | **Account** | **DR (RM)** | **CR (RM)** | + |-------------------------|-------------|-------------| + | Supplier Control Acc | 500.00 | | + | Purchase Returns | | 500.00 | + +### Unapplied Amount (SCN) + +- Unapplied amount shows the credit note amount not allocated/knock-off against any outstanding invoices and debit note. +- It will remains in supplier aging report show as negative amount (-). + + + +### Knock-Off Outstanding (SCN) + +- To knock-off the outstanding invoice/debit note, TICK the checkbox beside the pay column. +- You can direct input the pay amount into pay column. + + + +### Project (SCN) + +- There are 2 types of project you need to be take note. + 1. Document Project + 2. Detail Project +- For document project, you need to point to More section (on the left side bar). +- For detail project, you have to insert the project column out from Field Chooser. + + + +| **Label** | **Types** | **Explanation** | +|-----------|------------------|------------------------------------------------------------------| +| A | Document Project | It represents the project for a document to be debited. | +| B | Detail Project | It represents the project for individual GL Account to be credited. | + +### Attachment (SCN) + +- It is very useful to attach any supporting documents to a credit note. +- In future, you are able to retrieve and refer the attachment file easily. + + + +1. You have to point to the attachment section. +2. Click on ( + ) button to insert the filename path. +3. See the sample screenshot below. + +  + +### Note (SCN) + +1. Click on the Note section (on the LEFT side bar). +2. RIGHT click it, you will see the Rich Text Editor pop-up. +3. You can start key-in the note. See the example screenshot below. +4. Click on X button to save and exit the Rich Text Editor. + +  + +5. You will get prompted the Save changes? message. Click YES to save it. + +  + +### C/N Description (SCN) + +1. To show the document description in Supplier Statement, e.g., Overcharged-Stationery April 2015. + +  + +2. Sample of supplier statement screenshot below. + +  + +### Foreign Exchange Currency Gain/Loss (SCN) + +- Difference in the foreign currency exchange rate will AUTO post the FOREX Gain/Loss entry into GL. +- Posting date can be changed to reflect the FOREX Gain/Loss for a month. + + + +## Supplier Refund (SR) + +- To receive the refund for the amount over paid to supplier. +- To off-set against the unapplied amount for Supplier Payment and Credit Note. + + + +### Basic Entry (SR) + +1. Click on New button. +2. See the New Supplier Refund entry form screenshot below. + +  + +3. Select the Supplier Code. Direct key in and search by either Supplier code or name. +4. Select the Payment Method (bank or cash account) in Received In. +5. Enter the Refund Amount (follow the bank account currency). +6. Below is the example of the entry created: + +  + + **Double Entry will be:-** + + | **Account** | **DR (RM)** | **CR (RM)** | + |-------------------------|-------------|-------------| + | Bank Acc | 3,590.00 | | + | Supplier Control Acc | | 3,590.00 | + +7. Enter Bank Charges if there is a bank charges. + +  + +8. Let's say the bank charges = RM2.00; therefore, the double entry posting will be:- + + | **Account** | **DR (RM)** | **CR (RM)** | + |------------------|-------------|-------------| + | Bank Charges | 2.00 | | + | Bank Account | | 2.00 | + +9. Enter the cheque number, cash or TT into Cheque No. field. + +  + +### Knock-off (SR) + +Purpose to knock-off the invoices: + +1. To show the outstanding invoices in Supplier Aging Report. +2. To indicate the payment knock-off the invoices in Supplier Statement. + +#### Partial Knock-Off (SR) + +1. You can enter the knock-off amount into Pay column (auto tick). +2. Unapplied Amt will be reduced by the knock-off amount entered. + +  + +#### Document Knock-Off (SR) + +1. You can tick on the outstanding documents. +2. Unapplied Amt will be reduced by the knock-off amount ticked. + +  + +#### Random Knock 0ff (SR) + +1. You can click on the Pay column. It will auto tick on the outstanding documents. +2. Unapplied Amt will be reduced according to the outstanding balance. + +  + + :::note + Refund Unapplied amount shows the supplier refund amount not allocated/knock-off against any unapplied amount in supplier payment and credit note. + ::: + +### Attachment (SR) + +- It is very useful to attach any supporting documents. +- In future, you are able to retrieve and refer the attachment file easily. + + + +1. You have to point to the attachment section. +2. Click on ( + ) button to insert the filename path. +3. See the sample screenshot below. + +  + +### Note (SR) + +1. Click on the Note section (on the LEFT side bar). +2. RIGHT click it, you will see the Rich Text Editor pop-up. + +  + +3. You can start key-in the note. See the example screenshot below. +4. Click on X button to save and exit the Rich Text Editor. + +  + +5. You will get prompted the Save changes? message. Click YES to save it. + +  + +### Description (SR) + +To show the supplier refund description in the Supplier Statement, e.g., Refund For SC-00002 & PV-00004.. + + + +Sample of supplier statement screenshot below. + + + +## Supplier Contra (SC) + +- To make settlement of the outstanding between both supplier and customer accounts without any monetary transactions. +- It will use an intermediate accounts known as Contra Account. This account balance must be ZERO. + + + +### Basic Entry (SC) + +Assume that you have created the [Customer Contra](../../usage/customer/guide#customer-contra). You will found the same contra no. appeared in the Supplier Contra. + +1. Highlight the Contra No to edit. Click on Edit button. +2. See the Supplier Contra entry from screenshot below. + +  + +3. Select the Supplier Code. Direct key in and search by either supplier code or name. +4. Enter the Contra Amount (follow the supplier currency). +5. Below is the example of the entry created: + +  + + **Double Entry will be:-** + + | **Account** | **DR (RM)** | **CR (RM)** | + |--------------------------|-------------|-------------| + | Supplier Control Acc | 1,500.00 | | + | Contra Acc | | 1,500.00 | + +:::note TIPS + +To ensure the contra account has set properly. [Contra Account](../../usage/tools/guide#options) + +::: + +### Knock-off (SC) + +Purpose to knock-off the invoices: + +1. To show the outstanding invoices in Supplier Aging Report. +2. To indicate the contra knock-off the invoices in Supplier Statement. + +#### Partial Knock-Off (SC) + +1. You can enter the knock-off amount into Pay column (auto tick). +2. Unapplied Amt will be reduced by the knock-off amount entered. + +  + +#### Document Knock-Off (SC) + +1. You can tick on the outstanding documents. +2. Unapplied Amt will be reduced by the knock-off amount ticked. + +  + +#### Random Knock-Off (SC) + +1. You can click on the Pay column. It will auto tick on the outstanding documents. +2. Unapplied Amt will be reduced according to the outstanding balance. + +  + + :::note + + Refund unapplied amount shows the supplier contra amount not allocated/knock-off against any outstanding supplier invoices and debit note. + + ::: + +### Attachment (SC) + +- It is very useful to attach any supporting documents. +- In future, you are able to retrieve and refer the attachment file easily. + + + +1. You have to point to the attachment section. +2. Click on ( + ) button to insert the filename path. +3. See the sample screenshot below. + +  + +### Note (SC) + +1. Click on the Note section (on the LEFT side bar). +2. RIGHT click it, you will see the Rich Text Editor pop-up. + +  + +3. You can start key-in the note. See the example screenshot below. +4. Click on X button to save and exit the Rich Text Editor. + +  + +5. You will get prompted the Save changes? message. Click YES to save it. + +  + +### Description (SC) + +To show the supplier contra description in the Supplier Statement, e.g., Contra IV-00005 . + + + +Sample of supplier statement screenshot below. + + + +### GL Ledger - Contra Account + +1. Select the date range. +2. Select the account code, e.g., 450-000 CONTRA ACCOUNT. +3. Tick on General Ledger. +4. Click Apply button. +5. Example of the Contra Account ledger as shown below. + +  + +## InterBank GIRO Module + +To use the **Interbank GIRO** feature, you must have the **Interbank GIRO** module enabled in SQL Account. + + + +### Bank File Format + +The following shows the list of bank file formats that are currently supported. + + + +### Payment Method + +1. Click the **Bank Info** button. + +  + +2. Choose a **bank**. + +  + +3. Click the **OK** button. + +  + +4. The bank you have chosen may have **more than one file format**, please ensure you have selected the **correct file format**. + +  + +5. Enter the **bank information**, click the **OK** button, then Save. + +  + +### Supplier Bank Account + +1. Add a **bank account**, then Save. + +  + +### Supplier Payment Method + +1. Select **Supplier Bank** from the drop-down list. + +  + +2. Choose the **payment method** that contains **bank information**, then Save. + +  + +### Print Supplier Document (Interbank GIRO) Listing + +1. Click the **GIRO** button. + +  + +2. Enter additional information, then click the **Save** button. + +  + +3. You can now upload the bank instruction file to the bank host. + +### Excel Format + +By default, the system automatically saves an Excel file in XLSX format. Some banks (**Alliance Bank, Public Bank, RHB**) require the bank instruction file in XLS format. First, you must have **Microsoft Excel 2007** or a version above installed on your machine. + +Then, **open** the Excel file and **save it as XLS** format. diff --git a/docs/usage/tools.md b/docs/usage/tools.md deleted file mode 100644 index 328ae4ee..00000000 --- a/docs/usage/tools.md +++ /dev/null @@ -1,567 +0,0 @@ ---- -sidebar_position: 9 -title: Tools -description: Maintenance -slug: /usage/tools -tags: ["SQL Account", "Usage", "Tools"] ---- - -## Maintain User - -### Create New User - -1. Select **Tools** > **Maintain User** > **New** - -2. Enter the **Code and Name** (both can be the same e.g. Code = ALI, Name = ALI) - -3. Click on **More** Options and look for **Change Password** - -  - -4. Click Save. Your new user account is now created. - - :::success info - SQL User license is per concurrent basis (i.e. how many users can login to the system at the same time). This mean that if you have 5 staffs in the office who can access SQL but you only 3 license for 3 concurrent users, you can still maintain all 5 users in the system but only 3 users can login and access at the same time. - ::: - -### User Access Right - -:::info Video Guide -Watch tutorial video here: [Youtube](https://www.youtube.com/watch?v=t_TJKdOihfw&feature=youtu.be) -::: - -Not every user is going to have the same access rights as ADMIN, and ADMIN user might want to set security control settings in system. - -1. Select **Tools** > **Maintain User** > **Edit for the user that you want to set the access right for**. - -2. Click on **More** Options and look for **Access Right**. - -3. You need to check the transactions / functions (row), compare with the user (column) and **tick = Allowed** or **untick = Disallowed**, the action for a particular user for particular transactions. For example, base on the setting in the following images, the user is not allowed to delete Customers or to view Customer Payments. - -  - -## Maintain Document Number - -You can maintain document number format and next number. - -:::info -Watch tutorial video here: [Youtube](https://www.youtube.com/watch?v=hFR6TfqxnRU&feature=youtu.be) -::: - -1. **Tools** > **Maintain Document Number**. - -2. Insert **description** for the particular set of document and select a **document type** (e.g. Payment Voucher) - -3. The system’s defaults is the **Format** %.5d, where “%” is the formula which allows the function to auto-run for the document number while 5d stands for 5 digits. - -  - -4. You can select the **Frequency** option as Never Reset or others. - -5. Set the **Next Number** for this document. - -  - -## Maintain Acceptable Transaction Date - -:::info -SQL do not need to perform year end, it will cut off automatically. Once account closed, if you wish to block the period to avoid your users changed the account figure, you may apply this setting. -::: - -Maintain Acceptable Transaction Date allows you to control which documents you are allowed to maintain (New, Edit) based on their dates. - -- Any document which date falls **within** the allowed transaction dates **can** be edited. - -- Any document which date falls **outside** the allowed transaction dated **cannot** be edited/created. - -### New Acceptable Transaction Date - -1. **Tools** > **Maintain Acceptable Transaction Date** - -  - -2. Click on **Append** (Icon with + symbol) - -  - -3. Choose the period which you want to **allow transactions** - -4. **Save**. - -  - -5. Result: - - It will show the message if users try to save a document that are not in acceptable transaction period - -  - - If the user click "**Yes**" a dialogue box will request override permission by ID/PW with rights to override it. - - :::info - The default setting grants users override permission. Refer to the following section for instructions on revoking this privilege from a specific user. - ::: - -### Override Acceptable Transaction Date - - To override i.e. save a document that falls outside the acceptable transaction dates, you will need to be logged-in as a user with the right to override acceptable transactions dates. - - 1. **Tool** > **Maintain User**. Double click on the user that you want to **edit**. - -  - - 2. Click on **More** > **Access Control** -  - - 3. Under **Group Tools**, tick or untick the option of **Override Acceptable Transaction Date** to allow or deny the user from having the overriding right to save a document out of the acceptable transaction period. - - 4. **Save** the access right. - -  - - 5. Result: - - If the user Is not permitted to override, the system will prompt the following dialog and you can choose either - - - **OK = cancel saving** - - **Override = Enter user the ID and password of a user who can override then save the transaction.** - -  - -  - -## Maintain Form Mode - -Form Mode helps to filter data based on defined criteria. It is used to restrict users to view only specific sets of data for a certain document. For example, agent **Lip Fong can view and access the sales invoices belonging to his agent code** LF ONLY. - -### New Form Mode - -:::info -Watch tutorial video here: [Youtube](https://www.youtube.com/watch?v=bqSDZlAhM5I&feature=youtu.be) -::: - -1. **Tools** > **Maintain Form Mode** > **New**. - -2. **Enter Code & Select the document** form that you want to filter, e.g. Invoice - -  - -3. Click on the **Customize Filter** and then click on the **press the button to add a new condition**. - -  - -4. Change the **“SL_IV.DOCKEY” to “SL_IV.Agent”** because right now I need to filter based on sales invoice agent field, then change **the “= equals” to “like”** after that **enter the agent code** that you want to filter and click on **OK**. - -  - -5. Make sure the info is updated correctly then you can **Save**. - -  - -6. Other optional setting: - -  - -  - -7. If you have set **more than 1 form mode**, once you click **Sales** > **Invoice** > you will get the prompt browse mode to choose which form mode that you want to apply. - -  - -### Form Mode VS User - - How do I apply the format mode on a specific user? - - 1. **Tools** > **User Access Right Assignment…** - - 2. Under the list of security, click on **form mode** - - 3. Select the user, eg: user code: LF (Lip Fong) - - 4. Tick to apply the **form mode**, e.g. tick **form mode: IV-LF** and click Save - -  - -## Maintain Terms - -Maintain Terms allows the user to maintain their Customer and Supplier terms. In SQL there are 3 types of different terms for you to assign. - -1. **Tools** > **Maintain Terms** > **New** - -2. **Insert Code, Description and allocated Term Type.** -  - - - **Due in number of days** – Means how many days until document is due, e.g. if you set 30 days then the document will be due on the 30th day from the document date. - -  - - - **Due on specific day of the month** – Means how many months and which day the document is due, e.g. if you set it as 1 Month 6 Days the document will be due on the 6th of the next month. - -  - - - **Due in the month end** – Means how many months until the document is due at the end of the final month, e.g. if you set it as 2 months, the document will be due at the end of 2nd month. - -## Maintain Currency - -### New Foreign Currency - -:::info -Watch tutorial video here: [Youtube](https://www.youtube.com/watch?v=qfhtlAjW4As&feature=youtu.be) -::: - -You can bill overseas customers & suppliers in foreign currencies e.g. USD, SGD, Euro & etc. **(Prof Package Inclusive)** - -1. **Tools** > **Maintain Currency** > **New** - -  - -2. **Maintain Customer / Supplier to assign the currency** - -  - -3. Sales document, select the customer, sample as below: - - 1. Currency Rate will follow your setting from Tools > Maintain Currency, but it is still changeable in this invoice. - - 2. Unit Price entered is in based on Customer’s currency eg this customer is in USD. - - 3. system will auto converted into default currency RM on right bottom Local Net Total column. - -  - -### Payment from Foreign Customer - -#### Scenario 1 - -:::note -Customer Invoice **invoice billing in USD**, but **payment paid in your local RM bank** -::: - - 1. **Customer** > **Customer Payment** > **New** - - 2. Select your Customer - - 3. Choose your RM Bank - - 4. Enter your RM Amount - - 5. Knock off the invoice and the rate will be update automatically by system. Foreign gain loss will be auto calculated and post to account accordingly. (you can call out Rate & Gain Loss column from the hidden field). - -  - -#### Scenario 2 - -:::note -Customer Invoice **billing in USD, Payment paid in your Foreign USD Bank** - -*([Advance Currency](../faq/tools/advance-currency.md) modules required)* -::: - - 1. Go to Tools > Maintain Payment > edit your USD Bank - - 2. **Currency**: You can assign the currency for the particular payment method, so that the payment method will be in foreign currency payment. - - 3. **Bank Charge Acc**: You can pre-set bank charges account to the payment method accordingly. - - 4. **OR & PV Number Set**: Set default running document number for the particular payment method (optional) - - 5. **Bank Info**: able to set Giro info & make payment thru Giro (refer [Interbank Giro](../additional-module/interbank-giro.md) Topic for more detail) - -  - - Select your payment received in your **Foreign USD Bank**, enter your **paid Amount in USD, Enter your USD Rate** & Knock off the invoice, foreign gain loss will be auto calculated by system. - -  - -#### Scenario 3 - -:::note -Customer Invoice **billing in USD**, but **payment in others currency** eg SGD / RMB / EURO -::: - - 1. Select your Bank eg you received in SGD Bank, enter your SGD Amount & SGD Rate. - - 2. Knock off your USD Invoice. - - 3. USD rate will be auto calculated & foreign gain loss will auto calculated and posting to account accordingly - -  - -## Maintain Project (Required Project Module) - -This module allows the user to maintain the project accounting on a branch or departmental basis, the user can use this module for simple construction business as they get to view Profit and Loss / Balance Sheet by Project. - -1. Click on **Tools** > **Maintain Project**. - -  - -2. Insert **Project Code & Description**. Project Value and Project Cost is not compulsory fields to fill in, if you have filled in then it is for remark purpose. - -  - -3. Click on **Tools** > **Options**. - -  - -4. Then look for **Miscellaneous** > Make sure the option **“Show Document Project”** is ticked. - -  - -5. During **sales and purchase** transactions, make sure you can **the project column**, then **update** accordingly. - -  - - When keying-in a transaction, some users will ask why is there a project at item detail and another beside the Customer. Duplicate tab? - - **What is the difference between More > Project >(Document Project) and Item Detail > Project (Item Project )?** - -  - -  - -  - - **The project feature is also available for GL > Cash Book Entry.** - - After updating the document with project, how to view report with project and compare by project? For example: **GL > Print Profit & Loss Statement**. - -6. Filter by the date that you want to view for the P&L report, then if you want to perform a project-to-project comparison then choose **“Comparison – Project (6 columns)”** - -  - - :::note - - 6 Columns = up to 6 projects - - 10 Columns = up to 10 projects - - 19 Columns = up to 19 projects. - - ::: - -7. Criteria - - 1. After selecting the report that you need, make sure to tick the **“Show Column Options”**, then the top of the report will show column options. - - 2. You may change the period that you want to view, e.g. by default it will be **“Current Month”**. - - If you want to view the whole year figures, then you have to **change to “Current Year”**. - -  - -8. After changing the column options, you have to **tick the “Print Project Comparison”**, then the project tab will appear on the **right hand site**, you can select which project that you want to view then click on **Add**. - -  - -9. Click on **Apply** and you will see the result. The P&L report will compare each project that you select. - -  - -## 5 Cents Rounding - -We can pre-set the system to automatically round your invoice or cash sales amounts to the nearest 5 cents. - -:::info - -Watch tutorial video here: [Youtube](https://www.youtube.com/watch?v=VSnX55l_3xw&feature=youtu.be) - -::: - -1. **Tools** > **Options** > **Customer** - -2. **Tick 5 Cents Rounding** for Sales Invoice/ Cash Sales - -  - -  - -## Online Mobile Approval - -### How it works? - -For example : If we set Credit Limit over RM30,000 will required override - -1. A Dialog box will be prompted after *Save Invoice*, ***‘Do You want to override?’*** > Click ***Yes*** - -  - -2. Click on ***Online Approval*** - -  - - 1. Tick the ID that you choose to get approval - - 2. You can choose to send by **Whatsapp**, **Send by Email** or **Send by Whatsapp & Email** - -  - -3. You will receive a message at **Whatsapp** message or **email sent by system** - - - **Senario 1 : Send By Whatsapp** - - You will receive a message > Click the link - -  - - - **Senario 2 : Send By Email** - - You will receive an email > Click **'CLICK HERE FOR MORE ACTIONS'** - -  - -4. Login **Gmail Address** that you set in maintain user **Open ID (Google)** - - :::info[note] - - - This step is for those send by **whatsapp** and **not use Gmail** to receive notification - - Those use **Gmail Address** to receive notification and approve can jump to **Step 6** - - ::: - -  - -5. Enter your Gmail Password - -  - -6. After Login Gmail you will see this window - -  - -7. You can click on **Doc Detail** and **ScreenShot** to see the detail - - 1. **Doc Detail** : To show Customer Code, the reason why need override - - 2. **ScreenShot** : To see the transaction screen - - 3. **Reply** : You can left a message and click Approve or Reject - -  - - :::info[note] - After Approve or Reject you can go back SQL Accounting, you will see below possible scenario - ::: - - - **Scenario 1 : Approve Override** - - >a. Message : Approve Message - > - >b. The green tick will appear after approve - > - >c. Click **OK** to save that transaction - -  - - - **Scenario 2 : Reject Override** - - >a. Message : Reject Message - > - >b. The cross will appear after reject - > - >c. **OK** button is disabled after reject, click **Cancel** - -  - - After Click Cancel System will Prompt back to this dialog box : - -  - -### When to use? - -These **ALL** can use Online Approval for user : - -| Module | Action | -|---------------|-----------------| -| Logon Screen | - No access right to change password | -| All Module | - All Document entry without Execute / Print / Preview / Export access rights | -| | - Unable to Save and Manage Grid Layout | -| | - Unable to Grid Export | -| | - Save Document Fall Outside Acceptable Trans Date | -| Customer Inovice| - Fast entry save Invoice | -| SL&PH | - Prompt Stock Qty Control Dialog | -| | - Prompt change unit price | -| | - Save price below cost (fmSLPriceControl) | -| | - Override Credit Control | -| GL | - Bank Recon Entry form to Check Bank Recon Listing | -| Stock | - Update GL stock value from other stock month end report | -| | - Stock Report with Execute access right but without Process right | -| Inquiry | - Hide Dashboard | - -### 1. Maintain User - -1. Tools > Maintain User - -  - -### 2. Edit User - -1. Double click the user that you want to setting > Edit - -  - -  - -### 3. Set Approval Person - -- Setting The Detail For Approval Person (ONLY GMAIL CAN LOGIN TO APPROVE OR REJECT) - - 1. Mobile number - To which whatsapp number to get notification for approval only - - 2. Email - To which email address to get notification for approval only - - 3. Open ID (Google) - Gmail for approve or reject - - :::info[note] - If receive notification email and approve email is Gmail, do setting only at **3.OPEN ID (Google)** and leave **2.Email** column blank - ::: - -  - - For Example : - - - **Senario 1 : Use Same Gmail to Receive Notification and Give Approval** - - ``` - Your Gmail address is : `XXXXXX@gmail.com` - - 1. Open ID (Google) : `XXXXXX@gmail.com` - 2. Email : **Left as blank** - ``` - -  - - - **Senario 2 : Use Different email to received notification and give approval** - - ``` - - To Give Approval Gmail Address is : `XXXXXX@gmail.com` - - To Received notification Address is : `XXXXXX@estream.com` - ``` - - 1. Open ID (Google) : Put your gmail address XXXXXX@gmail.com - 2. Email : XXXXXX@estream.com - -  - -### 4. Setting SMTP - -:::info[note] - -- This Setting is for user who want to **use Email to send Notification** -- If use whatsapp to send approval can skip this step - -::: - -1. Make Sure you had create App Password - - If you are using Gmail , you can [CLICK HERE](https://support.google.com/accounts/answer/185833?hl=en) to follow the steps to create your App Password - - After getting your App Password, return to your SQL Accounting - -2. Click on Email Setting -3. Your Email SMTP Host -4. Your Email SMTP Port -5. Your Email SMTP Connection Security -6. Your Email Address -7. Your Apps Password -8. Your Email Sender Name -9. Afte done setting click Save - -  diff --git a/docs/usage/tools/fast-report/_category_.json b/docs/usage/tools/fast-report/_category_.json new file mode 100644 index 00000000..936a7779 --- /dev/null +++ b/docs/usage/tools/fast-report/_category_.json @@ -0,0 +1,8 @@ +{ + "label": "Fast Report (FR3)", + "position": 3, + "link": { + "type": "generated-index", + "description": "Fast Report Designer" + } +} \ No newline at end of file diff --git a/docs/usage/tools/fast-report/basic-guide.md b/docs/usage/tools/fast-report/basic-guide.md new file mode 100644 index 00000000..6860315a --- /dev/null +++ b/docs/usage/tools/fast-report/basic-guide.md @@ -0,0 +1,2837 @@ +--- +sidebar_position: 1 +title: FR3 Guide +description: How to do custom reports in fast report +slug: /usage/tools/fast-report/guide +tags: ["SQL Account", "Usage", "Tools"] +--- + +## Understanding the Toolbar + +1. **Report Object** + +  + +2. **Align Toolbar** + +  + +## Sales Invoice Bands + +1. Understanding Bands + + 1. Group Header + - Grouping Header + - To Print on every page, right-click on ***Group Header Band***, select ***reprint on new page*** + + 2. Master Data + - The ***Main*** Dataset of the report + - Normally Bind to Main Dataset + - Each Page allows to have 1 ***Main Dataset Only*** + + 3. Detail Data + - To display ***all Item Details*** + + 4. Group Footer + - Grouping Footer + - Display on ***Last Page*** only + + 5. Page Footer + - Display on ***Every Page*** + +2. Sample Layout in Design Mode + +  + +3. Sample Layout on Preview Mode + +  + +4. Print Position + + - Group Footer content will be printed at the pixel value input. + - Higher Value = Higher Footer + - without setting the print position, the group footer will be printed after the document + detail records. + - Example Source Code: + + ```pascal + if Engine.FreeSpace < (GroupFooter1.Height + PageFooter1.Height + 30) then Engine.NewPage; + + Engine.CurY := Engine.PageHeight - GroupFooter1.Height - PageFooter1.Height - **60** ; + ``` + + :::info[note] + **60** -> Higher Value = Higher Footer + ::: + + 1. How to do the Print Position setting in Report? + + 1. Click on ***Group Footer*** -> Click on ***Properties*** -> ***Events*** Tab -> Double Click on ***OnbeforePrint*** event name + +  + + 2. Adjust the value + +  + +5. Stop Position vs Print Count + + | Stop Position | Print Count | + | :---: | :----: | + | Details will stop at the input value| Details will stop by number of records inputs| + | Recommended | Not recommend if using More Description | + | Value in Pixels | Number of Records | + + 1. How to do the Stop Position in Report? + + 1. Right click ***DetailData1*** -> Click on ***Events*** Tab -> Double click ***onAfterCalcHeight*** name + +  + + 2. Set the stop position + +  + + :::tip[TIPS] + 1. Set Either Print Count or Stop Position + 2. use // to disable the command + 3. When you set both Print Count and Stop Position, the system will capture Print Count. + ::: + + 3. Sample on Print Position / Stop Position + +  + +## How to design a Simple Sales Invoice? + +- Preview Invoice +- Click on Report Name to enter Design Mode + +1. **Add PICTURE** + + 1. Click on Picture Object + +  + + 2. Place on Report Page + +  + + - **Fix Picture** + + 1. Click on Load + +  + + 2. Select the Picture from your local drive + + 3. Click on  + +  + + 4. Adjust to the desired size + +  + + - **Capture Picture from Report Dataset** + +  + +2. **Text Memo** + + **Add Customer Email Address** + + 1. Click on Text Memo + +  + + 2. Place it on the Report Page + + 3. Enter Text : Email + +  + + 4. Repeat Steps i & ii + + 5. Select Document_CompanyBranch -> Email Expression + +  + +3. **Rich Text Object** + + **Add Note** + + 1. Click on RichText Object + +  + + 2. Place on Report Page + + 3. Select Main -> Note + +  + +4. **System Text** + + - **Add Sum Qty** + + 1. Click on System Text Object + +  + + 2. Place it on the Report Page + + 3. Select Aggregate value + +  + +5. **Draw Line** + + 1. Click on Line + +  + + 2. Place it on the Report Page + + 3. Draw a line + +  + +6. **Center Horizontally in Band** + + - Display the object in center horizontal + + 1. Click on the Object you want to show in center horizontal + + 2. Click on Center Horizontally In Band + +  + +7. **Align Left / Middle / Right** + + 1. Click on the multiple Object to Align as same alignment. System will follow the first object as alignment + +  + +8. **Save the File** + + 1. File -> Save As -> Enter Report Name -> Save + + 2. Preview to see the result + + Result: + +  + +## How to create the Subreport in Report? + +- Preview Invoice +- Click on ***Report Name*** to enter Design Mode + +  + + 1. Click on **Subreport Object** + +  + + 2. Place on Report Page you want to show. + +  + + 3. System will prompt a new blank page for the Subreport + +  + + 4. Click on **Insert Band** to design the layout or insert data + +  + +## Check Box + +1. **Simple CheckBox** + + 1. Click on CheckBox object + +  + + 2. Place on the place you want to show. + +  + + 3. Press the button + +  + + 4. Select the frame design + +  + + 5. Change to False + +  + + 6. Save the File + 1. File -> Save As -> Enter Report Name -> Save + 2. Preview and see the result + + Result : + +  + +2. **Query to show Check Box either True to False** + + 1. Click on CheckBox | Double Click OnBeforePrint + +  + + 2. Place a Query below + +  + + Query: + + ```pascal + procedure Check/box1OnBeforePRint(Sender: TfrxComponent); + begin + if (Main."UDF_updated") = 'T' then + checkbox1.checked := true + else + checkbox1.checked := false; + end; + ``` + +## How to do Report Watermark? + +1. Insert Band | Select Overlay + +  + +2. Insert Picture / Text to load in the water mark + +  + +3. Overlay size can drag the same size as A4/Letter, and place the watermark on the position you want to show. + +  + +4. File | Save As: Enter report name + +5. Preview and see the Result : + +  + +## Fast Report - Doing Simple Calculation + +- In Fast Report you can also do some simple calculation using the Memo (Red A Icon) + +1. Below is an example using Sales Invoice to get Net Unit Price (after Discount) + + + +1. Click the Red A Icon. +2. Click on the place to print/shown. + +  + +3. Click the ABC Icon + +  + +4. Scroll and look for Document_Detail Pipeline/Section & Double click the field to Insert (eg Amount & Qty) +5. Change the Expression or Formula here +6. Click Ok button. + +  + +7. Click Format tab +8. Set Category to Number & Format to 1,234.50 +9. Click Ok button. +10. Click Ok button again to close the Memo dialog. +11. Right Click the Memo. + +## Fast Report - Get Data Directly from DB + +Sometime in the report you might want some extra information that you are not able to select in the report design. So you had to self query to get the extra information. + +There are 2 ways to Get the data directly from the Database + +- Cache Query +- Get DB Data Query + +## Cache Query + +
+ ) <> '' then
+ V := CacheQuery_GetValue(pST_Item, [], 'Shelf');
+
+ if not VarIsNull(V) then
+ Memo18.Text := V else
+ Memo18.Text := '';
+ end;
+ ```
+
+ 
+
+8. Scroll up till the top of the Code
+9. Enter below script at the First line
+
+ ```pascal
+ var pST_Item : pointer;
+ ```
+
+ 
+
+10. Scroll down till the end of the Code
+11. Enter below script in between begin and end.
+
+ ```pascal
+ pST_Item := CacheQuery_New('SELECT Shelf FROM ST_ITEM WHERE Code=:Code');
+ ```
+
+12. Save the report.
+
+### Example 2 - Get RefCost Field from Maintain Item
+
+Below is Example are doing following actions
+
+- Sales Invoice to get RefCost field from Maintain Item
+- Use RefCost * Qty in Sales Invoice
+
+1. Click the Red A Icon.
+2. Click on the place to print/shown.
+3. Right Click the Memo.
+4. Select Stretch
+5. Click on Events tab
+6. Double Click OnBeforePrint
+7. Enter below script
+
+ ```pascal
+ procedure Memo18OnBeforePrint(Sender: TfrxComponent);
+ var V : Variant;
+ begin
+ V := Null;
+ //Get RefCost*Qty
+ if Trim() <> '' then
+ V := CacheQuery_GetValue(pST_Item_UOM, [, ], 'RefCost');
+
+ if not VarIsNull(V) then
+ V := V * else
+ V := 0;
+ Memo18.Text := FormatFloat(, V);
+ end;
+ ```
+
+8. Scroll up till the top of the Code
+9. Enter below script at the First line
+
+ ```pascal
+ var pST_Item_UOM : pointer;
+ ```
+
+10. Scroll down till the end of the Code
+11. Enter below script in between begin and end.
+
+ ```pascal
+ pST_Item_UOM := CacheQuery_New('SELECT RefCost FROM ST_ITEM_UOM WHERE Code=:Code AND UOM=:UOM');
+ ```
+
+12. Save the report.
+
+### Example 3 - Get Picture Field from Maintain Item
+
+Below is Example are doing following actions
+
+- Sales Invoice to get Picture field from Maintain Item
+
+> This function only available on Version 730 & above
+
+ 
+
+1. Click on Picture Icon (Below Red A icon)
+2. Click on the place to print/shown.
+3. Click on Event tab on Object Inspector
+4. Double Click OnBeforePrint
+5. Enter below script
+
+ ```pascal
+ procedure Picture1OnBeforePrint(Sender: TfrxComponent);
+ var V : Variant;
+ begin
+ Picture1.Height := 0;
+ V := Null;
+ V := CacheQuery_GetValue(pST_Item, [], 'Picture');
+ if not VarIsNull(V) then begin
+ Picture1.LoadPictureFromBytes(V);
+ Picture1.Height := 48;
+ end;
+ end;
+ ```
+
+ 
+
+6. Scroll up till the top of the Code
+7. Enter below script at the First line
+
+ ```pascal
+ var pST_Item : pointer;
+ ```
+
+ 
+
+8. Scroll down till the end of the Code
+9. Enter below script in between begin and end.
+
+ ```pascal
+ pST_Item := CacheQuery_New('SELECT Picture FROM ST_ITEM WHERE Code=:Code');
+ ```
+
+10. Save the report.
+
+### Example 4 - Get Document Created UserName from Audit
+
+Below is Example is to Get the who created the Document from Audit Table.
+
+1. Click the Red A Icon.
+2. Click on the place to print/shown.
+3. Right Click the Memo.
+4. Select Stretch
+5. Click on Events tab
+6. Double Click OnBeforePrint
+7. Enter below script
+
+ ```pascal
+ procedure Memo10OnBeforePrint(Sender: TfrxComponent);
+ var V : Variant;
+ p : Pointer;
+ s : String;
+ begin
+ V := Null;
+ if Trim() <> '' then begin
+ //For AR, AP, SL & PH Only
+ s := '%' + + '%Code: ' + + ',%';
+ //For JV & CB Only
+ //s := '%' + + ',%';
+ V := CacheQuery_GetValue(p_Audit, [s], 'Code'); //for User Code
+ //V := CacheQuery_GetValue(p_Audit, [s], 'Name'); //for User Name
+ end;
+
+ if not VarIsNull(V) then
+ Memo10.Text := V else
+ Memo10.Text := '';
+ end;
+ ```
+
+8. Scroll up till the top of the Code
+9. Enter below script at the First line
+
+ ```pascal
+ var p_Audit : pointer;
+ ```
+
+10. Scroll down till the end of the Code
+11. Enter below script in between begin and end.
+
+ ```pascal
+ p_Audit := CacheQuery_New('SELECT CODE, NAME FROM SY_USER WHERE CODE = (SELECT First 1 UserName FROM AUDIT WHERE UPDATEKIND=''I'' AND REFERENCE LIKE :DocNo) ');
+ ```
+
+12. Save the report.
+
+### Example 5 - Get Transfer Information - QT to DO to IV
+
+Below is Example are doing following action
+
+- Quotation Transfer to Delivery Order to Invoice.
+- Get the Quotation number & Date in the Invoice Detail
+
+1. Click the Red A Icon.
+2. Click on the place to print/shown (In DetailData).
+3. Right Click the Memo.
+4. Select Stretch
+5. Click on Events tab
+6. Double Click OnBeforePrint
+7. Enter below script (For DocNo)
+
+ ```pascal
+ procedure Memo10OnBeforePrint(Sender: TfrxComponent);
+ var V : Variant;
+ begin
+ V := Null;
+ if Trim() <> '' then
+ V := CacheQuery_GetValue(pSL_QT, [], 'DocNo');
+
+ if not VarIsNull(V) then
+ Memo10.Text := V else
+ Memo10.Text := '';
+ end;
+ ```
+
+8. Repeat again Steps 01 to 06
+9. Enter below script (For DocDate)
+
+ ```pascal
+ procedure Memo18OnBeforePrint(Sender: TfrxComponent);
+ var V : Variant;
+ begin
+ V := Null;
+ if Trim() <> '' then
+ V := CacheQuery_GetValue(pSL_QT, [], 'DocDate');
+
+ if not VarIsNull(V) then
+ Memo18.Text := V else
+ Memo18.Text := '';
+ end;
+ ```
+
+10. Scroll up till the top of the Code
+11. Enter below script at the First line
+
+ ```pascal
+ var pSL_QT : pointer;
+ ```
+
+12. Scroll down till the end of the Code
+13. Enter below script in between begin and end.
+
+ ```pascal
+ pSL_QT := CacheQuery_New('SELECT A.DocNo, A.DocDate, B.Qty FROM SL_QT A '+
+ 'INNER JOIN SL_QTDTL B ON (A.Dockey=B.Dockey) ' +
+ 'WHERE B.Dockey=(SELECT FROMDOCKEY FROM SL_DODTL ' +
+ 'WHERE Dtlkey=:Dtlkey) '+
+ 'AND B.DtlKey=(SELECT FROMDTLKEY FROM SL_DODTL '+
+ 'WHERE Dtlkey=:DtlKey)');
+ ```
+
+14. Save the report.
+
+### Example 6 - Get Customer Branch Email & Attention
+
+Below is Example are doing following actions
+
+- Sales Invoice to get Branch Email field from Maintain Customer
+
+1. Click the Red A Icon.
+2. Click on the place to print/shown.
+3. Right Click the Memo.
+4. Select Stretch
+5. Click on Events tab
+6. Double Click OnBeforePrint
+7. Enter below script
+
+ ```vb
+ procedure Memo18OnBeforePrint(Sender: TfrxComponent);
+ var V : Variant;
+ begin
+ V := Null;
+ //For Email
+ V := CacheQuery_GetValue(pAR_Branch, [, ], 'EMail');
+ //For Attention
+ //V := CacheQuery_GetValue(pAR_Branch, [, ], 'Attention');
+
+ if VarIsNull(V) then
+ V := '';
+ Memo18.Text := V;
+ end;
+ ```
+
+8. Scroll up till the top of the Code
+9. Enter below script at the First line
+
+ ```pasacal
+ var pAR_Branch : pointer;
+ ```
+
+10. Scroll down till the end of the Code
+11. Enter below script in between begin and end.
+
+ ```pascal
+ pAR_Branch := CacheQuery_New('SELECT EMail, Attention FROM AR_CustomerBranch WHERE Code=:Code AND BranchName=:BranchName');
+ ```
+
+12. Save the report.
+
+
+
+## Get DB Data Query
+
+Cache Query - click to expand
+ +> Only available SQL Accounting Version 723 & above + +- Pros + +1. Easy to write + +2. Can direct filter data from the Local Pipeline + +3. Less data Loading + +- Cons + +1. Unable to Total all result shown + +2. Only support = in the Query + +3. No pipeline is created + +### Example 1 - Get Shelf Field from Maintain Item + + Below is Example are doing following actions : + +- At Sales Invoice to get Shelf field from Maintain Item + +  + +1. Click the Red A Icon. +2. Click on the place to print/shown. +3. Right Click the Memo. + +  + +4. Select Stretch +5. Click on the Events tab +6. Double Click OnBeforePrint +7. Enter below script + + ```pascal + procedure Memo18OnBeforePrint(Sender: TfrxComponent); + var V : Variant; + begin + V := Null; + //Get Shelf From ST_Item + if Trim(
+ )]
+ ```
+
+11. Click OK
+12. Save the report
+
+
+
+## Fast Report - Get Data from Available Pipeline
+
+Get DB Data Query - click to expand
+ +User can use this function to query & add new pipeline & also join/link the new pipeline to the existing/local pipeline. +The Steps is 99% same like **Fast Report - Get Data from Available Pipeline** the only different is the Script part. + +Pros + +- Can write complex query + +Cons + +1. Not Easy to write +2. Unable to filter data from Local Pipeline (i.e. Had to Select ALL data from the Table) +3. Might slow or Out of Memory on Print/Preview report if not careful + +### Example 1 - Get Maintain Batch Information + +Below is Example doing following actions + +- Get data information From Stock Batch + + + +1. Click Code tab & scroll down look for procedure SetUp +2. Copy below script & paste it between the begin & end; in procedure SetUp + + ```pascal + SQL := 'SELECT Code, Description, ExpDate, MfgDate, Remark1, Remark2 FROM ST_BATCH'; + AddDataSet('plST_Batch',['Code', 'Description', 'ExpDate', 'MfgDate', 'Remark1', 'Remark2']) + .GetDBData(SQL) + .LinkTo('Document_Detail', 'Batch', 'Code'); // Link to Detail + ``` + +3. Click File | Save As... to save the file (eg Sales Invoice 7 (GST 2)-New) +4. Click File | Exit to exit the report design +5. Click Design again in the report designer for the file just save on Steps 3 (eg Sales Invoice 7 (GST 2)-New) + +  + +6. Click on Red A icon & click the place to print + +7. Select the option for following setting + + - Dataset : plST_Batch + - DataField : ExpDate + +8. Repeat Steps 6 to 7 for other field if necessary +9. Save the Report + +### Example 2 - Get Supplier Bank Information + +Below is Example doing following actions + +- Get Supplier Bank information From Maintain Supplier for Supplier Payment Voucher + + + +1. Click Code tab & scroll down look for procedure SetUp +2. Copy below script & paste it above the procedure SetUp + +
+ = True then
+ s := Format(s, ['PostDate', FormatSQLDate(),
+ FormatSQLDate()]) else
+ s := Format(s, ['DocDate', FormatSQLDate(),
+ FormatSQLDate()]);
+ AddDataSet('pl_APPM', ['DocNo', 'BankAcc'])
+ .GetDBData(s)
+ .LinkTo('Main', 'DocNo', 'DocNo');
+
+ s := 'SELECT * FROM AP_SUPPLIERBANKACC '+
+ 'WHERE IsActive=''T'' ';
+ AddDataSet('pl_SUPPLIERBANKACC', ['Bank', 'AccNo', 'AccName'])
+ .GetDBData(s)
+ .LinkTo('pl_APPM', 'BankAcc', 'AutoKey');
+ end;
+ ```
+
+
+
+3. Copy below script & paste it between the begin & end; in procedure SetUp
+
+ ```pascal
+ SetUp_BankInfo;
+ ```
+
+4. Click File | Save As... to save the file (eg GL Payment Voucher - Detail - Full (GST)-v BankInfo)
+5. Click File | Exit to exit the report design
+6. Click Design again in the report designer for the file just save on Steps 4 (eg GL Payment Voucher - Detail - Full (GST)-v BankInfo)
+
+
+
+7. Click on Red A icon & click the place to print
+8. Select the option for following setting
+
+- Dataset : pl_SUPPLIERBANKACC
+- DataField : AccNo
+
+9. Repeat Step 7
+
+
+
+10. Copy below script & paste it in the Memo
+
+ ```pascal
+ [GetBankName(Supplier Bank Info Script - click to expand
+ + ```pascal + function FormatSQLDate(D: TDateTime): String; + var AFormat: string; + begin + AFormat := 'dd mmm yyyy'; //'dd/mmm/yyyy' if can't + Result := QuotedStr(FormatDateTime(AFormat, D)); + end; + + function GetBankName(const lCode:String):String; + begin + case lCode of + 'AIBBMY' : Result := 'Affin Bank Berhad'; + 'RJHIMY' : Result := 'Al Rajhi Banking & Investment Corporation (Malaysia) Berhad'; + 'MFBBMY' : Result := 'Alliance Bank Malaysia Berhad'; + 'ARBKMY' : Result := 'AmBank (M) Berhad'; + 'BNPAMY' : Result := 'BNP Paribas Malaysia Berhad'; + 'BIMBMY' : Result := 'Bank Islam Malaysia Berhad'; + 'BKRMMY' : Result := 'Bank Kerjasama Rakyat Malaysia Berhad'; + 'BMMBMY' : Result := 'Bank Muamalat Malaysia Berhad'; + 'BOFAMY' : Result := 'Bank of America Malaysia Berhad'; + 'BOTKMY' : Result := 'Bank of Tokyo-Mitsubishi UFJ (Malaysia) Berhad'; + 'AGOBMY' : Result := 'Bank Pertanian Malaysia Berhad'; + 'BSNAMY' : Result := 'Bank Simpanan Nasional Berhad'; + 'CIBBMY' : Result := 'CIMB Bank Berhad'; + 'CITIMY' : Result := 'Citibank Berhad'; + 'DEUTMY' : Result := 'Deutsche Bank (Malaysia) Berhad'; + 'HLBBMY' : Result := 'Hong Leong Bank Berhad'; + 'HBMBMY' : Result := 'HSBC Bank Malaysia Berhad'; + 'ICBKMY' : Result := 'Industrial and Commercial Bank of China (Malaysia) Berhad'; + 'CHASMY' : Result := 'J.P. Morgan Chase Bank Berhad'; + 'KFHOMY' : Result := 'Kuwait Finance House (Malaysia) Berhad'; + 'MBBEMY' : Result := 'Malayan Banking Berhad'; + 'MHCBMY' : Result := 'Mizuho Bank (Malaysia) Berhad'; + 'OCBCMY' : Result := 'OCBC Bank (Malaysia) Berhad'; + 'PBBEMY' : Result := 'Public Bank Berhad'; + 'RHBBMY' : Result := 'RHB Bank Berhad'; + 'SCBLMY' : Result := 'Standard Chartered Bank Malaysia Berhad'; + 'SMBCMY' : Result := 'Sumitomo Mitsui Banking Corporation Malaysia Berhad'; + 'ABNAMY' : Result := 'The Royal Bank of Scotland Berhad'; + 'UOVBMY' : Result := 'United Overseas Bank (Malaysia) Bhd'; + 'ANZBSG' : Result := 'Australia and New Zealand Banking Group Limited'; + 'BKKBSG' : Result := 'Bangkok Bank Public Company Limited'; + 'BOFASG' : Result := 'Bank of America, National Association'; + 'BKCHSG' : Result := 'Bank of China Limited'; + 'BEASSG' : Result := 'The Bank of East Asia Limited'; + 'BNINSG' : Result := 'P.T. Bank Negara Indonesia (Persero)'; + 'BKIDSG' : Result := 'Bank of India'; + 'BOTKSG' : Result := 'Bank Of Tokyo-Mitsubishi UFJ Limited'; + 'BNPASG' : Result := 'BNP Paribas'; + 'CTCBSG' : Result := 'Chinatrust Commercial Bank Corporation Limited'; + 'CIBBSG' : Result := 'CIMB Bank Berhad'; + 'CITISG' : Result := 'Citibank, National Association'; + 'COBASG' : Result := 'Commerzbank AG'; + 'AGRISG' : Result := 'Credit Agricole Corporate And Investment Bank'; + 'DBSSSG' : Result := 'DBS Bank Limited'; + 'DEUTSG' : Result := 'Deutsche Bank AG'; + 'DNBASG' : Result := 'DNB Bank ASA'; + 'FAEASG' : Result := 'Far Eastern Bank Limited'; + 'FCBKSG' : Result := 'First Commercial Bank Limited'; + 'HLBBSG' : Result := 'HL Bank'; + 'HSBCSG' : Result := 'The Hongkong And Shanghai Banking Corporation Limited'; + 'ICICSG' : Result := 'ICICI Bank Limited'; + 'IDIBSG' : Result := 'Indian Bank'; + 'IOBASG' : Result := 'Indian Overseas Bank'; + 'iCBKSG' : Result := 'Industrial and Commercial Bank Of China'; + 'BCITSG' : Result := 'Intesa Sanpaolo SpA'; + 'CHASSG' : Result := 'JP Morgan Chase Bank, National Association'; + 'KOEXSG' : Result := 'Korea Exchange Bank'; + 'SOLASG' : Result := 'Landesbank Baden-Wurttemberg'; + 'MBBESG' : Result := 'Malayan Banking Bhd'; + 'MHCBSG' : Result := 'Mizuho Bank Limited'; + 'NATASG' : Result := 'National Australia Bank Limited'; + 'NDPBSG' : Result := 'Nordea Bank Finland PLC'; + 'OCBCSG' : Result := 'Oversea-Chinese Banking Corporation Limited'; + 'RHBBSG' : Result := 'RHB Bank Berhad'; + 'ESSESG' : Result := 'Skandinaviska Enskilda Banken AB'; + 'SOGESG' : Result := 'Societe Generale'; + 'SBSASG' : Result := 'Standard Chartered Bank'; + 'SBINSG' : Result := 'State Bank of India'; + 'SMBCSG' : Result := 'Sumitomo Mitsui Banking Corporation'; + 'HANDSG' : Result := 'Svenska Handelsbanken AB'; + 'RBOSSG' : Result := 'The Royal Bank of Scotland PLC'; + 'UBSWSG' : Result := 'UBS AG'; + 'UCBASG' : Result := 'UCO Bank'; + 'UOVBSG' : Result := 'United Overseas Bank Limited'; + end; + end; + + procedure SetUp_BankInfo; + var s : string; + begin + s := 'SELECT DocNo, BankAcc FROM AP_SP '; + + if
+ ) // Set Display Format
+ .LinkTo('Main', 'Dockey', 'Dockey'); // Link the New Pipeline (eg here is to link with Main Pipeline)
+ ```
+
+3. Click File | Save As... to save the file (eg Sales Invoice 7 (GST 2)-New)
+4. Click File | Exit to exit the report design
+5. Click Design again in the report designer for the file just save on Steps 3 (eg Sales Invoice 7 (GST 2)-New)
+
+ 
+
+6. Click Subreport Icon
+7. Click the place to print
+
+ 
+
+8. Click Insert Band icon
+9. Select Master Data
+
+ 
+
+10. In the Dataset select the New Pipeline created at Step 2 (eg GSTAmt) & Click Ok
+11. Repeat Steps 8 to add the Header & Footer
+
+ 
+
+12. Click on Red A icon & click the place to print
+13. Select the option for following setting
+
+ - Dataset : GSTAmt
+ - DataField : LocalAmount
+
+14. Repeat Step 12 & 13 for other but DataField change to LocalTaxAmt
+15. Click Sum Icon & click at the Footer
+
+ 
+
+16. Select Aggregate value & set the option as following setting :
+
+ - Function : SUM
+ - Data band : MasterData2
+ - DataSet : GSTAmt
+ - DataField : LocalAmount
+
+17. Click Ok
+18. Repeat Step 16 & 17 for other but DataField change to LocalTaxAmt
+
+ 
+
+19. Right Click & select DisplayFormat
+
+ 
+
+20. Set the setting for following option :
+
+ - Category : Number
+ - Format : 1,234.50
+
+21. Click OK
+22. Repeat Steps 19 to 21 for other Total field (i.e. LocalTaxAmt)
+23. Click on Red A icon & click the place to show tax code
+24. Copy below script & paste in the memo :
+
+ ```pascal
+ [IIF(Trim()='',, +' @ ' + )]
+ ```
+
+ 
+
+25. Click OK.
+26. For Label, Click on Red A icon, click the place to print & enter the Decription
+27. Save the report.
+
+### Example 2 - Show Show 1st FromDocNo at Header
+
+Below is Example will get FromDocNo Field from the Detail Data
+
+1. Click Code tab & scroll down look for procedure SetUp
+2. Copy below script & paste it between the begin & end; in procedure SetUp
+
+ ```pascal
+ SQL := 'SELECT Dockey, Min(Seq) Seq, FromDocDate, FromDocNo FROM Document_Detail '+
+ 'WHERE FromDocType <> '''' ';
+ AddDataSet('pl_FromDocInfo', ['Dockey', 'FromDocDate', 'FromDocNo'])
+ .GetLocalData(SQL)
+ .LinkTo('Main', 'Dockey', 'Dockey');
+ ```
+
+3. Click File | Save As... to save the file (eg Sales Invoice 7 (GST 2)-New)
+4. Click File | Exit to exit the report design
+5. Click Design again in the report designer for the file just save on Steps 3 (eg Sales Invoice 7 (GST 2)-New)
+6. Click on Red A icon & click the place to print
+7. Select the option for following setting
+
+ - Dataset : pl_FromDocInfo
+ - DataField : FromDocNo
+
+8. Repeat Step 6 & 7 for other field
+9. Save report
+
+### Example 3 - Group Overtime in Payslip
+
+Below is Example will group all the Overtime by Code, Description, Rate & PayRate.
+
+
+
+1. Click Code tab & scroll look for begin & end.
+2. Copy below script & paste it above the begin & end.
+
+ ```pascal
+ procedure Setup;
+ var SQL : String;
+ begin
+ SQL := 'SELECT Employee, Code, Description, Rate, PayRate, ' +
+ 'Sum(CAST(WorkUnit AS REAL)) WorkUnit, Sum(CAST(Amount AS REAL)) Amount ' +
+ 'FROM Overtime ' +
+ 'GROUP BY Employee, Code, Description, Rate, PayRate';
+ AddDataSet('OTGroup', ['Employee', 'Code', 'Description', 'Rate', 'PayRate', 'WorkUnit','Amount'])
+ .GetLocalData(SQL) // Execute the Query
+ .SetDisplayFormat(['WorkUnit'],)
+ .SetDisplayFormat(['Rate','PayRate'],)
+ .SetDisplayFormat(['Amount'],)
+ .LinkTo('Main', 'Employee', 'Employee');
+ end;
+ ```
+
+3. Click File | Save As... to save the file (eg PR.Payslip1A.Report-Group)
+4. Click File | Exit to exit the report design
+5. Click Design again in the report designer for the file just save on Steps 3 (eg SPR.Payslip1A.Report-Group)
+6. Click Subreport3
+7. Double Click MasterData4
+8. Change the Dataset to OTGroup & Click OK
+9. Change all the Field Data Set to OTGroup for all Component in MasterData4
+
+### Example 4 - Show Total SVE at Footer
+
+Below Example is to Get total SVE for 6%
+
+1. Click Code tab & scroll down look for procedure SetUp
+2. Copy below script & paste it between the begin & end; in procedure SetUp
+
+ ```pascal
+ SQL := 'SELECT DocKey, SUM(LocalAmount)*0.06 SVE FROM Document_Detail ' +
+ 'WHERE Tax=''SVE'' ' +
+ 'GROUP BY DocKey';
+ AddDataSet('pl_TotSVE', ['Dockey', 'SVE'])
+ .GetLocalData(SQL)
+ .SetDisplayFormat(['SVE'],)
+ .LinkTo('Main', 'Dockey', 'Dockey');
+ ```
+
+3. Click File | Save As... to save the file (eg Sales Invoice 8 (SST 2)-New)
+4. Click File | Exit to exit the report design
+5. Click Design again in the report designer for the file just save on Steps 3 (eg Sales Invoice 8 (SST 2)-New)
+6. Click on Red A icon & click the place to print
+
+ 
+
+7. Select the option for following setting
+Dataset : pl_TotSVE
+DataField : SVE
+8. Repeat Step 6 & 7 for other field
+9. Save report
+
+
+
+## Fast Report - Shift Relative To Simulator
+
+Get Data from Available Pipeline - click to expand
+ +- Sometime in the report you might wanted some extra information or further analysis from the report itself but you not able to select in the report design. So you had to self query to get the extra information or further analysis. + +### Example 1 - Show GST Summary at Last Page + +Below is Example doing following actions : + +- Get data information (Tax, Tax rate, LocalAmount, LocalTaxAmt) +- Group the data by Tax code + + + +1. Click Code tab & scroll down look for procedure SetUp +2. Copy below script & paste it between the begin & end; in procedure SetUp + + ```pascal + SQL := 'SELECT Dockey, Tax, TaxRate, Sum(CAST(LocalTaxAmt AS REAL)) LocalTaxAmt, ' + + 'Sum(CAST(LocalAmount AS REAL)) LocalAmount '+ + 'FROM Document_Detail ' + + 'WHERE Tax <> '''' ' + + 'GROUP BY Dockey, Tax, TaxRate'; + AddDataSet('GSTAmt', ['Tax', 'TaxRate', 'LocalTaxAmt', 'LocalAmount']) // Create New Pipeline (eg here is GSTAmt) + .GetLocalData(SQL) // Execute the Query + .SetDisplayFormat(['LocalTaxAmt', 'LocalAmount'],
+
+
+## Fast Report - Down Then Across Column
+
+Shift Relative To Simulator - click to expand
+ +- In Fast Report there is **no** such function call Shit Relative To. This only available in Report Builder. So to **simulate** this function we had created the below script. + +### Requirement + +- Fast Report +- SQL Accounting Version 721 & above + +1. Place all the component (eg TfrxMemoView or TfrxRichView) as following + +  + +2. Only TfrxMemoView component need to select Dataset & DataField + +  + +3. For TfrxRichView component must leave it empty for Dataset & DataField + +  + +4. For TfrxRichView double click & select the ABC icon & select the Data Field + +  + +5. Click Tick icon after select the Field +6. On each component(i.e. MmDesc, RichDesc3 & RichSN) set all the GapY to **0** + +  + +7. Click on the Empty place (see icon 1 below) + +  + +8. Double click OnBeforePrint (see icon 2 above) +9. Enter below script + + ```pascal + procedure Page1OnBeforePrint(Sender: TfrxComponent); + begin + //For Version 721 & above + ShiftRelative([MmDesc, RichDesc3, RichSN]); // ShiftRelative([ComponentName1, ComponentName2, ComponentName3]) // For DetailData1 + ShiftRelative([MmDescM, RichDesc3M]); // For DetailData2 + end; + ``` + +10. Save the Report. + +:::note Note +Fastest way to do (For Version 721 & above Only) + +1. Copy from the build in report (Sales Invoice 7 (GST 1)) +2. Paste to your report +3. Direct jump to Step 7 +::: + +### Video Guide + +[Shift Relative To Simulator](https://youtu.be/4qEP_6kNHFE) + +### FAQ + +#### 1. Why it overlap when preview even at design time no overlap? + +If preview shown something like below, try adjust the component to by add 0.01 for Top field + + + +:::note Try Below Steps(in inch) + +- Set all component Height = 0.1 +- Set 2nd component Top = 0.1 +- Set 3rd component Top = 0.2 +- Tick the Shift When Overlapped option in right click for both 2nd & 3rd component +::: + +#### 2. Why it still same even after all the step above had follow & all scripts had copy? + +Make sure the compoents width not overlap to next field + + + +#### 3. Can my 2nd & 3rd field longer then 1st field? + +Yes , just tick the **Shift When Overlapped** option in right click for both 2nd & 3rd component + + + +
+
+
+## Fast Report - Continue Next Page & Continue From Previous Page
+
+Down Then Across Column - click to expand
+ +By default in Fast Report if you set 2 or more columns in detail it will shown the data Left Right. +In order to shown DownThenCross you need do some script as below. + +### Requirement + +- Fast Report +- SQL Accounting Version 722 & above + +### Steps + +Below is example using GL Official Receipt + + + +1. Select DetailData Band +2. Click Properties Tab +3. Set the following setting + + | Setting | Description | + |--------------|------------------------------| + | Columns | Number of column(s) to shown | + | ColumnWidth | Width for each column | + +  + +4. Click Events Tab +5. Double Click OnAfterPrint & enter below script + + ```pascal + procedure DetailData3OnAfterPrint(Sender: TfrxComponent); + begin + DownThenAcross_After(Sender, 'FromDockey'); + end; + ``` + +6. Repeat Step 5 again for OnBeforePrint & enter below script + + ```pascal + procedure DetailData3OnBeforePrint(Sender: TfrxComponent); + begin + DownThenAcross_Before(Sender, 'FromDockey'); + end; + ``` + +
+
+
+## Fast Report - E-Mail Client (Batch) & E-Mail (Native)
+
+ Continue Next Page & Continue From Previous Page - click to expand
+ +- Sometime we need to show or an indicator to let the person who received the Document know there is more then 1 page. +- There are 2 ways to show this + - Header - Continue From Previous Page... + - Footer - Continue Next Page... + +Below is example using Sales Cash Sales + + + +### Header - Continue From Previous Page + +
+ > 1);
+ MmContinueT.Visible := B;
+ MmContinueT.Printable := B;
+end;
+```
+
+
+
+### Footer - Continue Next Page
+
+Continue from Previos Page - click to expand
+ + + +1. Click on Red A icon +2. Click at the place to print/shown in the GroupHeader band +3. Enter the text you like (eg Continue From Previous Page...) +4. Change the Name (eg MmContinueT) + +  + +5. Click Events tab +6. Double Click OnBeforePrint and enter below script + +```pascal +procedure MmContinueTOnBeforePrint(Sender: TfrxComponent); +var B : Boolean; +begin + B := (
+ < ;
+ MmContinueB.Visible := B;
+ MmContinueB.Printable := B;
+ end;
+ ```
+
+
+
+Continue Next Page - click to expand
+ + + +1. Click on Red A icon +2. Click at the place to print/shown in the Footer band +3. Enter the text you like (eg Continue Next Page...) +4. Change the Name (eg MmContinueB) + +  + +5. Click Events tab +6. Double Click OnBeforePrint and enter below script + + ```pascal + procedure MmContinueBOnBeforePrint(Sender: TfrxComponent); + var B : Boolean; + begin + B :=
+ ` (``) to show variable data
+(eg Document Number) in the E-Mail Subject & Body.
+
+- The Pipeline name & FieldName is from the Report Designer Pipeline name & Field Name
+
+- Default Template(Must set at last Row) is use if system can't find the Report Name in the
+Description field.
+
+:::
+
+### Maintain Employee
+
+**Menu: Human Resource | Employee...**
+
+Version 1.2020.182.158 & above
+
+- Only available in Version 1.2020.182.158 & above.
+
+
+
+| Field Name | Description |
+|-----------------------------|-------------------------------|
+| Phone1 | CC E-Mail Address |
+| Phone2 | BCC E-Mail Address |
+| Address4 | PDF FileName |
+| Mobile | E-Mail Subject |
+| Note | E-Mail Content/Body |
+| Name2 | Global PDF Password |
+| Name2 (For Each Employee) | Private/Individual PDF Password |
+
+Version 1.2021.196.166 & above
+
+
+
+| Section Name | Description |
+|-------------------|---------------------------------------------------------|
+| [CC] | CC E-Mail Address |
+| [BCC] | BCC E-Mail Address |
+| [PDFFileName] | PDF FileName |
+| [Subject] | E-Mail Subject |
+| [Body] | E-Mail Content/Body |
+| [GlobalPassword] | Global PDF Password |
+| [PrivatePassword] | For Each Employee Private/Individual PDF Password |
+| EmployeeCode=Password | Example: For employee code `0004` with password `test 123` → `0004="test 123"` |
+| [UseName2] | To use Employee Name 2 as password. Available in Version **1.2021.206.174 & above**. `1 = Enable`, `0 = Disable` |
+
+:::warning
+or Version 1.2021.196.166 & above
+Avoid use following character
+
+- [
+- ]
+- "
+- =
+
+:::
+
+| Available Function | Description | Available Report |
+|--------------------|-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|------------------|
+| GetTitle | Get report title | Payslip, EA, EC |
+| GetMonth | Get Process Month & Year | Payslip |
+| Function | Description | Available Report |
+|---------------|-------------|------------------|
+| UseNameICPass | **For PDF password (can be applied to Global/Private Password).** • The first character of Employee Name (in uppercase); • Second character is `@`; • The subsequent 6 characters are the last 6 digits of NRIC or Passport No. **Example:** Name: *Erza Scarlet*; NRIC: *800818-10-4858*; Output: `E@104858`. *Available in Version 1.2022.214.179 & above* | Payslip, EA, EC |
+
+1. Create New Employee
+2. Copy below Sample E-Mail Template
+
+
+
+## Fast Report - DSQL Lite Functions Commonly Use
+
+E-Mail Client (Batch) & E-Mail (Native) - click to expand
+ + By default we got **3** types of Export to E Mail for Fast Report + + E-Mail Client + + - Pros + + - User still can change the E-Mail address, Subject & body (E-Mail Content) before Sent + - Send E-Mail will keep in the Client E-Mail + - Support HTML format + - Can Attach more then 1 format + - Can use without E-Mail Script + + - Cons + + - Not easy to setup + - Only For Single Document E-Mail + - Attachment only Support pdf, Excel & HTML format + + E-Mail Client (Batch) + + - Pros + - Can use for Batch & Single Document E-Mail + - Send E-Mail will keep in the Client E-Mail + + - Cons + + - Not easy to setup + - Only support pdf attachment + - E-Mail Content only support plain text + - User can't change the E-Mail address, Subject & body (E-Mail Content) before Sent + - Must load the E-Mail Script + + E-Mail (Native) + + - Pros + + - Easy to Setup + - Support many attachment format + - User still can change the E-Mail address, Subject & body (E-Mail Content) before Sent + - Can use without E-Mail Script + + - Cons + + - No record is keeped for Sended E-Mail + - Only For Single Document E-Mail + - E-Mail Content only support plain text + - Only support Single Attachment + + ### Requirements + + - Fast Report + - Client E-Mail (eg Mozilla Thunderbird-Recommended) for E-Mail Client & E-Mail Client (Batch) Only + - An E-Mail Account (eg GMail) + - SQL Accounting Version 731 & above + + ### Setting + + Below is example using Sales Invoice + +  + + 1. Click the Code Tab + 2. Enter below Script at the First line + +
+ ,'/','')
+ if iIgnoreCase then begin
+ SearchStr := UpperCase(S);
+ Patt := UpperCase(OldPattern);
+ end else begin
+ SearchStr := S;
+ Patt := OldPattern;
+ end;
+ NewStr := S;
+ Result := '';
+ while SearchStr <> '' do begin
+ Offset := Pos(Patt, SearchStr);
+ if Offset = 0 then begin
+ Result := Result + NewStr;
+ Break;
+ end;
+ Result := Result + Copy(NewStr, 1, Offset - 1) + NewPattern;
+ NewStr := Copy(NewStr, Offset + Length(OldPattern), MaxInt);
+ if not iReplaceAll then begin
+ Result := Result + NewStr;
+ Break;
+ end;
+ SearchStr := Copy(SearchStr, Offset + Length(Patt), MaxInt);
+ end;
+ end;
+
+ procedure GetEMailTpl;
+ var D : TfrxDataSet;
+ lFN : String;
+ begin
+ lFN := Trim(Report.ReportOptions.Name);
+ lFN := StringReplace(lFN,'.fr3','');
+ D := Report.GetDataSet('plEMailTpl');
+ D.First;
+ While not D.Eof do begin
+ if Trim(D.Value('ReportName')) = lFN then
+ Break;
+ D.Next;
+ end;
+ end;
+
+ function GetFldInfo(const AStr:String):String;
+ var D : TfrxDataSet;
+ nStr : String;
+ lSL,lPL : TStringList;
+ i, j : integer;
+ begin
+ nStr := AStr;
+ lSL := TStringList.Create;
+ lPL := TStringList.Create;
+ with lPL do begin //Available Pipeline
+ Add('Main');
+ Add('Profile');
+ end;
+ try
+ for j:=0 to lPL.Count -1 do begin
+ D := Report.GetDataSet(lPL[j]);
+ D.GetFieldList(lSL);
+ for i:=0 to lSL.Count -1 do begin
+ if D.IsBlobField(lSL[i]) then
+ nStr := StringReplace(nStr, '<'+ lPL[j] + '.' + lSL[i] + '>',D.Value(lSL[i])) else
+ nStr := StringReplace(nStr, '<'+ lPL[j] + '.' + lSL[i] + '>',D.DisplayText(lSL[i]));
+ end;
+ end;
+ Result := nStr;
+ finally
+ lSL.Free;
+ lPL.Free;
+ end;
+ end;
+
+ //For E-Mail Client (Batch)
+ procedure OnGetEmailSettings(EmailSettings: TStrings);
+ var vEmail, vName: Variant;
+ begin
+ GetEMailTpl;
+ vEmail := Trim();
+ vName := Trim();
+
+ if (vName <> '' ) and (vEmail <> '') then begin
+ EmailSettings.Values['Recipients'] := vEmail;
+ EmailSettings.Values['Subject'] := GetFldInfo();
+ EmailSettings.Values['Body'] := GetFldInfo(RichTextToPlainText());
+ end;
+ //ID uses for display on progress dialog
+ EmailSettings.Values['ID'] := vName;
+ end;
+
+ //For E-Mail (Native)
+ function SQL_Email_GetInfo(Info: Integer): string;
+ var vEmail, vName: Variant;
+ begin
+ GetEMailTpl;
+ Result := '';
+ vEmail := Trim();
+ vName := Trim();
+
+ if (vName <> '' ) and (vEmail <> '') then begin
+ case Info of
+ SQL_Email_Address: Result := vEmail;
+ SQL_Email_Subject: Result := GetFldInfo();
+ SQL_Email_Content: Result := GetFldInfo(RichTextToPlainText());
+ end;
+ end;
+ end;
+ ```
+
+
+
+ E-Mail Script 1 (Last Script Update : 21 Apr 2016) - click to expand
+ + ```pascal + //const MaxInt = 2147483647; + var lSQL : String; + + function StringReplace(const S, OldPattern, NewPattern: string; + iReplaceAll: boolean=true; iIgnoreCase :boolean=true): string; + var + SearchStr, Patt, NewStr: string; + Offset: Integer; + begin + // Usage StringReplace(
+ ,'/','')
+ if iIgnoreCase then begin
+ SearchStr := UpperCase(S);
+ Patt := UpperCase(OldPattern);
+ end else begin
+ SearchStr := S;
+ Patt := OldPattern;
+ end;
+ NewStr := S;
+ Result := '';
+ while SearchStr <> '' do begin
+ Offset := Pos(Patt, SearchStr);
+ if Offset = 0 then begin
+ Result := Result + NewStr;
+ Break;
+ end;
+ Result := Result + Copy(NewStr, 1, Offset - 1) + NewPattern;
+ NewStr := Copy(NewStr, Offset + Length(OldPattern), MaxInt);
+ if not iReplaceAll then begin
+ Result := Result + NewStr;
+ Break;
+ end;
+ SearchStr := Copy(SearchStr, Offset + Length(Patt), MaxInt);
+ end;
+ end;
+
+ procedure GetEMailTpl;
+ var D : TfrxDataSet;
+ lFN : String;
+ begin
+ lFN := Trim(Report.ReportOptions.Name);
+ lFN := StringReplace(lFN,'.fr3','');
+ D := Report.GetDataSet('plEMailTpl');
+ D.First;
+ While not D.Eof do begin
+ if Trim(D.Value('ReportName')) = lFN then
+ Break;
+ D.Next;
+ end;
+ end;
+
+ function GetPassword:String;
+ begin
+ if Trim() <> '' then
+ Result := else
+ Result := ;
+ end;
+
+ function GetFldInfo(const AStr:String):String;
+ var D : TfrxDataSet;
+ nStr : String;
+ lSL,lPL : TStringList;
+ i, j : integer;
+ begin
+ nStr := AStr;
+ lSL := TStringList.Create;
+ lPL := TStringList.Create;
+ with lPL do begin //Available Pipeline
+ Add('Main');
+ Add('Profile');
+ Add('plEMailTpl');
+ end;
+ try
+ for j:=0 to lPL.Count -1 do begin
+ D := Report.GetDataSet(lPL[j]);
+ D.GetFieldList(lSL);
+ for i:=0 to lSL.Count -1 do begin
+ if D.IsBlobField(lSL[i]) then
+ nStr := StringReplace(nStr, '<'+ lPL[j] + '.' + lSL[i] + '>',D.Value(lSL[i])) else
+ nStr := StringReplace(nStr, '<'+ lPL[j] + '.' + lSL[i] + '>',D.DisplayText(lSL[i]));
+ end;
+ end;
+ Result := nStr;
+ finally
+ lSL.Free;
+ lPL.Free;
+ end;
+ end;
+
+ //For E-Mail Client (Batch)
+ procedure OnGetEmailSettings(EmailSettings: TStrings);
+ var vEmail, vName: Variant;
+ begin
+ GetEMailTpl;
+ vEmail := Trim();
+ vName := Trim();
+
+ if (vName <> '' ) and (vEmail <> '') then begin
+ EmailSettings.Values['Recipients'] := vEmail;
+ EmailSettings.Values['CC'] := ;
+ EmailSettings.Values['BCC'] := ;
+ EmailSettings.Values['Subject'] := GetFldInfo();
+ EmailSettings.Values['Body'] := GetFldInfo(RichTextToPlainText());
+ if Trim() <> '' then
+ EmailSettings.Values['FileName'] := GetFldInfo();
+ if Trim(GetPassword) <> '' then
+ EmailSettings.Values['PDFPassword'] := GetPassword;
+ end;
+ //ID uses for display on progress dialog
+ EmailSettings.Values['ID'] := vName;
+ end;
+
+ //For E-Mail (Native)
+ function SQL_Email_GetInfo(Info: Integer): string;
+ var vEmail, vName: Variant;
+ begin
+ GetEMailTpl;
+ Result := '';
+ vEmail := Trim();
+ vName := Trim();
+
+ if (vName <> '' ) and (vEmail <> '') then begin
+ case Info of
+ SQL_Email_Address: Result := vEmail;
+ SQL_Email_Subject: Result := GetFldInfo();
+ SQL_Email_Content: Result := GetFldInfo(RichTextToPlainText());
+ end;
+ end;
+ end;
+ ```
+
+
+
+ 
+
+ 3. Scroll down look for procedure SetUp
+ 4. Copy below script & paste it between the begin & end; in procedure SetUp
+
+ ```pascal
+ SQL := 'SELECT B.Description As ReportName, B.Description2 As Subject, B.Description3 As Body, '+
+ 'A.Address1 As CC, A.Address2 As BCC, B.Remark1 As PDFPassWord, B.Remark2 As PDFFileName ' +
+ 'FROM SL_QT A ' +
+ 'INNER JOIN SL_QTDTL B ON (A.Dockey=B.Dockey) ' +
+ 'WHERE A.DocNo=''EMAIL'' ' +
+ 'ORDER BY B.Seq ';
+ AddDataSet('plEMailTpl', ['ReportName', 'Subject', 'Body', 'PDFPassWord', 'PDFFileName', 'CC', 'BCC'])
+ .GetDBData(SQL);
+ ```
+
+ 5. Click File | Save As... to save the file (eg Sales Invoice 7 (GST 2)-Email)
+ 6. Click File | Exit to exit the report design
+ 7. Click Design again in the report designer for the file just save on Steps 5 (eg Sales Invoice 7 (GST 2)-Email)
+ 8. Click the Code Tab
+ 9. Remove the // at the First line of the Script
+ 10. Click File | Save to save the file
+ 11. Click File | Exit to exit the report design
+
+ ### Quotation
+
+ E-Mail Script 2 (Last Script Update : 22 Dec 2017) - click to expand
+ + ```pascal + //const MaxInt = 2147483647; // Only Available in Version 752 & above + var lSQL : String; + + function StringReplace(const S, OldPattern, NewPattern: string; + iReplaceAll: boolean=true; iIgnoreCase :boolean=true): string; + var + SearchStr, Patt, NewStr: string; + Offset: Integer; + begin + // Usage StringReplace(
+
+
+:::note
+
+- User can use eg `Quotation - click to expand
+ + **Menu: Sales | Quotation...** + + - SQL Accounting can E Mail by different Subject & E Mail Content by report name + +  + + | Field Name | Description | + |------------------------------------|---------------------------------| + | Address1 | CC E-Mail Address | + | Address2 | BCC E-Mail Address | + | Description | Fast Report Name | + | Description2 | E-Mail Subject | + | Description3 (More Description) | E-Mail Content/Body | + | Remark1 | Global PDF Password | + | Remark2 | PDF FileName | + | Remark (Maintain Customer/Supplier)| Private/Individual PDF Password | + + 1. Create New Quotation + 2. Copy below Sample E-Mail Template + +
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ ```
+
+
+
+3. Right Click at the empty space below the Browse button
+4. Select Paste Quotation
+5. Set the Quot No to EMAIL
+6. Click Save after done change the E-Mail Subject/Content/Body & other fields
+
+Sample E-Mail Template - click to expand
+ + ```pascal + +
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+```
+
+
+
+ Sample E-Mail Template (Version 1.2020.182.158 & above) - click to expand
+ +```pascal + +
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ ```
+
+
+
+3. Click **More | Paste Employee**
+4. Make sure Code is **EMAIL**
+5. Click **Save** after done change the
+
+- E-Mail Subject/Content/Body & other fields (Version 1.2020.182.158 & above)
+- Note field (Version 1.2021.196.166 & above)
+
+### Example Using Sales Invoice
+
+**Menu: Sales | Invoice...**
+
+1. Press **F6**
+2. Select the Build-in/Customise **Fast Report** (eg Sales Invoice 7 (GST 2)-Email)
+3. Click **OK**
+
+ 
+
+4. Select either 1 of other following from the list
+
+- Export to E-Mail Client
+- Export to E-Mail Client (Batch)
+- Export to E-Mail (Native)
+
+Sample E-Mail Template (Version 1.2021.196.166 & above) - click to expand
+ + ```pascal +
+
+
+## Fast Report - Get CSV Data from Memo Field
+
+SQL Lite Functions Commonly Use - click to expand
+ +### Useful Link + +[Date and Time Functions](https://www.sqlite.org/lang_datefunc.html) + +### How to get date difference results in days using SQL Lite? + +#### Example 1: Date different in between the Payment Date and Invoice Date + +Payment Date = 05/05/2016 +Invoice Date = 15/03/2016 + +| Month | Days | Description | +|--------------|------|-----------------------------------------------| +| Mar 2016 | 16 | Date from Invoice Date, i.e., 16/03/2016 | +| April 2016 | 30 | April month, i.e., 01/04/2016 - 30/04/2016 | +| May 2016 | 5 | Date to Payment Date, i.e., 05/05/2016 | +| Date Diff. | 51 | | + +| Julianday(Date2) - Julianday(Date1) | +|-------------------------------------| +| (julianday(Date(PaymentDate)) - julianday(Date(InvoiceDate))) | + +#### Example 2: Date different in between the Payment Date and the month end of the Invoice Date + +Payment Date = 05/05/2016 +Invoice Date = 15/03/2016 (31/03/2016) + +| Month | Days | Description | +|------------------|------|--------------------------------------------------| +| April 2016 | 30 | Date from Invoice Date, ie. 01/04/2016 | +| May 2016 | 5 | Date to payment date, ie. 05/05/2016 | +| Date differences | 35 | | + +| Julianday(Date2) - Julianday(Date1, start of month, 1 month,-1 day))| +|-------------------------------------| +| (julianday(Date(PaymentDate))-julianday(DATE(InvoiceDate, start of month, 1 month, -1 day))) | + +### Why in Query for Float or Currency type Field (eg DocAmt) the result becomes Integer ? + +Try use **CAST** + +```pascal +SELECT SUM(CAST(DocAmt AS REAL)) DocAmt FROM Main +``` + +### Why in Query for Float or Currency type Field and SetDisplayFormat already set but still detected as not set yet ? + +Try use **CASE WHEN... THEN... ELSE... END** + +```pascal +SELECT CAST(CASE WHEN C1 IS NULL THEN 0.00 ELSE C1 END AS REAL) C1 FROM Main +``` + +### Why in Query for Date type field (eg DocDate) the date is in yyyymmdd format ? + +Try use **strftime** + +```pascal + SELECT strftime(''%d/%m/%Y'', A.DocDate) AS DocDate FROM Main + ``` + +### How to Select with condition on Date ? + +Try use **DATE** + +```pascal +SELECT * FROM MAIN WHERE DOCDATE BETWEEN DATE(''2017-12-17'') AND DATE(''2017-12-31'') +``` + +### How to Filter by Day + +Below example is filter below and equal 11th + +```pascal +SELECT Employee, TransDate, Amount FROM WAGES WHERE strftime(''%d'', TransDate) <= ''11'' +``` + +### How to Filter by Data with NULL ? + +Below example is filter ItemCode not equal to RTN5Cents + +```pascal +SELECT * FROM Document_Detail WHERE (COALESCE(ITEMCODE, '''','''')) <> ''RTN5Cents''' +``` + +### How to Top 5 rows Data ? + +Try use **Limit** + +```pascal +SELECT * FROM Main Order By DocAmt Desc Limit 5 +``` + +
+ )]
+ ```
+
+5. Click Ok button.
+6. Right Click the Memo
+
+ 
+
+7. Select Stretch
+8. File | Save As & enter New report Name after done.
+
+
+
+## Fast Report - Share Text Message - WhatsApp
+
+Get CSV Data from Memo Field - click to expand
+ +Below is example on how to get CSV data from Maintain Agent UDF_AList field + +```pascal + ProjectCode;Remark + P12W5;Rmakr 1 + P13W4;Note 1234 +``` + +1. Enter below script in the Code Tab + +
+ );
+ for I := 0 to S.Count - 1 do begin
+ if ValueOfSemiColonStrEx(S[i], 0) = AProject then //Same as Project Code CSV Column 1
+ Result := ValueOfSemiColonStrEx(S[i], 1); //Show CSV Column 2
+ end;
+ finally
+ s.Free;
+ end;
+ end;
+ ```
+
+
+
+ 
+
+2. Click the Red A Icon.
+
+3. Click on the place to print/shown.
+
+ 
+
+4. Enter below Script in the memo
+
+ ```pascal
+ [GetAgentData(Get CSV Data Script - click to expand
+ + ```pascal + function SetStrictDelimiter(const AStr:String):string; + var i, x, ALength : integer; + s, s1 : string; + OrigList, MasterList, Row : TStringList; + begin + OrigList := TStringList.Create; + MasterList := TStringList.Create; + Row := TStringList.Create; + Row.Delimiter := ';'; + try + OrigList.Text := RichTextToPlainText(AStr); + for I := 0 to OrigList.Count - 1 do + begin + Row.Clear; + s1 := ''; + x := 1; + s := OrigList[I]; + ALength := Length(s); + while (x <= ALength) do begin + if x = ALength then begin + s1 := s1 + s[x]; + Row.Add(Trim(s1)); + end; + if (s[x] = ';') then begin + Row.Add(Trim(s1)); + s1 := ''; + end else + s1 := s1 + s[x]; + inc(x); + end; + MasterList.Add(Row.DelimitedText); + end; + Result := MasterList.Text; + finally + OrigList.Free; + MasterList.Free; + Row.Free; + end; + end; + + function ValueOfSemiColonStrEx(const AStr: string; const AIndex: integer): string; + var S: TStringList; + begin + S := TStringList.Create; + try + S.Delimiter := ';'; + S.DelimitedText := AStr; + if AIndex < S.Count then Result := S[AIndex] + else Result := ''; + finally + S.Free; + end; + end; + + function GetAgentData(const AProject:String):String; + var S: TStringList; + i: integer; + begin + S := TStringList.Create; + try + S.Text := SetStrictDelimiter(
+ `(` `) to show variable data
+(eg Document Number) in the E-Mail Subject & Body.
+- The Pipeline name & FieldName is from the Report Designer Pipeline name & Field Name
+- Default Template(Must set at last Row) is use if system can't find the Report Name in the Description field.
+
+:::
+
+### Example using Sales Invoice
+
+**Menu: Sales | Invoice...**
+
+1. Press F6
+2. Select the Build-in/Customise Fast Report (eg Sales Invoice 8 (SST 2)-Email)
+3. Click OK
+
+ 
+
+4. Select WhatsApp icon PDF
+
+ 
+
+5. Enter the Mobile No
+6. Click Send
+
+:::note
+ You can leave empty for Mobile No. if you wanted select from you Mobile Contact list.
+:::
+
+
diff --git a/docs/usage/tools/fast-report/faq.md b/docs/usage/tools/fast-report/faq.md
new file mode 100644
index 00000000..fe289173
--- /dev/null
+++ b/docs/usage/tools/fast-report/faq.md
@@ -0,0 +1,657 @@
+---
+sidebar_position: 2
+title: FR3 FAQ
+description: Frequently Asked Questions in fast report
+slug: /usage/tools/fast-report/faq
+tags: ["SQL Account", "Usage", "Tools"]
+---
+
+## 1. When Unit price is 0, how to display it as Free of Charge (FOC) ?
+
+In Memo, enter the following syntax :
+
+ ```pascal
+ [FormatFloat(',0.00;-,0.00;FOC ',Share Text Message - WhatsApp - click to expand
+ +From Version 849.768 & above user can Share the report to WhatsApp, Skype, Line & etc + +### Requirement + +- Fast Report +- WhatsApp, Skype, Line & etc Login +- SQL Accounting Version 849.768 & above + +### Setting + +Below is example using Sales Invoice + + + +1. Click the Code Tab +2. Scroll down look for procedure SetUp +3. Copy below script & paste it between the begin & end; in procedure SetUp + + ```pascal + SQL := 'SELECT B.Description As ReportName, B.Description3 As Body '+ + 'FROM SL_QT A ' + + 'INNER JOIN SL_QTDTL B ON (A.Dockey=B.Dockey) ' + + 'WHERE A.DocNo=''WHATSAPP'' ' + + 'ORDER BY B.SEQ'; + AddDataSet('plShareMsg', ['ReportName', 'Body']) + .GetDBData(SQL); + ``` + +4. Click File | Save As... to save the file (eg Sales Invoice 8 (SST 2)-WhatApp) +5. Click File | Exit to exit the report design +6. Click Design again in the report designer for the file just save on Steps 5 (eg Sales Invoice 8 (SST 2)-WhatApp) +7. Click the Code Tab + +  + +8. Scroll down look for function StrToFloatDef(const lFld:Variant):string +9. Copy below script & paste it above the function + +
+ ))
+ end;
+ ```
+
+
+
+ 
+
+10. Scroll up again look for function GetFldInfo(const AStr:String):String;
+11. Copy below script & paste it between the Add('plEMailTpl'); & end;
+
+ ```pascal
+ Add('Document_Currency');
+ ```
+
+12. Click File | Save to save the file
+13. Click File | Exit to exit the report design
+
+### Quotation
+
+Menu: Sales | Quotation...
+
+SQL Accounting can Share message by different Content by report name
+
+
+
+| Field Name | Description |
+|-------------|----------------------|
+| Description | Fast Report Name |
+| Description3 (More Description) | Message Content |
+
+1. Create New Quotation
+02. Copy below Sample E-Mail Template
+
+ WhatsApp Script (Last Script Update : 05 Nov 2018)- click to expand
+ + ```pascal + procedure GetShareMsg; + var D : TfrxDataSet; + lFN : String; + begin + lFN := Trim(Report.ReportOptions.Name); + lFN := StringReplace(lFN,'.fr3',''); + D := Report.GetDataSet('plShareMsg'); + D.First; + While not D.Eof do begin + if Trim(D.Value('ReportName')) = lFN then + Break; + D.Next; + end; + end; + + function GetShareText: string; + begin + GetShareMsg; + Result := GetFldInfo(RichTextToPlainText(
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ ```
+
+
+
+3. Right Click at the empty space below the Browse button
+4. Select Paste Quotation
+5. Set the Quot No to WHATSAPP
+6. Click Save after done change the Content
+
+:::note
+
+- User can use eg `