//-----------------------------------------------------------------------------
//  JScript Example
//  Created by:     Josh Geving - Solutions Group
//
//  Description:    Display the Line Unit cost oin each line - PO30
//
//
//  Last Tested on Smart Office Version 10.0.1.5
//-----------------------------------------------------------------------------
 
import System;
import System.Windows;
import System.Windows.Controls;
import S3.Client.Forms;
 
package S3.Client.Forms.JScript {
 
class JjgPO30LineCost
{
    var console, form, formGrid;
 
    public function Init(element: Object, args: Object, controller: Object, debug: Object)
    {
        try {
            form = controller;
            formGrid = form.FormGrid;
            console = debug;
 
            // TODO Add your code here
            form.add_AfterTransaction(OnAfterTransaction);
 
            form.add_BeforeUnload(OnBeforeUnload);
 
        } catch (e) {
            console.WriteLine(ScriptUtil.FormatException("Init", e));
        }
    }
 
    // event handlers
    public function OnBeforeUnload(sender: Object, e: FormEventArgs)
    {
        // perform cleanup
        form.remove_AfterTransaction(OnAfterTransaction);
        form.remove_BeforeUnload(OnBeforeUnload);
    }
 
    public function OnAfterTransaction(sender: Object, e: TransactionEventArgs)
    {
        // test for good transaction
        if (e.TransactionError)
            return;
 
        // no action on delete
        if (e.FunctionCode == "D")
            return;
 
        // Loop through the lines
        var row             = 0;
        var vCompany        = form.GetTransactionValue("POR-COMPANY");
        var vPurchaseOrder  = form.GetTransactionValue("POR-PO-NUMBER").Trim();
        var vRelease        = form.GetTransactionValue("POR-PO-RELEASE");
        var vPOCode         = form.GetTransactionValue("POR-PO-CODE");
 
        for(row = 0; row <= 4; row++)
        {
            var vItem = form.GetTransactionValue("ITEM-DETAILr" + row);
            var vLine = form.GetTransactionValue("PRL-PO-LINE-NBRr" + row);
 
            // build up the Data Service call
            var sProd       = form.GetUserAttribute("productline");
            var sFile       = "POLINE";
            var sField      = "ENT-UNIT-CST";
            var sIndex      = "PLISET1&KEY=" + vCompany + "=" + vPurchaseOrder + "=" + vRelease + "=" + vPOCode + "=" + vLine;
            var sCond       = "";
            var sSelect     = "";
            var sMax        = "";
 
            // Pass the variables for the API to DataService_Execute
            if(vItem != "")
            {
                var aDataAPI    = DataService_Execute(sProd,sFile, sField, sIndex, sCond, sSelect, sMax);
 
                console.WriteLine("aDataAPI.length: " + aDataAPI.length);
 
                // Did we get anything back from the call?
                if(aDataAPI.length > 0)
                {
                    var i = 0;
                    for(i = 0; i < aDataAPI.length; i++)
                    {
                        console.WriteLine(aDataAPI[i]);
                        form.SetTransactionValue("ITEM-DETAILr" + row, vItem + " - Unit Cost: " + aDataAPI[i]);
                    }
                }
                else{
                    console.WriteLine("***No Records***");
                }
            }
        }       
 
    }
 
    // private functions
 
    /**
     * DataService_Execute - This method returns an array for the api specified
     * Detail description
     * This method returns an array of values for for the api details
     * @param      required     sProd, PROD, defaults to user profile if not set - required
     * @param      required     sFile, FILE
     * @param      required     sField, FIELD
     * @param      optional     sIndex, INDEX, removed from api if not set
     * @param      optional     sCond, COND
     * @param      optional     sSelect, SELECT
     * @param      optional     sMax, MAX, defaults to 0 if not set
     * @access     private
     * @return     array
    */
    private function DataService_Execute(sProd,sFile, sField, sIndex, sCond, sSelect, sMax)
    {
        var a       = new Array();
        var aFields = new Array();
        var i       = 0;
        var s       = "";
        var oXML;
        var oRecs;
        var oRecNum;
        var oRec;
        var oFields;
 
        // Productline sProd empty, set from profile
        if(sProd == ""){sProd = form.GetUserAttribute("productline");}
 
        // Max sMax empty, set to 0 for all
        if(sMax == ""){sMax = 0;}
 
        // Build the complete Data Service Call
        s = ScriptConstants.DataMinePath + "?PROD=" + sProd + "&FILE=" + sFile + "&FIELD=" + sField;
 
        // If Index we add Index to the call
        if(sIndex != ""){s += "&INDEX=" + sIndex;}
 
        // The rest of the call
        s += "&COND=" + sCond + "&SELECT=" + sSelect + "&MAX=" + sMax +
            "&OUT=XML&DELIM="+ new Date().getTime(); // Time used to prevent caching
 
        console.WriteLine("s: " + s);
 
        // Make the server request, record the time it took
        var bTime   = new Date().getTime();
        oXML        = ScriptUtil.ServerRequest(s);
        var eTime   = new Date().getTime();
        console.WriteLine("API Execution Time: " + (eTime-bTime)/1000 + "seconds");
 
        // Get the Record Count Node
        oRecs   = oXML.SelectSingleNode("//RECORDS");
        oRecNum = oRecs != null ? oRecs.ChildNodes.Count : 0;
 
        console.WriteLine("oRecNum: " +oRecNum);
 
        // Determine if records were returned
        if(oRecNum == 0)
        {
            console.WriteLine("Data Service Call\n\n" + s + "\n\n returned " + oRecNum + " records.");
            return a;
        }
 
        // Build an array with the results
        for(oRec in oRecs.ChildNodes)
        {
            oFields = oRec.SelectSingleNode("./COLS");
            aFields = new Array();
            for(i = 0; i < oFields.ChildNodes.Count; i++)
            {
                aFields[aFields.length] = oFields.ChildNodes[i].InnerText;
            }
            a[a.length] = aFields;
        }
        return a;
    }
 
} }

//-----------------------------------------------------------------------------
//  JScript Example
//  Created by:     Josh Geving - Solutions Group
//
//  Description:    PO20 - Gather additional fields from the vendor record and
//                  dipslay them in the header as new labels
//
//  Optional:       form.GetUserAttribute("vendor_group");
//
//  Last Tested on Smart Office Version 10.0.1.5
//-----------------------------------------------------------------------------
import System;
import System.Windows;
import System.Windows.Controls;
import S3.Client.Forms;
 
// New import to support StyleManager
import Mango.UI.Core;
 
package S3.Client.Forms.JScript {
 
class JjgPO20VendorInfo
{
    var console, form, formGrid;
 
    public function Init(element: Object, args: Object, controller: Object, debug: Object)
    {
        try {
            form = controller;
            formGrid = form.FormGrid;
            console = debug;
 
            // TODO Add your code here
 
            // Add additional fields
            AddFields();
 
            // Capture AfterTransaction
            form.add_AfterTransaction(OnAfterTransaction);
 
            // Support user leaving Vendor Field
            form.GetElement("PCR-VENDOR").add_LostFocus(OnLostFocus);
 
            form.add_BeforeUnload(OnBeforeUnload);
 
        } catch (e) {
            console.WriteLine(ScriptUtil.FormatException("Init", e));
        }
    }
 
    // event handlers
    public function OnBeforeUnload(sender: Object, e: FormEventArgs)
    {
        // perform cleanup
        form.remove_AfterTransaction(OnAfterTransaction);
        form.GetElement("PCR-VENDOR").remove_LostFocus(OnLostFocus);
        form.remove_BeforeUnload(OnBeforeUnload);
    }
 
    public function OnLostFocus(sender: Object, e: RoutedEventArgs)
    {
        // Write out to console the selected vendor
        console.WriteLine("Vendor: "+ sender.Text);
 
        // If there is something there we proceed
        if(sender.Text != "")
        {
            // Fetch value for the vendor
            var vVendorGroup    = form.GetUserAttribute("vendor_group");
 
            // If no Vendor we default 1 for example purposes, normally we would fetch from Procure Group path
            if(vVendorGroup == "")
            {
                vVendorGroup = 1;
            }
 
            var vVendor         = sender.Text;
 
            // Write out our key values
            console.WriteLine("vVendorGroup: " + vVendorGroup);
            console.WriteLine("vVendor: " + vVendor);   
 
            // Build the Transaction API
            var sCall       = "&VEN-VENDOR-GROUP="+ vVendorGroup +"&VEN-VENDOR="+ vVendor;
 
            // Transaction API values
            var sForm       = "AP10.1";
            var sProd       = form.GetUserAttribute("productline");
            var sFunction   = "I";
            var sDesc       = "Vendor Inquire"; 
 
            // Issue the Transaction API
            var TransXml    = TransactionService_Execute(sForm, sProd, sFunction, sCall, sDesc);
 
            // Do we want to see the xml that came back?
            console.WriteLine(TransXml.OuterXml);
 
            // Fetch a node by name and write out the contents
            console.WriteLine("Contact: " + Transaction_GetFieldValue(TransXml, "VEN-VENDOR-CONTCT"));
            console.WriteLine("Phone: " + Transaction_GetFieldValue(TransXml, "VEN-PHONE-NUM"));
            console.WriteLine("Account: " + Transaction_GetFieldValue(TransXml, "VEN-VEND-ACCT"));
 
            // Set the values to our custom elements
            form.SetCustomElementValue("CustContact", Transaction_GetFieldValue(TransXml, "VEN-VENDOR-CONTCT"));
            form.SetCustomElementValue("CustPhone", Transaction_GetFieldValue(TransXml, "VEN-PHONE-NUM"));
            form.SetCustomElementValue("CustAccount", Transaction_GetFieldValue(TransXml, "VEN-VEND-ACCT"));
        }
    }
 
    // private functions
    private function AddFields()
    {
        AddLabel("CustContact","","Left",4,50,20,"blue",formGrid)
        AddLabel("CustPhone","","Left",5,50,20,"blue",formGrid)
        AddLabel("CustAccount","","Left",6,50,20,"blue",formGrid)
    }
 
    public function OnAfterTransaction(sender: Object, e: TransactionEventArgs)
    {
        // test for good transaction
        if (e.TransactionError)
            return;
 
        // no action on delete
        if (e.FunctionCode == "D")
            return;
 
        // Fetch value for the vendor
        var vVendorGroup    = form.GetUserAttribute("vendor_group");
 
        // If no Vendor we default 1 for example purposes, normally we would fetch from Procure Group path
        if(vVendorGroup == "")
        {
            vVendorGroup = 1;
        }
 
        var vVendor         = form.GetTransactionValue("PCR-VENDOR");
 
        console.WriteLine("vVendorGroup: " + vVendorGroup);
        console.WriteLine("vVendor: " + vVendor);
 
        // Build the Transaction API
        var sCall       = "&VEN-VENDOR-GROUP="+ vVendorGroup +"&VEN-VENDOR="+ vVendor;
 
        // Transaction API values
        var sForm       = "AP10.1";
        var sProd       = form.GetUserAttribute("productline");
        var sFunction   = "I";
        var sDesc       = "Vendor Inquire"; 
 
        // Issue the Transaction API
        var TransXml    = TransactionService_Execute(sForm, sProd, sFunction, sCall, sDesc);
 
        // Do we want to see the xml that came back?
        console.WriteLine(TransXml.OuterXml);
 
        // Fetch a node by name and write out the contents
        console.WriteLine("Contact: " + Transaction_GetFieldValue(TransXml, "VEN-VENDOR-CONTCT"));
        console.WriteLine("Phone: " + Transaction_GetFieldValue(TransXml, "VEN-PHONE-NUM"));
        console.WriteLine("Account: " + Transaction_GetFieldValue(TransXml, "VEN-VEND-ACCT"));
 
        form.SetCustomElementValue("CustContact", Transaction_GetFieldValue(TransXml, "VEN-VENDOR-CONTCT"));
        form.SetCustomElementValue("CustPhone", Transaction_GetFieldValue(TransXml, "VEN-PHONE-NUM"));
        form.SetCustomElementValue("CustAccount", Transaction_GetFieldValue(TransXml, "VEN-VEND-ACCT"));
    }
 
    /**
     * AddLabel - Creates a label on the form
     * Parameters
     * sName        required    The unique label name
     * sCaption     required    The label text
     * sAlign       required    Alignment Right, Left or Center
     * nRow         required    Numeric row to place the label
     * nColumn      required    Numeric column to place the label
     * nColumnSpan  required    Numeric column span
     * bType        optional    Type, empty (for normal), bold or blue
     * oAddTo       required    Where to place label
     *
     * Example:     AddLabel("UniqueName","My new label","Right",1,50,12,"bold",formGrid)
    */
    private function AddLabel(sName,sCaption,sAlign,nRow,nColumn,nColumnSpan,bType,oAddTo)
    {
        // Define label
        var label       = new Label();                  // New label created
        label.Name      = sName;                        // Assign a name
        label.Content   = sCaption;                     // Assign a caption
        label.Padding   = new Thickness(1);             // Add padding
 
        label.VerticalContentAlignment = VerticalAlignment.Center;  // Center the alignment
 
        if(bType == "blue")
        {
            label.Style = StyleManager.StyleAdditionalInfo; // import Mango.UI.Core;  //blue label
        }
        if(bType == "bold")
        {
            label.Style = StyleManager.StyleEmphasized; // import Mango.UI.Core;  // bold label
        }
 
        if(sAlign == "Right")                           // Set the alignment of the caption within the label
            {label.HorizontalContentAlignment = HorizontalAlignment.Right}
        else if(sAlign == "Center")
            {label.HorizontalContentAlignment = HorizontalAlignment.Center}
        else
            {label.HorizontalContentAlignment = HorizontalAlignment.Left}
 
        Grid.SetRow(label, nRow);                       //Indicate the row for the label
        Grid.SetColumn(label, nColumn);                 //Indicate the starting column for the label
        Grid.SetColumnSpan(label, nColumnSpan);         //Indicate the column width of the label
        form.AddCustomElement(oAddTo, label);           //Add the label to the form
    }
 
    /**
     * TransactionService_Execute - This method returns xml from a transaction service call
     * Detail description
     * This method returns xml for the api details
     * @param      required     sForm, _TKN
     * @param      required     sProd, _PDL
     * @param      required     sFunction, FC
     * @param      required     sCall
     * @param      optional     sDesc
     * @access     private
     * @return     xml
    */
    private function TransactionService_Execute(sForm, sProd, sFunction, sCall, sDesc)
    {
        var s = "";
        var oXML;
 
        // Build the complete Transaction Service Call
        s = ScriptConstants.TransactionPath
        s += "?_PDL=" + sProd;
        s += "&_TKN=" + sForm
        if(sFunction == "Add" || sFunction == "A")
            {s += "&_EVT=ADD"}
        else
            {s += "&_EVT=CHG"}
        s += "&FC=" + sFunction;
        s += sCall;
        s += "&_LFN=ALL&_TDS=IGNORE&_OUT=XML&_EOT=TRUE";
 
        console.WriteLine("s: " + s);
 
        // Make the server request
        oXML = form.ServerRequest(s);
 
        // Determine if the Transaction Service Call processed
        if(!oXML)
        {
            console.WriteLine("The Transaction Service Call \n\n" + sDesc + "\n\nfailed to process.")
        }
        else if(Transaction_GetFieldValue(oXML, "MsgNbr") != "000")     // Determine if the Transaction Service Call worked
        {
            console.WriteLine(sForm + " MsgNbr: " + Transaction_GetFieldValue(oXML, "Message"));
        }
 
        return oXML;
    }
 
    private function Transaction_GetFieldValue(oData, sFind)
    {
        return oData.SelectSingleNode("//" + sFind).InnerText;
    }
 
} }

//-----------------------------------------------------------------------------
//  JScript Example
//  Created by:     Josh Geving - Solutions Group
//
//  Description:    Change the COMMENTS output field to Red and Bold
//
//  Last Tested on Smart Office Version 10.0.1.1.5
//-----------------------------------------------------------------------------
import System;
import System.Windows;
import System.Windows.Controls;
import S3.Client.Forms;
 
import Mango.UI.Core;
 
package S3.Client.Forms.JScript {
 
class JjgGL40Comments
{
    var console, form, formGrid;
 
    public function Init(element: Object, args: Object, controller: Object, debug: Object)
    {
        try {
            form = controller;
 
            formGrid = form.FormGrid;
            console = debug;
 
            // TODO Add your code here
            form.add_AfterTransaction(OnAfterTransaction);
 
            form.add_BeforeUnload(OnBeforeUnload);
 
        } catch (e) {
            console.WriteLine(ScriptUtil.FormatException("Init", e));
        }
    }
 
    // event handlers
    public function OnBeforeUnload(sender: Object, e: FormEventArgs)
    {
        // perform cleanup
        form.remove_AfterTransaction(OnAfterTransaction);
        form.remove_BeforeUnload(OnBeforeUnload);
    }
 
    public function OnAfterTransaction(sender: Object, e: TransactionEventArgs)
    {
            // The Content comes from the transaction, so we set it here if it has a value
            var vCommentTransValue = form.GetTransactionValue("COMMENTS-MSG");
 
            // If the value from the transaction is Comments Exis we set a new value before it
            // goes to display
            if(vCommentTransValue == "Comments Exis")
            {
                form.SetTransactionValue("COMMENTS-MSG", "Comments"); 
 
                // Style it Red and Bold
                ChangeLabelStyle();
            }
    }
 
    // private functions
 
    private function ChangeLabelStyle()
    {
            // Grab the comment label
            var lblComments         = form.GetElement("COMMENTS-MSG");
 
            // Change its style
            lblComments.Foreground = System.Windows.Media.Brushes.Red;
            lblComments.FontWeight = FontWeights.Bold;
    }
 
} }

    public function OnAfterTransaction(sender: Object, e: TransactionEventArgs)
    {
            // The Content comes from the transaction, so we set it here if it has a value
            var vCommentTransValue = form.GetTransactionValue("COMMENTS-MSG");
 
            // If the value from the transaction is Comments Exis we set a new value before it
            // goes to display
            if(vCommentTransValue == "Comments Exis")
            {
                form.SetTransactionValue("COMMENTS-MSG", "Comments"); 
 
                // Style it Red and Bold
                ChangeLabelStyle();
            }           
    }
 
    // private functions
 
    private function ChangeLabelStyle()
    {
            // Grab the comment label
            var lblComments         = form.GetElement("COMMENTS-MSG");
 
            // Change its style
            lblComments.Foreground = System.Windows.Media.Brushes.Red;
            lblComments.FontWeight = FontWeights.Bold;
    }

//-----------------------------------------------------------------------------
//  JScript Example
//  Created by:     Josh Geving - Solutions Group
//
//  Description:    PO20 - After a transaction, fetches a count of the Purchase
//                  Order Header Attachments, then displays the count in a new
//                  label next to the comment button
//
//  Last Tested on Smart Office Version 10.0.1.1.5
//-----------------------------------------------------------------------------
import System;
import System.Windows;
import System.Windows.Controls;
import S3.Client.Forms;
 
import Mango.UI.Core;
 
package S3.Client.Forms.JScript {
 
class JjgAttachmentCount
{
    var console, form, formGrid, button;
 
    public function Init(element: Object, args: Object, controller : Object, debug : Object)
    {
        try {
            form = controller;
            formGrid = form.FormGrid;
            console = debug;
            console.WriteLine("Script initializing...");
            if (element != null)
                console.WriteLine("Connected element: " + element.Name);
 
            // TODO Add your code here
 
            // Add new fields to form
            AddFields();
 
            form.add_AfterTransaction(OnAfterTransaction);
            form.add_BeforeUnload(OnBeforeUnload);
            console.WriteLine("Script initialized.");
 
        } catch (e) {
            console.WriteLine(ScriptUtil.FormatException("Init", null, e));
        }
    }
 
    // event handlers
    public function OnBeforeUnload(sender: Object, e: FormEventArgs)
    {
        // perform cleanup
        form.remove_AfterTransaction(OnAfterTransaction);
        form.remove_BeforeUnload(OnBeforeUnload);
    }
 
    public function OnAfterTransaction(sender: Object, e: TransactionEventArgs)
    {
        // Form Keys
        var vCompany    = form.GetTransactionValue("PCR-COMPANY");
        var vPoNumber   = form.GetTransactionValue("PCR-PO-NUMBER");
 
        // build up the DME call for first pass
        var transAPI1 = "/cgi-lawson/getattachrec.exe?_OPM=C&_PDL=" +
            form.GetUserAttribute("productline") +
            "&_FN=PURCHORDER&_AOBJ=TRUE&_IN=PCRSET1&_ATYP=U&_DRIL=TRUE" +
            "&_ON=Purchase+Order+Header+Attachments&_ATTR=TRUE&_TYP=URL&K4=0" +
            "&K3=" + vPoNumber +
            "&_AUDT=I&K2=&_OUT=XML&K1=" + vCompany +
            "&_ECODE=FALSE";
 
        // Make the server request
 
        // Make the server request, record the time it took
        var bTime   = new Date().getTime();
        var transXml1       = ScriptUtil.ServerRequest(transAPI1);
        var eTime   = new Date().getTime();
        console.WriteLine("API Execution Time: " + (eTime-bTime)/1000 + "seconds");
 
        if (!transXml1) return;
 
        // Fetch a count from the xml, 1 means there are none
        var vCount = transXml1.SelectNodes("//AttName").Count;
 
        var existingLabel = form.GetCustomElement("AttachCountLabel");
        if (existingLabel != null)
        {
            form.SetCustomElementValue(existingLabel.Name, vCount-1);
        }
    }
 
    // private functions
 
    private function AddFields()
    {
        // Add a label to display the attachment count
        AddLabel("AttachCountLabel","-","Left",7,57,3,"",formGrid);
    }
 
    /**
     * AddLabel - Creates a label on the form
     * Parameters
     * sName        required    The unique label name
     * sCaption     required    The label text
     * sAlign       required    Alignment Right, Left or Center
     * nRow         required    Numeric row to place the label
     * nColumn      required    Numeric column to place the label
     * nColumnSpan  required    Numeric column span
     * bType        optional    Type, empty (for normal), bold or blue
     * oAddTo       required    Where to place label
     *
     * Example:     AddLabel("UniqueName","My new label","Right",1,50,12,"bold",formGrid)
    */
    private function AddLabel(sName,sCaption,sAlign,nRow,nColumn,nColumnSpan,bType,oAddTo)
    {
        // Define label
        var label       = new Label();                  // New label created
        label.Name      = sName;                        // Assign a name
        label.Content   = sCaption;                     // Assign a caption
        label.Padding   = new Thickness(1);             // Add padding
 
        label.VerticalContentAlignment = VerticalAlignment.Top;
 
        if(bType == "blue")
        {
            label.Style = StyleManager.StyleAdditionalInfo; // import Mango.UI.Core;  //blue label
        }
        if(bType == "bold")
        {
            label.Style = StyleManager.StyleEmphasized; // import Mango.UI.Core;  // bold label
        }
 
        if(sAlign == "Right")                           // Set the alignment of the caption within the label
            {label.HorizontalContentAlignment = HorizontalAlignment.Right}
        else if(sAlign == "Center")
            {label.HorizontalContentAlignment = HorizontalAlignment.Center}
        else
            {label.HorizontalContentAlignment = HorizontalAlignment.Left}
 
        Grid.SetRow(label, nRow);                       //Indicate the row for the label
        Grid.SetColumn(label, nColumn);                 //Indicate the starting column for the label
        Grid.SetColumnSpan(label, nColumnSpan);         //Indicate the column width of the label
        form.AddCustomElement(oAddTo, label);           //Add the label to the form
    }                                                                                   
 
} }

//-----------------------------------------------------------------------------
//  JScript Example
//  Created by:     Josh Geving - Solutions Group
//  
//  Description:    When entering a new vendor the vendor name is queried
//              against APVENMAST to verify it is unique, the addr1
//              field is also checked to make sure the address is unique
//              If either of the above are found to be a match the
//              transaction is stopped
//
//  Last Tested on Smart Office Version 9.1.3
//-----------------------------------------------------------------------------
import System;
import System.Windows;
import System.Windows.Controls;
import S3.Client.Forms;
import System.Collections;
import System.Collections.Generic;
import System.Windows.Data;
import Mango.UI;
import Mango.UI.Core;
import Mango.UI.Services;
 
package S3.Client.Forms.JScript {
 
class JjgAP10PreventDupes
{
    var console, form, formGrid;
 
    public function Init(element: Object, args: Object, controller : Object, debug : Object)
    {
        try {
            form = controller;
            formGrid = form.FormGrid;
            console = debug;
            console.WriteLine("Script initializing...");
            if (element != null)
                console.WriteLine("Connected element: " + element.Name);
 
            // TODO Add your code here
 
            // hookup some events
            form.add_BeforeTransaction(OnBeforeTransaction);
 
            // END CODE
 
            form.add_BeforeUnload(OnBeforeUnload);
            console.WriteLine("Script initialized.");
 
        } catch (e) {
            console.WriteLine(FormatException("Init", null, e));
        }
    }
 
    // event handlers
    public function OnBeforeTransaction(sender: Object, e: CancelTransactionEventArgs)
    {
        // test for good transaction
        if (e.TransactionError)
            return;
 
        // no action on delete
        if (e.FunctionCode == "D")
            return;
 
        // don't allow add transaction if there is a match
        if (e.FunctionCode == "A") 
        {
            try {
                var vVendorGroup    = form.GetElementValue("VEN-VENDOR-GROUP");
                var vVendorName     = form.GetElementValue("VEN-VENDOR-VNAME");
                var vVendorAddr1    = form.GetElementValue("VDR-ADDR1");
                var vVendor         = form.GetElementValue("VEN-VENDOR");
                var vendorList      = "";
                var message         = "";
 
                // build up the Data Service call
                var sProd       = form.GetUserAttribute("productline");
                var sFile       = "APVENMAST";
                var sField      = "VENDOR-GROUP;VENDOR;VENDOR-VNAME";
                var sIndex      = "VENSET1&KEY=" + vVendorGroup;
                var sCond       = "";
                var sSelect     = "VENDOR-VNAME~" + vVendorName;
                var sMax        = "";
 
                // Pass the variables for the API to DataService_Execute
                var aDataAPI    = DataService_Execute(sProd,sFile, sField, sIndex, sCond, sSelect, sMax);
 
                console.WriteLine("aDataAPI.length: " + aDataAPI.length);
 
                // Did we get anything back from the call?
                if(aDataAPI.length > 0)
                {
                    for(var i = 0; i < aDataAPI.length; i++)
                    {
                        console.WriteLine(aDataAPI[i]);
                        vendorList += aDataAPI[i]+"\n";
                    }
 
                    var message = "Tax ID supplied matches vendor(s)\n: " + vendorList + "\nTransaction stopped.";
                    ConfirmDialog.ShowWarningDialog("Matching Vendor(s)", message, null);
 
                    form.SetMessage(message);
                    e.Cancel = true;
                }
                else{
                    console.WriteLine("***No Records***");
                }
 
            } catch (ex) {
                console.WriteLine(FormatException("OnBeforeTransaction", null, ex));
            }
        }
    }
 
    public function OnBeforeUnload(sender: Object, e: FormEventArgs)
    {
        // perform cleanup
        form.remove_BeforeTransaction(OnBeforeTransaction);
        form.remove_BeforeUnload(OnBeforeUnload);
    }
 
    /**
     * DataService_Execute - This method returns an array for the api specified
     * Detail description
     * This method returns an array of values for for the api details
     * @param      required     sProd, PROD, defaults to user profile if not set - required
     * @param      required     sFile, FILE
     * @param      required     sField, FIELD
     * @param      optional     sIndex, INDEX, removed from api if not set
     * @param      optional     sCond, COND
     * @param      optional     sSelect, SELECT
     * @param      optional     sMax, MAX, defaults to 0 if not set
     * @access     private
     * @return     array
     *
     * Example:
     *
     *
 
        private function RunDataMine()
        {
            // build up the Data Service call
            var sProd       = form.GetUserAttribute("productline");
            var sFile       = "CUCODES";
            var sField      = "CURRENCY-CODE;DESCRIPTION";
            var sIndex      = "CUCSET1";
            var sCond       = "";
            var sSelect     = "";
            var sMax        = "";
 
            // Pass the variables for the API to DataService_Execute
            var aDataAPI    = DataService_Execute(sProd,sFile, sField, sIndex, sCond, sSelect, sMax);
 
            console.WriteLine("aDataAPI.length: " + aDataAPI.length);
 
            // Did we get anything back from the call?
            if(aDataAPI.length > 0)
            {
                var i = 0;
                for(i = 0; i < aDataAPI.length; i++)
                {
                    console.WriteLine(aDataAPI[i]);
                }
            }
            else{
                console.WriteLine("***No Records***");
            }
        }
 
    */
    private function DataService_Execute(sProd,sFile, sField, sIndex, sCond, sSelect, sMax)
    {
        var a       = new Array();
        var aFields = new Array();
        var i       = 0;
        var s       = "";
        var oXML;
        var oRecs;
        var oRecNum;
        var oRec;
        var oFields;
 
        // Productline sProd empty, set from profile
        if(sProd == ""){sProd = form.GetUserAttribute("productline");}
 
        // Max sMax empty, set to 0 for all
        if(sMax == ""){sMax = 0;}
 
        // Build the complete Data Service Call
        s = ScriptConstants.DataMinePath + "?PROD=" + sProd + "&FILE=" + sFile + "&FIELD=" + sField;
 
        // If Index we add Index to the call
        if(sIndex != ""){s += "&INDEX=" + sIndex;}
 
        // The rest of the call
        s += "&COND=" + sCond + "&SELECT=" + sSelect + "&MAX=" + sMax +
            "&OUT=XML&DELIM="+ new Date().getTime(); // Time used to prevent caching
 
        console.WriteLine("s: " + s);
 
        // Make the server request, record the time it took
        var bTime   = new Date().getTime();
        oXML        = ScriptUtil.ServerRequest(s);
        var eTime   = new Date().getTime();
        console.WriteLine("API Execution Time: " + (eTime-bTime)/1000 + "seconds");
 
        // Get the Record Count Node
        oRecs   = oXML.SelectSingleNode("//RECORDS");
        oRecNum = oRecs != null ? oRecs.ChildNodes.Count : 0;
 
        console.WriteLine("oRecNum: " +oRecNum);
 
        // Determine if records were returned
        if(oRecNum == 0)
        {
            console.WriteLine("Data Service Call\n\n" + s + "\n\n returned " + oRecNum + " records.");
            return a;
        }
 
        // Build an array with the results
        for(oRec in oRecs.ChildNodes)
        {
            oFields = oRec.SelectSingleNode("./COLS");
            aFields = new Array();
            for(i = 0; i < oFields.ChildNodes.Count; i++)
            {
                aFields[aFields.length] = oFields.ChildNodes[i].InnerText;
            }
            a[a.length] = aFields;
        } 
        return a;
    }
 
    // private functions
    private function FormatException(funcName, prefMsg, e)
    {
        var errMsg = (typeof(prefMsg)=="string" ? prefMsg+"\n" : "Exception encountered:\n");
        errMsg += "  Class:\t\tJjgAP10PreventDupes\n";
        errMsg += "  Function:\t"+funcName+"\n";
        errMsg += "  Name:\t" + e.name + "\n"
        errMsg += "  Number:\t" + (e.number & 0xFFFF) + "\n"
        errMsg += "  Message:\t" + e.message + "\n"
        errMsg += "  Description:\t" + e.description + "\n"
        return errMsg;
    }
} }