Posts Selected From the Category "Smart Office"

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