SDK Live: Difference between revisions

From eStream Software
 
(47 intermediate revisions by the same user not shown)
Line 31: Line 31:
==Documentation==
==Documentation==
* [https://www.sql.com.my/document/SQLLink/SQLSDK.zip SQLSDK.zip]
* [https://www.sql.com.my/document/SQLLink/SQLSDK.zip SQLSDK.zip]
* [https://www.sql.com.my/document/SQLLink/Video-SDK.exe Video-SDK.exe]
* [https://download.sql.com.my/customer/Fairy/Steps-SDK.gif Steps-SDK.gif]


==Linking Flow==
==Linking Flow==
Line 44: Line 44:
:* The SDK can be build in in your system or a Standalone windows Application(Middle Application).
:* The SDK can be build in in your system or a Standalone windows Application(Middle Application).
:* If you build in your system then it can be sync anytime either by a special interface with parameter (eg Date From, Date To & etc) or each transaction after post(not recommended)
:* If you build in your system then it can be sync anytime either by a special interface with parameter (eg Date From, Date To & etc) or each transaction after post(not recommended)
:* If you create a Standalone windows Application(Middle Application) you can make use the windows schedule to sync or call from you system to execute/run the Standalone windows Application(Middle Application).
:* If you create a Standalone windows Application(Middle Application) you can make use the <span style="color:#0000ff">Windows Schedule</span> to sync or call from you system to execute/run the Standalone windows Application(Middle Application).


<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>
Line 91: Line 91:
* [[#JScript/JavaScript| JavaScript]]
* [[#JScript/JavaScript| JavaScript]]
* [[#Delphi| Delphi]]
* [[#Delphi| Delphi]]
[https://docs.google.com/spreadsheets/d/1dGUXIM0aWAG7xIyE1D1IsPmdq7paF9gpq3h0NqzFQDc/edit?usp=sharing Summary Document Flow by Programming Language]


<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>
Line 317: Line 319:
|  
|  
<syntaxhighlight lang="Python">
<syntaxhighlight lang="Python">
#Updated 24 Jul 2023
#Updated 03 Oct 2023
import win32com.client
import win32com.client
import Common
import Common
Line 343: Line 345:
                         "D:\\Happy\\DB\\Default.DCF",
                         "D:\\Happy\\DB\\Default.DCF",
                         #"C:\\eStream\\SQLAccounting\\Share\\Default.DCF",  #DCF file
                         #"C:\\eStream\\SQLAccounting\\Share\\Default.DCF",  #DCF file
                         "ACC-0024.FDB") #Database Name
                         "ACC-0015.FDB") #Database Name
     except Exception as e:
     except Exception as e:
         print("Oops !", e)
         print("Oops !", e)
Line 361: Line 363:
     else:
     else:
         print ("Record Not Found")
         print ("Record Not Found")
       
       
def QuotedStr(ACode):
    return "'" + ACode.replace("'", "''") + "'"
</syntaxhighlight>
</syntaxhighlight>
|}
|}
Line 817: Line 824:
|  
|  
<syntaxhighlight lang="Python">
<syntaxhighlight lang="Python">
#Updated 22 Jul 2023
#Updated 21 Dec 2023
import Common
import Common
        
        
Line 885: Line 892:
         lDtl.FindField("RefCost").AsFloat = 22.3
         lDtl.FindField("RefCost").AsFloat = 22.3
         lDtl.FindField("RefPrice").AsFloat = 52
         lDtl.FindField("RefPrice").AsFloat = 52
        lDtl.FindField("ISBASE").AsFloat = 1
         lDtl.Post();
         lDtl.Post();


Line 892: Line 900:
         lDtl.FindField("RefCost").AsFloat = 102.5
         lDtl.FindField("RefCost").AsFloat = 102.5
         lDtl.FindField("RefPrice").AsFloat = 260.45
         lDtl.FindField("RefPrice").AsFloat = 260.45
        lDtl.FindField("ISBASE").AsFloat = 0
         lDtl.Post()
         lDtl.Post()
      
      
Line 1,094: Line 1,103:
|  
|  
<syntaxhighlight lang="Python">
<syntaxhighlight lang="Python">
#Updated 25 Jul 2023
#Updated 08 Jan 2024
import Common
import Common
import datetime
import datetime
Line 1,197: Line 1,206:
         #Delete all Detail
         #Delete all Detail
         while lDetail.RecordCount != 0:
         while lDetail.RecordCount != 0:
             lDetail.First()
             lDetail.Last()
             lDetail.Delete()
             lDetail.Delete()
              
              
Line 1,262: Line 1,271:
|  
|  
<syntaxhighlight lang="Python">
<syntaxhighlight lang="Python">
#Updated 25 Jul 2023
#Updated 08 Jan 2024
import Common
import Common
import datetime
import datetime
Line 1,348: Line 1,357:
         #Delete all Detail
         #Delete all Detail
         while lDetail.RecordCount != 0:
         while lDetail.RecordCount != 0:
             lDetail.First()
             lDetail.Last()
             lDetail.Delete()
             lDetail.Delete()
              
              
Line 1,602: Line 1,611:
====Stock Adjustment====
====Stock Adjustment====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! ST_SJ
! ST_AJ
|-
|-
|  
|  
<syntaxhighlight lang="Python">
<syntaxhighlight lang="Python">
#Updated 25 Jul 2023
#Updated 08 Jan 2024
import Common
import Common
import datetime
import datetime
Line 1,670: Line 1,679:
         #Delete all Detail
         #Delete all Detail
         while lDetail.RecordCount != 0:
         while lDetail.RecordCount != 0:
             lDetail.First()
             lDetail.Last()
             lDetail.Delete()
             lDetail.Delete()
              
              
Line 1,731: Line 1,740:
|  
|  
<syntaxhighlight lang="Python">
<syntaxhighlight lang="Python">
#Updated 18 Aug 2023
#Updated 08 Jan 2024
import Common
import Common
import datetime
import datetime
Line 1,798: Line 1,807:
         #Delete all Detail
         #Delete all Detail
         while lDetail.RecordCount != 0:
         while lDetail.RecordCount != 0:
             lDetail.First()
             lDetail.Last()
             lDetail.Delete()
             lDetail.Delete()
              
              
Line 2,347: Line 2,356:
|  
|  
<syntaxhighlight lang="Python">
<syntaxhighlight lang="Python">
#Updated 08 Jul 2022
#Updated 18 Jan 2024
import win32com.client
import Common
 
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():
def GetData():
Line 2,380: Line 2,379:
      
      
try:
try:
     CheckLogin()       
     Common.CheckLogin()
    global ComServer
    ComServer = Common.ComServer      
     GetData()
     GetData()
finally:
finally:
    ComServer.Logout()
     ComServer = None
     ComServer = None
    Common.KillApp()


</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>
<br>
===PHP===
* Tested PHP Version : 7.4.3/8.1.10
* Add this in ..\xampp\php\php.ini
<pre>
[PHP_COM_DOTNET]
extension=php_com_dotnet.dll
</pre>


* Grid.css file for example code
====Maintain Asset Item====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Grid.css file
! Maintain Asset Item
|-
|-
|  
|  
<pre>
<syntaxhighlight lang="Python">
body
#Updated 03 Oct 2023
{
import Common
  margin: 10;
import datetime
}
     
table {
def GetListData():
  font-family: arial, sans-serif;
    lSQL = "SELECT A.DOCNOEX, A.ACQUIREDATE, A.CODE, A.DESCRIPTION, A.ASSETGROUP, "
  border: 1px solid black;
    lSQL = lSQL + "A.AGENT, A.AREA, A.COST, A.USEFULLIFE, A.DEPRRATE, A.RESIDUAL, "
  border-collapse: collapse;
    lSQL = lSQL + "B.POSTDATE, B.DESCRIPTION HISTORYDESC "
  table-layout: auto;
    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)


td, th {
def GetAutoKey(ACode):
  border: 1px solid black;
    lSQL = "SELECT AUTOKEY FROM FA_ITEM "
  text-align: left;
    lSQL = lSQL + "WHERE Code= ' + Common.QuotedStr(ACode)
  padding: 8px;
   
  white-space: nowrap;
    lDataSet = ComServer.DBManager.NewDataSet(lSQL)
}
    return lDataSet.FindField("AutoKey").AsFloat


tr:nth-child(even) {
def PostData():
  background-color: #dddddd;
    BizObject = ComServer.BizObjects.Find("FA.Item.OPF")
}
    lMain = BizObject.DataSets.Find("Main") #lMain contains master data
</pre>
    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


====Get Agent====
        #Insert Data - Depreciation Schedule
{| class="mw-collapsible mw-collapsed wikitable"
        lDate = datetime.datetime(2024, 9, 3, 13, 0)
! Get Agent Script 
        lDate.strftime('%m/%d/%Y')
|-
       
|
        lDepr.Append()
<syntaxhighlight lang="PHP">
        lDepr.FindField("SCHEDATE").value      = lDate
<!DOCTYPE html>
        lDepr.FindField("Description").AsString = "Depreciation 1/3"
<html>
        lDepr.FindField("AMOUNT").AsFloat      = 2063.17
<body>
        lDepr.Post()


<h1>SQL Acc SDK in PHP page</h1>
        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()


<?php
        lDate = datetime.datetime(2026, 9, 3, 13, 0)
echo "Updated 01 May 2020<br>";
        lDate.strftime('%m/%d/%Y')


$ComServer = null;
        lDepr.Append()
        lDepr.FindField("SCHEDATE").value      = lDate
        lDepr.FindField("Description").AsString = "Depreciation 3/3"
        lDepr.FindField("AMOUNT").AsFloat      = 2063.16
        lDepr.Post()       


function CheckLogin()
        #Insert Data - Hisory 
{
        lDate = datetime.datetime(2023, 1, 20, 13, 0)
    global $ComServer;
        lDate.strftime('%m/%d/%Y')
    $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object.");
       
     $status = $ComServer->IsLogin();
        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"


    if ($status == true)
        #Delete all Project
    {
        while lProj.RecordCount != 0:
         $ComServer->Logout();
            lProj.First()
    }
            lProj.Delete()
    $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
           
                      "C:\\eStream\\SQLAccounting\\Share\\Default.DCF",  #DCF file
         lProj.Append()
                      "ACC-0082.FDB"); #Database Name
        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()


function GetData()
        lProj.Append()
{
        lProj.FindField("Project").AsString = "JB"
     global $ComServer;
        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")


     $lSQL = "SELECT * FROM AGENT
def DelData():
        WHERE CODE='HALIM'";
     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")


     $lDataSet = $ComServer->DBManager->NewDataSet($lSQL);
try:
 
     Common.CheckLogin()
     if ($lDataSet->RecordCount > 0)
    global ComServer
     {
    ComServer = Common.ComServer
        echo "Result : ";
     GetListData()
        echo $lDataSet->FindField('Description')->AsString() . "<br>";
     PostData()
     }
      
     else
     answer = input("Continue To delete?")
    {
     if answer.lower() in ["y","yes"]:
        echo "Record Not Found";
         DelData()
     }
    elif answer.lower() in ["n","no"]:
}
         print ("Deleting Aborted")
 
    else:
if (isset($_POST['BtnData']))
      print ("Invalid Input")
{
     
    try
     ComServer.Logout()  
    {
finally:
         CheckLogin();
    ComServer = None
        GetData();
     Common.KillApp()
         echo date("d M Y h:i:s A") . " - Done";
    }
    finally
     {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
     }
}
 
?>
    <form method="post">         
        <input type="submit" name="BtnData"
                value="Get Agent"/>
    </form>
</body>
</html>
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Add & Edit Agent====
====Customer Payment====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Add & Edit Agent Script 
! AR_PM
|-
|-
|  
|  
<syntaxhighlight lang="PHP">
<syntaxhighlight lang="Python">
<!DOCTYPE html>
#Updated 04 Dec 2023
<html>
import Common
<body>
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)


<h1>SQL Acc SDK in PHP page</h1>
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"   


<?php
        #Knock Off IV 
echo "Updated 01 May 2020<br>";
        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 的第一 🐱"


$ComServer = null;
        #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")


function CheckLogin()
def DelData():
{
     #Deleting only work if the record never not knock off by Refund
     global $ComServer;
     BizObject = ComServer.BizObjects.Find("AR_PM")
     $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
      
      
}
    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()
</syntaxhighlight>
|}
<div style="float: right;">  [[#top|[top]]]</div>
 
====Customer Due Listing====
{| class="mw-collapsible mw-collapsed wikitable"
! Customer Due Listing
|-
|
<syntaxhighlight lang="Python">
#Updated 08 Oct 2024
import Common
import datetime


function PostData(){
def GetData():
global $ComServer;
    RptObject = ComServer.RptObjects.Find('Customer.DueDocument.RO')
     $BizObject = $ComServer->BizObjects->Find("Agent");
     #RptObject.Params.Find("AgentData").Value            = 'Not use if AllAgent is true
     $lMain = $BizObject->DataSets->Find("MainDataSet");
    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')
      
      
     $lDocKey = $BizObject->FindKeyByRef("CODE", "FAIRY");
     RptObject.Params.Find("DateTo").Value              = lDateTo
    RptObject.Params.Find("IncludePDCheque").Value     = True
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 <br>";
}catch (Exception $e) {
    echo 'Caught exception: ',  $e->getMessage(), "\n";
}
}


if (isset($_POST['BtnData']))
     RptObject.CalculateReport()
{
    try
     {
        CheckLogin();
        PostData();
        echo date("d M Y h:i:s A") . " - Done";
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}


?>
    lDataSet = RptObject.DataSets.Find("cdsMain")
     <form method="post">          
     print("Record count : ", lDataSet.RecordCount)         
         <input type="submit" name="BtnData"
    if lDataSet.RecordCount > 0:
                value="Add/Edit Agent"/>
         while not lDataSet.eof:
     </form>
            print(lDataSet.FindField('CODE').AsString)
</body>
            print(lDataSet.FindField('DOCTYPE').AsString)
</html>
            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()
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<br>


<div style="float: right;">   [[#top|[top]]]</div>
===PHP===
* Tested PHP Version : 7.4.3/8.1.10
* Add this in ..\xampp\php\php.ini
<pre>
[PHP_COM_DOTNET]
extension=php_com_dotnet.dll
</pre>


====Delete Agent====
* Grid.css file for example code
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Delete Agent Script 
! Grid.css file
|-
|-
|  
|  
<syntaxhighlight lang="PHP">
<pre>
<!DOCTYPE html>
body
<html>
{
<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;
}
</pre>
|}
 
====Get Agent====
{| class="mw-collapsible mw-collapsed wikitable"
! Get Agent Script 
|-
|
<syntaxhighlight lang="PHP">
<!DOCTYPE html>
<html>
<body>


<h1>SQL Acc SDK in PHP page</h1>
<h1>SQL Acc SDK in PHP page</h1>


<?php
<?php
echo "Updated 01 May 2020<br>";
echo "Updated 22 Oct 2024<br>";


$ComServer = null;
$ComServer = null;
Line 2,631: Line 2,836:
}
}


function PostData(){
function GetData()
global $ComServer;
{
    global $ComServer;
     $BizObject = $ComServer->BizObjects->Find("Agent");
 
     $lMain = $BizObject->DataSets->Find("MainDataSet");
     $lSQL = "SELECT * FROM AGENT
   
        WHERE CODE='HALIM'";
    $lDocKey = $BizObject->FindKeyByRef("CODE", "FAIRY");
 
    $lDataSet = $ComServer->DBManager->NewDataSet($lSQL);
if ($lDocKey == null){
 
     if ($lDataSet->RecordCount > 0)
    {
        echo "Result : ";
        echo $lDataSet->FindField('Description')->AsString() . "<br>";
    }
    else
    {
         echo "Record Not Found";
         echo "Record Not Found";
} else{
    }
        $BizObject->Params->Find("CODE")->Value = $lDocKey;
$lDataSet = null;
        $BizObject->Open();
        $BizObject->Delete();
        echo "Delete Done<br>";
}
}
}


Line 2,654: Line 2,862:
     {
     {
         CheckLogin();
         CheckLogin();
         PostData();
         GetData();
         echo date("d M Y h:i:s A") . " - Done";
         echo date("d M Y h:i:s A") . " - Done";
     }
     }
Line 2,668: Line 2,876:
     <form method="post">           
     <form method="post">           
         <input type="submit" name="BtnData"
         <input type="submit" name="BtnData"
                 value="Delete Agent"/>  
                 value="Get Agent"/>  
     </form>  
     </form>  
</body>
</body>
Line 2,677: Line 2,885:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Complete Post====
====Add & Edit Agent====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! SL_CS, AR_PM, SL_CN & AR_CN Script  
! Add & Edit Agent Script
|-
|-
|  
|  
Line 2,691: Line 2,899:
<?php
<?php
echo "Updated 01 May 2020<br>";
echo "Updated 01 May 2020<br>";
#This will doing following posting
 
#01. Cash Sales - SL_CS
$ComServer = null;
#02. Sales Credit Note - SL_CN
#03. Customer Payment With Knock off - AR_PM
#04. Edit Credit Note Posted in Step 02 & Knock Off - AR_CN
#05. Customer Refund to Knock off Credit Note - AR_CF
 
$ComServer = null;


function CheckLogin()
function CheckLogin()
Line 2,716: Line 2,918:
}
}


function PostDataCS(){
function PostData(){
global $ComServer;
global $ComServer;
$BizObject = $ComServer->BizObjects->Find("SL_CS");
    $BizObject = $ComServer->BizObjects->Find("Agent");
     $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
     $lMain = $BizObject->DataSets->Find("MainDataSet");
     $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data
   
     $lDocKey = $BizObject->FindKeyByRef("CODE", "FAIRY");
    $BizObject->New();
if ($lDocKey == null){
    $lMain->FindField("DocKey")->value = -1;
        $BizObject->New();
    $lMain->FindField("DocNo")->AsString = "--CS Test--";
        $lMain->FindField("CODE")->value = "FAIRY";
    $lMain->FindField("DocDate")->value = "04/20/2020"; #MM/DD/YYYY
        $lMain->FindField("DESCRIPTION")->value = "FAIRY TAIL";
    $lMain->FindField("PostDate")->value = "04/20/2020"; #MM/DD/YYYY
} else{
    $lMain->FindField("Code")->AsString = "300-C0001"; #Customer Account
        $BizObject->Params->Find("CODE")->Value = $lDocKey;
    $lMain->FindField("CompanyName")->AsString = "Cash Sales";
        $BizObject->Open();
    $lMain->FindField("Address1")->AsString = ""; #Optional
        $BizObject->Edit();
    $lMain->FindField("Address2")->AsString = ""; #Optional
        $lMain->FindField("DESCRIPTION")->value = "FAIRY TAIL WIZARD";
    $lMain->FindField("Address3")->AsString = ""; #Optional
}
    $lMain->FindField("Address4")->AsString = ""; #Optional
try{
    $lMain->FindField("Phone1")->AsString = "";  #Optional
$BizObject->Save();
     $lMain->FindField("Description")->AsString = "Sales";
echo "Posting Done <br>";
}catch (Exception $e) {
     echo 'Caught exception: ',  $e->getMessage(), "\n";
}
    #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";
$txt = <<<EOT
          Item A Line 1
          Item A Line 2
          EOT;
    $lDetail->FindField("Description3")->AsString = $txt;
    $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();
if (isset($_POST['BtnData']))
    $lDetail->FindField("TaxInclusive")->value = 1;
{
    $lDetail->EnableControls();   
     try
    $lDetail->Post();
     {
        CheckLogin();
     #For Tax Inclusive = False with override Tax Amount
        PostData();
     $lDetail->Append();
        echo date("d M Y h:i:s A") . " - Done";
    $lDetail->FindField("DtlKey")->value = -1;
     }
    $lDetail->FindField("DocKey")->value = -1;
     finally
    $lDetail->FindField("Seq")->value = 2;
     {
    $lDetail->FindField("Account")->AsString = "500-000";
        $ComServer->Logout();
    $lDetail->FindField("Description")->AsString = "Sales Item B";
        #free the object
    $lDetail->FindField("Qty")->AsFloat = 1;
        $ComServer = null;
    $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("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("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 = 0;
    $lDetail->FindField("UnitPrice")->AsFloat = 100;
    $lDetail->FindField("Amount")->AsFloat = 200;
    $lDetail->FindField("TaxAmt")->AsFloat = 12;
    $lDetail->Post();
     $BizObject->Save();
    $BizObject->Close();
}
}


function PostDataPM(){
?>
global $ComServer;
     <form method="post">          
        <input type="submit" name="BtnData"
     $BizObject = $ComServer->BizObjects->Find("AR_PM");
                value="Add/Edit Agent"/>
    $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
     </form>  
    $lDetail = $BizObject->DataSets->Find("cdsKnockOff"); #lDetail contains detail data
</body>
</html>
     $BizObject->New();
</syntaxhighlight>
    $lMain->FindField("DOCKEY")->Value = -1;
|}
    $lMain->FindField("DocNo")->AsString = "--PM Test--";
 
    $lMain->FindField("CODE")->AsString = "300-C0001"; #Customer Account
<div style="float: right;">   [[#top|[top]]]</div>
    $lMain->FindField("DocDate")->Value = "04/23/2020"; #MM/DD/YYYY
 
    $lMain->FindField("PostDate")->Value = "04/23/2020"; #MM/DD/YYYY
====Delete Agent====
    $lMain->FindField("Description")->AsString = "Payment for A/c";
{| class="mw-collapsible mw-collapsed wikitable"
    $lMain->FindField("PaymentMethod")->AsString = "320-000"; #Bank or Cash Account
! Delete Agent Script 
     $lMain->FindField("ChequeNumber")->AsString = "";
|-
     $lMain->FindField("BankCharge")->AsFloat = 0;
|
    $lMain->FindField("DocAmt")->AsFloat = 200.00;
<syntaxhighlight lang="PHP">
     $lMain->FindField("Cancelled")->AsString = "F";
<!DOCTYPE html>
<html>
<body>
 
<h1>SQL Acc SDK in PHP page</h1>
 
<?php
echo "Updated 01 May 2020<br>";
 
$ComServer = null;
 
function CheckLogin()
{
     global $ComServer;
     $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object.");
     $status = $ComServer->IsLogin();


     #Knock Off IV 
     if ($status == true)
     $V = array("IV", "--CS Test--"); #DocType, DocNo
    {
        $ComServer->Logout();
    }
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
                      "C:\\eStream\\SQLAccounting\\Share\\Default.DCF", #DCF file
                      "ACC-0082.FDB"); #Database Name
      
      
    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();
}
}


function PostDataCN(){
function PostData(){
global $ComServer;
global $ComServer;
$BizObject = $ComServer->BizObjects->Find("SL_CN");
    $BizObject = $ComServer->BizObjects->Find("Agent");
     $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
     $lMain = $BizObject->DataSets->Find("MainDataSet");
     $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data
   
     $lDocKey = $BizObject->FindKeyByRef("CODE", "FAIRY");
    $BizObject->New();
if ($lDocKey == null){
    $lMain->FindField("DocKey")->value = -1;
        echo "Record Not Found";
    $lMain->FindField("DocNo")->AsString = "--CN Test--";
} else{
    $lMain->FindField("DocDate")->value = "04/23/2020"; #MM/DD/YYYY
        $BizObject->Params->Find("CODE")->Value = $lDocKey;
    $lMain->FindField("PostDate")->value = "04/23/2020"; #MM/DD/YYYY
    $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 = "--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")->value = 0;
    $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->Open();
         $BizObject->Edit();
         $BizObject->Delete();
         $lMain->Edit();
         echo "Delete Done<br>";
       
}
        #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")->AsString = "T";
            $lDetail->Post();
}
        $BizObject->Save();
        $BizObject->Close();
}
}
}


function PostDataCF(){
if (isset($_POST['BtnData']))
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("DOCKEY")->Value = -1;
    $lMain->FindField("DocNo")->AsString = "--CF Test--";
    $lMain->FindField("CODE")->AsString = "300-C0001"; #Customer Account
    $lMain->FindField("DocDate")->Value = "04/23/2020"; #MM/DD/YYYY
    $lMain->FindField("PostDate")->Value = "04/23/2020"; #MM/DD/YYYY
    $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 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")->AsString = "T";
        $lDetail->Post();
}
    $BizObject->Save();
    $BizObject->Close();
}
 
if (isset($_POST['BtnData']))
{
     try
     try
     {
     {
         CheckLogin();
         CheckLogin();
         echo date("d M Y h:i:s A")." - Posting Cash Sales<br>";
         PostData();
        PostDataCS();
         echo date("d M Y h:i:s A") . " - Done";
        echo date("d M Y h:i:s A")." - Posting Customer Payment<br>";
        PostDataPM();
        echo date("d M Y h:i:s A")." - Posting Sales Credit Note<br>";
        PostDataCN();
        echo date("d M Y h:i:s A")." - Posting Knock Off Sales Credit Note<br>";
        PostKnockIVCN();
        echo date("d M Y h:i:s A")." - Posting Customer Refund<br>";
        PostDataCF();
         echo date("d M Y h:i:s A")." - Posting Done";
     }
     }
     finally
     finally
Line 2,969: Line 3,040:
}
}


?>  
?>
     <form method="post">           
     <form method="post">           
         <input type="submit" name="BtnData"
         <input type="submit" name="BtnData"
                 value="Complete Post"/>  
                 value="Delete Agent"/>  
     </form>  
     </form>  
</body>
</body>
Line 2,981: Line 3,052:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Get Invoice Next Number====
====Complete Post====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Get Invoice Next Number Script  
! SL_CS, AR_PM, SL_CN & AR_CN Script  
|-
|-
|  
|  
Line 2,994: Line 3,065:


<?php
<?php
echo "Updated 01 May 2020<br>";
echo "Updated 18 May 2024<br>";
#This action to Get Next Number for Customer Invoice
#This will doing following posting
#01. Cash Sales - SL_CS
#02. Sales Credit Note - SL_CN
#03. Customer Payment With Knock off - AR_PM
#04. Edit Credit Note Posted in Step 02 & Knock Off - AR_CN
#05. Customer Refund to Knock off Credit Note - AR_CF


$ComServer = null;
$ComServer = null;
Line 3,015: Line 3,091:
}
}


function GetData(){
function PostDataCS(){
global $ComServer;
global $ComServer;
     $lSQL = "SELECT A.*, B.NEXTNUMBER FROM SY_DOCNO A
$BizObject = $ComServer->BizObjects->Find("SL_CS");
        INNER JOIN SY_DOCNO_DTL B ON (A.DOCKEY=B.PARENTKEY)
    $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
WHERE A.DOCTYPE='IV'
    $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data
AND A.DESCRIPTION='Customer Invoice'
AND A.STATESET=1
    $BizObject->New();
";
    $lMain->FindField("DocNo")->AsString = "--CS 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("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 = <<<EOT
          Item A Line 1
          Item A Line 2
          EOT;
$lDataSet = $ComServer->DBManager->NewDataSet($lSQL);
    $lDetail->FindField("Description3")->AsString = $txt;
    $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;


     if ($lDataSet->RecordCount > 0) {
     $lDetail->DisableControls();
$lDataSet->First();
    $lDetail->FindField("TaxInclusive")->value = 1;
        $fmt = $lDataSet->FindField('Format')->AsString();
    $lDetail->EnableControls();   
        $NextNo = $lDataSet->FindField('NEXTNUMBER')->AsFloat();
    $lDetail->Post();
        echo date("d M Y h:i:s A")." Format in SQLAcc : " . str_ireplace("d","s", $fmt)."<br>";
    #For Tax Inclusive = False with override Tax Amount
        $fmt= str_ireplace(".","'0", $fmt);
    $lDetail->Append();
        echo date("d M Y h:i:s A")." Format in PHP : " . str_ireplace("d","s", $fmt)."<br>";
    $lDetail->FindField("Seq")->value = 2;
echo date("d M Y h:i:s A")." Output in PHP : " .sprintf($fmt,$NextNo)."<br>";
    $lDetail->FindField("Account")->AsString = "500-000";
}else {
    $lDetail->FindField("Description")->AsString = "Sales Item B";
     echo "Record Not Found";
    $lDetail->FindField("Qty")->AsFloat = 1;
     }
    $lDetail->FindField("Tax")->AsString = "SV";
}
    $lDetail->FindField("TaxRate")->AsString = "6%";
 
    $lDetail->FindField("TaxInclusive")->value = 0;
if (isset($_POST['BtnData']))
    $lDetail->FindField("UnitPrice")->AsFloat = 94.43;
{
    $lDetail->FindField("Amount")->AsFloat = 94.43;
     try
    $lDetail->FindField("TaxAmt")->AsFloat = 5.66;
     {
    $lDetail->Post();
        CheckLogin();
        GetData();
    #For With Item Code
        echo date("d M Y h:i:s A")." - Done";
    $lDetail->Append();
     }
    $lDetail->FindField("Seq")->value = 3;
     finally
    $lDetail->FindField("ItemCode")->AsString = "ANT";
     {
    $lDetail->FindField("Description")->AsString = "Sales Item B";
        $ComServer->Logout();
    #$lDetail->FindField("Account")->AsString = "500-000"; #If you wanted override the Sales Account Code
        #free the object
    $lDetail->FindField("UOM")->AsString = "UNIT";
        $ComServer = null;
     $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 = 0;
    $lDetail->FindField("UnitPrice")->AsFloat = 100;
     $lDetail->FindField("Amount")->AsFloat = 200;
     $lDetail->FindField("TaxAmt")->AsFloat = 12;
     $lDetail->Post();
    $BizObject->Save();
     $BizObject->Close();
}
}


?>  
function PostDataPM(){
     <form method="post">          
global $ComServer;
        <input type="submit" name="BtnData"
                value="Get Doc Number"/>  
    $BizObject = $ComServer->BizObjects->Find("AR_PM");
     </form>  
     $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
</body>
    $lDetail = $BizObject->DataSets->Find("cdsKnockOff"); #lDetail contains detail data
</html>
</syntaxhighlight>
    $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("2020-04-23")); #YYYY-MM-DD
    $lMain->FindField("PostDate")->Value = date("d-m-Y", strtotime("2020-04-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";


<div style="float: right;">  [[#top|[top]]]</div>
    #Knock Off IV 
 
    $V = array("IV", "--CS Test--");  #DocType, DocNo
====Add & Edit AR_Customer====
   
{| class="mw-collapsible mw-collapsed wikitable"
    if ($lDetail->Locate("DocType;DocNo", $V, False, False)) {
! Add & Edit AR_Customer Script
        $lDetail->Edit();
|-
        $lDetail->FindField("KOAmt")->AsFloat = 147.09; #Partial Knock off
|
        $lDetail->FindField("KnockOff")->AsString = "T";
<syntaxhighlight lang="PHP">
        $lDetail->Post();
<!DOCTYPE html>
}
<html>
     $BizObject->Save();
<body>
     $BizObject->Close();
 
<h1>SQL Acc SDK in PHP page</h1>
 
<?php
echo "Updated 11 Jun 2020<br>";
 
$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-0035.FDB"); #Database Name
   
}
}


function PostData(){
function PostDataCN(){
global $ComServer;
global $ComServer;
    $BizObject = $ComServer->BizObjects->Find("AR_Customer");
$BizObject = $ComServer->BizObjects->Find("SL_CN");
     $lMain = $BizObject->DataSets->Find("MainDataSet");
     $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
$lDtl  = $BizObject->DataSets->Find("cdsBranch");
    $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data
      
     $lDocKey = $BizObject->FindKeyByRef("CODE", "FAIRY");
    $BizObject->New();
     $lMain->FindField("DocNo")->AsString = "--CN Test--";
     $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2020-04-23")); #YYYY-MM-DD
    $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2020-04-23")); #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";
if ($lDocKey == null){
    #For With Item Code
        $BizObject->New();
    $lDetail->Append();
        $lMain->FindField("CODE")->value = "FAIRY";
    $lDetail->FindField("ItemCode")->AsString = "ANT";
        $lMain->FindField("CompanyName")->value = "FAIRY TAIL";
    $lDetail->FindField("Description")->AsString = "Sales Item B";
    $lDetail->FindField("Description2")->AsString = "Product Spoil"; #Reason
        $lDtl->Edit(); #For 1St Branch
    $lDetail->FindField("Remark1")->AsString = "--CS Test--";   #Invoice No
        $lDtl->FindField("BranchName")->AsString = "BILLING";
    $lDetail->FindField("Remark2")->AsString = "20 Apr 2020";   #Invoice Date
        $lDtl->FindField("Address1")->AsString   = "Address1";
    $lDetail->FindField("Qty")->AsFloat = 1;
        $lDtl->FindField("Address2")->AsString    = "Address2";
    $lDetail->FindField("Tax")->AsString = "SV";
        $lDtl->FindField("Address3")->AsString   = "Address3";
    $lDetail->FindField("TaxRate")->AsString = "6%";
        $lDtl->FindField("Address4")->AsString   = "Address4";  
    $lDetail->FindField("TaxInclusive")->value = 0;
        $lDtl->FindField("Attention")->AsString  = "Attention";  
    $lDetail->FindField("UnitPrice")->AsFloat = 100;
        $lDtl->FindField("Phone1")->AsString      = "Phone1";
    $lDetail->FindField("Amount")->AsFloat = 100;
        $lDtl->FindField("Fax1")->AsString        = "Fax1";
    $lDetail->FindField("TaxAmt")->AsFloat = 6;
        $lDtl->FindField("Email")->AsString      = "EmailAddress";
    $lDetail->Post();
        $lDtl->Post();
    $BizObject->Save();
    $BizObject->Close();
}


        $lDtl->Append(); #For 2nd Branch
function PostKnockIVCN(){
        $lDtl->FindField("BranchName")->AsString  = "Branch1";
global $ComServer;
        $lDtl->FindField("Address1")->AsString    = "DAddress1";
        $lDtl->FindField("Address2")->AsString    = "DAddress2";
    $BizObject = $ComServer->BizObjects->Find("AR_CN");
        $lDtl->FindField("Address3")->AsString    = "DAddress3";
    $lMain = $BizObject->DataSets->Find("MainDataSet");
        $lDtl->FindField("Address4")->AsString    = "DAddress4"; 
    $lDetail = $BizObject->DataSets->Find("cdsKnockOff");
        $lDtl->FindField("Attention")->AsString  = "DAttention"; 
        $lDtl->FindField("Phone1")->AsString      = "DPhone1";
    #Find CN Number
        $lDtl->FindField("Fax1")->AsString        = "DFax1";
    $lDocNo = "--CN Test--";
        $lDtl->FindField("Email")->AsString      = "DEmailAddress";
    $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo);
        $lDtl->Post();
    $BizObject->Params->Find("DocKey")->AsString = $lDocKey;
} else{
        $BizObject->Params->Find("CODE")->Value = $lDocKey;
if ($lDocKey != null){
         $BizObject->Open();
         $BizObject->Open();
         $BizObject->Edit();
         $BizObject->Edit();
         $lMain->FindField("CompanyName")->value = "FAIRY TAIL WIZARD";
         $lMain->Edit();
       
$r = $lDtl->RecordCount();
        #Knock Off IV       
$x = 1;
        $V = array("IV", "--CS Test--"); #DocType, DocNo
while ($x <= $r ){
       
$lDtl->First();
        if ($lDetail->Locate("DocType;DocNo", $V, False, False)){
             $lDtl->Delete();
            $lDetail->Edit();
$x++;
            $lDetail->FindField("KOAmt")->AsFloat = 100; #Partial Knock off
             $lDetail->FindField("KnockOff")->AsString = "T";
            $lDetail->Post();
}
}
         $BizObject->Save();
        #Insert back with new Information
         $BizObject->Close();
        $lDtl->Edit(); #For 1St Branch
}
        $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
function PostDataCF(){
        $lDtl->FindField("BranchName")->AsString  = "Branch1"; #Make sure this always same as b4 delete data
global $ComServer;
        $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();
}
    $BizObject = $ComServer->BizObjects->Find("AR_CF");
try{
    $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
$BizObject->Save();
    $lDetail = $BizObject->DataSets->Find("cdsKnockOff"); #lDetail contains detail data
echo "Posting Done <br>";
}catch (Exception $e) {
    echo 'Caught exception: ',  $e->getMessage(), "\n";
}
    $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("2020-04-23")); #YYYY-MM-DD
    $lMain->FindField("PostDate")->Value = date("d-m-Y", strtotime("2020-04-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 = 6;
    $lMain->FindField("Cancelled")->AsString = "F";
    #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")->AsString = "T";
        $lDetail->Post();
}
    $BizObject->Save();
    $BizObject->Close();
}
}


Line 3,193: Line 3,312:
     {
     {
         CheckLogin();
         CheckLogin();
         PostData();
         echo date("d M Y h:i:s A")." - Posting Cash Sales<br>";
         echo date("d M Y h:i:s A") . " - Done";
        PostDataCS();
     }
        echo date("d M Y h:i:s A")." - Posting Customer Payment<br>";
     finally
        PostDataPM();
     {
        echo date("d M Y h:i:s A")." - Posting Sales Credit Note<br>";
        PostDataCN();
        echo date("d M Y h:i:s A")." - Posting Knock Off Sales Credit Note<br>";
        PostKnockIVCN();
        echo date("d M Y h:i:s A")." - Posting Customer Refund<br>";
        PostDataCF();
         echo date("d M Y h:i:s A")." - Posting Done";
     }
     finally
     {
         $ComServer->Logout();
         $ComServer->Logout();
         #free the object
         #free the object
Line 3,204: Line 3,332:
}
}


?>
?>  
     <form method="post">           
     <form method="post">           
         <input type="submit" name="BtnData"
         <input type="submit" name="BtnData"
                 value="Add/Edit AR Customer"/>  
                 value="Complete Post"/>  
     </form>  
     </form>  
</body>
</body>
</html>
</html>
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>
====Get Stock List====
 
====Get Invoice Next Number====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Get Stock List Script  
! Get Invoice Next Number Script  
|-
|-
|  
|  
Line 3,223: Line 3,352:
<!DOCTYPE html>
<!DOCTYPE html>
<html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>
<body>


Line 3,231: Line 3,357:


<?php
<?php
echo "Updated 22 Jun 2020<br>";
echo "Updated 01 May 2020<br>";
#This action to Get Stock Item List
#This action to Get Next Number for Customer Invoice


$ComServer = null;
$ComServer = null;
Line 3,247: Line 3,373:
     }
     }
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
                       "C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "C:\\eStream\\SQLAccounting\\Share\\Default.DCF",  #DCF file
                       "ACC-0024.FDB"); #Database Name
                       "ACC-0082.FDB"); #Database Name
      
      
}
}
Line 3,255: Line 3,381:
global $ComServer;
global $ComServer;
     $lSQL = "SELECT A.*, B.UOM, B.RATE, B.REFCOST, B.REFPRICE, B.ISBASE FROM ST_ITEM A  
     $lSQL = "SELECT A.*, B.NEXTNUMBER FROM SY_DOCNO A  
        INNER JOIN ST_ITEM_UOM B ON (A.CODE=B.CODE)  
        INNER JOIN SY_DOCNO_DTL B ON (A.DOCKEY=B.PARENTKEY)
WHERE A.ISACTIVE='T'
WHERE A.DOCTYPE='IV'
AND A.DESCRIPTION='Customer Invoice'
AND A.STATESET=1
";
";
Line 3,264: Line 3,392:
     if ($lDataSet->RecordCount > 0) {
     if ($lDataSet->RecordCount > 0) {
$lDataSet->First();
$lDataSet->First();
$fc = $lDataSet->Fields->Count-1;
        $fmt = $lDataSet->FindField('Format')->AsString();
echo "<table>";
        $NextNo = $lDataSet->FindField('NEXTNUMBER')->AsFloat();
echo "<tr>";
for ($x = 0; $x <= $fc; $x++) {
#Insert Header
echo "<td>".$lDataSet->Fields->Items($x)->FieldName()."</td>";
}
echo "</tr>";
#Looping Dataset
        echo date("d M Y h:i:s A")." Format in SQLAcc : " . str_ireplace("d","s", $fmt)."<br>";
while (! $lDataSet->Eof()){
        $fmt= str_ireplace(".","'0", $fmt);
echo "<tr>";
        echo date("d M Y h:i:s A")." Format in PHP : " . str_ireplace("d","s", $fmt)."<br>";
    for ($x = 0; $x <= $fc; $x++) {
echo date("d M Y h:i:s A")." Output in PHP : " .sprintf($fmt,$NextNo)."<br>";
$lFN = $lDataSet->Fields->Items($x)->FieldName();
    echo "<td>".$lDataSet->FindField($lFN)->AsString()."</td>";  
    }
    echo "</tr>";
$lDataSet->Next();
}
echo "</table>"."<br>";
}else {
}else {
     echo "Record Not Found";
     echo "Record Not Found";
Line 3,308: Line 3,423:
     <form method="post">           
     <form method="post">           
         <input type="submit" name="BtnData"
         <input type="submit" name="BtnData"
                 value="Get Stock list"/>  
                 value="Get Doc Number"/>  
     </form>  
     </form>  
</body>
</body>
Line 3,314: Line 3,429:
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====AR_IV====
====Add & Edit AR_Customer====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! AR_IV Script  
! Add & Edit AR_Customer Script  
|-
|-
|  
|  
Line 3,324: Line 3,440:
<!DOCTYPE html>
<!DOCTYPE html>
<html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>
<body>


Line 3,332: Line 3,445:


<?php
<?php
echo "Updated 24 Jun 2020<br>";
echo "Updated 11 Jun 2020<br>";
#This action to Post Customer Invoice


$ComServer = null;
$ComServer = null;
Line 3,348: Line 3,460:
     }
     }
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
                       "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file
                       "C:\\eStream\\SQLAccounting\\Share\\Default.DCF", #DCF File
                       "ACC-0070.FDB"); #Database Name
                       "ACC-0035.FDB"); #Database Name
      
      
}
}
Line 3,356: Line 3,468:
global $ComServer;
global $ComServer;
$BizObject = $ComServer->BizObjects->Find("AR_IV");
    $BizObject = $ComServer->BizObjects->Find("AR_Customer");
     $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
     $lMain = $BizObject->DataSets->Find("MainDataSet");
    $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data
$lDtl  = $BizObject->DataSets->Find("cdsBranch");
   
    $lDocKey = $BizObject->FindKeyByRef("CODE", "FAIRY");
    $BizObject->New();
if ($lDocKey == null){
    $lMain->FindField("DocKey")->value = -1;
        $BizObject->New();
    $lMain->FindField("DocNo")->AsString = "--IV Test--";
        $lMain->FindField("CODE")->value = "FAIRY";
    $lMain->FindField("DocDate")->value = "04/20/2020"; #MM/DD/YYYY
        $lMain->FindField("CompanyName")->value = "FAIRY TAIL";
    $lMain->FindField("PostDate")->value = "04/20/2020"; #MM/DD/YYYY
    $lMain->FindField("Code")->AsString = "300-C0001"; #Customer Account
        $lDtl->Edit(); #For 1St Branch
    $lMain->FindField("Description")->AsString = "Sales";
        $lDtl->FindField("BranchName")->AsString = "BILLING";
        $lDtl->FindField("Address1")->AsString   = "Address1";
    #Insert Data - Detail
        $lDtl->FindField("Address2")->AsString    = "Address2";
    #For Tax Inclusive = True with override Tax Amount
        $lDtl->FindField("Address3")->AsString    = "Address3";
    $lDetail->Append();
        $lDtl->FindField("Address4")->AsString   = "Address4";  
    $lDetail->FindField("DtlKey")->value = -1;
        $lDtl->FindField("Attention")->AsString   = "Attention";  
    $lDetail->FindField("DocKey")->value = -1;
        $lDtl->FindField("Phone1")->AsString     = "Phone1";
    $lDetail->FindField("Seq")->value = 1;
        $lDtl->FindField("Fax1")->AsString       = "Fax1";
    $lDetail->FindField("Account")->AsString = "500-000"; #Sales Account
        $lDtl->FindField("Email")->AsString      = "EmailAddress";
    $lDetail->FindField("Description")->AsString = "Sales Item A";
        $lDtl->Post();
    $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();
        $lDtl->Append(); #For 2nd Branch
    $lDetail->FindField("TaxInclusive")->value = 1;
        $lDtl->FindField("BranchName")->AsString  = "Branch1";
    $lDetail->EnableControls();     
        $lDtl->FindField("Address1")->AsString    = "DAddress1";
    $lDetail->Post();
        $lDtl->FindField("Address2")->AsString    = "DAddress2";
        $lDtl->FindField("Address3")->AsString   = "DAddress3";
    #For Tax Inclusive = False with override Tax Amount
        $lDtl->FindField("Address4")->AsString    = "DAddress4"; 
    $lDetail->Append();
        $lDtl->FindField("Attention")->AsString  = "DAttention"; 
    $lDetail->FindField("DtlKey")->value = -1;
        $lDtl->FindField("Phone1")->AsString      = "DPhone1";
    $lDetail->FindField("DocKey")->value = -1;
        $lDtl->FindField("Fax1")->AsString        = "DFax1";
    $lDetail->FindField("Seq")->value = 2;
        $lDtl->FindField("Email")->AsString      = "DEmailAddress";
    $lDetail->FindField("Account")->AsString = "500-000";
        $lDtl->Post();
    $lDetail->FindField("Description")->AsString = "Sales Item B";
} else{
    $lDetail->FindField("Tax")->AsString = "SV";
        $BizObject->Params->Find("CODE")->Value = $lDocKey;
    $lDetail->FindField("TaxRate")->AsString = "6%";
        $BizObject->Open();
    $lDetail->FindField("TaxInclusive")->value = 0;
        $BizObject->Edit();
    $lDetail->FindField("Amount")->AsFloat = 94.43;
        $lMain->FindField("CompanyName")->value = "FAIRY TAIL WIZARD";
    $lDetail->FindField("TaxAmt")->AsFloat = 5.66;
     $lDetail->Post();
$r = $lDtl->RecordCount();
$x = 1;
while ($x <= $r ){
$lDtl->First();
            $lDtl->Delete();
$x++;
}
        #Insert back with new Information
        $lDtl->Edit(); #For 1St Branch
        $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("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();
echo "Posting Done <br>";
}catch (Exception $e) {
     echo 'Caught exception: ',  $e->getMessage(), "\n";
}
    $BizObject->Save();
    $BizObject->Close();
}
}


Line 3,410: Line 3,556:
     {
     {
         CheckLogin();
         CheckLogin();
PostData();
        PostData();
         echo date("d M Y h:i:s A")." - Done";
         echo date("d M Y h:i:s A") . " - Done";
     }
     }
     finally
     finally
Line 3,421: Line 3,567:
}
}


?>  
?>
     <form method="post">           
     <form method="post">           
         <input type="submit" name="BtnData"
         <input type="submit" name="BtnData"
                 value="Post Customer Invoice"/>  
                 value="Add/Edit AR Customer"/>  
     </form>  
     </form>  
</body>
</body>
</html>
</html>
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>
 
====Get Stock List====
====Get Outstanding Invoice List====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Get Outstanding Invoice List Script  
! Get Stock List Script  
|-
|-
|  
|  
Line 3,448: Line 3,594:


<?php
<?php
echo "Updated 24 Jun 2020<br>";
echo "Updated 22 Jun 2020<br>";
#This action to Get Outstanding Invoice List
#This action to Get Stock Item List


$ComServer = null;
$ComServer = null;
Line 3,472: Line 3,618:
global $ComServer;
global $ComServer;
     $lSQL = "SELECT A.*, B.COMPANYNAME, (A.DOCAMT-A.PAYMENTAMT) OUTSTANDING  FROM AR_IV A
     $lSQL = "SELECT A.*, B.UOM, B.RATE, B.REFCOST, B.REFPRICE, B.ISBASE FROM ST_ITEM A  
        INNER JOIN AR_CUSTOMER B ON (A.CODE=B.CODE)  
        INNER JOIN ST_ITEM_UOM B ON (A.CODE=B.CODE)  
WHERE (A.DOCAMT-A.PAYMENTAMT)<>0
WHERE A.ISACTIVE='T'
AND CANCELLED='F'
";
";
Line 3,526: Line 3,671:
     <form method="post">           
     <form method="post">           
         <input type="submit" name="BtnData"
         <input type="submit" name="BtnData"
                 value="Get Outstanding Invoice List"/>  
                 value="Get Stock list"/>  
     </form>  
     </form>  
</body>
</body>
Line 3,534: Line 3,679:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Stock Month End - Weighted Average====
====AR_IV====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Stock Month End - Weighted Average Script  
! AR_IV Script  
|-
|-
|  
|  
Line 3,550: Line 3,695:


<?php
<?php
echo "Updated 01 Dec 2021<br>";
echo "Updated 18 May 2024<br>";
 
#This action to Post Customer Invoice


$ComServer = null;
$ComServer = null;
Line 3,567: Line 3,712:
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
                       "C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "ACC-0024.FDB"); #Database Name
                       "ACC-0070.FDB"); #Database Name
      
      
}
}


function GetData(){
function PostData(){
#Accuracy : 90% - Due to the figure is base on last run Costing in SQL Accounting
global $ComServer;
global $ComServer;
    $lSQL = "SELECT A.ItemCode, A.Location, A.Batch,  MAX(B.Seq) AS Seq, 2 AS CostingMethod
$BizObject = $ComServer->BizObjects->Find("AR_IV");
        FROM ST_TR A INNER JOIN ST_TR_WMA B ON (A.TRANSNO=B.TRANSNO)  
    $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
WHERE A.PostDate<='31 Jul 2020'
    $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data
AND A.ITEMCODE='Adj_Voucher'
GROUP BY A.ItemCode, A.Location, A.Batch
";
$lDataSet1 = $ComServer->DBManager->NewDataSet($lSQL);
    $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";
$Seq = "";
    #Insert Data - Detail
$lDataSet1->First();
    #For Tax Inclusive = True with override Tax Amount
while (! $lDataSet1->Eof()){
    $lDetail->Append();
$Seq = $Seq.$lDataSet1->FindField("SEQ")->AsString .",";
    $lDetail->FindField("Seq")->value = 1;
$lDataSet1->Next();
    $lDetail->FindField("Account")->AsString = "500-000"; #Sales Account
}
    $lDetail->FindField("Description")->AsString = "Sales Item A";
 
     $lDetail->FindField("Tax")->AsString = "SV";
     $lSQL = "SELECT A.TRANSNO, A.ItemCode, A.Location, A.Batch, B.UTDQty, B.UTDCost FROM ST_TR A
    $lDetail->FindField("TaxRate")->AsString = "6%";
        INNER JOIN ST_TR_WMA B ON (A.TRANSNO=B.TRANSNO)  
    $lDetail->FindField("TaxInclusive")->value = 0;
WHERE A.PostDate<='31 Jul 2020'
    $lDetail->FindField("Amount")->AsFloat = 410.37; #Exclding GST Amt
AND A.ITEMCODE='Adj_Voucher'
     $lDetail->FindField("TaxAmt")->AsFloat = 24.63;
AND B.SEQ IN (".substr_replace($Seq ,"",-1).")
 
AND B.UTDQty<>0  
    $lDetail->DisableControls();
ORDER BY A.ItemCode, A.Location, A.Batch
    $lDetail->FindField("TaxInclusive")->value = 1;
";
    $lDetail->EnableControls();  
    $lDetail->Post();
$lDataSet2 = $ComServer->DBManager->NewDataSet($lSQL);
    #For Tax Inclusive = False with override Tax Amount
     if ($lDataSet2->RecordCount > 0) {
    $lDetail->Append();
$lDataSet2->First();
    $lDetail->FindField("Seq")->value = 2;
$fc = $lDataSet2->Fields->Count-1;
    $lDetail->FindField("Account")->AsString = "500-000";
echo "<table>";
    $lDetail->FindField("Description")->AsString = "Sales Item B";
echo "<tr>";
    $lDetail->FindField("Tax")->AsString = "SV";
for ($x = 0; $x <= $fc; $x++) {
    $lDetail->FindField("TaxRate")->AsString = "6%";
#Insert Header
    $lDetail->FindField("TaxInclusive")->value = 0;
echo "<td>".$lDataSet2->Fields->Items($x)->FieldName()."</td>";  
    $lDetail->FindField("Amount")->AsFloat = 94.43;
}
    $lDetail->FindField("TaxAmt")->AsFloat = 5.66;
echo "</tr>";
    $lDetail->Post();
#Looping Dataset
     $BizObject->Save();
while (! $lDataSet2->Eof()){
     $BizObject->Close();
echo "<tr>";
    for ($x = 0; $x <= $fc; $x++) {
$lFN = $lDataSet2->Fields->Items($x)->FieldName();
    echo "<td>".$lDataSet2->FindField($lFN)->AsString()."</td>";  
    }
    echo "</tr>";
$lDataSet2->Next();
}
echo "</table>"."<br>";
}else {
     echo "Record Not Found";
     }
}
}


Line 3,634: Line 3,768:
     {
     {
         CheckLogin();
         CheckLogin();
        GetData();
PostData();
         echo date("d M Y h:i:s A")." - Done";
         echo date("d M Y h:i:s A")." - Done";
     }
     }
Line 3,648: Line 3,782:
     <form method="post">           
     <form method="post">           
         <input type="submit" name="BtnData"
         <input type="submit" name="BtnData"
                 value="Month End - WA"/>  
                 value="Post Customer Invoice"/>  
     </form>  
     </form>  
</body>
</body>
Line 3,656: Line 3,790:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Stock Month End - FIFO====
====Get Outstanding Invoice List====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Stock Month End - FIFO Script  
! Get Outstanding Invoice List Script  
|-
|-
|  
|  
Line 3,672: Line 3,806:


<?php
<?php
echo "Updated 16 Jul 2020<br>";
echo "Updated 24 Jun 2020<br>";
#This action to Get Outstanding Invoice List
#This action to Get Outstanding Invoice List


Line 3,694: Line 3,828:


function GetData(){
function GetData(){
#Accuracy : 90% - Due to the figure is base on last run Costing in SQL Accounting
global $ComServer;
global $ComServer;
     $lSQL = "SELECT A.ItemCode, A.Location, A.Batch, MAX(B.Seq) AS Seq, 1 AS CostingMethod
     $lSQL = "SELECT A.*, B.COMPANYNAME, (A.DOCAMT-A.PAYMENTAMT) OUTSTANDING  FROM AR_IV A
        FROM ST_TR A INNER JOIN ST_TR_FIFO B ON (A.TRANSNO=B.TRANSNO)  
        INNER JOIN AR_CUSTOMER B ON (A.CODE=B.CODE)  
WHERE A.PostDate<='31 Jul 2020'
WHERE (A.DOCAMT-A.PAYMENTAMT)<>0
AND A.ItemCode IN ('ANT', 'COVER', 'BOM')
AND CANCELLED='F'
GROUP BY A.ItemCode, A.Location, A.Batch
";
";
$lDataSet1 = $ComServer->DBManager->NewDataSet($lSQL);
$lDataSet = $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
     if ($lDataSet->RecordCount > 0) {
        INNER JOIN ST_TR_FIFO B ON (A.TRANSNO=B.TRANSNO)
$lDataSet->First();
WHERE B.COSTTYPE='U'
$fc = $lDataSet->Fields->Count-1;
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 "<table>";
echo "<table>";
echo "<tr>";
echo "<tr>";
for ($x = 0; $x <= $fc; $x++) {
for ($x = 0; $x <= $fc; $x++) {
#Insert Header
#Insert Header
echo "<td>".$lDataSet2->Fields->Items($x)->FieldName()."</td>";  
echo "<td>".$lDataSet->Fields->Items($x)->FieldName()."</td>";  
}
}
echo "</tr>";
echo "</tr>";
#Looping Dataset
#Looping Dataset
while (! $lDataSet2->Eof()){
while (! $lDataSet->Eof()){
echo "<tr>";
echo "<tr>";
    for ($x = 0; $x <= $fc; $x++) {
    for ($x = 0; $x <= $fc; $x++) {
$lFN = $lDataSet2->Fields->Items($x)->FieldName();
$lFN = $lDataSet->Fields->Items($x)->FieldName();
    echo "<td>".$lDataSet2->FindField($lFN)->AsString()."</td>";  
    echo "<td>".$lDataSet->FindField($lFN)->AsString()."</td>";  
    }
    }
    echo "</tr>";
    echo "</tr>";
$lDataSet2->Next();
$lDataSet->Next();
}
}
echo "</table>"."<br>";
echo "</table>"."<br>";
Line 3,750: Line 3,863:
     echo "Record Not Found";
     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
if (isset($_POST['BtnData']))
        WHERE CostType='B'
{
AND TRANSNO IN (".substr_replace($Seq ,"",-1).")
     try
GROUP BY TransNo, Cost
     {
";
         CheckLogin();
         GetData();
$lDataSet3 = $ComServer->DBManager->NewDataSet($lSQL);
 
    if ($lDataSet3->RecordCount > 0) {
$lDataSet3->First();
$fc = $lDataSet3->Fields->Count-1;
echo "<table>";
echo "<tr>";
for ($x = 0; $x <= $fc; $x++) {
#Insert Header
echo "<td>".$lDataSet3->Fields->Items($x)->FieldName()."</td>";
}
echo "</tr>";
#Looping Dataset
while (! $lDataSet3->Eof()){
echo "<tr>";
    for ($x = 0; $x <= $fc; $x++) {
$lFN = $lDataSet3->Fields->Items($x)->FieldName();
    echo "<td>".$lDataSet3->FindField($lFN)->AsString()."</td>";
    }
    echo "</tr>";
$lDataSet3->Next();
}
echo "</table>"."<br>";
}else {
    echo "Record Not Found";
    }
}
 
if (isset($_POST['BtnData']))
{
     try
     {
         CheckLogin();
         GetData();
         echo date("d M Y h:i:s A")." - Done";
         echo date("d M Y h:i:s A")." - Done";
     }
     }
     finally
     finally
     {
     {
         #$ComServer->Logout();
         $ComServer->Logout();
         #free the object
         #free the object
         $ComServer = null;
         $ComServer = null;
Line 3,813: Line 3,884:
     <form method="post">           
     <form method="post">           
         <input type="submit" name="BtnData"
         <input type="submit" name="BtnData"
                 value="Month End - FIFO"/>  
                 value="Get Outstanding Invoice List"/>  
     </form>  
     </form>  
</body>
</body>
Line 3,821: Line 3,892:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Add & Edit Stock Item====
====Stock Month End - Weighted Average====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Add & Edit Stock Item Script  
! Stock Month End - Weighted Average Script  
|-
|-
|  
|  
Line 3,829: Line 3,900:
<!DOCTYPE html>
<!DOCTYPE html>
<html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>
<body>


Line 3,834: Line 3,908:


<?php
<?php
echo "Updated 05 Aug 2020<br>";
echo "Updated 01 Dec 2021<br>";
 
 
$ComServer = null;
$ComServer = null;


Line 3,853: Line 3,929:
}
}


function PostData(){
function GetData(){
#Accuracy : 90% - Due to the figure is base on last run Costing in SQL Accounting
global $ComServer;
global $ComServer;
$BizObject = $ComServer->BizObjects->Find("ST_ITEM");
    $lSQL = "SELECT A.ItemCode, A.Location, A.Batch,  MAX(B.Seq) AS Seq, 2 AS CostingMethod
    $lMain = $BizObject->DataSets->Find("MainDataSet");
        FROM ST_TR A INNER JOIN ST_TR_WMA B ON (A.TRANSNO=B.TRANSNO)  
    $lUOM  = $BizObject->DataSets->Find("cdsUOM");  
WHERE A.PostDate<='31 Jul 2020'
$lBarcode = $BizObject->DataSets->Find("cdsBarcode");  
AND A.ITEMCODE='Adj_Voucher'
GROUP BY A.ItemCode, A.Location, A.Batch
";
$lDataSet1 = $ComServer->DBManager->NewDataSet($lSQL);
$lDocKey = $BizObject->FindKeyByRef("CODE", "FAIRY-PHP");
$Seq = "";
 
$lDataSet1->First();
if ($lDocKey == null){
while (! $lDataSet1->Eof()){
        $BizObject->New();
$Seq = $Seq.$lDataSet1->FindField("SEQ")->AsString .",";
        $lMain->FindField("CODE")->AsString = "FAIRY-PHP";
$lDataSet1->Next();
        $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
    $lSQL = "SELECT A.TRANSNO, A.ItemCode, A.Location, A.Batch, B.UTDQty, B.UTDCost FROM ST_TR A
        $lUOM->FindField("UOM")->AsString = "PCS";
        INNER JOIN ST_TR_WMA B ON (A.TRANSNO=B.TRANSNO)  
        $lUOM->FindField("Rate")->AsFloat = 1;
WHERE A.PostDate<='31 Jul 2020'
        $lUOM->FindField("RefCost")->AsFloat = 10.2;
AND A.ITEMCODE='Adj_Voucher'
        $lUOM->FindField("RefPrice")->AsFloat = 25;
AND B.SEQ IN (".substr_replace($Seq ,"",-1).")  
        $lUOM->Post();
AND B.UTDQty<>0
 
ORDER BY A.ItemCode, A.Location, A.Batch
        $lUOM->Append(); #For 2nd UOM
";
        $lUOM->FindField("UOM")->AsString = "CTN";
        $lUOM->FindField("Rate")->AsFloat = 12;
$lDataSet2 = $ComServer->DBManager->NewDataSet($lSQL);
        $lUOM->FindField("RefCost")->AsFloat = 102;
        $lUOM->FindField("RefPrice")->AsFloat = 240;
    if ($lDataSet2->RecordCount > 0) {
        $lUOM->Post();
$lDataSet2->First();
 
$fc = $lDataSet2->Fields->Count-1;
        $lBarcode->Append(); #For 1st UOM Barcode
echo "<table>";
        $lBarcode->FindField("BARCODE")->AsString = "123456789";
echo "<tr>";
$lBarcode->FindField("UOM")->AsString = "PCS";
for ($x = 0; $x <= $fc; $x++) {
        $lBarcode->Post();
#Insert Header
echo "<td>".$lDataSet2->Fields->Items($x)->FieldName()."</td>";  
        $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++;
}
}
echo "</tr>";
$r = $lBarcode->RecordCount();
#Looping Dataset
$x = 1;
while (! $lDataSet2->Eof()){
while ($x <= $r ){
echo "<tr>";
$lBarcode->First();
    for ($x = 0; $x <= $fc; $x++) {
            $lBarcode->Delete();
$lFN = $lDataSet2->Fields->Items($x)->FieldName();
$x++;
    echo "<td>".$lDataSet2->FindField($lFN)->AsString()."</td>";  
}
    }
    echo "</tr>";
        $lUOM->Append(); #For 1St UOM
$lDataSet2->Next();
        $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
echo "</table>"."<br>";
        $lUOM->FindField("RefCost")->AsFloat = 22.3;
}else {
        $lUOM->FindField("RefPrice")->AsFloat = 52;
     echo "Record Not Found";
        $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']))
if (isset($_POST['BtnData']))
Line 3,955: Line 3,992:
     {
     {
         CheckLogin();
         CheckLogin();
         echo date("d M Y h:i:s A")." - Begin Posting Stock Item<br>";
         GetData();
         PostData();
         echo date("d M Y h:i:s A")." - Done";
echo date("d M Y h:i:s A")." - Done<br>";
     }
     }
     finally
     finally
Line 3,970: Line 4,006:
     <form method="post">           
     <form method="post">           
         <input type="submit" name="BtnData"
         <input type="submit" name="BtnData"
                 value="Add & Edit Stock Item"/>  
                 value="Month End - WA"/>  
     </form>  
     </form>  
</body>
</body>
Line 3,978: Line 4,014:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Add Stock Issue====
====Stock Month End - FIFO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Add Stock Issue Script  
! Stock Month End - FIFO Script  
|-
|-
|  
|  
Line 3,986: Line 4,022:
<!DOCTYPE html>
<!DOCTYPE html>
<html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>
<body>


Line 3,991: Line 4,030:


<?php
<?php
echo "Updated 21 Oct 2020<br>";
echo "Updated 16 Jul 2020<br>";
#This action to Get Outstanding Invoice List
 
$ComServer = null;
$ComServer = null;


Line 4,005: Line 4,046:
     }
     }
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
                       "D:\Happy\DB\Default.DCF", #"C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "ACC-0024.FDB"); #Database Name
                       "ACC-0024.FDB"); #Database Name
      
      
}
}


function CheckLogin1()
function GetData(){
{
#Accuracy : 90% - Due to the figure is base on last run Costing in SQL Accounting
    global $ComServer;
    $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object.");
   
}
 
function PostData(){
global $ComServer;
global $ComServer;
$BizObject = $ComServer->BizObjects->Find("ST_IS");
    $lSQL = "SELECT  A.ItemCode, A.Location, A.Batch, MAX(B.Seq) AS Seq, 1 AS CostingMethod
    $lMain = $BizObject->DataSets->Find("MainDataSet");
        FROM ST_TR A INNER JOIN ST_TR_FIFO B ON (A.TRANSNO=B.TRANSNO)  
    $lDetail = $BizObject->DataSets->Find("cdsDocDetail");  
WHERE A.PostDate<='31 Jul 2020'
AND A.ItemCode IN ('ANT', 'COVER', 'BOM')
GROUP BY A.ItemCode, A.Location, A.Batch
";
    $BizObject->New();
$lDataSet1 = $ComServer->DBManager->NewDataSet($lSQL);
    $lMain->FindField("DocKey")->value = -1;
    $lMain->FindField("DocNo")->AsString = "--IS Test--";
    $lMain->FindField("DocDate")->value = "04/20/2020"; #MM/DD/YYYY
    $lMain->FindField("PostDate")->value = "04/20/2020"; #MM/DD/YYYY
    $lMain->FindField("Description")->AsString = "Stock Issue";
    #Insert Data - Detail
$Seq = "";
    $lDetail->Append();
$lDataSet1->First();
    $lDetail->FindField("DtlKey")->value = -1;
while (! $lDataSet1->Eof()){
    $lDetail->FindField("DocKey")->value = -1;
$Seq = $Seq.$lDataSet1->FindField("SEQ")->AsString .",";
    $lDetail->FindField("Seq")->value = 1;
$lDataSet1->Next();
    $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();
     $lSQL = "SELECT A.TRANSNO, A.ItemCode, A.Location, A.Batch, B.QTY, B.COST FROM ST_TR A
     $lDetail->FindField("DtlKey")->value = -1;
        INNER JOIN ST_TR_FIFO B ON (A.TRANSNO=B.TRANSNO)
    $lDetail->FindField("DocKey")->value = -1;
WHERE B.COSTTYPE='U'
    $lDetail->FindField("Seq")->value = 2;
AND A.PostDate<='31 Jul 2020'
    $lDetail->FindField("ItemCode")->AsString = "N-CHARGER";
AND B.SEQ IN (".substr_replace($Seq ,"",-1).")
    $lDetail->FindField("Description")->AsString = "NOKIA CHARGER";
AND A.ItemCode IN ('ANT1.0', 'COVER', 'BOM')
    $lDetail->FindField("Qty")->AsFloat = 5;
AND B.Qty<>0
    $lDetail->FindField("UOM")->AsString = "UNIT";
ORDER BY A.ItemCode, A.Location, A.Batch
    $lDetail->Post();
";
     $BizObject->Save();
$lDataSet2 = $ComServer->DBManager->NewDataSet($lSQL);
     $BizObject->Close();
     if ($lDataSet2->RecordCount > 0) {
$lDataSet2->First();
$fc = $lDataSet2->Fields->Count-1;
echo "<table>";
echo "<tr>";
for ($x = 0; $x <= $fc; $x++) {
#Insert Header
echo "<td>".$lDataSet2->Fields->Items($x)->FieldName()."</td>";
}
echo "</tr>";
#Looping Dataset
while (! $lDataSet2->Eof()){
echo "<tr>";
    for ($x = 0; $x <= $fc; $x++) {
$lFN = $lDataSet2->Fields->Items($x)->FieldName();
    echo "<td>".$lDataSet2->FindField($lFN)->AsString()."</td>";
    }
    echo "</tr>";
$lDataSet2->Next();
}
echo "</table>"."<br>";
}else {
     echo "Record Not Found";
     }
try{
#FIFO Detail Key to link with $lDataSet2 & $lDataSet3 is TRANSNO
        $BizObject->Save();
$Seq = "";
        $BizObject->Close();
$lDataSet2->First();
}catch (Exception $e) {
while (! $lDataSet2->Eof()){
    echo 'Caught exception: ',  $e->getMessage(), "\n";
$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 (isset($_POST['BtnData']))
    if ($lDataSet3->RecordCount > 0) {
{
$lDataSet3->First();
    try
$fc = $lDataSet3->Fields->Count-1;
    {
echo "<table>";
        CheckLogin1();
echo "<tr>";
        echo date("d M Y h:i:s A")." - Begin Posting<br>";
for ($x = 0; $x <= $fc; $x++) {
        PostData();
#Insert Header
echo date("d M Y h:i:s A")." - Done<br>";
echo "<td>".$lDataSet3->Fields->Items($x)->FieldName()."</td>";
     }
}
     finally
echo "</tr>";
#Looping Dataset
while (! $lDataSet3->Eof()){
echo "<tr>";
    for ($x = 0; $x <= $fc; $x++) {
$lFN = $lDataSet3->Fields->Items($x)->FieldName();
    echo "<td>".$lDataSet3->FindField($lFN)->AsString()."</td>";
    }
    echo "</tr>";
$lDataSet3->Next();
}
echo "</table>"."<br>";
}else {
     echo "Record Not Found";
    }
}
 
if (isset($_POST['BtnData']))
{
     try
     {
     {
         $ComServer->Logout();
         CheckLogin();
        GetData();
        echo date("d M Y h:i:s A")." - Done";
    }
    finally
    {
        #$ComServer->Logout();
         #free the object
         #free the object
         $ComServer = null;
         $ComServer = null;
Line 4,084: Line 4,171:
     <form method="post">           
     <form method="post">           
         <input type="submit" name="BtnData"
         <input type="submit" name="BtnData"
                 value="Add Stock Issue"/>  
                 value="Month End - FIFO"/>  
     </form>  
     </form>  
</body>
</body>
Line 4,092: Line 4,179:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Add Points====
====Add & Edit Stock Item====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Add Points Script  
! Add & Edit Stock Item Script  
|-
|-
|  
|  
Line 4,105: Line 4,192:


<?php
<?php
echo "Updated 30 Oct 2020<br>";
echo "Updated 05 Aug 2020<br>";
$ComServer = null;
$ComServer = null;


Line 4,127: Line 4,214:
global $ComServer;
global $ComServer;
$BizObject = $ComServer->BizObjects->Find("Sales.Points.OPF");
$BizObject = $ComServer->BizObjects->Find("ST_ITEM");
     $lMain = $BizObject->DataSets->Find("Main"); #lMain contains master data
     $lMain = $BizObject->DataSets->Find("MainDataSet");
    $lUOM  = $BizObject->DataSets->Find("cdsUOM");
$lBarcode = $BizObject->DataSets->Find("cdsBarcode");  
    $BizObject->New();
$lDocKey = $BizObject->FindKeyByRef("CODE", "FAIRY-PHP");
    $lMain->FindField("DocKey")->value = -1;
    $lMain->FindField("DocNo")->AsString = "--Point Test--";
    $lMain->FindField("DocDate")->value = "04/20/2020"; #MM/DD/YYYY
    $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 ($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";


if (isset($_POST['BtnData']))
        $lUOM->Edit(); #For 1St UOM
{
         $lUOM->FindField("UOM")->AsString = "PCS";
    try
         $lUOM->FindField("Rate")->AsFloat = 1;
    {
         $lUOM->FindField("RefCost")->AsFloat = 10.2;
         CheckLogin();
         $lUOM->FindField("RefPrice")->AsFloat = 25;
         echo date("d M Y h:i:s A")." - Posting Point<br>";
         $lUOM->Post();
         PostData();
    }
    finally
    {
         $ComServer->Logout();
        #free the object
         $ComServer = null;
    }
}


?>  
        $lUOM->Append(); #For 2nd UOM
    <form method="post">          
        $lUOM->FindField("UOM")->AsString = "CTN";
        <input type="submit" name="BtnData"
        $lUOM->FindField("Rate")->AsFloat = 12;
                value="Post Point"/>  
        $lUOM->FindField("RefCost")->AsFloat = 102;
    </form>  
        $lUOM->FindField("RefPrice")->AsFloat = 240;
</body>
        $lUOM->Post();
</html>
</syntaxhighlight>
|}
<div style="float: right;">  [[#top|[top]]]</div>


====AR_CN====
        $lBarcode->Append(); #For 1st UOM Barcode
{| class="mw-collapsible mw-collapsed wikitable"
        $lBarcode->FindField("BARCODE")->AsString = "123456789";
! AR_CN Script
$lBarcode->FindField("UOM")->AsString = "PCS";
|-
        $lBarcode->Post();
|
<syntaxhighlight lang="PHP">
        $lBarcode->Append(); #For 2nd UOM Barcode
<!DOCTYPE html>
        $lBarcode->FindField("BARCODE")->AsString = "987654321";
<html>
$lBarcode->FindField("UOM")->AsString = "CTN";
<head>
        $lBarcode->Post();
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
} else{
</head>
        $BizObject->Params->Find("Dockey")->AsString = $lDocKey;
<body>
        $BizObject->Open();
 
        $BizObject->Edit();
<h1>SQL Acc SDK in PHP page</h1>
        $lMain->FindField("DESCRIPTION")->AsString = "FAIRY TAIL WIZARD";
 
<?php
$r = $lUOM->RecordCount();
echo "Updated 12 Dec 2020<br>";
$x = 1;
#This action to Post Customer Credit Note
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";
    }
}


$ComServer = null;


function CheckLogin()
if (isset($_POST['BtnData']))
{
{
     global $ComServer;
    try
     $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object.");
    {
     $status = $ComServer->IsLogin();
        CheckLogin();
 
        echo date("d M Y h:i:s A")." - Begin Posting Stock Item<br>";
     if ($status == true)
        PostData();
echo date("d M Y h:i:s A")." - Done<br>";
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}
 
?>
    <form method="post">         
        <input type="submit" name="BtnData"
                value="Add & Edit Stock Item"/>
    </form>
</body>
</html>
</syntaxhighlight>
|}
<div style="float: right;">  [[#top|[top]]]</div>
 
====Add Stock Issue====
{| class="mw-collapsible mw-collapsed wikitable"
! Add Stock Issue Script
|-
|
<syntaxhighlight lang="PHP">
<!DOCTYPE html>
<html>
<body>
 
<h1>SQL Acc SDK in PHP page</h1>
 
<?php
echo "Updated 18 May 2024<br>";
$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->Logout();
     }
     }
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
                       "C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "D:\Happy\DB\Default.DCF", #"C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "ACC-0040.FDB"); #Database Name
                       "ACC-0024.FDB"); #Database Name
   
}
 
function CheckLogin1()
{
    global $ComServer;
    $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object.");
      
      
}
}
Line 4,217: Line 4,378:
global $ComServer;
global $ComServer;
$BizObject = $ComServer->BizObjects->Find("AR_CN");
$BizObject = $ComServer->BizObjects->Find("ST_IS");
     $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
     $lMain = $BizObject->DataSets->Find("MainDataSet");  
     $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data
     $lDetail = $BizObject->DataSets->Find("cdsDocDetail");  
$lKO = $BizObject->DataSets->Find("cdsKnockOff");
     $BizObject->New();
     $BizObject->New();
     $lMain->FindField("DocKey")->value = -1;
     $lMain->FindField("DocKey")->value = -1;
     $lMain->FindField("DocNo")->AsString = "--CN Test1--";
     $lMain->FindField("DocNo")->AsString = "--IS Test--";
     $lMain->FindField("DocDate")->value = "04/20/2020"; #MM/DD/YYYY
     $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2020-04-20")); #YYYY-MM-DD
     $lMain->FindField("PostDate")->value = "04/20/2020"; #MM/DD/YYYY
     $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 = "Stock Issue";
     $lMain->FindField("Description")->AsString = "Sales";
     #Insert Data - Detail
     #Insert Data - Detail
    #For Tax Inclusive = True with override Tax Amount
     $lDetail->Append();
     $lDetail->Append();
    $lDetail->FindField("DtlKey")->value = -1;
    $lDetail->FindField("DocKey")->value = -1;
     $lDetail->FindField("Seq")->value = 1;
     $lDetail->FindField("Seq")->value = 1;
     $lDetail->FindField("Account")->AsString = "510-000"; #Sales Return Account
     $lDetail->FindField("ItemCode")->AsString = "ANT";
     $lDetail->FindField("Description")->AsString = "Return Item A";
     $lDetail->FindField("Description")->AsString = "Sales Item B";
     $lDetail->FindField("Tax")->AsString = "";
     $lDetail->FindField("Qty")->AsFloat = 2;
     $lDetail->FindField("TaxRate")->AsString = "";
     $lDetail->FindField("UOM")->AsString = "BOX";
     $lDetail->FindField("TaxInclusive")->value = 0;
     $lDetail->Post();
    $lDetail->FindField("Amount")->AsFloat = 410.37; #Exclding GST Amt
    $lDetail->FindField("TaxAmt")->AsFloat = 0;
$lDetail->Post();


     $V = array("IV", "IV-00003"); #DocType, DocNo
     $lDetail->Append();
       
    $lDetail->FindField("Seq")->value = 2;
     if ($lKO->Locate("DocType;DocNo", $V, False, False)){
     $lDetail->FindField("ItemCode")->AsString = "N-CHARGER";
        $lKO->Edit();
    $lDetail->FindField("Description")->AsString = "NOKIA CHARGER";
        $lKO->FindField("KOAmt")->AsFloat = 100; #Partial Knock off
    $lDetail->FindField("Qty")->AsFloat = 5;
        $lKO->FindField("KnockOff")->AsString = "T";
    $lDetail->FindField("UOM")->AsString = "UNIT";
        $lKO->Post();
    $lDetail->Post();
}
     $BizObject->Save();
     $BizObject->Save();
     $BizObject->Close();
     $BizObject->Close();
try{
        $BizObject->Save();
        $BizObject->Close();
}catch (Exception $e) {
    echo 'Caught exception: ',  $e->getMessage(), "\n";
    }
}
}


if (isset($_POST['BtnData']))
if (isset($_POST['BtnData']))
Line 4,261: Line 4,422:
     try
     try
     {
     {
         CheckLogin();
         CheckLogin1();
PostData();
        echo date("d M Y h:i:s A")." - Begin Posting<br>";
        echo date("d M Y h:i:s A")." - Done";
        PostData();
echo date("d M Y h:i:s A")." - Done<br>";
     }
     }
     finally
     finally
Line 4,276: Line 4,438:
     <form method="post">           
     <form method="post">           
         <input type="submit" name="BtnData"
         <input type="submit" name="BtnData"
                 value="Post Customer Credit Note"/>  
                 value="Add Stock Issue"/>  
     </form>  
     </form>  
</body>
</body>
Line 4,284: Line 4,446:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====SO to DO====
====Add Points====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! SO to DO Script  
! Add Points Script  
|-
|-
|  
|  
Line 4,292: Line 4,454:
<!DOCTYPE html>
<!DOCTYPE html>
<html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>
<body>


Line 4,300: Line 4,459:


<?php
<?php
echo "Updated 15 Jan 2021<br>";
echo "Updated 18 May 2024<br>";
#This action to
#01. Get Oustanding SO
#02. Post To DO
 
$ComServer = null;
$ComServer = null;


Line 4,326: Line 4,481:
global $ComServer;
global $ComServer;
     $lSQL = "SELECT Dockey, DocNo,Code, CompanyName, Seq, DtlKey, ItemCode, Qty, UOM, UnitPrice, Disc, Amount,
$BizObject = $ComServer->BizObjects->Find("Sales.Points.OPF");
            COALESCE(Sum(XFQty),0) XFQty, COALESCE((Qty-Sum(XFQty)), Qty) OSQty FROM (
     $lMain = $BizObject->DataSets->Find("Main"); #lMain contains master data
            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,
    $BizObject->New();
            C.Qty XFQty FROM SL_SO A
    $lMain->FindField("DocNo")->AsString = "--Point Test--";
            INNER JOIN SL_SODTL B ON (A.DOCKEY=B.DOCKEY)
    $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2020-04-20")); #YYYY-MM-DD
            LEFT JOIN ST_XTRANS C ON (A.DOCKEY=C.FROMDOCKEY AND B.DTLKEY=C.FROMDTLKEY
    $lMain->FindField("Code")->AsString = "300-C0001"; #Customer Account
                                      AND C.FROMDOCTYPE='SO')
    $lMain->FindField("CompanyName")->AsString = "Cash Sales";
            WHERE A.DOCNO='SO-00140')
$lMain->FindField("DESCRIPTION")->AsString = "Points Earn";
            GROUP BY Dockey, DocNo, Code, CompanyName, Seq, Dtlkey, ItemCode, Qty, UOM, UnitPrice, Disc, Amount
    $lMain->FindField("FromDocType")->AsString = "CS";
HAVING COALESCE((Qty-Sum(XFQty)), Qty) >0
$lMain->FindField("FromDocNo")->AsString = "CS-01234";
";
$lMain->FindField("FROMDOCAMT")->AsFloat = 100.10;
$lMain->FindField("Points")->AsFloat = 10;
$lDataSet = $ComServer->DBManager->NewDataSet($lSQL); #Get Oustanding SO Qty
try{
 
$BizObject->Save();
    if ($lDataSet->RecordCount > 0) {
}catch (Exception $e) {
$BizObject = $ComServer->BizObjects->Find("SL_DO");
echo 'Caught exception: ',  $e->getMessage(), "\n";
        $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
        $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data
$lDataSet->First();
$BizObject->New();
$lMain->FindField("DocKey")->value = -1;
$lMain->FindField("DocNo")->AsString = "--DO Test--";
$lMain->FindField("DocDate")->value = "01/20/2021"; #MM/DD/YYYY
$lMain->FindField("PostDate")->value = "01/20/2021"; #MM/DD/YYYY
$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("DtlKey")->value = -1;
    $lDetail->FindField("DocKey")->value = -1;
    $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']))
if (isset($_POST['BtnData']))
Line 4,389: Line 4,508:
     {
     {
         CheckLogin();
         CheckLogin();
PostData();
         echo date("d M Y h:i:s A")." - Posting Point<br>";
         echo date("d M Y h:i:s A")." - Done";
        PostData();
     }
     }
     finally
     finally
Line 4,403: Line 4,522:
     <form method="post">           
     <form method="post">           
         <input type="submit" name="BtnData"
         <input type="submit" name="BtnData"
                 value="Post SO to DO"/>  
                 value="Post Point"/>  
     </form>  
     </form>  
</body>
</body>
Line 4,411: Line 4,530:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====ST_AJ====
====AR_CN====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! ST_AJ Script  
! AR_CN Script  
|-
|-
|  
|  
Line 4,427: Line 4,546:


<?php
<?php
echo "Updated 08 Feb 2021<br>";
echo "Updated 12 Dec 2020<br>";
#This action to Post Customer Credit Note


$ComServer = null;
$ComServer = null;
Line 4,443: Line 4,563:
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
                       "C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "ACC-0100.FDB"); #Database Name
                       "ACC-0040.FDB"); #Database Name
      
      
}
}
Line 4,450: Line 4,570:
global $ComServer;
global $ComServer;
$BizObject = $ComServer->BizObjects->Find("ST_AJ");
$BizObject = $ComServer->BizObjects->Find("AR_CN");
     $lMain = $BizObject->DataSets->Find("MainDataSet");  
     $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
     $lDetail = $BizObject->DataSets->Find("cdsDocDetail");  
     $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data
$lKO = $BizObject->DataSets->Find("cdsKnockOff");
     $BizObject->New();
     $BizObject->New();
     $lMain->FindField("DocKey")->value = -1;
     $lMain->FindField("DocKey")->value = -1;
     $lMain->FindField("DocNo")->AsString = "--AJ Test--";
     $lMain->FindField("DocNo")->AsString = "--CN Test1--";
     $lMain->FindField("DocDate")->value = "04/20/2020"; #MM/DD/YYYY
     $lMain->FindField("DocDate")->value = "04/20/2020"; #MM/DD/YYYY
     $lMain->FindField("PostDate")->value = "04/20/2020"; #MM/DD/YYYY
     $lMain->FindField("PostDate")->value = "04/20/2020"; #MM/DD/YYYY
     $lMain->FindField("Description")->AsString = "Stock Adjustment";
    $lMain->FindField("Code")->AsString = "300-C0001"; #Customer Account
     $lMain->FindField("Description")->AsString = "Sales";
     #Insert Data - Detail - Increase Stock Qty
     #Insert Data - Detail
    #For Tax Inclusive = True with override Tax Amount
     $lDetail->Append();
     $lDetail->Append();
     $lDetail->FindField("DtlKey")->value = -1;
     $lDetail->FindField("DtlKey")->value = -1;
     $lDetail->FindField("DocKey")->value = -1;
     $lDetail->FindField("DocKey")->value = -1;
     $lDetail->FindField("Seq")->value = 1;
     $lDetail->FindField("Seq")->value = 1;
     $lDetail->FindField("ItemCode")->AsString = "ANT";
     $lDetail->FindField("Account")->AsString = "510-000"; #Sales Return Account
     $lDetail->FindField("Description")->AsString = "ANTENA";
     $lDetail->FindField("Description")->AsString = "Return Item A";
     $lDetail->FindField("Qty")->AsFloat = 2;
     $lDetail->FindField("Tax")->AsString = "";
     $lDetail->FindField("UOM")->AsString = "BOX";
     $lDetail->FindField("TaxRate")->AsString = "";
     $lDetail->Post();
     $lDetail->FindField("TaxInclusive")->value = 0;
    #Insert Data - Detail - Reduce Stock Qty
     $lDetail->FindField("Amount")->AsFloat = 410.37; #Exclding GST Amt
    $lDetail->Append();
     $lDetail->FindField("TaxAmt")->AsFloat = 0;
     $lDetail->FindField("DtlKey")->value = -1;
$lDetail->Post();
     $lDetail->FindField("DocKey")->value = -1;
 
    $lDetail->FindField("Seq")->value = 2;
     $V = array("IV", "IV-00003"); #DocType, DocNo
     $lDetail->FindField("ItemCode")->AsString = "N-CHARGER";
       
     $lDetail->FindField("Description")->AsString = "NOKIA CHARGER";
     if ($lKO->Locate("DocType;DocNo", $V, False, False)){
    $lDetail->FindField("Qty")->AsFloat = -5;
        $lKO->Edit();
    $lDetail->FindField("UOM")->AsString = "UNIT";
        $lKO->FindField("KOAmt")->AsFloat = 100; #Partial Knock off
    $lDetail->Post();
        $lKO->FindField("KnockOff")->AsString = "T";
        $lKO->Post();
}
     $BizObject->Save();
     $BizObject->Save();
     $BizObject->Close();
     $BizObject->Close();
try{
        $BizObject->Save();
        $BizObject->Close();
}catch (Exception $e) {
    echo 'Caught exception: ',  $e->getMessage(), "\n";
    }
}
}


Line 4,512: Line 4,629:
     <form method="post">           
     <form method="post">           
         <input type="submit" name="BtnData"
         <input type="submit" name="BtnData"
                 value="Post ST_AJ"/>  
                 value="Post Customer Credit Note"/>  
     </form>  
     </form>  
</body>
</body>
Line 4,520: Line 4,637:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Get Stock Serial Number balance====
====SO to DO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Get Stock Serial Number Balance List Script  
! SO to DO Script  
|-
|-
|  
|  
Line 4,536: Line 4,653:


<?php
<?php
echo "Updated 21 May 2021<br>";
echo "Updated 18 May 2024<br>";
#This action to
#01. Get Oustanding SO
#02. Post To DO


$ComServer = null;
$ComServer = null;
Line 4,551: Line 4,671:
     }
     }
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
                       "D:\Happy\DB\Default.DCF",  #"C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "ACC-0024.FDB"); #Database Name
                       "ACC-0024.FDB"); #Database Name
      
      
}
}


function GetData(){
function PostData(){
global $ComServer;
global $ComServer;
     $lSQL = "SELECT ItemCode, Location, Batch, SerialNumber, SUM(Qty) Qty FROM ST_TR_SN 
     $lSQL = "SELECT Dockey, DocNo,Code, CompanyName, Seq, DtlKey, ItemCode, Qty, UOM, UnitPrice, Disc, Amount,
        GROUP BY ItemCode, Location, Batch, SerialNumber
            COALESCE(Sum(XFQty),0) XFQty, COALESCE((Qty-Sum(XFQty)), Qty) OSQty FROM (
HAVING SUM(Qty) > 0
            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);
$lDataSet = $ComServer->DBManager->NewDataSet($lSQL); #Get Oustanding SO Qty


     if ($lDataSet->RecordCount > 0) {
     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();
$lDataSet->First();
$fc = $lDataSet->Fields->Count-1;
$BizObject->New();
echo "<table>";
$lMain->FindField("DocNo")->AsString = "--DO Test--";
echo "<tr>";
$lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2021-01-20")); #YYYY-MM-DD
for ($x = 0; $x <= $fc; $x++) {
$lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2021-01-20")); #YYYY-MM-DD
#Insert Header
$lMain->FindField("Code")->AsString = $lDataSet->FindField("Code")->AsString;
echo "<td>".$lDataSet->Fields->Items($x)->FieldName()."</td>";  
$lMain->FindField("CompanyName")->AsString = $lDataSet->FindField("CompanyName")->AsString;
}
$lMain->FindField("Description")->AsString = "Delivery Order";
echo "</tr>";
 
#Looping Dataset
while (! $lDataSet->Eof()){
while (! $lDataSet->Eof()){
echo "<tr>";
    $lDetail->Append();
    for ($x = 0; $x <= $fc; $x++) {
    $lDetail->FindField("ItemCode")->AsString = $lDataSet->FindField("ItemCode")->AsString;
$lFN = $lDataSet->Fields->Items($x)->FieldName();
    $lDetail->FindField("UOM")->AsString = $lDataSet->FindField("UOM")->AsString;
    echo "<td>".$lDataSet->FindField($lFN)->AsString()."</td>";  
$lDetail->FindField("Qty")->AsFloat = $lDataSet->FindField("OSQty")->AsFloat;
    }
    $lDetail->FindField("DISC")->value = $lDataSet->FindField("DISC")->value;
    echo "</tr>";
    $lDetail->FindField("Tax")->AsString = "";
$lDataSet->Next();
    $lDetail->FindField("TaxRate")->AsString = "";
}
    $lDetail->FindField("TaxInclusive")->value = 0;
echo "</table>"."<br>";
    $lDetail->FindField("UnitPrice")->AsFloat = $lDataSet->FindField("UnitPrice")->AsFloat;
}else {
    $lDetail->FindField("Amount")->AsFloat = $lDataSet->FindField("Amount")->AsFloat;
     echo "Record Not Found";
    $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";
     }
     }
}
}
Line 4,598: Line 4,739:
     {
     {
         CheckLogin();
         CheckLogin();
GetData();
PostData();
         echo date("d M Y h:i:s A")." - Done";
         echo date("d M Y h:i:s A")." - Done";
     }
     }
Line 4,612: Line 4,753:
     <form method="post">           
     <form method="post">           
         <input type="submit" name="BtnData"
         <input type="submit" name="BtnData"
                 value="Get SN Balance"/>  
                 value="Post SO to DO"/>  
     </form>  
     </form>  
</body>
</body>
Line 4,620: Line 4,761:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====SL_IV-Add, Edit & Delete====
====ST_AJ====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Insert, Edit & Delete Invoice Script  
! ST_AJ Script  
|-
|-
|  
|  
Line 4,628: Line 4,769:
<!DOCTYPE html>
<!DOCTYPE html>
<html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>
<body>


Line 4,633: Line 4,777:


<?php
<?php
echo "Updated 14 Mar 2022<br>";
echo "Updated 18 May 2024<br>";
 
$ComServer = null;
$ComServer = null;


Line 4,647: Line 4,792:
     }
     }
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
                       "D:\Happy\DB\Default.DCF", #"C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "ACC-0015.FDB"); #Database Name
                       "ACC-0100.FDB"); #Database Name
      
      
}
}


function PostDataIV(){
function PostData(){
global $ComServer;
global $ComServer;
$BizObject = $ComServer->BizObjects->Find("SL_IV");
$BizObject = $ComServer->BizObjects->Find("ST_AJ");
     $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
     $lMain = $BizObject->DataSets->Find("MainDataSet");  
     $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data
     $lDetail = $BizObject->DataSets->Find("cdsDocDetail");  
     #Find IV Number
     $BizObject->New();
     $lDocNo = "--IV Test--";
     $lMain->FindField("DocNo")->AsString = "--AJ Test--";
     $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo);
     $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";
if ($lDocKey != null){
    #Insert Data - Detail - Increase Stock Qty
        echo "Dockey = ".$lDocKey."<br>";
    $lDetail->Append();
$BizObject->Params->Find("DocKey")->AsString = $lDocKey;
    $lDetail->FindField("Seq")->value = 1;
$BizObject->Open();
    $lDetail->FindField("ItemCode")->AsString = "ANT";
        $BizObject->Edit();
    $lDetail->FindField("Description")->AsString = "ANTENA";
        $lMain->Edit();
    $lDetail->FindField("Qty")->AsFloat = 2;
    $lMain->FindField("DocDate")->value = "02/20/2022"; #MM/DD/YYYY
    $lDetail->FindField("UOM")->AsString = "BOX";
        $lMain->FindField("PostDate")->value = "02/20/2022"; #MM/DD/YYYY
    $lDetail->Post();
        $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";


$r = $lDetail->RecordCount();
    #Insert Data - Detail - Reduce Stock Qty
$x = 1;
    $lDetail->Append();
while ($x <= $r ){
    $lDetail->FindField("Seq")->value = 2;
$lDetail->First();
    $lDetail->FindField("ItemCode")->AsString = "N-CHARGER";
            $lDetail->Delete();
    $lDetail->FindField("Description")->AsString = "NOKIA CHARGER";
$x++;
    $lDetail->FindField("Qty")->AsFloat = -5;
}
    $lDetail->FindField("UOM")->AsString = "UNIT";
        $lDetail->Append();
    $lDetail->Post();
        $lDetail->FindField("ItemCode")->AsString = "COVER";
        $lDetail->FindField("Description")->AsString = "Sales Item Cover";
    $lDetail->FindField("UOM")->AsString = "UNIT";
        $lDetail->FindField("Qty")->AsFloat = 3;
        $lDetail->FindField("Tax")->AsString = "";
        $lDetail->FindField("TaxRate")->AsString = "";
        $lDetail->FindField("TaxInclusive")->value = 0;
        $lDetail->FindField("UnitPrice")->AsFloat = 5.60;
        $lDetail->FindField("Amount")->AsFloat = 16.80;
        $lDetail->FindField("TaxAmt")->AsFloat = 0;
        $lDetail->Post();
} else {
      echo "New Invoice<br>";
  $BizObject->New();
      $lMain->FindField("DocKey")->value = -1;
      $lMain->FindField("DocNo")->AsString = $lDocNo;
  $lMain->FindField("Code")->AsString = "300-C0001"; #Customer Account
  $lMain->FindField("DocDate")->value = "02/18/2022"; #MM/DD/YYYY
      $lMain->FindField("PostDate")->value = "02/18/2022"; #MM/DD/YYYY
      $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 = "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();
      $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();
}
     $BizObject->Save();
     $BizObject->Save();
    $BizObject->Close();
echo date("d M Y h:i:s A")." - Posting Done<br>";
try{
     $BizObject->Close();
        $BizObject->Save();
        $BizObject->Close();
}catch (Exception $e) {
     echo 'Caught exception: ',  $e->getMessage(), "\n";
    }
}
}


function PostDelIV(){
if (isset($_POST['BtnData']))
global $ComServer;
{
     try
$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."<br>";
$BizObject->Params->Find("DocKey")->AsString = $lDocKey;
$BizObject->Open();
        $BizObject->Delete();
echo date("d M Y h:i:s A")." - Record deleted<br>";
} else {
echo date("d M Y h:i:s A")." - Document Not Found<br>";
}
}
if (isset($_POST['BtnPost']))
{
     try
     {
     {
         CheckLogin();
         CheckLogin();
        echo date("d M Y h:i:s A")." - Begin Posting<br>";
PostData();
        PostDataIV();
         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<br>";
        PostDelIV();
     }
     }
     finally
     finally
Line 4,802: Line 4,857:
?>  
?>  
     <form method="post">           
     <form method="post">           
         <input type="submit" name="BtnPost"
         <input type="submit" name="BtnData"
                 value="Post Sales IV"/>
                 value="Post ST_AJ"/>  
        <input type="submit" name="BtnDel"
                value="Post Delete IV"/>
     </form>  
     </form>  
</body>
</body>
Line 4,813: Line 4,866:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====GL_PV-Add, Edit & Delete====
====Get Stock Serial Number balance====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Insert, Edit & Delete Invoice Script  
! Get Stock Serial Number Balance List Script  
|-
|-
|  
|  
Line 4,821: Line 4,874:
<!DOCTYPE html>
<!DOCTYPE html>
<html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>
<body>


Line 4,826: Line 4,882:


<?php
<?php
echo "Updated 15 Mar 2022<br>";
echo "Updated 21 May 2021<br>";
 
$ComServer = null;
$ComServer = null;


Line 4,840: Line 4,897:
     }
     }
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
                       "D:\Happy\DB\Default.DCF", #"C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "D:\Happy\DB\Default.DCF", #"C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "ACC-0015.FDB"); #Database Name
                       "ACC-0024.FDB"); #Database Name
      
      
}
}


function PostData(){
function GetData(){
global $ComServer;
global $ComServer;
$BizObject = $ComServer->BizObjects->Find("GL_PV");
    $lSQL = "SELECT ItemCode, Location, Batch, SerialNumber, SUM(Qty) Qty  FROM ST_TR_SN 
    $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
        GROUP BY ItemCode, Location, Batch, SerialNumber
    $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data
HAVING SUM(Qty) > 0
";
    #Find PV Number
$lDataSet = $ComServer->DBManager->NewDataSet($lSQL);
    $lDocNo = "--PV Test--";
    $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo);
if ($lDocKey != null){
        echo "Dockey = ".$lDocKey."<br>";
$BizObject->Params->Find("DocKey")->AsString = $lDocKey;
$BizObject->Open();
        $BizObject->Edit();
        $lMain->Edit();
    $lMain->FindField("DocDate")->value = "02/20/2022"; #MM/DD/YYYY
        $lMain->FindField("PostDate")->value = "02/20/2022"; #MM/DD/YYYY
        $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();
    if ($lDataSet->RecordCount > 0) {
$x = 1;
$lDataSet->First();
while ($x <= $r ){
$fc = $lDataSet->Fields->Count-1;
$lDetail->First();
echo "<table>";
            $lDetail->Delete();
echo "<tr>";
$x++;
for ($x = 0; $x <= $fc; $x++) {
#Insert Header
echo "<td>".$lDataSet->Fields->Items($x)->FieldName()."</td>";  
}
}
        $lDetail->Append();
echo "</tr>";
        $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<br>";
  $BizObject->New();
      $lMain->FindField("DocKey")->value = -1;
      $lMain->FindField("DocNo")->AsString = $lDocNo;
  $lMain->FindField("DocDate")->value = "02/18/2022"; #MM/DD/YYYY
      $lMain->FindField("PostDate")->value = "02/18/2022"; #MM/DD/YYYY
      $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();
#Looping Dataset
      $lDetail->FindField("Code")->AsString = "907-000"; #GL Account
while (! $lDataSet->Eof()){
      $lDetail->FindField("Description")->AsString = "TNB Bill for Jan 2022";
echo "<tr>";
      $lDetail->FindField("Tax")->AsString = "";
    for ($x = 0; $x <= $fc; $x++) {
      $lDetail->FindField("TaxRate")->AsString = "";
$lFN = $lDataSet->Fields->Items($x)->FieldName();
      $lDetail->FindField("TaxInclusive")->value = 0;
    echo "<td>".$lDataSet->FindField($lFN)->AsString()."</td>";  
      $lDetail->FindField("Amount")->AsFloat = 100.80;
    }
      $lDetail->FindField("TaxAmt")->AsFloat = 0;
    echo "</tr>";
      $lDetail->Post();
$lDataSet->Next();
 
}
      $lDetail->Append();
echo "</table>"."<br>";
      $lDetail->FindField("Code")->AsString = "907-000";
}else {
      $lDetail->FindField("Description")->AsString = "TNB Bill for Feb 2022";
    echo "Record Not Found";
      $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<br>";
    $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."<br>";
$BizObject->Params->Find("DocKey")->AsString = $lDocKey;
$BizObject->Open();
        $BizObject->Delete();
echo date("d M Y h:i:s A")." - Record deleted<br>";
} else {
echo date("d M Y h:i:s A")." - Document Not Found<br>";
}
}
if (isset($_POST['BtnPost']))
{
    try
    {
        CheckLogin();
        echo date("d M Y h:i:s A")." - Begin Posting<br>";
        PostData();
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
     }
     }
}
}


if (isset($_POST['BtnDel']))
if (isset($_POST['BtnData']))
{
{
     try
     try
     {
     {
         CheckLogin();
         CheckLogin();
         echo date("d M Y h:i:s A")." - Begin Delete<br>";
GetData();
        DelData();
         echo date("d M Y h:i:s A")." - Done";
     }
     }
     finally
     finally
Line 4,977: Line 4,957:
?>  
?>  
     <form method="post">           
     <form method="post">           
         <input type="submit" name="BtnPost"
         <input type="submit" name="BtnData"
                 value="Post GL PV"/>
                 value="Get SN Balance"/>  
        <input type="submit" name="BtnDel"
                value="Delete PV"/>
     </form>  
     </form>  
</body>
</body>
Line 4,988: Line 4,966:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====GL_JE-Add, Edit & Delete====
====SL_IV-Add, Edit & Delete====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Insert, Edit & Delete Invoice Script  
! Insert, Edit & Delete Invoice Script  
Line 5,001: Line 4,979:


<?php
<?php
echo "Updated 15 Mar 2022<br>";
echo "Updated 25 May 2024<br>";
$ComServer = null;
$ComServer = null;


Line 5,015: Line 4,993:
     }
     }
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
                       "C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "D:\Happy\DB\Default.DCF", #"C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "ACC-0015.FDB"); #Database Name
                       "ACC-0015.FDB"); #Database Name
      
      
}
}


function PostData(){
function PostDataIV(){
global $ComServer;
global $ComServer;
$BizObject = $ComServer->BizObjects->Find("GL_JE");
$BizObject = $ComServer->BizObjects->Find("SL_IV");
     $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
     $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
     $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data
     $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data
$lSN = $BizObject->DataSets->Find("cdsSerialNumber"); #lDetail contains detail data
     #Find PV Number
     #Find IV Number
     $lDocNo = "--JE Test--";
     $lDocNo = "--IV Test--";
     $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo);
     $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo);
Line 5,037: Line 5,016:
         $BizObject->Edit();
         $BizObject->Edit();
         $lMain->Edit();
         $lMain->Edit();
    $lMain->FindField("DocDate")->value = "02/20/2022"; #MM/DD/YYYY
    $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2024-04-24")); #YYYY-MM-DD
         $lMain->FindField("PostDate")->value = "02/20/2022"; #MM/DD/YYYY
         $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2024-04-24")); #YYYY-MM-DD
         $lMain->FindField("Description")->AsString = "Credit Card Charges - Edited";
         $lMain->FindField("CompanyName")->AsString = "Cash Sales-Edited";
$lMain->FindField("Cancelled")->AsString = "F";
        $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";


$r = $lDetail->RecordCount();
$V = array("ANT", "UNIT"); #ItemCode, UOM
$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();
if ($lDetail->Locate("ItemCode;UOM", $V, False, False)){
        $lDetail->FindField("Code")->AsString = "310-001";
            $lDetail->Edit();
        $lDetail->FindField("Description")->AsString = "MBB Credit Card Charges - Edited";
            $lDetail->FindField("Qty")->AsFloat = 2;
        $lDetail->FindField("Tax")->AsString = "";
            $lDetail->FindField("Tax")->AsString = "";
        $lDetail->FindField("TaxRate")->AsString = "";
            $lDetail->FindField("TaxRate")->AsString = "";
        $lDetail->FindField("TaxInclusive")->value = 0;
            $lDetail->FindField("TaxInclusive")->value = 0;
        $lDetail->FindField("LocalCR")->AsFloat = 78.88;
            $lDetail->FindField("UnitPrice")->AsFloat = 6.00;
$lDetail->FindField("CR")->AsFloat = 78.88; #If Wanted CR <> LocalCR
            $lDetail->FindField("Amount")->AsFloat = 12.00;
        $lDetail->FindField("LocalTaxAmt")->AsFloat = 0;
            $lDetail->FindField("TaxAmt")->AsFloat = 0;
        $lDetail->Post();
            $lDetail->Post();
}
} else {
} else {
       echo "New JE<br>";
       echo "New Invoice<br>";
  $BizObject->New();
  $BizObject->New();
       $lMain->FindField("DocKey")->value = -1;
       $lMain->FindField("DocKey")->value = -1;
       $lMain->FindField("DocNo")->AsString = $lDocNo;
       $lMain->FindField("DocNo")->AsString = #$lDocNo;
  $lMain->FindField("DocDate")->value = "02/18/2022"; #MM/DD/YYYY
  $lMain->FindField("Code")->AsString = "300-C0001"; #Customer Account
       $lMain->FindField("PostDate")->value = "02/18/2022"; #MM/DD/YYYY
  $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2024-04-03")); #YYYY-MM-DD
       $lMain->FindField("Description")->AsString = "Credit Card Charges";
       $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2024-04-03")); #YYYY-MM-DD
  $lMain->FindField("Cancelled")->AsString = "F";
       $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->Append();
       $lDetail->FindField("Code")->AsString = "902-000";
       $lDetail->FindField("ItemCode")->AsString = "BOM";
       $lDetail->FindField("Description")->AsString = "MBB Credit Card Charges";
       $lDetail->FindField("Description")->AsString = "Sales Item BOM";
  $lDetail->FindField("UOM")->AsString = "UNIT";
      $lDetail->FindField("Qty")->AsFloat = 2;
       $lDetail->FindField("Tax")->AsString = "";
       $lDetail->FindField("Tax")->AsString = "";
       $lDetail->FindField("TaxRate")->AsString = "";
       $lDetail->FindField("TaxRate")->AsString = "";
       $lDetail->FindField("TaxInclusive")->value = 0;
       $lDetail->FindField("TaxInclusive")->value = 0;
       $lDetail->FindField("LocalDR")->AsFloat = 88.88;
       $lDetail->FindField("UnitPrice")->AsFloat = 150;
  $lDetail->FindField("DR")->AsFloat = 88.88; #If Wanted DR <> LocalDR
      $lDetail->FindField("Amount")->AsFloat = 300;
       $lDetail->FindField("LocalTaxAmt")->AsFloat = 0;
       $lDetail->FindField("TaxAmt")->AsFloat = 0;
       $lDetail->Post();
       $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->Append();
       $lDetail->FindField("Code")->AsString = "310-001";
       $lDetail->FindField("ItemCode")->AsString = "SN";
       $lDetail->FindField("Description")->AsString = "MBB Credit Card Charges";
       $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("Tax")->AsString = "";
       $lDetail->FindField("TaxRate")->AsString = "";
       $lDetail->FindField("TaxRate")->AsString = "";
       $lDetail->FindField("TaxInclusive")->value = 0;
       $lDetail->FindField("TaxInclusive")->value = 0;
       $lDetail->FindField("LocalCR")->AsFloat = 88.88;
       $lDetail->FindField("UnitPrice")->AsFloat = 100;
  $lDetail->FindField("CR")->AsFloat = 88.88; #If Wanted CR <> LocalCR
      $lDetail->FindField("Amount")->AsFloat = 100;
       $lDetail->FindField("LocalTaxAmt")->AsFloat = 0;
       $lDetail->FindField("TaxAmt")->AsFloat = 0;
       $lDetail->Post();
       $lDetail->Post();  
}
}
     $BizObject->Save();
     $BizObject->Save();
echo "Save with DocNo ".$lMain->FindField("DocNo")->AsString."<br>";
echo date("d M Y h:i:s A")." - Posting Done<br>";
echo date("d M Y h:i:s A")." - Posting Done<br>";
     $BizObject->Close();
     $BizObject->Close();
}
}


function DelData(){
function PostDelIV(){
global $ComServer;
global $ComServer;
$BizObject = $ComServer->BizObjects->Find("GL_JE");
$BizObject = $ComServer->BizObjects->Find("SL_IV");
     $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
     $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
     #Find JE Number
     #Find IV Number
     $lDocNo = "--JE Test--";
     $lDocNo = "--IV Test--";
     $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo);
     $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo);
Line 5,134: Line 5,138:
         CheckLogin();
         CheckLogin();
         echo date("d M Y h:i:s A")." - Begin Posting<br>";
         echo date("d M Y h:i:s A")." - Begin Posting<br>";
         PostData();
         PostDataIV();
     }
     }
     finally
     finally
Line 5,150: Line 5,154:
         CheckLogin();
         CheckLogin();
         echo date("d M Y h:i:s A")." - Begin Delete<br>";
         echo date("d M Y h:i:s A")." - Begin Delete<br>";
         DelData();
         PostDelIV();
     }
     }
     finally
     finally
Line 5,163: Line 5,167:
     <form method="post">           
     <form method="post">           
         <input type="submit" name="BtnPost"
         <input type="submit" name="BtnPost"
                 value="Post GL JE"/>  
                 value="Post Sales IV"/>  
         <input type="submit" name="BtnDel"
         <input type="submit" name="BtnDel"
                 value="Delete JE"/>
                 value="Post Delete IV"/>
     </form>  
     </form>  
</body>
</body>
Line 5,173: Line 5,177:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Get Outstanding SO List====
====GL_PV-Add, Edit & Delete====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Get Outstanding SO List Script  
! Insert, Edit & Delete Invoice Script  
|-
|-
|  
|  
Line 5,186: Line 5,190:


<?php
<?php
echo "Updated 09 Jun 2022<br>";
echo "Updated 18 May 2024<br>";
$ComServer = null;
$ComServer = null;


Line 5,200: Line 5,204:
     }
     }
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
                       "C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "D:\Happy\DB\Default.DCF", #"C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "ACC-0015.FDB"); #Database Name
                       "ACC-0015.FDB"); #Database Name
      
      
}
}


function GetData(){
function PostData(){
global $ComServer;
global $ComServer;
    $lSQL = "SELECT Dockey, DocNo,Code, CompanyName, Seq, DtlKey, ItemCode, Qty, UOM, UnitPrice, Disc, Amount,
$BizObject = $ComServer->BizObjects->Find("GL_PV");
            COALESCE(Sum(XFQty),0) XFQty, COALESCE((Qty-Sum(XFQty)), Qty) OSQty FROM (
    $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
            SELECT A.Dockey, A.DocNo, A.Code, A.CompanyName,
    $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data
            B.DtlKey, B.Seq, B.ItemCode, B.Qty, B.UOM, B.UnitPrice, B.Disc, B.Amount,
            C.Qty XFQty FROM SL_SO A
    #Find PV Number
            INNER JOIN SL_SODTL B ON (A.DOCKEY=B.DOCKEY)
    $lDocNo = "--PV Test--";
            LEFT JOIN ST_XTRANS C ON (A.DOCKEY=C.FROMDOCKEY AND B.DTLKEY=C.FROMDTLKEY
    $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo);
                                      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 ($lDocKey != null){
        echo "Dockey = ".$lDocKey."<br>";
$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";


    if ($lDataSet->RecordCount > 0) {
$r = $lDetail->RecordCount();
$lDataSet->First();
$x = 1;
$fc = $lDataSet->Fields->Count-1;
while ($x <= $r ){
echo "<table>";
$lDetail->First();
echo "<tr>";
            $lDetail->Delete();
for ($x = 0; $x <= $fc; $x++) {
$x++;
#Insert Header
echo "<td>".$lDataSet->Fields->Items($x)->FieldName()."</td>";  
}
}
echo "</tr>";
        $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<br>";
  $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";
#Looping Dataset
      $lDetail->Append();
while (! $lDataSet->Eof()){
      $lDetail->FindField("Code")->AsString = "907-000"; #GL Account
echo "<tr>";
      $lDetail->FindField("Description")->AsString = "TNB Bill for Jan 2022";
    for ($x = 0; $x <= $fc; $x++) {
      $lDetail->FindField("Tax")->AsString = "";
$lFN = $lDataSet->Fields->Items($x)->FieldName();
      $lDetail->FindField("TaxRate")->AsString = "";
    echo "<td>".$lDataSet->FindField($lFN)->AsString()."</td>";  
      $lDetail->FindField("TaxInclusive")->value = 0;
    }
      $lDetail->FindField("Amount")->AsFloat = 100.80;
    echo "</tr>";
      $lDetail->FindField("TaxAmt")->AsFloat = 0;
$lDataSet->Next();
      $lDetail->Post();
}
 
echo "</table>"."<br>";
      $lDetail->Append();
}else {
      $lDetail->FindField("Code")->AsString = "907-000";
     echo "Record Not Found";
      $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<br>";
    $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."<br>";
$BizObject->Params->Find("DocKey")->AsString = $lDocKey;
$BizObject->Open();
        $BizObject->Delete();
echo date("d M Y h:i:s A")." - Record deleted<br>";
} else {
echo date("d M Y h:i:s A")." - Document Not Found<br>";
}
}
if (isset($_POST['BtnPost']))
{
     try
    {
        CheckLogin();
        echo date("d M Y h:i:s A")." - Begin Posting<br>";
        PostData();
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
     }
     }
}
}


if (isset($_POST['BtnData']))
if (isset($_POST['BtnDel']))
{
{
     try
     try
     {
     {
         CheckLogin();
         CheckLogin();
         echo date("d M Y h:i:s A")." - Get Data<br>";
         echo date("d M Y h:i:s A")." - Begin Delete<br>";
         GetData();
         DelData();
echo date("d M Y h:i:s A")." - Done<br>";
     }
     }
     finally
     finally
Line 5,269: Line 5,340:
?>  
?>  
     <form method="post">           
     <form method="post">           
         <input type="submit" name="BtnData"
         <input type="submit" name="BtnPost"
                 value="Get Outstanding SO List"/>  
                 value="Post GL PV"/>
        <input type="submit" name="BtnDel"
                value="Delete PV"/>
     </form>  
     </form>  
</body>
</body>
Line 5,277: Line 5,350:
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>
====Get Stock Item Picture====
 
====GL_JE-Add, Edit & Delete====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Get Stock Item Picture Script  
! Insert, Edit & Delete Invoice Script  
|-
|-
|  
|  
Line 5,290: Line 5,364:


<?php
<?php
echo "Updated 14 Sep 2022<br>";
echo "Updated 18 May 2024<br>";
 
$ComServer = null;
$ComServer = null;


Line 5,297: Line 5,370:
{
{
     global $ComServer;
     global $ComServer;
     $ComServer = new COM("SQLAcc.BizApp", null, CP_UTF8) or die("Could not initialise SQLAcc.BizApp object.");
     $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object.");
     $status = $ComServer->IsLogin();
     $status = $ComServer->IsLogin();


Line 5,306: Line 5,379:
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
                       "C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "ACC-0082.FDB"); #Database Name
                       "ACC-0015.FDB"); #Database Name
      
      
}
}


function GetData(){
function PostData(){
    global $ComServer;
global $ComServer;
     $lSQL = "SELECT Picture FROM ST_ITEM
$BizObject = $ComServer->BizObjects->Find("GL_JE");
            WHERE Code='ANT' ";
     $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
    $lDetail = $BizObject->DataSets->Find("cdsDocDetail"); #lDetail contains detail data
     $lDataSet = $ComServer->DBManager->NewDataSet($lSQL);
    #Find JE Number
 
     $lDocNo = "--JE Test--";
    if ($lDataSet->RecordCount > 0) {
    $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo);
$lDataSet->First();
$raw = $lDataSet->FindField('Picture')->Value();
         $b = [];
if ($lDocKey != null){
         foreach($raw as $p) {
         echo "Dockey = ".$lDocKey."<br>";
            array_push($b, chr($p));
$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";


echo '<img src=data:image/*;base64,'.base64_encode(implode($b)).' alt="My Picture" style="width:128px;height:128px">';
$r = $lDetail->RecordCount();
 
$x = 1;
}else {
while ($x <= $r ){
    echo "Record Not Found";
$lDetail->First();
    }
            $lDetail->Delete();
}
$x++;
 
}
if (isset($_POST['BtnData']))
        $lDetail->Append();
{
        $lDetail->FindField("Code")->AsString = "902-000";
    try
        $lDetail->FindField("Description")->AsString = "MBB Credit Card Charges - Edited";
    {
        $lDetail->FindField("Tax")->AsString = "";
        CheckLogin();
        $lDetail->FindField("TaxRate")->AsString = "";
        GetData();
        $lDetail->FindField("TaxInclusive")->value = 0;
echo "<br>";
        $lDetail->FindField("LocalDR")->AsFloat = 78.88;
        echo date("d M Y h:i:s A")." - Done";
$lDetail->FindField("DR")->AsFloat = 78.88; #If Wanted DR <> LocalDR
     }
        $lDetail->FindField("LocalTaxAmt")->AsFloat = 0;
    finally
        $lDetail->Post();
    {
        $ComServer->Logout();
        $lDetail->Append();
        #free the object
        $lDetail->FindField("Code")->AsString = "310-001";
        $ComServer = null;
        $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<br>";
  $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<br>";
     $BizObject->Close();
}
}


?>  
function DelData(){
     <form method="post">           
global $ComServer;
         <input type="submit" name="BtnData"
                 value="Get Item Picture"/>  
$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."<br>";
$BizObject->Params->Find("DocKey")->AsString = $lDocKey;
$BizObject->Open();
        $BizObject->Delete();
echo date("d M Y h:i:s A")." - Record deleted<br>";
} else {
echo date("d M Y h:i:s A")." - Document Not Found<br>";
}
}
if (isset($_POST['BtnPost']))
{
    try
    {
        CheckLogin();
        echo date("d M Y h:i:s A")." - Begin Posting<br>";
        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<br>";
        DelData();
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}
 
?>  
     <form method="post">           
         <input type="submit" name="BtnPost"
                value="Post GL JE"/>
        <input type="submit" name="BtnDel"
                 value="Delete JE"/>
     </form>  
     </form>  
</body>
</body>
Line 5,363: Line 5,535:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Customer.Aging.RO====
====Get Outstanding SO List====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Customer.Aging.RO Script  
! Get Outstanding SO List Script  
|-
|-
|  
|  
Line 5,371: Line 5,543:
<!DOCTYPE html>
<!DOCTYPE html>
<html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>
<body>


Line 5,379: Line 5,548:


<?php
<?php
echo "Updated 26 Sep 2022<br>";
echo "Updated 09 Jun 2022<br>";
 
$ComServer = null;
$ComServer = null;


Line 5,386: Line 5,554:
{
{
     global $ComServer;
     global $ComServer;
     $ComServer = new COM("SQLAcc.BizApp", null, CP_UTF8) or die("Could not initialise SQLAcc.BizApp object.");
     $ComServer = new COM("SQLAcc.BizApp") or die("Could not initialise SQLAcc.BizApp object.");
     $status = $ComServer->IsLogin();
     $status = $ComServer->IsLogin();


     if ($status == true)
     if ($status == true)
     {
     {
         #$ComServer->Logout();
         $ComServer->Logout();
     }
     }
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
                       "C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                       "ACC-0082.FDB"); #Database Name
                       "ACC-0015.FDB"); #Database Name
      
      
}
function SetGrid($DataSet){
echo "<table>";
echo "<tr>";
    $DataSet->First();
$fc = $DataSet->Fields->Count-1;
for ($x = 0; $x <= $fc; $x++) {
#Insert Header
echo "<td>".$DataSet->Fields->Items($x)->FieldName()."</td>";
}
echo "</tr>";
#Looping Dataset
while (! $DataSet->Eof()){
echo "<tr>";
    for ($x = 0; $x <= $fc; $x++) {
$lFN = $DataSet->Fields->Items($x)->FieldName();
    echo "<td>".$DataSet->FindField($lFN)->AsString()."</td>";
    }
    echo "</tr>";
$DataSet->Next();
}
    echo "</table>"."<br>";
}
}


Line 5,426: Line 5,570:
global $ComServer;
global $ComServer;
     $lSQL = '<?xml version="1.0" standalone="yes"?>  <DATAPACKET Version="2.0"><METADATA><FIELDS>
     $lSQL = "SELECT Dockey, DocNo,Code, CompanyName, Seq, DtlKey, ItemCode, Qty, UOM, UnitPrice, Disc, Amount,
        <FIELD attrname="ColumnNo" fieldtype="i4" required="true"/><FIELD attrname="ColumnType" fieldtype="string" WIDTH="1"/>
             COALESCE(Sum(XFQty),0) XFQty, COALESCE((Qty-Sum(XFQty)), Qty) OSQty FROM (
             <FIELD attrname="Param1" fieldtype="i4" required="true"/><FIELD attrname="Param2" fieldtype="i4" required="true"/>
             SELECT A.Dockey, A.DocNo, A.Code, A.CompanyName,
             <FIELD attrname="IsLocal" fieldtype="boolean"/><FIELD attrname="HeaderScript" fieldtype="bin.hex" SUBTYPE="Text" WIDTH="1"/>
             B.DtlKey, B.Seq, B.ItemCode, B.Qty, B.UOM, B.UnitPrice, B.Disc, B.Amount,
             </FIELDS><PARAMS/></METADATA><ROWDATA><ROW ColumnNo="0" ColumnType="" Param1="0" Param2="0" IsLocal="FALSE"/>
             C.Qty XFQty FROM SL_SO A
             <ROW ColumnNo="1" ColumnType="A" Param1="0" Param2="0" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;Current Mth&apos;&#013;end;"/>
             INNER JOIN SL_SODTL B ON (A.DOCKEY=B.DOCKEY)
             <ROW ColumnNo="2" ColumnType="A" Param1="-1" Param2="-1" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;1 Months&apos;&#013;end;"/>
             LEFT JOIN ST_XTRANS C ON (A.DOCKEY=C.FROMDOCKEY AND B.DTLKEY=C.FROMDTLKEY
             <ROW ColumnNo="3" ColumnType="A" Param1="-2" Param2="-2" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;2 Months&apos;&#013;end;"/>
                                      AND C.FROMDOCTYPE='SO')
             <ROW ColumnNo="4" ColumnType="A" Param1="-3" Param2="-3" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;3 Months&apos;&#013;end;"/>
             WHERE A.Cancelled='F')
             <ROW ColumnNo="5" ColumnType="A" Param1="-4" Param2="-4" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;4 Months&apos;&#013;end;"/>
             GROUP BY Dockey, DocNo, Code, CompanyName, Seq, Dtlkey, ItemCode, Qty, UOM, UnitPrice, Disc, Amount
             <ROW ColumnNo="6" ColumnType="B" Param1="-999999" Param2="-5" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;5 Month &amp; above&apos;&#013;end;"/>
             HAVING COALESCE((Qty-Sum(XFQty)), Qty) >0
            </ROWDATA></DATAPACKET>';
";
$lRptVar = $ComServer->RptObjects->Find('Customer.Aging.RO');
$lDataSet = $ComServer->DBManager->NewDataSet($lSQL);
$lRptVar->Params->Find('ActualGroupBy')->AsString = 'Code;CompanyName'; #Fixed
 
# $lRptVar->Params->Find('AgentData')->AsBlob              = ; #Not use if AllAgent is True
     if ($lDataSet->RecordCount > 0) {
    $lRptVar->Params->Find('AgingData')->AsString          = $lSQL;
$lDataSet->First();
    $lRptVar->Params->Find('AgingDate')->AsDate            = '23 Sep 2022';
$fc = $lDataSet->Fields->Count-1;
    $lRptVar->Params->Find('AgingOn')->AsString            = 'I'; #Fixed
echo "<table>";
     $lRptVar->Params->Find('AllAgent')->AsBoolean          = True;
echo "<tr>";
    $lRptVar->Params->Find('AllArea')->AsBoolean            = True;
for ($x = 0; $x <= $fc; $x++) {
    $lRptVar->Params->Find('AllCompany')->AsBoolean        = True;
#Insert Header
    $lRptVar->Params->Find('AllCompanyCategory')->AsBoolean = True;
echo "<td>".$lDataSet->Fields->Items($x)->FieldName()."</td>";  
    $lRptVar->Params->Find('AllControlAccount')->AsBoolean  = True;
}
    $lRptVar->Params->Find('AllCurrency')->AsBoolean        = True;
echo "</tr>";
    $lRptVar->Params->Find('AllDocProject')->AsBoolean      = True;
#    $lRptVar->Params->Find('AreaData')->AsBlob            = ; #Not use if AllArea is True
#    $lRptVar->Params->Find('CompanyCategoryData')->AsBlob = ; #Not use if AllCompanyCategory is True
#    $lRptVar->Params->Find('CompanyData')->AsBlob        = ; #Not use if AllCompany is True
#    $lRptVar->Params->Find('ControlAccountData')->AsBlob  = ; #Not use if AllControlAccount is True
#    $lRptVar->Params->Find('CurrencyData')->AsBlob        = ; #Not use if AllCurrency is True
#   $lRptVar->Params->Find('DocProjectData')->AsBlob      = ; #Not use if AllDocProject is True
    $lRptVar->Params->Find('FilterPostDate')->AsBoolean      = True;
#    $lRptVar->Params->Find('GroupBy
    $lRptVar->Params->Find('IncludePDC')->AsBoolean        = False;
    $lRptVar->Params->Find('IncludeZeroBalance')->AsBoolean = False;
    $lRptVar->Params->Find('SortBy')->AsString              = 'Code;CompanyName';
    $lRptVar->Params->Find('DateTo')->AsDate                = '23 Sep 2022';
    $lRptVar->Params->Find('IncludeKnockedOffDetail')->AsBoolean = False;
$lRptVar->CalculateReport();
$lDataSetHdr = $lRptVar->DataSets->Find('cdsAgingHeader');
$lDataSet = $lRptVar->DataSets->Find('cdsMain');
$lDataSet2 = $lRptVar->DataSets->Find('cdsDocument');
$lDataSetCO = $lRptVar->DataSets->Find('cdsCompany');
 
    if ($lDataSet->RecordCount > 0) {
echo "Header"."<br>";
SetGrid($lDataSetHdr);
echo "Main Data"."<br>";
SetGrid($lDataSet);
echo "Detail Invoice"."<br>";
#Looping Dataset
SetGrid($lDataSet2);
while (! $lDataSet->Eof()){
 
echo "<tr>";
echo "Company Information"."<br>";
    for ($x = 0; $x <= $fc; $x++) {
SetGrid($lDataSetCO);
$lFN = $lDataSet->Fields->Items($x)->FieldName();
 
    echo "<td>".$lDataSet->FindField($lFN)->AsString()."</td>";
    }
    echo "</tr>";
$lDataSet->Next();
}
echo "</table>"."<br>";
}else {
}else {
     echo "Record Not Found";
     echo "Record Not Found";
Line 5,495: Line 5,617:
     {
     {
         CheckLogin();
         CheckLogin();
        echo date("d M Y h:i:s A")." - Get Data<br>";
         GetData();
         GetData();
echo "<br>";
echo date("d M Y h:i:s A")." - Done<br>";
        echo date("d M Y h:i:s A")." - Done";
     }
     }
     finally
     finally
     {
     {
         #$ComServer->Logout();
         $ComServer->Logout();
         #free the object
         #free the object
         $ComServer = null;
         $ComServer = null;
Line 5,510: Line 5,632:
     <form method="post">           
     <form method="post">           
         <input type="submit" name="BtnData"
         <input type="submit" name="BtnData"
                 value="Get AR Aging"/>  
                 value="Get Outstanding SO List"/>  
     </form>  
     </form>  
</body>
</body>
Line 5,517: Line 5,639:
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>
<br>
====Get Stock Item Picture====
{| class="mw-collapsible mw-collapsed wikitable"
! Get Stock Item Picture Script
|-
|
<syntaxhighlight lang="PHP">
<!DOCTYPE html>
<html>
<body>


===Node JS===
<h1>SQL Acc SDK in PHP page</h1>
: Module Require in Node JS
:- Winax (Mandatory) -> npm install winax


====Common====
<?php
* Common.js file for example code
echo "Updated 14 Sep 2022<br>";


{| class="mw-collapsible mw-collapsed wikitable"
$ComServer = null;
! Common Function
|-
|
<syntaxhighlight lang="nodejsrepl">
/* 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(){
function CheckLogin()
cp.exec('start cmd.exe /C "taskkill /IM "SQLACC.exe" /F"');
{
}
    global $ComServer;
    $ComServer = new COM("SQLAcc.BizApp", null, CP_UTF8) or die("Could not initialise SQLAcc.BizApp object.");
    $status = $ComServer->IsLogin();


exports.CreateSQLAccServer = function CreateSQLAccServer() {
    if ($status == true)
  var ComServer;
    {
  ComServer = new winax.Object('SQLAcc.BizApp');
        $ComServer->Logout();
  if (!ComServer.IsLogin) {          /* check whether user has logon */
    }
     ComServer.Login('ADMIN', 'ADMIN', /* UserName, Password */
     $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
/* 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', */
                      "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file
'D:\\Happy\\DB\\DEFAULT.DCF', /* DCF File */
                      "ACC-0082.FDB"); #Database Name
'ACC-0024.FDB'); /* FDB Name */
   
  }
  return ComServer;
}
}


exports.ShowResult = function ShowResult(ADataset){
function GetData(){
  var fc, fn, fv, lresult;
    global $ComServer;
  ADataset.First;
  while (!ADataset.Eof){
    $lSQL = "SELECT Picture FROM ST_ITEM
  fc = ADataset.Fields.Count;
            WHERE Code='ANT' ";
  for (let i = 0; i < fc; i++) {
  fn = ADataset.Fields.Items(i).FieldName;
    $lDataSet = $ComServer->DBManager->NewDataSet($lSQL);
          fv = ADataset.FindField(fn).AsString;
  lresult =  "Index : "+ i + " FieldName : " + fn + " Value : " + fv;
  console.log(lresult);
      }
  console.log("====");
      ADataset.Next();  
  }
}


exports.ShowMsg = function ShowMsgShowMsg(AMsg){
    if ($lDataSet->RecordCount > 0) {
    try {
$lDataSet->First();
        var WSH = new winax.Object('WScript.Shell');
         WSH.popup(AMsg);
$raw = $lDataSet->FindField('Picture')->Value();
     } catch (e) {
         console.log(e);
        $b = [];
     }
        foreach($raw as $p) {
            array_push($b, chr($p));
         }
 
echo '<img src=data:image/*;base64,'.base64_encode(implode($b)).' alt="My Picture" style="width:128px;height:128px">';
 
}else {
    echo "Record Not Found";
     }
}
 
if (isset($_POST['BtnData']))
{
    try
    {
        CheckLogin();
         GetData();
echo "<br>";
        echo date("d M Y h:i:s A")." - Done";
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
     }
}
}


?>
    <form method="post">         
        <input type="submit" name="BtnData"
                value="Get Item Picture"/>
    </form>
</body>
</html>
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Get Company Profile====
====Customer.Aging.RO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Get Company Profile
! Customer.Aging.RO Script
|-
|-
|  
|  
<syntaxhighlight lang="nodejsrepl">
<syntaxhighlight lang="PHP">
/* Updated 22 Jul 2023 */
<!DOCTYPE html>
var Common = require('./Common');
<html>
var ComServer, lDataSet;
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>


function GetData() {
<h1>SQL Acc SDK in PHP page</h1>
  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{
<?php
ComServer = Common.CreateSQLAccServer();
echo "Updated 26 Sep 2022<br>";
GetData();
ComServer.Logout();
} catch(e){
console.error(e.message)
} finally {
Common.KillApp();
}
</syntaxhighlight>
|}
<div style="float: right;">  [[#top|[top]]]</div>


====Complete Post====
$ComServer = null;
{| class="mw-collapsible mw-collapsed wikitable"
! Complete Post
|-
|
<syntaxhighlight lang="nodejsrepl">
/* 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() {
function CheckLogin()
  var BizObject, lMain, lDetail;
{
  BizObject = ComServer.BizObjects.Find('SL_CS') ;
    global $ComServer;
    $ComServer = new COM("SQLAcc.BizApp", null, CP_UTF8) or die("Could not initialise SQLAcc.BizApp object.");
    $status = $ComServer->IsLogin();


  lMain  = BizObject.DataSets.Find('MainDataSet');  /*lMain contains master data*/
    if ($status == true)
  lDetail = BizObject.DataSets.Find('cdsDocDetail'); /*lDetail contains detail data */
    {
        #$ComServer->Logout();
    }
    $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
                      "C:\eStream\SQLAccounting\Share\Default.DCF", #DCF file
                      "ACC-0082.FDB"); #Database Name
   
}


  /*Begin Looping yr data*/
function SetGrid($DataSet){
  /*Insert Data - Master*/
echo "<table>";
  BizObject.New();
echo "<tr>";
  lMain.FindField('DocNo').AsString      = "--CS Test--";
    $DataSet->First();
  lMain.FindField('DocDate').value        = "20/12/2022";
$fc = $DataSet->Fields->Count-1;
  lMain.FindField('PostDate').value      = "20/12/2022";
for ($x = 0; $x <= $fc; $x++) {
  lMain.FindField('Code').AsString        = "300-C0001"; /*Customer Account*/
#Insert Header
  lMain.FindField('CompanyName').AsString = "Cash Sales"
echo "<td>".$DataSet->Fields->Items($x)->FieldName()."</td>";
  lMain.FindField('Address1').AsString    = ""; /*Optional*/
}
  lMain.FindField('Address2').AsString    = ""; /*Optional*/
echo "</tr>";
  lMain.FindField('Address3').AsString    = ""; /*Optional*/
  lMain.FindField('Address4').AsString    = ""; /*Optional*/
#Looping Dataset
  lMain.FindField('Phone1').AsString      = ""; /*Optional*/
while (! $DataSet->Eof()){
  lMain.FindField('Description').AsString = "Sales";
echo "<tr>";
 
    for ($x = 0; $x <= $fc; $x++) {
  /*Insert Data - Detail*/
$lFN = $DataSet->Fields->Items($x)->FieldName();
  /*For Tax Inclusive = True with override Tax Amount*/
    echo "<td>".$DataSet->FindField($lFN)->AsString()."</td>";  
  lDetail.Append();
    }
  lDetail.FindField('Seq').value            = 1;
    echo "</tr>";
  lDetail.FindField('Account').AsString    = "500-000"; /*Sales Account*/
$DataSet->Next();
  lDetail.FindField('Description').AsString = "Sales Item A";
}
  lDetail.FindField('Qty').AsFloat          = 1;
    echo "</table>"."<br>";
  lDetail.FindField('Tax').AsString        = "SV";
}
  lDetail.FindField('TaxRate').AsString    = "6%";
 
  lDetail.FindField('TaxInclusive').value  = 0;
function GetData(){
  lDetail.FindField('UnitPrice').AsFloat    = 435;
global $ComServer;
  lDetail.FindField('Amount').AsFloat      = 410.37; /*Exclding Tax Amt*/
  lDetail.FindField('TaxAmt').AsFloat      = 24.63;
    $lSQL = '<?xml version="1.0" standalone="yes"?>  <DATAPACKET Version="2.0"><METADATA><FIELDS>
 
        <FIELD attrname="ColumnNo" fieldtype="i4" required="true"/><FIELD attrname="ColumnType" fieldtype="string" WIDTH="1"/>
  lDetail.DisableControls();
            <FIELD attrname="Param1" fieldtype="i4" required="true"/><FIELD attrname="Param2" fieldtype="i4" required="true"/>
  lDetail.FindField('TaxInclusive').value  = 1;
            <FIELD attrname="IsLocal" fieldtype="boolean"/><FIELD attrname="HeaderScript" fieldtype="bin.hex" SUBTYPE="Text" WIDTH="1"/>
  lDetail.EnableControls();
            </FIELDS><PARAMS/></METADATA><ROWDATA><ROW ColumnNo="0" ColumnType="" Param1="0" Param2="0" IsLocal="FALSE"/>
 
            <ROW ColumnNo="1" ColumnType="A" Param1="0" Param2="0" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;Current Mth&apos;&#013;end;"/>
  lDetail.Post();
            <ROW ColumnNo="2" ColumnType="A" Param1="-1" Param2="-1" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;1 Months&apos;&#013;end;"/>
 
            <ROW ColumnNo="3" ColumnType="A" Param1="-2" Param2="-2" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;2 Months&apos;&#013;end;"/>
  /*For Tax Inclusive = False with override Tax Amount*/
            <ROW ColumnNo="4" ColumnType="A" Param1="-3" Param2="-3" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;3 Months&apos;&#013;end;"/>
  lDetail.Append();
            <ROW ColumnNo="5" ColumnType="A" Param1="-4" Param2="-4" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;4 Months&apos;&#013;end;"/>
  lDetail.FindField('Seq').value            = 2;
            <ROW ColumnNo="6" ColumnType="B" Param1="-999999" Param2="-5" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;5 Month &amp; above&apos;&#013;end;"/>
  lDetail.FindField('Account').AsString     = "500-000";
            </ROWDATA></DATAPACKET>';
  lDetail.FindField('Description').AsString = "Sales Item B";
  lDetail.FindField('Qty').AsFloat          = 1;
$lRptVar = $ComServer->RptObjects->Find('Customer.Aging.RO');
  lDetail.FindField('Tax').AsString         = "SV";
$lRptVar->Params->Find('ActualGroupBy')->AsString = 'Code;CompanyName'; #Fixed
  lDetail.FindField('TaxRate').AsString    = "6%";
# $lRptVar->Params->Find('AgentData')->AsBlob              = ; #Not use if AllAgent is True
  lDetail.FindField('TaxInclusive').value  = 0;
    $lRptVar->Params->Find('AgingData')->AsString          = $lSQL;
  lDetail.FindField('UnitPrice').AsFloat    = 94.43;
    $lRptVar->Params->Find('AgingDate')->AsDate            = '23 Sep 2022';
  lDetail.FindField('Amount').AsFloat      = 94.43;
    $lRptVar->Params->Find('AgingOn')->AsString             = 'I'; #Fixed
  lDetail.FindField('TaxAmt').AsFloat      = 5.66;
    $lRptVar->Params->Find('AllAgent')->AsBoolean          = True;
  lDetail.Post();
    $lRptVar->Params->Find('AllArea')->AsBoolean            = True;
 
    $lRptVar->Params->Find('AllCompany')->AsBoolean         = True;
  /*For With Item Code*/
    $lRptVar->Params->Find('AllCompanyCategory')->AsBoolean = True;
  lDetail.Append();
    $lRptVar->Params->Find('AllControlAccount')->AsBoolean  = True;
  lDetail.FindField('Seq').value            = 3;
    $lRptVar->Params->Find('AllCurrency')->AsBoolean        = True;
  lDetail.FindField('ItemCode').AsString    = "ANT";
    $lRptVar->Params->Find('AllDocProject')->AsBoolean      = True;
  lDetail.FindField('Description').AsString = "Sales Item B";
#    $lRptVar->Params->Find('AreaData')->AsBlob            = ; #Not use if AllArea is True
  /*lDetail.FindField('Account').AsString    = "500-000"; If you wanted override the Sales Account Code*/
#    $lRptVar->Params->Find('CompanyCategoryData')->AsBlob = ; #Not use if AllCompanyCategory is True
  lDetail.FindField('Qty').AsFloat          = 2;
#    $lRptVar->Params->Find('CompanyData')->AsBlob        = ; #Not use if AllCompany is True
  lDetail.FindField('UOM').AsString         = "UNIT";
#    $lRptVar->Params->Find('ControlAccountData')->AsBlob  = ; #Not use if AllControlAccount is True
  /*lDetail.FindField('DISC').AsString        = "5%+3"; Optional (eg 5% plus 3 Discount)*/
#    $lRptVar->Params->Find('CurrencyData')->AsBlob        = ; #Not use if AllCurrency is True
  lDetail.FindField('Tax').AsString         = "SV";
#    $lRptVar->Params->Find('DocProjectData')->AsBlob      = ; #Not use if AllDocProject is True
  lDetail.FindField('TaxRate').AsString    = "6%";
    $lRptVar->Params->Find('FilterPostDate')->AsBoolean      = True;
  lDetail.FindField('TaxInclusive').value  = 0;
#    $lRptVar->Params->Find('GroupBy
  lDetail.FindField('UnitPrice').AsFloat    = 100;
    $lRptVar->Params->Find('IncludePDC')->AsBoolean         = False;
  lDetail.FindField('Amount').AsFloat      = 200;
    $lRptVar->Params->Find('IncludeZeroBalance')->AsBoolean = False;
  lDetail.FindField('TaxAmt').AsFloat      = 12;
    $lRptVar->Params->Find('SortBy')->AsString             = 'Code;CompanyName';
  lDetail.Post();
    $lRptVar->Params->Find('DateTo')->AsDate                = '23 Sep 2022';
 
    $lRptVar->Params->Find('IncludeKnockedOffDetail')->AsBoolean = False;
  /*Save Document*/
  BizObject.Save();
$lRptVar->CalculateReport();
  BizObject.Close();
$lDataSetHdr = $lRptVar->DataSets->Find('cdsAgingHeader');
}
$lDataSet = $lRptVar->DataSets->Find('cdsMain');
$lDataSet2 = $lRptVar->DataSets->Find('cdsDocument');
$lDataSetCO = $lRptVar->DataSets->Find('cdsCompany');


function PostDataPM() {
    if ($lDataSet->RecordCount > 0) {
  var BizObject, lMain, lDetail, v;
echo "Header"."<br>";
   
SetGrid($lDataSetHdr);
  BizObject = ComServer.BizObjects.Find('AR_PM') ;
 
echo "Main Data"."<br>";
  lMain  = BizObject.DataSets.Find('MainDataSet');  /*lMain contains master data*/
SetGrid($lDataSet);
  lDetail = BizObject.DataSets.Find('cdsKnockOff'); /*lDetail contains detail data */
 
echo "Detail Invoice"."<br>";
  BizObject.New();
SetGrid($lDataSet2);
 
  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() {
echo "Company Information"."<br>";
  var BizObject, lMain, lDetail;
SetGrid($lDataSetCO);
  BizObject = ComServer.BizObjects.Find('SL_CN') ;


  lMain  = BizObject.DataSets.Find('MainDataSet'); /*lMain contains master data*/
}else {
  lDetail = BizObject.DataSets.Find('cdsDocDetail'); /*lDetail contains detail data */
    echo "Record Not Found";
    }
}


  /*Begin Looping yr data*/
if (isset($_POST['BtnData']))
  /*Insert Data - Master*/
{
  BizObject.New();
    try
  lMain.FindField('DocNo').AsString      = "--CN Test--";
    {
  lMain.FindField('DocDate').value        = "21/12/2022";
        CheckLogin();
  lMain.FindField('PostDate').value      = "21/12/2022";
        GetData();
  lMain.FindField('Code').AsString        = "300-C0001"; /*Customer Account*/
echo "<br>";
  lMain.FindField('CompanyName').AsString = "Cash Sales"
        echo date("d M Y h:i:s A")." - Done";
  lMain.FindField('Address1').AsString    = ""; /*Optional*/
    }
  lMain.FindField('Address2').AsString    = ""; /*Optional*/
    finally
  lMain.FindField('Address3').AsString    = ""; /*Optional*/
     {
  lMain.FindField('Address4').AsString    = ""; /*Optional*/
        #$ComServer->Logout();
  lMain.FindField('Phone1').AsString      = ""; /*Optional*/
         #free the object
  lMain.FindField('Description').AsString = "Sales Returned";
         $ComServer = null;
 
     }
  /*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;
    <form method="post">         
        <input type="submit" name="BtnData"
                value="Get AR Aging"/>
    </form>
</body>
</html>
</syntaxhighlight>
|}
<div style="float: right;">  [[#top|[top]]]</div>
 
====Get Description3====
{| class="mw-collapsible mw-collapsed wikitable"
! Get Description 3 Script
|-
|
<syntaxhighlight lang="PHP">
<!DOCTYPE html>
<html>
<body>
 
<h1>SQL Acc SDK in PHP page</h1>
 
<?php
echo "Updated 30 Aug 2024<br>";
$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
      
      
  BizObject = ComServer.BizObjects.Find('AR_CN') ;
}


  lMain  = BizObject.DataSets.Find('MainDataSet');  /*lMain contains master data*/
function GetData(){
  lDetail = BizObject.DataSets.Find('cdsKnockOff'); /*lDetail contains detail data */
global $ComServer;
 
  /* Find CN Number */
    $lSQL = "SELECT Description3, Picture FROM ST_ITEM
  lDocNo = "--CN Test--"
        WHERE Code='ANT' ";
  lDocKey = BizObject.FindKeyByRef('DocNo', lDocNo);
  BizObject.Params.Find('DocKey').Value = lDocKey;
$lDataSet = $ComServer->DBManager->NewDataSet($lSQL);
 
 
  if (lDocKey != null) {
    if ($lDataSet->RecordCount > 0) {
  BizObject.Open();
$lDataSet->First();
  BizObject.Edit();
  lMain.Edit();
$rtf = $lDataSet->FindField('Description3')->AsString();
 
  v = ComServer.CreateOleVariantArray(2);
        echo $rtf;
  v.SetItem(0, 'IV'); /*Knock Off DocType IV or DN*/
echo "<br>== <br>";
  v.SetItem(1, '--CS Test--'); /*Knock Off DocNo*/
echo "<br>Result after RTF: <br>";
 
$txt = $ComServer->Utility->RichTextToPlainText($rtf);
  if (lDetail.Locate('DocType;DocNo', v.AsOleVariant(), false, false)){
echo "<TEXTAREA rows=10 cols=80 id='edResult1' >".$txt. "</TEXTAREA>";
  lDetail.Edit();
echo "<br>== <br>";
      lDetail.FindField('KOAmt').AsFloat    = "100"; /*Partial Knock Off*/  
echo "的第一 🐱";
      lDetail.FindField('KnockOff').AsString = 'T';
}else {
      lDetail.Post();
        echo "Record Not Found";
  }
    }
    /* Save document */ 
  BizObject.Save();
  BizObject.Close();
  }
}
}


function PostDataCF() {
if (isset($_POST['BtnData']))
  var BizObject, lMain, lDetail, v;
{
      
    try
  BizObject = ComServer.BizObjects.Find('AR_CF') ;
    {
        CheckLogin();
        GetData();
        echo date("d M Y h:i:s A") . " - Done";
    }
    finally
     {
        #$ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}


  lMain  = BizObject.DataSets.Find('MainDataSet');  /*lMain contains master data*/
?>
  lDetail = BizObject.DataSets.Find('cdsKnockOff'); /*lDetail contains detail data */
    <form method="post">         
 
        <input type="submit" name="BtnData"
  BizObject.New();
                value="Get Data"/>
 
     </form>
  lMain.FindField('DocNo').AsString        = "--CF Test--";
</body>
  lMain.FindField('Code').AsString          = "300-C0001";
</html>
  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();
}
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Get Picture & Description3(Rich Text)====
====AR_PM-Add, Edit & Delete====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Get Picture & Description3(Rich Text) Script  
! AR_PM-Add, Edit & Delete Script  
|-
|-
|  
|  
<syntaxhighlight lang="nodejsrepl">
<syntaxhighlight lang="PHP">
/* Updated 31 Jul 2023 */
<!DOCTYPE html>
var Common = require('./Common');  
<html>
var ComServer, lDataSet;
<body>
const fs = require('fs');
 
<h1>SQL Acc SDK in PHP page</h1>
 
<?php
echo "Updated 24 Sep 2024<br>";
$ComServer = null;


function saveImage(filename, data){
function CheckLogin()
  var myBuffer = new Buffer.alloc(data.length);
{
  for (var i = 0; i < data.length; i++) {
    global $ComServer;
      myBuffer[i] = data[i];
    $ComServer = new COM("SQLAcc.BizApp", null, CP_UTF8) or die("Could not initialise SQLAcc.BizApp object.");
  }
    $status = $ComServer->IsLogin();
  fs.writeFile(filename, myBuffer, function(err) {
 
      if(err) {
    if ($status == true)
          console.log(err);
    {
      } else {
        $ComServer->Logout();
          console.log("The Image file was saved!");
    }
      }
    $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
  });
                      "C:\eStream\SQLAccounting\Share\Default.DCF",  #DCF file
                      "ACC-0024.FDB"); #Database Name
   
}
}


function ExpFile(AFName, AData){
function PostData(){
const FN = new console.Console(fs.createWriteStream(AFName));
global $ComServer;
     FN.log(AData);
    $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."<br>";
$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<br>";
  $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."<br>";
echo date("d M Y h:i:s A")." - Posting Done<br>";
    $BizObject->Close();
}
}


function GetData() {
function DelData(){
  var lSQL, txt, rtf;
global $ComServer;
  lSQL = "SELECT Description3, Picture FROM ST_ITEM ";
  lSQL = lSQL + "WHERE Code='ANT' ";
$BizObject = $ComServer->BizObjects->Find("AR_PM");
  lDataSet = ComServer.DBManager.NewDataSet(lSQL);
    $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
 
  lDataSet.First;
    #Find PV Number
  rtf = lDataSet.FindField('Description3').AsString;
    $lDocNo = "--OR Test--";
  console.log(rtf);
    $lDocKey = $BizObject->FindKeyByRef("DocNo", $lDocNo);
 
  ExpFile('./output.rtf', rtf);
if ($lDocKey != null){
 
        echo "Dockey = ".$lDocKey."<br>";
  txt = ComServer.Utility.RichTextToPlainText(rtf);
$BizObject->Params->Find("DocKey")->AsString = $lDocKey;
  Common.ShowMsg(txt);
$BizObject->Open();
  /* console.log(txt); <= Not support Unicode */
        $BizObject->Delete();
 
echo date("d M Y h:i:s A")." - Record deleted<br>";
  ExpFile('./output.txt', txt);
} else {
  console.log('Done Export');
echo date("d M Y h:i:s A")." - Document Not Found<br>";
 
}
  saveImage("./Pic.jpg", lDataSet.FindField('Picture').Value);
}
}


try{
if (isset($_POST['BtnData']))
ComServer = Common.CreateSQLAccServer();
{
GetData();
    try
ComServer.Logout();
    {
} catch(e){
        CheckLogin();
console.error(e.message)
        echo date("d M Y h:i:s A")." - Begin Posting<br>";
} finally {
        PostData();
Common.KillApp();
echo date("d M Y h:i:s A")." - Done<br>";
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}
}
</syntaxhighlight>
|}


<div style="float: right;">  [[#top|[top]]]</div>
if (isset($_POST['BtnDel']))
<br />
{
    try
    {
        CheckLogin();
        echo date("d M Y h:i:s A")." - Begin Delete<br>";
        DelData();
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}


===VB Script===
?>
====Get Company Profile====
    <form method="post">         
        <input type="submit" name="BtnData"
                value="Add & Edit AR PM"/>
        <input type="submit" name="BtnDel"
                value="Delete AR PM"/>
    </form>
</body>
</html>
 
</syntaxhighlight>
|}
<div style="float: right;">  [[#top|[top]]]</div>
 
====Customer.Statement.RO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Company Profile Script
! Customer.Statement.RO Script  
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="PHP">
'Copy below script & paste to notepad & name it as eg Common.Agent.RO.vbs
<!DOCTYPE html>
Call GetCoInfo
<html>
<head>
Function CreateSQLAccServer
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
  Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
</head>
End Function
<body>
 
Function GetCoInfo
<h1>SQL Acc SDK in PHP page</h1>
Dim ComServer, RptObject, lDataSet
 
  'Step 1: Create Com Server object
<?php
  Set ComServer = CreateSQLAccServer 'Create Com Server
echo "Updated 28 Oct 2024<br>";
  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
$ComServer = null;


MsgBox "GST No : " & lDataSet.FindField("GSTNo").AsString
function CheckLogin()
{
MsgBox "Address 1 : " & lDataSet.FindField("Address1").AsString
    global $ComServer;
    $ComServer = new COM("SQLAcc.BizApp", null, CP_UTF8) or die("Could not initialise SQLAcc.BizApp object.");
MsgBox "Address 2 : " & lDataSet.FindField("Address2").AsString
    $status = $ComServer->IsLogin();
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 
    if ($status == true)
  ComServer.Logout   
    {
End Function
        $ComServer->Logout();
</syntaxhighlight>
    }
|}
    $ComServer->Login("ADMIN", "ADMIN", #UserName, Password
                      "C:\\eStream\\SQLAccounting\\Share\\Default.DCF",  #DCF file
                      "ACC-0082.FDB"); #Database Name
   
}


<div style="float: right;">   [[#top|[top]]]</div>
function SetGrid($DataSet){
echo "<table>";
echo "<tr>";
    $DataSet->First();
$fc = $DataSet->Fields->Count-1;
for ($x = 0; $x <= $fc; $x++) {
#Insert Header
echo "<td>".$DataSet->Fields->Items($x)->FieldName()."</td>";  
}
echo "</tr>";
#Looping Dataset
while (! $DataSet->Eof()){
echo "<tr>";
    for ($x = 0; $x <= $fc; $x++) {
$lFN = $DataSet->Fields->Items($x)->FieldName();
    echo "<td>".$DataSet->FindField($lFN)->AsString()."</td>";
    }
    echo "</tr>";
$DataSet->Next();
}
    echo "</table>"."<br>";
}


====Complete Post====
function GetData(){
{| class="mw-collapsible mw-collapsed wikitable"
global $ComServer;
! SL_CS, AR_PM, SL_CN & AR_CN Script 
|-
    $lSQL = '<?xml version="1.0" standalone="yes"?>  <DATAPACKET Version="2.0"><METADATA><FIELDS>
|
        <FIELD attrname="ColumnNo" fieldtype="i4" required="true"/><FIELD attrname="ColumnType" fieldtype="string" WIDTH="1"/>
<syntaxhighlight lang="vb">
            <FIELD attrname="Param1" fieldtype="i4" required="true"/><FIELD attrname="Param2" fieldtype="i4" required="true"/>
'Updated 13 Sep 2018
            <FIELD attrname="IsLocal" fieldtype="boolean"/><FIELD attrname="HeaderScript" fieldtype="bin.hex" SUBTYPE="Text" WIDTH="1"/>
'Copy below script & paste to notepad & name it as eg SL_CS.vbs
            </FIELDS><PARAMS/></METADATA><ROWDATA><ROW ColumnNo="0" ColumnType="" Param1="0" Param2="0" IsLocal="FALSE"/>
'This will doing following posting
            <ROW ColumnNo="1" ColumnType="A" Param1="0" Param2="0" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;Current Mth&apos;&#013;end;"/>
'01. Cash Sales
            <ROW ColumnNo="2" ColumnType="A" Param1="-1" Param2="-1" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;1 Months&apos;&#013;end;"/>
'02. Sales Credit Note
            <ROW ColumnNo="3" ColumnType="A" Param1="-2" Param2="-2" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;2 Months&apos;&#013;end;"/>
'03. Customer Payment With Knock off
            <ROW ColumnNo="4" ColumnType="A" Param1="-3" Param2="-3" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;3 Months&apos;&#013;end;"/>
'04. Edit Credit Note Posted in Step 02 & Knock Off
            <ROW ColumnNo="5" ColumnType="A" Param1="-4" Param2="-4" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;4 Months&apos;&#013;end;"/>
Call CheckLogin
            <ROW ColumnNo="6" ColumnType="B" Param1="-999999" Param2="-5" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;5 Month &amp; above&apos;&#013;end;"/>
Call InsertData
            </ROWDATA></DATAPACKET>';
$lRptVar = $ComServer->RptObjects->Find('Customer.Statement.RO');
# $lRptVar->Params->Find('AgentData')->AsBlob              = ; #Not use if AllAgent is True
    $lRptVar->Params->Find('AgingData')->AsString          = $lSQL;
    $lRptVar->Params->Find('AgingOn')->AsString            = 'I'; #Fixed
    $lRptVar->Params->Find('AllAgent')->AsBoolean          = True;
    $lRptVar->Params->Find('AllArea')->AsBoolean            = True;
    $lRptVar->Params->Find('AllCompany')->AsBoolean        = True;
    $lRptVar->Params->Find('AllCompanyCategory')->AsBoolean = True;
    $lRptVar->Params->Find('AllControlAccount')->AsBoolean  = True;
    $lRptVar->Params->Find('AllCurrency')->AsBoolean        = True;
    $lRptVar->Params->Find('AllDocProject')->AsBoolean      = True;
#    $lRptVar->Params->Find('AreaData')->AsBlob            = ; #Not use if AllArea is True
#    $lRptVar->Params->Find('CompanyCategoryData')->AsBlob = ; #Not use if AllCompanyCategory is True
#    $lRptVar->Params->Find('CompanyData')->AsBlob        = ; #Not use if AllCompany is True
#    $lRptVar->Params->Find('ControlAccountData')->AsBlob  = ; #Not use if AllControlAccount is True
#    $lRptVar->Params->Find('CurrencyData')->AsBlob        = ; #Not use if AllCurrency is True
#    $lRptVar->Params->Find('DocProjectData')->AsBlob      = ; #Not use if AllDocProject is True
    $lRptVar->Params->Find('DateFrom')->AsDate              = '01 Sep 2024';
$lRptVar->Params->Find('DateTo')->AsDate                = '30 Sep 2024';
$lRptVar->Params->Find('StatementDate')->AsDate        = '30 Sep 2024'; # Norm same as DateTo
$lRptVar->Params->Find('SelectDate')->AsBoolean        = True;
    $lRptVar->Params->Find('IncludeZeroBalance')->AsBoolean = False;
    $lRptVar->Params->Find('SortBy')->AsString              = 'CompanyCategory;Code;CompanyName;Agent;Area;CurrencyCode;ControlAccount';
    $lRptVar->Params->Find('StatementType')->AsString      = 'O'; #O := Open Item, B := B/F
   
$lRptVar->CalculateReport();
$lDataSet = $lRptVar->DataSets->Find('cdsMain');
$lDataSet2 = $lRptVar->DataSets->Find('cdsDocument');
$lDataSetCO = $lRptVar->DataSets->Find('cdsCompany');


Dim ComServer
    if ($lDataSet->RecordCount > 0) {
echo "Main Data"."<br>";
SetGrid($lDataSet);
echo "Detail Invoice"."<br>";
SetGrid($lDataSet2);


Function CreateSQLAccServer
echo "Company Information"."<br>";
  Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
SetGrid($lDataSetCO);
End Function


function CheckLogin
}else {
  'Step 1: Create Com Server object
     echo "Record Not Found";
  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
if (isset($_POST['BtnData']))
Dim BizObject, lMain, lDetail, lDate
{
  'Step 2: Find and Create the Biz Objects
    try
  Set BizObject = ComServer.BizObjects.Find("SL_CS")  
    {
 
        CheckLogin();
  'Step 3: Set Dataset
        GetData();
  Set lMain  = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data
echo "<br>";
  Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data 
        echo date("d M Y h:i:s A")." - Done";
 
    }
  'Begin Looping yr data
    finally
  'Step 4 : Insert Data - Master
    {
  lDate = CDate("January 1, 2017")
        $ComServer->Logout();
  BizObject.New
        #free the object
  lMain.FindField("DocKey").value         = -1
        $ComServer = null;
  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"
    <form method="post">         
  lMain.FindField("Address1").AsString    = "" 'Optional
         <input type="submit" name="BtnData"
  lMain.FindField("Address2").AsString    = "" 'Optional
                value="Get Data"/>
  lMain.FindField("Address3").AsString    = "" 'Optional
    </form>
  lMain.FindField("Address4").AsString    = "" 'Optional
</body>
  lMain.FindField("Phone1").AsString      = "" 'Optional
</html>
  lMain.FindField("Description").AsString = "Sales"
</syntaxhighlight>
|}
<div style="float: right;">  [[#top|[top]]]</div>
 
====AP_SP-Add, Edit & Delete====
{| class="mw-collapsible mw-collapsed wikitable"
! AP_SP-Add, Edit & Delete Script
|-
|
<syntaxhighlight lang="PHP">
<!DOCTYPE html>
<html>
<body>
 
<h1>SQL Acc SDK in PHP page</h1>
 
<?php 
echo "Updated 16 Nov 2024<br>";
$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
      
      
  'Step 5: Insert Data - Detail
}
  'For Tax Inclusive = True with override Tax Amount
 
  lDetail.Append
function PostData(){
  lDetail.FindField("DtlKey").value        = -1
global $ComServer;
  lDetail.FindField("DocKey").value        = -1
  lDetail.FindField("Seq").value            = 1
    $BizObject = $ComServer->BizObjects->Find("AP_SP");
  lDetail.FindField("Account").AsString     = "500-000" 'Sales Account
    $lMain = $BizObject->DataSets->Find("MainDataSet"); #lMain contains master data
  lDetail.FindField("Description").AsString = "Sales Item A"
    $lDetail = $BizObject->DataSets->Find("cdsKnockOff"); #lDetail contains detail data
  lDetail.FindField("Qty").AsFloat          = 1
  lDetail.FindField("Tax").AsString        = "SR"
    #Find PV Number
  lDetail.FindField("TaxRate").AsString     = "6%"
     $lDocNo = "--PV Test--";
  lDetail.FindField("TaxInclusive").value  = 0
$lCode = "400-C0001";
  lDetail.FindField("UnitPrice").AsFloat    = 435
$V = array($lDocNo, $lCode);  #DocNo, Supplier Code
  lDetail.FindField("Amount").AsFloat      = 410.37 'Exclding GST Amt
     $lDocKey = $BizObject->FindKeyByRef("DocNo;Code", $V);
  lDetail.FindField("TaxAmt").AsFloat      = 24.63
 
if ($lDocKey != null){
  lDetail.DisableControls
        echo "Dockey = ".$lDocKey."<br>";
  lDetail.FindField("TaxInclusive").value  = 1
$BizObject->Params->Find("DocKey")->AsString = $lDocKey;
  lDetail.EnableControls
$BizObject->Open();
 
         $BizObject->Edit();
  lDetail.Post
         $lMain->Edit();
 
    $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2024-09-23")); #YYYY-MM-DD
  'For Tax Inclusive = False with override Tax Amount
        $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2024-09-23")); #YYYY-MM-DD
  lDetail.Append
        $lMain->FindField("Description")->AsString = "Payment for A/c - Edited";
  lDetail.FindField("DtlKey").value         = -1
$lMain->FindField("DocAmt")->AsFloat = 550.00;
  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
        #Knock Off IV 
  lDetail.Append
        $V = array("PI", "--PI Test--");  #DocType, DocNo
  lDetail.FindField("DtlKey").value        = -1
  lDetail.FindField("DocKey").value        = -1
if ($lDetail->Locate("DocType;DocNo", $V, False, False)) {
  lDetail.FindField("Seq").value            = 3
$lDetail->Edit();
  lDetail.FindField("ItemCode").AsString   = "ANT"
        $lDetail->FindField("KOAmt")->AsFloat = 550;
  lDetail.FindField("Description").AsString = "Sales Item B"
        $lDetail->FindField("KnockOff")->AsString = "T";
  'lDetail.FindField("Account").AsString     = "500-000" 'If you wanted override the Sales Account Code
        $lDetail->Post();
  lDetail.FindField("Qty").AsFloat          = 2
}
  lDetail.FindField("UOM").AsString        = "UNIT"
} else {
  'lDetail.FindField("DISC").AsString        = "5%+3" 'Optional (eg 5% plus 3 Discount)
      echo "New Payment<br>";
  lDetail.FindField("Tax").AsString         = "SR"
  $BizObject->New();
  lDetail.FindField("TaxRate").AsString     = "6%"
      $lMain->FindField("DocKey")->value = -1;
  lDetail.FindField("TaxInclusive").value  = 0
      $lMain->FindField("DocNo")->AsString = $lDocNo;
  lDetail.FindField("UnitPrice").AsFloat   = 100 
  $lMain->FindField("Code")->AsString = $lCode; #Supplier Account
  lDetail.FindField("Amount").AsFloat       = 200
  $lMain->FindField("DocDate")->value = date("d-m-Y", strtotime("2024-09-23")); #YYYY-MM-DD
  lDetail.FindField("TaxAmt").AsFloat      = 12
      $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2024-09-23"));  #YYYY-MM-DD
  lDetail.Post
      $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 6: Save Document
      #Knock Off IV 
  BizObject.Save
      $V = array("PI", "--PI Test--");  #DocType, DocNo
  BizObject.Close
 
 
  if ($lDetail->Locate("DocType;DocNo", $V, False, False)) {
  'Step 7: Payment
  $lDetail->Edit();
  Call InsertARPM
  $lDetail->FindField("KOAmt")->AsFloat = 200.0;
 
  $lDetail->FindField("KnockOff")->AsString = "T";
  'Step 8: Credit Note
  $lDetail->Post();
  Call InsertSLCN
  }
  'End Looping yr data
   
}
    $BizObject->Save();
echo "Save with DocNo ".$lMain->FindField("DocNo")->AsString."<br>";
echo date("d M Y h:i:s A")." - Posting Done<br>";
    $BizObject->Close();
}


  'Step 9 : Logout after done  
function DelData(){
  'ComServer.Logout
global $ComServer;
 
  MsgBox "Done"
$BizObject = $ComServer->BizObjects->Find("AP_SP");
End Function
    $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."<br>";
$BizObject->Params->Find("DocKey")->AsString = $lDocKey;
$BizObject->Open();
        $BizObject->Delete();
echo date("d M Y h:i:s A")." - Record deleted<br>";
} else {
echo date("d M Y h:i:s A")." - Document Not Found<br>";
}
}


Function InsertARPM
if (isset($_POST['BtnData']))
Dim BizObject, lMain, lDetail, lDate, v(1)
{
  'Step 2: Find and Create the Biz Objects
     try
  Set BizObject = ComServer.BizObjects.Find("AR_PM")
     {
        CheckLogin();
  'Step 3: Set Dataset
         echo date("d M Y h:i:s A")." - Begin Posting<br>";
  Set lMain = BizObject.DataSets.Find("MainDataSet")   'lMain contains master data
        PostData();
  Set lDetail = BizObject.DataSets.Find("cdsKnockOff") 'lDetail contains detail data 
echo date("d M Y h:i:s A")." - Done<br>";
 
     }
  'Step 4 : Posting
     finally
     lDate = CDate("January 23, 2017")
     {
     BizObject.New
        $ComServer->Logout();
    lMain.FindField("DOCKEY").Value          = -1
        #free the object
    lMain.FindField("DocNo").AsString         = "--PM Test--"
        $ComServer = null;
    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
if (isset($_POST['BtnDel']))
Dim BizObject, lMain, lDetail, lDate
{
  'Step 2: Find and Create the Biz Objects
    try
  Set BizObject = ComServer.BizObjects.Find("SL_CN")  
    {
        CheckLogin();
        echo date("d M Y h:i:s A")." - Begin Delete<br>";
        DelData();
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}


  'Step 3: Set Dataset
?>
  Set lMain  = BizObject.DataSets.Find("MainDataSet")  'lMain contains master data
    <form method="post">         
  Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data 
        <input type="submit" name="BtnData"
 
                value="Add & Edit AP SP"/>
  'Step 4 : Insert Data - Master
         <input type="submit" name="BtnDel"
  lDate = CDate("January 24, 2017")
                value="Delete AP SP"/>
  BizObject.New
    </form>
  lMain.FindField("DocKey").value         = -1
</body>
  lMain.FindField("DocNo").AsString      = "--CN Test--"
</html>
  lMain.FindField("DocDate").value       = lDate
</syntaxhighlight>
  lMain.FindField("PostDate").value      = lDate
|}
  lMain.FindField("Code").AsString        = "300-C0001"
<div style="float: right;">   [[#top|[top]]]</div>
  lMain.FindField("CompanyName").AsString = "Cash Sales"
<br>
  lMain.FindField("Address1").AsString    = ""
 
  lMain.FindField("Address2").AsString    = ""
===Node JS===
  lMain.FindField("Address3").AsString    = ""
: Module Require in Node JS
  lMain.FindField("Address4").AsString    = ""
:- Winax (Mandatory) -> npm install winax
   lMain.FindField("Phone1").AsString      = "" 
 
  lMain.FindField("Description").AsString = "Sales Returned"
====Common====
   
* Common.js file for example code
  '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
{| class="mw-collapsible mw-collapsed wikitable"
   BizObject.Save
! Common Function
   BizObject.Close
|-
    
|
   'Step 7: Knock Off Invoice
<syntaxhighlight lang="nodejsrepl">
  Call KnockIV
/* Updated 31 Jul 2023 */
End Function
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', */
'D:\\Happy\\DB\\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);
    }
}


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
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====AR_IV====
====Get Company Profile====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! AR_IV Script 
! Get Company Profile
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="nodejsrepl">
'Copy below script & paste to notepad & name it as eg AR_IV.vbs
/* Updated 22 Jul 2023 */
Call InsertARIV
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);
}


Function CreateSQLAccServer
try{
  Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
ComServer = Common.CreateSQLAccServer();
End Function
GetData();
ComServer.Logout();
} catch(e){
console.error(e.message)
} finally {
Common.KillApp();
}
</syntaxhighlight>
|}
<div style="float: right;">  [[#top|[top]]]</div>


Function InsertARIV
====Complete Post====
Dim ComServer, BizObject, lDataSet, lDataSet2, lDate
{| class="mw-collapsible mw-collapsed wikitable"
! Complete Post
|-
|
<syntaxhighlight lang="nodejsrepl">
/* 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;


   'Step 1: Create Com Server object
function PostDataCS() {
   Set ComServer = CreateSQLAccServer 'Create Com Server
   var BizObject, lMain, lDetail;
  If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   BizObject = ComServer.BizObjects.Find('SL_CS') ;
    ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"
  END IF


   'Step 2: Find and Create the Biz Objects
   lMain  = BizObject.DataSets.Find('MainDataSet');  /*lMain contains master data*/
   Set BizObject = ComServer.BizObjects.Find("AR_IV")  
   lDetail = BizObject.DataSets.Find('cdsDocDetail'); /*lDetail contains detail data */


   'Step 3: Set Dataset
   /*Begin Looping yr data*/
   Set lMainDataSet = BizObject.DataSets.Find("MainDataSet")   'lMainDataSet contains master data
  /*Insert Data - Master*/
   Set lDetailDataSet = BizObject.DataSets.Find("cdsDocDetail") 'lDetailDataSet contains detail data 
   BizObject.New();
 
   lMain.FindField('DocNo').AsString      = "--CS Test--";
   'Step 4 : Insert Data - Master
   lMain.FindField('DocDate').value        = "20/12/2022";
  lDate = CDate("January 1, 2016")
   lMain.FindField('PostDate').value      = "20/12/2022";
   BizObject.New
   lMain.FindField('Code').AsString        = "300-C0001"; /*Customer Account*/
   lMainDataSet.FindField("DocKey").value = -1
   lMain.FindField('CompanyName').AsString = "Cash Sales"
   lMainDataSet.FindField("DocNo").value = "--IV Test--"
  lMain.FindField('Address1').AsString    = ""; /*Optional*/
   lMainDataSet.FindField("DocDate").value = lDate
   lMain.FindField('Address2').AsString    = ""; /*Optional*/
   lMainDataSet.FindField("PostDate").value = lDate
  lMain.FindField('Address3').AsString    = ""; /*Optional*/
   lMainDataSet.FindField("Code").value = "300-A0003"
   lMain.FindField('Address4').AsString    = ""; /*Optional*/
   lMainDataSet.FindField("Description").value = "Sales"
   lMain.FindField('Phone1').AsString      = ""; /*Optional*/
   
   lMain.FindField('Description').AsString = "Sales";
   'Step 5: Insert Data - Detail
 
   'For Tax Inclusive = True with override Tax Amount
   /*Insert Data - Detail*/
   lDetailDataSet.Append
   /*For Tax Inclusive = True with override Tax Amount*/
  lDetailDataSet.FindField("DtlKey").value = -1
   lDetail.Append();
   lDetailDataSet.FindField("DocKey").value = -1
   lDetail.FindField('Seq').value           = 1;
   lDetailDataSet.FindField("Account").value = "500-000"
   lDetail.FindField('Account').AsString    = "500-000"; /*Sales Account*/
   lDetailDataSet.FindField("Description").value = "Sales Item A"
   lDetail.FindField('Description').AsString = "Sales Item A";
   lDetailDataSet.FindField("Tax").value = "SR"
  lDetail.FindField('Qty').AsFloat          = 1;
   lDetailDataSet.FindField("TaxInclusive").value = 0
   lDetail.FindField('Tax').AsString        = "SV";
   lDetailDataSet.FindField("Amount").value = 410.37
  lDetail.FindField('TaxRate').AsString    = "6%";
   lDetailDataSet.FindField("TaxAmt").value = 24.63
   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;
    
    
   lDetailDataSet.DisableControls
   lDetail.DisableControls();
   lDetailDataSet.FindField("TaxInclusive").value = 1
   lDetail.FindField('TaxInclusive').value   = 1;
   lDetailDataSet.EnableControls
   lDetail.EnableControls();
    
    
   lDetailDataSet.FindField("Changed").value = "F"
   lDetail.Post();
  lDetailDataSet.Post
    
    
   'For Tax Inclusive = False with override Tax Amount
   /*For Tax Inclusive = False with override Tax Amount*/
   lDetailDataSet.Append
   lDetail.Append();
   lDetailDataSet.FindField("DtlKey").value = -1
   lDetail.FindField('Seq').value           = 2;
   lDetailDataSet.FindField("DocKey").value = -1
  lDetail.FindField('Account').AsString    = "500-000";
   lDetailDataSet.FindField("Account").value = "500-000"
   lDetail.FindField('Description').AsString = "Sales Item B";
   lDetailDataSet.FindField("Description").value = "Sales Item B"
  lDetail.FindField('Qty').AsFloat          = 1;
   lDetailDataSet.FindField("Tax").value = "SR"
   lDetail.FindField('Tax').AsString        = "SV";
   lDetailDataSet.FindField("TaxInclusive").value = 0
  lDetail.FindField('TaxRate').AsString    = "6%";
   lDetailDataSet.FindField("Amount").value = 94.43
  lDetail.FindField('TaxInclusive').value  = 0;
   lDetailDataSet.FindField("TaxAmt").value = 5.66
  lDetail.FindField('UnitPrice').AsFloat    = 94.43;
   lDetailDataSet.FindField("Changed").value = "F"
  lDetail.FindField('Amount').AsFloat      = 94.43;
   lDetailDataSet.Post
  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(); 
}


  'Step 6: Save Document
function PostDataPM() {
   BizObject.Save
   var BizObject, lMain, lDetail, v;
   BizObject.Close
   
  MsgBox "Done"
   BizObject = ComServer.BizObjects.Find('AR_PM') ;
End Function
</syntaxhighlight>
|}


<div style="float: right;">   [[#top|[top]]]</div>
  lMain  = BizObject.DataSets.Find('MainDataSet'); /*lMain contains master data*/
 
   lDetail = BizObject.DataSets.Find('cdsKnockOff'); /*lDetail contains detail data */
====AR_IV-Edit====
 
{| class="mw-collapsible mw-collapsed wikitable"
  BizObject.New();
! AR_IV Edit Script  
 
|-
  lMain.FindField('DocNo').AsString        = "--PM Test--";
|
  lMain.FindField('Code').AsString          = "300-C0001";
<syntaxhighlight lang="vb">
  lMain.FindField('DocDate').value          = "20/12/2022";
'Available in Version 5.2018.833.759 & above
  lMain.FindField('PostDate').value        = "20/12/2022";
'Copy below script & paste to notepad & name it as eg AR_IV.vbs
  lMain.FindField('Description').AsString  = "Payment for A/";
Call CheckLogin
  lMain.FindField('PaymentMethod').AsString = "320-000"; /*Bank or Cash Account*/
Call GetData
  lMain.FindField('ChequeNumber').AsString = "";
Call PostData
  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();
}


Dim ComServer, lDataSet
function PostDataCN() {
  var BizObject, lMain, lDetail;
  BizObject = ComServer.BizObjects.Find('SL_CN') ;


Function CreateSQLAccServer
  lMain  = BizObject.DataSets.Find('MainDataSet');  /*lMain contains master data*/
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   lDetail = BizObject.DataSets.Find('cdsDocDetail'); /*lDetail contains detail data */
End Function


function CheckLogin
  /*Begin Looping yr data*/
   'Step 1: Create Com Server object
   /*Insert Data - Master*/
   Set ComServer = CreateSQLAccServer 'Create Com Server
   BizObject.New();
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   lMain.FindField('DocNo').AsString      = "--CN Test--";
    ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"
  lMain.FindField('DocDate').value        = "21/12/2022";
                'UserName, Password, DCF full path, Database filename
  lMain.FindField('PostDate').value      = "21/12/2022";
  END IF
   lMain.FindField('Code').AsString        = "300-C0001"; /*Customer Account*/
End Function
   lMain.FindField('CompanyName').AsString = "Cash Sales"
 
  lMain.FindField('Address1').AsString    = ""; /*Optional*/
Function GetData
   lMain.FindField('Address2').AsString    = ""; /*Optional*/
Dim lSQL
   lMain.FindField('Address3').AsString    = ""; /*Optional*/
  lSQL = "SELECT Dockey FROM AR_IV "
   lMain.FindField('Address4').AsString    = ""; /*Optional*/
   lSQL = lSQL & "WHERE DocNo='IV-00002' "
   lMain.FindField('Phone1').AsString      = ""; /*Optional*/
   Set lDataSet = ComServer.DBManager.NewDataSet(lSQL)
   lMain.FindField('Description').AsString = "Sales Returned";
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
   /*Insert Data - Detail*/ 
   If lDataSet.RecordCount > 0 Then    
  /*For With Item Code*/
lDataSet.First
  lDetail.Append();
    BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString
  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 */
    
    
    BizObject.Open
  /* Find CN Number */
    BizObject.Edit
  lDocNo = "--CN Test--"
    lMain.Edit
  lDocKey = BizObject.FindKeyByRef('DocNo', lDocNo);
lMain.FindField("Description").AsString = "Sales - Edited"
  BizObject.Params.Find('DocKey').Value = lDocKey;
    
    
   'Step 5: Delete all Detail
   if (lDocKey != null) {
    While lDetail.RecordCount <> 0
  BizObject.Open();
      lDetail.First
  BizObject.Edit();
  lDetail.Delete
  lMain.Edit();
    Wend
 
  'Step 6: Append Detail
  v = ComServer.CreateOleVariantArray(2);
  lDetail.Append 
  v.SetItem(0, 'IV'); /*Knock Off DocType IV or DN*/
  lDetail.FindField("DtlKey").value = -1
  v.SetItem(1, '--CS Test--'); /*Knock Off DocNo*/
  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
  if (lDetail.Locate('DocType;DocNo', v.AsOleVariant(), false, false)){
  lDetail.FindField("TaxInclusive").value =  1
  lDetail.Edit();
   lDetail.EnableControls
      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();
    
    
   lDetail.FindField("Changed").value = "F"
   lMain.FindField('DocNo').AsString        = "--CF Test--";
   lDetail.Post
  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";
    
    
   'Step 7: Save Document
   v = ComServer.CreateOleVariantArray(2);
    BizObject.Save
  v.SetItem(0, 'CN'); /*Knock Off DocType*/
    BizObject.Close
  v.SetItem(1, '--CN Test--'); /*Knock Off DocNo*/
    
    
   'Step 8 : Logout after done 
   if (lDetail.Locate('DocType;DocNo', v.AsOleVariant(), false, false)){
    'ComServer.Logout 
      lDetail.Edit();
     MsgBox "Done"  
      lDetail.FindField('KOAmt').AsFloat     = "4"; /*Partial Knock Off*/  
Else
      lDetail.FindField('KnockOff').AsString = 'T';
MsgBox "Record Not Found"
      lDetail.Post();
   END IF
  }
End Function
    /* Save document */ 
</syntaxhighlight>
   BizObject.Save();
|}
  BizObject.Close();
}


<div style="float: right;">  [[#top|[top]]]</div>
try{
 
ComServer = Common.CreateSQLAccServer();
====AR_PM====
console.log("Posting Cash Sales");
{| class="mw-collapsible mw-collapsed wikitable"
    PostDataCS();
! AR_PM Script 
    console.log("Posting Payment");
|-
     PostDataPM();
|
     console.log("Posting Sales CN");
<syntaxhighlight lang="vb">
     PostDataCN();
'Copy below script & paste to notepad & name it as eg AR_PM.vbs
     console.log("Posting Knock Off CN");
Call PostData
     PostKnockIVCN();
     console.log("Posting Customer Refund");
Function CreateSQLAccServer
     PostDataCF();
  Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
     console.log("Done");
End Function
ComServer.Logout();
} catch(e){
Function PostData
console.error(e.message)
Dim ComServer, BizObject, lIVNo, v(1), lDate
} finally {
Common.KillApp();
  '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
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====AR_PM-Edit====
====Get Picture & Description3(Rich Text)====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! AR_PM Edit Script
! Get Picture & Description3(Rich Text) Script  
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="nodejsrepl">
'Copy below script & paste to notepad & name it as eg AR_IV.vbs
/* Updated 31 Jul 2023 */
Call EditARPM
var Common = require('./Common');
var ComServer, lDataSet;
Function CreateSQLAccServer
const fs = require('fs');
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
 
End Function
function saveImage(filename, data){
   var myBuffer = new Buffer.alloc(data.length);
Function EditARPM
  for (var i = 0; i < data.length; i++) {
Dim ComServer, BizObject, lDataSet, lDataSet2, lDocKey, lDocNo, lIVNo, v(1)
      myBuffer[i] = data[i];
  }
   'Step 1: Create Com Server object
  fs.writeFile(filename, myBuffer, function(err) {
  Set ComServer = CreateSQLAccServer 'Create Com Server
      if(err) {
  If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
          console.log(err);
     ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"
      } else {
  END IF
          console.log("The Image file was saved!");
      }
   'Step 2: Find and Create the Biz Objects
   });
   Set BizObject = ComServer.BizObjects.Find("AR_PM")  
}
 
   'Step 3: Set Dataset
function ExpFile(AFName, AData){
   Set lMainDataSet = BizObject.DataSets.Find("MainDataSet")   'lMainDataSet contains master data
const FN = new console.Console(fs.createWriteStream(AFName));
   Set lDetailDataSet = BizObject.DataSets.Find("cdsKnockOff") 'lDetailDataSet contains detail data 
     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);
    
    
   'Step 4 : Find OR Number
   ExpFile('./output.rtf', rtf);
  lDocNo = "OR-00022"
  lDocKey = BizObject.FindKeyByRef("DocNo", lDocNo)
  BizObject.Params.Find("DocKey").Value = lDocKey
    
    
   If not IsNull(lDocKey) Then
   txt = ComServer.Utility.RichTextToPlainText(rtf);
    BizObject.Open
  Common.ShowMsg(txt);
    BizObject.Edit
  /* console.log(txt); <= Not support Unicode */
    lMainDataSet.Edit
    
lMainDataSet.FindField("Description").AsString = "testing"
  ExpFile('./output.txt', txt); 
   'Step 5: Knock Off IV
  console.log('Done Export');
    lIVNO = "IV-00006"
 
    v(0) = "IV"
  saveImage("./Pic.jpg", lDataSet.FindField('Picture').Value);
    v(1) = lIVNO
}
 
    if (lDetailDataSet.Locate("DocType;DocNo", v, false, false)) then
try{
      lDetailDataSet.Edit
ComServer = Common.CreateSQLAccServer();
      lDetailDataSet.FindField("KOAmt").value = 50.12
GetData();
      lDetailDataSet.FindField("KnockOff").AsString = "T"
ComServer.Logout();
      lDetailDataSet.Post
} catch(e){
  MsgBox "yes"
console.error(e.message)
End IF 
} finally {
  'Step 6: Save Document
Common.KillApp();
    BizObject.Save
}
    BizObject.Close
    MsgBox "Done"
  END IF
End Function
</syntaxhighlight>
</syntaxhighlight>
|}
|}


<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>
 
====Get Stock Qty Balance====
====Customer.RO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Customer.RO Report Object Script
! Get Stock Qty Balance Script  
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="nodejsrepl">
'Copy below script & paste to notepad & name it as eg customer_ro.vbs
/* Updated 18 Jan 2024 */
Call GetCustomerData
var Common = require('./Common');
var ComServer;


Function CreateSQLAccServer
function GetListData() {
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   var lSQL, lDataSet;
End Function
  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);
}


Function GetCustomerData
try{
Dim ComServer, RptObject, lDataSet, lDataSet2, lDateFrom, lDateTo
ComServer = Common.CreateSQLAccServer();
  'Step 1: Create Com Server object
GetListData();
  Set ComServer = CreateSQLAccServer 'Create Com Server
ComServer.Logout();
  If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
} catch(e){
    ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"
console.error(e.message)
  END IF
} finally {
 
Common.KillApp();
  '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
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Customer.Statement.RO====
====SO to DO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Customer.Statement.RO  Report Object Script
! SO to DO Script  
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="nodejsrepl">
'Copy below script & paste to notepad & name it as eg customer_statement_ro.vbs
/*Updated 26 Apr 2024*/
Call GetCustStatementData
var Common = require('./Common');
var ComServer;
Function CreateSQLAccServer
 
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
function PostData() {
End Function
  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 */  


Function GetCustStatementData
  BizObject.New();
Const Quote = """"
  lMain.FindField('DocNo').AsString      = "<<New>>";
Dim ComServer, RptObject, lDataSet, lDataSet2, lDateFrom, lDateTo, lAgeData
      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();
}
</syntaxhighlight>
|}
<div style="float: right;">  [[#top|[top]]]</div>
<br />
 
===VB Script===
====Get Company Profile====
{| class="mw-collapsible mw-collapsed wikitable"
! Company Profile Script 
|-
|
<syntaxhighlight lang="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
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
Line 6,666: Line 7,018:
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
   END IF
   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")


   'Step 2: Find and Create the Report Objects
   MsgBox "Count " & lDataSet.RecordCount
  Set RptObject = ComServer.RptObjects.Find("Customer.Statement.RO")
   
   
   'Step 3: Spool parameters
   'Step 5 Retrieve the output
  lAgeData = "<?xml version=" & Quote & "1.0" & Quote & " standalone=" & Quote & "yes" & Quote & "?>  <DATAPACKET Version=" & Quote & "2.0" & Quote & "><METADATA><FIELDS>" &_
   lDataSet.First
      "<FIELD attrname=" & Quote & "ColumnNo" & Quote & " fieldtype=" & Quote & "i4" & Quote & " required=" & Quote & "true" & Quote & "/><FIELD attrname=" & Quote & "ColumnType" & Quote & " fieldtype=" & Quote & "string" & Quote & " WIDTH=" & Quote & "1" & Quote & "/>" &_
   While (not lDataSet.eof)
      "<FIELD attrname=" & Quote & "Param1" & Quote & " fieldtype=" & Quote & "i4" & Quote & " required=" & Quote & "true" & Quote & "/><FIELD attrname=" & Quote & "Param2" & Quote & " fieldtype=" & Quote & "i4" & Quote & " required=" & Quote & "true" & Quote & "/>" &_
MsgBox "Company Name : " & lDataSet.FindField("CompanyName").AsString
      "<FIELD attrname=" & Quote & "IsLocal" & Quote & " fieldtype=" & Quote & "boolean" & Quote & "/><FIELD attrname=" & Quote & "HeaderScript" & Quote & " fieldtype=" & Quote & "bin.hex" & Quote & " SUBTYPE=" & Quote & "Text" & Quote & " WIDTH=" & Quote & "1" & Quote & "/>" &_
      "</FIELDS><PARAMS/></METADATA><ROWDATA><ROW ColumnNo=" & Quote & "0" & Quote & " ColumnType=" & Quote & "" & Quote & " Param1=" & Quote & "0" & Quote & " Param2=" & Quote & "0" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & "/>" &_
MsgBox "Remark : " & lDataSet.FindField("Remark").AsString
      "<ROW ColumnNo=" & Quote & "1" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "0" & Quote & " Param2=" & Quote & "0" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;Current Mth&apos;&#013;end;" & Quote & "/>" &_
 
      "<ROW ColumnNo=" & Quote & "2" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-1" & Quote & " Param2=" & Quote & "-1" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;1 Months&apos;&#013;end;" & Quote & "/>" &_
MsgBox "ROC No : " & lDataSet.FindField("RegisterNo").AsString
      "<ROW ColumnNo=" & Quote & "3" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-2" & Quote & " Param2=" & Quote & "-2" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;2 Months&apos;&#013;end;" & Quote & "/>" &_
      "<ROW ColumnNo=" & Quote & "4" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-3" & Quote & " Param2=" & Quote & "-3" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;3 Months&apos;&#013;end;" & Quote & "/>" &_
      "<ROW ColumnNo=" & Quote & "5" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-4" & Quote & " Param2=" & Quote & "-4" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;4 Months&apos;&#013;end;" & Quote & "/>" &_
      "<ROW ColumnNo=" & Quote & "6" & Quote & " ColumnType=" & Quote & "B" & Quote & " Param1=" & Quote & "-999999" & Quote & " Param2=" & Quote & "-5" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;5 Month &amp; above&apos;&#013;end;" & Quote & "/>" &_
      "</ROWDATA></DATAPACKET>"
'  RptObject.Params.Find("AgentData").Value            =  'Not use if AllAgent is True
   RptObject.Params.Find("AgingData").Value            = lAgeData 'Fixed
   RptObject.Params.Find("AgingOn").Value              = "I" 'Fixed
  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("AllControlAccount").Value    = true
  RptObject.Params.Find("AllCurrency").Value          = true
  RptObject.Params.Find("AllDocProject").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-A0001"& vbCRLF & "300-C0001" 'Filter by Customer Code 300-A0001 & 300-C0001
'  RptObject.Params.Find("ControlAccountData").Value  =  'Not use if AllControlAccount is True
'  RptObject.Params.Find("CurrencyData").Value        =  'Not use if AllCurrency is True
  lDateFrom = CDate("August 1, 2016")
  lDateTo = CDate("August 31, 2016")
  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("IncludeZeroBalance").Value  = false
  RptObject.Params.Find("SelectDate").Value          = true
  RptObject.Params.Find("SortBy").Value              = "CompanyCategory;Code;CompanyName;Agent;Area;CurrencyCode;ControlAccount"
  RptObject.Params.Find("StatementDate").Value        = lDateTo ' Norm same as DateTo
  RptObject.Params.Find("StatementType").Value        = "O" 'O = Open Item, B = B/F
  'Step 4: Perform Report calculation
  RptObject.CalculateReport()
  Set lDataSet = RptObject.DataSets.Find("cdsMain")
  Set lDataSet2 = RptObject.DataSets.Find("cdsDocument")
  MsgBox "Count " & lDataSet.RecordCount


  'Step 5 Retrieve the output
MsgBox "GST No : " & lDataSet.FindField("GSTNo").AsString
  lDataSet.First
  While (not lDataSet.eof)
MsgBox "Address 1 : " & lDataSet.FindField("Address1").AsString
    MsgBox lDataSet.FindField("Code").AsString & " " & lDataSet.FindField("CompanyName").AsString & " " & lDataSet.FindField("Balance").AsString
lDataSet2.First
MsgBox "Address 2 : " & lDataSet.FindField("Address2").AsString
    While (not lDataSet2.eof)
  MsgBox lDataSet2.FindField("DocNo").AsString
MsgBox "Address 3 : " & lDataSet.FindField("Address3").AsString
  lDataSet2.Next
    Wend
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
lDataSet.Next
   Wend
   Wend
  'Step 6 : Logout after done 
  ComServer.Logout   
End Function
End Function
</syntaxhighlight>
</syntaxhighlight>
Line 6,732: Line 7,066:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====GL.CB.RO====
====Complete Post====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! GL.CB.RO  Report Object Script   
! SL_CS, AR_PM, SL_CN & AR_CN Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg GL.CB.RO.vbs
'Updated 13 Sep 2018
Call GetCLCBData
'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
Function CreateSQLAccServer
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function
 
Function GetCLCBData
function CheckLogin
Dim ComServer, RptObject, lDataSet, lDataSet2, lDataSet3, lDateFrom, lDateTo
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
     ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"
                'UserName, Password, DCF full path, Database filename
   END IF
   END IF
End Function
   'Step 2: Find and Create the Report Objects
 
   Set RptObject = ComServer.RptObjects.Find("GL.CB.RO")  
Function InsertData
Dim BizObject, lMain, lDetail, lDate
   'Step 3: Spool parameters
   'Step 2: Find and Create the Biz Objects
   RptObject.Params.Find("AllCurrency").Value    = true
   Set BizObject = ComServer.BizObjects.Find("SL_CS")  
  RptObject.Params.Find("AllDocProject").Value = true
 
   RptObject.Params.Find("AllDocument").Value    = true
   'Step 3: Set Dataset
  RptObject.Params.Find("AllItemProject").Value = true
   Set lMain  = BizObject.DataSets.Find("MainDataSet")  'lMain contains master data
  RptObject.Params.Find("AllItemArea").Value    = true
   Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data 
  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")
   'Begin Looping yr data
   lDateTo = CDate("December 31, 2017")
  'Step 4 : Insert Data - Master
  lDate = CDate("January 1, 2017")
   'For Post Date From & Date To'
   BizObject.New
   RptObject.Params.Find("DateFrom").Value = lDateFrom
  lMain.FindField("DocKey").value        = -1
   RptObject.Params.Find("DateTo").Value  = lDateTo
  lMain.FindField("DocNo").AsString      = "--IV Test--"
    
   lMain.FindField("DocDate").value        = lDate
   'RptObject.Params.Find("DocProjectData").Value  = 'Not use if AllDocProject is true
   lMain.FindField("PostDate").value      = lDate
   'RptObject.Params.Find("DocAreaData").Value    = 'Not use if AllDocArea is true
   lMain.FindField("Code").AsString        = "300-C0001" 'Customer Account
   'RptObject.Params.Find("DocAgentData").Value   = 'Not use if AllDocAgent is true
   lMain.FindField("CompanyName").AsString = "Cash Sales"
   'RptObject.Params.Find("ItemAgentData").Value  = 'Not use if AllItemAgent is true
   lMain.FindField("Address1").AsString    = "" 'Optional
   RptObject.Params.Find("DocType").Value          = "PV" 'PV for Payment Voucher & OR for Official Receipt
   lMain.FindField("Address2").AsString    = "" 'Optional
   'RptObject.Params.Find("DocumentData").Value    = 'Not use if AllDocument is true
   lMain.FindField("Address3").AsString   = "" 'Optional
   'RptObject.Params.Find("GroupBy").Value         = 'If you wanted to grouping the data
   lMain.FindField("Address4").AsString    = "" 'Optional
   RptObject.Params.Find("IncludeCancelled").Value = false
   lMain.FindField("Phone1").AsString      = "" 'Optional
   'RptObject.Params.Find("ItemAreaData").Value    = 'Not use if AllItemArea is true
   lMain.FindField("Description").AsString = "Sales"
   'RptObject.Params.Find("ItemProjectData").Value = 'Not use if AllItemProject is true
   
   RptObject.Params.Find("PaymentMethodData").Value  = "310-001"
  'Step 5: Insert Data - Detail
   RptObject.Params.Find("PrintDocumentStyle").Value = false
   'For Tax Inclusive = True with override Tax Amount
   RptObject.Params.Find("SelectDate").Value         = true 'For Post Date
  lDetail.Append
   'RptObject.Params.Find("SelectDocDate").Value     = 'For Doc Date
  lDetail.FindField("DtlKey").value         = -1
   RptObject.Params.Find("SortBy").Value            = "PostDate;DocNo"
   lDetail.FindField("DocKey").value        = -1
   lDetail.FindField("Seq").value            = 1
   'Step 4: Perform Report calculation
   lDetail.FindField("Account").AsString    = "500-000" 'Sales Account
  RptObject.CalculateReport()
   lDetail.FindField("Description").AsString = "Sales Item A"
   Set lDataSet = RptObject.DataSets.Find("cdsMain")
   lDetail.FindField("Qty").AsFloat          = 1
   Set lDataSet2 = RptObject.DataSets.Find("cdsDetail")
   lDetail.FindField("Tax").AsString         = "SR"
   Set lDataSet3 = RptObject.DataSets.Find("cdsTax")
   lDetail.FindField("TaxRate").AsString     = "6%"
   MsgBox "Count " & lDataSet.RecordCount
   lDetail.FindField("TaxInclusive").value  = 0
   lDetail.FindField("UnitPrice").AsFloat    = 435
   'Step 5 Retrieve the output
   lDetail.FindField("Amount").AsFloat      = 410.37 'Exclding GST Amt
   lDataSet.First
   lDetail.FindField("TaxAmt").AsFloat      = 24.63
   While (not lDataSet.eof)
    
    MsgBox lDataSet.FindField("DocNo").AsString & " " & lDataSet.FindField("Description").AsString
  lDetail.DisableControls
lDataSet2.First
  lDetail.FindField("TaxInclusive").value  = 1
    While (not lDataSet2.eof)
   lDetail.EnableControls
  MsgBox lDataSet2.FindField("Code").AsString & " " & lDataSet2.FindField("Description").AsString
 
  lDataSet2.Next
  lDetail.Post
    Wend
 
lDataSet.Next
   'For Tax Inclusive = False with override Tax Amount
   Wend
   lDetail.Append
   'For GST List
   lDetail.FindField("DtlKey").value        = -1
  MsgBox "GST Code Count " & lDataSet3.RecordCount
  lDetail.FindField("DocKey").value        = -1
   lDataSet3.First
  lDetail.FindField("Seq").value            = 2
  While (not lDataSet3.eof)
  lDetail.FindField("Account").AsString     = "500-000"
    MsgBox lDataSet3.FindField("Code").AsString
  lDetail.FindField("Description").AsString = "Sales Item B"
lDataSet3.Next
  lDetail.FindField("Qty").AsFloat          = 1
   Wend
  lDetail.FindField("Tax").AsString         = "SR"
End Function
  lDetail.FindField("TaxRate").AsString     = "6%"
</syntaxhighlight>
  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


<div style="float: right;">   [[#top|[top]]]</div>
  '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


====AR_Customer====
  'Step 6: Save Document
{| class="mw-collapsible mw-collapsed wikitable"
  BizObject.Save
! AR_Customer - Script 
  BizObject.Close
|-
 
|
  'Step 7: Payment
<syntaxhighlight lang="vb">
  Call InsertARPM
'Copy below script & paste to notepad & name it as eg AR_Customer.vbs
 
Call CheckLogin
  'Step 8: Credit Note
Call InsertData
  Call InsertSLCN
  'End Looping yr data


Dim ComServer
  'Step 9 : Logout after done 
 
  'ComServer.Logout
Function CreateSQLAccServer
 
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   MsgBox "Done"
End Function
End Function


function CheckLogin
Function InsertARPM
   'Step 1: Create Com Server object
Dim BizObject, lMain, lDetail, lDate, v(1)
   Set ComServer = CreateSQLAccServer 'Create Com Server
   'Step 2: Find and Create the Biz Objects
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   Set BizObject = ComServer.BizObjects.Find("AR_PM")
     ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"
                'UserName, Password, DCF full path, Database filename
  'Step 3: Set Dataset
   END IF
  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
End Function


Function InsertData
Function InsertSLCN
Dim BizObject, lMain, lDetail
Dim BizObject, lMain, lDetail, lDate
   'Step 2: Find and Create the Biz Objects
   'Step 2: Find and Create the Biz Objects
   Set BizObject = ComServer.BizObjects.Find("AR_Customer")  
   Set BizObject = ComServer.BizObjects.Find("SL_CN")  


   'Step 3: Set Dataset
   'Step 3: Set Dataset
   Set lMain  = BizObject.DataSets.Find("MainDataSet")  'lMain contains master data
   Set lMain  = BizObject.DataSets.Find("MainDataSet")  'lMain contains master data
   Set lDetail = BizObject.DataSets.Find("cdsBranch") 'lDetail contains detail data   
   Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data   
    
    
  'Begin Looping yr data
   'Step 4 : Insert Data - Master
   'Step 4 : Insert Data - Master
  lDate = CDate("January 24, 2017")
   BizObject.New
   BizObject.New
   lMain.FindField("Code").AsString       = "300-Test"
  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("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"
      
      
  'Step 5: Insert Data - Detail
   'For With Item Code
   'For 1st Branch
   lDetail.Append
   lDetail.Edit
   lDetail.FindField("DtlKey").value          = -1
   lDetail.FindField("BranchName").AsString  = "BILLING"
   lDetail.FindField("DocKey").value          = -1
   lDetail.FindField("Address1").AsString    = "Address1"
   lDetail.FindField("ItemCode").AsString     = "ANT"
   lDetail.FindField("Address2").AsString   = "Address2"
   lDetail.FindField("Description").AsString = "Sales Item B"
   lDetail.FindField("Address3").AsString   = "Address3"
   lDetail.FindField("Description2").AsString = "Product Spoil" 'Reason
   lDetail.FindField("Address4").AsString   = "Address4"
   lDetail.FindField("Remark1").AsString      = "--IV Test--"  'Invoice No
  lDetail.FindField("Attention").AsString  = "Attention" 
   lDetail.FindField("Remark2").AsString     = "01 Jan 2017"  'Invoice Date
   lDetail.FindField("Phone1").AsString      = "Phone1"
   lDetail.FindField("Qty").AsFloat          = 1
   lDetail.FindField("Fax1").AsString        = "Fax1"
   lDetail.FindField("Tax").AsString         = "SR"
   lDetail.FindField("Email").AsString       = "EmailAddress"
   lDetail.FindField("TaxRate").AsString     = "6%"
  lDetail.Post
   lDetail.FindField("TaxInclusive").value   = 0
 
   lDetail.FindField("UnitPrice").AsFloat    = 100
   'For 2nd Branch
   lDetail.FindField("Amount").AsFloat        = 100
  lDetail.Append
   lDetail.FindField("TaxAmt").AsFloat       = 6 
   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
   lDetail.Post


Line 6,892: Line 7,282:
   BizObject.Save
   BizObject.Save
   BizObject.Close
   BizObject.Close
  'End Looping yr data
  'Step 7 : Logout after done 
  'ComServer.Logout
    
    
   MsgBox "Done" 
   'Step 7: Knock Off Invoice
  Call KnockIV
End Function
End Function
</syntaxhighlight>
|}


<div style="float: right;">  [[#top|[top]]]</div>
Function KnockIV
 
Dim BizObject, lMain, lDetail, lDate, v(1)
====AR_Customer-Edit====
  'Step 2: Find and Create the Biz Objects
{| class="mw-collapsible mw-collapsed wikitable"
  Set BizObject = ComServer.BizObjects.Find("AR_CN")
! AR_Customer - Edit Script 
|-
|
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg AR_Customer.vbs
Call EditARCustomer
   
   
Function CreateSQLAccServer
  'Step 3: Set Dataset
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
  Set lMain  = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data
End Function
  Set lDetail = BizObject.DataSets.Find("cdsKnockOff") 'lDetail contains Knock off data 
 
Function EditARCustomer
  'Step 4 : Find CN Number
Dim ComServer, BizObject, lDataSet, lDataSet2
  lDocNo = "--CN Test--"
  lDocKey = BizObject.FindKeyByRef("DocNo", lDocNo)
   'Step 1 Create Com Server object
  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
</syntaxhighlight>
|}
 
<div style="float: right;">  [[#top|[top]]]</div>
 
====AR_IV====
{| class="mw-collapsible mw-collapsed wikitable"
! AR_IV Script 
|-
|
<syntaxhighlight lang="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
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   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"  
     ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"  
   END IF
   END IF
 
   'Step 2 Find and Create the Biz Objects
   'Step 2: Find and Create the Biz Objects
   Set BizObject = ComServer.BizObjects.Find("AR_Customer")  
   Set BizObject = ComServer.BizObjects.Find("AR_IV")  
 
   'Step 3 Set Dataset
   'Step 3: Set Dataset
   Set lMainDataSet = BizObject.DataSets.Find("MainDataSet") 'lMainDataSet contains master data
   Set lMainDataSet = BizObject.DataSets.Find("MainDataSet")   'lMainDataSet contains master data
   Set lDetailDataSet = BizObject.DataSets.Find("cdsBranch") 'lDetailDataSet contains detail data   
   Set lDetailDataSet = BizObject.DataSets.Find("cdsDocDetail") 'lDetailDataSet contains detail data   
    
    
   'Step 4 Find Customer Code
   'Step 4 : Insert Data - Master
   BizObject.Params.Find("Code").Value = "300-Test"
  lDate = CDate("January 1, 2016")
    
   BizObject.New
   BizObject.Open
  lMainDataSet.FindField("DocKey").value = -1
  BizObject.Edit
  lMainDataSet.FindField("DocNo").value = "--IV Test--"
   lMainDataSet.Edit
   lMainDataSet.FindField("DocDate").value = lDate
   lMainDataSet.FindField("CompanyName").value = "Testing 123-Changed"
   lMainDataSet.FindField("PostDate").value = lDate
   lMainDataSet.FindField("Code").value = "300-A0003"
   'Step 5 For 1st Branch
   lMainDataSet.FindField("Description").value = "Sales"
    v = "BILLING"
   
   'Step 5: Insert Data - Detail
    if (lDetailDataSet.Locate("BranchName", v, false, false)) then
  'For Tax Inclusive = True with override Tax Amount
  lDetailDataSet.Edit
  lDetailDataSet.Append
      lDetailDataSet.FindField("Address1").AsString  = "Address1-Changed"
  lDetailDataSet.FindField("DtlKey").value = -1
      lDetailDataSet.FindField("Address2").AsString  = "Address2-Changed"
  lDetailDataSet.FindField("DocKey").value = -1
      lDetailDataSet.FindField("Address3").AsString  = "Address3-Changed"
  lDetailDataSet.FindField("Account").value = "500-000"
      lDetailDataSet.FindField("Address4").AsString  = "Address4-Changed"
  lDetailDataSet.FindField("Description").value = "Sales Item A"
      lDetailDataSet.FindField("Attention").AsString = "Attention-Changed"
  lDetailDataSet.FindField("Tax").value = "SR"
      lDetailDataSet.FindField("Phone1").AsString    = "Phone1-Changed"
  lDetailDataSet.FindField("TaxInclusive").value = 0
      lDetailDataSet.FindField("Fax1").AsString      = "Fax1-Changed"
  lDetailDataSet.FindField("Amount").value = 410.37
      lDetailDataSet.FindField("Email").AsString      = "EmailAddress-Changed"
  lDetailDataSet.FindField("TaxAmt").value = 24.63
      lDetailDataSet.Post
 
end if
  lDetailDataSet.DisableControls
'Step 5 For 2nd Branch
  lDetailDataSet.FindField("TaxInclusive").value = 1
    v = "Branch1"
  lDetailDataSet.EnableControls
 
    if (lDetailDataSet.Locate("BranchName", v, false, false)) then
  lDetailDataSet.FindField("Changed").value = "F"
      lDetailDataSet.Edit
  lDetailDataSet.Post
      lDetailDataSet.FindField("Address1").AsString  = "DAddress1-Changed"
 
      lDetailDataSet.FindField("Address2").AsString  = "DAddress2-Changed"
  'For Tax Inclusive = False with override Tax Amount
      lDetailDataSet.FindField("Address3").AsString  = "DAddress3-Changed"
  lDetailDataSet.Append
      lDetailDataSet.FindField("Address4").AsString  = "DAddress4-Changed"
  lDetailDataSet.FindField("DtlKey").value = -1
      lDetailDataSet.FindField("Attention").AsString = "DAttention-Changed"
  lDetailDataSet.FindField("DocKey").value = -1
      lDetailDataSet.FindField("Phone1").AsString    = "DPhone1-Changed"
  lDetailDataSet.FindField("Account").value = "500-000"
      lDetailDataSet.FindField("Fax1").AsString      = "DFax1-Changed"
  lDetailDataSet.FindField("Description").value = "Sales Item B"
      lDetailDataSet.FindField("Email").AsString      = "DEmailAddress-Changed"
  lDetailDataSet.FindField("Tax").value = "SR"
      lDetailDataSet.Post
  lDetailDataSet.FindField("TaxInclusive").value = 0
  end IF
  lDetailDataSet.FindField("Amount").value = 94.43
   'Step 6 Save Customer
  lDetailDataSet.FindField("TaxAmt").value = 5.66
  lDetailDataSet.FindField("Changed").value = "F"
  lDetailDataSet.Post
 
   'Step 6: Save Document
   BizObject.Save
   BizObject.Save
   BizObject.Close
   BizObject.Close
Line 6,982: Line 7,407:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====GL.TrialBalance.RO====
====AR_IV-Edit====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! GL Trial Balance  Report Object Script   
! AR_IV Edit Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg GL.TrialBalance.RO.vbs
'Available in Version 5.2018.833.759 & above
Call GetGLTBData
'Copy below script & paste to notepad & name it as eg AR_IV.vbs
Call CheckLogin
Call GetData
Call PostData
 
Dim ComServer, lDataSet
 
Function CreateSQLAccServer
Function CreateSQLAccServer
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function
 
Function GetGLTBData
function CheckLogin
Dim ComServer, RptObject, lDataSet, lDataSet2, lDateFrom, lDateTo
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
     ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"
                'UserName, Password, DCF full path, Database filename
   END IF
   END IF
End Function
  '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
Function GetData
   'RptObject.Params.Find("AreaData").Value      = 'Not use if AllArea is true
Dim lSQL
 
   lSQL = "SELECT Dockey FROM AR_IV "
  RptObject.Params.Find("SortBy").Value          = "Code;Description"
   lSQL = lSQL & "WHERE DocNo='IV-00002' "
   Set lDataSet = ComServer.DBManager.NewDataSet(lSQL)
  'Step 4: Perform Report calculation
End Function
  RptObject.CalculateReport()
   Set lDataSet = RptObject.DataSets.Find("cdsMain")
  Set lDataSet2 = RptObject.DataSets.Find("cdsGLAccount")


   MsgBox "Count " & lDataSet.RecordCount
Function PostData
   
Dim BizObject, lMain, lDetail
   'Step 5 Retrieve the output
  'Step 2: Find and Create the Biz Objects
   lDataSet.First
   Set BizObject = ComServer.BizObjects.Find("AR_IV")
  While (not lDataSet.eof)
 
     MsgBox "Month To Date"
  'Step 3: Set Dataset
MsgBox lDataSet.FindField("Code").AsString & " DR=>" & lDataSet.FindField("MTDDR").AsString & " CR=>" & lDataSet.FindField("MTDCR").AsString
  Set lMain  = BizObject.DataSets.Find("MainDataSet")  'lMain contains master data
  Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data  
MsgBox "Year To Date"
 
MsgBox lDataSet.FindField("Code").AsString & " DR=>" & lDataSet.FindField("YTDDR").AsString & " CR=>" & lDataSet.FindField("YTDCR").AsString
   'Step 4 : Find Doc Number
lDataSet.Next
   If lDataSet.RecordCount > 0 Then 
   Wend
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
    
    
   'For Account List
   'Step 7: Save Document
  lDataSet2.First
    BizObject.Save
  While (not lDataSet2.eof)
    BizObject.Close
MsgBox lDataSet2.FindField("Code").AsString & " " & lDataSet2.FindField("Description").AsString
lDataSet2.Next
  Wend
    
    
  'Step 8 : Logout after done 
    'ComServer.Logout 
    MsgBox "Done"
Else
MsgBox "Record Not Found"
  END IF
End Function
End Function
</syntaxhighlight>
</syntaxhighlight>
Line 7,059: Line 7,500:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Customer.Aging.RO====
====AR_PM====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Customer Aging  Report Object Script   
! AR_PM Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg customer_aging_ro.vbs
'Copy below script & paste to notepad & name it as eg AR_PM.vbs
Call GetCustStatementData
Call PostData
   
   
Function CreateSQLAccServer
Function CreateSQLAccServer
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function
 
Function GetCustStatementData
Function PostData
Const Quote = """"
Dim ComServer, BizObject, lIVNo, v(1), lDate
Dim ComServer, RptObject, lDataSet, lDataSet2, lDateFrom, lDateTo, lAgeData
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
     ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"  
   END IF
   END IF
  'Step 2: Find and Create the Report Objects
  Set RptObject = ComServer.RptObjects.Find("Customer.Aging.RO")
   
   
   'Step 3: Spool parameters
   'Step 2: Find and Create the Biz Objects
  lAgeData = "<?xml version=" & Quote & "1.0" & Quote & " standalone=" & Quote & "yes" & Quote & "?>  <DATAPACKET Version=" & Quote & "2.0" & Quote & "><METADATA><FIELDS>" &_
   Set BizObject = ComServer.BizObjects.Find("AR_PM")  
      "<FIELD attrname=" & Quote & "ColumnNo" & Quote & " fieldtype=" & Quote & "i4" & Quote & " required=" & Quote & "true" & Quote & "/><FIELD attrname=" & Quote & "ColumnType" & Quote & " fieldtype=" & Quote & "string" & Quote & " WIDTH=" & Quote & "1" & Quote & "/>" &_
      "<FIELD attrname=" & Quote & "Param1" & Quote & " fieldtype=" & Quote & "i4" & Quote & " required=" & Quote & "true" & Quote & "/><FIELD attrname=" & Quote & "Param2" & Quote & " fieldtype=" & Quote & "i4" & Quote & " required=" & Quote & "true" & Quote & "/>" &_
      "<FIELD attrname=" & Quote & "IsLocal" & Quote & " fieldtype=" & Quote & "boolean" & Quote & "/><FIELD attrname=" & Quote & "HeaderScript" & Quote & " fieldtype=" & Quote & "bin.hex" & Quote & " SUBTYPE=" & Quote & "Text" & Quote & " WIDTH=" & Quote & "1" & Quote & "/>" &_
      "</FIELDS><PARAMS/></METADATA><ROWDATA><ROW ColumnNo=" & Quote & "0" & Quote & " ColumnType=" & Quote & "" & Quote & " Param1=" & Quote & "0" & Quote & " Param2=" & Quote & "0" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & "/>" &_
      "<ROW ColumnNo=" & Quote & "1" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "0" & Quote & " Param2=" & Quote & "0" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;Current Mth&apos;&#013;end;" & Quote & "/>" &_
      "<ROW ColumnNo=" & Quote & "2" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-1" & Quote & " Param2=" & Quote & "-1" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;1 Months&apos;&#013;end;" & Quote & "/>" &_
      "<ROW ColumnNo=" & Quote & "3" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-2" & Quote & " Param2=" & Quote & "-2" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;2 Months&apos;&#013;end;" & Quote & "/>" &_
      "<ROW ColumnNo=" & Quote & "4" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-3" & Quote & " Param2=" & Quote & "-3" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;3 Months&apos;&#013;end;" & Quote & "/>" &_
      "<ROW ColumnNo=" & Quote & "5" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-4" & Quote & " Param2=" & Quote & "-4" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;4 Months&apos;&#013;end;" & Quote & "/>" &_
      "<ROW ColumnNo=" & Quote & "6" & Quote & " ColumnType=" & Quote & "B" & Quote & " Param1=" & Quote & "-999999" & Quote & " Param2=" & Quote & "-5" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;5 Month &amp; above&apos;&#013;end;" & Quote & "/>" &_
      "</ROWDATA></DATAPACKET>"
  RptObject.Params.Find("ActualGroupBy").Value        = "Code;CompanyName" 'Fixed
'  RptObject.Params.Find("AgentData").Value            =  'Not use if AllAgent is True
  RptObject.Params.Find("AgingData").Value            = lAgeData 'Fixed
 
  lDateTo = CDate("August 31, 2016")
  RptObject.Params.Find("AgingDate").Value            = lDateTo 
 
  RptObject.Params.Find("AgingOn").Value              = "I" 'Fixed
  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("AllControlAccount").Value    = true
  RptObject.Params.Find("AllCurrency").Value          = true
  RptObject.Params.Find("AllDocProject").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-A0001"& vbCRLF & "300-C0001" 'Filter by Customer Code 300-A0001 & 300-C0001
'  RptObject.Params.Find("ControlAccountData").Value   = 'Not use if AllControlAccount is True
'  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("FilterPostDate").Value        = false
'  RptObject.Params.Find("GroupBy").Value              = 'Not use
  RptObject.Params.Find("IncludePDC").Value        = false
  RptObject.Params.Find("IncludeZeroBalance").Value  = false
  RptObject.Params.Find("SortBy").Value              = "Code;CompanyName"
  RptObject.Params.Find("DateTo").Value              = lDateTo
 
   
   
   'Step 4: Perform Report calculation
   'Step 3: Set Dataset
  RptObject.CalculateReport()
   Set lMain = BizObject.DataSets.Find("MainDataSet")   'lMainDataSet contains master data
   Set lDataSet = RptObject.DataSets.Find("cdsMain")
   Set lDetailDataSet = BizObject.DataSets.Find("cdsKnockOff") 'lDetailDataSet contains detail data 
   Set lDataSet2 = RptObject.DataSets.Find("cdsDocument")
    
   MsgBox "Count " & lDataSet.RecordCount
   'Step 4 : Posting
 
    lDate = CDate("January 23, 2017")
   'Step 5 Retrieve the output
    BizObject.New
  lDataSet.First
    lMain.FindField("DOCKEY").Value          = -1
  While (not lDataSet.eof)
    lMain.FindField("DocNo").AsString        = "--PM Test--"
     MsgBox lDataSet.FindField("Code").AsString & " " & lDataSet.FindField("CompanyName").AsString & " " & lDataSet.FindField("C1").AsString
     lMain.FindField("CODE").AsString         = "300-C0001"
lDataSet2.First
    lMain.FindField("DocDate").Value          = lDate
     While (not lDataSet2.eof)
    lMain.FindField("PostDate").Value        = lDate
  MsgBox lDataSet2.FindField("DocNo").AsString & " " & lDataSet2.FindField("C1").AsString
    lMain.FindField("Description").AsString   = "Payment for A/c"
  lDataSet2.Next
    lMain.FindField("PaymentMethod").AsString = "310-000"
     Wend
    lMain.FindField("DocAmt").AsFloat        = 65.57
lDataSet.Next
     lMain.FindField("Cancelled").AsString    = "F"
   Wend
  '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
End Function
</syntaxhighlight>
</syntaxhighlight>
Line 7,149: Line 7,563:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====GL.JE.RO====
====AR_PM-Edit====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! GL Journal Voucher Report Object Script   
! AR_PM Edit Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg GLJE_ro.vbs
'Copy below script & paste to notepad & name it as eg AR_IV.vbs
Call GetCustomerData
Call EditARPM
 
Function CreateSQLAccServer
Function CreateSQLAccServer
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function
 
Function GetCustomerData
Function EditARPM
Dim ComServer, RptObject, lDataSet, lDataSet2, lDateFrom, lDateTo
Dim ComServer, BizObject, lDataSet, lDataSet2, lDocKey, lDocNo, lIVNo, v(1)
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
     ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"  
   END IF
   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
</syntaxhighlight>
|}
<div style="float: right;">  [[#top|[top]]]</div>


  'Step 2: Find and Create the Report Objects
====Customer.RO====
  Set RptObject = ComServer.RptObjects.Find("GL.JE.RO")
{| class="mw-collapsible mw-collapsed wikitable"
 
! Customer.RO Report Object Script 
  'Step 3: Spool parameters
|-
  RptObject.Params.Find("AllCurrency").Value = true
|
  RptObject.Params.Find("AllDocProject").Value = true
<syntaxhighlight lang="vb">
  RptObject.Params.Find("AllDocument").Value = true
'Copy below script & paste to notepad & name it as eg customer_ro.vbs
  RptObject.Params.Find("AllItemProject").Value = true
Call GetCustomerData
  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")
Function CreateSQLAccServer
  lDateTo = CDate("December 31, 2017")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function


   RptObject.Params.Find("DateFrom").Value = lDateFrom
Function GetCustomerData
   RptObject.Params.Find("DocDateFrom").Value = lDateFrom
Dim ComServer, RptObject, lDataSet, lDataSet2, lDateFrom, lDateTo
   RptObject.Params.Find("DateTo").Value = lDateTo
  'Step 1: Create Com Server object
   RptObject.Params.Find("DocDateTo").Value = lDateTo
  Set ComServer = CreateSQLAccServer 'Create Com Server
   RptObject.Params.Find("IncludeCancelled").Value = false
  If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   RptObject.Params.Find("PrintDocumentStyle").Value = false
    ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"
   RptObject.Params.Find("SelectDate").Value = true 'Post Date
  END IF
   RptObject.Params.Find("SelectDocDate").Value = false 'Doc Date
 
  '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  
   'Step 4: Perform Report calculation  
   RptObject.CalculateReport()
   RptObject.CalculateReport()
   Set lDataSet = RptObject.DataSets.Find("cdsMain")
   Set lDataSet = RptObject.DataSets.Find("cdsMain")
   Set lDataSet2 = RptObject.DataSets.Find("cdsDetail")
   Set lDataSet2 = RptObject.DataSets.Find("cdsBranch")
   MsgBox "Count " & lDataSet.RecordCount
   MsgBox "Count " & lDataSet.RecordCount


Line 7,205: Line 7,678:
   lDataSet.First
   lDataSet.First
   While (not lDataSet.eof)
   While (not lDataSet.eof)
     MsgBox lDataSet.FindField("DocNo").AsString & " " & lDataSet.FindField("Description").AsString
     MsgBox lDataSet.FindField("Code").AsString & " " & lDataSet.FindField("CompanyName").AsString
lDataSet2.First
lDataSet2.First
     While (not lDataSet2.eof)
     While (not lDataSet2.eof)
  MsgBox lDataSet2.FindField("Code").AsString & " " & lDataSet2.FindField("Description").AsString
  MsgBox lDataSet2.FindField("Address1").AsString
  lDataSet2.Next
  lDataSet2.Next
     Wend
     Wend
Line 7,219: Line 7,692:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====SL_CS====
====Customer.Statement.RO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! SL_CS Script   
! Customer.Statement.RO  Report Object Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg SL_CS.vbs
'Copy below script & paste to notepad & name it as eg customer_statement_ro.vbs
Call InsertData
Call GetCustStatementData
 
Function CreateSQLAccServer
Function CreateSQLAccServer
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function


Function InsertData
Function GetCustStatementData
Dim ComServer, BizObject, lDate
Const Quote = """"
 
Dim ComServer, RptObject, lDataSet, lDataSet2, lDateFrom, lDateTo, lAgeData
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   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"  
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
   END IF
   END IF


   'Step 2: Find and Create the Biz Objects
   'Step 2: Find and Create the Report Objects
   Set BizObject = ComServer.BizObjects.Find("SL_CS")  
   Set RptObject = ComServer.RptObjects.Find("Customer.Statement.RO")  
 
   'Step 3: Set Dataset
   'Step 3: Spool parameters
   Set lMainDataSet = BizObject.DataSets.Find("MainDataSet")    'lMainDataSet contains master data
   lAgeData = "<?xml version=" & Quote & "1.0" & Quote & " standalone=" & Quote & "yes" & Quote & "?>  <DATAPACKET Version=" & Quote & "2.0" & Quote & "><METADATA><FIELDS>" &_
  Set lDetailDataSet = BizObject.DataSets.Find("cdsDocDetail") 'lDetailDataSet contains detail data 
      "<FIELD attrname=" & Quote & "ColumnNo" & Quote & " fieldtype=" & Quote & "i4" & Quote & " required=" & Quote & "true" & Quote & "/><FIELD attrname=" & Quote & "ColumnType" & Quote & " fieldtype=" & Quote & "string" & Quote & " WIDTH=" & Quote & "1" & Quote & "/>" &_
 
      "<FIELD attrname=" & Quote & "Param1" & Quote & " fieldtype=" & Quote & "i4" & Quote & " required=" & Quote & "true" & Quote & "/><FIELD attrname=" & Quote & "Param2" & Quote & " fieldtype=" & Quote & "i4" & Quote & " required=" & Quote & "true" & Quote & "/>" &_
  'Step 4 : Insert Data - Master
      "<FIELD attrname=" & Quote & "IsLocal" & Quote & " fieldtype=" & Quote & "boolean" & Quote & "/><FIELD attrname=" & Quote & "HeaderScript" & Quote & " fieldtype=" & Quote & "bin.hex" & Quote & " SUBTYPE=" & Quote & "Text" & Quote & " WIDTH=" & Quote & "1" & Quote & "/>" &_
  lDate = CDate("January 1, 2016")
      "</FIELDS><PARAMS/></METADATA><ROWDATA><ROW ColumnNo=" & Quote & "0" & Quote & " ColumnType=" & Quote & "" & Quote & " Param1=" & Quote & "0" & Quote & " Param2=" & Quote & "0" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & "/>" &_
  BizObject.New
      "<ROW ColumnNo=" & Quote & "1" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "0" & Quote & " Param2=" & Quote & "0" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;Current Mth&apos;&#013;end;" & Quote & "/>" &_
  lMainDataSet.FindField("DocKey").value = -1
      "<ROW ColumnNo=" & Quote & "2" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-1" & Quote & " Param2=" & Quote & "-1" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;1 Months&apos;&#013;end;" & Quote & "/>" &_
  lMainDataSet.FindField("DocNo").value = "--IV Test--"
      "<ROW ColumnNo=" & Quote & "3" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-2" & Quote & " Param2=" & Quote & "-2" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;2 Months&apos;&#013;end;" & Quote & "/>" &_
  lMainDataSet.FindField("DocDate").value = lDate
      "<ROW ColumnNo=" & Quote & "4" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-3" & Quote & " Param2=" & Quote & "-3" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;3 Months&apos;&#013;end;" & Quote & "/>" &_
   lMainDataSet.FindField("PostDate").value = lDate
      "<ROW ColumnNo=" & Quote & "5" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-4" & Quote & " Param2=" & Quote & "-4" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;4 Months&apos;&#013;end;" & Quote & "/>" &_
   lMainDataSet.FindField("Code").value = "300-C0001" 'Customer Code
      "<ROW ColumnNo=" & Quote & "6" & Quote & " ColumnType=" & Quote & "B" & Quote & " Param1=" & Quote & "-999999" & Quote & " Param2=" & Quote & "-5" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;5 Month &amp; above&apos;&#013;end;" & Quote & "/>" &_
   lMainDataSet.FindField("Description").value = "Sales"
      "</ROWDATA></DATAPACKET>"
   
'  RptObject.Params.Find("AgentData").Value            = 'Not use if AllAgent is True
  'Step 5: Insert Data - Detail
   RptObject.Params.Find("AgingData").Value            = lAgeData 'Fixed
  'For Tax Inclusive = True with override Tax Amount
   RptObject.Params.Find("AgingOn").Value              = "I" 'Fixed
   lDetailDataSet.Append
   RptObject.Params.Find("AllAgent").Value            = true
  lDetailDataSet.FindField("DtlKey").value = -1
   RptObject.Params.Find("AllArea").Value              = true
   lDetailDataSet.FindField("DocKey").value = -1
   RptObject.Params.Find("AllCompany").Value          = false
   lDetailDataSet.FindField("Account").value = "500-000" 'Sales Account Code  & can ignore if had itemcode
   RptObject.Params.Find("AllCompanyCategory").Value  = true
   lDetailDataSet.FindField("Description").value = "Sales Item A"
   RptObject.Params.Find("AllControlAccount").Value    = true
   lDetailDataSet.FindField("Qty").value = 1
   RptObject.Params.Find("AllCurrency").Value          = true
   lDetailDataSet.FindField("Tax").value =  "SR"
   RptObject.Params.Find("AllDocProject").Value        = true
  lDetailDataSet.FindField("TaxInclusive").value =  0
' RptObject.Params.Find("AreaData").Value            =  'Not use if AllArea is True
  lDetailDataSet.FindField("UnitPrice").value = 410.37
'  RptObject.Params.Find("CompanyCategoryData").Value  = 'Not use if AllCompanyCategory is True
   lDetailDataSet.FindField("Amount").value = 410.37
   RptObject.Params.Find("CompanyData").Value          = "300-A0001"& vbCRLF & "300-C0001" 'Filter by Customer Code 300-A0001 & 300-C0001
  lDetailDataSet.FindField("TaxAmt").value = 24.63
'  RptObject.Params.Find("ControlAccountData").Value  = 'Not use if AllControlAccount is True
 
'  RptObject.Params.Find("CurrencyData").Value        =  'Not use if AllCurrency is True
  lDetailDataSet.DisableControls
   lDateFrom = CDate("August 1, 2016")
  lDetailDataSet.FindField("TaxInclusive").value =  1
   lDateTo = CDate("August 31, 2016")
  lDetailDataSet.EnableControls
   RptObject.Params.Find("DateFrom").Value            = lDateFrom
    
   RptObject.Params.Find("DateTo").Value              = lDateTo
   lDetailDataSet.Post
'  RptObject.Params.Find("DocProjectData").Value      = 'Not use if AllDocProject is True
 
   RptObject.Params.Find("IncludeZeroBalance").Value  = false
  'For Tax Inclusive = False with override Tax Amount
   RptObject.Params.Find("SelectDate").Value          = true
   lDetailDataSet.Append
   RptObject.Params.Find("SortBy").Value              = "CompanyCategory;Code;CompanyName;Agent;Area;CurrencyCode;ControlAccount"
  lDetailDataSet.FindField("DtlKey").value = -1
   RptObject.Params.Find("StatementDate").Value        = lDateTo ' Norm same as DateTo
   lDetailDataSet.FindField("DocKey").value = -1
   RptObject.Params.Find("StatementType").Value        = "O" 'O = Open Item, B = B/F
  lDetailDataSet.FindField("Account").value = "500-000"
   lDetailDataSet.FindField("Description").value = "Sales Item B"
  'Step 4: Perform Report calculation
   lDetailDataSet.FindField("Qty").value = 1
  RptObject.CalculateReport()
   lDetailDataSet.FindField("Tax").value = "SR"
   Set lDataSet = RptObject.DataSets.Find("cdsMain")
   lDetailDataSet.FindField("TaxInclusive").value = 0
  Set lDataSet2 = RptObject.DataSets.Find("cdsDocument")
   lDetailDataSet.FindField("UnitPrice").value = 94.43
   MsgBox "Count " & lDataSet.RecordCount
   lDetailDataSet.FindField("Amount").value = 94.43
  lDetailDataSet.FindField("TaxAmt").value = 5.66
   lDetailDataSet.Post


   'For With Item Code
   'Step 5 Retrieve the output
   lDetailDataSet.Append
   lDataSet.First
   lDetailDataSet.FindField("DtlKey").value = -1
   While (not lDataSet.eof)
  lDetailDataSet.FindField("DocKey").value = -1
    MsgBox lDataSet.FindField("Code").AsString & " " & lDataSet.FindField("CompanyName").AsString & " " & lDataSet.FindField("Balance").AsString
  lDetailDataSet.FindField("ItemCode").value = "ANT"
lDataSet2.First
  lDetailDataSet.FindField("Description").value =  "Sales Item B"
    While (not lDataSet2.eof)
  lDetailDataSet.FindField("Qty").value =  2
  MsgBox lDataSet2.FindField("DocNo").AsString
  lDetailDataSet.FindField("Tax").value =  "SR"
  lDataSet2.Next
  lDetailDataSet.FindField("TaxInclusive").value =  0
    Wend
  lDetailDataSet.FindField("UnitPrice").value = 100
lDataSet.Next
  lDetailDataSet.FindField("Amount").value = 200
   Wend
  lDetailDataSet.FindField("TaxAmt").value = 12
  lDetailDataSet.Post
 
  'Step 6: Save Document
  BizObject.Save
   BizObject.Close
  ComServer.Logout
  MsgBox "Done"
End Function
End Function
</syntaxhighlight>
</syntaxhighlight>
Line 7,317: Line 7,779:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Customer.PM.RO====
====GL.CB.RO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Customer.PM.RO Script   
! GL.CB.RO Report Object Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg Customer.PM.RO.vbs
'Copy below script & paste to notepad & name it as eg GL.CB.RO.vbs
Call GetARPMData
Call GetCLCBData
   
   
Function CreateSQLAccServer
Function CreateSQLAccServer
Line 7,330: Line 7,792:
End Function
End Function
   
   
Function GetARPMData
Function GetCLCBData
Dim ComServer, RptObject, lDataSet, lDataSet2, lDataSet3, lDateFrom, lDateTo
Dim ComServer, RptObject, lDataSet, lDataSet2, lDataSet3, lDateFrom, lDateTo
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
Line 7,339: Line 7,801:
   
   
   'Step 2: Find and Create the Report Objects
   'Step 2: Find and Create the Report Objects
   Set RptObject = ComServer.RptObjects.Find("Customer.PM.RO")  
   Set RptObject = ComServer.RptObjects.Find("GL.CB.RO")  
   
   
   'Step 3: Spool parameters
   'Step 3: Spool parameters
   'RptObject.Params.Find("AgentData").Value               = 'Not use if AllAgent is true
   RptObject.Params.Find("AllCurrency").Value   = true
   'RptObject.Params.Find("CompanyCategoryData").Value     = 'Not use if AllCompanyCategory is true
   RptObject.Params.Find("AllDocProject").Value = true
   RptObject.Params.Find("AllAgent").Value               = true
   RptObject.Params.Find("AllDocument").Value   = true
   RptObject.Params.Find("AllCompanyCategory").Value     = true
   RptObject.Params.Find("AllItemProject").Value = true
   RptObject.Params.Find("AllArea").Value                 = true
   RptObject.Params.Find("AllItemArea").Value   = true
   RptObject.Params.Find("AllCompany").Value             = true
   RptObject.Params.Find("AllItemAgent").Value  = true
   RptObject.Params.Find("AllCurrency").Value            = true
   RptObject.Params.Find("AllDocAgent").Value   = true
   RptObject.Params.Find("AllDocument").Value            = false
   RptObject.Params.Find("AllDocArea").Value     = true
  RptObject.Params.Find("AllPaymentMethod").Value       = true
   RptObject.Params.Find("AllPaymentMethod").Value = false
   'RptObject.Params.Find("AreaData").Value               = 'Not use if AllArea is true
   'RptObject.Params.Find("CurrencyData").Value   = 'Not use if AllCurrency 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")
   lDateFrom = CDate("January 01, 2017")
   lDateTo = CDate("December 31, 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("DateFrom").Value               = lDateFrom
   'RptObject.Params.Find("DocProjectData").Value = 'Not use if AllDocProject is true
   RptObject.Params.Find("DateTo").Value                 = lDateTo
   'RptObject.Params.Find("DocAreaData").Value     = 'Not use if AllDocArea is true
   RptObject.Params.Find("DocumentData").Value           = "VCOR-00049"
   'RptObject.Params.Find("DocAgentData").Value   = 'Not use if AllDocAgent is true
   'RptObject.Params.Find("GroupBy").Value                 = 'If you wanted to grouping the data
   'RptObject.Params.Find("ItemAgentData").Value   = 'Not use if AllItemAgent is true
   RptObject.Params.Find("IncludeCancelled").Value       = false
   RptObject.Params.Find("DocType").Value         = "PV" 'PV for Payment Voucher & OR for Official Receipt
   'RptObject.Params.Find("PaymentMethodData").Value       = 'Not use if AllPaymentMethod is true
   'RptObject.Params.Find("DocumentData").Value   = 'Not use if AllDocument is true
   RptObject.Params.Find("PrintDocumentStyle").Value     = false
  'RptObject.Params.Find("GroupBy").Value        = 'If you wanted to grouping the data
   RptObject.Params.Find("SelectDate").Value             = true
   RptObject.Params.Find("IncludeCancelled").Value = false
   RptObject.Params.Find("ShowUnappliedAmountOnly").Value = false
   'RptObject.Params.Find("ItemAreaData").Value   = 'Not use if AllItemArea is true
   RptObject.Params.Find("SortBy").Value                 = "PostDate;DocNo;Code"
   'RptObject.Params.Find("ItemProjectData").Value = 'Not use if AllItemProject is true
   RptObject.Params.Find("AllDocProject").Value           = true
   RptObject.Params.Find("PaymentMethodData").Value = "310-001"
   RptObject.Params.Find("AllItemProject").Value         = true
   RptObject.Params.Find("PrintDocumentStyle").Value = false
   'RptObject.Params.Find("DocProjectData").Value         = 'Not use if AllDocProject is true
   RptObject.Params.Find("SelectDate").Value         = true 'For Post Date
   'RptObject.Params.Find("ItemProjectData").Value         = 'Not use if AllItemProject is true  
   'RptObject.Params.Find("SelectDocDate").Value     = 'For Doc Date
 
   RptObject.Params.Find("SortBy").Value             = "PostDate;DocNo"
   
   'Step 4: Perform Report calculation  
   'Step 4: Perform Report calculation  
   RptObject.CalculateReport()
   RptObject.CalculateReport()
   Set lDataSet = RptObject.DataSets.Find("cdsMain")
   Set lDataSet = RptObject.DataSets.Find("cdsMain")
   Set lDataSet2 = RptObject.DataSets.Find("cdsKnockOff")
   Set lDataSet2 = RptObject.DataSets.Find("cdsDetail")
   Set lDataSet3 = RptObject.DataSets.Find("cdsKnockOffDetail")
   Set lDataSet3 = RptObject.DataSets.Find("cdsTax")
   MsgBox "Count " & lDataSet.RecordCount
   MsgBox "Count " & lDataSet.RecordCount
   
   
Line 7,383: Line 7,848:
   lDataSet.First
   lDataSet.First
   While (not lDataSet.eof)
   While (not lDataSet.eof)
     MsgBox lDataSet.FindField("DocKey").AsString & " " &  lDataSet.FindField("DocNo").AsString & " " & lDataSet.FindField("Code").AsString
     MsgBox lDataSet.FindField("DocNo").AsString & " " & lDataSet.FindField("Description").AsString
MsgBox "cdsKnockOff Count " & lDataSet2.RecordCount
lDataSet2.First
lDataSet2.First
     While (not lDataSet2.eof)
     While (not lDataSet2.eof)
  MsgBox lDataSet2.FindField("FromDocKey").AsString & " " & lDataSet2.FindField("DocNo").AsString & " " & lDataSet2.FindField("KOAmt").AsString
  MsgBox lDataSet2.FindField("Code").AsString & " " & lDataSet2.FindField("Description").AsString
  lDataSet2.Next
  lDataSet2.Next
     Wend
     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
lDataSet.Next
   Wend
   Wend
End Function
  'For GST List
</syntaxhighlight>
  MsgBox "GST Code Count " & lDataSet3.RecordCount
  lDataSet3.First
  While (not lDataSet3.eof)
    MsgBox lDataSet3.FindField("Code").AsString
lDataSet3.Next
  Wend
End Function
</syntaxhighlight>
|}
|}


<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Sales.IV.RO====
====AR_Customer====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Sales.IV.RO Script   
! AR_Customer - Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg Sales.IV.RO.vbs
'Copy below script & paste to notepad & name it as eg AR_Customer.vbs
Call GetSalesIVData
Call CheckLogin
Call InsertData
 
Dim ComServer
 
Function CreateSQLAccServer
Function CreateSQLAccServer
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function
 
Function GetSalesIVData
function CheckLogin
Dim ComServer, RptObject, lDataSet, lDataSet2, lDataSet3, lDateFrom, lDateTo
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
     ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"
                'UserName, Password, DCF full path, Database filename
   END IF
   END IF
End Function
   'Step 2: Find and Create the Report Objects
 
   Set RptObject = ComServer.RptObjects.Find("Sales.IV.RO")
Function InsertData
Dim BizObject, lMain, lDetail
  'Step 3: Spool parameters
   'Step 2: Find and Create the Biz Objects
  'RptObject.Params.Find("AgentData").Value              = 'Not use if AllAgent is true
   Set BizObject = ComServer.BizObjects.Find("AR_Customer")  
  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")
   'Step 3: Set Dataset
   lDateTo = CDate("December 31, 2017")
  Set lMain  = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data
   Set lDetail = BizObject.DataSets.Find("cdsBranch") 'lDetail contains detail data 
    
    
   RptObject.Params.Find("DateFrom").Value                = lDateFrom
   'Begin Looping yr data
   RptObject.Params.Find("DateTo").Value                  = lDateTo
  'Step 4 : Insert Data - Master
  'RptObject.Params.Find("DocProjectData").Value          = 'Not use if AllDocProject is true
  BizObject.New
   'RptObject.Params.Find("DocumentData").Value            = 'Not use if AllDocument is true
   lMain.FindField("Code").AsString      = "300-Test"
  'RptObject.Params.Find("GroupBy").Value                = 'If you wanted to grouping the data
   lMain.FindField("CompanyName").AsString = "Cash Sales"
   'RptObject.Params.Find("CategoryData").Value            = 'Not use if HasCategory is false
   
   'RptObject.Params.Find("CategoryTpl").Value            = 'For Internal use only
   'Step 5: Insert Data - Detail
   RptObject.Params.Find("IncludeCancelled").Value        = false
   'For 1st Branch
   RptObject.Params.Find("HasCategory").Value            = false
   lDetail.Edit
   'RptObject.Params.Find("ItemData").Value                = 'Not use if AllItem is true
  lDetail.FindField("BranchName").AsString  = "BILLING"
   'RptObject.Params.Find("ItemProjectData").Value        = 'Not use if AllItemProject is true
   lDetail.FindField("Address1").AsString    = "Address1"
   'RptObject.Params.Find("LocationData").Value            = 'Not use if AllLocation is true
   lDetail.FindField("Address2").AsString    = "Address2"
   'RptObject.Params.Find("ItemCategoryData").Value        = 'For Internal use only
   lDetail.FindField("Address3").AsString    = "Address3"
  'RptObject.Params.Find("BatchData").Value              = 'Not use if AllBatch is true
   lDetail.FindField("Address4").AsString    = "Address4" 
   RptObject.Params.Find("PrintDocumentStyle").Value     = false
   lDetail.FindField("Attention").AsString  = "Attention"
   RptObject.Params.Find("SelectDate").Value              = true
   lDetail.FindField("Phone1").AsString     = "Phone1"
   RptObject.Params.Find("SortBy").Value                  = "PostDate;DocNo;Code"
   lDetail.FindField("Fax1").AsString        = "Fax1"
   'RptObject.Params.Find("StockGroupData").Value          = 'Not use if AllStockGroup is true
   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
    
    
  'Step 4: Perform Report calculation
   MsgBox "Done"   
  RptObject.CalculateReport()
End Function
  Set lDataSet = RptObject.DataSets.Find("cdsMain")
</syntaxhighlight>
  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
</syntaxhighlight>
|}


<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Customer.DueDocument.RO====
====AR_Customer-Edit====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Customer.DueDocument.RO Script   
! AR_Customer - Edit Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg Customer.DueDocument.RO.vbs
'Copy below script & paste to notepad & name it as eg AR_Customer.vbs
Call GetData
Call EditARCustomer
   
   
Function CreateSQLAccServer
Function CreateSQLAccServer
Line 7,509: Line 7,965:
End Function
End Function
   
   
Function GetData
Function EditARCustomer
Dim ComServer, RptObject, lDataSet, lDateTo
Dim ComServer, BizObject, lDataSet, lDataSet2
   'Step 1: Create Com Server object
   'Step 1 Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
     ComServer.Login "ADMIN", "ADMIN", "C\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"  
   END IF
   END IF
   
   
   'Step 2: Find and Create the Report Objects
   'Step 2 Find and Create the Biz Objects
   Set RptObject = ComServer.RptObjects.Find("Customer.DueDocument.RO")  
   Set BizObject = ComServer.BizObjects.Find("AR_Customer")  
   
   
   'Step 3: Spool parameters
   'Step 3 Set Dataset
   'RptObject.Params.Find("AgentData").Value              = 'Not use if AllAgent is true
   Set lMainDataSet = BizObject.DataSets.Find("MainDataSet") 'lMainDataSet contains master data
  RptObject.Params.Find("AllAgent").Value              = true
   Set lDetailDataSet = BizObject.DataSets.Find("cdsBranch") 'lDetailDataSet contains detail data
  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")
   'Step 4 Find Customer Code
  BizObject.Params.Find("Code").Value = "300-Test"
    
    
   RptObject.Params.Find("DateTo").Value                = lDateTo
   BizObject.Open
   RptObject.Params.Find("IncludePDCheque").Value        = true 
  BizObject.Edit
   
  lMainDataSet.Edit
   'Step 4: Perform Report calculation
  lMainDataSet.FindField("CompanyName").value = "Testing 123-Changed"
   RptObject.CalculateReport()
  Set lDataSet = RptObject.DataSets.Find("cdsMain")
   'Step 5 For 1st Branch
  MsgBox "Count " & lDataSet.RecordCount
    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"
   
   
  'Step 5 Retrieve the output
    if (lDetailDataSet.Locate("BranchName", v, false, false)) then
  lDataSet.First
      lDetailDataSet.Edit
   While (not lDataSet.eof)
      lDetailDataSet.FindField("Address1").AsString   = "DAddress1-Changed"
    MsgBox "Dockey " & lDataSet.FindField("DocKey").AsString  
      lDetailDataSet.FindField("Address2").AsString  = "DAddress2-Changed"
MsgBox "DocNo " & lDataSet.FindField("DocNo").AsString  
      lDetailDataSet.FindField("Address3").AsString  = "DAddress3-Changed"
MsgBox "DocAmt " & lDataSet.FindField("DocAmt").AsString
      lDetailDataSet.FindField("Address4").AsString   = "DAddress4-Changed"
MsgBox "Outstanding " & lDataSet.FindField("Outstanding").AsString
      lDetailDataSet.FindField("Attention").AsString = "DAttention-Changed"
MsgBox "Code " & lDataSet.FindField("Code").AsString
      lDetailDataSet.FindField("Phone1").AsString     = "DPhone1-Changed"
lDataSet.Next
      lDetailDataSet.FindField("Fax1").AsString       = "DFax1-Changed"
   Wend
      lDetailDataSet.FindField("Email").AsString     = "DEmailAddress-Changed"
      lDetailDataSet.Post 
  end IF
  'Step 6 Save Customer
  BizObject.Save
   BizObject.Close
  MsgBox "Done"
End Function
End Function
</syntaxhighlight>
</syntaxhighlight>
Line 7,572: Line 8,029:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Customer.IV.RO====
====GL.TrialBalance.RO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Customer.IV.RO Script   
! GL Trial Balance  Report Object Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg Customer.IV.RO.vbs
'Copy below script & paste to notepad & name it as eg GL.TrialBalance.RO.vbs
Call GetData
Call GetGLTBData
   
   
Function CreateSQLAccServer
Function CreateSQLAccServer
Line 7,585: Line 8,042:
End Function
End Function
   
   
Function GetData
Function GetGLTBData
Dim ComServer, RptObject, lDataSet, lDataSet2, lDataSet3, lDateFrom, lDateTo
Dim ComServer, RptObject, lDataSet, lDataSet2, lDateFrom, lDateTo
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
Line 7,594: Line 8,051:
   
   
   'Step 2: Find and Create the Report Objects
   'Step 2: Find and Create the Report Objects
   Set RptObject = ComServer.RptObjects.Find("Customer.IV.RO")  
   Set RptObject = ComServer.RptObjects.Find("GL.TrialBalance.RO")  
   
   
   'Step 3: Spool parameters
   'Step 3: Spool parameters
   'RptObject.Params.Find("AgentData").Value             = 'Not use if AllAgent is true
   RptObject.Params.Find("AllProject").Value     = true
   'RptObject.Params.Find("CompanyCategoryData").Value   = 'Not use if AllCompanyCategory is true
   RptObject.Params.Find("AllAgent").Value       = true
   RptObject.Params.Find("AllAgent").Value               = true
   RptObject.Params.Find("AllArea").Value         = true
   RptObject.Params.Find("AllCompanyCategory").Value     = true
   RptObject.Params.Find("LedgerType").Value     = "G" 'G = Legder, S = Debtor, P = Supplier
   RptObject.Params.Find("AllArea").Value               = true
   'RptObject.Params.Find("ProjectData").Value   = 'Not use if AllArea is true
   RptObject.Params.Find("AllCompany").Value             = true
   RptObject.Params.Find("ShowZeroBalance").Value = false
   RptObject.Params.Find("AllCurrency").Value           = true
   RptObject.Params.Find("SortBy").Value         = "PostDate;DocNo"
   RptObject.Params.Find("AllDocument").Value           = false
   RptObject.Params.Find("UseDescription2").Value = false
   RptObject.Params.Find("AllPaymentMethod").Value      = true
 
   'RptObject.Params.Find("AreaData").Value             = 'Not use if AllArea is true
  lDateFrom = CDate("October 27, 2016")
   'RptObject.Params.Find("CompanyData").Value           = 'Not use if AllCompany is true
  lDateTo = CDate("December 31, 2016")
   'RptObject.Params.Find("CurrencyData").Value         = 'Not use if AllCurrency is true
  '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
    
    
  lDateFrom = CDate("January 01, 2017")
   RptObject.Params.Find("SortBy").Value         = "Code;Description"  
  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  
   'Step 4: Perform Report calculation  
   RptObject.CalculateReport()
   RptObject.CalculateReport()
   Set lDataSet = RptObject.DataSets.Find("cdsMain")
   Set lDataSet = RptObject.DataSets.Find("cdsMain")
   Set lDataSet2 = RptObject.DataSets.Find("cdsDocDetail")
   Set lDataSet2 = RptObject.DataSets.Find("cdsGLAccount")
 
   MsgBox "Count " & lDataSet.RecordCount
   MsgBox "Count " & lDataSet.RecordCount
   
   
Line 7,637: Line 8,085:
   lDataSet.First
   lDataSet.First
   While (not lDataSet.eof)
   While (not lDataSet.eof)
     MsgBox "DocNo " & lDataSet.FindField("DocNo").AsString
     MsgBox "Month To Date"
MsgBox "DocAmt " & lDataSet.FindField("DocAmt").AsString
MsgBox lDataSet.FindField("Code").AsString & " DR=>" & lDataSet.FindField("MTDDR").AsString & " CR=>" & lDataSet.FindField("MTDCR").AsString
MsgBox "PaymentAmt " & lDataSet.FindField("PaymentAmt").AsString
MsgBox "cdsDocDetail Count " & lDataSet2.RecordCount
MsgBox "Year To Date"
lDataSet2.First
MsgBox lDataSet.FindField("Code").AsString & " DR=>" & lDataSet.FindField("YTDDR").AsString & " CR=>" & lDataSet.FindField("YTDCR").AsString
    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
lDataSet.Next
   Wend
   Wend
End Function
 
</syntaxhighlight>
  'For Account List
  lDataSet2.First
  While (not lDataSet2.eof)
MsgBox lDataSet2.FindField("Code").AsString & " " & lDataSet2.FindField("Description").AsString
lDataSet2.Next
  Wend
 
End Function
</syntaxhighlight>
|}
|}


<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Sales.OutstandingSO.RO====
====Customer.Aging.RO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Sales.OutstandingSO.RO Script   
! Customer Aging  Report Object Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg Sales.OutstandingSO.RO.vbs
'Copy below script & paste to notepad & name it as eg customer_aging_ro.vbs
Call GetData
Call GetCustStatementData
   
   
Function CreateSQLAccServer
Function CreateSQLAccServer
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function
 
Function GetData
Function GetCustStatementData
Dim ComServer, RptObject, lDataSet, lDataSet2, lDataSet3, lDateFrom, lDateTo
Const Quote = """"
Dim ComServer, RptObject, lDataSet, lDataSet2, lDateFrom, lDateTo, lAgeData
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
Line 7,677: Line 8,127:
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
   END IF
   END IF
 
   'Step 2: Find and Create the Report Objects
   'Step 2: Find and Create the Report Objects
   Set RptObject = ComServer.RptObjects.Find("Sales.OutstandingSO.RO")  
   Set RptObject = ComServer.RptObjects.Find("Customer.Aging.RO")  
   
   
   'Step 3: Spool parameters
   'Step 3: Spool parameters
   'RptObject.Params.Find("AgentData").Value            = 'Not use if AllAgent is true
   lAgeData = "<?xml version=" & Quote & "1.0" & Quote & " standalone=" & Quote & "yes" & Quote & "?>  <DATAPACKET Version=" & Quote & "2.0" & Quote & "><METADATA><FIELDS>" &_
  'RptObject.Params.Find("CompanyCategoryData").Value  = 'Not use if AllCompanyCategory is true
      "<FIELD attrname=" & Quote & "ColumnNo" & Quote & " fieldtype=" & Quote & "i4" & Quote & " required=" & Quote & "true" & Quote & "/><FIELD attrname=" & Quote & "ColumnType" & Quote & " fieldtype=" & Quote & "string" & Quote & " WIDTH=" & Quote & "1" & Quote & "/>" &_
  'RptObject.Params.Find("LocationData").Value        = 'Not use if AllLocation is true
      "<FIELD attrname=" & Quote & "Param1" & Quote & " fieldtype=" & Quote & "i4" & Quote & " required=" & Quote & "true" & Quote & "/><FIELD attrname=" & Quote & "Param2" & Quote & " fieldtype=" & Quote & "i4" & Quote & " required=" & Quote & "true" & Quote & "/>" &_
  'RptObject.Params.Find("StockGroupData").Value       = 'Not use if AllStockGroup is true
      "<FIELD attrname=" & Quote & "IsLocal" & Quote & " fieldtype=" & Quote & "boolean" & Quote & "/><FIELD attrname=" & Quote & "HeaderScript" & Quote & " fieldtype=" & Quote & "bin.hex" & Quote & " SUBTYPE=" & Quote & "Text" & Quote & " WIDTH=" & Quote & "1" & Quote & "/>" &_
  RptObject.Params.Find("AllAgent").Value             = true
      "</FIELDS><PARAMS/></METADATA><ROWDATA><ROW ColumnNo=" & Quote & "0" & Quote & " ColumnType=" & Quote & "" & Quote & " Param1=" & Quote & "0" & Quote & " Param2=" & Quote & "0" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & "/>" &_
  RptObject.Params.Find("AllArea").Value               = true
      "<ROW ColumnNo=" & Quote & "1" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "0" & Quote & " Param2=" & Quote & "0" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;Current Mth&apos;&#013;end;" & Quote & "/>" &_
  RptObject.Params.Find("AllCompany").Value           = true
      "<ROW ColumnNo=" & Quote & "2" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-1" & Quote & " Param2=" & Quote & "-1" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;1 Months&apos;&#013;end;" & Quote & "/>" &_
  RptObject.Params.Find("AllDocument").Value           = false
      "<ROW ColumnNo=" & Quote & "3" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-2" & Quote & " Param2=" & Quote & "-2" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;2 Months&apos;&#013;end;" & Quote & "/>" &_
  RptObject.Params.Find("AllItem").Value               = true
      "<ROW ColumnNo=" & Quote & "4" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-3" & Quote & " Param2=" & Quote & "-3" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;3 Months&apos;&#013;end;" & Quote & "/>" &_
   RptObject.Params.Find("AllItemProject").Value       = true
      "<ROW ColumnNo=" & Quote & "5" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-4" & Quote & " Param2=" & Quote & "-4" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;4 Months&apos;&#013;end;" & Quote & "/>" &_
  'RptObject.Params.Find("AreaData").Value             = 'Not use if AllArea is true
      "<ROW ColumnNo=" & Quote & "6" & Quote & " ColumnType=" & Quote & "B" & Quote & " Param1=" & Quote & "-999999" & Quote & " Param2=" & Quote & "-5" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;5 Month &amp; above&apos;&#013;end;" & Quote & "/>" &_
   'RptObject.Params.Find("CompanyData").Value           = 'Not use if AllCompany is true
      "</ROWDATA></DATAPACKET>"
   RptObject.Params.Find("AllTariff").Value              = true 'For Version 776 & above
   RptObject.Params.Find("ActualGroupBy").Value         = "Code;CompanyName" 'Fixed
   'RptObject.Params.Find("TariffData").Value             = 'Not use if TariffData is true - For Version 776 & above
' RptObject.Params.Find("AgentData").Value           = 'Not use if AllAgent is True
   RptObject.Params.Find("AgingData").Value           = lAgeData 'Fixed
 
   lDateTo = CDate("August 31, 2016")
   RptObject.Params.Find("AgingDate").Value           = lDateTo 


    
   RptObject.Params.Find("AgingOn").Value              = "I" 'Fixed
  lDateFrom = CDate("January 01, 2017")
   RptObject.Params.Find("AllAgent").Value             = true
  lDateTo = CDate("December 31, 2017")
   RptObject.Params.Find("AllArea").Value             = true
 
   RptObject.Params.Find("AllCompany").Value          = false
  'RptObject.Params.Find("DateFrom").Value              = lDateFrom
   RptObject.Params.Find("AllCompanyCategory").Value   = true
  'RptObject.Params.Find("DateTo").Value                = lDateTo
   RptObject.Params.Find("AllControlAccount").Value   = true
   'RptObject.Params.Find("DeliveryDateFrom").Value     = lDateFrom
   RptObject.Params.Find("AllCurrency").Value         = true
   'RptObject.Params.Find("DeliveryDateTo").Value       = lDateTo
   RptObject.Params.Find("AllDocProject").Value       = true
   RptObject.Params.Find("DocumentData").Value          = "SO-00007"& vbCRLF & "SO-00009"
' RptObject.Params.Find("AreaData").Value             = 'Not use if AllArea is True
   'RptObject.Params.Find("GroupBy").Value               = 'If you wanted to grouping the data
' RptObject.Params.Find("CompanyCategoryData").Value = 'Not use if AllCompanyCategory is True
   RptObject.Params.Find("IncludeCancelled").Value       = false
   RptObject.Params.Find("CompanyData").Value         = "300-A0001"& vbCRLF & "300-C0001" 'Filter by Customer Code 300-A0001 & 300-C0001
   'RptObject.Params.Find("ItemData").Value               = 'Not use if AllItem is true
'  RptObject.Params.Find("ControlAccountData").Value  = 'Not use if AllControlAccount is True
   RptObject.Params.Find("PrintFulfilledItem").Value     = true 'Print transfered info
'  RptObject.Params.Find("CurrencyData").Value         = 'Not use if AllCurrency is True
  RptObject.Params.Find("PrintOutstandingItem").Value   = true 'Print untransfer info
'  RptObject.Params.Find("DocProjectData").Value       = 'Not use if AllDocProject is True
  'RptObject.Params.Find("ItemProjectData").Value       = 'Not use if AllItemProject is true
   RptObject.Params.Find("FilterPostDate").Value       = false
   RptObject.Params.Find("SelectDate").Value             = false
' RptObject.Params.Find("GroupBy").Value               = 'Not use  
  RptObject.Params.Find("SelectDeliveryDate").Value    = false
   RptObject.Params.Find("IncludePDC").Value       = false
  RptObject.Params.Find("SortBy").Value                = "DocDate;DocNo;Code"
   RptObject.Params.Find("IncludeZeroBalance").Value   = false
  RptObject.Params.Find("AllDocProject").Value         = true
   RptObject.Params.Find("SortBy").Value               = "Code;CompanyName"
   RptObject.Params.Find("AllLocation").Value            = true
   RptObject.Params.Find("DateTo").Value               = lDateTo
  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  
   'Step 4: Perform Report calculation  
   RptObject.CalculateReport()
   RptObject.CalculateReport()
   Set lDataSet = RptObject.DataSets.Find("cdsMain")
   Set lDataSet = RptObject.DataSets.Find("cdsMain")
   Set lDataSet2 = RptObject.DataSets.Find("cdsTransfer")
   Set lDataSet2 = RptObject.DataSets.Find("cdsDocument")
   MsgBox "Count " & lDataSet.RecordCount
   MsgBox "Count " & lDataSet.RecordCount
 
   'Step 5 Retrieve the output  
   'Step 5 Retrieve the output  
   lDataSet.First
   lDataSet.First
   While (not lDataSet.eof)
   While (not lDataSet.eof)
     MsgBox "DocKey " & lDataSet.FindField("DocKey").AsString
     MsgBox lDataSet.FindField("Code").AsString & " " & lDataSet.FindField("CompanyName").AsString & " " & lDataSet.FindField("C1").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
lDataSet2.First
     While (not lDataSet2.eof)
     While (not lDataSet2.eof)
      MsgBox "FromDocKey " & lDataSet2.FindField("FromDocKey").AsString
  MsgBox lDataSet2.FindField("DocNo").AsString & " " & lDataSet2.FindField("C1").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
  lDataSet2.Next
     Wend
     Wend
lDataSet.Next
lDataSet.Next
   Wend
   Wend
Line 7,764: Line 8,196:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Common.PaymentMethod.RO====
====GL.JE.RO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Common.PaymentMethod.RO Script   
! GL Journal Voucher Report Object Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg Common.PaymentMethod.RO.vbs
'Copy below script & paste to notepad & name it as eg GLJE_ro.vbs
Call GetInfo
Call GetCustomerData
 
Function CreateSQLAccServer
Function CreateSQLAccServer
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function
 
Function GetInfo
Function GetCustomerData
Dim ComServer, RptObject, lDataSet1, lDataSet2
Dim ComServer, RptObject, lDataSet, lDataSet2, lDateFrom, lDateTo
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
Line 7,784: Line 8,216:
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
   END IF
   END IF
 
   'Step 2: Find and Create the Report Objects
   'Step 2: Find and Create the Report Objects
   Set RptObject = ComServer.RptObjects.Find("Common.PaymentMethod.RO")  
   Set RptObject = ComServer.RptObjects.Find("GL.JE.RO")  
 
  'Step 3: Spool parameters
   'Step 3: Perform Report calculation  
  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()
   RptObject.CalculateReport()
   Set lDataSet1 = RptObject.DataSets.Find("cdsMain")
   Set lDataSet = RptObject.DataSets.Find("cdsMain")
   Set lDataSet2 = RptObject.DataSets.Find("cdsPaymentAccount") 'You can link with lDataSet1 using Code to get the description
   Set lDataSet2 = RptObject.DataSets.Find("cdsDetail")
  MsgBox "Count " & lDataSet.RecordCount


  MsgBox "Count " & lDataSet1.RecordCount
   'Step 5 Retrieve the output  
   'Step 5 Retrieve the output  
   lDataSet1.First
   lDataSet.First
   While (not lDataSet1.eof)
   While (not lDataSet.eof)
MsgBox "Code : " & lDataSet1.FindField("Code").AsString  
    MsgBox lDataSet.FindField("DocNo").AsString & " " & lDataSet.FindField("Description").AsString
lDataSet1.Next
lDataSet2.First
  Wend   
    While (not lDataSet2.eof)
 
  MsgBox lDataSet2.FindField("Code").AsString & " " & lDataSet2.FindField("Description").AsString
  MsgBox "Count " & lDataSet2.RecordCount
  lDataSet2.Next
 
    Wend
  lDataSet2.First
lDataSet.Next
  While (not lDataSet2.eof)
   Wend
MsgBox "Code : " & lDataSet2.FindField("Code").AsString  
MsgBox "Description : " & lDataSet2.FindField("Description").AsString
lDataSet2.Next
   Wend  
End Function
End Function
</syntaxhighlight>
</syntaxhighlight>
Line 7,817: Line 8,266:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Common.Agent.RO====
====SL_CS====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Common.Agent.RO Script   
! SL_CS Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg Common.Agent.RO.vbs
'Copy below script & paste to notepad & name it as eg SL_CS.vbs
Call GetInfo
Call InsertData
 
Function CreateSQLAccServer
Function CreateSQLAccServer
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function
 
Function GetInfo
Function InsertData
Dim ComServer, RptObject, lDataSet1
Dim ComServer, BizObject, lDate
 
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
     ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"  
   END IF
   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
</syntaxhighlight>
|}


<div style="float: right;">  [[#top|[top]]]</div>
  'Step 2: Find and Create the Biz Objects
  Set BizObject = ComServer.BizObjects.Find("SL_CS")


====Stock.Item.RO====
  'Step 3: Set Dataset
{| class="mw-collapsible mw-collapsed wikitable"
  Set lMainDataSet = BizObject.DataSets.Find("MainDataSet")    'lMainDataSet contains master data
! Stock.Item.RO Script 
   Set lDetailDataSet = BizObject.DataSets.Find("cdsDocDetail") 'lDetailDataSet contains detail data  
|-
 
|
   'Step 4 : Insert Data - Master
<syntaxhighlight lang="vb">
   lDate = CDate("January 1, 2016")
'Copy below script & paste to notepad & name it as eg Stock.Item.RO.vbs
   BizObject.New
Call GetInfo
  lMainDataSet.FindField("DocKey").value = -1
  lMainDataSet.FindField("DocNo").value = "--IV Test--"
Function CreateSQLAccServer
  lMainDataSet.FindField("DocDate").value = lDate
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   lMainDataSet.FindField("PostDate").value = lDate
End Function
   lMainDataSet.FindField("Code").value = "300-C0001" 'Customer Code
   
   lMainDataSet.FindField("Description").value = "Sales"
Function GetInfo
   
Dim ComServer, RptObject, lDataSet1, lDataSet2, lDateFrom, lDateTo
   'Step 5: Insert Data - Detail
   'Step 1 Create Com Server object
  'For Tax Inclusive = True with override Tax Amount
   Set ComServer = CreateSQLAccServer 'Create Com Server
  lDetailDataSet.Append
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
  lDetailDataSet.FindField("DtlKey").value = -1
    ComServer.Login "ADMIN", "ADMIN", "C\DB\SQLAcc.DCF", "ACC-0002.FDB"
  lDetailDataSet.FindField("DocKey").value = -1
   END IF
  lDetailDataSet.FindField("Account").value = "500-000" 'Sales Account Code & can ignore if had itemcode
  lDetailDataSet.FindField("Description").value = "Sales Item A"
   'Step 2 Find and Create the Report Objects
  lDetailDataSet.FindField("Qty").value =  1
   Set RptObject = ComServer.RptObjects.Find("Stock.Item.RO")
  lDetailDataSet.FindField("Tax").value =  "SR"
  lDetailDataSet.FindField("TaxInclusive").value =  0
   'Step 3 Spool parameters
  lDetailDataSet.FindField("UnitPrice").value = 410.37
    RptObject.Params.Find("AllItem").AsBoolean              = true
  lDetailDataSet.FindField("Amount").value = 410.37
    RptObject.Params.Find("AllStockGroup").AsBoolean        = true
  lDetailDataSet.FindField("TaxAmt").value = 24.63
    RptObject.Params.Find("AllCustomerPriceTag").AsBoolean = true
 
    RptObject.Params.Find("AllSupplierPriceTag").AsBoolean = true
  lDetailDataSet.DisableControls
    'RptObject.Params.Find("CategoryData").AsBlob            =  'Not use
  lDetailDataSet.FindField("TaxInclusive").value =  1
    'RptObject.Params.Find("CategoryTpl").AsBlob            =  'Not use
  lDetailDataSet.EnableControls
    'RptObject.Params.Find("CustomerPriceTagData").AsBlob    =  'Not use if AllCustomerPriceTag is True
 
    'RptObject.Params.Find("SupplierPriceTagData").AsBlob    = 'Not use if AllSupplierPriceTag is True
  lDetailDataSet.Post
    lDateFrom = CDate("January 01, 2017")
    lDateTo = CDate("December 31, 2017")
    
    
    'RptObject.Params.Find("DateFrom").AsDate                = lDateFrom 'Not use if SelectDate is False
  'For Tax Inclusive = False with override Tax Amount
    'RptObject.Params.Find("DateTo").AsDate                  = lDateTo
  lDetailDataSet.Append
    RptObject.Params.Find("HasAltStockItem").AsBoolean      = false
  lDetailDataSet.FindField("DtlKey").value = -1
    RptObject.Params.Find("HasBarcode").AsBoolean          = false
  lDetailDataSet.FindField("DocKey").value = -1
    RptObject.Params.Find("HasBOM").AsBoolean              = false
  lDetailDataSet.FindField("Account").value = "500-000"
    RptObject.Params.Find("HasCategory").AsBoolean          = false
  lDetailDataSet.FindField("Description").value = "Sales Item B"
    RptObject.Params.Find("HasCustomerItem").AsBoolean      = false
  lDetailDataSet.FindField("Qty").value = 1
    RptObject.Params.Find("HasOpeningBalance").AsBoolean    = false
  lDetailDataSet.FindField("Tax").value = "SR"
    RptObject.Params.Find("HasPurchasePrice").AsBoolean    = false
  lDetailDataSet.FindField("TaxInclusive").value = 0
    RptObject.Params.Find("HasSellingPrice").AsBoolean      = false
  lDetailDataSet.FindField("UnitPrice").value = 94.43
    RptObject.Params.Find("HasSupplierItem").AsBoolean      = false
  lDetailDataSet.FindField("Amount").value = 94.43
    'RptObject.Params.Find("ItemData").AsBlob                = 'Not use if AllItem is True
  lDetailDataSet.FindField("TaxAmt").value = 5.66
    'RptObject.Params.Find("ItemCategoryData").AsBlob        = 'Not use if SelectCategory is False
  lDetailDataSet.Post
    RptObject.Params.Find("PrintActive").AsBoolean          = true
 
    RptObject.Params.Find("PrintInActive").AsBoolean        = true
  'For With Item Code
    RptObject.Params.Find("PrintNonStockControl").AsBoolean = true
  lDetailDataSet.Append
    RptObject.Params.Find("PrintStockControl").AsBoolean    = true
  lDetailDataSet.FindField("DtlKey").value = -1
    RptObject.Params.Find("SelectCategory").AsBoolean      = false
  lDetailDataSet.FindField("DocKey").value = -1
    RptObject.Params.Find("SelectDate").AsBoolean          = false
  lDetailDataSet.FindField("ItemCode").value = "ANT"
    RptObject.Params.Find("SortBy").AsString                  = "Code"
  lDetailDataSet.FindField("Description").value = "Sales Item B"
    'RptObject.Params.Find("StockGroupData").AsBlob        =  'Not use if AllStockGroup is True 
  lDetailDataSet.FindField("Qty").value =  2
   
   lDetailDataSet.FindField("Tax").value = "SR"
  'Step 4 Perform Report calculation
   lDetailDataSet.FindField("TaxInclusive").value = 0
   RptObject.CalculateReport()
   lDetailDataSet.FindField("UnitPrice").value = 100
  Set lDataSet1 = RptObject.DataSets.Find("cdsMain")
  lDetailDataSet.FindField("Amount").value = 200
   Set lDataSet2 = RptObject.DataSets.Find("cdsUOM") ' To link Master Data use Code
  lDetailDataSet.FindField("TaxAmt").value = 12
  MsgBox "Count " & lDataSet1.RecordCount
  lDetailDataSet.Post
   
   '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
   'Step 6: Save Document
   lDataSet2.First
   BizObject.Save
   While (not lDataSet2.eof)
   BizObject.Close
    MsgBox "Code " & lDataSet2.FindField("Code").AsString
  ComServer.Logout
MsgBox "UOM " & lDataSet2.FindField("UOM").AsString
  MsgBox "Done"
MsgBox "Rate " & lDataSet2.FindField("Rate").AsString
MsgBox "RefPrice " & lDataSet2.FindField("RefPrice").AsString
    lDataSet2.Next
  Wend
End Function
End Function
</syntaxhighlight>
</syntaxhighlight>
Line 7,950: Line 8,364:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Stock Item Balance====
====Customer.PM.RO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Get Stock Item Balance Script   
! Customer.PM.RO Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Available in Version 5.2018.833.759 & above
'Copy below script & paste to notepad & name it as eg Customer.PM.RO.vbs
'Copy below script & paste to notepad & name it as eg ItemBalance.vbs
Call GetARPMData
Call CheckLogin
Call GetData
 
Dim ComServer
 
Function CreateSQLAccServer
Function CreateSQLAccServer
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function
 
function CheckLogin
Function GetARPMData
Dim ComServer, RptObject, lDataSet, lDataSet2, lDataSet3, lDateFrom, lDateTo
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   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"
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
                'UserName, Password, DCF full path, Database filename
   END IF
   END IF
End Function
  '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


Function GetData
  lDateFrom = CDate("January 01, 2017")
Dim lDataSet, lSQL
   lDateTo = CDate("December 31, 2017")
   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) "  
  RptObject.Params.Find("DateFrom").Value                = lDateFrom
   lSQL = lSQL & "WHERE B.IsActive='T' "
   RptObject.Params.Find("DateTo").Value                  = lDateTo
   lSQL = lSQL & "AND A.PostDate <= '31 Dec 2017' "
  RptObject.Params.Find("DocumentData").Value            = "VCOR-00049"
   lSQL = lSQL & "AND A.ItemCode= 'ANT' "
   'RptObject.Params.Find("GroupBy").Value                = 'If you wanted to grouping the data
   lSQL = lSQL & "GROUP by A.Location, A.Batch, A.ItemCode, B.Description"
  RptObject.Params.Find("IncludeCancelled").Value        = false
   Set lDataSet = ComServer.DBManager.NewDataSet(lSQL)
   '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
   lDataSet.First
   While (not lDataSet.eof)
   While (not lDataSet.eof)
     MsgBox "Location : " & lDataSet.FindField("Location").AsString
     MsgBox lDataSet.FindField("DocKey").AsString & " " & lDataSet.FindField("DocNo").AsString & " " & lDataSet.FindField("Code").AsString
    MsgBox "Batch : " & lDataSet.FindField("Batch").AsString
MsgBox "cdsKnockOff Count " & lDataSet2.RecordCount
     MsgBox "Item Code : " & lDataSet.FindField("ItemCode").AsString
lDataSet2.First
MsgBox "Item Description : " & lDataSet.FindField("Description").AsString
     While (not lDataSet2.eof)
MsgBox "Balance Qty : " & lDataSet.FindField("Qty").AsString
  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
lDataSet.Next
   Wend
   Wend
Line 8,001: Line 8,451:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====ST_IS====
====Sales.IV.RO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! ST_IS Script   
! Sales.IV.RO Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg StockIssue.vbs
'Copy below script & paste to notepad & name it as eg Sales.IV.RO.vbs
Call CheckLogin
Call GetSalesIVData
Call InsertData
 
Dim ComServer
 
Function CreateSQLAccServer
Function CreateSQLAccServer
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function
 
function CheckLogin
Function GetSalesIVData
Dim ComServer, RptObject, lDataSet, lDataSet2, lDataSet3, lDateFrom, lDateTo
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   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"
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
                'UserName, Password, DCF full path, Database filename
   END IF
   END IF
End Function
  '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


Function InsertData
  lDateFrom = CDate("January 01, 2017")
Dim BizObject, lMain, lDetail, lDate
  lDateTo = CDate("December 31, 2017")
   'Step 2: Find and Create the Biz Objects
 
   Set BizObject = ComServer.BizObjects.Find("ST_IS")  
  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
</syntaxhighlight>
|}


  'Step 3: Set Dataset
<div style="float: right;">   [[#top|[top]]]</div>
  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
====Customer.DueDocument.RO====
  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
</syntaxhighlight>
|}
 
<div style="float: right;">  [[#top|[top]]]</div>
 
====ST_RC====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! ST_RC Script   
! Customer.DueDocument.RO Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg StockReceived.vbs
'Copy below script & paste to notepad & name it as eg Customer.DueDocument.RO.vbs
Call CheckLogin
Call GetData
Call InsertData
 
Dim ComServer
 
Function CreateSQLAccServer
Function CreateSQLAccServer
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function
 
function CheckLogin
Function GetData
Dim ComServer, RptObject, lDataSet, lDateTo
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   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"
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
                'UserName, Password, DCF full path, Database filename
   END IF
   END IF
End Function
 
   'Step 2: Find and Create the Report Objects
Function InsertData
   Set RptObject = ComServer.RptObjects.Find("Customer.DueDocument.RO")  
Dim BizObject, lMain, lDetail, lDate
   'Step 2: Find and Create the Biz Objects
   'Step 3: Spool parameters
   Set BizObject = ComServer.BizObjects.Find("ST_RC")  
  'RptObject.Params.Find("AgentData").Value              = 'Not use if AllAgent is true
 
  RptObject.Params.Find("AllAgent").Value              = true
   'Step 3: Set Dataset
  RptObject.Params.Find("AllArea").Value                = true
   Set lMain   = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data
  RptObject.Params.Find("AllCompany").Value            = false
   Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data 
  RptObject.Params.Find("AllCompanyCategory").Value    = true
    
  RptObject.Params.Find("AllCurrency").Value            = true
   'Step 4 : Insert Data - Master
  RptObject.Params.Find("AllDocProject").Value          = true
   lDate = CDate("January 1, 2017")
   RptObject.Params.Find("AllItemProject").Value        = true
   BizObject.New
   'RptObject.Params.Find("AreaData").Value              = 'Not use if AllArea is true
   lMain.FindField("DocKey").value         = -1
  'RptObject.Params.Find("CompanyCategoryData").Value  = 'Not use if AllCompanyCategory is true
   lMain.FindField("DocNo").AsString      = "--RC Test--"
   RptObject.Params.Find("CompanyData").Value            = "300-A0003"
   lMain.FindField("DocDate").value        = lDate
  'RptObject.Params.Find("CurrencyData").Value          = 'Not use if AllCurrency is true
   lMain.FindField("PostDate").value      = lDate
   'RptObject.Params.Find("DocProjectData").Value        = 'Not use if AllDocProject is true
   lMain.FindField("Description").AsString = "Stock Received"
   '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 5: Insert Data - Detail
   'Step 4: Perform Report calculation
  lDetail.Append
   RptObject.CalculateReport()
   lDetail.FindField("DtlKey").value        = -1
   Set lDataSet = RptObject.DataSets.Find("cdsMain")
   lDetail.FindField("DocKey").value        = -1
   MsgBox "Count " & lDataSet.RecordCount
  lDetail.FindField("ItemCode").AsString    = "ANT"
   lDetail.FindField("Description").AsString = "Received Item A"
   'Step 5 Retrieve the output
  lDetail.FindField("Qty").AsFloat          = 2
   lDataSet.First
   lDetail.FindField("UnitCost").AsFloat    = 25.15
   While (not lDataSet.eof)
   lDetail.Post
    MsgBox "Dockey " & lDataSet.FindField("DocKey").AsString
 
MsgBox "DocNo " & lDataSet.FindField("DocNo").AsString  
   lDetail.Append
MsgBox "DocAmt " & lDataSet.FindField("DocAmt").AsString
  lDetail.FindField("DtlKey").value        = -1
MsgBox "Outstanding " & lDataSet.FindField("Outstanding").AsString
  lDetail.FindField("DocKey").value        = -1
MsgBox "Code " & lDataSet.FindField("Code").AsString
  lDetail.FindField("ItemCode").AsString   = "E-BAT"
lDataSet.Next
  lDetail.FindField("Description").AsString = "Received Item A"
   Wend
  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
End Function
</syntaxhighlight>
</syntaxhighlight>
Line 8,145: Line 8,619:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====ST_AJ====
====Customer.IV.RO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! ST_AJ Script   
! Customer.IV.RO Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg StockAdjustment.vbs
'Copy below script & paste to notepad & name it as eg Customer.IV.RO.vbs
Call CheckLogin
Call GetData
Call InsertData
 
Dim ComServer
 
Function CreateSQLAccServer
Function CreateSQLAccServer
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function
 
function CheckLogin
Function GetData
Dim ComServer, RptObject, lDataSet, lDataSet2, lDataSet3, lDateFrom, lDateTo
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   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"
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
                'UserName, Password, DCF full path, Database filename
   END IF
   END IF
End Function
 
   'Step 2: Find and Create the Report Objects
Function InsertData
   Set RptObject = ComServer.RptObjects.Find("Customer.IV.RO")  
Dim BizObject, lMain, lDetail, lDate
   'Step 2: Find and Create the Biz Objects
   'Step 3: Spool parameters
   Set BizObject = ComServer.BizObjects.Find("ST_AJ")  
  'RptObject.Params.Find("AgentData").Value            = 'Not use if AllAgent is true
 
  'RptObject.Params.Find("CompanyCategoryData").Value  = 'Not use if AllCompanyCategory is true
   'Step 3: Set Dataset
  RptObject.Params.Find("AllAgent").Value              = true
   Set lMain   = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data
  RptObject.Params.Find("AllCompanyCategory").Value    = true
   Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data 
  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")
    
    
   'Step 4 : Insert Data - Master
   RptObject.Params.Find("DateFrom").Value                = lDateFrom
   lDate = CDate("January 1, 2017")
  RptObject.Params.Find("DateTo").Value                  = lDateTo
   BizObject.New
  RptObject.Params.Find("DocumentData").Value            =  "IV-00012"
   lMain.FindField("DocKey").value        = -1
   'RptObject.Params.Find("GroupBy").Value                = 'If you wanted to grouping the data
   lMain.FindField("DocNo").AsString      = "--AJ Test--"
  RptObject.Params.Find("IncludeCancelled").Value        = true
   lMain.FindField("DocDate").value        = lDate
   'RptObject.Params.Find("PaymentMethodData").Value      = 'Not use if AllPaymentMethod is true
   lMain.FindField("PostDate").value      = lDate
   RptObject.Params.Find("PrintDocumentStyle").Value      = false
   lMain.FindField("Description").AsString = "Stock Adjustment"
   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 5: Insert Data - Detail
   'Step 4: Perform Report calculation
   lDetail.Append
   RptObject.CalculateReport()
   lDetail.FindField("DtlKey").value        = -1
   Set lDataSet = RptObject.DataSets.Find("cdsMain")
   lDetail.FindField("DocKey").value        = -1
   Set lDataSet2 = RptObject.DataSets.Find("cdsDocDetail")
   lDetail.FindField("ItemCode").AsString    = "ANT"
  MsgBox "Count " & lDataSet.RecordCount
  lDetail.FindField("Description").AsString = "Adjust IN Item A"
  lDetail.FindField("Qty").AsFloat          = 2
  'Step 5 Retrieve the output
  lDetail.FindField("UnitCost").AsFloat    = 25.15 'Only IN need UnitCost
   lDataSet.First
  lDetail.Post
  While (not lDataSet.eof)
 
    MsgBox "DocNo " & lDataSet.FindField("DocNo").AsString
  lDetail.Append
MsgBox "DocAmt " & lDataSet.FindField("DocAmt").AsString
  lDetail.FindField("DtlKey").value        = -1
MsgBox "PaymentAmt " & lDataSet.FindField("PaymentAmt").AsString
  lDetail.FindField("DocKey").value        = -1
  lDetail.FindField("ItemCode").AsString   = "E-BAT"
MsgBox "cdsDocDetail Count " & lDataSet2.RecordCount
  lDetail.FindField("Description").AsString = "Adjust OUT Item A"
lDataSet2.First
  lDetail.FindField("Qty").AsFloat          = -4
    While (not lDataSet2.eof)
  lDetail.Post 
  MsgBox "Account " & lDataSet2.FindField("Account").AsString
  'Step 6: Save Document
  MsgBox "Description " & lDataSet2.FindField("Description").AsString
  BizObject.Save
  MsgBox "Amount " & lDataSet2.FindField("Amount").AsString
  BizObject.Close
  lDataSet2.Next
      
     Wend
  ComServer.Logout 'Logout after done
lDataSet.Next
   MsgBox "Done" 
   Wend
End Function
End Function
</syntaxhighlight>
</syntaxhighlight>
Line 8,217: Line 8,704:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====ST_XF====
====Sales.OutstandingSO.RO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! ST_XF Script   
! Sales.OutstandingSO.RO Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg ST_XF.vbs
'Copy below script & paste to notepad & name it as eg Sales.OutstandingSO.RO.vbs
Call CheckLogin
Call GetData
Call InsertData
 
Dim ComServer
 
Function CreateSQLAccServer
Function CreateSQLAccServer
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function
 
function CheckLogin
Function GetData
Dim ComServer, RptObject, lDataSet, lDataSet2, lDataSet3, lDateFrom, lDateTo
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   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"
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
                'UserName, Password, DCF full path, Database filename
   END IF
   END IF
End Function
  '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


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
   lDateFrom = CDate("January 01, 2017")
  'Step 4 : Insert Data - Master
   lDateTo = CDate("December 31, 2017")  
  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  
  'RptObject.Params.Find("DateFrom").Value              = lDateFrom
   'ComServer.Logout
  'RptObject.Params.Find("DateTo").Value                = lDateTo
    
  'RptObject.Params.Find("DeliveryDateFrom").Value      = lDateFrom
  MsgBox "Done"
  '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
End Function
</syntaxhighlight>
</syntaxhighlight>
Line 8,300: Line 8,811:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====AP_PI-Edit====
====Common.PaymentMethod.RO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! AP_PI Edit Script   
! Common.PaymentMethod.RO Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Available in Version 5.2018.833.759 & above
'Copy below script & paste to notepad & name it as eg Common.PaymentMethod.RO.vbs
'Copy below script & paste to notepad & name it as eg AP_PI.vbs
Call GetInfo
Call CheckLogin
Call GetData
Call PostData
 
Dim ComServer, lDataSet
 
Function CreateSQLAccServer
Function CreateSQLAccServer
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function
 
function CheckLogin
Function GetInfo
Dim ComServer, RptObject, lDataSet1, lDataSet2
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   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"
     ComServer.Login "ADMIN", "ADMIN", "C:\DB\SQLAcc.DCF", "ACC-0002.FDB"  
                'UserName, Password, DCF full path, Database filename
   END IF
   END IF
End Function
  '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


Function GetData
  MsgBox "Count " & lDataSet1.RecordCount
Dim lSQL
   lSQL = "SELECT Dockey FROM AP_PI "
   'Step 5 Retrieve the output
   lSQL = lSQL & "WHERE DocNo='PI-00001' "
  lDataSet1.First
   lSQL = lSQL & "AND Code='400-D0001' "
  While (not lDataSet1.eof)
  Set lDataSet = ComServer.DBManager.NewDataSet(lSQL)
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
End Function
</syntaxhighlight>
|}


Function PostData
<div style="float: right;">  [[#top|[top]]]</div>
Dim BizObject, lMain, lDetail
  'Step 2: Find and Create the Biz Objects
  Set BizObject = ComServer.BizObjects.Find("AP_PI")


  'Step 3: Set Dataset
====Common.Agent.RO====
  Set lMain  = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data
{| class="mw-collapsible mw-collapsed wikitable"
   Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data  
! Common.Agent.RO Script 
 
|-
   'Step 4 : Find Doc Number
|
   If lDataSet.RecordCount > 0 Then   
<syntaxhighlight lang="vb">
lDataSet.First
'Copy below script & paste to notepad & name it as eg Common.Agent.RO.vbs
    BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString
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
    BizObject.Open
    BizObject.Edit
   'Step 5 Retrieve the output
    lMain.Edit
  lDataSet1.First
lMain.FindField("Description").AsString = "testing"
   While (not lDataSet1.eof)
 
MsgBox "Code : " & lDataSet1.FindField("Code").AsString
   'Step 5: Delete all Detail
MsgBox "Description : " & lDataSet1.FindField("Description").AsString
    While lDetail.RecordCount <> 0
lDataSet1.Next
      lDetail.First
   Wend     
  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
End Function
</syntaxhighlight>
</syntaxhighlight>
Line 8,388: Line 8,908:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====SL_DO to SL_IV====
====Stock.Item.RO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! SL_DO to SL_IV Script   
! Stock.Item.RO Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Updated 26 Oct 2018
'Copy below script & paste to notepad & name it as eg Stock.Item.RO.vbs
'Copy below script & paste to notepad & name it as eg SL_IV.vbs
Call GetInfo
Call CheckLogin
Call InsertData1
Call InsertData2
 
Dim ComServer
 
Function CreateSQLAccServer
Function CreateSQLAccServer
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function
 
function CheckLogin
Function GetInfo
   'Step 1: Create Com Server object
Dim ComServer, RptObject, lDataSet1, lDataSet2, lDateFrom, lDateTo
   'Step 1 Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   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"
     ComServer.Login "ADMIN", "ADMIN", "C\DB\SQLAcc.DCF", "ACC-0002.FDB"  
                'UserName, Password, DCF full path, Database filename
   END IF
   END IF
End Function
 
   'Step 2 Find and Create the Report Objects
Function InsertData1
   Set RptObject = ComServer.RptObjects.Find("Stock.Item.RO")  
Dim BizObject, lMain, lDetail, lDate
   'Step 2: Find and Create the Biz Objects
   'Step 3 Spool parameters
   Set BizObject = ComServer.BizObjects.Find("SL_DO")  
    RptObject.Params.Find("AllItem").AsBoolean              = true
 
    RptObject.Params.Find("AllStockGroup").AsBoolean        = true
   'Step 3: Set Dataset
    RptObject.Params.Find("AllCustomerPriceTag").AsBoolean  = true
  Set lMain  = BizObject.DataSets.Find("MainDataSet")  'lMain contains master data
    RptObject.Params.Find("AllSupplierPriceTag").AsBoolean  = true
  Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data  
    '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")
    
    
  'Begin Looping yr data
    'RptObject.Params.Find("DateFrom").AsDate                = lDateFrom 'Not use if SelectDate is False
  'Step 4 : Insert Data - Master
    'RptObject.Params.Find("DateTo").AsDate                  = lDateTo
  lDate = CDate("January 1, 2017")
    RptObject.Params.Find("HasAltStockItem").AsBoolean      = false
  BizObject.New
    RptObject.Params.Find("HasBarcode").AsBoolean          = false
  lMain.FindField("DocKey").value        = -1
    RptObject.Params.Find("HasBOM").AsBoolean              = false
  lMain.FindField("DocNo").AsString      = "--DO Test--"
    RptObject.Params.Find("HasCategory").AsBoolean          = false
  lMain.FindField("DocDate").value        = lDate
    RptObject.Params.Find("HasCustomerItem").AsBoolean      = false
  lMain.FindField("PostDate").value      = lDate
    RptObject.Params.Find("HasOpeningBalance").AsBoolean    = false
  lMain.FindField("Code").AsString        = "300-C0001" 'Customer Account
    RptObject.Params.Find("HasPurchasePrice").AsBoolean    = false
  lMain.FindField("CompanyName").AsString = "Cash Sales"
    RptObject.Params.Find("HasSellingPrice").AsBoolean      = false
  'lMain.FindField("Address1").AsString    = "" 'Optional
    RptObject.Params.Find("HasSupplierItem").AsBoolean      = false
  'lMain.FindField("Address2").AsString    = "" 'Optional
    'RptObject.Params.Find("ItemData").AsBlob                = 'Not use if AllItem is True
  'lMain.FindField("Address3").AsString    = "" 'Optional
    'RptObject.Params.Find("ItemCategoryData").AsBlob        = 'Not use if SelectCategory is False
  'lMain.FindField("Address4").AsString    = "" 'Optional
    RptObject.Params.Find("PrintActive").AsBoolean          = true
  'lMain.FindField("Phone1").AsString     = "" 'Optional
    RptObject.Params.Find("PrintInActive").AsBoolean        = true
  lMain.FindField("Description").AsString = "Delivery Order"
    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 5: Insert Data - Detail
   'Step 4 Perform Report calculation
  lDetail.Append
   RptObject.CalculateReport()
   lDetail.FindField("DtlKey").value        = -1
   Set lDataSet1 = RptObject.DataSets.Find("cdsMain")
   lDetail.FindField("DocKey").value        = -1
   Set lDataSet2 = RptObject.DataSets.Find("cdsUOM") ' To link Master Data use Code
   lDetail.FindField("Seq").value            = 1
   MsgBox "Count " & lDataSet1.RecordCount
   lDetail.FindField("ItemCode").AsString    = "ANT"
  lDetail.FindField("Description").AsString = "Sales Item A"
   'Step 5 Retrieve the output
   lDetail.FindField("UOM").AsString        = "BOX"
   lDataSet1.First
   lDetail.FindField("Qty").AsFloat          = 2
   While (not lDataSet1.eof)
   'lDetail.FindField("DISC").AsString        = "5%+3" 'Optional (eg 5% plus 3 Discount)
    MsgBox "Code " & lDataSet1.FindField("Code").AsString  
  lDetail.FindField("Tax").AsString        = "SR"
     MsgBox "Description " & lDataSet1.FindField("Description").AsString
  lDetail.FindField("TaxRate").AsString    = "6%"
    MsgBox "Balance Qty " & lDataSet1.FindField("BalSQty").AsString
  lDetail.FindField("TaxInclusive").value  = 0
    lDataSet1.Next
  lDetail.FindField("UnitPrice").AsFloat    = 100 
   Wend
  lDetail.FindField("Amount").AsFloat      = 200
  lDetail.FindField("TaxAmt").AsFloat      = 12
   lDetail.Post


   lDetail.Append
   MsgBox "Count " & lDataSet2.RecordCount
  lDetail.FindField("DtlKey").value        = -1
   lDataSet2.First
   lDetail.FindField("DocKey").value        = -1
   While (not lDataSet2.eof)
   lDetail.FindField("Seq").value            = 2
    MsgBox "Code " & lDataSet2.FindField("Code").AsString  
  lDetail.FindField("ItemCode").AsString    = "COVER"
MsgBox "UOM " & lDataSet2.FindField("UOM").AsString  
  lDetail.FindField("Description").AsString = "Sales Item B"
MsgBox "Rate " & lDataSet2.FindField("Rate").AsString  
  lDetail.FindField("UOM").AsString         = "UNIT"
MsgBox "RefPrice " & lDataSet2.FindField("RefPrice").AsString
  lDetail.FindField("Qty").AsFloat          = 3
     lDataSet2.Next
  lDetail.FindField("Tax").AsString         = "SR"
   Wend
  lDetail.FindField("TaxRate").AsString    = "6%"
End Function
   lDetail.FindField("TaxInclusive").value   = 0
</syntaxhighlight>
  lDetail.FindField("UnitPrice").AsFloat    = 10  
|}
  lDetail.FindField("Amount").AsFloat      = 30
 
  lDetail.FindField("TaxAmt").AsFloat      = 1.80
<div style="float: right;">   [[#top|[top]]]</div>
  lDetail.Post 
 
  'Step 6: Save Document
====Stock Item Balance====
  BizObject.Save
{| class="mw-collapsible mw-collapsed wikitable"
  BizObject.Close
! Get Stock Item Balance Script  
   MsgBox "DO Posting Done"
|-
|
<syntaxhighlight lang="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
End Function


Function InsertData2
function CheckLogin
Dim BizObject, lMain, lDetail, lDate, lDODtl, lxFer, lSQL, v(2)
   'Step 1: Create Com Server object
   'Step 1: Check Is transtered or not
   Set ComServer = CreateSQLAccServer 'Create Com Server
   lSQL = "SELECT DocKey FROM SL_IVDTL "
  If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
  lSQL = lSQL & "WHERE FromDockey=(SELECT DocKey FROM SL_DO "  
    ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"
  lSQL = lSQL & "WHERE DocNo='--DO Test--') "
                'UserName, Password, DCF full path, Database filename
   Set lxFer = ComServer.DBManager.NewDataSet(lSQL)
   END IF
End Function


  if lxFer.RecordCount = 0 then
Function GetData
    'Step 2: Get DO Information
Dim lDataSet, lSQL
    lSQL = "SELECT * FROM SL_DODTL "
  lSQL = "SELECT A.Location, A.Batch, A.ItemCode, B.Description, Sum(A.Qty) Qty FROM ST_TR A "
    lSQL = lSQL & "WHERE Dockey=(SELECT DocKey FROM SL_DO "  
  lSQL = lSQL & "INNER JOIN ST_ITEM B ON (A.ITEMCODE=B.CODE) "  
    lSQL = lSQL & "WHERE DocNo='--DO Test--') "
  lSQL = lSQL & "WHERE B.IsActive='T' "
    Set lDODtl = ComServer.DBManager.NewDataSet(lSQL)   
  lSQL = lSQL & "AND A.PostDate <= '31 Dec 2017' "
  lSQL = lSQL & "AND A.ItemCode= 'ANT' "
'Step 3: Find and Create the Biz Objects
   lSQL = lSQL & "GROUP by A.Location, A.Batch, A.ItemCode, B.Description"
    Set BizObject = ComServer.BizObjects.Find("SL_IV")
  Set lDataSet = ComServer.DBManager.NewDataSet(lSQL)
 
    '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
  lDataSet.First
    lDate = CDate("January 1, 2017")
  While (not lDataSet.eof)
    BizObject.New
     MsgBox "Location : " & lDataSet.FindField("Location").AsString
    lMain.FindField("DocKey").value        = -1
     MsgBox "Batch : " & lDataSet.FindField("Batch").AsString
    lMain.FindField("DocNo").AsString      = "--IV Test--"
     MsgBox "Item Code : " & lDataSet.FindField("ItemCode").AsString
     lMain.FindField("DocDate").value        = lDate
MsgBox "Item Description : " & lDataSet.FindField("Description").AsString
    lMain.FindField("PostDate").value      = lDate
MsgBox "Balance Qty : " & lDataSet.FindField("Qty").AsString
    lMain.FindField("Code").AsString       = "300-C0001" 'Customer Account
lDataSet.Next
     lMain.FindField("CompanyName").AsString = "Cash Sales"
   Wend
    'lMain.FindField("Address1").AsString   = "" 'Optional
End Function
     'lMain.FindField("Address2").AsString    = "" 'Optional
</syntaxhighlight>
    'lMain.FindField("Address3").AsString    = "" 'Optional
|}
    'lMain.FindField("Address4").AsString    = "" 'Optional
 
    'lMain.FindField("Phone1").AsString      = "" 'Optional
<div style="float: right;">   [[#top|[top]]]</div>
    lMain.FindField("Description").AsString = "Sales"
 
   
====ST_IS====
    'Step 6: Insert Data - Detail
{| class="mw-collapsible mw-collapsed wikitable"
    v(0) = "COVER"
! ST_IS Script 
    v(1) = "UNIT"
|-
|
    if (lDODtl.Locate("ItemCode;UOM", v, false, false)) then
<syntaxhighlight lang="vb">
      lDetail.Append
'Copy below script & paste to notepad & name it as eg StockIssue.vbs
      lDetail.FindField("DtlKey").value        = -1
Call CheckLogin
      lDetail.FindField("DocKey").value        = -1
Call InsertData
      lDetail.FindField("Seq").value            = 1
 
      lDetail.FindField("ItemCode").AsString    = lDODtl.FindField("ItemCode").AsString
Dim ComServer
      lDetail.FindField("Description").AsString = lDODtl.FindField("Description").AsString
 
      'lDetail.FindField("Account").AsString    = "500-000" 'If you wanted override the Sales Account Code
Function CreateSQLAccServer
      lDetail.FindField("UOM").AsString        = lDODtl.FindField("UOM").AsString
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
  lDetail.FindField("Qty").AsFloat          = lDODtl.FindField("Qty").AsFloat
End Function
      lDetail.FindField("DISC").AsString        = lDODtl.FindField("Disc").AsString
 
      lDetail.FindField("Tax").AsString        = lDODtl.FindField("Tax").AsString
function CheckLogin
      lDetail.FindField("TaxRate").AsString    = lDODtl.FindField("TaxRate").AsString
   'Step 1: Create Com Server object
      lDetail.FindField("TaxInclusive").value   = lDODtl.FindField("TaxInclusive").Value
   Set ComServer = CreateSQLAccServer 'Create Com Server
      lDetail.FindField("UnitPrice").AsFloat    = lDODtl.FindField("UnitPrice").AsFloat
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
      lDetail.FindField("Amount").AsFloat      = lDODtl.FindField("Amount").AsFloat
    ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"
      lDetail.FindField("TaxAmt").AsFloat      = lDODtl.FindField("TaxAmt").AsFloat
                'UserName, Password, DCF full path, Database filename
  lDetail.FindField("FromDocType").AsString = "DO"
   END IF
  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
End Function
</syntaxhighlight>
|}
<div style="float: right;">  [[#top|[top]]]</div>


====SL_IV-Edit====
Function InsertData
{| class="mw-collapsible mw-collapsed wikitable"
Dim BizObject, lMain, lDetail, lDate
! SL_IV-Edit Script 
  'Step 2: Find and Create the Biz Objects
|-
  Set BizObject = ComServer.BizObjects.Find("ST_IS")
|
<syntaxhighlight lang="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
  'Step 3: Set Dataset
 
  Set lMain  = BizObject.DataSets.Find("MainDataSet")  'lMain contains master data
Function CreateSQLAccServer
  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
</syntaxhighlight>
|}
 
<div style="float: right;">  [[#top|[top]]]</div>
 
====ST_RC====
{| class="mw-collapsible mw-collapsed wikitable"
! ST_RC Script 
|-
|
<syntaxhighlight lang="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")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function
Line 8,611: Line 9,144:
End Function
End Function


Function GetData
Function InsertData
Dim lSQL
Dim BizObject, lMain, lDetail, lDate
  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
   'Step 2: Find and Create the Biz Objects
   Set BizObject = ComServer.BizObjects.Find("SL_IV")  
   Set BizObject = ComServer.BizObjects.Find("ST_RC")  


   'Step 3: Set Dataset
   'Step 3: Set Dataset
Line 8,627: Line 9,153:
   Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data   
   Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data   
    
    
   'Step 4 : Find Doc Number
   'Step 4 : Insert Data - Master
   If lDataSet.RecordCount > 0 Then    
   lDate = CDate("January 1, 2017")
lDataSet.First
   BizObject.New
    BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString
  lMain.FindField("DocKey").value        = -1
    
  lMain.FindField("DocNo").AsString       = "--RC Test--"
 
   lMain.FindField("DocDate").value        = lDate
    BizObject.Open
  lMain.FindField("PostDate").value      = lDate
    BizObject.Edit
  lMain.FindField("Description").AsString = "Stock Received"
    lMain.Edit
   
lMain.FindField("Description").AsString = "Sales - Edited"  
   'Step 5: Insert Data - Detail
 
  lDetail.Append
   'Step 5: Delete all Detail
  lDetail.FindField("DtlKey").value        = -1
    While lDetail.RecordCount <> 0
   lDetail.FindField("DocKey").value         = -1
      lDetail.First
  lDetail.FindField("ItemCode").AsString    = "ANT"
  lDetail.Delete
  lDetail.FindField("Description").AsString = "Received Item A"
    Wend
  lDetail.FindField("Qty").AsFloat          = 2
   'Step 6: Append Detail
  lDetail.FindField("UnitCost").AsFloat    = 25.15
    lDetail.Append
  lDetail.Post
    lDetail.FindField("DtlKey").value = -1
 
    lDetail.FindField("Account").value = "500-000"
  lDetail.Append
    lDetail.FindField("Description").value = "Edited Item A"
  lDetail.FindField("DtlKey").value         = -1
    lDetail.FindField("Tax").value = ""
  lDetail.FindField("DocKey").value         = -1
    lDetail.FindField("TaxInclusive").value = 0
  lDetail.FindField("ItemCode").AsString    = "E-BAT"
    lDetail.FindField("Amount").value = 410.37
  lDetail.FindField("Description").AsString = "Received Item A"
    lDetail.FindField("TaxAmt").value = 0
  lDetail.FindField("Qty").AsFloat          = 4
     lDetail.Post
  lDetail.FindField("UnitCost").AsFloat     = 54
 
  lDetail.Post
   'Step 7: Save Document
   'Step 6: Save Document
    BizObject.Save
  BizObject.Save
    BizObject.Close
  BizObject.Close
 
   
   'Step 8 : Logout after done
   ComServer.Logout 'Logout after done
    'ComServer.Logout 
  MsgBox "Done"
    MsgBox "Done"  
Else
MsgBox "Record Not Found"
  END IF
End Function
End Function
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====GL_JE====
====ST_AJ====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! GL_JE Script   
! ST_AJ Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg GL_JE.vbs
'Copy below script & paste to notepad & name it as eg StockAdjustment.vbs
Call InsertGLJE
Call CheckLogin
Call InsertData
 
Dim ComServer
 
Function CreateSQLAccServer
Function CreateSQLAccServer
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function
 
Function InsertGLJE
function CheckLogin
Dim ComServer, BizObject, lDataSet, lDataSet2, lDate
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   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"  
     ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"
                'UserName, Password, DCF full path, Database filename
   END IF
   END IF
End Function
 
Function InsertData
Dim BizObject, lMain, lDetail, lDate
   'Step 2: Find and Create the Biz Objects
   'Step 2: Find and Create the Biz Objects
   Set BizObject = ComServer.BizObjects.Find("GL_JE")  
   Set BizObject = ComServer.BizObjects.Find("ST_AJ")  
 
   'Step 3: Set Dataset
   'Step 3: Set Dataset
   Set lMainDataSet = BizObject.DataSets.Find("MainDataSet")   'lMainDataSet contains master data
   Set lMain  = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data
   Set lDetailDataSet = BizObject.DataSets.Find("cdsDocDetail") 'lDetailDataSet contains detail data   
   Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data   
    
    
   'Step 4 : Insert Data - Master
   'Step 4 : Insert Data - Master
   lDate = CDate("January 23, 2017")
   lDate = CDate("January 1, 2017")
   BizObject.New
   BizObject.New
   lMainDataSet.FindField("DocKey").value = -1
   lMain.FindField("DocKey").value         = -1
   lMainDataSet.FindField("DocNo").value = "--JV Test--"
   lMain.FindField("DocNo").AsString      = "--AJ Test--"
   lMainDataSet.FindField("DocDate").value = lDate
   lMain.FindField("DocDate").value       = lDate
   lMainDataSet.FindField("PostDate").value = lDate
   lMain.FindField("PostDate").value       = lDate
   lMainDataSet.FindField("Description").value = "testing desc header"
   lMain.FindField("Description").AsString = "Stock Adjustment"
  lMainDataSet.Post
   
 
   'Step 5: Insert Data - Detail
   'Step 5: Insert Data - Detail
   'For Tax Inclusive
   lDetail.Append
  lDetailDataSet.Append
   lDetail.FindField("DtlKey").value         = -1
   lDetailDataSet.FindField("DtlKey").value = -1
   lDetail.FindField("DocKey").value         = -1
   lDetailDataSet.FindField("DocKey").value = -1
   lDetail.FindField("ItemCode").AsString    = "ANT"
   lDetailDataSet.FindField("SEQ").value = 1
   lDetail.FindField("Description").AsString = "Adjust IN Item A"
  lDetailDataSet.FindField("Code").value = "610-1000"
   lDetail.FindField("Qty").AsFloat          = 2
   lDetailDataSet.FindField("Project").value = "----"
   lDetail.FindField("UnitCost").AsFloat    = 25.15 'Only IN need UnitCost
  lDetailDataSet.FindField("Description").value = "testing desc1"
   lDetail.Post
   lDetailDataSet.FindField("Tax").value = "TX"
 
   'lDetailDataSet.FindField("LOCALTAXAMT").value = 17.32 //For JE you can't override (i.e. system auto calc)
   lDetail.Append
   lDetailDataSet.FindField("TaxInclusive").Value = 1
   lDetail.FindField("DtlKey").value         = -1
  lDetailDataSet.FindField("LocalDR").value = 306 '//Including GST if TAXINCLUSIVE = 1
   lDetail.FindField("DocKey").value         = -1
   lDetailDataSet.FindField("DR").value = 306 '//If wanted DR <> LocalDR
   lDetail.FindField("ItemCode").AsString    = "E-BAT"
 
   lDetail.FindField("Description").AsString = "Adjust OUT Item A"
  'For Tax Exclusive
   lDetail.FindField("Qty").AsFloat          = -4
  lDetailDataSet.Append
   lDetail.Post   
   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
   'Step 6: Save Document
   BizObject.Save
   BizObject.Save
   BizObject.Close
   BizObject.Close
   MsgBox "Done"
   
  ComServer.Logout 'Logout after done
   MsgBox "Done"
End Function
End Function
</syntaxhighlight>
</syntaxhighlight>
Line 8,758: Line 9,264:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====GL_JE-Edit====
====ST_XF====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! GL_JE-Edit Script   
! ST_XF Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Available in Version 5.2018.833.759 & above
'Copy below script & paste to notepad & name it as eg ST_XF.vbs
'Copy below script & paste to notepad & name it as eg GL_JE.vbs
Call CheckLogin
Call CheckLogin
Call GetData
Call InsertData
Call PostData


Dim ComServer, lDataSet
Dim ComServer


Function CreateSQLAccServer
Function CreateSQLAccServer
Line 8,785: Line 9,289:
End Function
End Function


Function GetData
Function InsertData
Dim lSQL
Dim BizObject, lMain, lDetail, lDate
  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
   'Step 2: Find and Create the Biz Objects
   Set BizObject = ComServer.BizObjects.Find("GL_JE")  
   Set BizObject = ComServer.BizObjects.Find("ST_XF")  


   'Step 3: Set Dataset
   'Step 3: Set Dataset
Line 8,801: Line 9,298:
   Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data   
   Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data   
    
    
   'Step 4 : Find Doc Number
  'Begin Looping yr data
   If lDataSet.RecordCount > 0 Then    
   'Step 4 : Insert Data - Master
lDataSet.First
   lDate = CDate("January 1, 2017")
    BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString
   BizObject.New
    
  lMain.FindField("DocKey").value        = -1
 
  lMain.FindField("DocNo").AsString       = "--XF Test--"
    BizObject.Open
   lMain.FindField("DocDate").value        = lDate
    BizObject.Edit
  lMain.FindField("PostDate").value      = lDate
    lMain.Edit
  lMain.FindField("Code").AsString       = "300-C0001" 'Customer Account - Optional
lMain.FindField("Description").AsString = "Journal - Edited"  
   lMain.FindField("CompanyName").AsString = "Cash Sales" 'Optional
    
   lMain.FindField("Description").AsString = "Stock Transfer"
   'Step 5: Delete all Detail
      
    While lDetail.RecordCount <> 0
   'Step 5: Insert Data - Detail
      lDetail.First
  lDetail.Delete
     Wend
   'Step 6: Append Detail
   lDetail.Append
   lDetail.Append
   lDetail.FindField("DtlKey").value = -1
   lDetail.FindField("DtlKey").value         = -1
   lDetail.FindField("Code").value = "610-000"
   lDetail.FindField("DocKey").value         = -1
   lDetail.FindField("Description").value = "testing desc1"
   lDetail.FindField("ItemCode").AsString    = "ANT"
   lDetail.FindField("Project").value = "P12W1"
   lDetail.FindField("Description").AsString  = "Transfer Item A"
   lDetail.FindField("Tax").value = ""
   lDetail.FindField("Qty").AsFloat          = 10
   lDetail.FindField("TaxInclusive").value = 0
   lDetail.FindField("UOM").AsString          = "UNIT"
   lDetail.FindField("LocalDR").value = 200
   lDetail.FindField("FromLocation").AsString = "----"
   lDetail.FindField("DR").value = 200
   lDetail.FindField("ToLocation").AsString  = "BALAKONG"
   lDetail.Post  
   lDetail.Post


   lDetail.Append
   lDetail.Append
   lDetail.FindField("DtlKey").value = -1
   lDetail.FindField("DtlKey").value         = -1
   lDetail.FindField("Code").value = "531-000"
   lDetail.FindField("DocKey").value         = -1
   lDetail.FindField("Description").value = "testing desc2"
   lDetail.FindField("ItemCode").AsString    = "HFK"
   lDetail.FindField("Project").value = "P13W1"
   lDetail.FindField("Description").AsString  = "Transfer Item B"
   lDetail.FindField("Tax").value = ""
   lDetail.FindField("Qty").AsFloat          = 5
   lDetail.FindField("TaxInclusive").value = 0
   lDetail.FindField("UOM").AsString          = "UNIT"
   lDetail.FindField("LocalCR").value = 200
   lDetail.FindField("FromLocation").AsString = "----"
   lDetail.FindField("CR").value = 200
   lDetail.FindField("ToLocation").AsString  = "BALAKONG"
   lDetail.Post  
   lDetail.Post
 
  'Step 6: Save Document
  BizObject.Save
  BizObject.Close
    
    
   'Step 7: Save Document
   'Step 7 : Logout after done 
    BizObject.Save
  'ComServer.Logout
    BizObject.Close
    
    
   'Step 8 : Logout after done 
   MsgBox "Done"
    'ComServer.Logout 
    MsgBox "Done"  
Else
MsgBox "Record Not Found"
  END IF
End Function
End Function
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====GL_JE-Delete====
====AP_PI-Edit====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! GL_JE-Delete Script   
! AP_PI Edit Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Available in Version 5.2018.833.759 & above
'Available in Version 5.2018.833.759 & above
'Copy below script & paste to notepad & name it as eg GL_JE.vbs
'Copy below script & paste to notepad & name it as eg AP_PI.vbs
Call CheckLogin
Call CheckLogin
Call GetData
Call GetData
Call DelData
Call PostData


Dim ComServer, lDataSet
Dim ComServer, lDataSet
Line 8,884: Line 9,376:
Function GetData
Function GetData
Dim lSQL
Dim lSQL
   lSQL = "SELECT Dockey FROM GL_JE "
   lSQL = "SELECT Dockey FROM AP_PI "
   lSQL = lSQL & "WHERE DocNo='JV-00002' "
   lSQL = lSQL & "WHERE DocNo='PI-00001' "
  lSQL = lSQL & "AND Code='400-D0001' "
   Set lDataSet = ComServer.DBManager.NewDataSet(lSQL)
   Set lDataSet = ComServer.DBManager.NewDataSet(lSQL)
End Function
End Function


Function DelData
Function PostData
Dim BizObject
Dim BizObject, lMain, lDetail
   'Step 2: Find and Create the Biz Objects
   'Step 2: Find and Create the Biz Objects
   Set BizObject = ComServer.BizObjects.Find("GL_JE")  
   Set BizObject = ComServer.BizObjects.Find("AP_PI")  
   'Step 3 : Find Doc Number
 
   If lDataSet.RecordCount > 0 Then  
   '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
lDataSet.First
     BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString
     BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString
 
 
     BizObject.Open
     BizObject.Open
     BizObject.Delete
     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
     BizObject.Close
    
    
   'Step 4 : Logout after done   
   'Step 8 : Logout after done   
     'ComServer.Logout   
     'ComServer.Logout   
     MsgBox "Done"  
     MsgBox "Done"  
Else
Else
MsgBox "Record Not Found"  
MsgBox "Record Not Found"  
   END IF
   END IF  
 
End Function
End Function
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Get Invoice Next Number====
====SL_DO to SL_IV====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Get Invoice Next Number Script   
! SL_DO to SL_IV Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Available in Version 5.2018.833.759 & above
'Updated 26 Oct 2018
'Copy below script & paste to notepad & name it as eg GetNextNo.vbs
'Copy below script & paste to notepad & name it as eg SL_IV.vbs
Call CheckLogin
Call CheckLogin
Call GetData
Call InsertData1
Call ShowNextNo
Call InsertData2


Dim ComServer, lDataSet
Dim ComServer


Function CreateSQLAccServer
Function CreateSQLAccServer
Line 8,939: Line 9,462:
End Function
End Function


Function GetData
Function InsertData1
Dim lSQL
Dim BizObject, lMain, lDetail, lDate
  lSQL = "SELECT A.*, B.NEXTNUMBER FROM SY_DOCNO A "
   'Step 2: Find and Create the Biz Objects
  lSQL = lSQL & "INNER JOIN SY_DOCNO_DTL B ON (A.DOCKEY=B.PARENTKEY) "
   Set BizObject = ComServer.BizObjects.Find("SL_DO")  
  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
  'Step 3: Set Dataset
Dim Desc, Fmt, NextNo, lResult, sb
   Set lMain  = BizObject.DataSets.Find("MainDataSet")  'lMain contains master data
   set sb = CreateObject("System.Text.StringBuilder")
  Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data 
   'Step 2 : Find Doc Number
 
   If lDataSet.RecordCount > 0 Then    
  'Begin Looping yr data
lDataSet.First
   'Step 4 : Insert Data - Master
    Desc = lDataSet.FindField("Description").AsString
  lDate = CDate("January 1, 2017")
Fmt  = lDataSet.FindField("Format").AsString
  BizObject.New
NextNo = lDataSet.FindField("NEXTNUMBER").Value
   lMain.FindField("DocKey").value        = -1
   lMain.FindField("DocNo").AsString      = "--DO Test--"
'Convert from IV-%.5d to IV-{0:d5}
  lMain.FindField("DocDate").value        = lDate
sb.Append_3 Fmt
  lMain.FindField("PostDate").value      = lDate
sb.Replace "d", ""
  lMain.FindField("Code").AsString       = "300-C0001" 'Customer Account
sb.Replace "%.","{0:d"
  lMain.FindField("CompanyName").AsString = "Cash Sales"
Fmt = sb.ToString & "}"
  'lMain.FindField("Address1").AsString   = "" 'Optional
  'lMain.FindField("Address2").AsString    = "" 'Optional
sb.Length = 0 'clear sb list
  'lMain.FindField("Address3").AsString    = "" 'Optional
sb.AppendFormat Fmt, NextNo
  'lMain.FindField("Address4").AsString    = "" 'Optional
  'lMain.FindField("Phone1").AsString      = "" 'Optional
lResult = sb.ToString
  lMain.FindField("Description").AsString = "Delivery Order"
     MsgBox Desc
   
MsgBox Fmt
  'Step 5: Insert Data - Detail
MsgBox NextNo
  lDetail.Append
MsgBox lResult
  lDetail.FindField("DtlKey").value        = -1
Else
  lDetail.FindField("DocKey").value        = -1
MsgBox "Record Not Found"  
  lDetail.FindField("Seq").value            = 1
   END IF    
  lDetail.FindField("ItemCode").AsString    = "ANT"
End Function
  lDetail.FindField("Description").AsString = "Sales Item A"
</syntaxhighlight>
  lDetail.FindField("UOM").AsString        = "BOX"
|}
  lDetail.FindField("Qty").AsFloat          = 2
<div style="float: right;">   [[#top|[top]]]</div>
  '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


====Auto Run Doc. Number====
  lDetail.Append
{| class="mw-collapsible mw-collapsed wikitable"
  lDetail.FindField("DtlKey").value        = -1
! Sales Order Auto Run Doc Number Script 
  lDetail.FindField("DocKey").value        = -1
|-
  lDetail.FindField("Seq").value            = 2
|
  lDetail.FindField("ItemCode").AsString    = "COVER"
<syntaxhighlight lang="vb">
  lDetail.FindField("Description").AsString = "Sales Item B"
'Copy below script & paste to notepad & name it as eg SL_SO.vbs
  lDetail.FindField("UOM").AsString        = "UNIT"
'If had prompt Set Default - Just click Yes to avoid keep prompt
  lDetail.FindField("Qty").AsFloat          = 3
Call CheckLogin
  lDetail.FindField("Tax").AsString        = "SR"
Call GetData
  lDetail.FindField("TaxRate").AsString    = "6%"
Call InsertData
  lDetail.FindField("TaxInclusive").value  = 0
 
  lDetail.FindField("UnitPrice").AsFloat    = 10 
Dim ComServer, lDataSet
  lDetail.FindField("Amount").AsFloat      = 30
 
  lDetail.FindField("TaxAmt").AsFloat      = 1.80
Function CreateSQLAccServer
  lDetail.Post 
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
  'Step 6: Save Document
  BizObject.Save
  BizObject.Close
   MsgBox "DO Posting Done"
End Function
End Function


function CheckLogin
Function InsertData2
   'Step 1: Create Com Server object
Dim BizObject, lMain, lDetail, lDate, lDODtl, lxFer, lSQL, v(2)
   Set ComServer = CreateSQLAccServer 'Create Com Server
   'Step 1: Check Is transtered or not
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   lSQL = "SELECT DocKey FROM SL_IVDTL "
    ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"
   lSQL = lSQL & "WHERE FromDockey=(SELECT DocKey FROM SL_DO "  
                'UserName, Password, DCF full path, Database filename
  lSQL = lSQL & "WHERE DocNo='--DO Test--') "
   END IF
   Set lxFer = ComServer.DBManager.NewDataSet(lSQL)
End Function


Function GetData
  if lxFer.RecordCount = 0 then
Dim lSQL
    'Step 2: Get DO Information
  lSQL = "SELECT * FROM SY_DOCNO "
    lSQL = "SELECT * FROM SL_DODTL "
  lSQL = lSQL & "WHERE DESCRIPTION='Customer Sales Order 2' "
    lSQL = lSQL & "WHERE Dockey=(SELECT DocKey FROM SL_DO "  
  Set lDataSet = ComServer.DBManager.NewDataSet(lSQL)
    lSQL = lSQL & "WHERE DocNo='--DO Test--') "
End Function
    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
Function InsertData
    Set lMain  = BizObject.DataSets.Find("MainDataSet")  'lMain contains master data
Dim BizObject, lMain, lDetail, lDate
    Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data   
  '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 5 : Insert Data - Master
  'Step 4 : Insert Data - Master
    lDate = CDate("January 1, 2017")
  lDate = CDate("January 1, 2019")
    BizObject.New
  BizObject.New
    lMain.FindField("DocKey").value        = -1
  lMain.FindField("DocKey").value        = -1
    lMain.FindField("DocNo").AsString      = "--IV Test--"
  lMain.FindField("DocNo").AsString      = "<<New>>"
    lMain.FindField("DocDate").value        = lDate
  lMain.FindField("DocDate").value        = lDate
    lMain.FindField("PostDate").value      = lDate
  lMain.FindField("PostDate").value      = lDate
    lMain.FindField("Code").AsString        = "300-C0001" 'Customer Account
  lMain.FindField("Code").AsString        = "300-C0001" 'Customer Account
    lMain.FindField("CompanyName").AsString = "Cash Sales"
  lMain.FindField("CompanyName").AsString = "Cash Sales"
    'lMain.FindField("Address1").AsString    = "" 'Optional
  lMain.FindField("Address1").AsString    = "" 'Optional
    'lMain.FindField("Address2").AsString    = "" 'Optional
  lMain.FindField("Address2").AsString    = "" 'Optional
    'lMain.FindField("Address3").AsString    = "" 'Optional
  lMain.FindField("Address3").AsString    = "" 'Optional
    'lMain.FindField("Address4").AsString    = "" 'Optional
  lMain.FindField("Address4").AsString    = "" 'Optional
    'lMain.FindField("Phone1").AsString      = "" 'Optional
  lMain.FindField("Phone1").AsString      = "" 'Optional
    lMain.FindField("Description").AsString = "Sales"
  lMain.FindField("Description").AsString = "Sales Order"
  lMain.FindField("DocNoSetKey").value    = lDataSet.FindField("DocKey").value
      
      
  'Step 5: Insert Data - Detail
    'Step 6: Insert Data - Detail
  'For With Item Code
    v(0) = "COVER"
  lDetail.Append
    v(1) = "UNIT"
  lDetail.FindField("DtlKey").value        = -1
  lDetail.FindField("DocKey").value        = -1
    if (lDODtl.Locate("ItemCode;UOM", v, false, false)) then
  lDetail.FindField("Seq").value            = 3
      lDetail.Append
  lDetail.FindField("ItemCode").AsString    = "ANT"
      lDetail.FindField("DtlKey").value        = -1
  lDetail.FindField("Description").AsString = "Sales Item B"
      lDetail.FindField("DocKey").value        = -1
  lDetail.FindField("Qty").AsFloat          = 2
      lDetail.FindField("Seq").value            = 1
  lDetail.FindField("UOM").AsString        = "UNIT"
      lDetail.FindField("ItemCode").AsString    = lDODtl.FindField("ItemCode").AsString
  'lDetail.FindField("DISC").AsString        = "5%+3" 'Optional (eg 5% plus 3 Discount)
      lDetail.FindField("Description").AsString = lDODtl.FindField("Description").AsString
  lDetail.FindField("Tax").AsString        = ""
      'lDetail.FindField("Account").AsString    = "500-000" 'If you wanted override the Sales Account Code
  lDetail.FindField("TaxRate").AsString    = ""
      lDetail.FindField("UOM").AsString        = lDODtl.FindField("UOM").AsString
  lDetail.FindField("TaxInclusive").value  = 0
  lDetail.FindField("Qty").AsFloat          = lDODtl.FindField("Qty").AsFloat
  lDetail.FindField("UnitPrice").AsFloat    = 100 
      lDetail.FindField("DISC").AsString        = lDODtl.FindField("Disc").AsString
  lDetail.FindField("Amount").AsFloat      = 200
      lDetail.FindField("Tax").AsString        = lDODtl.FindField("Tax").AsString
  lDetail.FindField("TaxAmt").AsFloat      = 0
      lDetail.FindField("TaxRate").AsString    = lDODtl.FindField("TaxRate").AsString
   lDetail.Post
      lDetail.FindField("TaxInclusive").value  = lDODtl.FindField("TaxInclusive").Value
 
      lDetail.FindField("UnitPrice").AsFloat    = lDODtl.FindField("UnitPrice").AsFloat
   'Step 6: Save Document
      lDetail.FindField("Amount").AsFloat      = lDODtl.FindField("Amount").AsFloat
  BizObject.Save
      lDetail.FindField("TaxAmt").AsFloat      = lDODtl.FindField("TaxAmt").AsFloat
  BizObject.Close
  lDetail.FindField("FromDocType").AsString = "DO"
    
  lDetail.FindField("FromDockey").AsFloat  = lDODtl.FindField("DocKey").AsFloat
   'Step 7 : Logout after done   
  lDetail.FindField("FromDtlkey").AsFloat  = lDODtl.FindField("DtlKey").AsFloat
   'ComServer.Logout
      lDetail.Post
    
End IF 
   MsgBox "Done"   
    v(0) = "ANT"
End Function
    v(1) = "BOX"
</syntaxhighlight>
|}
    if (lDODtl.Locate("ItemCode;UOM", v, false, false)) then
<div style="float: right;">  [[#top|[top]]]</div>
      lDetail.Append
 
      lDetail.FindField("DtlKey").value        = -1
====GL_PV====
      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
</syntaxhighlight>
|}
<div style="float: right;">  [[#top|[top]]]</div>
 
====SL_IV-Edit====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Cash Book PV Script   
! SL_IV-Edit Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg AR_PM.vbs
'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
Call PostData
 
Dim ComServer, lDataSet
 
Function CreateSQLAccServer
Function CreateSQLAccServer
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function
 
Function PostData
function CheckLogin
Dim ComServer, BizObject, lIVNo, lDate
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   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"  
     ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"
                'UserName, Password, DCF full path, Database filename
   END IF
   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
   'Step 2: Find and Create the Biz Objects
   Set BizObject = ComServer.BizObjects.Find("GL_PV")  
   Set BizObject = ComServer.BizObjects.Find("SL_IV")  
 
   'Step 3: Set Dataset
   'Step 3: Set Dataset
   Set lMain = BizObject.DataSets.Find("MainDataSet")   'lMainDataSet contains master data
   Set lMain   = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data
   Set lDetailDataSet = BizObject.DataSets.Find("cdsDocDetail") 'lDetailDataSet contains detail 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 4 : Posting
   'Step 5: Delete all Detail
     lDate = CDate("January 23, 2020")
     While lDetail.RecordCount <> 0
     BizObject.New
      lDetail.First
     lMain.FindField("DOCKEY").Value          = -1
  lDetail.Delete
     lMain.FindField("DocNo").AsString        = "--CB PV Test--"  
    Wend
     lMain.FindField("DocDate").Value          = lDate
  'Step 6: Append Detail
    lMain.FindField("PostDate").Value        = lDate
     lDetail.Append
     lMain.FindField("Description").AsString  = "Compacc System"
     lDetail.FindField("DtlKey").value = -1
     lMain.FindField("PaymentMethod").AsString = "310-001"
     lDetail.FindField("Account").value = "500-000"
lMain.FindField("CHEQUENUMBER").AsString = "MBB 213245"
     lDetail.FindField("Description").value = "Edited Item A"
     lMain.FindField("DocAmt").AsFloat        = 2019.57
     lDetail.FindField("Tax").value = ""
     lMain.FindField("Cancelled").AsString    = "F"
     lDetail.FindField("TaxInclusive").value = 0
lMain.Post
     lDetail.FindField("Amount").value = 410.37
     lDetail.FindField("TaxAmt").value = 0
    lDetail.Post
    
    
    lDetailDataSet.Append
   'Step 7: Save Document
    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.Save
     BizObject.Close
     BizObject.Close
     MsgBox "Done"
 
  'Step 8 : Logout after done 
    'ComServer.Logout 
     MsgBox "Done"  
Else
MsgBox "Record Not Found"
  END IF
End Function
End Function
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>
====ST_Item with Opening====
 
====GL_JE====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! ST_Item with Opening Script   
! GL_JE Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Copy below script & paste to notepad & name it as eg ST_XF.vbs
'Copy below script & paste to notepad & name it as eg GL_JE.vbs
Call CheckLogin
Call InsertGLJE
Call InsertData
 
Dim ComServer
 
Function CreateSQLAccServer
Function CreateSQLAccServer
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
End Function
End Function
 
function CheckLogin
Function InsertGLJE
Dim ComServer, BizObject, lDataSet, lDataSet2, lDate
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   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"
     ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"  
                'UserName, Password, DCF full path, Database filename
   END IF
   END IF
End Function
 
Function InsertData
Dim BizObject, lMain, lDtl, lOpn
   'Step 2: Find and Create the Biz Objects
   'Step 2: Find and Create the Biz Objects
   Set BizObject = ComServer.BizObjects.Find("ST_ITEM")  
   Set BizObject = ComServer.BizObjects.Find("GL_JE")  
 
   'Step 3: Set Dataset
   'Step 3: Set Dataset
   Set lMain = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data
   Set lMainDataSet = BizObject.DataSets.Find("MainDataSet")   'lMainDataSet contains master data
   Set lDtl = BizObject.DataSets.Find("cdsUOM") 'lDetail contains detail data 
   Set lDetailDataSet = BizObject.DataSets.Find("cdsDocDetail") 'lDetailDataSet contains detail data   
  Set lOpn = BizObject.DataSets.Find("cdsOpeningBalance") 'lDetail contains detail data   
    
    
  'Begin Looping yr data
   'Step 4 : Insert Data - Master
   'Step 4 : Insert Data - Master
  lDate = CDate("January 23, 2017")
   BizObject.New
   BizObject.New
   lMain.FindField("CODE").value = "==Test New Item Code=="
   lMainDataSet.FindField("DocKey").value = -1
   lMain.FindField("DESCRIPTION").value = "Item Description 123"
   lMainDataSet.FindField("DocNo").value = "--JV Test--"
   lMain.FindField("STOCKGROUP").value = "DEFAULT"
   lMainDataSet.FindField("DocDate").value = lDate
   lMain.FindField("STOCKCONTROL").value = "T"
   lMainDataSet.FindField("PostDate").value = lDate
   lMain.FindField("ISACTIVE").value = "T"
   lMainDataSet.FindField("Description").value = "testing desc header"
   
  lMainDataSet.Post
 
   'Step 5: Insert Data - Detail
   'Step 5: Insert Data - Detail
   lDtl.Edit 'For 1St UOM
   'For Tax Inclusive
   lDtl.FindField("UOM").AsString = "PCS"
   lDetailDataSet.Append
   lDtl.FindField("Rate").AsFloat = 1
  lDetailDataSet.FindField("DtlKey").value = -1
   lDtl.FindField("RefCost").AsFloat = 10.2
  lDetailDataSet.FindField("DocKey").value = -1
   lDtl.FindField("RefPrice").AsFloat = 25
   lDetailDataSet.FindField("SEQ").value = 1
   lDtl.Post
   lDetailDataSet.FindField("Code").value = "610-1000"
 
   lDetailDataSet.FindField("Project").value = "----"
  lDtl.Append 'For 2nd UOM
   lDetailDataSet.FindField("Description").value =  "testing desc1"
   lDtl.FindField("UOM").AsString = "CTN"
   lDetailDataSet.FindField("Tax").value = "TX"
   lDtl.FindField("Rate").AsFloat = 12
   'lDetailDataSet.FindField("LOCALTAXAMT").value = 17.32 //For JE you can't override (i.e. system auto calc)
   lDtl.FindField("RefCost").AsFloat = 102
   lDetailDataSet.FindField("TaxInclusive").Value = 1
   lDtl.FindField("RefPrice").AsFloat = 240
   lDetailDataSet.FindField("LocalDR").value = 306 '//Including GST if TAXINCLUSIVE = 1
   lDtl.Post
   lDetailDataSet.FindField("DR").value = 306 '//If wanted DR <> LocalDR
    
    
   'Step 6: Insert Data - Opening
   'For Tax Exclusive
   lOpn.Append
  lDetailDataSet.Append
   lOpn.FindField("LOCATION").AsString = "----"
  lDetailDataSet.FindField("DtlKey").value = -1
   lOpn.FindField("Qty").AsFloat = 10 'in smallest UOM'
  lDetailDataSet.FindField("DocKey").value = -1
   lOpn.FindField("COST").AsFloat = 10.2
  lDetailDataSet.FindField("SEQ").value = 2
   lOpn.Post
   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  


   'Step 7: Save Document
  '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.Save
   BizObject.Close
   BizObject.Close
 
   MsgBox "Done"
  'Step 8 : Logout after done 
  'ComServer.Logout
 
   MsgBox "Done"
End Function
End Function
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====GL Stock Value-Insert,Edit & Delete====
====GL_JE-Edit====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! GL Stock Value Insert, Edit & Delete Script   
! GL_JE-Edit Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Available in Version 5.2018.833.759 & above
'Available in Version 5.2018.833.759 & above
'Copy below script & paste to notepad & name it as eg GLStockValue.vbs
'Copy below script & paste to notepad & name it as eg GL_JE.vbs
Call CheckLogin
Call CheckLogin
Call GetData
Call GetData
'Call InsertValue
Call PostData
'Call UpdateValue
Call DeleteValue


Dim ComServer, lDataSet
Dim ComServer, lDataSet
Line 9,247: Line 9,834:
Function GetData
Function GetData
Dim lSQL
Dim lSQL
   lSQL = "SELECT Dockey FROM GL_STOCK "
   lSQL = "SELECT Dockey FROM GL_JE "
   lSQL = lSQL & "WHERE BalanceStock='330-000' "
   lSQL = lSQL & "WHERE DocNo='JV-00002' "
   Set lDataSet = ComServer.DBManager.NewDataSet(lSQL)
   Set lDataSet = ComServer.DBManager.NewDataSet(lSQL)
End Function
End Function


Function InsertValue
Function PostData
Dim BizObject, lMain, lDetail
Dim BizObject, lMain, lDetail
   'Step 2: Find and Create the Biz Objects
   'Step 2: Find and Create the Biz Objects
   Set BizObject = ComServer.BizObjects.Find("GL_STOCK")  
   Set BizObject = ComServer.BizObjects.Find("GL_JE")  


   'Step 3: Set Dataset
   'Step 3: Set Dataset
Line 9,261: Line 9,848:
   Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data   
   Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data   
    
    
   'Step 4 : Find Dockey Record
   'Step 4 : Find Doc Number
   If lDataSet.RecordCount > 0 Then   
   If lDataSet.RecordCount > 0 Then   
lDataSet.First
lDataSet.First
     BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString
     BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString
 
 
     BizObject.Open
     BizObject.Open
     BizObject.Edit
     BizObject.Edit
    lMain.Edit
     lDetail.Append
lMain.FindField("Description").AsString = "Journal - Edited"
    lDetail.FindField("Project").value = "----"
 
lDetail.FindField("SYear").value = 2021
  'Step 5: Delete all Detail
lDetail.FindField("SMonth").value = 4
    While lDetail.RecordCount <> 0
lDetail.FindField("Amount").value = 423.00
      lDetail.First
    lDetail.Post
  lDetail.Delete
     Wend
   'Step 6: Save Document
  '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.Save
     BizObject.Close
     BizObject.Close
     MsgBox "Done"
 
   END IF
  'Step 8 : Logout after done 
    'ComServer.Logout 
     MsgBox "Done"
Else
MsgBox "Record Not Found"  
   END IF  
End Function
End Function
</syntaxhighlight>
|}
<div style="float: right;">  [[#top|[top]]]</div>


Function UpdateValue
====GL_JE-Delete====
Dim BizObject, lMain, lDetail, v(2)
{| class="mw-collapsible mw-collapsed wikitable"
  'Step 2: Find and Create the Biz Objects
! GL_JE-Delete Script 
  Set BizObject = ComServer.BizObjects.Find("GL_STOCK")
|-
|
<syntaxhighlight lang="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


  'Step 3: Set Dataset
Function CreateSQLAccServer
   Set lMain  = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
  Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data 
End Function
 
 
   'Step 4 : Find Dockey Record
function CheckLogin
   If lDataSet.RecordCount > 0 Then  
   'Step 1: Create Com Server object
lDataSet.First
  Set ComServer = CreateSQLAccServer 'Create Com Server
     BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString 
   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"
    BizObject.Open
                'UserName, Password, DCF full path, Database filename
    BizObject.Edit
  END IF
End Function


    v(0) = "----" 'Project Code
Function GetData
    v(1) = "2021" 'Year
Dim lSQL
v(2) = "3" 'Month to update
  lSQL = "SELECT Dockey FROM GL_JE "
  lSQL = lSQL & "WHERE DocNo='JV-00002' "
if (lDetail.Locate("Project;SYear;SMonth", v, false, false)) then
  Set lDataSet = ComServer.DBManager.NewDataSet(lSQL)
      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
End Function


Function DeleteValue
Function DelData
Dim BizObject, lMain, lDetail, v(2)
Dim BizObject
   'Step 2: Find and Create the Biz Objects
   'Step 2: Find and Create the Biz Objects
   Set BizObject = ComServer.BizObjects.Find("GL_STOCK")  
   Set BizObject = ComServer.BizObjects.Find("GL_JE")  
 
   'Step 3 : Find Doc Number
   'Step 3: Set Dataset
   If lDataSet.RecordCount > 0 Then  
  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
lDataSet.First
     BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString
     BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString
     BizObject.Open
     BizObject.Open
     BizObject.Edit
     BizObject.Delete
 
    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
     BizObject.Close
     MsgBox "Done"
 
   END IF
  'Step 4 : Logout after done 
    'ComServer.Logout 
     MsgBox "Done"
Else
MsgBox "Record Not Found"  
   END IF
End Function
End Function
</syntaxhighlight>
</syntaxhighlight>
Line 9,350: Line 9,959:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Stock Item Template to SL_IV====
====Get Invoice Next Number====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Stock Item Template to SL_IV Script   
! Get Invoice Next Number Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="vb">
'Updated 03 Sep 2021
'Available in Version 5.2018.833.759 & above
'Copy below script & paste to notepad & name it as eg SL_IV.vbs
'Copy below script & paste to notepad & name it as eg GetNextNo.vbs
Call CheckLogin
Call CheckLogin
Call InsertData1
Call GetData
Call InsertData2
Call ShowNextNo


Dim ComServer
Dim ComServer, lDataSet


Function CreateSQLAccServer
Function CreateSQLAccServer
Line 9,377: Line 9,986:
End Function
End Function


Function InsertData1
Function GetData
Dim BizObject, lMain, lDetail, lDate
Dim lSQL
   'Step 2: Find and Create the Biz Objects
  lSQL = "SELECT A.*, B.NEXTNUMBER FROM SY_DOCNO A "
   Set BizObject = ComServer.BizObjects.Find("ST_ITEM_TPL")  
  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


  'Step 3: Set Dataset
Function ShowNextNo
   Set lMain  = BizObject.DataSets.Find("MainDataSet")  'lMain contains master data
Dim Desc, Fmt, NextNo, lResult, sb
  Set lDetail = BizObject.DataSets.Find("cdsItemTplDtl") 'lDetail contains detail data 
   set sb = CreateObject("System.Text.StringBuilder")
 
   'Step 2 : Find Doc Number
  'Begin Looping yr data
   If lDataSet.RecordCount > 0 Then    
   'Step 4 : Insert Data - Master
lDataSet.First
   BizObject.New
     Desc = lDataSet.FindField("Description").AsString
   lMain.FindField("Code").AsString        = "--TPL Test--"
Fmt  = lDataSet.FindField("Format").AsString
  lMain.FindField("Description").AsString = "Template formt 1"
NextNo = lDataSet.FindField("NEXTNUMBER").Value
  lMain.FindField("RefPrice").AsFloat     = 299.15
   
'Convert from IV-%.5d to IV-{0:d5}
  'Step 5: Insert Data - Detail
sb.Append_3 Fmt
  lDetail.Append
sb.Replace "d", ""
  lDetail.FindField("DtlKey").value        = -1
sb.Replace "%.","{0:d"
  lDetail.FindField("Code").AsString       = "--TPL Test--"
Fmt = sb.ToString & "}"
  lDetail.FindField("Seq").value            = 1
  lDetail.FindField("ItemCode").AsString   = "ANT"
sb.Length = 0 'clear sb list
  lDetail.FindField("Description").AsString = "Sales Item A"
sb.AppendFormat Fmt, NextNo
  lDetail.FindField("UOM").AsString        = "BOX"
  lDetail.FindField("Qty").AsFloat          = 2
lResult = sb.ToString
  'lDetail.FindField("DISC").AsString        = "5%+3" 'Optional (eg 5% plus 3 Discount)
    MsgBox Desc
  lDetail.FindField("UNITAMOUNT").AsFloat    = 100 
MsgBox Fmt
  lDetail.FindField("Amount").AsFloat      = 200
MsgBox NextNo
  lDetail.FindField("PRINTABLE").AsString  = "T"
MsgBox lResult
  lDetail.Post
Else
 
MsgBox "Record Not Found"  
  lDetail.Append
  END IF   
  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
End Function
</syntaxhighlight>
|}
<div style="float: right;">  [[#top|[top]]]</div>


Function InsertData2
====Auto Run Doc. Number====
Dim BizObject, lMain, lDetail, lDate, lDODtl, lSQL, v(2)
{| class="mw-collapsible mw-collapsed wikitable"
  'Step 1: Get Template Information
! Sales Order Auto Run Doc Number Script 
  lSQL = "SELECT * FROM ST_ITEM_TPLDTL "
|-
  lSQL = lSQL & "WHERE Code='--TPL Test--' "
|
  Set lDODtl = ComServer.DBManager.NewDataSet(lSQL)
<syntaxhighlight lang="vb">
 
'Copy below script & paste to notepad & name it as eg SL_SO.vbs
  if lDODtl.RecordCount > 0 then
'If had prompt Set Default - Just click Yes to avoid keep prompt
'Step 2: Find and Create the Biz Objects
Call CheckLogin
    Set BizObject = ComServer.BizObjects.Find("SL_IV")
Call GetData
Call InsertData


    'Step 3: Set Dataset
Dim ComServer, lDataSet
    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
</syntaxhighlight>
|}
<div style="float: right;">  [[#top|[top]]]</div>
====AR_CN====
{| class="mw-collapsible mw-collapsed wikitable"
! AR_CN Script 
|-
|
<syntaxhighlight lang="vb">
'Updated 24 Feb 2023
'Copy below script & paste to notepad & name it as eg AR_CN.vbs
Call InsertData


Function CreateSQLAccServer
Function CreateSQLAccServer
Line 9,504: Line 10,046:
End Function
End Function


Function InsertData
function CheckLogin
Dim ComServer, BizObject, lDate, lIVNO, v(1)
 
   'Step 1: Create Com Server object
   'Step 1: Create Com Server object
   Set ComServer = CreateSQLAccServer 'Create Com Server
   Set ComServer = CreateSQLAccServer 'Create Com Server
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   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"  
     ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"
                'UserName, Password, DCF full path, Database filename
   END IF
   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
   'Step 2: Find and Create the Biz Objects
   Set BizObject = ComServer.BizObjects.Find("AR_CN")  
   Set BizObject = ComServer.BizObjects.Find("SL_SO")  


   'Step 3: Set Dataset
   'Step 3: Set Dataset
   Set lMainDataSet = BizObject.DataSets.Find("MainDataSet")   'lMainDataSet contains master data
   Set lMain  = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data
   Set lDetailDataSet = BizObject.DataSets.Find("cdsDocDetail") 'lDetailDataSet contains detail data 
   Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data   
  Set lKO = BizObject.DataSets.Find("cdsKnockOff") 'Contains IV/DN to knock off data   
    
    
  'Begin Looping yr data
   'Step 4 : Insert Data - Master
   'Step 4 : Insert Data - Master
   lDate = CDate("January 1, 2023")
   lDate = CDate("January 1, 2019")
   BizObject.New
   BizObject.New
   lMainDataSet.FindField("DocKey").value = -1
   lMain.FindField("DocKey").value         = -1
   lMainDataSet.FindField("DocNo").value = "--CN Test--"
   lMain.FindField("DocNo").AsString      = "<<New>>"
   lMainDataSet.FindField("DocDate").value = lDate
   lMain.FindField("DocDate").value       = lDate
   lMainDataSet.FindField("PostDate").value = lDate
   lMain.FindField("PostDate").value       = lDate
   lMainDataSet.FindField("Code").value = "300-A0001"
   lMain.FindField("Code").AsString        = "300-C0001" 'Customer Account
   lMainDataSet.FindField("Description").value = "Credit Note"
   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
   'Step 5: Insert Data - Detail
   'For Tax Inclusive = True with override Tax Amount
   'For With Item Code
   lDetailDataSet.Append
   lDetail.Append
   lDetailDataSet.FindField("DtlKey").value = -1
   lDetail.FindField("DtlKey").value         = -1
   lDetailDataSet.FindField("DocKey").value = -1
   lDetail.FindField("DocKey").value         = -1
   lDetailDataSet.FindField("Account").value = "510-2000"
   lDetail.FindField("Seq").value           = 3
   lDetailDataSet.FindField("Description").value = "Sales Item A"
   lDetail.FindField("ItemCode").AsString    = "ANT"
   lDetailDataSet.FindField("Tax").value = "SV"
   lDetail.FindField("Description").AsString = "Sales Item B"
   lDetailDataSet.FindField("TaxInclusive").value = 0
   lDetail.FindField("Qty").AsFloat          = 2
   lDetailDataSet.FindField("Amount").value = 410.37
   lDetail.FindField("UOM").AsString        = "UNIT"
  lDetailDataSet.FindField("TaxAmt").value = 24.63
   'lDetail.FindField("DISC").AsString        = "5%+3" 'Optional (eg 5% plus 3 Discount)
    
   lDetail.FindField("Tax").AsString        = ""
  lDetailDataSet.DisableControls
   lDetail.FindField("TaxRate").AsString    = ""
  lDetailDataSet.FindField("TaxInclusive").value =  1
   lDetail.FindField("TaxInclusive").value   = 0
  lDetailDataSet.EnableControls
   lDetail.FindField("UnitPrice").AsFloat    = 100  
 
   lDetail.FindField("Amount").AsFloat      = 200
  lDetailDataSet.FindField("Changed").value = "F"
   lDetail.FindField("TaxAmt").AsFloat      = 0
  lDetailDataSet.Post
   lDetail.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
   'Step 6: Save Document
    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.Save
   BizObject.Close
   BizObject.Close
   MsgBox "Done"
 
  'Step 7 : Logout after done 
  'ComServer.Logout
 
   MsgBox "Done"
End Function
End Function
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>
<br />


===JScript/JavaScript===
====GL_PV====
This Script only can run using Internet Explorer (till IE 11)
 
====AR_IV====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! AR_IV Script   
! Cash Book PV Script   
|-
|-
|  
|  
<syntaxhighlight lang="javascript">
<syntaxhighlight lang="vb">
<html>
'Copy below script & paste to notepad & name it as eg AR_PM.vbs
<head>
Call PostData
<title>Add Customer Invoice</title>
<script language="JScript">
var ComServer;
   
   
function CreateSQLAccServer() {
Function CreateSQLAccServer
   ComServer = new ActiveXObject('SQLAcc.BizApp');
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
  if (!ComServer.IsLogin) {            /* check whether user has logon */
End Function
    ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
/* UserName, Password */
  }
}
   
   
function AutoInvoice() {
Function PostData
  var BizObject, lMainDataSet, lDetailDataSet;
Dim ComServer, BizObject, lIVNo, lDate
   
   
   CreateSQLAccServer();
   '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
   
   
   BizObject = ComServer.BizObjects.Find('AR_IV');
   'Step 2: Find and Create the Biz Objects
   lMainDataSet = BizObject.DataSets.Find('MainDataSet');
   Set BizObject = ComServer.BizObjects.Find("GL_PV")  
  lDetailDataSet = BizObject.DataSets.Find('cdsDocDetail');
  BizObject.New();
   
   
   lMainDataSet.FindField('DocKey').value = -1;
   'Step 3: Set Dataset
  lMainDataSet.FindField('DocNo').value = "--IV Test--";
  Set lMain = BizObject.DataSets.Find("MainDataSet")    'lMainDataSet contains master data
   lMainDataSet.FindField('DocDate').value = "01/10/2016";
  Set lDetailDataSet = BizObject.DataSets.Find("cdsDocDetail") 'lDetailDataSet contains detail data 
   lMainDataSet.FindField('PostDate').value = "01/10/2016";
 
  lMainDataSet.FindField('Code').value = "300-A0003";
  'Step 4 : Posting
  lMainDataSet.FindField('Description').value = "Sales";
    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


   /*For Tax Inclusive = True with override Tax Amount*/
   'Step 5: Save Document
  lDetailDataSet.Append();
     BizObject.Save
  lDetailDataSet.FindField('DtlKey').value = -1;
     BizObject.Close
  lDetailDataSet.FindField('DocKey').value = -1;
     MsgBox "Done"
  lDetailDataSet.FindField('Account').value = "500-000";
End Function
  lDetailDataSet.FindField('Description').value =  "Sales Item A";
</syntaxhighlight>
  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();
 
  /* Save document */ 
     BizObject.Save();
     BizObject.Close();
     alert('Customer Invoice - has been saved.');
}
</script>
</head>
<body>
<input type="submit" value="SYNC" name="btnSubmit" onclick="AutoInvoice()">
</body>
</html>
</syntaxhighlight>
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>
 
====ST_Item with Opening====
====SL_CS====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! SL_CS Script   
! ST_Item with Opening Script   
|-
|-
|  
|  
<syntaxhighlight lang="javascript">
<syntaxhighlight lang="vb">
<html>
'Copy below script & paste to notepad & name it as eg ST_XF.vbs
<head>
Call CheckLogin
<title>Add Cash Sales</title>
Call InsertData
<script language="JScript">
var ComServer;


function CreateSQLAccServer() {
Dim ComServer
  ComServer = new ActiveXObject('SQLAcc.BizApp');
  if (!ComServer.IsLogin) {            /* check whether user has logon */
    ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
/* UserName, Password */
  }
}


function InsertData() {
Function CreateSQLAccServer
  var BizObject, lMain, lDetail;
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
 
End Function
   CreateSQLAccServer();


   /*Step 2: Find and Create the Biz Objects*/
function CheckLogin
   BizObject = ComServer.BizObjects.Find('SL_CS') ;
   '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*/
   'Step 3: Set Dataset
   lMain   = BizObject.DataSets.Find('MainDataSet'); /*lMain contains master data*/
   Set lMain = BizObject.DataSets.Find("MainDataSet")  'lMain contains master data
   lDetail = BizObject.DataSets.Find('cdsDocDetail'); /*lDetail contains detail 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*/
   'Begin Looping yr data
   /*Step 4 : Insert Data - Master*/
   'Step 4 : Insert Data - Master
   BizObject.New();
   BizObject.New
   lMain.FindField('DocKey').value         = -1;
   lMain.FindField("CODE").value = "==Test New Item Code=="
  lMain.FindField('DocNo').AsString      = "--IV Test--";
   lMain.FindField("DESCRIPTION").value = "Item Description 123"
   lMain.FindField('DocDate').value        = "20/12/2017";
   lMain.FindField("STOCKGROUP").value = "DEFAULT"
  lMain.FindField('PostDate').value       = "20/12/2017";
   lMain.FindField("STOCKCONTROL").value = "T"
   lMain.FindField('Code').AsString        = "300-C0001"; /*Customer Account*/
   lMain.FindField("ISACTIVE").value = "T"
  lMain.FindField('CompanyName').AsString = "Cash Sales"
   
   lMain.FindField('Address1').AsString    = ""; /*Optional*/
   'Step 5: Insert Data - Detail
  lMain.FindField('Address2').AsString    = ""; /*Optional*/
   lDtl.Edit 'For 1St UOM
   lMain.FindField('Address3').AsString    = ""; /*Optional*/
   lDtl.FindField("UOM").AsString = "PCS"
  lMain.FindField('Address4').AsString    = ""; /*Optional*/
   lDtl.FindField("Rate").AsFloat = 1
  lMain.FindField('Phone1').AsString      = ""; /*Optional*/
   lDtl.FindField("RefCost").AsFloat = 10.2
   lMain.FindField('Description').AsString = "Sales";
   lDtl.FindField("RefPrice").AsFloat = 25
   
   lDtl.Post
  /*Step 5: Insert Data - Detail*/
 
   /*For Tax Inclusive = True with override Tax Amount*/
   lDtl.Append 'For 2nd UOM
  lDetail.Append();
   lDtl.FindField("UOM").AsString = "CTN"
   lDetail.FindField('DtlKey').value        = -1;
   lDtl.FindField("Rate").AsFloat = 12
   lDetail.FindField('DocKey').value        = -1;
   lDtl.FindField("RefCost").AsFloat = 102
   lDetail.FindField('Seq').value            = 1;
   lDtl.FindField("RefPrice").AsFloat = 240
   lDetail.FindField('Account').AsString    = "500-000"; /*Sales Account*/
   lDtl.Post
   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();
   'Step 6: Insert Data - Opening
   lDetail.FindField('TaxInclusive').value   = 1;
  lOpn.Append
   lDetail.EnableControls();
  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
    
    
   lDetail.Post();
   'Step 8 : Logout after done 
  'ComServer.Logout
    
    
   /*For Tax Inclusive = False with override Tax Amount*/
   MsgBox "Done"
  lDetail.Append();
End Function
  lDetail.FindField('DtlKey').value        = -1;
</syntaxhighlight>
  lDetail.FindField('DocKey').value        = -1;
|}
  lDetail.FindField('Seq').value            = 2;
<div style="float: right;">   [[#top|[top]]]</div>
  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*/
====GL Stock Value-Insert,Edit & Delete====
  lDetail.Append();
{| class="mw-collapsible mw-collapsed wikitable"
  lDetail.FindField('DtlKey').value        = -1;
! GL Stock Value Insert, Edit & Delete Script 
  lDetail.FindField('DocKey').value        = -1;
|-
  lDetail.FindField('Seq').value            = 3;
|
  lDetail.FindField('ItemCode').AsString    = "ANT";
<syntaxhighlight lang="vb">
  lDetail.FindField('Description').AsString = "Sales Item B";
'Available in Version 5.2018.833.759 & above
  /*lDetail.FindField('Account').AsString    = "500-000"; If you wanted override the Sales Account Code*/
'Copy below script & paste to notepad & name it as eg GLStockValue.vbs
  lDetail.FindField('Qty').AsFloat          = 2;
Call CheckLogin
  lDetail.FindField('UOM').AsString        = "UNIT";
Call GetData
  /*lDetail.FindField('DISC').AsString        = "5%+3"; Optional (eg 5% plus 3 Discount)*/
'Call InsertValue
  lDetail.FindField('Tax').AsString        = "SR";
'Call UpdateValue
  lDetail.FindField('TaxRate').AsString    = "6%";
Call DeleteValue
  lDetail.FindField('TaxInclusive').value  = 0;
 
  lDetail.FindField('UnitPrice').AsFloat    = 100;
Dim ComServer, lDataSet
  lDetail.FindField('Amount').AsFloat      = 200;
  lDetail.FindField('TaxAmt').AsFloat      = 12;
  lDetail.Post();


  /*Step 6: Save Document*/
Function CreateSQLAccServer
   BizObject.Save();
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
  BizObject.Close();
End Function
    alert('Document has been saved.');
}
</script>
</head>
<body>
<input type="submit" value="SYNC" name="btnSubmit" onclick="InsertData()">
</body>
</html>
</syntaxhighlight>
|}
<div style="float: right;">  [[#top|[top]]]</div>


====AR_PM====
function CheckLogin
{| class="mw-collapsible mw-collapsed wikitable"
  'Step 1: Create Com Server object
! AR_PM Script 
  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"
<syntaxhighlight lang="javascript">
                'UserName, Password, DCF full path, Database filename
<html>
  END IF
<head>
End Function
<title>Add Customer Payment</title>
<script language="JScript">
var ComServer;


function CreateSQLAccServer() {
Function GetData
   ComServer = new ActiveXObject("SQLAcc.BizApp");
Dim lSQL
   if (!ComServer.IsLogin) {            /* check whether user has logon */
  lSQL = "SELECT Dockey FROM GL_STOCK "
    ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
   lSQL = lSQL & "WHERE BalanceStock='330-000' "
/* UserName, Password */
   Set lDataSet = ComServer.DBManager.NewDataSet(lSQL)
  }
End Function
}


function AutoPayment() {
Function InsertValue
  var BizObject, lMainDataSet, lKnockOffDataSet, V;
Dim BizObject, lMain, lDetail
    
   'Step 2: Find and Create the Biz Objects
   CreateSQLAccServer();
   Set BizObject = ComServer.BizObjects.Find("GL_STOCK")  


   BizObject = ComServer.BizObjects.Find('AR_PM');
   'Step 3: Set Dataset
   lMainDataSet = BizObject.DataSets.Find('MainDataSet');
   Set lMain  = BizObject.DataSets.Find("MainDataSet")  'lMain contains master data
   lKnockOffDataSet = BizObject.DataSets.Find('cdsKnockOff');
   Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data 
  BizObject.New();
    
    
   lMainDataSet.FindField('DocKey').value = -1;
   'Step 4 : Find Dockey Record
  lMainDataSet.FindField('DocNo').value = "Test";
  If lDataSet.RecordCount > 0 Then 
  lMainDataSet.FindField('Code').value = "888";
lDataSet.First
  lMainDataSet.FindField('DocDate').value = "01/09/2015";
    BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString 
   lMainDataSet.FindField('PostDate').value = "01/09/2015";
   lMainDataSet.FindField('Project').value = "----";
    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 
    
    
   lMainDataSet.FindField('Description').value = "";
   'Step 4 : Find Dockey Record
   lMainDataSet.FindField('PaymentMethod').value = "320-000";
   If lDataSet.RecordCount > 0 Then    
   lMainDataSet.FindField('Journal').value = "CASH";
lDataSet.First
  lMainDataSet.FindField('ChequeNumber').value = "";
    BizObject.Params.Find("DocKey").Value = lDataSet.FindField("DocKey").AsString 
  lMainDataSet.FindField('CurrencyCode').value = "----";
  lMainDataSet.FindField('CurrencyRate').value = "1.0000000000";
    BizObject.Open
  lMainDataSet.FindField('DocAmt').value = "106.00";
    BizObject.Edit
  lMainDataSet.FindField('BankCharge').value = "0";
  lMainDataSet.FindField('UnappliedAmt').value = "0";
  lMainDataSet.FindField('Cancelled').value = 'F';
 
  v = ComServer.CreateOleVariantArray(2);
  v.SetItem(0, 'IV'); /*Knock Off DocType*/
  v.SetItem(1, 'IV-00111'); /*Knock Off DocNo*/


  if (lKnockOffDataSet.Locate('DocType;DocNo', v.AsOleVariant(), false, false)){
    v(0) = "----" 'Project Code
          lKnockOffDataSet.Edit();
    v(1) = "2021" 'Year
          lKnockOffDataSet.FindField('DocAmt').value = "106";  
v(2) = "3" 'Month to update
          lKnockOffDataSet.FindField('KnockOff').AsString = 'T';
          lKnockOffDataSet.Post(); }
if (lDetail.Locate("Project;SYear;SMonth", v, false, false)) then
    /* Save document */ 
      lDetail.Edit
    BizObject.Save();
      lDetail.FindField("Amount").value = 333.12     
    BizObject.Close();
      lDetail.Post
     alert("Customer Payment - has been saved.");
End IF
}
  'Step 6: Save Document
</script>
    BizObject.Save
</head>
    BizObject.Close
<body>
    MsgBox "Done"
<input type="submit" value="SYNC" name="btnSubmit" onclick="AutoPayment()">
  END IF
</body>
End Function
</html>
 
</syntaxhighlight>
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
</syntaxhighlight>
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Customer.IV.RO====
====Stock Item Template to SL_IV====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Customer.IV.RO Report Object Script   
! Stock Item Template to SL_IV Script   
|-
|-
|  
|  
<syntaxhighlight lang="javascript">
<syntaxhighlight lang="vb">
<html>
'Updated 03 Sep 2021
  <head>
'Copy below script & paste to notepad & name it as eg SL_IV.vbs
    <title>Customer.IV.RO</title>
Call CheckLogin
    <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
Call InsertData1
    <script type="text/javascript">
Call InsertData2
var ComServer;


function CreateSQLAccServer() {
Dim ComServer
  ComServer = new ActiveXObject("SQLAcc.BizApp");
  if (!ComServer.IsLogin) {            /* check whether user has logon */
    ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
/* UserName, Password */
  }
}     


function GetData() { 
Function CreateSQLAccServer
   var lMain, lDetail, lRptVar, lDateFrom, lDateTo;
  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 
    
    
   elem = document.getElementById('txt1');
   'Begin Looping yr data
 
   'Step 4 : Insert Data - Master
  CreateSQLAccServer();
   BizObject.New
 
   lMain.FindField("Code").AsString        = "--TPL Test--"
  lDateFrom = new Date("January 1 2015");
   lMain.FindField("Description").AsString = "Template formt 1"
   lDateTo = new Date("December 31, 2015");
   lMain.FindField("RefPrice").AsFloat    = 299.15
 
  lRptVar = ComServer.RptObjects.Find('Customer.IV.RO');
   lRptVar.Params.Find('SelectDate').Value          = true;
   lRptVar.Params.Find('DateFrom').Value            = lDateFrom.valueOf();
  lRptVar.Params.Find('DateTo').Value              = lDateTo.valueOf();
  lRptVar.Params.Find('AllAgent').Value            = false;
  lRptVar.Params.Find('AgentData').Value            = "----\nLF"; /*Filter by Agent code ---- & HALIM */
   lRptVar.Params.Find('AllArea').Value              = true;
  lRptVar.Params.Find('AllCompany').Value          = true;
  lRptVar.Params.Find('AllCurrency').Value          = true;
  lRptVar.Params.Find('AllDocProject').Value        = true;
  lRptVar.Params.Find('AllCompanyCategory').Value  = true;
  lRptVar.Params.Find('AllDocument').Value          = true;
  lRptVar.Params.Find('IncludeCancelled').Value  = false;
  lRptVar.Params.Find('PrintDocumentStyle').Value = false;
  lRptVar.Params.Find('AllItemProject').Value    = true;
  lRptVar.Params.Find('AllPaymentMethod').Value  = true;
  lRptVar.CalculateReport(); 
 
   lMain   = lRptVar.DataSets.Find('cdsMain');
  lDetail = lRptVar.DataSets.Find('cdsDocDetail');
  /*alert("Count -" + lRptVar.DataSets.Find('cdsDocDetail').RecordCount);*/
  elem.innerHTML += 'From Main'+'\n';
      
      
   lMain.First();
   'Step 5: Insert Data - Detail
   while (!lMain.eof) {
  lDetail.Append
    elem.innerHTML += lMain.FindField('DocKey').AsString + ' ' +
  lDetail.FindField("DtlKey").value        = -1
                  lMain.FindField('DocNo').AsString + ' ' + lMain.FindField('DocDate').AsString + ' '+
   lDetail.FindField("Code").AsString        = "--TPL Test--"
                      lMain.FindField('CompanyName').AsString + ' ' + lMain.FindField('DocAmt').AsString + '\n';
  lDetail.FindField("Seq").value            = 1
lMain.Next();  
  lDetail.FindField("ItemCode").AsString   = "ANT"
   }
  lDetail.FindField("Description").AsString = "Sales Item A"
   elem.innerHTML += 'End Main'+'\n\n';
  lDetail.FindField("UOM").AsString         = "BOX"
    
  lDetail.FindField("Qty").AsFloat          = 2
   elem.innerHTML += 'From Detail'+'\n';
  'lDetail.FindField("DISC").AsString       = "5%+3" 'Optional (eg 5% plus 3 Discount)
   lDetail.First();
  lDetail.FindField("UNITAMOUNT").AsFloat    = 100  
   while (!lDetail.eof) {
   lDetail.FindField("Amount").AsFloat      = 200
    elem.innerHTML += lDetail.FindField('Dockey').AsString + ' ' + lDetail.FindField('Account').AsString + ' ' +
   lDetail.FindField("PRINTABLE").AsString  = "T"
                  lDetail.FindField('Description').AsString + ' ' + lDetail.FindField('Amount').AsString + '\n';
   lDetail.Post
lDetail.Next(); 
 
   } 
   lDetail.Append
  elem.innerHTML += 'End Detail'+'\n\n';
   lDetail.FindField("DtlKey").value        = -1
}
   lDetail.FindField("Code").AsString        = "--TPL Test--"
 
  lDetail.FindField("Seq").value            = 2
    </script>
  lDetail.FindField("ItemCode").AsString   = "COVER"
   </head>
  lDetail.FindField("Description").AsString = "Sales Item B"
   <body>
  lDetail.FindField("UOM").AsString         = "UNIT"
    <form>
  lDetail.FindField("Qty").AsFloat          = 3
      <textarea id="txt1" rows="30" cols="116"></textarea>
   'lDetail.FindField("DISC").AsString        = "5%+3" 'Optional (eg 5% plus 3 Discount)
      <input type="button" value="Calculate" onclick="GetData()">
   lDetail.FindField("UNITAMOUNT").AsFloat    = 10 
    </form>
   lDetail.FindField("Amount").AsFloat      = 30
  </body>
  lDetail.FindField("PRINTABLE").AsString  = "T"
</html>
  lDetail.Post 
</syntaxhighlight>
  'Step 6: Save Document
|}
  BizObject.Save
<div style="float: right;">   [[#top|[top]]]</div>
  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)


====Customer.RO====
  if lDODtl.RecordCount > 0 then
{| class="mw-collapsible mw-collapsed wikitable"
'Step 2: Find and Create the Biz Objects
! Customer.RO Report Object Script 
    Set BizObject = ComServer.BizObjects.Find("SL_IV")  
|-
|
<syntaxhighlight lang="javascript">
<html>
<head>
<title>Add Customer Invoice</title>
<script language='JScript'>
var ComServer;
function CreateSQLAccServer() {
  ComServer = new ActiveXObject('SQLAcc.BizApp');
  if (!ComServer.IsLogin) {            /* check whether user has logon */
    ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
/* UserName, Password */
  }
}


function GetCustomerData() {
    'Step 3: Set Dataset
   var RptObject, lDataSet, lDataSet2;
    Set lMain  = BizObject.DataSets.Find("MainDataSet") 'lMain contains master data
  edOutput.value = '';
    Set lDetail = BizObject.DataSets.Find("cdsDocDetail") 'lDetail contains detail data 
  edOutput2.value = '';
    
  //Step 1: Create Com Server object
    'Step 4 : Insert Data - Master
   CreateSQLAccServer();
    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 2: Find and Create the Report Objects
   'Step 8 : Logout after done 
   RptObject = ComServer.RptObjects.Find('Customer.RO');
   'ComServer.Logout
    
    
   //Step 3: Spool parameters
   MsgBox "Posting IV Done"
   RptObject.Params.Find('AllAgent').Value = true;
   else MsgBox "--No Template found. Posting IV aborted" 
   RptObject.Params.Find('AllArea').Value = true;
   End IF
  RptObject.Params.Find('AllCompany').Value = true;
End Function
   RptObject.Params.Find('AllCompanyCategory').Value = true;
</syntaxhighlight>
  RptObject.Params.Find('AllCurrency').Value = true;
|}
  RptObject.Params.Find('AllTerms').Value = true;
<div style="float: right;">   [[#top|[top]]]</div>
  RptObject.Params.Find('SelectDate').Value = true;
====AR_CN====
  RptObject.Params.Find('PrintActive').Value = true;
{| class="mw-collapsible mw-collapsed wikitable"
  RptObject.Params.Find('PrintInactive').Value = false;
! AR_CN Script 
  RptObject.Params.Find('PrintPending').Value = false;
|-
  RptObject.Params.Find('PrintProspect').Value = false;
|
  RptObject.Params.Find('PrintSuspend').Value = false;
<syntaxhighlight lang="vb">
  //RptObject.Params.Find('CompanyData').Value = '300-A0003';
'Updated 24 Feb 2023
 
'Copy below script & paste to notepad & name it as eg AR_CN.vbs
  //Step 4: Perform Report calculation
Call InsertData
  RptObject.CalculateReport();
 
  lDataSet = RptObject.DataSets.Find('cdsMain');
Function CreateSQLAccServer
  lDataSet2 = RptObject.DataSets.Find('cdsBranch');
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
 
End Function
   //alert('Count ' + lDataSet.RecordCount);


  //Step 5 Retrieve the output
Function InsertData
  lDataSet.First;
Dim ComServer, BizObject, lDate, lIVNO, v(1)
  while  (!lDataSet.eof){
    edOutput.value = edOutput.value +
                'Code : ' + lDataSet.FindField('Code').AsString + '\n' +
                'Company Name : ' + lDataSet.FindField('CompanyName').AsString +'\n\n';
lDataSet.Next();
  }
  lDataSet2.First();
  while (!lDataSet2.eof){
  edOutput2.value = edOutput2.value +
                  'Code : '+ lDataSet2.FindField('Code').AsString + '\n' +
  'Branch Name : '+ lDataSet2.FindField('BranchName').AsString + '\n' +
                  'Address 1 : '+ lDataSet2.FindField('Address1').AsString + '\n' +
  'Address 2 : '+ lDataSet2.FindField('Address2').AsString + '\n' +
  'Address 3 : '+ lDataSet2.FindField('Address3').AsString + '\n' +
  'Address 4 : '+ lDataSet2.FindField('Address4').AsString + '\n' +
  'Phone 1 : '+ lDataSet2.FindField('Phone1').AsString  +'\n\n';
  lDataSet2.Next();
    }
}


</script>
  'Step 1: Create Com Server object
</head>
  Set ComServer = CreateSQLAccServer 'Create Com Server
<body>
   If not ComServer.IsLogin Then 'if user hasn't logon to SQL application
   <table>
     ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0020.FDB"  
    <tr>
   END IF
      <th>Main Table</th>
      <th>Branch Branch</th>
    </tr>
     <tr>
      <td>
        <TEXTAREA rows=15 cols=75 name="edOutput"></TEXTAREA>
  </td>
      <td>
        <TEXTAREA rows=15 cols=75 name="edOutput2"></TEXTAREA>
  </td>
    </tr>
  </table>
  <table width="83%">
<tr>
  <td align="center">
<input type='submit' value='Sync Data' name='btnSubmit' onclick='GetCustomerData()'>
  </td>
</tr>
  </table>
</body>
</html>
</syntaxhighlight>
|}
<div style="float: right;">   [[#top|[top]]]</div>


====Get Next IV Number====
  'Step 2: Find and Create the Biz Objects
{| class="mw-collapsible mw-collapsed wikitable"
  Set BizObject = ComServer.BizObjects.Find("AR_CN")
! Get Next IV Number Script 
|-
|
<syntaxhighlight lang="javascript">
<html>
<head>
<title>Add Cash Sales</title>
<script language="JScript">
var ComServer, lDataSet;


function CreateSQLAccServer() {
  'Step 3: Set Dataset
   ComServer = new ActiveXObject('SQLAcc.BizApp');
   Set lMainDataSet = BizObject.DataSets.Find("MainDataSet")    'lMainDataSet contains master data
   if (!ComServer.IsLogin) {            /* check whether user has logon */
   Set lDetailDataSet = BizObject.DataSets.Find("cdsDocDetail") 'lDetailDataSet contains detail data 
    ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
  Set lKO = BizObject.DataSets.Find("cdsKnockOff") 'Contains IV/DN to knock off data  
  /* UserName, Password */
    
   }
  'Step 4 : Insert Data - Master
}
  lDate = CDate("January 1, 2023")
 
   BizObject.New
function zeroPad(num, places) {
  lMainDataSet.FindField("DocKey").value = -1
   var zero = places - num.toString().length + 1;
  lMainDataSet.FindField("DocNo").value = "--CN Test--"
   return Array(+(zero > 0 && zero)).join("0") + num;
   lMainDataSet.FindField("DocDate").value = lDate
   /*zeroPad(5, 2); // "05"*/
  lMainDataSet.FindField("PostDate").value = lDate
}
   lMainDataSet.FindField("Code").value = "300-A0001"
 
  lMainDataSet.FindField("Description").value = "Credit Note"
function GetData() {
   
   var lSQL;
   'Step 5: Insert Data - Detail
   lSQL = "SELECT A.*, B.NEXTNUMBER FROM SY_DOCNO A ";
   'For Tax Inclusive = True with override Tax Amount
   lSQL = lSQL + "INNER JOIN SY_DOCNO_DTL B ON (A.DOCKEY=B.PARENTKEY) ";
  lDetailDataSet.Append
   lSQL = lSQL + "WHERE A.DOCTYPE='IV' ";
  lDetailDataSet.FindField("DtlKey").value = -1
   lSQL = lSQL + "AND A.DESCRIPTION='Customer Invoice' ";
   lDetailDataSet.FindField("DocKey").value = -1
   lSQL = lSQL + "AND A.STATESET=1 ";
  lDetailDataSet.FindField("Account").value = "510-2000"
   lDataSet = ComServer.DBManager.NewDataSet(lSQL);  
   lDetailDataSet.FindField("Description").value = "Sales Item A"
}
  lDetailDataSet.FindField("Tax").value = "SV"
 
   lDetailDataSet.FindField("TaxInclusive").value = 0
function ShowNextNo() {
  lDetailDataSet.FindField("Amount").value = 410.37
   var Desc, Fmt, NextNo, lResult, lPad;
   lDetailDataSet.FindField("TaxAmt").value = 24.63
 
   lDetailDataSet.DisableControls
  lDetailDataSet.FindField("TaxInclusive").value = 1
  lDetailDataSet.EnableControls
 
  lDetailDataSet.FindField("Changed").value = "F"
   lDetailDataSet.Post
    
    
   CreateSQLAccServer();  
   'For Tax Inclusive = False with override Tax Amount
   GetData();
  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


   if (lDataSet.RecordCount > 0) { 
   'Step 7: Knock Off IV
    lDataSet.First;
     lIVNO = "--IV Test--"
     Desc = lDataSet.FindField("Description").AsString;
    v(0) = "IV"
Fmt  = lDataSet.FindField("Format").AsString;
     v(1) = lIVNO
NextNo = lDataSet.FindField("NEXTNUMBER").Value;
     alert(Desc);
alert(Fmt);
alert(NextNo);
lPad = Fmt.substr(5, 1);
    if (lKO.Locate("DocType;DocNo", v, false, false)) then
lPad = zeroPad(NextNo, lPad)
      lKO.Edit
Desc = Fmt.substr(0, 3);
      lKO.FindField("KOAmt").value = 65.57
alert(Desc + lPad);
      lKO.FindField("KnockOff").AsString = "T"
   }
      lKO.Post
}
End IF 
</script>
 
</head>
   'Step 7: Save Document
<body>
  BizObject.Save
<input type="submit" value="Show Next No" name="btnSubmit" onclick="ShowNextNo()">
  BizObject.Close
</body>
  MsgBox "Done"
</html>
End Function
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>
====Customer & Supplier Contra====
<br />
 
===JScript/JavaScript===
This Script only can run using Internet Explorer (till IE 11)
 
====AR_IV====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Customer & Supplier Contra Script   
! AR_IV Script   
|-
|-
|  
|  
Line 10,141: Line 10,655:
}
}
   
   
function PostARCT() {
function AutoInvoice() {
   var BizObject, lMain, lKO, V;
   var BizObject, lMainDataSet, lDetailDataSet;
   
   
   CreateSQLAccServer();
   CreateSQLAccServer();
   
   
   BizObject = ComServer.BizObjects.Find('AR_CT');
   BizObject = ComServer.BizObjects.Find('AR_IV');
   lMain = BizObject.DataSets.Find('MainDataSet');
   lMainDataSet = BizObject.DataSets.Find('MainDataSet');
   lKO = BizObject.DataSets.Find('cdsKnockOff');
   lDetailDataSet = BizObject.DataSets.Find('cdsDocDetail');
   BizObject.New();
   BizObject.New();
   
   
   lMain.FindField('DocKey').value = -1;
   lMainDataSet.FindField('DocKey').value = -1;
   lMain.FindField('DocNo').value = "--CT Test--";
   lMainDataSet.FindField('DocNo').value = "--IV Test--";
   lMain.FindField('DocDate').value = "01/10/2020";
   lMainDataSet.FindField('DocDate').value = "01/10/2016";
   lMain.FindField('PostDate').value = "01/10/2020";
   lMainDataSet.FindField('PostDate').value = "01/10/2016";
   lMain.FindField('Code').value = "300-A0002";
   lMainDataSet.FindField('Code').value = "300-A0003";
   lMain.FindField('Description').value = "Contra";
   lMainDataSet.FindField('Description').value = "Sales";
  lMain.FindField('DocAmt').value = "100.00";
  //lMain.FindField('UnappliedAmt').value = "0";


   v = ComServer.CreateOleVariantArray(2);
   /*For Tax Inclusive = True with override Tax Amount*/
   v.SetItem(0, 'IV'); /*Knock Off DocType*/
  lDetailDataSet.Append();
   v.SetItem(1, 'IV-00021'); /*Knock Off DocNo*/
   lDetailDataSet.FindField('DtlKey').value = -1;
 
   lDetailDataSet.FindField('DocKey').value = -1;
   if (lKO.Locate('DocType;DocNo', v.AsOleVariant(), false, false)){
   lDetailDataSet.FindField('Account').value = "500-000";
          lKO.Edit();
  lDetailDataSet.FindField('Description').value = "Sales Item A";
          lKO.FindField('DocAmt').value = "100";  
  lDetailDataSet.FindField('Tax').value = "SR";
          lKO.FindField('KnockOff').AsString = 'T';
  lDetailDataSet.FindField('TaxInclusive').value =  0;
          lKO.Post(); }
   lDetailDataSet.FindField('Amount').value = 410.37;
 
  lDetailDataSet.FindField('TaxAmt').value = 24.63;
   /* Save document */ 
    BizObject.Save();
    BizObject.Close();
    alert('Customer Contra - has been saved.');
}
 
function PostAPST() {
  var BizObject, lMain, lKO, V, lDocNo, lDocKey;
   
   
   CreateSQLAccServer();
   lDetailDataSet.DisableControls();
  lDetailDataSet.FindField('TaxInclusive').value =  1;
  lDetailDataSet.EnableControls();
   
   
   BizObject = ComServer.BizObjects.Find('AP_ST');
   lDetailDataSet.FindField('Changed').value = "F";
  lMain = BizObject.DataSets.Find('MainDataSet');
   lDetailDataSet.Post();
  lKO = BizObject.DataSets.Find('cdsKnockOff');
 
  lDocNo = "--CT Test--"
  lDocKey = BizObject.FindKeyByRef("DocNo", lDocNo)
  BizObject.Params.Find("DocKey").Value = lDocKey 
 
  if (lDocKey != null) {
    BizObject.Open();
BizObject.Edit();
lMain.FindField('Code').value = "400-C0001";
lMain.FindField('DocAmt').value = "100.00";
   //lMain.FindField('UnappliedAmt').value = "0";


  v = ComServer.CreateOleVariantArray(2);
  /*For Tax Inclusive = False with override Tax Amount*/
  v.SetItem(0, 'PI'); /*Knock Off DocType*/
  lDetailDataSet.Append();
  v.SetItem(1, 'PI-00001'); /*Knock Off DocNo*/
  lDetailDataSet.FindField('DtlKey').value = -1;
 
  lDetailDataSet.FindField('DocKey').value = -1;
    if (lKO.Locate('DocType;DocNo', v.AsOleVariant(), false, false)){
  lDetailDataSet.FindField('Account').value = "500-000";
          lKO.Edit();
  lDetailDataSet.FindField('Description').value =  "Sales Item B";
          lKO.FindField('DocAmt').value = "100";  
  lDetailDataSet.FindField('Tax').value =  "SR";
          lKO.FindField('KnockOff').AsString = 'T';
  lDetailDataSet.FindField('TaxInclusive').value =  0;
          lKO.Post(); }
  lDetailDataSet.FindField('Amount').value = 94.43;
  lDetailDataSet.FindField('TaxAmt').value = 5.66;
  lDetailDataSet.FindField('Changed').value = "F";
  lDetailDataSet.Post();


   /* Save document */   
   /* Save document */   
     BizObject.Save();
     BizObject.Save();
     BizObject.Close();
     BizObject.Close();
     alert('Supplier Contra - has been Updated.');
     alert('Customer Invoice - has been saved.');
  }
}
}
</script>
</script>
</head>
</head>
<body>
<body>
<button onclick="javascript:PostARCT();">PostARCT</button>&nbsp;&nbsp;
<input type="submit" value="SYNC" name="btnSubmit" onclick="AutoInvoice()">
<button onclick="javascript:PostAPST();">PostAPST</button>&nbsp;&nbsp;
</body>
</body>
</html>
</html>
Line 10,223: Line 10,718:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Add Stock Item====
====SL_CS====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Add ST_Item Script   
! SL_CS Script   
|-
|-
|  
|  
Line 10,231: Line 10,726:
<html>
<html>
<head>
<head>
<title>Add Stock Item</title>
<title>Add Cash Sales</title>
<script language="JScript">
<script language="JScript">
var ComServer;
var ComServer;
Line 10,249: Line 10,744:


   /*Step 2: Find and Create the Biz Objects*/
   /*Step 2: Find and Create the Biz Objects*/
   BizObject = ComServer.BizObjects.Find('ST_ITEM') ;
   BizObject = ComServer.BizObjects.Find('SL_CS') ;


   /*Step 3: Set Dataset*/
   /*Step 3: Set Dataset*/
   lMain  = BizObject.DataSets.Find('MainDataSet');  /*lMain contains master data*/
   lMain  = BizObject.DataSets.Find('MainDataSet');  /*lMain contains master data*/
   lUOM = BizObject.DataSets.Find('cdsUOM'); /*lDetail contains detail data */   
   lDetail = BizObject.DataSets.Find('cdsDocDetail'); /*lDetail contains detail data */   
    
    
   /*Begin Looping yr data*/
   /*Begin Looping yr data*/
   /*Step 4 : Insert Data - Master*/
   /*Step 4 : Insert Data - Master*/
   BizObject.New();
   BizObject.New();
   lMain.FindField('Code').AsString        = "Code JScript";
  lMain.FindField('DocKey').value        = -1;
   lMain.FindField('DESCRIPTION').AsString = "Post from JScript"
  lMain.FindField('DocNo').AsString      = "--IV Test--";
   lMain.FindField('STOCKGROUP').AsString    = "DEFAULT"; /*Optional*/
  lMain.FindField('DocDate').value        = "20/12/2017";
   lMain.FindField('STOCKCONTROL').AsString    = "T"; /*Optional*/
  lMain.FindField('PostDate').value      = "20/12/2017";
   lMain.FindField('ISACTIVE').AsString    = "T"; /*Optional*/
   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 - UOM*/
   /*Step 5: Insert Data - Detail*/
   lUOM.Edit(); /*For 1St UOM*/
   /*For Tax Inclusive = True with override Tax Amount*/
   lUOM.FindField('UOM').AsString = "PCS";
  lDetail.Append();
   lUOM.FindField('Rate').AsFloat = 1;
  lDetail.FindField('DtlKey').value        = -1;
   lUOM.FindField('RefCost').AsFloat = 10.2;
  lDetail.FindField('DocKey').value        = -1;
   lUOM.FindField('RefPrice').AsFloat = 25;
  lDetail.FindField('Seq').value            = 1;
   lUOM.Post();
  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();


   lUOM.Append(); /*For 2nd UOM*/
   /*For With Item Code*/
   lUOM.FindField('UOM').AsString = "CTN";
  lDetail.Append();
   lUOM.FindField('Rate').AsFloat = 12;
  lDetail.FindField('DtlKey').value        = -1;
   lUOM.FindField('RefCost').AsFloat = 102;
  lDetail.FindField('DocKey').value        = -1;
   lUOM.FindField('RefPrice').AsFloat = 240;
  lDetail.FindField('Seq').value            = 3;
   lUOM.Post();
  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*/
   /*Step 6: Save Document*/
   BizObject.Save();
   BizObject.Save();
   BizObject.Close();
   BizObject.Close();
     alert('Item has been saved.');
     alert('Document has been saved.');
}
}
</script>
</script>
Line 10,294: Line 10,838:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Get Company Profile====
====AR_PM====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Get Company Profile Script   
! AR_PM Script   
|-
|-
|  
|  
Line 10,302: Line 10,846:
<html>
<html>
<head>
<head>
<title>Add Cash Sales</title>
<title>Customer Payment</title>
<script language="JScript">
<html>
<head>
<title>Add Customer Payment</title>
<script language="JScript">
<script language="JScript">
var ComServer, lDataSet;
var ComServer;


function CreateSQLAccServer() {
function CreateSQLAccServer() {
   ComServer = new ActiveXObject('SQLAcc.BizApp');
   ComServer = new ActiveXObject("SQLAcc.BizApp");
   if (!ComServer.IsLogin) {            /* check whether user has logon */
   if (!ComServer.IsLogin) {            /* check whether user has logon */
     ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
     ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
Line 10,314: Line 10,862:
}
}


function zeroPad(num, places) {
function AddPayment() {
   var zero = places - num.toString().length + 1;
   var BizObject, lMainDataSet, lKnockOffDataSet, V;
   return Array(+(zero > 0 && zero)).join("0") + num;
    
   /*zeroPad(5, 2); // "05"*/
   CreateSQLAccServer();
}


function GetData() {
  BizObject = ComServer.BizObjects.Find('AR_PM');
   var lSQL;
  lMainDataSet = BizObject.DataSets.Find('MainDataSet');
   lSQL = "SELECT COMPANYNAME, REMARK, BRN, BRN2, GSTNO, ";
  lKnockOffDataSet = BizObject.DataSets.Find('cdsKnockOff');
   lSQL = lSQL + "SALESTAXNO, SERVICETAXNO, ";
  BizObject.New();
   lSQL = lSQL + "ADDRESS1,ADDRESS2,ADDRESS3,ADDRESS4 FROM SY_PROFILE ";
 
   lDataSet = ComServer.DBManager.NewDataSet(lSQL);
   lMainDataSet.FindField('DocKey').value = -1;
}
   lMainDataSet.FindField('DocNo').value = "--OR Test--";
 
   lMainDataSet.FindField('Code').value = "300-C0001";
function ShowCoProfile() {
   lMainDataSet.FindField('DocDate').value = "10/10/2023";
   var CoName, Rmk, BRN;
   lMainDataSet.FindField('PostDate').value = "10/10/2023"; 
  lMainDataSet.FindField('Description').value = "Payment for Account";
  lMainDataSet.FindField('PaymentMethod').value = "310-001";
  lMainDataSet.FindField('ChequeNumber').value = "";
  lMainDataSet.FindField('DocAmt').AsFloat = 106.10;
  lMainDataSet.FindField('BankCharge').AsFloat = 0;
  lMainDataSet.FindField('UnappliedAmt').AsFloat = 0;
   lMainDataSet.FindField('Cancelled').value = 'F';
    
    
   CreateSQLAccServer();
   v = ComServer.CreateOleVariantArray(2);
   GetData();
   v.SetItem(0, 'IV'); /*Knock Off DocType*/
  v.SetItem(1, 'IV-00172'); /*Knock Off DocNo*/


   if (lDataSet.RecordCount > 0) {   
   if (lKnockOffDataSet.Locate('DocType;DocNo', v.AsOleVariant(), false, false)){
     lDataSet.First;
          lKnockOffDataSet.Edit();
     CoName = lDataSet.FindField("COMPANYNAME").AsString;
          lKnockOffDataSet.FindField('KOAmt').AsFloat = 106.10;  
Rmk = lDataSet.FindField("REMARK").AsString;
          lKnockOffDataSet.FindField('KnockOff').AsString = 'T';
BRN = lDataSet.FindField("BRN").Value;
          lKnockOffDataSet.Post(); }
     alert(CoName);
    /* Save document */ 
alert(Rmk);
    BizObject.Save();
alert(BRN);
    BizObject.Close();
  }
    alert("Customer Payment - has been saved.");
}
 
function EditPayment(){
   var BizObject, lMainDataSet, lKnockOffDataSet, V, lDocNo, lDocKey;
 
  CreateSQLAccServer();
 
  BizObject = ComServer.BizObjects.Find('AR_PM');
  lMainDataSet = BizObject.DataSets.Find('MainDataSet');
  lKnockOffDataSet = BizObject.DataSets.Find('cdsKnockOff');
 
  lDocNo = "--OR Test--"
  lDocKey = BizObject.FindKeyByRef('DocNo', lDocNo);
  BizObject.Params.Find('DocKey').Value = lDocKey;
 
  if (lDocKey != null) {
     BizObject.Open();
     BizObject.Edit();
    lMainDataSet.FindField('Description').value = "Payment for Account-Edited";
    lMainDataSet.FindField('PaymentMethod').value = "310-001";
    lMainDataSet.FindField('ChequeNumber').value = "";
    lMainDataSet.FindField('DocAmt').AsFloat = 200.00;
    lMainDataSet.FindField('BankCharge').AsFloat = 0;
    lMainDataSet.FindField('UnappliedAmt').AsFloat = 0;
    lMainDataSet.FindField('Cancelled').value = 'F';
 
    v = ComServer.CreateOleVariantArray(2);
    v.SetItem(0, 'IV'); /*Knock Off DocType*/
    v.SetItem(1, 'IV-00172'); /*Knock Off DocNo*/
 
    if (lKnockOffDataSet.Locate('DocType;DocNo', v.AsOleVariant(), false, false)){
          lKnockOffDataSet.Edit();
          lKnockOffDataSet.FindField('KOAmt').AsFloat = 200;  
          lKnockOffDataSet.FindField('KnockOff').AsString = 'T';
          lKnockOffDataSet.Post(); }
    /* Save document */  
      BizObject.Save();
      BizObject.Close();
      alert("Customer Payment - has been Edited & saved.");
  }
}
 
function DelPayment(){
  var BizObject, lMainDataSet, lKnockOffDataSet, V, lDocNo, lDocKey;
 
  CreateSQLAccServer();
 
  BizObject = ComServer.BizObjects.Find('AR_PM');
  lMainDataSet = BizObject.DataSets.Find('MainDataSet');
  lKnockOffDataSet = BizObject.DataSets.Find('cdsKnockOff');
 
  lDocNo = "--OR Test--"
  lDocKey = BizObject.FindKeyByRef('DocNo', lDocNo);
  BizObject.Params.Find('DocKey').Value = lDocKey;
 
  if (lDocKey != null) {
    BizObject.Open();
     BizObject.Delete();
 
    BizObject.Close();
    alert("Customer Payment - has been Deleted.");
  }
}
}
</script>
</script>
</head>
</head>
<body>
<body>
<input type="submit" value="Show Co Profile" name="btnSubmit" onclick="ShowCoProfile()">
<input type="submit" value="Add Payment" name="btnSubmit" onclick="AddPayment()">
<input type="submit" value="Edit Payment" name="btnSubmit" onclick="EditPayment()">
<input type="submit" value="Delete Payment" name="btnSubmit" onclick="DelPayment()">
</body>
</body>
</html>
</html>
Line 10,353: Line 10,972:
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>
<br />


===Delphi===
====Customer.IV.RO====
The below example is assuming after you had check the login status.
====GL_JE====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! GL_JE Script   
! Customer.IV.RO Report Object Script   
|-
|-
|  
|  
<syntaxhighlight lang="delphi">
<syntaxhighlight lang="javascript">
procedure TfmMain.dxbb_GL_JEClick(Sender: TObject);
<html>
var BizApp, lMain, lDtl, lBizObj, lDocKey : Variant;
   <head>
    i : integer;
     <title>Customer.IV.RO</title>
begin
     <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
   BizApp := CreateOleObject('SQLAcc.BizApp');
     <script type="text/javascript">
  try
var ComServer;
     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
function CreateSQLAccServer() {
    lDtl.Append;
  ComServer = new ActiveXObject("SQLAcc.BizApp");
    lDtl.FindField('DTLKEY').Value      := -1;
  if (!ComServer.IsLogin) {            /* check whether user has logon */
    lDtl.FindField('DOCKEY').Value      := -1;
     ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
    lDtl.FindField('SEQ').Value          := 1;
/* UserName, Password */
    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
function GetData() { 
    lDtl.Append;
  var lMain, lDetail, lRptVar, lDateFrom, lDateTo;
    lDtl.FindField('DTLKEY').Value       := -1;
 
    lDtl.FindField('DOCKEY').Value       := -1;
  elem = document.getElementById('txt1');
    lDtl.FindField('SEQ').Value         := 2;
 
    lDtl.FindField('CODE').Value         := '605-200';
  CreateSQLAccServer();
    lDtl.FindField('DESCRIPTION').Value := 'Item Desc 2';
 
    lDtl.FindField('TAX').Value          := 'TX';
  lDateFrom = new Date("January 1 2015");
    lDtl.FindField('TAXINCLUSIVE').Value := 0;
  lDateTo = new Date("December 31, 2015");
    lDtl.FindField('LocalCR').AsFloat    := 100;
 
    lDtl.FindField('CHANGED').Value     := 'F';
  lRptVar = ComServer.RptObjects.Find('Customer.IV.RO');
    lDtl.Post;
  lRptVar.Params.Find('SelectDate').Value           = true;
 
  lRptVar.Params.Find('DateFrom').Value             = lDateFrom.valueOf();
    //For No GST
  lRptVar.Params.Find('DateTo').Value               = lDateTo.valueOf();
    lDtl.Append;
  lRptVar.Params.Find('AllAgent').Value             = false;
    lDtl.FindField('DTLKEY').Value       := -1;
  lRptVar.Params.Find('AgentData').Value            = "----\nLF"; /*Filter by Agent code ---- & HALIM */
    lDtl.FindField('DOCKEY').Value       := -1;
  lRptVar.Params.Find('AllArea').Value             = true;
    lDtl.FindField('SEQ').Value         := 3;
  lRptVar.Params.Find('AllCompany').Value          = true;
    lDtl.FindField('CODE').Value        := '610-002';
  lRptVar.Params.Find('AllCurrency').Value          = true;
    lDtl.FindField('DESCRIPTION').Value  := 'Item Desc 3';
  lRptVar.Params.Find('AllDocProject').Value       = true;
     lDtl.FindField('TAX').Value          := '';
  lRptVar.Params.Find('AllCompanyCategory').Value  = true;
    lDtl.FindField('TAXINCLUSIVE').Value  := 0;
  lRptVar.Params.Find('AllDocument').Value         = true;
    lDtl.FindField('LocalCR').AsFloat    := 200;
  lRptVar.Params.Find('IncludeCancelled').Value  = false;
    lDtl.FindField('CHANGED').Value      := 'F';
  lRptVar.Params.Find('PrintDocumentStyle').Value = false;
    lDtl.Post;
  lRptVar.Params.Find('AllItemProject').Value     = true;
 
  lRptVar.Params.Find('AllPaymentMethod').Value   = true;
    lBizObj.Save;
  lRptVar.CalculateReport();
     MessageDlg('GL_JE-DocNo : ''--JE Test--'' Posted...', mtInformation, [mbOK],0);
 
   finally
  lMain  = lRptVar.DataSets.Find('cdsMain');
    lBizObj.Close;
  lDetail = lRptVar.DataSets.Find('cdsDocDetail');
   end;
  /*alert("Count -" + lRptVar.DataSets.Find('cdsDocDetail').RecordCount);*/
end;
  elem.innerHTML += 'From Main'+'\n';
      
  lMain.First();
  while (!lMain.eof) {
    elem.innerHTML += lMain.FindField('DocKey').AsString + ' ' +
                  lMain.FindField('DocNo').AsString + ' ' + lMain.FindField('DocDate').AsString + ' '+
                      lMain.FindField('CompanyName').AsString + ' ' + lMain.FindField('DocAmt').AsString + '\n';
lMain.Next(); 
  }
  elem.innerHTML += 'End Main'+'\n\n';
 
  elem.innerHTML += 'From Detail'+'\n';
  lDetail.First();
  while (!lDetail.eof) {
     elem.innerHTML += lDetail.FindField('Dockey').AsString + ' ' + lDetail.FindField('Account').AsString + ' ' +
                  lDetail.FindField('Description').AsString + ' ' + lDetail.FindField('Amount').AsString + '\n';
lDetail.Next();
   } 
  elem.innerHTML += 'End Detail'+'\n\n';
}
 
    </script>
   </head>
  <body>
    <form>
      <textarea id="txt1" rows="30" cols="116"></textarea>
      <input type="button" value="Calculate" onclick="GetData()">
    </form>
  </body>
</html>
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====GL_PV====
====Customer.RO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! GL_PV Script   
! Customer.RO Report Object Script   
|-
|-
|  
|  
<syntaxhighlight lang="delphi">
<syntaxhighlight lang="javascript">
procedure TfmMain.dxbb_GLPVClick(Sender: TObject);
<html>
var lMain, lDtl, lBizObj, BizApp : Variant;
<head>
    lTime : TDateTime;
<title>Add Customer Invoice</title>
begin
<script language='JScript'>
  lTime := Now;
var ComServer;
  BizApp := CreateOleObject('SQLAcc.BizApp');
  try
function CreateSQLAccServer() {
    lBizObj := BizApp.BizObjects.Find('GL_PV');
   ComServer = new ActiveXObject('SQLAcc.BizApp');
    lMain   := lBizObj.DataSets.Find('MainDataSet');
  if (!ComServer.IsLogin) {            /* check whether user has logon */
    lDtl    := lBizObj.DataSets.Find('cdsDocDetail');
     ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
    lBizObj.New;
  /* UserName, Password */
    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;
function GetCustomerData() {
    lDtl.FindField('DTLKEY').Value         := -1;
  var RptObject, lDataSet, lDataSet2;
    lDtl.FindField('DOCKEY').Value         := -1;
  edOutput.value = '';
    lDtl.FindField('Code').AsString        := '200-300';
  edOutput2.value = '';
    lDtl.FindField('DESCRIPTION').AsString := 'Maybank - Asus A555LD-xx313H';
  //Step 1: Create Com Server object
    lDtl.FindField('TAX').AsString        := 'TX';
  CreateSQLAccServer();
    lDtl.FindField('TAXAMT').AsFloat      := 114.28;
 
    lDtl.FindField('TAXINCLUSIVE').Value   := 1;
  //Step 2: Find and Create the Report Objects
    lDtl.FindField('AMOUNT').AsFloat      := 2019;
  RptObject = ComServer.RptObjects.Find('Customer.RO');
    lDtl.FindField('CHANGED').AsString    := 'F';
 
    lDtl.Post;
  //Step 3: Spool parameters
    lBizObj.Save;
  RptObject.Params.Find('AllAgent').Value = true;
    lTime := Now - lTime;
  RptObject.Params.Find('AllArea').Value = true;
    MessageDlg(Format('[Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]),
  RptObject.Params.Find('AllCompany').Value = true;
              mtInformation, [mbOk], 0);
  RptObject.Params.Find('AllCompanyCategory').Value = true;
   finally
  RptObject.Params.Find('AllCurrency').Value = true;
    lBizObj.Close;
  RptObject.Params.Find('AllTerms').Value = true;
  end;
  RptObject.Params.Find('SelectDate').Value = true;
end;
  RptObject.Params.Find('PrintActive').Value = true;
</syntaxhighlight>
  RptObject.Params.Find('PrintInactive').Value = false;
|}
  RptObject.Params.Find('PrintPending').Value = false;
  RptObject.Params.Find('PrintProspect').Value = false;
  RptObject.Params.Find('PrintSuspend').Value = false;
  //RptObject.Params.Find('CompanyData').Value = '300-A0003';
 
  //Step 4: Perform Report calculation
  RptObject.CalculateReport();
  lDataSet = RptObject.DataSets.Find('cdsMain');
  lDataSet2 = RptObject.DataSets.Find('cdsBranch');
    
  //alert('Count ' + lDataSet.RecordCount);


<div style="float: right;">   [[#top|[top]]]</div>
  //Step 5 Retrieve the output
  lDataSet.First;
  while  (!lDataSet.eof){
    edOutput.value = edOutput.value +
                'Code : ' + lDataSet.FindField('Code').AsString + '\n' +
                'Company Name : ' + lDataSet.FindField('CompanyName').AsString +'\n\n';
lDataSet.Next();
  }
  lDataSet2.First();
   while (!lDataSet2.eof){
  edOutput2.value = edOutput2.value +
                  'Code : '+ lDataSet2.FindField('Code').AsString + '\n' +
  'Branch Name : '+ lDataSet2.FindField('BranchName').AsString + '\n' +
                  'Address 1 : '+ lDataSet2.FindField('Address1').AsString + '\n' +
  'Address 2 : '+ lDataSet2.FindField('Address2').AsString + '\n' +
  'Address 3 : '+ lDataSet2.FindField('Address3').AsString + '\n' +
  'Address 4 : '+ lDataSet2.FindField('Address4').AsString + '\n' +
  'Phone 1 : '+ lDataSet2.FindField('Phone1').AsString  +'\n\n';
  lDataSet2.Next();
    }
}


====AR_Customer====
</script>
{| class="mw-collapsible mw-collapsed wikitable"
</head>
! AR_Customer Script 
<body>
|-
   <table>
|
     <tr>
<syntaxhighlight lang="delphi">
      <th>Main Table</th>
procedure TfmMain.dxbb_CustomerClick(Sender: TObject);
      <th>Branch Branch</th>
var lMain, lDtl, lBizObj, lBizApp : Variant;
     </tr>
    lTime : TDateTime;
     <tr>
begin
      <td>
   lTime := Now;
        <TEXTAREA rows=15 cols=75 name="edOutput"></TEXTAREA>
  lBizApp := CreateOleObject('SQLAcc.BizApp');
  </td>
 
      <td>
  lBizObj := lBizApp.BizObjects.Find('AR_Customer');
        <TEXTAREA rows=15 cols=75 name="edOutput2"></TEXTAREA>
  lMain  := lBizObj.DataSets.Find('MainDataSet');
  </td>
  lDtl    := lBizObj.DataSets.Find('cdsBranch');
     </tr>
 
  </table>
  try
     lBizObj.New;
   <table width="83%">
    lMain.FindField('Code').value        := '300-Test';
<tr>
    lMain.FindField('CompanyName').value := 'Testing 123';
  <td align="center">
 
<input type='submit' value='Sync Data' name='btnSubmit' onclick='GetCustomerData()'>
     lDtl.Edit; //For 1st Branch
  </td>
     lDtl.FindField('BranchName').AsString := 'BILLING';
</tr>
    lDtl.FindField('Address1').AsString  := 'Address1';
   </table>
    lDtl.FindField('Address2').AsString  := 'Address2';
</body>
    lDtl.FindField('Address3').AsString  := 'Address3';
</html>
    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;
    lBizObj.Save;
 
    lTime := Now - lTime;
    MessageDlg(Format('[Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]),
              mtInformation, [mbOk], 0);
   finally
    lBizObj.Close;
  end;
end;
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====AR_PM====
====Get Next IV Number====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! AR_PM Script   
! Get Next IV Number Script   
|-
|-
|  
|  
<syntaxhighlight lang="delphi">
<syntaxhighlight lang="javascript">
procedure TfmMain.dxbb_ARPMClick(Sender: TObject);
<html>
var lMain, lKO, lBizApp, lBizObj, V : Variant;
<head>
begin
<title>Add Cash Sales</title>
  lBizApp := CreateOleObject('SQLAcc.BizApp');
<script language="JScript">
  try
var ComServer, lDataSet;
    lBizObj := lBizApp.BizObjects.Find('AR_PM');
    lMain  := lBizObj.DataSets.Find('MainDataSet');
    lKO    := lBizObj.DataSets.Find('cdsKnockOff');


    lBizObj.New;
function CreateSQLAccServer() {
    lMain.FindField('DOCKEY').Value          := -1;
  ComServer = new ActiveXObject('SQLAcc.BizApp');
    lMain.FindField('DocNo').AsString        := '--PM Test--'; //Payment Document Number
  if (!ComServer.IsLogin) {            /* check whether user has logon */
     lMain.FindField('CODE').AsString          := '300-A0001';
     ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
    lMain.FindField('DocDate').Value          := '28 Aug 2016';
/* UserName, Password */
    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;
function zeroPad(num, places) {
    lMain.FindField('Cancelled').AsString    := 'F';
   var zero = places - num.toString().length + 1;
  return Array(+(zero > 0 && zero)).join("0") + num;
  /*zeroPad(5, 2); // "05"*/
}


    V := lBizApp.CreateOleVariantArray(2);
function GetData() {
    V.SetItem(0, 'IV'); //Document Type is either is IV or DN for Sales & PI or SD for Purchase
  var lSQL;
    V.SetItem(1, '--IV Test--');  //Invoice Document Number
  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);   
}


    if lKO.Locate('DocType;DocNo', V.AsOleVariant, False, False) then
function ShowNextNo() {
      begin
  var Desc, Fmt, NextNo, lResult, lPad;
        lKO.Edit;
 
        lKO.FindField('KOAmt').ASFloat    := 500;
  CreateSQLAccServer();
        lKO.FindField('KnockOff').AsString := 'T';
  GetData();
        lKO.Post;
      end;


     lBizObj.Save;
  if (lDataSet.RecordCount > 0) { 
     MessageDlg('AR_PM-DocNo : ''--PM Test--'' Posted...', mtInformation, [mbOK],0);
     lDataSet.First;
   finally
     Desc = lDataSet.FindField("Description").AsString;
    lBizObj.Close;
Fmt  = lDataSet.FindField("Format").AsString;
  end;
NextNo = lDataSet.FindField("NEXTNUMBER").Value;
end;
    alert(Desc);
alert(Fmt);
alert(NextNo);
lPad = Fmt.substr(5, 1);
lPad = zeroPad(NextNo, lPad)
Desc = Fmt.substr(0, 3);
alert(Desc + lPad);
   }
}
</script>
</head>
<body>
<input type="submit" value="Show Next No" name="btnSubmit" onclick="ShowNextNo()">
</body>
</html>
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>
 
====Customer & Supplier Contra====
====AR_PM-Edit====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! AR_PM Script   
! Customer & Supplier Contra Script   
|-
|-
|  
|  
<syntaxhighlight lang="delphi">
<syntaxhighlight lang="javascript">
procedure TfmMain.dxbb_ARPMClick(Sender: TObject);
<html>
var lMain, lKO, lBizApp, lBizObj, V : Variant;
<head>
begin
<title>Add Customer Invoice</title>
   lBizApp := CreateOleObject('SQLAcc.BizApp');
<script language="JScript">
   try
var ComServer;
    lBizObj := lBizApp.BizObjects.Find('AR_PM');
    lMain   := lBizObj.DataSets.Find('MainDataSet');
function CreateSQLAccServer() {
    lKO     := lBizObj.DataSets.Find('cdsKnockOff');
  ComServer = new ActiveXObject('SQLAcc.BizApp');
  if (!ComServer.IsLogin) {            /* check whether user has logon */
    ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
/* UserName, Password */
  }
}
function PostARCT() {
  var BizObject, lMain, lKO, V;
   CreateSQLAccServer();
   BizObject = ComServer.BizObjects.Find('AR_CT');
  lMain = BizObject.DataSets.Find('MainDataSet');
  lKO = BizObject.DataSets.Find('cdsKnockOff');
  BizObject.New();
  lMain.FindField('DocKey').value = -1;
  lMain.FindField('DocNo').value = "--CT Test--";
  lMain.FindField('DocDate').value = "01/10/2020";
  lMain.FindField('PostDate').value = "01/10/2020";
  lMain.FindField('Code').value = "300-A0002";
  lMain.FindField('Description').value = "Contra";
  lMain.FindField('DocAmt').value = "100.00";
  //lMain.FindField('UnappliedAmt').value = "0";


    lDocKey := lBizObj.FindKeyByRef('DocNo', '--PM Test--');
  v = ComServer.CreateOleVariantArray(2);
    lBizObj.Params.Find('DocKey').Value := VarToStr(lDocKey);
  v.SetItem(0, 'IV'); /*Knock Off DocType*/
  v.SetItem(1, 'IV-00021'); /*Knock Off DocNo*/


    If not VarIsNull(lDocKey) Then begin
  if (lKO.Locate('DocType;DocNo', v.AsOleVariant(), false, false)){
      lBizObj.Open;
          lKO.Edit();
      lBizObj.Edit;
          lKO.FindField('DocAmt').value = "100";  
      lMain.FindField('DOCKEY').Value          := -1;
          lKO.FindField('KnockOff').AsString = 'T';
      lMain.FindField('DocDate').Value          := '28 Aug 2016';
          lKO.Post(); }
      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);
  /* Save document */ 
      V.SetItem(0, 'IV'); //Document Type is either is IV or DN for Sales & PI or SD for Purchase
    BizObject.Save();
      V.SetItem(1, '--IV Test--'); //Document Number
    BizObject.Close();
    alert('Customer Contra - has been saved.');
}
 
function PostAPST() {
  var BizObject, lMain, lKO, V, lDocNo, lDocKey;
  CreateSQLAccServer();
  BizObject = ComServer.BizObjects.Find('AP_ST');
  lMain = BizObject.DataSets.Find('MainDataSet');
  lKO = BizObject.DataSets.Find('cdsKnockOff');
 
  lDocNo = "--CT Test--"
  lDocKey = BizObject.FindKeyByRef("DocNo", lDocNo)
  BizObject.Params.Find("DocKey").Value = lDocKey 
 
  if (lDocKey != null) {
    BizObject.Open();
BizObject.Edit();
lMain.FindField('Code').value = "400-C0001";
lMain.FindField('DocAmt').value = "100.00";
  //lMain.FindField('UnappliedAmt').value = "0";


      if lKO.Locate('DocType;DocNo', V.AsOleVariant, False, False) then
  v = ComServer.CreateOleVariantArray(2);
        begin
  v.SetItem(0, 'PI'); /*Knock Off DocType*/
           lKO.Edit;
  v.SetItem(1, 'PI-00001'); /*Knock Off DocNo*/
           lKO.FindField('KOAmt').AsFloat    := 700.28; // IV Knock Off/Offset Amount
 
           lKO.FindField('KnockOff').AsString := 'T';
    if (lKO.Locate('DocType;DocNo', v.AsOleVariant(), false, false)){
           lKO.Post;
           lKO.Edit();
        end;
           lKO.FindField('DocAmt').value = "100";  
           lKO.FindField('KnockOff').AsString = 'T';
           lKO.Post(); }


      lBizObj.Save;
  /* Save document */ 
      MessageDlg('AR_PM-DocNo : ''--PM Test--'' Updated...', mtInformation, [mbOK],0);
    BizObject.Save(); 
    end;
    BizObject.Close();
  finally
    alert('Supplier Contra - has been Updated.');
    lBizObj.Close;
  }
  end;
}
end;
</script>
</head>
<body>
<button onclick="javascript:PostARCT();">PostARCT</button>&nbsp;&nbsp;
<button onclick="javascript:PostAPST();">PostAPST</button>&nbsp;&nbsp;
</body>
</html>
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====ST_Item====
====Add Stock Item====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! ST_Item Script   
! Add ST_Item Script   
|-
|-
|  
|  
<syntaxhighlight lang="delphi">
<syntaxhighlight lang="javascript">
procedure TfmMain.dxbb_ST_ItemClick(Sender: TObject);
<html>
var lMain, lDtl, lBizObj, lBizApp : Variant;
<head>
    lTime : TDateTime;
<title>Add Stock Item</title>
begin
<script language="JScript">
  lTime := Now;
var ComServer;
  lBizApp := CreateOleObject('SQLAcc.BizApp');
  lBizObj := lBizApp.BizObjects.Find('ST_ITEM');
  lMain  := lBizObj.DataSets.Find('MainDataSet');
  lDtl    := lBizObj.DataSets.Find('cdsUOM');


   try
function CreateSQLAccServer() {
    lBizObj.New;
   ComServer = new ActiveXObject('SQLAcc.BizApp');
     lMain.FindField('Code').AsString        := 'Test-1';
  if (!ComServer.IsLogin) {            /* check whether user has logon */
    lMain.FindField('Description').AsString := 'Testing - Description';
     ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
/* UserName, Password */
  }
}


    lDtl.Edit; //For 1st UOM
function InsertData() {
    lDtl.FindField('UOM').AsString    := 'PCS';
  var BizObject, lMain, lDetail;
    lDtl.FindField('Rate').AsFloat    := 1;
 
    lDtl.FindField('RefCost').AsFloat  := 10.20;
  CreateSQLAccServer();
    lDtl.FindField('RefPrice').AsFloat := 25.00;
    lDtl.Post;


    lDtl.Append; //For 2nd UOM
  /*Step 2: Find and Create the Biz Objects*/
    lDtl.FindField('UOM').AsString    := 'CTN';
  BizObject = ComServer.BizObjects.Find('ST_ITEM') ;
    lDtl.FindField('Rate').AsFloat    := 12;
    lDtl.FindField('RefCost').AsFloat  := 102.00;
    lDtl.FindField('RefPrice').AsFloat := 240.00;
    lDtl.Post;
    lBizObj.Save;


    lTime := Now - lTime;
  /*Step 3: Set Dataset*/
    MessageDlg(Format('[Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]),
  lMain  = BizObject.DataSets.Find('MainDataSet');  /*lMain contains master data*/
              mtInformation, [mbOk], 0);
  lUOM = BizObject.DataSets.Find('cdsUOM'); /*lDetail contains detail data */ 
   finally
 
    lBizObj.Close;
  /*Begin Looping yr data*/
   end;
  /*Step 4 : Insert Data - Master*/
end;
  BizObject.New();
</syntaxhighlight>
  lMain.FindField('Code').AsString        = "Code JScript";
|}
  lMain.FindField('DESCRIPTION').AsString = "Post from JScript"
  lMain.FindField('STOCKGROUP').AsString    = "DEFAULT"; /*Optional*/
  lMain.FindField('STOCKCONTROL').AsString    = "T"; /*Optional*/
  lMain.FindField('ISACTIVE').AsString    = "T"; /*Optional*/
   
  /*Step 5: Insert Data - UOM*/
   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();


<div style="float: right;">   [[#top|[top]]]</div>
  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();


====ST_Item-Edit====
   /*Step 6: Save*/
{| class="mw-collapsible mw-collapsed wikitable"
   BizObject.Save();
! ST_Item Script 
   BizObject.Close();
|-
    alert('Item has been saved.');
|
}
<syntaxhighlight lang="delphi">
</script>
procedure TfmMain.dxbb_ST_ItemClick(Sender: TObject);
</head>
var lMain, lDtl, lBizObj, lBizApp, lDocKey, V : Variant;
<body>
begin
<input type="submit" value="SYNC" name="btnSubmit" onclick="InsertData()">
   lBizApp := CreateOleObject('SQLAcc.BizApp');
</body>
   lBizObj := lBizApp.BizObjects.Find('ST_ITEM');
</html>
   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;
</syntaxhighlight>
</syntaxhighlight>
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====SL_IV====
====Get Company Profile====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! SL_IV Script   
! Get Company Profile Script   
|-
|-
|  
|  
<syntaxhighlight lang="delphi">
<syntaxhighlight lang="javascript">
procedure TfmMain.dxbb_SL_IVClick(Sender: TObject);
<html>
var lMain, lDtl, lSN, lBizObj, lBizApp : Variant;
<head>
    lTime : TDateTime;
<title>Add Cash Sales</title>
begin
<script language="JScript">
  lTime := Now;
var ComServer, lDataSet;
   lBizApp := CreateOleObject('SQLAcc.BizApp');
 
   lBizObj := lBizApp.BizObjects.Find('SL_IV');
function CreateSQLAccServer() {
  lMain  := lBizObj.DataSets.Find('MainDataSet');
   ComServer = new ActiveXObject('SQLAcc.BizApp');
  lDtl    := lBizObj.DataSets.Find('cdsDocDetail');
   if (!ComServer.IsLogin) {            /* check whether user has logon */
   lSN    := lBizObj.DataSets.Find('cdsSerialNumber');
    ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
/* UserName, Password */
   }
}


  try
function zeroPad(num, places) {
    lBizObj.New;
  var zero = places - num.toString().length + 1;
    lMain.FindField('DOCKEY').Value        := -1;
  return Array(+(zero > 0 && zero)).join("0") + num;
    lMain.FindField('DocNo').AsString      := '--IV Test--';
  /*zeroPad(5, 2); // "05"*/
    lMain.FindField('CODE').AsString        := '300-A0001';
}
    lMain.FindField('DocDate').Value        := '28 Aug 2020';
    lMain.FindField('PostDate').Value      := '28 Aug 2020';
    lMain.FindField('TAXDATE').Value        := '28 Aug 2020';
    lMain.FindField('Description').AsString := 'Sales';
    lMain.FindField('Cancelled').AsString  := 'F';
    lMain.Post;


    lDtl.Append; // For Tax Inclusive = True with override Tax Amount
function GetData() {
    lDtl.FindField('DTLKEY').Value        := -1;
  var lSQL;
    lDtl.FindField('DOCKEY').Value        := -1;
  lSQL = "SELECT COMPANYNAME, REMARK, BRN, BRN2, GSTNO, ";
    lDtl.FindField('SEQ').Value            := 1;
  lSQL = lSQL + "SALESTAXNO, SERVICETAXNO, ";
    lDtl.FindField('ItemCode').AsString    := 'ITEM A';
  lSQL = lSQL + "ADDRESS1,ADDRESS2,ADDRESS3,ADDRESS4 FROM SY_PROFILE ";
    lDtl.FindField('ACCOUNT').AsString    := '500-000'; //GL Sales Account
   lDataSet = ComServer.DBManager.NewDataSet(lSQL);
    lDtl.FindField('DESCRIPTION').AsString := 'Sales Item A';
}
    lDtl.FindField('QTY').AsFloat          := 1;
    lDtl.FindField('TAX').AsString        := 'SV';
    lDtl.FindField('TAXINCLUSIVE').Value   := 0;
    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
function ShowCoProfile() {
    try
  var CoName, Rmk, BRN;
      lDtl.FindField('TAXINCLUSIVE').Value := 1;
 
    finally
  CreateSQLAccServer();
      lDtl.EnableControls;
  GetData();
    end;
    lDtl.Post;


    lDtl.Append; // For Tax Inclusive = False with override Tax Amount
  if (lDataSet.RecordCount > 0) { 
     lDtl.FindField('DTLKEY').Value        := -1;
     lDataSet.First;
     lDtl.FindField('DOCKEY').Value        := -1;
     CoName = lDataSet.FindField("COMPANYNAME").AsString;
    lDtl.FindField('SEQ').Value            := 2;
Rmk  = lDataSet.FindField("REMARK").AsString;
    lDtl.FindField('ItemCode').AsString   := 'ITEM B';
BRN = lDataSet.FindField("BRN").Value;
    lDtl.FindField('ACCOUNT').AsString    := '500-000';
     alert(CoName);
     lDtl.FindField('DESCRIPTION').AsString := 'Sales Item B';
alert(Rmk);
    lDtl.FindField('QTY').AsFloat          := 1;
alert(BRN);
    lDtl.FindField('TAX').AsString        := 'SV';
   }
    lDtl.FindField('TAXINCLUSIVE').Value   := 0;
}
    lDtl.FindField('UNITPRICE').AsFloat    := 94.43;
</script>
    lDtl.FindField('AMOUNT').AsFloat      := 94.43;
</head>
    lDtl.FindField('TAXAMT').AsFloat      := 5.66; //Less 0.01
<body>
    lDtl.Post;
<input type="submit" value="Show Co Profile" name="btnSubmit" onclick="ShowCoProfile()">
</body>
</html>
</syntaxhighlight>
|}
<div style="float: right;">  [[#top|[top]]]</div>
<br />


     lDtl.Append; // For Serial Number
===Delphi===
     lDtl.FindField('DTLKEY').Value         := -1;
The below example is assuming after you had check the login status.
     lDtl.FindField('DOCKEY').Value         := -1;
====GL_JE====
     lDtl.FindField('SEQ').Value           := 3;
{| class="mw-collapsible mw-collapsed wikitable"
     lDtl.FindField('ItemCode').AsString    := 'SN1';
! GL_JE Script 
     lDtl.FindField('ACCOUNT').AsString    := '500-000';
|-
     lDtl.FindField('DESCRIPTION').AsString := 'Sales Serial Number Item';
|
 
<syntaxhighlight lang="delphi">
    lSN.Append;
procedure TfmMain.dxbb_GL_JEClick(Sender: TObject);
     lSN.FindField('SERIALNUMBER').AsString := 'SN-00001';
var BizApp, lMain, lDtl, lBizObj, lDocKey : Variant;
     lSN.Post;
    i : integer;
 
begin
     lSN.Append;
  BizApp := CreateOleObject('SQLAcc.BizApp');
     lSN.FindField('SERIALNUMBER').AsString  := 'SN-00002';
  try
     lSN.Post;
    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;


     lDtl.FindField('QTY').AsFloat        := 2;
    //For Tax Exclusive
     lDtl.FindField('TAX').AsString      := 'SR';
    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('TAXINCLUSIVE').Value := 0;
     lDtl.FindField('UNITPRICE').AsFloat  := 94.43;
     lDtl.FindField('LocalCR').AsFloat   := 100;
     lDtl.FindField('TAXAMT').AsFloat    := 11.33;
    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;
     lDtl.Post;


     lBizObj.Save;
     lBizObj.Save;
 
     MessageDlg('GL_JE-DocNo : ''--JE Test--'' Posted...', mtInformation, [mbOK],0);
    lTime := Now - lTime;
     MessageDlg(Format('[Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]),
              mtInformation, [mbOk], 0);
   finally
   finally
     lBizObj.Close;
     lBizObj.Close;
    lMain := null;
   end;
    lDtl := null;
    lSN := null;
    lBizObj := null;
    lBizApp := null;
   end;
end;
end;
</syntaxhighlight>
</syntaxhighlight>
Line 10,855: Line 11,545:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Customer.IV.RO====
====GL_PV====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Customer.IV.RO Report Object Script   
! GL_PV Script   
|-
|-
|  
|  
<syntaxhighlight lang="delphi">
<syntaxhighlight lang="delphi">
procedure TfmMain.dxbb_RptObjClick(Sender: TObject);
procedure TfmMain.dxbb_GLPVClick(Sender: TObject);
var lBizApp, lRptVar : Variant;
var lMain, lDtl, lBizObj, BizApp : Variant;
     lTime : TDateTime;
     lTime : TDateTime;
    cdsMain, cdsDtl : TClientDataset;
begin
begin
   lTime := Now;
   lTime := Now;
   cdsMain := TClientDataset.Create(nil);
   BizApp := CreateOleObject('SQLAcc.BizApp');
  cdsDtl  := TClientDataset.Create(nil);
  lBizApp := CreateOleObject('SQLAcc.BizApp');
   try
   try
     lRptVar := null;
     lBizObj := BizApp.BizObjects.Find('GL_PV');
    lRptVar := lBizApp.RptObjects.Find('Customer.IV.RO');
     lMain  := lBizObj.DataSets.Find('MainDataSet');
     lRptVar.Params.Find('SelectDate').AsBoolean          := True;
     lDtl    := lBizObj.DataSets.Find('cdsDocDetail');
     lRptVar.Params.Find('DateFrom').AsDate                := '01/01/2015';
     lBizObj.New;
     lRptVar.Params.Find('DateTo').AsDate                  := '31/12/2015';
     lMain.FindField('DOCKEY').Value          := -1;
     lRptVar.Params.Find('AllAgent').AsBoolean            := False;
     lMain.FindField('DocNo').AsString        := '--CB PV Test1--';
     lRptVar.Params.Find('AgentData').AsBlob              := '----'#13#10'HALIM'; //Filter by Agent code ---- & HALIM
     lMain.FindField('DocDate').Value          := '18 Aug 2015';
     lRptVar.Params.Find('AllArea').AsBoolean              := True;
     lMain.FindField('PostDate').Value        := '18 Aug 2015';
//    lRptVar.Params.Find('AreaData').AsBlob                := ; //Not use if AllArea is True
     lMain.FindField('TAXDATE').Value         := '18 Aug 2015';
     lRptVar.Params.Find('AllCompany').AsBoolean          := True;
     lMain.FindField('Description').AsString  := 'Compacc System';
//    lRptVar.Params.Find('CompanyData').AsBlob            := ; //Not use if AllCompany is True
     lMain.FindField('PAYMENTMETHOD').AsString := '310-001';
     lRptVar.Params.Find('AllCurrency').AsBoolean         := True;
     lMain.FindField('CHEQUENUMBER').AsString  := 'MBB 213245';
//    lRptVar.Params.Find('CurrencyData').AsBlob            := ; //Not use if AllCurrenty is True
     lMain.FindField('DocAmt').AsFloat        := 2019;
     lRptVar.Params.Find('AllDocProject').AsBoolean        := True;
     lMain.FindField('Cancelled').AsString     := 'F';
//    lRptVar.Params.Find('DocProjectData').AsBlob          := ; //Not use if AllDocProject is True
     lMain.FindField('CHANGED').AsString      := 'F';
     lRptVar.Params.Find('AllCompanyCategory').AsBoolean  := True;
     lMain.Post;
//    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


    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;
     lTime := Now - lTime;
     MessageDlg(Format('[Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]),
     MessageDlg(Format('[Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]),
               mtInformation, [mbOk], 0);
               mtInformation, [mbOk], 0);
   finally
   finally
     lRptVar := null;
     lBizObj.Close;
    cdsMain.Free;
    cdsDtl.Free;
   end;
   end;
end;
end;
Line 10,916: Line 11,599:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Stock.Item.RO====
====AR_Customer====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Stock.Item.RO Report Object Script   
! AR_Customer Script   
|-
|-
|  
|  
<syntaxhighlight lang="delphi">
<syntaxhighlight lang="delphi">
procedure TfmMain.dxbb_ST_ITEM_ROClick(Sender: TObject);
procedure TfmMain.dxbb_CustomerClick(Sender: TObject);
var lBizApp, lRptVar : Variant;
var lMain, lDtl, lBizObj, lBizApp, lDockey : Variant;
     lTime : TDateTime;
     lTime : TDateTime;
    cdsMain, cdsDtl, cdsCat : TClientDataset;
    lSQL : string;
begin
begin
   lTime   := Now;
   lTime := Now;
  cdsMain  := TClientDataset.Create(nil);
  cdsDtl  := TClientDataset.Create(nil);
  cdsCat  := TClientDataset.Create(nil);
 
   lBizApp := CreateOleObject('SQLAcc.BizApp');
   lBizApp := CreateOleObject('SQLAcc.BizApp');


   lSQL := 'SELECT * FROM ST_ITEM_CATEGORY ' +
   lBizObj := lBizApp.BizObjects.Find('AR_Customer');
          'WHERE Category IN (''B-MOTOLORA'',''B-MAXIS'')';
  lMain  := lBizObj.DataSets.Find('MainDataSet');
   cdsCat.Data := lBizApp.DBManager.Execute(lSQL); //For filtering Category only
   lDtl    := lBizObj.DataSets.Find('cdsBranch');


  lDocKey := lBizObj.FindKeyByRef('CODE', 'FAIRY');
   try
   try
     lRptVar := null;
     if VarIsNull(lDocKey) then begin
    lRptVar := lBizApp.RptObjects.Find('Stock.Item.RO');
      lBizObj.New;
    lRptVar.Params.Find('AllItem').AsBoolean              := True;
      lMain.FindField('Code').value       := 'FAIRY';
    lRptVar.Params.Find('AllStockGroup').AsBoolean        := True;
       lMain.FindField('CompanyName').value := 'FAIRY TAIL';
    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
      lDtl.Edit; //For 1st Branch
    cdsDtl.XMLData := lRptVar.DataSets.Find('cdsUOM').XMLData; //Detail Data - To link Master Data use Code field
      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;


     cdsMain.SaveToFile('C:\Temp\_ListM.xml'); //Export To XML file
      lDtl.Append; //For 2nd Branch
     cdsDtl.SaveToFile('C:\Temp\_ListD.xml'); //Export To XML file
      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;
     lTime := Now - lTime;
Line 10,983: Line 11,690:
               mtInformation, [mbOk], 0);
               mtInformation, [mbOk], 0);
   finally
   finally
     lRptVar := null;
     lBizObj.Close;
    cdsMain.Free;
     lBizApp := null;
     cdsDtl.Free;
    cdsCat.Free;
   end;
   end;
end;
end;
Line 10,994: Line 11,699:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Customer.Statement.RO====
====AR_PM====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Customer.Statement.RO Report Object Script   
! AR_PM Script   
|-
|-
|  
|  
<syntaxhighlight lang="delphi">
<syntaxhighlight lang="delphi">
procedure TfmMain.dxbb_StatementClick(Sender: TObject);
procedure TfmMain.dxbb_ARPMClick(Sender: TObject);
var lBizApp, lRptVar : Variant;
var lMain, lKO, lBizApp, lBizObj, V : Variant;
    lTime : TDateTime;
    cdsMain, cdsDtl : TClientDataset;
    s : string;
begin
begin
  lTime := Now;
  cdsMain := TClientDataset.Create(nil);
  cdsDtl  := TClientDataset.Create(nil);
   lBizApp := CreateOleObject('SQLAcc.BizApp');
   lBizApp := CreateOleObject('SQLAcc.BizApp');
  s := '<?xml version="1.0" standalone="yes"?>  <DATAPACKET Version="2.0"><METADATA><FIELDS>'+
      '<FIELD attrname="ColumnNo" fieldtype="i4" required="true"/><FIELD attrname="ColumnType" fieldtype="string" WIDTH="1"/>'+
      '<FIELD attrname="Param1" fieldtype="i4" required="true"/><FIELD attrname="Param2" fieldtype="i4" required="true"/>'+
      '<FIELD attrname="IsLocal" fieldtype="boolean"/><FIELD attrname="HeaderScript" fieldtype="bin.hex" SUBTYPE="Text" WIDTH="1"/>'+
      '</FIELDS><PARAMS/></METADATA><ROWDATA><ROW ColumnNo="0" ColumnType="" Param1="0" Param2="0" IsLocal="FALSE"/>'+
      '<ROW ColumnNo="1" ColumnType="A" Param1="0" Param2="0" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;Current Mth&apos;&#013;end;"/>'+
      '<ROW ColumnNo="2" ColumnType="A" Param1="-1" Param2="-1" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;1 Months&apos;&#013;end;"/>'+
      '<ROW ColumnNo="3" ColumnType="A" Param1="-2" Param2="-2" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;2 Months&apos;&#013;end;"/>'+
      '<ROW ColumnNo="4" ColumnType="A" Param1="-3" Param2="-3" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;3 Months&apos;&#013;end;"/>'+
      '<ROW ColumnNo="5" ColumnType="A" Param1="-4" Param2="-4" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;4 Months&apos;&#013;end;"/>'+
      '<ROW ColumnNo="6" ColumnType="B" Param1="-999999" Param2="-5" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;5 Month &amp; above&apos;&#013;end;"/>'+
      '</ROWDATA></DATAPACKET>';
   try
   try
     lRptVar := null;
     lBizObj := lBizApp.BizObjects.Find('AR_PM');
    lRptVar := lBizApp.RptObjects.Find('Customer.Statement.RO');
     lMain  := lBizObj.DataSets.Find('MainDataSet');
//  lRptVar.Params.Find('AgentData').AsBlob              := ; //Not use if AllAgent is True
     lKO     := lBizObj.DataSets.Find('cdsKnockOff');
     lRptVar.Params.Find('AgingData').AsString          := s; //Fixed
 
    lRptVar.Params.Find('AgingOn').AsString            := 'I'; //Fixed
     lBizObj.New;
     lRptVar.Params.Find('AllAgent').AsBoolean          := True;
     lMain.FindField('DOCKEY').Value          := -1;
     lRptVar.Params.Find('AllArea').AsBoolean            := True;
     lMain.FindField('DocNo').AsString        := '--PM Test--'; //Payment Document Number
    lRptVar.Params.Find('AllCompany').AsBoolean        := False;
     lMain.FindField('CODE').AsString          := '300-A0001';
    lRptVar.Params.Find('AllCompanyCategory').AsBoolean := True;
    lMain.FindField('DocDate').Value         := '28 Aug 2016';
     lRptVar.Params.Find('AllControlAccount').AsBoolean  := True;
     lMain.FindField('PostDate').Value        := '28 Aug 2016';
     lRptVar.Params.Find('AllCurrency').AsBoolean        := True;
     lMain.FindField('Description').AsString  := 'Payment for A/c';
     lRptVar.Params.Find('AllDocProject').AsBoolean      := True;
     lMain.FindField('PaymentMethod').AsString := '320-000';
//    lRptVar.Params.Find('AreaData').AsBlob              := ; //Not use if AllArea is True
     lMain.FindField('DocAmt').AsFloat         := 1060;
//    lRptVar.Params.Find('CompanyCategoryData').AsBlob  := ; //Not use if AllCompanyCategory is True
     lMain.FindField('Cancelled').AsString     := 'F';
     lRptVar.Params.Find('CompanyData').AsBlob          := '300-A0001'#13#10'300-C0001'; //Filter by Customer Code 300-A0001 & 300-C0001
//    lRptVar.Params.Find('ControlAccountData').AsBlob    := ; //Not use if AllControlAccount is True
//    lRptVar.Params.Find('CurrencyData').AsBlob         := ; //Not use if AllCurrency is True
    lRptVar.Params.Find('DateFrom').AsDate              := '01 Aug 2016';
     lRptVar.Params.Find('DateTo').AsDate                := '31 Aug 2016';
//    lRptVar.Params.Find('DocProjectData').AsBlob        := ; //Not use if AllDocProject is True
     lRptVar.Params.Find('IncludeZeroBalance').AsBoolean := False;
    lRptVar.Params.Find('SelectDate').AsBoolean        := True;
     lRptVar.Params.Find('SortBy').AsString             := 'CompanyCategory;Code;CompanyName;Agent;Area;CurrencyCode;ControlAccount';
     lRptVar.Params.Find('StatementDate').AsDate         := '31 Aug 2016'; // Norm same as DateTo
     lRptVar.Params.Find('StatementType').AsString       := 'O'; //O := Open Item, B := B/F


     lRptVar.CalculateReport;
     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


     cdsMain.XMLData := lRptVar.DataSets.Find('cdsMain').XMLData;      //Master Data
     if lKO.Locate('DocType;DocNo', V.AsOleVariant, False, False) then
     cdsDtl.XMLData  := lRptVar.DataSets.Find('cdsDocument').XMLData; //Detail Data - To link Master Data use Code field
      begin
        lKO.Edit;
        lKO.FindField('KOAmt').ASFloat     := 500;
        lKO.FindField('KnockOff').AsString := 'T';
        lKO.Post;
      end;


     cdsMain.SaveToFile('C:\Temp\_ListM.xml'); //Export To XML file
     lBizObj.Save;
     cdsDtl.SaveToFile('C:\Temp\_ListD.xml');  //Export To XML file
     MessageDlg('AR_PM-DocNo : ''--PM Test--'' Posted...', mtInformation, [mbOK],0);
 
    lTime := Now - lTime;
    MessageDlg(Format('[Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]),
              mtInformation, [mbOk], 0);
   finally
   finally
     lRptVar := null;
     lBizObj.Close;
    cdsMain.Free;
    cdsDtl.Free;
   end;
   end;
end;
end;
Line 11,071: Line 11,748:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====GL Account List For Sales & Purchase 1====
====AR_PM-Edit====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! GL_Acc Object Script   
! AR_PM Script   
|-
|-
|  
|  
<syntaxhighlight lang="delphi">
<syntaxhighlight lang="delphi">
procedure TfmMain.dxbb_GLAccClick(Sender: TObject);
procedure TfmMain.dxbb_ARPMClick(Sender: TObject);
var BizApp : Variant;
var lMain, lKO, lBizApp, lBizObj, V : Variant;
    lDataSet : TClientDataSet;
    ASQL : String;
begin
begin
   //For Debtor List => SpecialAccType = DR
   lBizApp := CreateOleObject('SQLAcc.BizApp');
  //For Creditor List => SpecialAccType = CR
  BizApp := CreateOleObject('SQLAcc.BizApp');
  lDataSet := TClientDataSet.Create(Self);
   try
   try
    ASQL := 'SELECT A.Code, A.Description FROM GL_ACC A '+
    lBizObj := lBizApp.BizObjects.Find('AR_PM');
            'LEFT OUTER JOIN GL_ACC B ON (A.Dockey=B.Parent) '+
    lMain  := lBizObj.DataSets.Find('MainDataSet');
            'WHERE A.Parent<>-1 ' +
    lKO    := lBizObj.DataSets.Find('cdsKnockOff');
            'AND B.Dockey IS NULL ' +
 
            'AND A.SpecialAccType = '''' '+
    lDocKey := lBizObj.FindKeyByRef('DocNo', '--PM Test--');
            'ORDER BY A.CODE ';
    lBizObj.Params.Find('DocKey').Value := VarToStr(lDocKey);
    lDataSet.Data := BizApp.DBManager.Execute(ASQL);
 
    lDataset.SaveToFile('C:\Temp\_List.xml', dfXML); //Export To XML file
    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
   finally
     lDataSet.Free;
     lBizObj.Close;
   end;
   end;
end;
end;
Line 11,104: Line 11,803:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====GL Account List For Sales & Purchase 2====
====ST_Item====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! GL_Acc Object Script   
! ST_Item Script   
|-
|-
|  
|  
<syntaxhighlight lang="delphi">
<syntaxhighlight lang="delphi">
procedure TfmMain.dxbb_GLAccClick(Sender: TObject);
procedure TfmMain.dxbb_ST_ItemClick(Sender: TObject);
var BizApp, BizObj : Variant;
var lMain, lDtl, lBar, lBizObj, lDockey: Variant;
     lDataSet1, lDataSet2 : TClientDataSet;
     lTime : TDateTime;
    ASQL : String;
begin
begin
   //For Debtor List => SpecialAccType = DR
   lTime := Now;
   //For Creditor List => SpecialAccType = CR
  lBizApp := CreateOleObject('SQLAcc.BizApp');
   BizApp := CreateOleObject('SQLAcc.BizApp');
   lBizObj := lBizApp.BizObjects.Find('ST_ITEM');
   BizObj := BizApp.BizObjects.Find('GL_Acc');
  lMain  := lBizObj.DataSets.Find('MainDataSet');
   lDtl    := lBizObj.DataSets.Find('cdsUOM');
   lBar    := lBizObj.DataSets.Find('cdsBarcode');


   lDataSet1 := TClientDataSet.Create(Self);
   lDocKey := lBizObj.FindKeyByRef('Code', 'FAIRY');
  lDataSet2 := TClientDataSet.Create(Self);
   try
   try
     ASQL :='Parent<>-1 ' +
     if VarIsNull(lDocKey) then begin
          'AND (SpecialAccType IS NULL OR SpecialAccType = '''' ' +
      lBizObj.New;
          'OR SpecialAccType = '''') ';
      lMain.FindField('CODE').value := 'FAIRY';
    lDataSet1.XMLData:= BizObj.Select('Dockey,Code,Description', ASQL, 'Code', 'SX', '', '');
      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;


    lDataSet2.XMLData:= BizObj.Select('Parent', '', 'Code', 'SX', '', '');
      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';


    lDataset2.First; // Remove Parent Account
      while lDtl.RecordCount > 0 do begin
     while not lDataset2.Eof do begin
        lDtl.First;
       if lDataset1.Locate('Dockey', lDataSet2.FindField('Parent').AsString, []) then
        lDtl.Delete;
        lDataset1.Delete;
      end;
       lDataset2.Next;
      //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;
     end;
     lDataset1.MergeChangeLog;
     lBizObj.Save;
     lDataset1.SaveToFile('C:\Temp\_List.xml', dfXML); //Export To XML file
 
    lTime := Now - lTime;
     MessageDlg(Format('[Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]),
              mtInformation, [mbOk], 0);
   finally
   finally
     lDataSet1.Free;
     lBizObj.Close;
     lDataSet2.Free;
     lMain := null;
    lDtl := null;
    lBar := null;
    lBizObj := null;
    lBizApp := null;
   end;
   end;
end;
end;
Line 11,148: Line 11,914:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Customer.Aging.RO====
====ST_Item-Edit====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Customer Aging Report Object Script   
! ST_Item Script   
|-
|-
|  
|  
<syntaxhighlight lang="delphi">
<syntaxhighlight lang="delphi">
procedure TfmMain.dxbb_AgingClick(Sender: TObject);
procedure TfmMain.dxbb_ST_ItemClick(Sender: TObject);
var lBizApp, lRptVar : Variant;
var lMain, lDtl, lBizObj, lBizApp, lDocKey, V : Variant;
    lTime : TDateTime;
    cdsMain, cdsDtl : TClientDataset;
    s : string;
begin
begin
  lTime := Now;
  cdsMain := TClientDataset.Create(nil);
  cdsDtl  := TClientDataset.Create(nil);
   lBizApp := CreateOleObject('SQLAcc.BizApp');
   lBizApp := CreateOleObject('SQLAcc.BizApp');
  lBizObj := lBizApp.BizObjects.Find('ST_ITEM');
  lMain  := lBizObj.DataSets.Find('MainDataSet');
  lDtl    := lBizObj.DataSets.Find('cdsUOM');


   s := '<?xml version="1.0" standalone="yes"?>  <DATAPACKET Version="2.0"><METADATA><FIELDS>'+
   lDocKey := lBizObj.FindKeyByRef('Code', '--Stock Item Test--');
      '<FIELD attrname="ColumnNo" fieldtype="i4" required="true"/><FIELD attrname="ColumnType" fieldtype="string" WIDTH="1"/>'+
  lBizObj.Params.Find('DocKey').Value := VarToStr(lDocKey);
      '<FIELD attrname="Param1" fieldtype="i4" required="true"/><FIELD attrname="Param2" fieldtype="i4" required="true"/>'+
      '<FIELD attrname="IsLocal" fieldtype="boolean"/><FIELD attrname="HeaderScript" fieldtype="bin.hex" SUBTYPE="Text" WIDTH="1"/>'+
      '</FIELDS><PARAMS/></METADATA><ROWDATA><ROW ColumnNo="0" ColumnType="" Param1="0" Param2="0" IsLocal="FALSE"/>'+
      '<ROW ColumnNo="1" ColumnType="A" Param1="0" Param2="0" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;Current Mth&apos;&#013;end;"/>'+
      '<ROW ColumnNo="2" ColumnType="A" Param1="-1" Param2="-1" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;1 Months&apos;&#013;end;"/>'+
      '<ROW ColumnNo="3" ColumnType="A" Param1="-2" Param2="-2" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;2 Months&apos;&#013;end;"/>'+
      '<ROW ColumnNo="4" ColumnType="A" Param1="-3" Param2="-3" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;3 Months&apos;&#013;end;"/>'+
      '<ROW ColumnNo="5" ColumnType="A" Param1="-4" Param2="-4" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;4 Months&apos;&#013;end;"/>'+
      '<ROW ColumnNo="6" ColumnType="B" Param1="-999999" Param2="-5" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;5 Month &amp; above&apos;&#013;end;"/>'+
      '</ROWDATA></DATAPACKET>';
   try
   try
    lRptVar := null;
    lRptVar := lBizApp.RptObjects.Find('Customer.Aging.RO');
    lRptVar.Params.Find('ActualGroupBy').AsString      := 'Code;CompanyName'; //Fixed
//    lRptVar.Params.Find('AgentData').AsBlob              := ; //Not use if AllAgent is True
    lRptVar.Params.Find('AgingData').AsString          := s;
    lRptVar.Params.Find('AgingDate').AsDate            := '31 Aug 2016';
    lRptVar.Params.Find('AgingOn').AsString            := 'I'; //Fixed
    lRptVar.Params.Find('AllAgent').AsBoolean          := True;
    lRptVar.Params.Find('AllArea').AsBoolean            := True;
    lRptVar.Params.Find('AllCompany').AsBoolean        := True;
    lRptVar.Params.Find('AllCompanyCategory').AsBoolean := True;
    lRptVar.Params.Find('AllControlAccount').AsBoolean  := True;
    lRptVar.Params.Find('AllCurrency').AsBoolean        := True;
    lRptVar.Params.Find('AllDocProject').AsBoolean      := True;
//    lRptVar.Params.Find('AreaData').AsBlob            := ; //Not use if AllArea is True
//    lRptVar.Params.Find('CompanyCategoryData').AsBlob := ; //Not use if AllCompanyCategory is True
//    lRptVar.Params.Find('CompanyData').AsBlob        := ; //Not use if AllCompany is True
//    lRptVar.Params.Find('ControlAccountData').AsBlob  := ; //Not use if AllControlAccount is True
//    lRptVar.Params.Find('CurrencyData').AsBlob        := ; //Not use if AllCurrency is True
//    lRptVar.Params.Find('DocProjectData').AsBlob      := ; //Not use if AllDocProject is True
    lRptVar.Params.Find('FilterPostDate').AsBoolean      := True;
//    lRptVar.Params.Find('GroupBy
    lRptVar.Params.Find('IncludePDC').AsBoolean        := False;
    lRptVar.Params.Find('IncludeZeroBalance').AsBoolean := False;
    lRptVar.Params.Find('SortBy').AsString              := 'Code;CompanyName';
    lRptVar.Params.Find('DateTo').AsDate                := '31 Aug 2016';
    lRptVar.Params.Find('IncludeKnockedOffDetail').AsBoolean := False;


     lRptVar.CalculateReport;
     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;


    cdsMain.XMLData := lRptVar.DataSets.Find('cdsMain').XMLData;      //Master Data
      MessageDlg('ST_Item-ItemCode : ''--Stock Item Test--'' Updated...', mtInformation, [mbOK],0);
    cdsDtl.XMLData  := lRptVar.DataSets.Find('cdsDocument').XMLData; //Detail Data - To link Master Data use Code field
    end;
 
    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
   finally
     lRptVar := null;
     lBizObj.Close;
    cdsMain.Free;
    cdsDtl.Free;
   end;
   end;
end;
end;
Line 11,228: Line 11,961:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====GL.CB.RO====
====SL_IV====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! GL Cash Book Report Object Script   
! SL_IV Script   
|-
|-
|  
|  
<syntaxhighlight lang="delphi">
<syntaxhighlight lang="delphi">
procedure TfmMain.dxBB_CBClick(Sender: TObject);
procedure TfmMain.dxbb_SL_IVClick(Sender: TObject);
var lBizApp, lRptVar : Variant;
var lMain, lDtl, lSN, lBizObj, lBizApp, lDockey, V: Variant;
     lTime : TDateTime;
     lTime : TDateTime;
    cdsMain, cdsDtl, cdsTax : TClientDataset;
begin
begin
   lTime := Now;
   lTime := Now;
  cdsMain := TClientDataset.Create(nil);
  cdsDtl  := TClientDataset.Create(nil);
  cdsTax  := TClientDataset.Create(nil);
   lBizApp := CreateOleObject('SQLAcc.BizApp');
   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
   try
     lRptVar := null;
     if VarIsNull(lDocKey) then begin
    lRptVar := lBizApp.RptObjects.Find('GL.CB.RO');
      lBizObj.New;
     lRptVar.Params.Find('AllCurrency').AsBoolean         := True;
      lMain.FindField('DocNo').AsString      := '--IV Test--';
    lRptVar.Params.Find('AllDocProject').AsBoolean       := True;
      lMain.FindField('CODE').AsString        := '300-A0001';
    lRptVar.Params.Find('AllDocument').AsBoolean          := True;
      lMain.FindField('DocDate').Value        := '28 Aug 2024';
    lRptVar.Params.Find('AllItemProject').AsBoolean       := True;
      lMain.FindField('PostDate').Value      := '28 Aug 2024';
    lRptVar.Params.Find('AllItemArea').AsBoolean          := True;
      lMain.FindField('TAXDATE').Value        := '28 Aug 2024';
    lRptVar.Params.Find('AllItemAgent').AsBoolean        := True;
      lMain.FindField('Description').AsString := 'Sales'; //Information to shown in Statement
     lRptVar.Params.Find('AllDocAgent').AsBoolean         := True;
      lMain.FindField('Cancelled').AsString  := 'F';
    lRptVar.Params.Find('AllDocArea').AsBoolean          := True;
      lMain.Post;
    lRptVar.Params.Find('AllPaymentMethod').AsBoolean    := False;
 
//    lRptVar.Params.Find('CurrencyData').AsBlob            := 'Not use if AllCurrency is true
      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';


//  For Post Date From & Date To'
      lSN.Append;
    lRptVar.Params.Find('DateFrom').AsDate                := '01/01/2017';
      lSN.FindField('SERIALNUMBER').AsString  := 'SN-00001';
    lRptVar.Params.Find('DateTo').AsDate                  := '31/12/2017';
      lSN.Post;


//    lRptVar.Params.Find('DocProjectData').AsBlob          := //'Not use if AllDocProject is true
      lSN.Append;
//    lRptVar.Params.Find('DocAreaData').AsBlob            := //Not use if AllDocArea is true
      lSN.FindField('SERIALNUMBER').AsString := 'SN-00002';
//    lRptVar.Params.Find('DocAgentData').AsBlob            := //Not use if AllDocAgent is true
       lSN.Post;
//    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;
      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';


    cdsMain.XMLData := lRptVar.DataSets.Find('cdsMain').XMLData;     //Master Data
      while lDtl.RecordCount > 0 do begin
    cdsDtl.XMLData  := lRptVar.DataSets.Find('cdsDetail').XMLData; //Detail Data - To link Master Data use Dockey field
        lDtl.First;
    cdsTax.XMLData  := lRptVar.DataSets.Find('cdsTax').XMLData; //Tax List
        lDtl.Delete;
      end;


    cdsMain.SaveToFile('C:\Temp\_ListM.xml'); //Export To XML file
      lDtl.Append;
    cdsDtl.SaveToFile('C:\Temp\_ListD.xml'); //Export To XML file
      lDtl.FindField('SEQ').Value            := 1;
    cdsTax.SaveToFile('C:\Temp\_ListT.xml'); //Export To XML file
      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;
     lTime := Now - lTime;
Line 11,292: Line 12,083:
               mtInformation, [mbOk], 0);
               mtInformation, [mbOk], 0);
   finally
   finally
     lRptVar := null;
     lBizObj.Close;
     cdsMain.Free;
    lMain := null;
     cdsDtl.Free;
    lDtl := null;
    lSN := null;
     lBizObj := null;
     lBizApp := null;
   end;
   end;
end;
end;
Line 11,302: Line 12,096:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====AR_DP====
====Customer.IV.RO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Customer Deposit Script   
! Customer.IV.RO Report Object Script   
|-
|-
|  
|  
<syntaxhighlight lang="delphi">
<syntaxhighlight lang="delphi">
procedure TForm1.Button1Click(Sender: TObject);
procedure TfmMain.dxbb_RptObjClick(Sender: TObject);
var lMain, lBizObj, lBizApp : Variant;
var lBizApp, lRptVar : Variant;
    lTime : TDateTime;
    cdsMain, cdsDtl : TClientDataset;
begin
begin
  lTime := Now;
  cdsMain := TClientDataset.Create(nil);
  cdsDtl  := TClientDataset.Create(nil);
   lBizApp := CreateOleObject('SQLAcc.BizApp');
   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
   try
     lBizObj.New;
     lRptVar := null;
     lMain.FindField('DOCKEY').Value        := -1;
    lRptVar := lBizApp.RptObjects.Find('Customer.IV.RO');
     lMain.FindField('DocNo').AsString      := '--DP Test--';
     lRptVar.Params.Find('SelectDate').AsBoolean          := True;
     lMain.FindField('CODE').AsString        := '300-C0001';
    lRptVar.Params.Find('DateFrom').AsDate                := '01/01/2015';
     lMain.FindField('DocDate').Value        := '28 Oct 2019';
     lRptVar.Params.Find('DateTo').AsDate                  := '31/12/2015';
     lMain.FindField('PostDate').Value      := '28 Oct 2019';
    lRptVar.Params.Find('AllAgent').AsBoolean            := False;
     lMain.FindField('TAXDATE').Value        := '28 Oct 2019';
     lRptVar.Params.Find('AgentData').AsBlob              := '----'#13#10'HALIM'; //Filter by Agent code ---- & HALIM
     lMain.FindField('DEPOSITACCOUNT').AsString := 'PREPAYMENT';
     lRptVar.Params.Find('AllArea').AsBoolean              := True;
     lMain.FindField('PaymentMethod').AsString  := '320-000'; //Bank or Cash account
//    lRptVar.Params.Find('AreaData').AsBlob                := ; //Not use if AllArea is True
     lMain.FindField('Description').AsString    := 'Deposit For Account';
     lRptVar.Params.Find('AllCompany').AsBoolean          := True;
     lMain.FindField('ChequeNumber').AsString   := '';
//    lRptVar.Params.Find('CompanyData').AsBlob            := ; //Not use if AllCompany is True
     lMain.FindField('BankCharge').AsFloat      := 0;
     lRptVar.Params.Find('AllCurrency').AsBoolean          := True;
     lMain.FindField('DocAmt').AsFloat          := 1000.00;
//    lRptVar.Params.Find('CurrencyData').AsBlob            := ; //Not use if AllCurrenty is True
     lMain.FindField('Cancelled').AsString     := 'F';
     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


     try
     lTime := Now - lTime;
      lBizObj.Save;
     MessageDlg(Format('[Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]),
     except
              mtInformation, [mbOk], 0);
      on E: Exception do
        Memo1.Lines.Append(E.Message);
    end;
    lBizObj.Close;
    Memo1.Lines.Append('Done');
//    MessageDlg('Done', mtInformation, [mbOk], 0);
   finally
   finally
     lMain := Null;
     lRptVar := null;
     lBizObj := Null;
     cdsMain.Free;
     lBizApp.Logout;
     cdsDtl.Free;
    lBizApp := Null;
   end;
   end;
end;
end;
Line 11,354: Line 12,157:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====Customer Deposit to Customer Payment====
====Stock.Item.RO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Customer Deposit to Customer Payment Script   
! Stock.Item.RO Report Object Script   
|-
|-
|  
|  
<syntaxhighlight lang="delphi">
<syntaxhighlight lang="delphi">
procedure TForm1.Button2Click(Sender: TObject);
procedure TfmMain.dxbb_ST_ITEM_ROClick(Sender: TObject);
var lMain, lKO, lBizApp, lBizObj, V : Variant;
var lBizApp, lRptVar : Variant;
     cdsTmp : TClientDataset;
     lTime : TDateTime;
     lSQL : String;
    cdsMain, cdsDtl, cdsCat : TClientDataset;
     lSQL : string;
begin
begin
   cdsTmp := TClientDataset.Create(nil);
   lTime    := Now;
  cdsMain := TClientDataset.Create(nil);
  cdsDtl  := TClientDataset.Create(nil);
  cdsCat  := TClientDataset.Create(nil);
 
   lBizApp := CreateOleObject('SQLAcc.BizApp');
   lBizApp := CreateOleObject('SQLAcc.BizApp');
   lBizApp.Login('ADMIN', 'ADMIN', 'D:\Happy\DB\Default.DCF', 'ACC-0110.FDB');
 
   lSQL := 'SELECT * FROM ST_ITEM_CATEGORY ' +
          'WHERE Category IN (''B-MOTOLORA'',''B-MAXIS'')';
  cdsCat.Data := lBizApp.DBManager.Execute(lSQL); //For filtering Category only


   try
   try
     lSQL := 'SELECT DOCKEY FROM AR_DP ' +
     lRptVar := null;
             'WHERE DOCNO=''--DP Test--'' ';
    lRptVar := lBizApp.RptObjects.Find('Stock.Item.RO');
     cdsTmp.Data := lBizApp.DBManager.Execute(lSQL);
    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


     if cdsTmp.RecordCount > 0 then begin
     cdsMain.SaveToFile('C:\Temp\_ListM.xml'); //Export To XML file
      lBizObj := lBizApp.BizObjects.Find('AR_PM');
     cdsDtl.SaveToFile('C:\Temp\_ListD.xml'); //Export To XML file
      lMain  := lBizObj.DataSets.Find('MainDataSet');
      lKO     := lBizObj.DataSets.Find('cdsKnockOff');


      lBizObj.New;
    lTime := Now - lTime;
      lMain.FindField('DOCKEY').Value          := -1;
    MessageDlg(Format('[Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]),
      lMain.FindField('DocNo').AsString        := '--PM Test--'; //Payment Document Number
              mtInformation, [mbOk], 0);
      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
   finally
     cdsTmp.Free;
     lRptVar := null;
     lBizApp.Logout;
     cdsMain.Free;
     lMain := Null;
     cdsDtl.Free;
     lBizObj := Null;
     cdsCat.Free;
    lBizApp := Null;
   end;
   end;
end;
end;
Line 11,429: Line 12,235:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====AR_DPDTL_REFUND====
====Customer.Statement.RO====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Customer Deposit Refund Script   
! Customer.Statement.RO Report Object Script   
|-
|-
|  
|  
<syntaxhighlight lang="delphi">
<syntaxhighlight lang="delphi">
procedure TForm1.Button3Click(Sender: TObject);
procedure TfmMain.dxbb_StatementClick(Sender: TObject);
var lMain, lBizApp, lBizObj : Variant;
var lBizApp, lRptVar : Variant;
     cdsTmp : TClientDataset;
     lTime : TDateTime;
     lSQL : String;
    cdsMain, cdsDtl : TClientDataset;
     s : string;
begin
begin
   cdsTmp := TClientDataset.Create(nil);
   lTime := Now;
  cdsMain := TClientDataset.Create(nil);
  cdsDtl := TClientDataset.Create(nil);
   lBizApp := CreateOleObject('SQLAcc.BizApp');
   lBizApp := CreateOleObject('SQLAcc.BizApp');
   lBizApp.Login('ADMIN', 'ADMIN', 'D:\Happy\DB\Default.DCF', 'ACC-0110.FDB');
   s := '<?xml version="1.0" standalone="yes"?>  <DATAPACKET Version="2.0"><METADATA><FIELDS>'+
 
      '<FIELD attrname="ColumnNo" fieldtype="i4" required="true"/><FIELD attrname="ColumnType" fieldtype="string" WIDTH="1"/>'+
  try
      '<FIELD attrname="Param1" fieldtype="i4" required="true"/><FIELD attrname="Param2" fieldtype="i4" required="true"/>'+
     lSQL := 'SELECT DOCKEY FROM AR_DP ' +
      '<FIELD attrname="IsLocal" fieldtype="boolean"/><FIELD attrname="HeaderScript" fieldtype="bin.hex" SUBTYPE="Text" WIDTH="1"/>'+
            'WHERE DOCNO=''--DP Test--'' ';
      '</FIELDS><PARAMS/></METADATA><ROWDATA><ROW ColumnNo="0" ColumnType="" Param1="0" Param2="0" IsLocal="FALSE"/>'+
     cdsTmp.Data := lBizApp.DBManager.Execute(lSQL);
      '<ROW ColumnNo="1" ColumnType="A" Param1="0" Param2="0" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;Current Mth&apos;&#013;end;"/>'+
      '<ROW ColumnNo="2" ColumnType="A" Param1="-1" Param2="-1" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;1 Months&apos;&#013;end;"/>'+
      '<ROW ColumnNo="3" ColumnType="A" Param1="-2" Param2="-2" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;2 Months&apos;&#013;end;"/>'+
      '<ROW ColumnNo="4" ColumnType="A" Param1="-3" Param2="-3" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;3 Months&apos;&#013;end;"/>'+
      '<ROW ColumnNo="5" ColumnType="A" Param1="-4" Param2="-4" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;4 Months&apos;&#013;end;"/>'+
      '<ROW ColumnNo="6" ColumnType="B" Param1="-999999" Param2="-5" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;5 Month &amp; above&apos;&#013;end;"/>'+
      '</ROWDATA></DATAPACKET>';
  try
    lRptVar := null;
    lRptVar := lBizApp.RptObjects.Find('Customer.Statement.RO');
//  lRptVar.Params.Find('AgentData').AsBlob              := ; //Not use if AllAgent is True
    lRptVar.Params.Find('AgingData').AsString          := s; //Fixed
    lRptVar.Params.Find('AgingOn').AsString            := 'I'; //Fixed
    lRptVar.Params.Find('AllAgent').AsBoolean          := True;
    lRptVar.Params.Find('AllArea').AsBoolean            := True;
    lRptVar.Params.Find('AllCompany').AsBoolean        := False;
    lRptVar.Params.Find('AllCompanyCategory').AsBoolean := True;
    lRptVar.Params.Find('AllControlAccount').AsBoolean  := True;
    lRptVar.Params.Find('AllCurrency').AsBoolean        := True;
     lRptVar.Params.Find('AllDocProject').AsBoolean      := True;
//    lRptVar.Params.Find('AreaData').AsBlob              := ; //Not use if AllArea is True
//    lRptVar.Params.Find('CompanyCategoryData').AsBlob  := ; //Not use if AllCompanyCategory is True
    lRptVar.Params.Find('CompanyData').AsBlob          := '300-A0001'#13#10'300-C0001'; //Filter by Customer Code 300-A0001 & 300-C0001
//    lRptVar.Params.Find('ControlAccountData').AsBlob    := ; //Not use if AllControlAccount is True
//    lRptVar.Params.Find('CurrencyData').AsBlob          := ; //Not use if AllCurrency is True
    lRptVar.Params.Find('DateFrom').AsDate              := '01 Aug 2016';
    lRptVar.Params.Find('DateTo').AsDate                := '31 Aug 2016';
//    lRptVar.Params.Find('DocProjectData').AsBlob        := ; //Not use if AllDocProject is True
    lRptVar.Params.Find('IncludeZeroBalance').AsBoolean := False;
    lRptVar.Params.Find('SelectDate').AsBoolean        := True;
    lRptVar.Params.Find('SortBy').AsString              := 'CompanyCategory;Code;CompanyName;Agent;Area;CurrencyCode;ControlAccount';
     lRptVar.Params.Find('StatementDate').AsDate        := '31 Aug 2016'; // Norm same as DateTo
    lRptVar.Params.Find('StatementType').AsString      := 'O'; //O := Open Item, B := B/F
 
    lRptVar.CalculateReport;


     if cdsTmp.RecordCount > 0 then begin
     cdsMain.XMLData := lRptVar.DataSets.Find('cdsMain').XMLData;     //Master Data
      lBizObj := lBizApp.BizObjects.Find('AR_DPDTL_REFUND');
    cdsDtl.XMLData  := lRptVar.DataSets.Find('cdsDocument').XMLData; //Detail Data - To link Master Data use Code field
      lMain  := lBizObj.DataSets.Find('MainDataSet');


      lBizObj.New;
    cdsMain.SaveToFile('C:\Temp\_ListM.xml'); //Export To XML file
      lMain.FindField('DOCKEY').Value          := cdsTmp.FindField('Dockey').AsFloat;
    cdsDtl.SaveToFile('C:\Temp\_ListD.xml');  //Export To XML file
      lMain.FindField('Account').AsString      := '320-000'; //Bank or Cash account
      lMain.FindField('DocDate').Value        := '28 Oct 2019';
      lMain.FindField('PostDate').Value        := '28 Oct 2019';
      lMain.FindField('Description').AsString := 'Deposit Refund';
      lMain.FindField('ChequeNumber').AsString := '';
      lMain.FindField('BankCharge').AsFloat    := 0;
      lMain.FindField('PAYMENTAMOUNT').AsFloat := 500.00;


      try
    lTime := Now - lTime;
        lBizObj.Save;
    MessageDlg(Format('[Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]),
      except
              mtInformation, [mbOk], 0);
        on E: Exception do
   finally
          Memo1.Lines.Append(E.Message);
     lRptVar := null;
      end;
     cdsMain.Free;
      lBizObj.Close;
     cdsDtl.Free;
      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;
end;
end;
Line 11,487: Line 12,312:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


====AR_DPDTL_FORFEIT====
====GL Account List For Sales & Purchase 1====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Customer Deposit Forfeit Script   
! GL_Acc Object Script   
|-
|-
|  
|  
<syntaxhighlight lang="delphi">
<syntaxhighlight lang="delphi">
procedure TForm1.Button4Click(Sender: TObject);
procedure TfmMain.dxbb_GLAccClick(Sender: TObject);
var lMain, lBizApp, lBizObj : Variant;
var BizApp : Variant;
     cdsTmp : TClientDataset;
     lDataSet : TClientDataSet;
     lSQL : String;
     ASQL : String;
begin
begin
   cdsTmp  := TClientDataset.Create(nil);
   //For Debtor List => SpecialAccType = DR
   lBizApp := CreateOleObject('SQLAcc.BizApp');
  //For Creditor List => SpecialAccType = CR
   lBizApp.Login('ADMIN', 'ADMIN', 'D:\Happy\DB\Default.DCF', 'ACC-0110.FDB');
   BizApp := CreateOleObject('SQLAcc.BizApp');
 
   lDataSet := TClientDataSet.Create(Self);
   try
   try
    lSQL := 'SELECT DOCKEY FROM AR_DP ' +
    ASQL := 'SELECT A.Code, A.Description FROM GL_ACC A '+
            'WHERE DOCNO=''--DP Test--'' ';
            'LEFT OUTER JOIN GL_ACC B ON (A.Dockey=B.Parent) '+
    cdsTmp.Data := lBizApp.DBManager.Execute(lSQL);
            '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;
</syntaxhighlight>
|}


    if cdsTmp.RecordCount > 0 then begin
<div style="float: right;">   [[#top|[top]]]</div>
      lBizObj := lBizApp.BizObjects.Find('AR_DPDTL_FORFEIT');
      lMain   := lBizObj.DataSets.Find('MainDataSet');


      lBizObj.New;
====GL Account List For Sales & Purchase 2====
      lMain.FindField('DOCKEY').Value          := cdsTmp.FindField('Dockey').AsFloat;
{| class="mw-collapsible mw-collapsed wikitable"
      lMain.FindField('Account').AsString      := '532-000'; //Forfeit account
! GL_Acc Object Script 
      lMain.FindField('DocDate').Value        := '28 Oct 2019';
|-
      lMain.FindField('PostDate').Value        := '28 Oct 2019';
|
      lMain.FindField('Description').AsString  := 'Deposit Forfeit';
<syntaxhighlight lang="delphi">
      lMain.FindField('Amount').AsFloat        := 150.00;
procedure TfmMain.dxbb_GLAccClick(Sender: TObject);
var BizApp, BizObj : Variant;
    lDataSet1, lDataSet2 : TClientDataSet;
    ASQL : String;
begin
  //For Debtor List => SpecialAccType = DR
  //For Creditor List => SpecialAccType = CR
  BizApp := CreateOleObject('SQLAcc.BizApp');
  BizObj := BizApp.BizObjects.Find('GL_Acc');
 
  lDataSet1 := TClientDataSet.Create(Self);
  lDataSet2 := TClientDataSet.Create(Self);
  try
    ASQL :='Parent<>-1 ' +
          'AND (SpecialAccType IS NULL OR SpecialAccType = '''' ' +
          'OR SpecialAccType = '''') ';
    lDataSet1.XMLData:= BizObj.Select('Dockey,Code,Description', ASQL, 'Code', 'SX', '', '');
 
    lDataSet2.XMLData:= BizObj.Select('Parent', '', 'Code', 'SX', '', '');


      try
    lDataset2.First; // Remove Parent Account
        lBizObj.Save;
    while not lDataset2.Eof do begin
      except
       if lDataset1.Locate('Dockey', lDataSet2.FindField('Parent').AsString, []) then
        on E: Exception do
        lDataset1.Delete;
          Memo1.Lines.Append(E.Message);
      lDataset2.Next;
       end;
     end;
      lBizObj.Close;
    lDataset1.MergeChangeLog;
      Memo1.Lines.Append('Done');
    lDataset1.SaveToFile('C:\Temp\_List.xml', dfXML); //Export To XML file
  //    MessageDlg('Done', mtInformation, [mbOk], 0);
     end else
      Memo1.Lines.Append('Deposit No. Not Found');
   finally
   finally
     cdsTmp.Free;
     lDataSet1.Free;
     lMain := Null;
     lDataSet2.Free;
    lBizObj := Null;
    lBizApp.Logout;
    lBizApp := Null;
   end;
   end;
end;
end;
Line 11,543: Line 12,389:
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


==FAQ==
====Customer.Aging.RO====
===Problem with opening CHM Help files?===
{| class="mw-collapsible mw-collapsed wikitable"
# Right click the chm file & select Properties
! Customer Aging Report Object Script 
# At General tab Click Unblock button.
|-
# Click Apply | Ok.
|
<syntaxhighlight lang="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');


<div style="float: right;">   [[#top|[top]]]</div>
  s := '<?xml version="1.0" standalone="yes"?>  <DATAPACKET Version="2.0"><METADATA><FIELDS>'+
 
      '<FIELD attrname="ColumnNo" fieldtype="i4" required="true"/><FIELD attrname="ColumnType" fieldtype="string" WIDTH="1"/>'+
===Still can't open CHM file?===
      '<FIELD attrname="Param1" fieldtype="i4" required="true"/><FIELD attrname="Param2" fieldtype="i4" required="true"/>'+
# Login SQL Accounting
      '<FIELD attrname="IsLocal" fieldtype="boolean"/><FIELD attrname="HeaderScript" fieldtype="bin.hex" SUBTYPE="Text" WIDTH="1"/>'+
# Click Tools | Options
      '</FIELDS><PARAMS/></METADATA><ROWDATA><ROW ColumnNo="0" ColumnType="" Param1="0" Param2="0" IsLocal="FALSE"/>'+
# Click Register & follow wizard
      '<ROW ColumnNo="1" ColumnType="A" Param1="0" Param2="0" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;Current Mth&apos;&#013;end;"/>'+
# Exit SQL Accounting
      '<ROW ColumnNo="2" ColumnType="A" Param1="-1" Param2="-1" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;1 Months&apos;&#013;end;"/>'+
# Login SQL Accounting
      '<ROW ColumnNo="3" ColumnType="A" Param1="-2" Param2="-2" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;2 Months&apos;&#013;end;"/>'+
# Run CHM File
      '<ROW ColumnNo="4" ColumnType="A" Param1="-3" Param2="-3" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;3 Months&apos;&#013;end;"/>'+
      '<ROW ColumnNo="5" ColumnType="A" Param1="-4" Param2="-4" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;4 Months&apos;&#013;end;"/>'+
      '<ROW ColumnNo="6" ColumnType="B" Param1="-999999" Param2="-5" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;5 Month &amp; above&apos;&#013;end;"/>'+
      '</ROWDATA></DATAPACKET>';
  try
    lRptVar := null;
    lRptVar := lBizApp.RptObjects.Find('Customer.Aging.RO');
    lRptVar.Params.Find('ActualGroupBy').AsString      := 'Code;CompanyName'; //Fixed
//    lRptVar.Params.Find('AgentData').AsBlob              := ; //Not use if AllAgent is True
    lRptVar.Params.Find('AgingData').AsString          := s;
    lRptVar.Params.Find('AgingDate').AsDate            := '31 Aug 2016';
    lRptVar.Params.Find('AgingOn').AsString            := 'I'; //Fixed
    lRptVar.Params.Find('AllAgent').AsBoolean          := True;
    lRptVar.Params.Find('AllArea').AsBoolean            := True;
    lRptVar.Params.Find('AllCompany').AsBoolean        := True;
    lRptVar.Params.Find('AllCompanyCategory').AsBoolean := True;
    lRptVar.Params.Find('AllControlAccount').AsBoolean  := True;
    lRptVar.Params.Find('AllCurrency').AsBoolean        := True;
    lRptVar.Params.Find('AllDocProject').AsBoolean      := True;
//    lRptVar.Params.Find('AreaData').AsBlob            := ; //Not use if AllArea is True
//    lRptVar.Params.Find('CompanyCategoryData').AsBlob := ; //Not use if AllCompanyCategory is True
//    lRptVar.Params.Find('CompanyData').AsBlob        := ; //Not use if AllCompany is True
//    lRptVar.Params.Find('ControlAccountData').AsBlob  := ; //Not use if AllControlAccount is True
//    lRptVar.Params.Find('CurrencyData').AsBlob        := ; //Not use if AllCurrency is True
//    lRptVar.Params.Find('DocProjectData').AsBlob      := ; //Not use if AllDocProject is True
    lRptVar.Params.Find('FilterPostDate').AsBoolean      := True;
//    lRptVar.Params.Find('GroupBy
    lRptVar.Params.Find('IncludePDC').AsBoolean        := False;
    lRptVar.Params.Find('IncludeZeroBalance').AsBoolean := False;
    lRptVar.Params.Find('SortBy').AsString              := 'Code;CompanyName';
    lRptVar.Params.Find('DateTo').AsDate                := '31 Aug 2016';
    lRptVar.Params.Find('IncludeKnockedOffDetail').AsBoolean := False;
 
    lRptVar.CalculateReport;
 
    cdsMain.XMLData := lRptVar.DataSets.Find('cdsMain').XMLData;      //Master Data
    cdsDtl.XMLData  := lRptVar.DataSets.Find('cdsDocument').XMLData; //Detail Data - To link Master Data use Code field


<div style="float: right;">  [[#top|[top]]]</div>
    cdsMain.SaveToFile('C:\Temp\_ListM.xml'); //Export To XML file
    cdsDtl.SaveToFile('C:\Temp\_ListD.xml');  //Export To XML file


===Why when I compile my program with stated unknown method or unknown identifier?===
    lTime := Now - lTime;
:If you compiler had error may try add the '''esfw10.dll''' file under the SQL Accounting\bin folder
    MessageDlg(Format('[Elapsed Time: %s ]',[FormatDateTime ('hh:nn:ss:zzz', lTime)]),
              mtInformation, [mbOk], 0);
  finally
    lRptVar := null;
    cdsMain.Free;
    cdsDtl.Free;
  end;
end;
</syntaxhighlight>
|}


<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


===How to make sure I login to correct database?===
====GL.CB.RO====
* Can use the '''Common.Agent.RO''' Report Objects to get the Profile info.
{| class="mw-collapsible mw-collapsed wikitable"
* Then use the cdsProfile Dataset
! GL Cash Book Report Object Script   
: - CompanyName Field
: - Remark Field
* Refer to [https://wiki.sql.com.my/wiki/SDK_Live#Get_Company_Profile Get Company Profile]
 
<div style="float: right;">  [[#top|[top]]]</div>
 
===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)
{| class="mw-collapsible mw-collapsed wikitable"
! Description3 Field Script/Code  
|-
|-
|  
|  
<syntaxhighlight lang="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'
  lDtl.FindField('DESCRIPTION3').'''AsString'''  := 'Sales Item A More Description'+ #13 + 'I in 2nd line';
    lRptVar.Params.Find('DateFrom').AsDate                := '01/01/2017';
...
    lRptVar.Params.Find('DateTo').AsDate                  := '31/12/2017';
|}


<div style="float: right;">   [[#top|[top]]]</div>
//    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';


===Can I Ignore Doc No Field & let SQL Accounting to Auto Assign?===
    lRptVar.CalculateReport;
:Yes but we not recommended as you will lost track when user wanted to know which Doc No in SQL Acc is posted.  
: To Set Auto Assign set it as below
{| class="mw-collapsible mw-collapsed wikitable"
! DocNo Field Script/Code 
|-
|


...
    cdsMain.XMLData := lRptVar.DataSets.Find('cdsMain').XMLData;      //Master Data
  lMain.FindField('DocNo').'''AsString'''  := '<<New>>';
    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
lDocNo := lMain.FindField('DocNo').AsString; //To Get docno after post
 
    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;
</syntaxhighlight>
|}
|}


<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>


===Can I Auto Login & Logout SQL Accounting when doing & after Posting?===
====AR_DP====
: Yes can below is example script
: Only work if that PC is no once is using SQL Accounting
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! C Sharp  
! Customer Deposit Script  
|-
|-
|  
|  
<syntaxhighlight lang="C#">
<syntaxhighlight lang="delphi">
Int32 lBuildNo;
procedure TForm1.Button1Click(Sender: TObject);
dynamic ComServer;
var lMain, lBizObj, lBizApp : Variant;
begin
public void CheckLogin()
  lBizApp := CreateOleObject('SQLAcc.BizApp');
{           
  lBizApp.Login('ADMIN', 'ADMIN', 'D:\Happy\DB\Default.DCF', 'ACC-0110.FDB');
    lBizType = Type.GetTypeFromProgID("SQLAcc.BizApp");
 
    ComServer = Activator.CreateInstance(lBizType);
  lBizObj := lBizApp.BizObjects.Find('AR_DP');
           
  lMain  := lBizObj.DataSets.Find('MainDataSet');
    if (!ComServer.IsLogin)
 
    {
  try
        try
    lBizObj.New;
        {
    lMain.FindField('DOCKEY').Value        := -1;
            ComServer.Login(edUN.Text, edPW.Text, edDCF.Text, edDB.Text);
    lMain.FindField('DocNo').AsString      := '--DP Test--';
            ComServer.Minimize();
    lMain.FindField('CODE').AsString        := '300-C0001';
        }
    lMain.FindField('DocDate').Value        := '28 Oct 2019';
        catch(Exception ex)
    lMain.FindField('PostDate').Value      := '28 Oct 2019';
        {
    lMain.FindField('TAXDATE').Value        := '28 Oct 2019';
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
    lMain.FindField('DEPOSITACCOUNT').AsString := 'PREPAYMENT';
            FreeBiz(ComServer);
    lMain.FindField('PaymentMethod').AsString  := '320-000'; //Bank or Cash account
        }
     lMain.FindField('Description').AsString    := 'Deposit For Account';
     }
     lMain.FindField('ChequeNumber').AsString  := '';
    if (ComServer.IsLogin)
     lMain.FindField('BankCharge').AsFloat      := 0;
    {
    lMain.FindField('DocAmt').AsFloat          := 1000.00;
        lBuildNo = ComServer.BuildNo;
     lMain.FindField('Cancelled').AsString      := 'F';
     }
}
public void FreeBiz(object AbizObj)
{
     System.Runtime.InteropServices.Marshal.ReleaseComObject(AbizObj);
}
private void btnExport_Click(object sender, EventArgs e)
{
     dynamic BizObject, lMain, lDocKey;


     CheckLogin();
     try
     //'Step 2: Find and Create the Biz Objects
      lBizObj.Save;
     BizObject = ComServer.BizObjects.Find("Agent");
    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;
</syntaxhighlight>
|}


    //Step 3: Set Dataset
<div style="float: right;">  [[#top|[top]]]</div>
    lMain = BizObject.DataSets.Find("MainDataSet");    //lMain contains master data


    //Step 4: Search
====Customer Deposit to Customer Payment====
    lDocKey = BizObject.FindKeyByRef("CODE", edCode.Text);
{| class="mw-collapsible mw-collapsed wikitable"
    try
! Customer Deposit to Customer Payment Script 
    {
|-
        try
|
        {
<syntaxhighlight lang="delphi">
            //Step 5 : Insert or Update
procedure TForm1.Button2Click(Sender: TObject);
            if (Convert.IsDBNull(lDocKey))
var lMain, lKO, lBizApp, lBizObj, V : Variant;
            {
    cdsTmp : TClientDataset;
                BizObject.New();
    lSQL : String;
                lMain.FindField("CODE").value = edCode.Text;
begin
                lMain.FindField("DESCRIPTION").value = edDesc.Text;
  cdsTmp  := TClientDataset.Create(nil);
            }
  lBizApp := CreateOleObject('SQLAcc.BizApp');
            else
  lBizApp.Login('ADMIN', 'ADMIN', 'D:\Happy\DB\Default.DCF', 'ACC-0110.FDB');
            {//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              
  try
        FreeBiz(BizObject);
    lSQL := 'SELECT DOCKEY FROM AR_DP ' +
        ComServer.Logout();
             'WHERE DOCNO=''--DP Test--'' ';
        FreeBiz(ComServer);
    cdsTmp.Data := lBizApp.DBManager.Execute(lSQL);
    }           
}
</syntaxhighlight>
|}


{| class="mw-collapsible mw-collapsed wikitable"
    if cdsTmp.RecordCount > 0 then begin
! Delphi 
      lBizObj := lBizApp.BizObjects.Find('AR_PM');
|-
      lMain  := lBizObj.DataSets.Find('MainDataSet');
|
      lKO     := lBizObj.DataSets.Find('cdsKnockOff');
<syntaxhighlight lang="delphi">
....
  public
    { Public declarations }
     lBizApp : variant;
  end;
....


procedure TForm1.CheckLogin;
      lBizObj.New;
begin
      lMain.FindField('DOCKEY').Value          := -1;
   lBizApp := null;
      lMain.FindField('DocNo').AsString        := '--PM Test--'; //Payment Document Number
   lBizApp := CreateOleObject('SQLAcc.BizApp');
      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';


  if not lBizApp.IsLogin then begin
      V := lBizApp.CreateOleVariantArray(2);
    lBizApp.Login(edUN.Text, edPW.Text, edDCF.Text, edDB.Text); //Login with preset setting
      V.SetItem(0, 'IV'); //Document Type is either is IV or DN for Sales & PI or SD for Purchase
    lBizApp.Minimize; //Mininise the SQLAccounting
      V.SetItem(1, 'IV-00003');  //Invoice Document Number
  end;
 
end;
      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;


procedure TForm1.Button2Click(Sender: TObject);
      try
var BizObject, lMain : Variant;
        lBizObj.Save;
begin
       except
  try
        on E: Exception do
    //Begin Loop your data
          Memo1.Lines.Append(E.Message);
    try
       end;
       CheckLogin;
        lBizObj.Close;
      BizObject := lBizApp.BizObjects.Find('Agent');
        Memo1.Lines.Append('Done');
       lMain    := BizObject.DataSets.Find('MainDataSet');
       //MessageDlg('AR_PM-DocNo : ''--PM Test--'' Posted...', mtInformation, [mbOK],0);
      BizObject.New;
     end else
      lMain.FindField('CODE').AsString := 'HALIM';
      Memo1.Lines.Append('Deposit No. Not found');
       lMain.FindField('Description').AsString := 'HALIM 123';
      BizObject.save;
     except
      on E: Exception do
        MmLog.Lines.Append(E.Message);
    end;
    //
   finally
   finally
     BizObject.close;
     cdsTmp.Free;
    BizObject := null;
     lBizApp.Logout;
     lBizApp.Logout;
     lBizApp := null;
    lMain := Null;
    lBizObj := Null;
     lBizApp := Null;
   end;
   end;
end;
end;
Line 11,749: Line 12,668:
|}
|}


<div style="float: right;">  [[#top|[top]]]</div>
====AR_DPDTL_REFUND====
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! VB Script   
! Customer Deposit Refund Script   
|-
|-
|  
|  
<syntaxhighlight lang="vb">
<syntaxhighlight lang="delphi">
'Copy below script & paste to notepad & name it as eg Agent.vbs
procedure TForm1.Button3Click(Sender: TObject);
Call PostData
var lMain, lBizApp, lBizObj : Variant;
   
    cdsTmp : TClientDataset;
Function CreateSQLAccServer
    lSQL : String;
   Set CreateSQLAccServer = CreateObject("SQLAcc.BizApp")
begin
End Function
  cdsTmp  := TClientDataset.Create(nil);
   
  lBizApp := CreateOleObject('SQLAcc.BizApp');
Function PostData
  lBizApp.Login('ADMIN', 'ADMIN', 'D:\Happy\DB\Default.DCF', 'ACC-0110.FDB');
Dim ComServer, BizObject
 
   
  try
   'Step 1: Create Com Server object
    lSQL := 'SELECT DOCKEY FROM AR_DP ' +
   Set ComServer = CreateSQLAccServer 'Create Com Server
            'WHERE DOCNO=''--DP Test--'' ';
    
    cdsTmp.Data := lBizApp.DBManager.Execute(lSQL);
   Set WScr = CreateObject("WScript.Shell")
 
   WScript.Sleep 1000 '//Wait 1 second for system loading before proceed
    if cdsTmp.RecordCount > 0 then begin
      lBizObj := lBizApp.BizObjects.Find('AR_DPDTL_REFUND');
      lMain  := lBizObj.DataSets.Find('MainDataSet');
 
      lBizObj.New;
      lMain.FindField('DOCKEY').Value          := cdsTmp.FindField('Dockey').AsFloat;
      lMain.FindField('Account').AsString      := '320-000'; //Bank or Cash account
      lMain.FindField('DocDate').Value        := '28 Oct 2019';
      lMain.FindField('PostDate').Value        := '28 Oct 2019';
      lMain.FindField('Description').AsString  := 'Deposit Refund';
      lMain.FindField('ChequeNumber').AsString := '';
      lMain.FindField('BankCharge').AsFloat    := 0;
      lMain.FindField('PAYMENTAMOUNT').AsFloat := 500.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;
</syntaxhighlight>
|}
 
<div style="float: right;">  [[#top|[top]]]</div>
 
====AR_DPDTL_FORFEIT====
{| class="mw-collapsible mw-collapsed wikitable"
! Customer Deposit Forfeit Script 
|-
|
<syntaxhighlight lang="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;
</syntaxhighlight>
|}
 
<div style="float: right;">  [[#top|[top]]]</div>
 
==FAQ==
===Problem with opening CHM Help files?===
# Right click the chm file & select Properties
# At General tab Click Unblock button.
# Click Apply | Ok.
 
<div style="float: right;">  [[#top|[top]]]</div>
 
===Still can't open CHM file?===
# Login SQL Accounting
# Click Tools | Options | General
# Click Register & follow wizard
# Exit SQL Accounting
# Login SQL Accounting
# Run CHM File
 
<div style="float: right;">  [[#top|[top]]]</div>
 
===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
 
<div style="float: right;">  [[#top|[top]]]</div>
 
===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 [https://wiki.sql.com.my/wiki/SDK_Live#Get_Company_Profile Get Company Profile]
 
<div style="float: right;">  [[#top|[top]]]</div>
 
===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)
{| class="mw-collapsible mw-collapsed wikitable"
! Description3 Field Script/Code 
|-
|
 
...
  lDtl.FindField('DESCRIPTION3').'''AsString'''  := 'Sales Item A More Description'+ #13 + 'I in 2nd line';
...
|}
 
<div style="float: right;">  [[#top|[top]]]</div>
 
===Can I Ignore Doc No Field & let SQL Accounting to Auto Assign?===
:Yes but we not recommended as you will lost track when user wanted to know which Doc No in SQL Acc is posted.
: To Set Auto Assign set it as below
{| class="mw-collapsible mw-collapsed wikitable"
! DocNo Field Script/Code 
|-
|
 
...
  lMain.FindField('DocNo').'''AsString'''  := '<<New>>';
...
lDocNo := lMain.FindField('DocNo').AsString; //To Get docno after post
|}
 
<div style="float: right;">  [[#top|[top]]]</div>
 
===Can I Auto Login & Logout SQL Accounting when doing & after Posting?===
: Yes can below is example script
: Only work if that PC is no once is using SQL Accounting
{| class="mw-collapsible mw-collapsed wikitable"
! C Sharp 
|-
|
<syntaxhighlight lang="C#">
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);
    }           
}
</syntaxhighlight>
|}
 
{| class="mw-collapsible mw-collapsed wikitable"
! Delphi 
|-
|
<syntaxhighlight lang="delphi">
....
  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;
</syntaxhighlight>
|}
 
{| class="mw-collapsible mw-collapsed wikitable"
! VB Script 
|-
|
<syntaxhighlight lang="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
   'Step 2: Force Logout to make sure login correct database
   If ComServer.IsLogin Then 'if user hasn't logon to SQL application
   If ComServer.IsLogin Then 'if user hasn't logon to SQL application
     ComServer.Logout
     ComServer.Logout
   END IF
   END IF
   'Step 3: Login  
   'Step 3: Login  
   ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0015.FDB"  
   ComServer.Login "ADMIN", "ADMIN", "C:\estream\SQLAccounting\Share\Default.DCF", "ACC-0015.FDB"  
 
 
   'Step 4: Find and Create the Biz Objects
   'Step 4: Find and Create the Biz Objects
   Set BizObject = ComServer.BizObjects.Find("Agent")  
   Set BizObject = ComServer.BizObjects.Find("Agent")  
   
   
   'Step 5: Set Dataset
   'Step 5: Set Dataset
   Set lMain = BizObject.DataSets.Find("MainDataSet")    'lMainDataSet contains master data
   Set lMain = BizObject.DataSets.Find("MainDataSet")    'lMainDataSet contains master data
 
 
    
    
   'Step 6 : Posting
   'Step 6 : Posting
     BizObject.New
     BizObject.New
     lMain.FindField("CODE").AsString          = "_Test_"
     lMain.FindField("CODE").AsString          = "_Test_"
     lMain.FindField("Description").AsString  = "Testing 123"
     lMain.FindField("Description").AsString  = "Testing 123"
 
 
   'Step 7: Save Document
   'Step 7: Save Document
     BizObject.Save
     BizObject.Save
     BizObject.Close
     BizObject.Close
   'Step 8: Logout
   'Step 8: Logout
     ComServer.Logout
     ComServer.Logout
MsgBox "Done"
MsgBox "Done"
End Function
End Function
</syntaxhighlight>
</syntaxhighlight>
|}
|}
 
 
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>
 
 
===When Post System Prompt Operation aborted Error===
===When Post System Prompt Operation aborted Error===
: This happen when the Login User ID don't had the to '''Override Sales Min/Max Price''' &  
: 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) &  
: Use '''Last Price XXX''' (In Tools | Options | Unit Price) &  
: 1 of record is below Min Price.
: 1 of record is below Min Price.
'''Solution'''
'''Solution'''
: Can try change the Posting Seq like below (UOM then Qty)
: Can try change the Posting Seq like below (UOM then Qty)
{| class="mw-collapsible mw-collapsed wikitable"
{| class="mw-collapsible mw-collapsed wikitable"
! Sequence Field Script/Code   
! Sequence Field Script/Code   
|-
|-
|  
|  
 
 
...
...
     lDetail.Append();
     lDetail.Append();
     lDetail.FindField("DtlKey").value = -1;
     lDetail.FindField("DtlKey").value = -1;
     lDetail.FindField("DocKey").value = -1;
     lDetail.FindField("DocKey").value = -1;
     lDetail.FindField("Seq").value = 3;
     lDetail.FindField("Seq").value = 3;
     lDetail.FindField("ItemCode").AsString = "ANT";
     lDetail.FindField("ItemCode").AsString = "ANT";
     lDetail.FindField("Description").AsString = "Sales Item B";
     lDetail.FindField("Description").AsString = "Sales Item B";
     //lDetail.FindField("Account").AsString = "500-000"; To override the Sales Account Code
     //lDetail.FindField("Account").AsString = "500-000"; To override the Sales Account Code
     '''lDetail.FindField("UOM").AsString = "UNIT";'''
     '''lDetail.FindField("UOM").AsString = "UNIT";'''
     '''lDetail.FindField("Qty").AsFloat = 2;'''
     '''lDetail.FindField("Qty").AsFloat = 2;'''
     //lDetail.FindField("DISC").AsString = "5%+3"; //Optional(eg 5% plus 3 Discount)
     //lDetail.FindField("DISC").AsString = "5%+3"; //Optional(eg 5% plus 3 Discount)
     lDetail.FindField("Tax").AsString = "SR";
     lDetail.FindField("Tax").AsString = "SR";
     lDetail.FindField("TaxRate").AsString = "6%";
     lDetail.FindField("TaxRate").AsString = "6%";
     lDetail.FindField("TaxInclusive").value = 0;
     lDetail.FindField("TaxInclusive").value = 0;
     lDetail.FindField("UnitPrice").AsFloat = 100;
     lDetail.FindField("UnitPrice").AsFloat = 100;
     lDetail.FindField("Amount").AsFloat = 200;
     lDetail.FindField("Amount").AsFloat = 200;
     lDetail.FindField("TaxAmt").AsFloat = 12;
     lDetail.FindField("TaxAmt").AsFloat = 12;
     lDetail.Post();
     lDetail.Post();
...
...
|}
|}
<div style="float: right;">  [[#top|[top]]]</div>
<div style="float: right;">  [[#top|[top]]]</div>
 
===How do my system know there is a changes or update in SQLAccounting?===
'''Data Entry'''<br>
: In all Document it had a field call <span style="color:#0000ff">UPDATECOUNT</span>.
: Default is null & each changes will +1.
: So if you see 2 meaning it had being update 2 times


===How do my system know there is a changes or update in SQLAccounting?===
: Only available in  
'''Data Entry'''<br>
:* Version 1001.858 & above
: In all Document it had a field call <span style="color:#0000ff">UPDATECOUNT</span>.
: In Each table it had a field call <span style="color:#0000ff">LASTMODIFIED</span>.
: Default is null & each changes will +1.
: The value is '''Epoch Time''' or '''Unix Time'''
: So if you see 2 meaning it had being update 2 times


'''Master Data'''
'''Master Data'''

Latest revision as of 01:19, 16 November 2024

Introduction

This is the "Bridge" direct live linking between External Program with SQL Accounting

Pros

  1. Can Live or Batch Update.
  2. Can do action such as New, Edit & Delete.
  3. About 95% of modules is covered.
  4. Can direct Retrieve/Get Information From Connected Database.
  5. Able to do Automation (i.e. auto login & update data).
  6. Support GST & SST.
  7. Free of Charge (Freeware) for End User on SDK Linking.

Cons

  1. Must had programming knowledge.
  2. Must had SQL Accounting installed & running.
  3. Must self do checking else error prompt will unable to “capture”.
  4. Only supported in IE for JScript

Requirement

  • Microsoft Windows 8.1 and above (recommended with 64 bits windows)
  • Intel i5, i7 and above computer.
  • 8 GB of RAM (recommended 12 GB and above).
  • Firebird (For Automatic Login & Logout Only)
  • SQL Accounting
  • Windows Scheduler (For Automatic Login & Logout Only)

Documentation

Linking Flow

  • Highlight in Yellow Color is the Windows base Application/Function you need to Develop/Create.

Example 1 - POS System

LinkFlow-Example01.jpg

Example 2 - Cloud/Mobile System

LinkFlow-Example02.jpg
  • The SDK can be build in in your system or a Standalone windows Application(Middle Application).
  • If you build in your system then it can be sync anytime either by a special interface with parameter (eg Date From, Date To & etc) or each transaction after post(not recommended)
  • If you create a Standalone windows Application(Middle Application) you can make use the Windows Schedule to sync or call from you system to execute/run the Standalone windows Application(Middle Application).

Steps

CHM File

  1. Install SQL Accounting Click here
  2. Create Sample Data
  3. Login (username & password is Admin)
  4. Double click the SQLSDK.chm file
  5. Click Application Object | Business Objects
  6. Click the word "here"
  7. Click Yes
  8. In the list Look for (example)
- AR_IV -> Customer Invoice
- AR_CN -> Customer Credit Note
- AP_PI -> Supplier Invoice
- SL_IV -> Sales Invoice
- PH_PI -> Purchase Invoice
- ST_AJ -> Stock Adjustment

External Application Linking

  1. Login SQL Accounting
  2. Login External Application
  3. Click Post to SQL Accounting button or Click Save button from External Application.
----------------------------------------------------------------------------------------------------------------------------------------------------
Template.Tips-01.jpg
Can try start with Add Agent under the SDK file to make sure you
Application can communicate with SQL Accounting
----------------------------------------------------------------------------------------------------------------------------------------------------

Available Programming Language

Summary Document Flow by Programming Language

Example External Program

VB. Net

C Sharp

Steps (C Sharp & VB.Net Only)

The example video is how to

01. Open DCF in D:\Happy\DB\Default.DCF
02. Datatabase is ACC-0008.FDB
03. Click Complete Post button
04. Where to check in SQL accounting after Post (Steps-2.gif)

Available Function

- Complete Post - SL_CS, SL_CN, AR_PM, AR_CN & AR_CF
- Batch Post - Cash Sales - SL_CS
- Batch Post...2 DB
- Batch Post...2 DCF
- Add Stock Assembly with Override Raw Materials - ST_AS
- Add Stock Job Order to Stock Assembly with Override Raw Materials - PD_JO & ST_AS
- Add Agent - Agent
- Get Agent Description
- Add Journal Voucher - Add GL JE
- Edit GL Journal Voucher - Edit GL_JE
- Edit Sales Cash Sales - SL_CS
- Delete Cash Sales - Del SL CS - SL_CS
- Customer Aging - Customer.Aging.RO
- Get Sales Invoice Listing - Sales.IV.RO
- Stock Item List
- Add SKU with Edit SKU - ST_ITEM
- Del SKU - ST_ITEM
- Get DCF Database List
- Month End - FIFO
- Month End - WA (Weighted Average)
- Get Options...(Perform Tax / Local Amount Rounding, 5 Cents Rounding (Sales Invoice) & 5 Cents Rounding (Cash Sales)
- Get Next Invoice No.
- Is Valid ST_Item
- Is Valid GL_Acc
- Outstanding SO - Sales.OutstandingSO.RO
- Read RTF n Picture Data...
- Get Customer List - AR_Customer
- Add Customer with Edit Customer - AR_Customer
- Del Customer - AR_Customer
- Add GL Payment Voucher - Add GL_PV
- Transfer Document - DO to SL_IV
- Get Transfer Info. 1 - At Invoice Find DO Number & Date
- Get Transfer Info. 2 - At DO Find Invoice Number & Date
- GL Ledger
- Add Stock Transfer - Add ST XF
- Add Stock Adjustment - Add ST AJ
- Get Serial Number Balance - Serial No. Bal.
- Add Customer Deposit - Deposit
- Transfer Customer Deposit to Payment - Deposit to PM
- Refund Deposit - Deposit Refund
- Forfeit Deposit - Deposit Forfeit
- Enable Support DocNo Format with Month & Year Format
- Add AR IV
- Add AR CN
- Add AR PM Bounce Chq
- Add GL Ledger RO
- AR Statement
- Add Add/Edit AR PM
- Add LogInOut (For Testing purpose)

History - C Sharp & VB.Net

19 Aug 2023...
- Add Add/Edit AR PM
- Add LogInOut (For Testing purpose)
14 Jun 2022
- Add AR Statement
- Fix Error when click 2nd time for Report.
27 Apr 2022
- Add/Edit Location
- Rename Caption for Add Customer to Add/Edit Cust
- Rename Caption for Add Agent to Add/Edit Agent
- Add Reconnect
- Add/Edit ST_Batch
- Fix bug on KillApp should Sleep 2 seconds after run the KillApp
18 Mar 2021
- Enable Support DocNo Format with Month & Year Format
- Add AR IV
- Add AR CN
- Add AR PM Bounce Chq
- Add GL Ledger RO
22 May 2020
- Fix Complete Post Action cause SQLAcc still not exit after logout
- Add/Edit Customer Contra
28 Mar 2020
- SL DO to SL IV button - Check Transfer Status should excluded Cancelled
- Add Get Transfer Info. 1 - At Invoice Find DO Number & Date
- Add Get Transfer Info. 2 - At DO Find Invoice Number & Date
04 Mar 2020
- Add Post with Serial Number for Complete Post
- Fix Posting Seq Error on Complete Post
- Add GL JE
- Add GL_PV
- Add Additional Note for Outstanding SO button
05 Feb 2020
- Add Customer Deposit
- Add Customer Deposit to PM
- Add Customer Deposit Refund
- Add Customer Deposit Forfeit
- Add SL DO to SL IV
- Add 12 Months Aging Parameter for Customer.Aging.RO
- Add Add ST AJ - Stock Adjustment
- Add Add ST XF - Stock Transfer
22 Oct 2019
- Add GL Ledger function
- Add Cust. IV Listing function
- Add Serial No. Bal function
- Fixed Error on Auto Logout Error when using ComServer.DBManager.NewDataSet(lSQL)
23 Aug 2019
- Add Del SKU function
- Add Customer List... function
- Add Add Customer function
- Add Del Customer function
- Add Del SL CS function
31 Jul 2019
- Add Read RTF n Picture Data... function.
10 Jul 2019
- Fixed KillApp function not working in some situation.
11 Jun 2019
- Fixed Auto Logout Prompt Error.
- Fixed SQLAcc not Fully Exit when Call Auto Logout.
- Fixed Batch Post 2 DB error for CSharp
06 Jun 2019
- Fixed unable to Update Stock Item for Add SKU.
- Add Update UOM for Add SKU.
- Add C Sharp Coding
23 May 2019
- Update Complete Post - Add Description3 (More Description)
- Fixed Batch Post.. keep login when looping
- Add Get Outstanding SO - Sales.OutstandingSO.RO
05 May 2019
- Add Condition for Stock Item List only filter if edCode is not empty
- Add Prompt Message If Login Fail
- Add SQLAcc Build No Condition for Get Sales Invoice Listing to support version 776 & above
- Add SKU - ST_ITEM



ASP.Net C Sharp

01. Make sure Enabled the following function in IIS Manager - Sites - YourSiteName - Authentication

- Anonymous Authentication
- ASP.Net Impersonation (Make sure set Specific user (Windows Login User & Password))

02 Make sure the Windows user set in ASP.Net Impersonation is Login

Available Function

- Get Agent Description
- New & Update Customer/Supplier Info.
- Edit Cash Sales
- Edit Purchase Invoice
- Complete Post
- GL PV
- Add Add/Edit Agent
- Add Add/Edit Terms
- Add Add/Edit ST Item
- Delete Cash Sales
- Add SL SO

History

16 Aug 2021
- Add SL SO
19 Feb 2021
- Delete Cash Sales
16 Sep 2020
- Add Add/Edit ST Item
- Fix some comment note error
23 Jun 2020
- Add Add/Edit Agent
- Add Add/Edit Terms
22 May 2020
- Add Edit Purchase Invoice
- Add Complete Post
- Add GL PV
06 Dec 2019
- Add Edit Cash Sales
- Enable Run Time Set User Name, Password, DCF & FDB


Python

Module Require in Python
- pypiwin32 (Mandatory) -> pip install pypiwin32
- Pillow (Optional for Picture) -> pip install Pillow

Common

  • Common.py file for example code
Common Function 
#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("'", "''") + "'"

Agent

Agent Script 
#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()

Get Company Profile

Get Company Profile 
#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()

Complete Post

SL_CS, AR_PM, SL_CN & AR_CN Script 
#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 Picture & Description3(Rich Text)

Get Picture & Description3(Rich Text) Script 
#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()

Get Invoice Next Number

Get Invoice Next Number Script 
#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()

Stock Item

Stock Item Script 
#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()

AR_Customer

AR_Customer Script 
#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()

Sales Invoice

SL_IV 
#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()

Purchase Invoice

PH_PI 
#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 Ledger

GL Ledger Script 
#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()

GL Trial Balance

GL Trial Balance Script 
#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()

Terms

Terms 
#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()

Stock Adjustment

ST_AJ 
#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 Order

Sales Order 
#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()

Sales.PriceHistory.RO

Sales.PriceHistory.RO Script 
#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

Get Edited Sales Invoice List

Get Edited Sales Invoice List Script 
#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

SO to DO

Get Outstanding SO by SO Number transfer to DO Script 
#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 - Weighted Average

Stock Month End - Weighted Average Script 
#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

Stock Month End - FIFO

Stock Month End - FIFO Script 
#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

Login 2 Database

Login 2 Database 
#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...")

Get Stock Qty Balance

Get Stock Qty Balance 
#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()

Maintain Asset Item

Maintain Asset Item 
#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 Payment

AR_PM 
#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()

Customer Due Listing

Customer Due Listing 
#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()


PHP

  • Tested PHP Version : 7.4.3/8.1.10
  • Add this in ..\xampp\php\php.ini
 [PHP_COM_DOTNET]
 extension=php_com_dotnet.dll
  • Grid.css file for example code
Grid.css file 
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;
}

Get Agent

Get Agent Script 
<!DOCTYPE html>
<html>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 22 Oct 2024<br>";

$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() . "<br>";
    }
    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;
    }
}

?>
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Get Agent"/> 
    </form> 
</body>
</html>

Add & Edit Agent

Add & Edit Agent Script 
<!DOCTYPE html>
<html>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 01 May 2020<br>";

$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 <br>";
	}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;
    }
}

?>
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Add/Edit Agent"/> 
    </form> 
</body>
</html>

Delete Agent

Delete Agent Script 
<!DOCTYPE html>
<html>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 01 May 2020<br>";

$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<br>";
	}	
}

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;
    }
}

?>
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Delete Agent"/> 
    </form> 
</body>
</html>

Complete Post

SL_CS, AR_PM, SL_CN & AR_CN Script 
<!DOCTYPE html>
<html>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 18 May 2024<br>";
#This will doing following posting
#01. Cash Sales - SL_CS
#02. Sales Credit Note - SL_CN
#03. Customer Payment With Knock off - AR_PM
#04. Edit Credit Note Posted in Step 02 & Knock Off - AR_CN
#05. Customer Refund to Knock off Credit Note - AR_CF

$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 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
	
    $BizObject->New();
    $lMain->FindField("DocNo")->AsString = "--CS 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("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 = <<<EOT
           Item A Line 1
           Item A Line 2
           EOT;
	
    $lDetail->FindField("Description3")->AsString = $txt;
    $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("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 = 0;
    $lDetail->FindField("UnitPrice")->AsFloat = 100;
    $lDetail->FindField("Amount")->AsFloat = 200;
    $lDetail->FindField("TaxAmt")->AsFloat = 12;
    $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("2020-04-23")); #YYYY-MM-DD
    $lMain->FindField("PostDate")->Value = date("d-m-Y", strtotime("2020-04-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 = 147.09; #Partial Knock off
        $lDetail->FindField("KnockOff")->AsString = "T";
        $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("2020-04-23")); #YYYY-MM-DD
    $lMain->FindField("PostDate")->value = date("d-m-Y", strtotime("2020-04-23")); #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")->value = 0;
    $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")->AsString = "T";
            $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("2020-04-23")); #YYYY-MM-DD
    $lMain->FindField("PostDate")->Value = date("d-m-Y", strtotime("2020-04-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 = 6;
    $lMain->FindField("Cancelled")->AsString = "F";

    #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")->AsString = "T";
        $lDetail->Post();
	}	
    $BizObject->Save();
    $BizObject->Close();
}

if (isset($_POST['BtnData']))
{
    try
    {
        CheckLogin();
        echo date("d M Y h:i:s A")." - Posting Cash Sales<br>";
        PostDataCS();
        echo date("d M Y h:i:s A")." - Posting Customer Payment<br>";
        PostDataPM();
        echo date("d M Y h:i:s A")." - Posting Sales Credit Note<br>";
        PostDataCN();
        echo date("d M Y h:i:s A")." - Posting Knock Off Sales Credit Note<br>";
        PostKnockIVCN();
        echo date("d M Y h:i:s A")." - Posting Customer Refund<br>";
        PostDataCF();
        echo date("d M Y h:i:s A")." - Posting Done";
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Complete Post"/> 
    </form> 
</body>
</html>

Get Invoice Next Number

Get Invoice Next Number Script 
<!DOCTYPE html>
<html>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 01 May 2020<br>";
#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)."<br>";
        $fmt= str_ireplace(".","'0", $fmt);
        echo date("d M Y h:i:s A")." Format in PHP : " . str_ireplace("d","s", $fmt)."<br>";
		echo date("d M Y h:i:s A")." Output in PHP : " .sprintf($fmt,$NextNo)."<br>";
	}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;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Get Doc Number"/> 
    </form> 
</body>
</html>

Add & Edit AR_Customer

Add & Edit AR_Customer Script 
<!DOCTYPE html>
<html>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 11 Jun 2020<br>";

$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-0035.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";
        $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 = $lDocKey;
        $BizObject->Open();
        $BizObject->Edit();
        $lMain->FindField("CompanyName")->value = "FAIRY TAIL WIZARD";
		
		$r = $lDtl->RecordCount();
		$x = 1;
		while ($x <= $r ){
			$lDtl->First();
            $lDtl->Delete();
			$x++;
		}
		
        #Insert back with new Information
        $lDtl->Edit(); #For 1St Branch
        $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("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();
		echo "Posting Done <br>";
	}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;
    }
}

?>
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Add/Edit AR Customer"/> 
    </form> 
</body>
</html>

Get Stock List

Get Stock List Script 
<!DOCTYPE html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 22 Jun 2020<br>";
#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 "<table>";
		echo "<tr>";
		for ($x = 0; $x <= $fc; $x++) {
			#Insert Header
			echo "<td>".$lDataSet->Fields->Items($x)->FieldName()."</td>"; 
		}
		echo "</tr>";
		
		#Looping Dataset
		while (! $lDataSet->Eof()){
			echo "<tr>";
		    for ($x = 0; $x <= $fc; $x++) {
				$lFN = $lDataSet->Fields->Items($x)->FieldName();
			    echo "<td>".$lDataSet->FindField($lFN)->AsString()."</td>"; 
		    }
		    echo "</tr>";
			$lDataSet->Next();
		}	
		echo "</table>"."<br>";		
	}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;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Get Stock list"/> 
    </form> 
</body>
</html>

AR_IV

AR_IV Script 
<!DOCTYPE html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 18 May 2024<br>";
#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;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Post Customer Invoice"/> 
    </form> 
</body>
</html>

Get Outstanding Invoice List

Get Outstanding Invoice List Script 
<!DOCTYPE html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 24 Jun 2020<br>";
#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 "<table>";
		echo "<tr>";
		for ($x = 0; $x <= $fc; $x++) {
			#Insert Header
			echo "<td>".$lDataSet->Fields->Items($x)->FieldName()."</td>"; 
		}
		echo "</tr>";
		
		#Looping Dataset
		while (! $lDataSet->Eof()){
			echo "<tr>";
		    for ($x = 0; $x <= $fc; $x++) {
				$lFN = $lDataSet->Fields->Items($x)->FieldName();
			    echo "<td>".$lDataSet->FindField($lFN)->AsString()."</td>"; 
		    }
		    echo "</tr>";
			$lDataSet->Next();
		}	
		echo "</table>"."<br>";		
	}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;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Get Outstanding Invoice List"/> 
    </form> 
</body>
</html>

Stock Month End - Weighted Average

Stock Month End - Weighted Average Script 
<!DOCTYPE html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 01 Dec 2021<br>";


$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 "<table>";
		echo "<tr>";
		for ($x = 0; $x <= $fc; $x++) {
			#Insert Header
			echo "<td>".$lDataSet2->Fields->Items($x)->FieldName()."</td>"; 
		}
		echo "</tr>";
		
		#Looping Dataset
		while (! $lDataSet2->Eof()){
			echo "<tr>";
		    for ($x = 0; $x <= $fc; $x++) {
				$lFN = $lDataSet2->Fields->Items($x)->FieldName();
			    echo "<td>".$lDataSet2->FindField($lFN)->AsString()."</td>"; 
		    }
		    echo "</tr>";
			$lDataSet2->Next();
		}	
		echo "</table>"."<br>";		
	}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;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Month End - WA"/> 
    </form> 
</body>
</html>

Stock Month End - FIFO

Stock Month End - FIFO Script 
<!DOCTYPE html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 16 Jul 2020<br>";
#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 "<table>";
		echo "<tr>";
		for ($x = 0; $x <= $fc; $x++) {
			#Insert Header
			echo "<td>".$lDataSet2->Fields->Items($x)->FieldName()."</td>"; 
		}
		echo "</tr>";
		
		#Looping Dataset
		while (! $lDataSet2->Eof()){
			echo "<tr>";
		    for ($x = 0; $x <= $fc; $x++) {
				$lFN = $lDataSet2->Fields->Items($x)->FieldName();
			    echo "<td>".$lDataSet2->FindField($lFN)->AsString()."</td>"; 
		    }
		    echo "</tr>";
			$lDataSet2->Next();
		}	
		echo "</table>"."<br>";		
	}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 "<table>";
		echo "<tr>";
		for ($x = 0; $x <= $fc; $x++) {
			#Insert Header
			echo "<td>".$lDataSet3->Fields->Items($x)->FieldName()."</td>"; 
		}
		echo "</tr>";
		
		#Looping Dataset
		while (! $lDataSet3->Eof()){
			echo "<tr>";
		    for ($x = 0; $x <= $fc; $x++) {
				$lFN = $lDataSet3->Fields->Items($x)->FieldName();
			    echo "<td>".$lDataSet3->FindField($lFN)->AsString()."</td>"; 
		    }
		    echo "</tr>";
			$lDataSet3->Next();
		}	
		echo "</table>"."<br>";		
	}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;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Month End - FIFO"/> 
    </form> 
</body>
</html>

Add & Edit Stock Item

Add & Edit Stock Item Script 
<!DOCTYPE html>
<html>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 05 Aug 2020<br>";
$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<br>";
        PostData();
		echo date("d M Y h:i:s A")." - Done<br>";
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Add & Edit Stock Item"/> 
    </form> 
</body>
</html>

Add Stock Issue

Add Stock Issue Script 
<!DOCTYPE html>
<html>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 18 May 2024<br>";
$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<br>";
        PostData();
		echo date("d M Y h:i:s A")." - Done<br>";
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Add Stock Issue"/> 
    </form> 
</body>
</html>

Add Points

Add Points Script 
<!DOCTYPE html>
<html>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 18 May 2024<br>";
$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<br>";
        PostData();
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Post Point"/> 
    </form> 
</body>
</html>

AR_CN

AR_CN Script 
<!DOCTYPE html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 12 Dec 2020<br>";
#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;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Post Customer Credit Note"/> 
    </form> 
</body>
</html>

SO to DO

SO to DO Script 
<!DOCTYPE html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 18 May 2024<br>";
#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;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Post SO to DO"/> 
    </form> 
</body>
</html>

ST_AJ

ST_AJ Script 
<!DOCTYPE html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 18 May 2024<br>";

$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;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Post ST_AJ"/> 
    </form> 
</body>
</html>

Get Stock Serial Number balance

Get Stock Serial Number Balance List Script 
<!DOCTYPE html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 21 May 2021<br>";

$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 "<table>";
		echo "<tr>";
		for ($x = 0; $x <= $fc; $x++) {
			#Insert Header
			echo "<td>".$lDataSet->Fields->Items($x)->FieldName()."</td>"; 
		}
		echo "</tr>";
		
		#Looping Dataset
		while (! $lDataSet->Eof()){
			echo "<tr>";
		    for ($x = 0; $x <= $fc; $x++) {
				$lFN = $lDataSet->Fields->Items($x)->FieldName();
			    echo "<td>".$lDataSet->FindField($lFN)->AsString()."</td>"; 
		    }
		    echo "</tr>";
			$lDataSet->Next();
		}	
		echo "</table>"."<br>";		
	}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;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Get SN Balance"/> 
    </form> 
</body>
</html>

SL_IV-Add, Edit & Delete

Insert, Edit & Delete Invoice Script 
<!DOCTYPE html>
<html>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 25 May 2024<br>";
$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."<br>";
		$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<br>";
	  $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."<br>";
	echo date("d M Y h:i:s A")." - Posting Done<br>";
    $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."<br>";
		$BizObject->Params->Find("DocKey")->AsString = $lDocKey;
		$BizObject->Open();
        $BizObject->Delete();
		echo date("d M Y h:i:s A")." - Record deleted<br>";
	} else {
		echo date("d M Y h:i:s A")." - Document Not Found<br>";
	}		
}
if (isset($_POST['BtnPost']))
{
    try
    {
        CheckLogin();
        echo date("d M Y h:i:s A")." - Begin Posting<br>";
        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<br>";
        PostDelIV();	
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnPost"
                value="Post Sales IV"/> 
        <input type="submit" name="BtnDel"
                value="Post Delete IV"/>
    </form> 
</body>
</html>

GL_PV-Add, Edit & Delete

Insert, Edit & Delete Invoice Script 
<!DOCTYPE html>
<html>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 18 May 2024<br>";
$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."<br>";
		$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<br>";
	  $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<br>";
    $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."<br>";
		$BizObject->Params->Find("DocKey")->AsString = $lDocKey;
		$BizObject->Open();
        $BizObject->Delete();
		echo date("d M Y h:i:s A")." - Record deleted<br>";
	} else {
		echo date("d M Y h:i:s A")." - Document Not Found<br>";
	}		
}
if (isset($_POST['BtnPost']))
{
    try
    {
        CheckLogin();
        echo date("d M Y h:i:s A")." - Begin Posting<br>";
        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<br>";
        DelData();	
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnPost"
                value="Post GL PV"/> 
        <input type="submit" name="BtnDel"
                value="Delete PV"/>
    </form> 
</body>
</html>

GL_JE-Add, Edit & Delete

Insert, Edit & Delete Invoice Script 
<!DOCTYPE html>
<html>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 18 May 2024<br>";
$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."<br>";
		$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<br>";
	  $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<br>";
    $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."<br>";
		$BizObject->Params->Find("DocKey")->AsString = $lDocKey;
		$BizObject->Open();
        $BizObject->Delete();
		echo date("d M Y h:i:s A")." - Record deleted<br>";
	} else {
		echo date("d M Y h:i:s A")." - Document Not Found<br>";
	}		
}
if (isset($_POST['BtnPost']))
{
    try
    {
        CheckLogin();
        echo date("d M Y h:i:s A")." - Begin Posting<br>";
        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<br>";
        DelData();	
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnPost"
                value="Post GL JE"/> 
        <input type="submit" name="BtnDel"
                value="Delete JE"/>
    </form> 
</body>
</html>

Get Outstanding SO List

Get Outstanding SO List Script 
<!DOCTYPE html>
<html>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 09 Jun 2022<br>";
$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 "<table>";
		echo "<tr>";
		for ($x = 0; $x <= $fc; $x++) {
			#Insert Header
			echo "<td>".$lDataSet->Fields->Items($x)->FieldName()."</td>"; 
		}
		echo "</tr>";
		
		#Looping Dataset
		while (! $lDataSet->Eof()){
			echo "<tr>";
		    for ($x = 0; $x <= $fc; $x++) {
				$lFN = $lDataSet->Fields->Items($x)->FieldName();
			    echo "<td>".$lDataSet->FindField($lFN)->AsString()."</td>"; 
		    }
		    echo "</tr>";
			$lDataSet->Next();
		}	
		echo "</table>"."<br>";		
	}else {
    echo "Record Not Found";
    }
}

if (isset($_POST['BtnData']))
{
    try
    {
        CheckLogin();
        echo date("d M Y h:i:s A")." - Get Data<br>";
        GetData();
		echo date("d M Y h:i:s A")." - Done<br>";
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Get Outstanding SO List"/> 
    </form> 
</body>
</html>

Get Stock Item Picture

Get Stock Item Picture Script 
<!DOCTYPE html>
<html>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 14 Sep 2022<br>";

$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 '<img src=data:image/*;base64,'.base64_encode(implode($b)).' alt="My Picture" style="width:128px;height:128px">';

	}else {
    echo "Record Not Found";
    }
}

if (isset($_POST['BtnData']))
{
    try
    {
        CheckLogin();
        GetData();
	echo "<br>";
        echo date("d M Y h:i:s A")." - Done";	
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Get Item Picture"/> 
    </form> 
</body>
</html>

Customer.Aging.RO

Customer.Aging.RO Script 
<!DOCTYPE html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 26 Sep 2022<br>";

$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 "<table>";
	echo "<tr>";	
    $DataSet->First();
	$fc = $DataSet->Fields->Count-1;
	for ($x = 0; $x <= $fc; $x++) {
		#Insert Header
		echo "<td>".$DataSet->Fields->Items($x)->FieldName()."</td>"; 
	}
	echo "</tr>";
		
	#Looping Dataset
	while (! $DataSet->Eof()){
		echo "<tr>";
	    for ($x = 0; $x <= $fc; $x++) {
			$lFN = $DataSet->Fields->Items($x)->FieldName();
		    echo "<td>".$DataSet->FindField($lFN)->AsString()."</td>"; 
	    }
	    echo "</tr>";
		$DataSet->Next();
	}
    echo "</table>"."<br>";		
}

function GetData(){
	global $ComServer;
	
    $lSQL = '<?xml version="1.0" standalone="yes"?>  <DATAPACKET Version="2.0"><METADATA><FIELDS>
	         <FIELD attrname="ColumnNo" fieldtype="i4" required="true"/><FIELD attrname="ColumnType" fieldtype="string" WIDTH="1"/>
             <FIELD attrname="Param1" fieldtype="i4" required="true"/><FIELD attrname="Param2" fieldtype="i4" required="true"/>
             <FIELD attrname="IsLocal" fieldtype="boolean"/><FIELD attrname="HeaderScript" fieldtype="bin.hex" SUBTYPE="Text" WIDTH="1"/>
             </FIELDS><PARAMS/></METADATA><ROWDATA><ROW ColumnNo="0" ColumnType="" Param1="0" Param2="0" IsLocal="FALSE"/>
             <ROW ColumnNo="1" ColumnType="A" Param1="0" Param2="0" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;Current Mth&apos;&#013;end;"/>
             <ROW ColumnNo="2" ColumnType="A" Param1="-1" Param2="-1" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;1 Months&apos;&#013;end;"/>
             <ROW ColumnNo="3" ColumnType="A" Param1="-2" Param2="-2" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;2 Months&apos;&#013;end;"/>
             <ROW ColumnNo="4" ColumnType="A" Param1="-3" Param2="-3" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;3 Months&apos;&#013;end;"/>
             <ROW ColumnNo="5" ColumnType="A" Param1="-4" Param2="-4" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;4 Months&apos;&#013;end;"/>
             <ROW ColumnNo="6" ColumnType="B" Param1="-999999" Param2="-5" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;5 Month &amp; above&apos;&#013;end;"/>
             </ROWDATA></DATAPACKET>';
	
	$lRptVar = $ComServer->RptObjects->Find('Customer.Aging.RO');
	$lRptVar->Params->Find('ActualGroupBy')->AsString = 'Code;CompanyName'; #Fixed
#	$lRptVar->Params->Find('AgentData')->AsBlob               = ; #Not use if AllAgent is True
    $lRptVar->Params->Find('AgingData')->AsString           = $lSQL;
    $lRptVar->Params->Find('AgingDate')->AsDate             = '23 Sep 2022';
    $lRptVar->Params->Find('AgingOn')->AsString             = 'I'; #Fixed
    $lRptVar->Params->Find('AllAgent')->AsBoolean           = True;
    $lRptVar->Params->Find('AllArea')->AsBoolean            = True;
    $lRptVar->Params->Find('AllCompany')->AsBoolean         = True;
    $lRptVar->Params->Find('AllCompanyCategory')->AsBoolean = True;
    $lRptVar->Params->Find('AllControlAccount')->AsBoolean  = True;
    $lRptVar->Params->Find('AllCurrency')->AsBoolean        = True;
    $lRptVar->Params->Find('AllDocProject')->AsBoolean      = True;
#    $lRptVar->Params->Find('AreaData')->AsBlob            = ; #Not use if AllArea is True
#    $lRptVar->Params->Find('CompanyCategoryData')->AsBlob = ; #Not use if AllCompanyCategory is True
#    $lRptVar->Params->Find('CompanyData')->AsBlob         = ; #Not use if AllCompany is True
#    $lRptVar->Params->Find('ControlAccountData')->AsBlob  = ; #Not use if AllControlAccount is True
#    $lRptVar->Params->Find('CurrencyData')->AsBlob        = ; #Not use if AllCurrency is True
#    $lRptVar->Params->Find('DocProjectData')->AsBlob      = ; #Not use if AllDocProject is True
    $lRptVar->Params->Find('FilterPostDate')->AsBoolean      = True;
#    $lRptVar->Params->Find('GroupBy
    $lRptVar->Params->Find('IncludePDC')->AsBoolean         = False;
    $lRptVar->Params->Find('IncludeZeroBalance')->AsBoolean = False;
    $lRptVar->Params->Find('SortBy')->AsString              = 'Code;CompanyName';
    $lRptVar->Params->Find('DateTo')->AsDate                = '23 Sep 2022';
    $lRptVar->Params->Find('IncludeKnockedOffDetail')->AsBoolean = False;
	
	$lRptVar->CalculateReport();
	$lDataSetHdr = $lRptVar->DataSets->Find('cdsAgingHeader');
	$lDataSet = $lRptVar->DataSets->Find('cdsMain');
	$lDataSet2 = $lRptVar->DataSets->Find('cdsDocument');
	$lDataSetCO = $lRptVar->DataSets->Find('cdsCompany');

    if ($lDataSet->RecordCount > 0) {
		echo "Header"."<br>";	
		SetGrid($lDataSetHdr);
						
		echo "Main Data"."<br>";
		SetGrid($lDataSet);
		
		echo "Detail Invoice"."<br>";
		SetGrid($lDataSet2);

		echo "Company Information"."<br>";
		SetGrid($lDataSetCO);

	}else {
    echo "Record Not Found";
    }
}

if (isset($_POST['BtnData']))
{
    try
    {
        CheckLogin();
        GetData();
		echo "<br>";
        echo date("d M Y h:i:s A")." - Done";	
    }
    finally
    {
        #$ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Get AR Aging"/> 
    </form> 
</body>
</html>

Get Description3

Get Description 3 Script 
<!DOCTYPE html>
<html>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 30 Aug 2024<br>";
$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 "<br>== <br>";
		echo "<br>Result after RTF: <br>";
		$txt = $ComServer->Utility->RichTextToPlainText($rtf);
		echo "<TEXTAREA rows=10 cols=80 id='edResult1' >".$txt. "</TEXTAREA>";
		echo "<br>== <br>";
		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;
    }
}

?>
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Get Data"/> 
    </form> 
</body>
</html>

AR_PM-Add, Edit & Delete

AR_PM-Add, Edit & Delete Script 
<!DOCTYPE html>
<html>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 24 Sep 2024<br>";
$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."<br>";
		$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<br>";
	  $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."<br>";
	echo date("d M Y h:i:s A")." - Posting Done<br>";
    $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."<br>";
		$BizObject->Params->Find("DocKey")->AsString = $lDocKey;
		$BizObject->Open();
        $BizObject->Delete();
		echo date("d M Y h:i:s A")." - Record deleted<br>";
	} else {
		echo date("d M Y h:i:s A")." - Document Not Found<br>";
	}		
}

if (isset($_POST['BtnData']))
{
    try
    {
        CheckLogin();
        echo date("d M Y h:i:s A")." - Begin Posting<br>";
        PostData();
		echo date("d M Y h:i:s A")." - Done<br>";
    }
    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<br>";
        DelData();	
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Add & Edit AR PM"/> 
        <input type="submit" name="BtnDel"
                value="Delete AR PM"/>				
    </form> 
</body>
</html>

Customer.Statement.RO

Customer.Statement.RO Script 
<!DOCTYPE html>
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/Grid.css" />
</head>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 28 Oct 2024<br>";


$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 "<table>";
	echo "<tr>";	
    $DataSet->First();
	$fc = $DataSet->Fields->Count-1;
	for ($x = 0; $x <= $fc; $x++) {
		#Insert Header
		echo "<td>".$DataSet->Fields->Items($x)->FieldName()."</td>"; 
	}
	echo "</tr>";
		
	#Looping Dataset
	while (! $DataSet->Eof()){
		echo "<tr>";
	    for ($x = 0; $x <= $fc; $x++) {
			$lFN = $DataSet->Fields->Items($x)->FieldName();
		    echo "<td>".$DataSet->FindField($lFN)->AsString()."</td>"; 
	    }
	    echo "</tr>";
		$DataSet->Next();
	}
    echo "</table>"."<br>";		
}

function GetData(){
	global $ComServer;
	
    $lSQL = '<?xml version="1.0" standalone="yes"?>  <DATAPACKET Version="2.0"><METADATA><FIELDS>
	         <FIELD attrname="ColumnNo" fieldtype="i4" required="true"/><FIELD attrname="ColumnType" fieldtype="string" WIDTH="1"/>
             <FIELD attrname="Param1" fieldtype="i4" required="true"/><FIELD attrname="Param2" fieldtype="i4" required="true"/>
             <FIELD attrname="IsLocal" fieldtype="boolean"/><FIELD attrname="HeaderScript" fieldtype="bin.hex" SUBTYPE="Text" WIDTH="1"/>
             </FIELDS><PARAMS/></METADATA><ROWDATA><ROW ColumnNo="0" ColumnType="" Param1="0" Param2="0" IsLocal="FALSE"/>
             <ROW ColumnNo="1" ColumnType="A" Param1="0" Param2="0" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;Current Mth&apos;&#013;end;"/>
             <ROW ColumnNo="2" ColumnType="A" Param1="-1" Param2="-1" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;1 Months&apos;&#013;end;"/>
             <ROW ColumnNo="3" ColumnType="A" Param1="-2" Param2="-2" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;2 Months&apos;&#013;end;"/>
             <ROW ColumnNo="4" ColumnType="A" Param1="-3" Param2="-3" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;3 Months&apos;&#013;end;"/>
             <ROW ColumnNo="5" ColumnType="A" Param1="-4" Param2="-4" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;4 Months&apos;&#013;end;"/>
             <ROW ColumnNo="6" ColumnType="B" Param1="-999999" Param2="-5" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;5 Month &amp; above&apos;&#013;end;"/>
             </ROWDATA></DATAPACKET>';
	
	$lRptVar = $ComServer->RptObjects->Find('Customer.Statement.RO');
#	$lRptVar->Params->Find('AgentData')->AsBlob               = ; #Not use if AllAgent is True
    $lRptVar->Params->Find('AgingData')->AsString           = $lSQL;
    $lRptVar->Params->Find('AgingOn')->AsString             = 'I'; #Fixed
    $lRptVar->Params->Find('AllAgent')->AsBoolean           = True;
    $lRptVar->Params->Find('AllArea')->AsBoolean            = True;
    $lRptVar->Params->Find('AllCompany')->AsBoolean         = True;
    $lRptVar->Params->Find('AllCompanyCategory')->AsBoolean = True;
    $lRptVar->Params->Find('AllControlAccount')->AsBoolean  = True;
    $lRptVar->Params->Find('AllCurrency')->AsBoolean        = True;
    $lRptVar->Params->Find('AllDocProject')->AsBoolean      = True;
#    $lRptVar->Params->Find('AreaData')->AsBlob            = ; #Not use if AllArea is True
#    $lRptVar->Params->Find('CompanyCategoryData')->AsBlob = ; #Not use if AllCompanyCategory is True
#    $lRptVar->Params->Find('CompanyData')->AsBlob         = ; #Not use if AllCompany is True
#    $lRptVar->Params->Find('ControlAccountData')->AsBlob  = ; #Not use if AllControlAccount is True
#    $lRptVar->Params->Find('CurrencyData')->AsBlob        = ; #Not use if AllCurrency is True
#    $lRptVar->Params->Find('DocProjectData')->AsBlob      = ; #Not use if AllDocProject is True
    $lRptVar->Params->Find('DateFrom')->AsDate              = '01 Sep 2024';
	$lRptVar->Params->Find('DateTo')->AsDate                = '30 Sep 2024';
	$lRptVar->Params->Find('StatementDate')->AsDate         = '30 Sep 2024'; # Norm same as DateTo
	$lRptVar->Params->Find('SelectDate')->AsBoolean         = True;
    $lRptVar->Params->Find('IncludeZeroBalance')->AsBoolean = False;
    $lRptVar->Params->Find('SortBy')->AsString              = 'CompanyCategory;Code;CompanyName;Agent;Area;CurrencyCode;ControlAccount';
    $lRptVar->Params->Find('StatementType')->AsString       = 'O'; #O := Open Item, B := B/F
    
	
	$lRptVar->CalculateReport();
	$lDataSet = $lRptVar->DataSets->Find('cdsMain');
	$lDataSet2 = $lRptVar->DataSets->Find('cdsDocument');
	$lDataSetCO = $lRptVar->DataSets->Find('cdsCompany');

    if ($lDataSet->RecordCount > 0) {						
		echo "Main Data"."<br>";
		SetGrid($lDataSet);
		
		echo "Detail Invoice"."<br>";
		SetGrid($lDataSet2);

		echo "Company Information"."<br>";
		SetGrid($lDataSetCO);

	}else {
    echo "Record Not Found";
    }
}

if (isset($_POST['BtnData']))
{
    try
    {
        CheckLogin();
        GetData();
		echo "<br>";
        echo date("d M Y h:i:s A")." - Done";	
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Get Data"/> 
    </form> 
</body>
</html>

AP_SP-Add, Edit & Delete

AP_SP-Add, Edit & Delete Script 
<!DOCTYPE html>
<html>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php  
echo "Updated 16 Nov 2024<br>";
$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."<br>";
		$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<br>";
	  $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."<br>";
	echo date("d M Y h:i:s A")." - Posting Done<br>";
    $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."<br>";
		$BizObject->Params->Find("DocKey")->AsString = $lDocKey;
		$BizObject->Open();
        $BizObject->Delete();
		echo date("d M Y h:i:s A")." - Record deleted<br>";
	} else {
		echo date("d M Y h:i:s A")." - Document Not Found<br>";
	}		
}

if (isset($_POST['BtnData']))
{
    try
    {
        CheckLogin();
        echo date("d M Y h:i:s A")." - Begin Posting<br>";
        PostData();
		echo date("d M Y h:i:s A")." - Done<br>";
    }
    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<br>";
        DelData();	
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Add & Edit AP SP"/> 
        <input type="submit" name="BtnDel"
                value="Delete AP SP"/>				
    </form> 
</body>
</html>


Node JS

Module Require in Node JS
- Winax (Mandatory) -> npm install winax

Common

  • Common.js file for example code
Common Function 
/* 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', */
	'D:\\Happy\\DB\\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);
    }	
}

Get Company Profile

Get Company Profile 
/* 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();
}

Complete Post

Complete Post 
/* 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 Picture & Description3(Rich Text)

Get Picture & Description3(Rich Text) Script 
/* 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();
}

Get Stock Qty Balance

Get Stock Qty Balance Script 
/* 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();
}

SO to DO

SO to DO Script 
/*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       = "<<New>>";
      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();
}


VB Script

Get Company Profile

Company Profile Script 
'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

Complete Post

SL_CS, AR_PM, SL_CN & AR_CN Script 
'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

AR_IV Script 
'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_IV-Edit

AR_IV Edit Script 
'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

AR_PM Script 
'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

AR_PM-Edit

AR_PM Edit Script 
'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.RO

Customer.RO Report Object Script 
'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

Customer.Statement.RO

Customer.Statement.RO Report Object Script 
'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 = "<?xml version=" & Quote & "1.0" & Quote & " standalone=" & Quote & "yes" & Quote & "?>  <DATAPACKET Version=" & Quote & "2.0" & Quote & "><METADATA><FIELDS>" &_
       "<FIELD attrname=" & Quote & "ColumnNo" & Quote & " fieldtype=" & Quote & "i4" & Quote & " required=" & Quote & "true" & Quote & "/><FIELD attrname=" & Quote & "ColumnType" & Quote & " fieldtype=" & Quote & "string" & Quote & " WIDTH=" & Quote & "1" & Quote & "/>" &_
       "<FIELD attrname=" & Quote & "Param1" & Quote & " fieldtype=" & Quote & "i4" & Quote & " required=" & Quote & "true" & Quote & "/><FIELD attrname=" & Quote & "Param2" & Quote & " fieldtype=" & Quote & "i4" & Quote & " required=" & Quote & "true" & Quote & "/>" &_
       "<FIELD attrname=" & Quote & "IsLocal" & Quote & " fieldtype=" & Quote & "boolean" & Quote & "/><FIELD attrname=" & Quote & "HeaderScript" & Quote & " fieldtype=" & Quote & "bin.hex" & Quote & " SUBTYPE=" & Quote & "Text" & Quote & " WIDTH=" & Quote & "1" & Quote & "/>" &_
       "</FIELDS><PARAMS/></METADATA><ROWDATA><ROW ColumnNo=" & Quote & "0" & Quote & " ColumnType=" & Quote & "" & Quote & " Param1=" & Quote & "0" & Quote & " Param2=" & Quote & "0" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & "/>" &_
       "<ROW ColumnNo=" & Quote & "1" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "0" & Quote & " Param2=" & Quote & "0" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;Current Mth&apos;&#013;end;" & Quote & "/>" &_
       "<ROW ColumnNo=" & Quote & "2" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-1" & Quote & " Param2=" & Quote & "-1" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;1 Months&apos;&#013;end;" & Quote & "/>" &_
       "<ROW ColumnNo=" & Quote & "3" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-2" & Quote & " Param2=" & Quote & "-2" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;2 Months&apos;&#013;end;" & Quote & "/>" &_
       "<ROW ColumnNo=" & Quote & "4" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-3" & Quote & " Param2=" & Quote & "-3" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;3 Months&apos;&#013;end;" & Quote & "/>" &_
       "<ROW ColumnNo=" & Quote & "5" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-4" & Quote & " Param2=" & Quote & "-4" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;4 Months&apos;&#013;end;" & Quote & "/>" &_
       "<ROW ColumnNo=" & Quote & "6" & Quote & " ColumnType=" & Quote & "B" & Quote & " Param1=" & Quote & "-999999" & Quote & " Param2=" & Quote & "-5" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;5 Month &amp; above&apos;&#013;end;" & Quote & "/>" &_
       "</ROWDATA></DATAPACKET>"
'  RptObject.Params.Find("AgentData").Value            =  'Not use if AllAgent is True
  RptObject.Params.Find("AgingData").Value            = lAgeData 'Fixed
  RptObject.Params.Find("AgingOn").Value              = "I" 'Fixed
  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("AllControlAccount").Value    = true
  RptObject.Params.Find("AllCurrency").Value          = true
  RptObject.Params.Find("AllDocProject").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-A0001"& vbCRLF & "300-C0001" 'Filter by Customer Code 300-A0001 & 300-C0001
'  RptObject.Params.Find("ControlAccountData").Value   =  'Not use if AllControlAccount is True
'  RptObject.Params.Find("CurrencyData").Value         =  'Not use if AllCurrency is True
  lDateFrom = CDate("August 1, 2016")
  lDateTo = CDate("August 31, 2016")
  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("IncludeZeroBalance").Value   = false
  RptObject.Params.Find("SelectDate").Value           = true
  RptObject.Params.Find("SortBy").Value               = "CompanyCategory;Code;CompanyName;Agent;Area;CurrencyCode;ControlAccount"
  RptObject.Params.Find("StatementDate").Value        = lDateTo ' Norm same as DateTo
  RptObject.Params.Find("StatementType").Value        = "O" 'O = Open Item, B = B/F
 
  'Step 4: Perform Report calculation 
  RptObject.CalculateReport()
  Set lDataSet = RptObject.DataSets.Find("cdsMain")
  Set lDataSet2 = RptObject.DataSets.Find("cdsDocument")
  MsgBox "Count " & lDataSet.RecordCount

  'Step 5 Retrieve the output 
  lDataSet.First
  While (not lDataSet.eof)
    MsgBox lDataSet.FindField("Code").AsString & " " & lDataSet.FindField("CompanyName").AsString & " " & lDataSet.FindField("Balance").AsString
	lDataSet2.First
    While (not lDataSet2.eof)
	  MsgBox lDataSet2.FindField("DocNo").AsString
	  lDataSet2.Next
    Wend
	lDataSet.Next
  Wend
End Function

GL.CB.RO

GL.CB.RO Report Object Script 
'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

AR_Customer - Script 
'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

AR_Customer-Edit

AR_Customer - Edit Script 
'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

GL.TrialBalance.RO

GL Trial Balance Report Object Script 
'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

Customer.Aging.RO

Customer Aging Report Object Script 
'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 = "<?xml version=" & Quote & "1.0" & Quote & " standalone=" & Quote & "yes" & Quote & "?>  <DATAPACKET Version=" & Quote & "2.0" & Quote & "><METADATA><FIELDS>" &_
       "<FIELD attrname=" & Quote & "ColumnNo" & Quote & " fieldtype=" & Quote & "i4" & Quote & " required=" & Quote & "true" & Quote & "/><FIELD attrname=" & Quote & "ColumnType" & Quote & " fieldtype=" & Quote & "string" & Quote & " WIDTH=" & Quote & "1" & Quote & "/>" &_
       "<FIELD attrname=" & Quote & "Param1" & Quote & " fieldtype=" & Quote & "i4" & Quote & " required=" & Quote & "true" & Quote & "/><FIELD attrname=" & Quote & "Param2" & Quote & " fieldtype=" & Quote & "i4" & Quote & " required=" & Quote & "true" & Quote & "/>" &_
       "<FIELD attrname=" & Quote & "IsLocal" & Quote & " fieldtype=" & Quote & "boolean" & Quote & "/><FIELD attrname=" & Quote & "HeaderScript" & Quote & " fieldtype=" & Quote & "bin.hex" & Quote & " SUBTYPE=" & Quote & "Text" & Quote & " WIDTH=" & Quote & "1" & Quote & "/>" &_
       "</FIELDS><PARAMS/></METADATA><ROWDATA><ROW ColumnNo=" & Quote & "0" & Quote & " ColumnType=" & Quote & "" & Quote & " Param1=" & Quote & "0" & Quote & " Param2=" & Quote & "0" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & "/>" &_
       "<ROW ColumnNo=" & Quote & "1" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "0" & Quote & " Param2=" & Quote & "0" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;Current Mth&apos;&#013;end;" & Quote & "/>" &_
       "<ROW ColumnNo=" & Quote & "2" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-1" & Quote & " Param2=" & Quote & "-1" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;1 Months&apos;&#013;end;" & Quote & "/>" &_
       "<ROW ColumnNo=" & Quote & "3" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-2" & Quote & " Param2=" & Quote & "-2" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;2 Months&apos;&#013;end;" & Quote & "/>" &_
       "<ROW ColumnNo=" & Quote & "4" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-3" & Quote & " Param2=" & Quote & "-3" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;3 Months&apos;&#013;end;" & Quote & "/>" &_
       "<ROW ColumnNo=" & Quote & "5" & Quote & " ColumnType=" & Quote & "A" & Quote & " Param1=" & Quote & "-4" & Quote & " Param2=" & Quote & "-4" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;4 Months&apos;&#013;end;" & Quote & "/>" &_
       "<ROW ColumnNo=" & Quote & "6" & Quote & " ColumnType=" & Quote & "B" & Quote & " Param1=" & Quote & "-999999" & Quote & " Param2=" & Quote & "-5" & Quote & " IsLocal=" & Quote & "FALSE" & Quote & " HeaderScript=" & Quote & "ObjectPascal&#013;begin&#013;Value:= &apos;5 Month &amp; above&apos;&#013;end;" & Quote & "/>" &_
       "</ROWDATA></DATAPACKET>"
  RptObject.Params.Find("ActualGroupBy").Value         = "Code;CompanyName" 'Fixed
'  RptObject.Params.Find("AgentData").Value            =  'Not use if AllAgent is True
  RptObject.Params.Find("AgingData").Value            = lAgeData 'Fixed

  lDateTo = CDate("August 31, 2016")
  RptObject.Params.Find("AgingDate").Value            = lDateTo  

  RptObject.Params.Find("AgingOn").Value              = "I" 'Fixed
  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("AllControlAccount").Value    = true
  RptObject.Params.Find("AllCurrency").Value          = true
  RptObject.Params.Find("AllDocProject").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-A0001"& vbCRLF & "300-C0001" 'Filter by Customer Code 300-A0001 & 300-C0001
'  RptObject.Params.Find("ControlAccountData").Value   =  'Not use if AllControlAccount is True
'  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("FilterPostDate").Value        = false
'  RptObject.Params.Find("GroupBy").Value               = 'Not use 
  RptObject.Params.Find("IncludePDC").Value        = false
  RptObject.Params.Find("IncludeZeroBalance").Value   = false
  RptObject.Params.Find("SortBy").Value               = "Code;CompanyName"
  RptObject.Params.Find("DateTo").Value               = lDateTo

 
  'Step 4: Perform Report calculation 
  RptObject.CalculateReport()
  Set lDataSet = RptObject.DataSets.Find("cdsMain")
  Set lDataSet2 = RptObject.DataSets.Find("cdsDocument")
  MsgBox "Count " & lDataSet.RecordCount

  'Step 5 Retrieve the output 
  lDataSet.First
  While (not lDataSet.eof)
    MsgBox lDataSet.FindField("Code").AsString & " " & lDataSet.FindField("CompanyName").AsString & " " & lDataSet.FindField("C1").AsString
	lDataSet2.First
    While (not lDataSet2.eof)
	  MsgBox lDataSet2.FindField("DocNo").AsString & " " & lDataSet2.FindField("C1").AsString
	  lDataSet2.Next
    Wend
	lDataSet.Next
  Wend
End Function

GL.JE.RO

GL Journal Voucher Report Object Script 
'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

SL_CS

SL_CS Script 
'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

Customer.PM.RO

Customer.PM.RO Script 
'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

Sales.IV.RO

Sales.IV.RO Script 
'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.DueDocument.RO

Customer.DueDocument.RO Script 
'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

Customer.IV.RO

Customer.IV.RO Script 
'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

Sales.OutstandingSO.RO

Sales.OutstandingSO.RO Script 
'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.PaymentMethod.RO

Common.PaymentMethod.RO Script 
'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

Common.Agent.RO

Common.Agent.RO Script 
'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.RO

Stock.Item.RO Script 
'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

Stock Item Balance

Get Stock Item Balance Script 
'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_IS

ST_IS Script 
'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_RC

ST_RC Script 
'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_AJ

ST_AJ Script 
'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

ST_XF

ST_XF Script 
'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

AP_PI-Edit

AP_PI Edit Script 
'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_DO to SL_IV

SL_DO to SL_IV Script 
'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

SL_IV-Edit

SL_IV-Edit Script 
'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

GL_JE Script 
'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-Edit

GL_JE-Edit Script 
'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

GL_JE-Delete

GL_JE-Delete Script 
'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

Get Invoice Next Number

Get Invoice Next Number Script 
'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

Auto Run Doc. Number

Sales Order Auto Run Doc Number Script 
'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       = "<<New>>"
  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

Cash Book PV Script 
'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

ST_Item with Opening

ST_Item with Opening Script 
'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

GL Stock Value-Insert,Edit & Delete

GL Stock Value Insert, Edit & Delete Script 
'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

Stock Item Template to SL_IV

Stock Item Template to SL_IV Script 
'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

AR_CN

AR_CN Script 
'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


JScript/JavaScript

This Script only can run using Internet Explorer (till IE 11)

AR_IV

AR_IV Script 
<html>
<head>
<title>Add Customer Invoice</title>
<script language="JScript">
var ComServer;
 
function CreateSQLAccServer() {
  ComServer = new ActiveXObject('SQLAcc.BizApp');
  if (!ComServer.IsLogin) {            /* check whether user has logon */
    ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
 /* UserName, Password */
  }
}
 
function AutoInvoice() {
  var BizObject, lMainDataSet, lDetailDataSet;
 
  CreateSQLAccServer();
 
  BizObject = ComServer.BizObjects.Find('AR_IV');
  lMainDataSet = BizObject.DataSets.Find('MainDataSet');
  lDetailDataSet = BizObject.DataSets.Find('cdsDocDetail');
  BizObject.New();
 
  lMainDataSet.FindField('DocKey').value = -1;
  lMainDataSet.FindField('DocNo').value = "--IV Test--";
  lMainDataSet.FindField('DocDate').value = "01/10/2016";
  lMainDataSet.FindField('PostDate').value = "01/10/2016";
  lMainDataSet.FindField('Code').value = "300-A0003";
  lMainDataSet.FindField('Description').value = "Sales";

  /*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();

  /* Save document */  
    BizObject.Save();
    BizObject.Close();
    alert('Customer Invoice - has been saved.');
}
</script>
</head>
<body>
<input type="submit" value="SYNC" name="btnSubmit" onclick="AutoInvoice()">
</body>
</html>

SL_CS

SL_CS Script 
<html>
<head>
<title>Add Cash Sales</title>
<script language="JScript">
var ComServer;

function CreateSQLAccServer() {
  ComServer = new ActiveXObject('SQLAcc.BizApp');
  if (!ComServer.IsLogin) {            /* check whether user has logon */
    ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
 /* UserName, Password */
  }
}

function InsertData() {
  var BizObject, lMain, lDetail;
  
  CreateSQLAccServer();

  /*Step 2: Find and Create the Biz Objects*/
  BizObject = ComServer.BizObjects.Find('SL_CS') ;

  /*Step 3: Set Dataset*/
  lMain   = BizObject.DataSets.Find('MainDataSet');  /*lMain contains master data*/
  lDetail = BizObject.DataSets.Find('cdsDocDetail'); /*lDetail contains detail data */  
  
  /*Begin Looping yr data*/
  /*Step 4 : Insert Data - Master*/
  BizObject.New();
  lMain.FindField('DocKey').value         = -1;
  lMain.FindField('DocNo').AsString       = "--IV Test--";
  lMain.FindField('DocDate').value        = "20/12/2017";
  lMain.FindField('PostDate').value       = "20/12/2017";
  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();
    alert('Document has been saved.');
}
</script>
</head>
<body>
<input type="submit" value="SYNC" name="btnSubmit" onclick="InsertData()">
</body>
</html>

AR_PM

AR_PM Script 
<html>
<head>
<title>Customer Payment</title>
<script language="JScript">
<html>
<head>
<title>Add Customer Payment</title>
<script language="JScript">
var ComServer;

function CreateSQLAccServer() {
  ComServer = new ActiveXObject("SQLAcc.BizApp");
  if (!ComServer.IsLogin) {            /* check whether user has logon */
    ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
 /* UserName, Password */
  }
}

function AddPayment() {
  var BizObject, lMainDataSet, lKnockOffDataSet, V;
  
  CreateSQLAccServer();

  BizObject = ComServer.BizObjects.Find('AR_PM');
  lMainDataSet = BizObject.DataSets.Find('MainDataSet');
  lKnockOffDataSet = BizObject.DataSets.Find('cdsKnockOff');
  BizObject.New();
  
  lMainDataSet.FindField('DocKey').value = -1;
  lMainDataSet.FindField('DocNo').value = "--OR Test--";
  lMainDataSet.FindField('Code').value = "300-C0001";
  lMainDataSet.FindField('DocDate').value = "10/10/2023";
  lMainDataSet.FindField('PostDate').value = "10/10/2023";  
  lMainDataSet.FindField('Description').value = "Payment for Account";
  lMainDataSet.FindField('PaymentMethod').value = "310-001";
  lMainDataSet.FindField('ChequeNumber').value = "";
  lMainDataSet.FindField('DocAmt').AsFloat = 106.10;
  lMainDataSet.FindField('BankCharge').AsFloat = 0;
  lMainDataSet.FindField('UnappliedAmt').AsFloat = 0;
  lMainDataSet.FindField('Cancelled').value = 'F';
  
  v = ComServer.CreateOleVariantArray(2);
  v.SetItem(0, 'IV'); /*Knock Off DocType*/
  v.SetItem(1, 'IV-00172'); /*Knock Off DocNo*/

  if (lKnockOffDataSet.Locate('DocType;DocNo', v.AsOleVariant(), false, false)){ 
          lKnockOffDataSet.Edit();
          lKnockOffDataSet.FindField('KOAmt').AsFloat = 106.10;		  
          lKnockOffDataSet.FindField('KnockOff').AsString = 'T';
          lKnockOffDataSet.Post(); }
    /* Save document */  
    BizObject.Save();
    BizObject.Close();
    alert("Customer Payment - has been saved.");
}

function EditPayment(){
  var BizObject, lMainDataSet, lKnockOffDataSet, V, lDocNo, lDocKey;
  
  CreateSQLAccServer();

  BizObject = ComServer.BizObjects.Find('AR_PM');
  lMainDataSet = BizObject.DataSets.Find('MainDataSet');
  lKnockOffDataSet = BizObject.DataSets.Find('cdsKnockOff');
  
  lDocNo = "--OR Test--"
  lDocKey = BizObject.FindKeyByRef('DocNo', lDocNo);
  BizObject.Params.Find('DocKey').Value = lDocKey;
  
  if (lDocKey != null) {
    BizObject.Open();
    BizObject.Edit();
    lMainDataSet.FindField('Description').value = "Payment for Account-Edited";
    lMainDataSet.FindField('PaymentMethod').value = "310-001";
    lMainDataSet.FindField('ChequeNumber').value = "";
    lMainDataSet.FindField('DocAmt').AsFloat = 200.00;
    lMainDataSet.FindField('BankCharge').AsFloat = 0;
    lMainDataSet.FindField('UnappliedAmt').AsFloat = 0;
    lMainDataSet.FindField('Cancelled').value = 'F';
  
    v = ComServer.CreateOleVariantArray(2);
    v.SetItem(0, 'IV'); /*Knock Off DocType*/
    v.SetItem(1, 'IV-00172'); /*Knock Off DocNo*/

    if (lKnockOffDataSet.Locate('DocType;DocNo', v.AsOleVariant(), false, false)){ 
          lKnockOffDataSet.Edit();
          lKnockOffDataSet.FindField('KOAmt').AsFloat = 200;		  
          lKnockOffDataSet.FindField('KnockOff').AsString = 'T';
          lKnockOffDataSet.Post(); }
    /* Save document */  
      BizObject.Save();
      BizObject.Close();
      alert("Customer Payment - has been Edited & saved.");
   }
}

function DelPayment(){
  var BizObject, lMainDataSet, lKnockOffDataSet, V, lDocNo, lDocKey;
  
  CreateSQLAccServer();

  BizObject = ComServer.BizObjects.Find('AR_PM');
  lMainDataSet = BizObject.DataSets.Find('MainDataSet');
  lKnockOffDataSet = BizObject.DataSets.Find('cdsKnockOff');
  
  lDocNo = "--OR Test--"
  lDocKey = BizObject.FindKeyByRef('DocNo', lDocNo);
  BizObject.Params.Find('DocKey').Value = lDocKey;
  
  if (lDocKey != null) {
    BizObject.Open();
    BizObject.Delete();

    BizObject.Close();
    alert("Customer Payment - has been Deleted.");
   }
}
</script>
</head>
<body>
<input type="submit" value="Add Payment" name="btnSubmit" onclick="AddPayment()">
<input type="submit" value="Edit Payment" name="btnSubmit" onclick="EditPayment()">
<input type="submit" value="Delete Payment" name="btnSubmit" onclick="DelPayment()">
</body>
</html>

Customer.IV.RO

Customer.IV.RO Report Object Script 
<html>
  <head>
    <title>Customer.IV.RO</title>
    <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
    <script type="text/javascript">
var ComServer;

function CreateSQLAccServer() {
  ComServer = new ActiveXObject("SQLAcc.BizApp");
  if (!ComServer.IsLogin) {            /* check whether user has logon */
    ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
 /* UserName, Password */
  }
}      

function GetData() {  
  var lMain, lDetail, lRptVar, lDateFrom, lDateTo;
  
  elem = document.getElementById('txt1');
  
  CreateSQLAccServer();
   
  lDateFrom = new Date("January 1 2015");
  lDateTo = new Date("December 31, 2015"); 
  
  lRptVar = ComServer.RptObjects.Find('Customer.IV.RO');
  lRptVar.Params.Find('SelectDate').Value           = true;
  lRptVar.Params.Find('DateFrom').Value             = lDateFrom.valueOf();
  lRptVar.Params.Find('DateTo').Value               = lDateTo.valueOf();
  lRptVar.Params.Find('AllAgent').Value             = false;
  lRptVar.Params.Find('AgentData').Value            = "----\nLF"; /*Filter by Agent code ---- & HALIM */
  lRptVar.Params.Find('AllArea').Value              = true;
  lRptVar.Params.Find('AllCompany').Value           = true;
  lRptVar.Params.Find('AllCurrency').Value          = true;
  lRptVar.Params.Find('AllDocProject').Value        = true;
  lRptVar.Params.Find('AllCompanyCategory').Value   = true;
  lRptVar.Params.Find('AllDocument').Value          = true;
  lRptVar.Params.Find('IncludeCancelled').Value   = false;
  lRptVar.Params.Find('PrintDocumentStyle').Value = false;
  lRptVar.Params.Find('AllItemProject').Value     = true;
  lRptVar.Params.Find('AllPaymentMethod').Value   = true;
  lRptVar.CalculateReport();  
  
  lMain   = lRptVar.DataSets.Find('cdsMain');
  lDetail = lRptVar.DataSets.Find('cdsDocDetail');
  /*alert("Count -" + lRptVar.DataSets.Find('cdsDocDetail').RecordCount);*/
  elem.innerHTML += 'From Main'+'\n';
    
  lMain.First(); 
  while (!lMain.eof) {
    elem.innerHTML += lMain.FindField('DocKey').AsString + ' ' +
	                  lMain.FindField('DocNo').AsString + ' ' + lMain.FindField('DocDate').AsString + ' '+
                      lMain.FindField('CompanyName').AsString + ' ' + lMain.FindField('DocAmt').AsString + '\n';
	lMain.Next();  
  }
  elem.innerHTML += 'End Main'+'\n\n';
  
  elem.innerHTML += 'From Detail'+'\n';
  lDetail.First(); 
  while (!lDetail.eof) {
    elem.innerHTML += lDetail.FindField('Dockey').AsString + ' ' + lDetail.FindField('Account').AsString + ' ' + 
	                  lDetail.FindField('Description').AsString + ' ' + lDetail.FindField('Amount').AsString + '\n';
	lDetail.Next();  
  }  
  elem.innerHTML += 'End Detail'+'\n\n';
}
	  
    </script>
  </head>
  <body>
    <form>
      <textarea id="txt1" rows="30" cols="116"></textarea>
      <input type="button" value="Calculate" onclick="GetData()">
    </form>
  </body>
</html>

Customer.RO

Customer.RO Report Object Script 
<html>
<head>
<title>Add Customer Invoice</title>
<script language='JScript'>
var ComServer;
 
function CreateSQLAccServer() {
  ComServer = new ActiveXObject('SQLAcc.BizApp');
  if (!ComServer.IsLogin) {            /* check whether user has logon */
    ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
 /* UserName, Password */
  }
}

function GetCustomerData() {
  var RptObject, lDataSet, lDataSet2;
  edOutput.value = '';
  edOutput2.value = '';
  //Step 1: Create Com Server object
  CreateSQLAccServer();
  
  //Step 2: Find and Create the Report Objects
  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 = true;
  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;
  //RptObject.Params.Find('CompanyData').Value = '300-A0003';
  
  //Step 4: Perform Report calculation 
  RptObject.CalculateReport();
  lDataSet = RptObject.DataSets.Find('cdsMain');
  lDataSet2 = RptObject.DataSets.Find('cdsBranch');
  
  //alert('Count ' + lDataSet.RecordCount);

  //Step 5 Retrieve the output 
  lDataSet.First;
  while  (!lDataSet.eof){
    edOutput.value = edOutput.value + 
	                'Code : ' + lDataSet.FindField('Code').AsString + '\n' + 
	                'Company Name : ' + lDataSet.FindField('CompanyName').AsString +'\n\n';
	lDataSet.Next();
  }
  lDataSet2.First();
  while (!lDataSet2.eof){
	  edOutput2.value = edOutput2.value + 
	                   'Code : '+ lDataSet2.FindField('Code').AsString + '\n' + 
					   'Branch Name : '+ lDataSet2.FindField('BranchName').AsString + '\n' + 
	                   'Address 1 : '+ lDataSet2.FindField('Address1').AsString + '\n' + 
					   'Address 2 : '+ lDataSet2.FindField('Address2').AsString + '\n' + 
					   'Address 3 : '+ lDataSet2.FindField('Address3').AsString + '\n' + 
					   'Address 4 : '+ lDataSet2.FindField('Address4').AsString + '\n' + 
					   'Phone 1 : '+ lDataSet2.FindField('Phone1').AsString  +'\n\n';
	  lDataSet2.Next();
    }
	
}

</script>
</head>
<body>
  <table>
    <tr>
      <th>Main Table</th>
      <th>Branch Branch</th>
    </tr>
    <tr>
      <td>
        <TEXTAREA rows=15 cols=75 name="edOutput"></TEXTAREA>
	  </td>
      <td>
        <TEXTAREA rows=15 cols=75 name="edOutput2"></TEXTAREA>
	  </td>
    </tr>		
  </table>
		
  <table width="83%">
	<tr>
	  <td align="center">
		<input type='submit' value='Sync Data' name='btnSubmit' onclick='GetCustomerData()'>
	  </td>
	</tr>
  </table>
</body>
</html>

Get Next IV Number

Get Next IV Number Script 
<html>
<head>
<title>Add Cash Sales</title>
<script language="JScript">
var ComServer, lDataSet;

function CreateSQLAccServer() {
  ComServer = new ActiveXObject('SQLAcc.BizApp');
  if (!ComServer.IsLogin) {            /* check whether user has logon */
    ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
 /* UserName, Password */
  }
}

function zeroPad(num, places) {
  var zero = places - num.toString().length + 1;
  return Array(+(zero > 0 && zero)).join("0") + num;
  /*zeroPad(5, 2); // "05"*/
}

function GetData() {
  var 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 ";
  lDataSet = ComServer.DBManager.NewDataSet(lSQL);  
}

function ShowNextNo() {
  var Desc, Fmt, NextNo, lResult, lPad;
  
  CreateSQLAccServer();  
  GetData();

  if (lDataSet.RecordCount > 0) {   
    lDataSet.First;
    Desc = lDataSet.FindField("Description").AsString;
	Fmt  = lDataSet.FindField("Format").AsString;
	NextNo = lDataSet.FindField("NEXTNUMBER").Value;
    alert(Desc);
	alert(Fmt);
	alert(NextNo);
	
	lPad = Fmt.substr(5, 1);
	lPad = zeroPad(NextNo, lPad)
	Desc = Fmt.substr(0, 3);
	alert(Desc + lPad);
  }	
}
</script>
</head>
<body>
<input type="submit" value="Show Next No" name="btnSubmit" onclick="ShowNextNo()">
</body>
</html>

Customer & Supplier Contra

Customer & Supplier Contra Script 
<html>
<head>
<title>Add Customer Invoice</title>
<script language="JScript">
var ComServer;
 
function CreateSQLAccServer() {
  ComServer = new ActiveXObject('SQLAcc.BizApp');
  if (!ComServer.IsLogin) {            /* check whether user has logon */
    ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
 /* UserName, Password */
  }
}
 
function PostARCT() {
  var BizObject, lMain, lKO, V;
 
  CreateSQLAccServer();
 
  BizObject = ComServer.BizObjects.Find('AR_CT');
  lMain = BizObject.DataSets.Find('MainDataSet');
  lKO = BizObject.DataSets.Find('cdsKnockOff');
  BizObject.New();
 
  lMain.FindField('DocKey').value = -1;
  lMain.FindField('DocNo').value = "--CT Test--";
  lMain.FindField('DocDate').value = "01/10/2020";
  lMain.FindField('PostDate').value = "01/10/2020";
  lMain.FindField('Code').value = "300-A0002";
  lMain.FindField('Description').value = "Contra";
  lMain.FindField('DocAmt').value = "100.00";
  //lMain.FindField('UnappliedAmt').value = "0";

  v = ComServer.CreateOleVariantArray(2);
  v.SetItem(0, 'IV'); /*Knock Off DocType*/
  v.SetItem(1, 'IV-00021'); /*Knock Off DocNo*/

  if (lKO.Locate('DocType;DocNo', v.AsOleVariant(), false, false)){ 
          lKO.Edit();
          lKO.FindField('DocAmt').value = "100";		  
          lKO.FindField('KnockOff').AsString = 'T';
          lKO.Post(); }

  /* Save document */  
    BizObject.Save();
    BizObject.Close();
    alert('Customer Contra - has been saved.');
}

function PostAPST() {
  var BizObject, lMain, lKO, V, lDocNo, lDocKey;
 
  CreateSQLAccServer();
 
  BizObject = ComServer.BizObjects.Find('AP_ST');
  lMain = BizObject.DataSets.Find('MainDataSet');
  lKO = BizObject.DataSets.Find('cdsKnockOff');
  
  lDocNo = "--CT Test--"
  lDocKey = BizObject.FindKeyByRef("DocNo", lDocNo)
  BizObject.Params.Find("DocKey").Value = lDocKey  
  
  if (lDocKey != null) {
    BizObject.Open();
	BizObject.Edit();
	lMain.FindField('Code').value = "400-C0001";
	lMain.FindField('DocAmt').value = "100.00";
  //lMain.FindField('UnappliedAmt').value = "0";

   v = ComServer.CreateOleVariantArray(2);
   v.SetItem(0, 'PI'); /*Knock Off DocType*/
   v.SetItem(1, 'PI-00001'); /*Knock Off DocNo*/

    if (lKO.Locate('DocType;DocNo', v.AsOleVariant(), false, false)){ 
          lKO.Edit();
          lKO.FindField('DocAmt').value = "100";		  
          lKO.FindField('KnockOff').AsString = 'T';
          lKO.Post(); }

  /* Save document */  
    BizObject.Save();  
    BizObject.Close();
    alert('Supplier Contra - has been Updated.');	
  }
}
</script>
</head>
<body>
<button onclick="javascript:PostARCT();">PostARCT</button>&nbsp;&nbsp;
<button onclick="javascript:PostAPST();">PostAPST</button>&nbsp;&nbsp;
</body>
</html>

Add Stock Item

Add ST_Item Script 
<html>
<head>
<title>Add Stock Item</title>
<script language="JScript">
var ComServer;

function CreateSQLAccServer() {
  ComServer = new ActiveXObject('SQLAcc.BizApp');
  if (!ComServer.IsLogin) {            /* check whether user has logon */
    ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
 /* UserName, Password */
  }
}

function InsertData() {
  var BizObject, lMain, lDetail;
  
  CreateSQLAccServer();

  /*Step 2: Find and Create the Biz Objects*/
  BizObject = ComServer.BizObjects.Find('ST_ITEM') ;

  /*Step 3: Set Dataset*/
  lMain   = BizObject.DataSets.Find('MainDataSet');  /*lMain contains master data*/
  lUOM = BizObject.DataSets.Find('cdsUOM'); /*lDetail contains detail data */  
  
  /*Begin Looping yr data*/
  /*Step 4 : Insert Data - Master*/
  BizObject.New();
  lMain.FindField('Code').AsString        = "Code JScript";
  lMain.FindField('DESCRIPTION').AsString = "Post from JScript"
  lMain.FindField('STOCKGROUP').AsString    = "DEFAULT"; /*Optional*/
  lMain.FindField('STOCKCONTROL').AsString    = "T"; /*Optional*/
  lMain.FindField('ISACTIVE').AsString    = "T"; /*Optional*/
    
  /*Step 5: Insert Data - UOM*/
  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();

  /*Step 6: Save*/
  BizObject.Save();
  BizObject.Close();
    alert('Item has been saved.');
}
</script>
</head>
<body>
<input type="submit" value="SYNC" name="btnSubmit" onclick="InsertData()">
</body>
</html>

Get Company Profile

Get Company Profile Script 
<html>
<head>
<title>Add Cash Sales</title>
<script language="JScript">
var ComServer, lDataSet;

function CreateSQLAccServer() {
  ComServer = new ActiveXObject('SQLAcc.BizApp');
  if (!ComServer.IsLogin) {            /* check whether user has logon */
    ComServer.Login('ADMIN', 'ADMIN', 'C\:\\eStream\\SQLAccounting\\Share\\DEFAULT.DCF', 'SAMPLE.FDB');
 /* UserName, Password */
  }
}

function zeroPad(num, places) {
  var zero = places - num.toString().length + 1;
  return Array(+(zero > 0 && zero)).join("0") + num;
  /*zeroPad(5, 2); // "05"*/
}

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);  
}

function ShowCoProfile() {
  var CoName, Rmk, BRN;
  
  CreateSQLAccServer();  
  GetData();

  if (lDataSet.RecordCount > 0) {   
    lDataSet.First;
    CoName = lDataSet.FindField("COMPANYNAME").AsString;
	Rmk  = lDataSet.FindField("REMARK").AsString;
	BRN = lDataSet.FindField("BRN").Value;
    alert(CoName);
	alert(Rmk);
	alert(BRN);
  }	
}
</script>
</head>
<body>
<input type="submit" value="Show Co Profile" name="btnSubmit" onclick="ShowCoProfile()">
</body>
</html>


Delphi

The below example is assuming after you had check the login status.

GL_JE

GL_JE Script 
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;

GL_PV

GL_PV Script 
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_Customer

AR_Customer Script 
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

AR_PM Script 
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;

AR_PM-Edit

AR_PM Script 
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

ST_Item Script 
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;

ST_Item-Edit

ST_Item Script 
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;

SL_IV

SL_IV Script 
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;

Customer.IV.RO

Customer.IV.RO Report Object Script 
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

Stock.Item.RO Report Object Script 
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;

Customer.Statement.RO

Customer.Statement.RO Report Object Script 
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 := '<?xml version="1.0" standalone="yes"?>  <DATAPACKET Version="2.0"><METADATA><FIELDS>'+
       '<FIELD attrname="ColumnNo" fieldtype="i4" required="true"/><FIELD attrname="ColumnType" fieldtype="string" WIDTH="1"/>'+
       '<FIELD attrname="Param1" fieldtype="i4" required="true"/><FIELD attrname="Param2" fieldtype="i4" required="true"/>'+
       '<FIELD attrname="IsLocal" fieldtype="boolean"/><FIELD attrname="HeaderScript" fieldtype="bin.hex" SUBTYPE="Text" WIDTH="1"/>'+
       '</FIELDS><PARAMS/></METADATA><ROWDATA><ROW ColumnNo="0" ColumnType="" Param1="0" Param2="0" IsLocal="FALSE"/>'+
       '<ROW ColumnNo="1" ColumnType="A" Param1="0" Param2="0" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;Current Mth&apos;&#013;end;"/>'+
       '<ROW ColumnNo="2" ColumnType="A" Param1="-1" Param2="-1" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;1 Months&apos;&#013;end;"/>'+
       '<ROW ColumnNo="3" ColumnType="A" Param1="-2" Param2="-2" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;2 Months&apos;&#013;end;"/>'+
       '<ROW ColumnNo="4" ColumnType="A" Param1="-3" Param2="-3" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;3 Months&apos;&#013;end;"/>'+
       '<ROW ColumnNo="5" ColumnType="A" Param1="-4" Param2="-4" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;4 Months&apos;&#013;end;"/>'+
       '<ROW ColumnNo="6" ColumnType="B" Param1="-999999" Param2="-5" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;5 Month &amp; above&apos;&#013;end;"/>'+
       '</ROWDATA></DATAPACKET>';
  try
    lRptVar := null;
    lRptVar := lBizApp.RptObjects.Find('Customer.Statement.RO');
//  lRptVar.Params.Find('AgentData').AsBlob               := ; //Not use if AllAgent is True
    lRptVar.Params.Find('AgingData').AsString           := s; //Fixed
    lRptVar.Params.Find('AgingOn').AsString             := 'I'; //Fixed
    lRptVar.Params.Find('AllAgent').AsBoolean           := True;
    lRptVar.Params.Find('AllArea').AsBoolean            := True;
    lRptVar.Params.Find('AllCompany').AsBoolean         := False;
    lRptVar.Params.Find('AllCompanyCategory').AsBoolean := True;
    lRptVar.Params.Find('AllControlAccount').AsBoolean  := True;
    lRptVar.Params.Find('AllCurrency').AsBoolean        := True;
    lRptVar.Params.Find('AllDocProject').AsBoolean      := True;
//    lRptVar.Params.Find('AreaData').AsBlob              := ; //Not use if AllArea is True
//    lRptVar.Params.Find('CompanyCategoryData').AsBlob   := ; //Not use if AllCompanyCategory is True
    lRptVar.Params.Find('CompanyData').AsBlob           := '300-A0001'#13#10'300-C0001'; //Filter by Customer Code 300-A0001 & 300-C0001
//    lRptVar.Params.Find('ControlAccountData').AsBlob    := ; //Not use if AllControlAccount is True
//    lRptVar.Params.Find('CurrencyData').AsBlob          := ; //Not use if AllCurrency is True
    lRptVar.Params.Find('DateFrom').AsDate              := '01 Aug 2016';
    lRptVar.Params.Find('DateTo').AsDate                := '31 Aug 2016';
//    lRptVar.Params.Find('DocProjectData').AsBlob        := ; //Not use if AllDocProject is True
    lRptVar.Params.Find('IncludeZeroBalance').AsBoolean := False;
    lRptVar.Params.Find('SelectDate').AsBoolean         := True;
    lRptVar.Params.Find('SortBy').AsString              := 'CompanyCategory;Code;CompanyName;Agent;Area;CurrencyCode;ControlAccount';
    lRptVar.Params.Find('StatementDate').AsDate         := '31 Aug 2016'; // Norm same as DateTo
    lRptVar.Params.Find('StatementType').AsString       := 'O'; //O := Open Item, B := B/F

    lRptVar.CalculateReport;

    cdsMain.XMLData := lRptVar.DataSets.Find('cdsMain').XMLData;      //Master Data
    cdsDtl.XMLData  := lRptVar.DataSets.Find('cdsDocument').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;
  end;
end;

GL Account List For Sales & Purchase 1

GL_Acc Object Script 
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;

GL Account List For Sales & Purchase 2

GL_Acc Object Script 
procedure TfmMain.dxbb_GLAccClick(Sender: TObject);
var BizApp, BizObj : Variant;
    lDataSet1, lDataSet2 : TClientDataSet;
    ASQL : String;
begin
  //For Debtor List => SpecialAccType = DR 
  //For Creditor List => SpecialAccType = CR 
  BizApp := CreateOleObject('SQLAcc.BizApp');
  BizObj := BizApp.BizObjects.Find('GL_Acc');

  lDataSet1 := TClientDataSet.Create(Self);
  lDataSet2 := TClientDataSet.Create(Self);
  try
    ASQL :='Parent<>-1 ' +
           'AND (SpecialAccType IS NULL OR SpecialAccType = '''' ' +
           'OR SpecialAccType = '''') ';
    lDataSet1.XMLData:= BizObj.Select('Dockey,Code,Description', ASQL, 'Code', 'SX', '', '');

    lDataSet2.XMLData:= BizObj.Select('Parent', '', 'Code', 'SX', '', '');

    lDataset2.First; // Remove Parent Account
    while not lDataset2.Eof do begin
      if lDataset1.Locate('Dockey', lDataSet2.FindField('Parent').AsString, []) then
        lDataset1.Delete;
      lDataset2.Next;
    end;
    lDataset1.MergeChangeLog;
    lDataset1.SaveToFile('C:\Temp\_List.xml', dfXML); //Export To XML file 
  finally
    lDataSet1.Free;
    lDataSet2.Free;
  end;
end;

Customer.Aging.RO

Customer Aging Report Object Script 
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 := '<?xml version="1.0" standalone="yes"?>  <DATAPACKET Version="2.0"><METADATA><FIELDS>'+
       '<FIELD attrname="ColumnNo" fieldtype="i4" required="true"/><FIELD attrname="ColumnType" fieldtype="string" WIDTH="1"/>'+
       '<FIELD attrname="Param1" fieldtype="i4" required="true"/><FIELD attrname="Param2" fieldtype="i4" required="true"/>'+
       '<FIELD attrname="IsLocal" fieldtype="boolean"/><FIELD attrname="HeaderScript" fieldtype="bin.hex" SUBTYPE="Text" WIDTH="1"/>'+
       '</FIELDS><PARAMS/></METADATA><ROWDATA><ROW ColumnNo="0" ColumnType="" Param1="0" Param2="0" IsLocal="FALSE"/>'+
       '<ROW ColumnNo="1" ColumnType="A" Param1="0" Param2="0" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;Current Mth&apos;&#013;end;"/>'+
       '<ROW ColumnNo="2" ColumnType="A" Param1="-1" Param2="-1" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;1 Months&apos;&#013;end;"/>'+
       '<ROW ColumnNo="3" ColumnType="A" Param1="-2" Param2="-2" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;2 Months&apos;&#013;end;"/>'+
       '<ROW ColumnNo="4" ColumnType="A" Param1="-3" Param2="-3" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;3 Months&apos;&#013;end;"/>'+
       '<ROW ColumnNo="5" ColumnType="A" Param1="-4" Param2="-4" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;4 Months&apos;&#013;end;"/>'+
       '<ROW ColumnNo="6" ColumnType="B" Param1="-999999" Param2="-5" IsLocal="FALSE" HeaderScript="ObjectPascal&#013;begin&#013;Value:= &apos;5 Month &amp; above&apos;&#013;end;"/>'+
       '</ROWDATA></DATAPACKET>';
  try
    lRptVar := null;
    lRptVar := lBizApp.RptObjects.Find('Customer.Aging.RO');
    lRptVar.Params.Find('ActualGroupBy').AsString       := 'Code;CompanyName'; //Fixed
//    lRptVar.Params.Find('AgentData').AsBlob               := ; //Not use if AllAgent is True
    lRptVar.Params.Find('AgingData').AsString           := s;
    lRptVar.Params.Find('AgingDate').AsDate             := '31 Aug 2016';
    lRptVar.Params.Find('AgingOn').AsString             := 'I'; //Fixed
    lRptVar.Params.Find('AllAgent').AsBoolean           := True;
    lRptVar.Params.Find('AllArea').AsBoolean            := True;
    lRptVar.Params.Find('AllCompany').AsBoolean         := True;
    lRptVar.Params.Find('AllCompanyCategory').AsBoolean := True;
    lRptVar.Params.Find('AllControlAccount').AsBoolean  := True;
    lRptVar.Params.Find('AllCurrency').AsBoolean        := True;
    lRptVar.Params.Find('AllDocProject').AsBoolean      := True;
//    lRptVar.Params.Find('AreaData').AsBlob            := ; //Not use if AllArea is True
//    lRptVar.Params.Find('CompanyCategoryData').AsBlob := ; //Not use if AllCompanyCategory is True
//    lRptVar.Params.Find('CompanyData').AsBlob         := ; //Not use if AllCompany is True
//    lRptVar.Params.Find('ControlAccountData').AsBlob  := ; //Not use if AllControlAccount is True
//    lRptVar.Params.Find('CurrencyData').AsBlob        := ; //Not use if AllCurrency is True
//    lRptVar.Params.Find('DocProjectData').AsBlob      := ; //Not use if AllDocProject is True
    lRptVar.Params.Find('FilterPostDate').AsBoolean      := True;
//    lRptVar.Params.Find('GroupBy
    lRptVar.Params.Find('IncludePDC').AsBoolean         := False;
    lRptVar.Params.Find('IncludeZeroBalance').AsBoolean := False;
    lRptVar.Params.Find('SortBy').AsString              := 'Code;CompanyName';
    lRptVar.Params.Find('DateTo').AsDate                := '31 Aug 2016';
    lRptVar.Params.Find('IncludeKnockedOffDetail').AsBoolean := False;

    lRptVar.CalculateReport;

    cdsMain.XMLData := lRptVar.DataSets.Find('cdsMain').XMLData;      //Master Data
    cdsDtl.XMLData  := lRptVar.DataSets.Find('cdsDocument').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;
  end;
end;

GL.CB.RO

GL Cash Book Report Object Script 
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;

AR_DP

Customer Deposit Script 
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;

Customer Deposit to Customer Payment

Customer Deposit to Customer Payment Script 
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;

AR_DPDTL_REFUND

Customer Deposit Refund Script 
procedure TForm1.Button3Click(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_REFUND');
      lMain   := lBizObj.DataSets.Find('MainDataSet');

      lBizObj.New;
      lMain.FindField('DOCKEY').Value          := cdsTmp.FindField('Dockey').AsFloat;
      lMain.FindField('Account').AsString      := '320-000'; //Bank or Cash account
      lMain.FindField('DocDate').Value         := '28 Oct 2019';
      lMain.FindField('PostDate').Value        := '28 Oct 2019';
      lMain.FindField('Description').AsString  := 'Deposit Refund';
      lMain.FindField('ChequeNumber').AsString := '';
      lMain.FindField('BankCharge').AsFloat    := 0;
      lMain.FindField('PAYMENTAMOUNT').AsFloat := 500.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;

AR_DPDTL_FORFEIT

Customer Deposit Forfeit Script 
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;

FAQ

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

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

... 

 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 wanted to know which Doc No in SQL Acc is posted.
To Set Auto Assign set it as below
DocNo Field Script/Code

... 

 lMain.FindField('DocNo').AsString  := '<<New>>';

... 

lDocNo := lMain.FindField('DocNo').AsString; //To Get docno after post

Can I Auto Login & Logout SQL Accounting when doing & after Posting?

Yes can below is example script
Only work if that PC is no once is using SQL Accounting
C Sharp 
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);
    }            
}
Delphi 
....
  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;
VB Script 
'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

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

... 

   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"; 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 = "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();

...

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

vbs 
...
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 
...   
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

... 

 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
SDK-FAQ-01.jpg
For SQL Accounting Version 5.2023.958.832 and above
SDK-FAQ-03.jpg
SDK-FAQ-02.jpg

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?

C Sharp 
try
{
   BizObject.New();
....
   BizObject.Save();
}
catch (Exception ex)
{
    MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
}
Python 
   try:
       BizObject.Save()          
   except Exception as e:
       print("Oops!", e)
VB.Net 
Try
  BizObject.[New]
...
  BizObject.Save
Catch ex As Exception
  MsgBox(ex.Message, MsgBoxStyle.Exclamation)
End Try
Delphi 
try
  lBizObj.New;
....
  lBizObj.Save;
except
  on E: Exception do
    Memo1.Lines.Text := E.Message;
end;


Why Post to SQL Accounting sometime 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)
01. Do Verify 1st (eg Check Customer Code Validity & etc)
02. Post Transactions

Possible Problem 2

Keep Login & Logout till windows not enough time to response
Summary action (Correct Steps)
01. Pull Data from Your application/web
02. Login SQL Accounting 1 time (Auto Login)
03. Do all your requirement actions (eg. verify, query & posting)
    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
04. Logout SQL Accounting 1 time (Auto Logout)
05. Push Data to Your application/web (if any)

Possible Problem 3

Company Profile Logo format had problem.
Solution
01. Click File | Company Profile
02. Export out the Logo by right Click the Company Logo
03. Open the Exported Logo with Photo Editor
04. Just Click File | Save again as jpg.
05. Load Back the Save Logo by right Click the Company Logo
06. 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
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
01. Install the Testing SQL Accounting version & Testing Database in the developer PC
02. Install the Live SQL Accounting version & User Backup Database in the developer PC
- Require User Permission for Backup
03. Setup at User PC/Server & using User Backup Database
- Require User Permission for Backup & PC/Server setup
04. 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
01. Call ComServer
02. Check Login
03. Call BizObject (eg SL_CS)
04. Begin Loop you data
05. Call Close BizObject (eg BizObject.Close)
06. Continue Call other BizObject (eg AR_PM)
07. Repeat Steps 4 & 5
08. Call Logout
09. Free ComServer

How to post Description3 with Unicode?

You have to convert it to rtf format before set to Description3 field
C Sharp 
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 
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 
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 build in Utility function (only available from 5.2022.941.822 & above)
....
 lDtl.FindField("Description3").AsString = ComServer.Utility.PlainTextToRichText("ANTENNA ??? ??")
...
PHP 
<!DOCTYPE html>
<html>
<body>

<h1>SQL Acc SDK in PHP page</h1>

<?php
echo "Updated 14 Sep 2022<br>";
#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 "<br>== <br>";
	echo "<br>Result after RTF: <br>";
	$txt = $ComServer->Utility->RichTextToPlainText($rtf);
	echo "<TEXTAREA rows=10 cols=80 id='edResult1' >".$txt. "</TEXTAREA>";
	echo "<br>== <br>";
	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 = "<<New>>";
    $lMain->FindField("DocDate")->value = "04/20/2020"; #MM/DD/YYYY
    $lMain->FindField("PostDate")->value = "04/20/2020"; #MM/DD/YYYY
    $lMain->FindField("Description")->AsString = "Stock Adjustment";
	
    #Insert Data - Detail - Increase Stock Qty
    $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 B";
    $lDetail->FindField("Qty")->AsFloat = 2;
    $lDetail->FindField("UOM")->AsString = "UNIT";
    $lDetail->Post();
    #Insert Data - Detail - Reduce Stock Qty
    $lDetail->Append();
    $lDetail->FindField("DtlKey")->value = -1;
    $lDetail->FindField("DocKey")->value = -1;
    $lDetail->FindField("Seq")->value = 2;
    $lDetail->FindField("ItemCode")->AsString = "ANT";
    $lDetail->FindField("Description")->AsString = "NOKIA CHARGER  ???";
	$lDetail->FindField("Description3")->AsString = $ComServer->Utility->PlainTextToRichText("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();
        GetData();
	echo "<br>";
        echo date("d M Y h:i:s A")." - Done";
	PostData();
	echo "<br>";
        echo date("d M Y h:i:s A")." - Done ST_AJ";			
    }
    finally
    {
        $ComServer->Logout();
        #free the object
        $ComServer = null;
    }
}

?> 
    <form method="post">           
        <input type="submit" name="BtnData"
                value="Get RTF n Post RTF"/> 
    </form> 
</body>
</html>

See also

  • Need assistance? May email to support@sql.com.my
Retrieved from "https://wiki.sql.com.my/index.php?title=SDK_Live&oldid=13105"